diff --git a/doc/reference/README.md b/doc/reference/README.md index a9013a453..1676ac4ea 100644 --- a/doc/reference/README.md +++ b/doc/reference/README.md @@ -3,10 +3,11 @@ This is the reference documentation for Gerbil. We aim to exhaustively document the Scheme primitives, the Gambit primitives, the Gerbil [core prelude](gerbil/prelude/README.md), [runtime builtins](gerbil/runtime/README.md), the [standard library](std/README.md), and the Meta-[expander context](gerbil/expander/README.md). +We also have a [guide for developers of Gerbil](dev/README.md). -The idea of extensive and easy to use documentation is at our forefront. This is still a WIP and there's more to come. If you need certain things now see the [R5RS](https://schemers.org/Documents/Standards/R5RS/HTML/) document for basic Scheme primitives used as a part of our prelude along with the [Gambit Manual](https://www.iro.umontreal.ca/~gambit/doc/gambit.html) for our underlying implementation internals. +The idea of extensive and easy to use documentation is at our forefront. This is still a WIP and there's more to come. If you need certain things now see the [R5RS](https://schemers.org/Documents/Standards/R5RS/HTML/) document for basic Scheme primitives used as a part of our prelude along with the [Gambit Manual](https://www.iro.umontreal.ca/~gambit/doc/gambit.html) for our underlying implementation internals. If you're viewing this as a webpage online almost every page has a link whereby you can edit and request a commit. Even if it's just pointing out the issue every part helps. -When information is missing, out of date, or unclear, it's a bug! If you cannot edit try to contact us (by email, on Gitter or GitHub, etc.) and we'll get it done. +When information is missing, out of date, or unclear, it's a bug! If you cannot edit try to contact us (by email, on Gitter or GitHub, etc.) and we'll get it done. diff --git a/doc/reference/dev/bootstrap.md b/doc/reference/dev/bootstrap.md index 92a50a29f..e5b4263a0 100644 --- a/doc/reference/dev/bootstrap.md +++ b/doc/reference/dev/bootstrap.md @@ -1,36 +1,139 @@ # The Gerbil Bootstrap -Gerbil is fully self-hosted, 100% written in itself. So how does it -all fit together? +Gerbil is fully self-hosted, with both its compiler and runtime 100% written in itself. +So how does it all fit together? + +## Overview of Bootstrapping in General + +At all times, a bootstrapped language keeps alongside the source code +of its implementation (runtime and compiler), written in the language itself, +a precompiled "bootstrap" version of its implementation, +sufficient to build the current version. +This "bootstrap" version is either source code in a *host* language, +or object code for a host environment or collection of host environments +(typically, either a single bytecode binary for a VM implemented in C, or +a series of executables for each of many supported platforms, +e.g. each of Linux, Windows, macOS on each of x86-64, aa64, etc.). + +When building the bootstrapped language, +we start from the host language or environment, +use it to build and run the bootstrap version of the implementation, +with which build the current version of the implementation. +That current version can at times be blessed as a new bootstrap implementation. + +A bootstrapped implementation is in contrast with a *cross-implementation*: +an implementation _manually_ written in a *host* language +that differs from the target language being implemented. +Confusingly, the host language is often called +the meta-language when talking about a compiler, or +the base language when talking a runtime or an interpreter, +even though meta- and base- are used as mutual opposites in such context. + +Every bootstrapped implementation started with a regular cross-implementation +as its bootstrap implementation, though that cross-implementation may have +long since been superseded by many subsequent compiled versions where +the manually written host code was replaced by code automatically generated +from source code in the bootstrapped language. + +In the case of Gerbil, we use Gambit Scheme as a host language, and +we keep a precompiled bootstrap implementation in the directory +`GERBIL_SRCDIR/src/bootstrap/`. + +## Pros and Cons of Bootstrapping + +### Pros of Bootstrapping + +There are many advantages to bootstrapping the implementation of +a programming language: + + - You can use all the features of your language while developping it, + instead of being stuck with another language, necessarily unsatisfying + in enough ways that you're developing a different one. + + - You don't have to rely on other people with respect to + the implementation language: bugs, tooling, standards, compatibility, + release cycles, etc. You can do it all yourself! + + - If there is a language or compiler feature you wish you had + while developing your implementation, you can first implement it + then later use it to write further features or rewrite existing ones. + + - You don't have to cultivate and simultaneously hold in your head + two different languages, their semantics, pragmatics, libraries, and + colloquial styles as you develop your implementation. + +### Cons of Bootstrapping + +There are also a few disadvantages to bootstrapping the implementation of +a programming language: + + - Once you bootstrap, you forfeit any advanced feature or tooling of + your previous cross-implementation's host language that + you haven't yet reimplemented in your own language. + + - You can't rely on other people with respect to the implementation language: + bugs, tooling, standards, compatibility, release cycles, etc. + You must do it all yourself! + + - You must follow strict constraints (detailed below for Gerbil) + to ensure that at any time you have a working bootstrap implementation + capable of running all programs in your language + including your current implementation. + + - In particular, when making changes to implementation, you cannot make + incompatible changes to any feature used by the implementation itself: + renaming a function, deleting anything, modifying some encoding, etc. + Changes must be introduced in several steps, each generation maintaining + compatibility with both the immediate previous and next generations. + + - The semantics of your language, the meaning of programs written in it, + become more difficult to assess by either humans or automated analyses, + each time you regenerate the bootstrap implementation. + + - In some rare but egregious cases, unintended bugs introduced in one version + of the code can cause problems after several "generations" of bootstrapping + especially in the case of insufficient regression testing, + causing a lot of confusion and ultimately necessitating for developers + to "go back in time" and run again a potentially long chain + of bootstrap versions each suitably fixed. + + - In extreme cases, malicious behavior can be deliberately hidden + in the bootstrap implementation without visible trace in the source code. + See Ken Thompson's famous 1984 Turing Award Lecture + ["Reflections on Trusting Trust"](http://genius.cat-v.org/ken-thompson/texts/trusting-trust/). ## The Chain of Trust -The key premise of Gerbil is simple: it is a meta-language, a -meta-dialect of Scheme that bootstraps from precompiled sources using -Gambit. - -This has implications for the chain of trust regarding the security of -your software: -- There is _no precompiled binary involved_, nor will there ever be - one. The bootstrap is purely source based, which means you can - actually read and audit the bootstrap sources. It is not pretty, but - it is readable; so if you feel so inclined I recommend taking a look - at `GERBIL_SRCDIR/src/bootstrap`. -- Just like Gerbil bootstraps from precompiled Gambit code, Gambit - bootstraps from precompiled C code. This is also auditable, albeit - not an easy read. -- The bootstrap chain is anchored on the C compiler. Ultimately, If - you trust your C compiler, then you can _verifiably_ trust the - Gerbil bootstrap. - -For the Gerbil core team, where we all use GCC, this can be -summarized in a quotable one liner: +The last point on "trusting trust" has implications, whereby +the security of your software against "supply chain attacks" +depends on a chain of trust that includes your host environment +and every part of your language implementation. +Gerbil's choice of bootstrapping with Gambit Scheme as a host language +has several implications: + + - There is _no precompiled binary involved_, nor will there ever be one. + The bootstrap is purely source based, which means you can + actually read and audit the bootstrap sources in Gambit Scheme. + That code is not pretty, yet remains readable and amenable to audit; + if you feel so inclined you may take a look at + `GERBIL_SRCDIR/src/bootstrap`. + + - Just like Gerbil bootstraps from precompiled Gambit code, + Gambit bootstraps from precompiled C code. + This is also auditable, albeit not an easy read. + + - The bootstrap chain is anchored on the C compiler. + Ultimately, If you trust your C compiler, + then you can _verifiably_ trust the Gerbil bootstrap. + +For the Gerbil core team, where we all use GCC, +this can be summarized in a quotable one liner: > In GNU we trust; everyone else pays cash. ## The Long and Arduous History of Bootstrap -The first version of the Gerbil, let's call that the proto-Gerbil, was +The first version of the Gerbil, let’s call that the proto-Gerbil, was bootstrapped by vyzo a long time ago using a hand-written unhygienic interpreter for the core language. Once that was done, vyzo wrote the expander and the first version of the compiler, then the expander @@ -41,10 +144,9 @@ Initially, the runtime was written in Gambit with a set of macros; that was called `gx-gambc`. In the v0.18 release cycle, where Gerbil became fully self hosted, all the traces have disappeared from the source tree, as they are dead code. They still exist in the -repo's commit history if you want to do some historical research and +repo’s commit history if you want to do some historical research and peek into the deep past to understand the evolution of Gerbil. - ## How Gerbil Builds Itself The build process can be summarized in the following steps: @@ -59,7 +161,6 @@ The build process can be summarized in the following steps: 5. the Gerbil core system and universal binary is compiled using the bootstrap compiler with `boot-gxi` (stage 1). 6. the newly compiled `gerbil` binary compiles the rest of the system. - ## Practical Matters ### Recompiling the Bootstrap @@ -71,7 +172,7 @@ This can be accomplished with the following incantations in `$GERBIL_SRCDIR/src` - To compile the bootstrap runtime: ``` -gxc -d bootstrap -s -S -O gerbil/runtime/{gambit,system,util,loader,control,mop,error,thread,syntax,eval,repl,init}.ss gerbil/runtime.ss +gxc -d bootstrap -s -S -O gerbil/runtime/{gambit,util,system,loader,control,c3,mop,error,thread,syntax,eval,repl,init}.ss gerbil/runtime.ss ``` - To compile the bootstrap core prelude: @@ -91,14 +192,69 @@ gxc -d bootstrap -s -S -O gerbil/expander/{common,stx,core,top,module,compile,ro - To compile the bootstrap compiler: ``` -gxc -d bootstrap -s -S -O gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss +gxc -d bootstrap -s -S -O gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss ``` -- Finally, if you've made changes to it, you should also copy the core.ssxi.ss optimizer prelude: +- Finally, if you’ve made changes to it, you should also copy the core.ssxi.ss optimizer prelude: ``` cp gerbil/prelude/core.ssxi.ss bootstrap/gerbil ``` +### Strictures on Modifying Parts of the Gerbil Bootstrap + +***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. + +You *can* make API-incompatible changes from one version to another version, +but this must necessarily involve *several steps* +each of which will be API-compatible: + +- First, you cannot make any backward-incompatible API change, such as + changing the calling convention of a function or macro e.g. + so you must use a symbol instead of a string, + or a 1-based index instead of a 0-based index, etc. +- You *could* modify a function to temporarily accept either a symbol or string + and do a conversion inside; but you obviously cannot determine whether + an user-provided index should be interpreted as 1-based or 0-based. +- The solution is to create a *new* API with *new* names that + must absolutely not clash with the old names. + Add a suffix or prefix such as `*`, `/2` or `%`, or take the opportunity + to give functions better and/or more systematic names. +- The *old* API will temporarily coexist with use the *new* API. +- When shared data structures are involved, the *old* API + as called by the previous bootstrap implementation may have to be + reimplemented in terms of the *new* API used by the next generation. +- The internal representations used by the new API may thus have to include + extra information needed by the old API that it doesn’t need, + or the new API may have to maintain two redundant representations together, + until after the old API is removed. This extra information + or redundant representation can be removed in a later phase. +- You can use the old bootstrap implementation to generate a next version + of the bootstrap implementation that uses the new API, + while the old API remains available to the old version. +- In one or many iterations, you can make sure the old API is not used anywhere + anymore in Gerbil and its libraries. +- Only after you bootstrapped a version of Gerbil that does not at all + use the old API, you may wholly remove that old API: + this is now a backward-compatible change. +- If for some reason you really like the old name or hate the new name, + and “just” want to make an incompatible API change, + the name is made available anew after the old API was wholly removed + and a version that doesn’t use it has been bootstrapped into existence. + You may therefore start a new cycle of API changes as above to modify the API + to use this now-available-again name. +- As a cultural requirement meant to facilitate semantic analysis and + a well-founded reproducible and debuggable bootstrapping history, + we ask you to commit a separate PR for each phase of such an API change, + such that each committed version of Gerbil can be compiled + by the immediate previous one (but usually not by arbitrary older ones, + which would be overconstraining and prevent refactoring and progress). + +These strictures mean that you must stage your changes in multiple commits, +and regenerate the bootstrap compiler at each step. + ### Debugging If you have been making changes in the core system and building a new @@ -124,7 +280,7 @@ will and supports serveral commands: easily navigate code in emacs. - `env` applies the arguments in the build environment. -So if you have made changes and want to rebuild gerbil, you don't have +So if you have made changes and want to rebuild gerbil, you don’t have to redo everything from scratch with `make`; you can simply build the stage you want, and once you are satisfied you can move to the next stage or push your branch so that CI does the job for you. @@ -160,4 +316,4 @@ $ ./build.sh env gerbil test ./... ... ``` -And that's it! Happy Hacking. +And that’s it! Happy Hacking. diff --git a/doc/reference/gerbil/runtime/MOP.md b/doc/reference/gerbil/runtime/MOP.md index 4ea4381d4..2a0b76004 100644 --- a/doc/reference/gerbil/runtime/MOP.md +++ b/doc/reference/gerbil/runtime/MOP.md @@ -150,7 +150,7 @@ Same as `(direct-instance? klass obj)`. super := type-descriptor or #f; the struct type to inherit from fields := fixnum; number of (new) fields in the type name := symbol; the (displayed) type name - plist := alist; type properties + properties := alist; type properties ctor := symbol or #f; id of constructor method field-names := list of symbols or #f; (displayed) field names @@ -305,20 +305,21 @@ Converts *obj* to a list, which conses its type and to its fields. ## make-class-type ``` scheme -(make-class-type id super slots name plist ctor) -> type-descriptor +(make-class-type id name direct-supers direct-slots properties constructor) -> type-descriptor - id := symbol; the type id - super := list of type-descriptors or #f; super types - slots := list of symbols; class slot names - plist := alist; type properties - ctor := symbol or #f; id of constructor method + id := symbol; the unique type id + name := symbol; the possibly not unique source type name used when displaying the class + direct-supers := list of type-descriptors or #f; super types + direct-slots := list of symbols; class slot names + properties := alist; type properties (NB: not a plist) + constructor := symbol or #f; id of constructor method -plist elements: +alist elements: (transparent: . boolean) ; controls whether the object is transparent in equality and printing (final: . boolean) ; controls whether the class if final - (print: slot ...) ; printable slots - (equal: slot ...) ; equality comparable slots + (print: slot ...) ; list of printable slots, or boolean + (equal: slot ...) ; list of equality comparable slots, or boolean ``` Creates a new class type descriptor. diff --git a/doc/reference/std/debug.md b/doc/reference/std/debug.md index eeb6d0aa1..5791baaa1 100644 --- a/doc/reference/std/debug.md +++ b/doc/reference/std/debug.md @@ -399,6 +399,9 @@ Returns true if the `thread`'s message queue is empty. If the `tag` doesn't evaluate to `#f`, print the tag, then on separate lines the source of each expression `expr1` to `exprN` (as by `write`) followed by its single or multiple return values (as by `prn`). +When an expression is preceded by a quoted form (as in `'form`) +then that form is printed instead of the following expression +(which can help when the expression is large and uninformative to print). Finally, return the values of the last expression `exprN`. You can easily wrap an expression in a `DBG` form so as to print its value, @@ -409,11 +412,11 @@ in some part of your code. Example: ```scheme > (define-values (x y z) (values 1 2 3)) -> (* 10 (DBG foo: x (values [(+ x y) z] #t) (+ x y z))) +> (* 10 (DBG foo: x (values [(+ x y) z] #t) 'result (+ x y z))) foo x => 1 (values (@list (+ x y) z) #t) => [3 3] #t - (+ x y z) => 6 + result => 6 60 ``` In the above example the tag `foo` and the indented lines are printed by `DBG`, diff --git a/doc/reference/std/errors.md b/doc/reference/std/errors.md index eb1f8768c..32698f8e4 100644 --- a/doc/reference/std/errors.md +++ b/doc/reference/std/errors.md @@ -426,7 +426,30 @@ displaying the exception with `display-exception`). ``` Invokes `thunk` with an exception handler that dumps the exception -stack trace with `dump-stack-trace!`. +stack trace with `dump-stack-trace!` +if `(dump-stack-trace?)` is true (the default). + +### dump-stack-trace? +```scheme +(define dump-stack-trace? (make-parameter #t)) +``` +A parameter that controls whether some a stack trace will be dumped +when an exception is presented to the user. + +This parameter is notably used by the `display-exception` method for +the `Error` type in the runtime, and by `with-exception-stack-trace` +(see above) that is also used in the default exception handler installed +in threads spawned with `spawn-actor`. +It is also heeded by `exit-with-error` (see below). + +You can `(dump-stack-trace? #f)` +or locally `(parameterize ((dump-stack-trace? #f)) ...)` +to disable this stack trace dump, +in case you are building a program for end-users rather than for developers, +and want to control what limited error output they see. +Or you can re-enable them based on a debug flag at the CLI +in cases you want them to provide you with extra debugging information, +or log bug reports directly to your servers, etc. ### dump-stack-trace! ```scheme @@ -451,6 +474,10 @@ This parameter controls whether `call-with-exit-on-error`, `with-exit-on-error`, will exit if an error is caught, rather than pass on the error and return to the REPL (or let a more fundamental function exit). +If `dump-stack-trace?` is true, then the exception will be reprinted +a second time with `dump-stack-trace?` bound to false, so that +the text of the exception should be printed a second time after the stack dump. + ### call-with-exit-on-error ```scheme (call-with-exit-on-error thunk) diff --git a/doc/reference/std/misc/rtd.md b/doc/reference/std/misc/rtd.md index 31e9c907c..e1745635c 100644 --- a/doc/reference/std/misc/rtd.md +++ b/doc/reference/std/misc/rtd.md @@ -71,6 +71,35 @@ type object. ``` ::: +## type=? +``` scheme +(type=? typ1 type2) -> bool + + typ1 := type object + typ2 := other type object +``` + +Returns true if the two type objects have the same `type-id`. +This is the preferred equality predicate for types. +`eq?` and `eqv?` should also work; +however, `equal?` may yield surprising results, due to how +the Gerbil type descriptor implementation extends Gambit internals. + +::: tip Examples: +``` scheme +> (defstruct a ()) +> (defclass b ()) +> (type-id a::t) +#:a::t45 +> (type-id b::t) +#:b::t49 +> (type=? a::t a::t) +#t +> (type=? a::t b::t) +#f +``` +::: + ## type-name ``` scheme (type-name typ) -> type name | error @@ -112,15 +141,22 @@ isn't a type object. ``` ::: -## type-descriptor-mixin +## type-descriptor-precedence-list ``` scheme -(type-descriptor-mixin typ) -> list | error +(type-descriptor-precedence-list typ) -> list | error typ := type descriptor to inspect ``` -Safe variant of `runtime#type-descriptor-mixin`. Returns the mixins of the type -as a list. *typ* must be a type descriptor or an error is signaled. +Safe variant of `runtime#type-descriptor-precedence-list`. +Returns all the super-classes of the type as a list. +The precedence-list is sorted in the order used for method resolution, +from the most-specific element first (not including the type-descriptor itself) +to its least-specific super-class (e.g. a base class it may share with other super-classes, if any). +The precedence-list includes neither the type itself, +nor the special pseudo-classes `object` and `t` as used by `:std/generic` +(but not used by methods defined with the builtin `defmethod`). +*typ* must be a type descriptor or an error is signaled. ::: tip Examples: ``` scheme @@ -137,81 +173,97 @@ as a list. *typ* must be a type descriptor or an error is signaled. ``` ::: -## type-descriptor-fields +## type-descriptor-all-slots ``` scheme -(type-descriptor-fields typ) -> fixnum | error +(type-descriptor-fields typ) -> vector | error typ := type descriptor to inspect ``` -Safe variant of `runtime#type-descriptor-fields`. Returns the number of fields -of the type as a fixnum. *typ* must be a type descriptor or an error is -signaled. +Safe variant of `runtime#type-descriptor-all-slots`. +Returns a vector containing names of the slots of a direct instance of the type, +including slots inherited from super-classes. +The first entry of the vector returned is `#f`, because the slot indexes are 1-based, +with the 0th entry in a direct instance's underlying vector being the type descriptor itself. +The slots have the same index as in the value returned by `struct->list`. +*typ* must be a type descriptor or an error is signaled. ::: tip Examples: ``` scheme -> (defstruct color (r g b a)) -> (type-descriptor-fields color::t) -4 +> (defstruct point (x y)) +> (defclass color (r g b a)) +> (defclass (3d-point point) (z)) +> (defclass (colored-3d-point color 3d-point) ()) +> (type-descriptor-all-slots colored-3d-point::t) +#(#f x y z r g b a) +> (struct->list (colored-3d-point r: 1 g: 2 b: 3 a: 4 x: 10 y: 20 z: 30)) +(# 10 20 30 1 2 3 4) ``` ::: -## type-descriptor-plist +## type-descriptor-slot-table ``` scheme -(type-descriptor-plist typ) -> alist | error +(type-descriptor-slot-table typ) -> hash-table | error typ := type descriptor to inspect ``` -Safe variant of `runtime#type-descriptor-plist`. Returns the type properties of -the type as an alist. *typ* must be a type descriptor or an error is signaled. +Safe variant of `runtime#type-descriptor-slot-table`. +Returns the slots of the type as a hash-table, associated to their offset in a direct instance +(as per `type-descriptor-all-slots` above, e.g. `struct->list`). *typ* must be a type descriptor or an error is signaled. +Note that the offsets are 1-based, since offset 0 will be used by the type descriptor itself. ::: tip Examples: ``` scheme -> (defstruct vec4d (x y z w) final: #t) -> (type-descriptor-plist vec4d::t) -((fields: x y z w) (final: . #t)) +> (defclass color (r g b a)) +> (type-descriptor-slot-table color::t) +# +> (hash->list #6) +((r . 1) (g . 2) (b . 3) (a: . 4) (g: . 2) (b: . 3) (r: . 1) (a . 4)) ``` ::: -## type-descriptor-ctor +## type-descriptor-properties ``` scheme -(type-descriptor-ctor typ) -> symbol | error +(type-descriptor-properties typ) -> alist | error typ := type descriptor to inspect ``` -Safe variant of `runtime#type-descriptor-ctor`. Returns the constructor ID of -the type as a symbol. *typ* must be a type descriptor or an error is signaled. +Safe variant of `runtime#type-descriptor-properties`. Returns the type properties of +the type as an alist (NB: not a plist, whatever the name suggests). +*typ* must be a type descriptor or an error is signaled. ::: tip Examples: ``` scheme -> (defclass A (x) constructor: :init!) -> (defmethod {:init! A} - (lambda (self x) - (set! (A-x self) (* x 2)))) -> (type-descriptor-ctor A::t) -:init! +> (defstruct point (x y)) +> (defclass color (r g b a)) +> (defclass (3d-point point) (z)) +> (defclass (my-point color 3d-point) (name id) final: #t) +> (type-descriptor-properties my-point::t) +((direct-slots: name id) (direct-supers: # #) (final: . #t)) ``` ::: -## type-descriptor-slots +## type-descriptor-constructor ``` scheme -(type-descriptor-slots typ) -> hash-table | error +(type-descriptor-constructor typ) -> symbol | error typ := type descriptor to inspect ``` -Safe variant of `runtime#type-descriptor-slots`. Returns the slots of the type -as a hash-table. *typ* must be a type descriptor or an error is signaled. +Safe variant of `runtime#type-descriptor-constructor`. +Returns the constructor ID of the type as a symbol. +*typ* must be a type descriptor or an error is signaled. ::: tip Examples: ``` scheme -> (defclass color (r g b a)) -> (type-descriptor-slots color::t) -#
-> (hash->list #6) -((r . 0) (g . 1) (b . 2) (a: . 3) (g: . 1) (b: . 2) (r: . 0) (a . 3)) +> (defclass A (x) constructor: :init!) +> (defmethod {:init! A} + (lambda (self x) + (set! (A-x self) (* x 2)))) +> (type-descriptor-constructor A::t) +:init! ``` ::: diff --git a/doc/reference/std/net/httpd.md b/doc/reference/std/net/httpd.md index 861e3451b..18e8a10cd 100644 --- a/doc/reference/std/net/httpd.md +++ b/doc/reference/std/net/httpd.md @@ -341,3 +341,4 @@ Sets the request input buffer size; default is 4KB. ``` Sets the response output buffer size; default is 4KB. + diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index 7d751a256..3b9f019b1 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 1701718669) + (define gerbil/compiler/base::timestamp 1704735496) (begin (define gxc#current-compile-symbol-table (make-parameter '#f)) (define gxc#current-compile-runtime-sections (make-parameter '#f)) @@ -82,7 +82,11 @@ (declare (not safe)) (##vector-set! _self596_ '2 __tmp5416))) (error '"struct-instance-init!: too many arguments for struct" - _self596_)))) + _self596_ + '2 + (let () + (declare (not safe)) + (##vector-length _self596_)))))) (let () (declare (not safe)) (bind-method! gxc#symbol-table::t ':init! gxc#symbol-table:::init! '#f)) diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index d81724a93..3656fa71a 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssi +++ b/src/bootstrap/gerbil/compiler/compile.ssi @@ -9,16 +9,16 @@ namespace: gxc (in: :gerbil/core ) (spec: (:gerbil/gambit) - (0 f32vector? 0 f32vector?) - (0 s8vector? 0 s8vector?) (0 s64vector? 0 s64vector?) + (0 s8vector? 0 s8vector?) (0 s32vector? 0 s32vector?) - (0 u16vector? 0 u16vector?) - (0 f64vector? 0 f64vector?) + (0 u8vector? 0 u8vector?) (0 u64vector? 0 u64vector?) + (0 u16vector? 0 u16vector?) (0 u32vector? 0 u32vector?) - (0 u8vector? 0 u8vector?) - (0 s16vector? 0 s16vector?))) + (0 s16vector? 0 s16vector?) + (0 f64vector? 0 f64vector?) + (0 f32vector? 0 f32vector?))) (%#export #t) (%#define-runtime gambit-annotations gxc#gambit-annotations) (%#define-runtime current-compile-methods gxc#current-compile-methods) diff --git a/src/bootstrap/gerbil/compiler/compile__0.scm b/src/bootstrap/gerbil/compiler/compile__0.scm index dcd5fc778..8017aa400 100644 --- a/src/bootstrap/gerbil/compiler/compile__0.scm +++ b/src/bootstrap/gerbil/compiler/compile__0.scm @@ -1,10 +1,10 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/compile::timestamp 1701718670) + (define gerbil/compiler/compile::timestamp 1704735496) (begin (define gxc#_g18463_ (gx#core-deserialize-mark - '(0 (hd . _hd16778_) (else . _else16755_)) + '(0 (else . _else16755_) (hd . _hd16778_)) (gx#current-expander-context))) (define gxc#_g18464_ (##structure @@ -15,7 +15,7 @@ (list gxc#_g18463_))) (define gxc#_g18469_ (gx#core-deserialize-mark - '(0 (hd . _hd16839_) (else . _else16816_)) + '(0 (else . _else16816_) (hd . _hd16839_)) (gx#current-expander-context))) (define gxc#_g18470_ (##structure @@ -26,7 +26,7 @@ (list gxc#_g18469_))) (define gxc#_g18475_ (gx#core-deserialize-mark - '(0 (hd . _hd16901_) (else . _else16878_)) + '(0 (else . _else16878_) (hd . _hd16901_)) (gx#current-expander-context))) (define gxc#_g18476_ (##structure @@ -37,7 +37,7 @@ (list gxc#_g18475_))) (define gxc#_g18481_ (gx#core-deserialize-mark - '(0 (hd . _hd16964_) (else . _else16941_)) + '(0 (else . _else16941_) (hd . _hd16964_)) (gx#current-expander-context))) (define gxc#_g18482_ (##structure @@ -17699,7 +17699,11 @@ (declare (not safe)) (##vector-set! _self7336_ '4 '()))) (error '"struct-instance-init!: too many arguments for struct" - _self7336_)))) + _self7336_ + '4 + (let () + (declare (not safe)) + (##vector-length _self7336_)))))) (let () (declare (not safe)) (bind-method! gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index c070ceb98..f98e5208e 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 1701718675) + (define gerbil/compiler/driver::timestamp 1704735502) (begin (define gxc#default-gerbil-gsc (path-expand '"gsc" (path-expand '"bin" (path-expand '"~~")))) @@ -55,6 +55,7 @@ "gerbil/runtime/system" "gerbil/runtime/loader" "gerbil/runtime/control" + "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" "gerbil/runtime/thread" diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index 50e8758f0..e872e8acb 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1701718673) + (define gerbil/compiler/optimize-ann::timestamp 1704735500) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index f85ecf3fd..7ec926b97 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1701718670) + (define gerbil/compiler/optimize-base::timestamp 1704735497) (begin (define gxc#current-compile-optimizer-info (make-parameter '#f)) (define gxc#current-compile-mutators (make-parameter '#f)) @@ -93,7 +93,11 @@ (declare (not safe)) (##vector-set! _self20720_ '3 __tmp20726))) (error '"struct-instance-init!: too many arguments for struct" - _self20720_)))) + _self20720_ + '3 + (let () + (declare (not safe)) + (##vector-length _self20720_)))))) (let () (declare (not safe)) (bind-method! @@ -959,7 +963,11 @@ (##vector-set! _self20530_ '6 _plist20536_)) (let () (declare (not safe)) (##vector-set! _self20530_ '7 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self20530_)))) + _self20530_ + '7 + (let () + (declare (not safe)) + (##vector-length _self20530_)))))) (let () (declare (not safe)) (bind-method! gxc#!struct-type::t ':init! gxc#!struct-type:::init! '#f)) @@ -1002,7 +1010,11 @@ (##vector-set! _self20399_ '7 _plist20406_)) (let () (declare (not safe)) (##vector-set! _self20399_ '8 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self20399_)))) + _self20399_ + '8 + (let () + (declare (not safe)) + (##vector-length _self20399_)))))) (let () (declare (not safe)) (bind-method! gxc#!class-type::t ':init! gxc#!class-type:::init! '#f)) @@ -1036,7 +1048,11 @@ (declare (not safe)) (##vector-set! _self20243_ '5 _typedecl20248_))) (error '"struct-instance-init!: too many arguments for struct" - _self20243_)))) + _self20243_ + '5 + (let () + (declare (not safe)) + (##vector-length _self20243_)))))) (define gxc#!lambda:::init!__0 (lambda (_self20253_ _id20254_ _arity20255_ _dispatch20256_) (let* ((_inline20258_ '#f) (_typedecl20260_ '#f)) @@ -1063,7 +1079,11 @@ (declare (not safe)) (##vector-set! _self20253_ '5 _typedecl20260_))) (error '"struct-instance-init!: too many arguments for struct" - _self20253_))))) + _self20253_ + '5 + (let () + (declare (not safe)) + (##vector-length _self20253_))))))) (define gxc#!lambda:::init!__1 (lambda (_self20262_ _id20263_ @@ -1094,7 +1114,11 @@ (declare (not safe)) (##vector-set! _self20262_ '5 _typedecl20268_))) (error '"struct-instance-init!: too many arguments for struct" - _self20262_))))) + _self20262_ + '5 + (let () + (declare (not safe)) + (##vector-length _self20262_))))))) (define gxc#!lambda:::init! (lambda _g20738_ (let ((_g20737_ (let () (declare (not safe)) (##length _g20738_)))) @@ -1162,7 +1186,11 @@ '5 _typedecl20275_))) (error '"struct-instance-init!: too many arguments for struct" - _self20270_))) + _self20270_ + '5 + (let () + (declare (not safe)) + (##vector-length _self20270_))))) _g20738_)) (else (##raise-wrong-number-of-arguments-exception diff --git a/src/bootstrap/gerbil/compiler/optimize-call__0.scm b/src/bootstrap/gerbil/compiler/optimize-call__0.scm index afedf4114..aa8f57889 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1701718675) + (define gerbil/compiler/optimize-call::timestamp 1704735501) (begin (define gxc#&optimize-call (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm index 8af5a1578..1998f5c69 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1701718672) + (define gerbil/compiler/optimize-spec::timestamp 1704735498) (begin (define gxc#&generate-method-specializers (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index 5face859a..18af158f8 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1701718670) + (define gerbil/compiler/optimize-top::timestamp 1704735497) (begin (define gxc#&collect-top-level-type-info (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index 635274c98..f40c0252c 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1701718670) + (define gerbil/compiler/optimize-xform::timestamp 1704735497) (begin (define gxc#&identity-expression (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index 4080c0113..856b5da5d 100644 --- a/src/bootstrap/gerbil/compiler/optimize__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1701718675) + (define gerbil/compiler/optimize::timestamp 1704735501) (begin (define gxc#optimizer-info-init! (lambda () diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index 9b6dd38b1..a852a0da4 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -327,6 +327,9 @@ namespace: gerbil/core (pgetq pgetq) (pgetv pgetv) (pget pget) + (append-reverse append-reverse) + (append1! append1!) + (remove-nulls! remove-nulls!) (subvector subvector) (subvector->list subvector->list) (subvector-fill! subvector-fill!) @@ -418,10 +421,23 @@ namespace: gerbil/core (make-uninterned-keyword make-uninterned-keyword) (symbol->keyword symbol->keyword) (keyword->symbol keyword->symbol) + (c3-linearize c3-linearize) (type-descriptor? type-descriptor?) + (type-id type-id) + (type-descriptor-precedence-all-slots + type-descriptor-precedence-all-slots) + (type-descriptor-precedence-list + type-descriptor-precedence-list) + (type-descriptor-properties type-descriptor-properties) + (type-descriptor-constructor type-descriptor-constructor) + (type-descriptor-slot-table type-descriptor-slot-table) + (type-descriptor-methods type-descriptor-methods) + (type-final? type-final?) + (type-struct? type-struct?) (struct-type? struct-type?) (class-type? class-type?) (make-struct-type make-struct-type) + (make-struct-type* make-struct-type*) (make-struct-predicate make-struct-predicate) (make-struct-field-accessor make-struct-field-accessor) (make-struct-field-mutator make-struct-field-mutator) @@ -429,6 +445,9 @@ namespace: gerbil/core make-struct-field-unchecked-accessor) (make-struct-field-unchecked-mutator make-struct-field-unchecked-mutator) + (base-struct base-struct) + (class-precedence-list class-precedence-list) + (struct-precedence-list struct-precedence-list) (struct-field-ref struct-field-ref) (struct-field-set! struct-field-set!) (unchecked-field-ref unchecked-field-ref) @@ -444,6 +463,7 @@ namespace: gerbil/core (class-slot-ref class-slot-ref) (class-slot-set! class-slot-set!) (class-slot-offset class-slot-offset) + (class-slot-offset* class-slot-offset*) (unchecked-slot-ref unchecked-slot-ref) (unchecked-slot-set! unchecked-slot-set!) (object? object?) @@ -454,6 +474,7 @@ namespace: gerbil/core (direct-struct-instance? direct-struct-instance?) (direct-class-instance? direct-class-instance?) (make-object make-object) + (make-object* make-object*) (struct-copy struct-copy) (struct->list struct->list) (class->list class->list) @@ -477,6 +498,8 @@ namespace: gerbil/core (call-next-method call-next-method) (struct-subtype? struct-subtype?) (class-subtype? class-subtype?) + (substruct? substruct?) + (subclass? subclass?) (write-style write-style) (current-error-port current-error-port) (make-promise make-promise) @@ -495,6 +518,7 @@ namespace: gerbil/core (error-irritants error-irritants) (error-trace error-trace) (display-exception display-exception) + (dump-stack-trace? dump-stack-trace?) (exit exit) (getenv getenv) (setenv setenv) @@ -586,6 +610,12 @@ namespace: gerbil/core (gerbil-version-string gerbil-version-string) (gerbil-system-version-string gerbil-system-version-string) (system-version system-version) + (gerbil-system-manifest gerbil-system-manifest) + (build-manifest build-manifest) + (build-manifest/layer build-manifest/layer) + (build-manifest/head build-manifest/head) + (display-build-manifest display-build-manifest) + (build-manifest-string build-manifest-string) (gerbil-system gerbil-system) (system-type system-type) (gerbil-runtime-smp? gerbil-runtime-smp?) @@ -939,7 +969,10 @@ namespace: gerbil/core |gerbil/core$$[:0:]#unless|) (%#define-syntax syntax-error - |gerbil/core$$[:0:]#syntax-error|))) + |gerbil/core$$[:0:]#syntax-error|) + (%#define-syntax + defmutable + |gerbil/core$$[:0:]#defmutable|))) (%#import (in: #f ) (phi: 1 (in: #f ))) (%#module @@ -1160,16 +1193,22 @@ namespace: gerbil/core 1 runtime-type-name-set! runtime-type-name-set!) - (spec: 1 runtime-type-ctor runtime-type-ctor) (spec: 1 - runtime-type-ctor-set! - runtime-type-ctor-set!) - (spec: 1 runtime-type-plist runtime-type-plist) + runtime-type-constructor + runtime-type-constructor) (spec: 1 - runtime-type-plist-set! - runtime-type-plist-set!) + runtime-type-constructor-set! + runtime-type-constructor-set!) + (spec: + 1 + runtime-type-properties + runtime-type-properties) + (spec: + 1 + runtime-type-properties-set! + runtime-type-properties-set!) (spec: 1 runtime-struct-fields @@ -1322,11 +1361,11 @@ namespace: gerbil/core runtime-type-name |gerbil/core$$[1]#runtime-type-name|) (%#define-runtime - runtime-type-ctor - |gerbil/core$$[1]#runtime-type-ctor|) + runtime-type-constructor + |gerbil/core$$[1]#runtime-type-constructor|) (%#define-runtime - runtime-type-plist - |gerbil/core$$[1]#runtime-type-plist|) + runtime-type-properties + |gerbil/core$$[1]#runtime-type-properties|) (%#define-runtime runtime-type-id-set! |gerbil/core$$[1]#runtime-type-id-set!|) @@ -1336,9 +1375,21 @@ namespace: gerbil/core (%#define-runtime runtime-type-name-set! |gerbil/core$$[1]#runtime-type-name-set!|) + (%#define-runtime + runtime-type-constructor-set! + |gerbil/core$$[1]#runtime-type-constructor-set!|) + (%#define-runtime + runtime-type-properties-set! + |gerbil/core$$[1]#runtime-type-properties-set!|) + (%#define-runtime + runtime-type-ctor + |gerbil/core$$[1]#runtime-type-ctor|) (%#define-runtime runtime-type-ctor-set! |gerbil/core$$[1]#runtime-type-ctor-set!|) + (%#define-runtime + runtime-type-plist + |gerbil/core$$[1]#runtime-type-plist|) (%#define-runtime runtime-type-plist-set! |gerbil/core$$[1]#runtime-type-plist-set!|) diff --git a/src/bootstrap/gerbil/core.ssxi.ss b/src/bootstrap/gerbil/core.ssxi.ss index afb06c212..416db40ee 100644 --- a/src/bootstrap/gerbil/core.ssxi.ss +++ b/src/bootstrap/gerbil/core.ssxi.ss @@ -45,7 +45,9 @@ package: gerbil ...) (%#call (%#ref error) (%#quote "struct-instance-init!: too many arguments for struct") - (%#ref self))))) + (%#ref self) + (%#quote count) + (%#call (%#ref ##vector-length) (%#ref self)))))) ((%#call recur self arg ...) (with-syntax (($self (make-symbol (gensym '__self)))) #'(%#let-values ((($self) self)) diff --git a/src/bootstrap/gerbil/core__10.scm b/src/bootstrap/gerbil/core__10.scm index c310b7b26..6163972d3 100644 --- a/src/bootstrap/gerbil/core__10.scm +++ b/src/bootstrap/gerbil/core__10.scm @@ -1,107 +1,107 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[1]#_g42943_| + (define |gerbil/core$[1]#_g42782_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42944_| + (define |gerbil/core$[1]#_g42783_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42948_| + (define |gerbil/core$[1]#_g42787_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42949_| + (define |gerbil/core$[1]#_g42788_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42950_| + (define |gerbil/core$[1]#_g42789_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42952_| + (define |gerbil/core$[1]#_g42791_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42953_| + (define |gerbil/core$[1]#_g42792_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42954_| + (define |gerbil/core$[1]#_g42793_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42955_| + (define |gerbil/core$[1]#_g42794_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42956_| + (define |gerbil/core$[1]#_g42795_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42957_| + (define |gerbil/core$[1]#_g42796_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42958_| + (define |gerbil/core$[1]#_g42797_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42959_| + (define |gerbil/core$[1]#_g42798_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42960_| + (define |gerbil/core$[1]#_g42799_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42961_| + (define |gerbil/core$[1]#_g42800_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43024_| + (define |gerbil/core$[1]#_g42863_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43046_| + (define |gerbil/core$[1]#_g42983_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43049_| + (define |gerbil/core$[1]#_g42986_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43050_| + (define |gerbil/core$[1]#_g42987_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43056_| + (define |gerbil/core$[1]#_g42993_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43057_| + (define |gerbil/core$[1]#_g42994_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43058_| + (define |gerbil/core$[1]#_g43007_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43059_| + (define |gerbil/core$[1]#_g43008_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43060_| + (define |gerbil/core$[1]#_g43009_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) (begin (define |gerbil/core$[1]#match-macro::t| @@ -115,3595 +115,3595 @@ (define |gerbil/core$[1]#match-macro?| (make-class-predicate |gerbil/core$[1]#match-macro::t|)) (define |gerbil/core$[1]#make-match-macro| - (lambda _$args30347_ + (lambda _$args30281_ (apply make-class-instance |gerbil/core$[1]#match-macro::t| - _$args30347_))) + _$args30281_))) (define |gerbil/core$[1]#syntax-local-match-macro?| - (lambda (_stx30344_) - (if (gx#identifier? _stx30344_) - (let ((__tmp42942 (gx#syntax-local-value _stx30344_ false))) + (lambda (_stx30278_) + (if (gx#identifier? _stx30278_) + (let ((__tmp42781 (gx#syntax-local-value _stx30278_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#match-macro::t| - __tmp42942)) + __tmp42781)) '#f))) (define |gerbil/core$[1]#parse-match-pattern__%| - (lambda (_stx28650_ _match-stx28652_) - (letrec ((_parse128654_ - (lambda (_hd29007_) - (let* ((___stx4012440125_ _hd29007_) - (_g2903329175_ + (lambda (_stx28584_ _match-stx28586_) + (letrec ((_parse128588_ + (lambda (_hd28941_) + (let* ((___stx4001440015_ _hd28941_) + (_g2896729109_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4012440125_)))) - (let ((___kont4012740128_ - (lambda (_L30107_ _L30109_) - (let* ((___stx4004440045_ _L30107_) - (_g3012630159_ + ___stx4001440015_)))) + (let ((___kont4001740018_ + (lambda (_L30041_ _L30043_) + (let* ((___stx3993439935_ _L30041_) + (_g3006030093_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4004440045_)))) - (let ((___kont4004740048_ + ___stx3993439935_)))) + (let ((___kont3993739938_ (lambda () - (cons '?: (cons _L30109_ '())))) - (___kont4004940050_ - (lambda (_L30300_) + (cons '?: (cons _L30043_ '())))) + (___kont3993939940_ + (lambda (_L30234_) (cons '?: - (cons _L30109_ + (cons _L30043_ (cons (let () (declare (not safe)) - (_parse128654_ - _L30300_)) + (_parse128588_ + _L30234_)) '()))))) - (___kont4005140052_ - (lambda (_L30270_) + (___kont3994139942_ + (lambda (_L30204_) (cons '?: - (cons _L30109_ + (cons _L30043_ (cons '=>: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_parse128654_ _L30270_)) + (_parse128588_ _L30204_)) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4005340054_ - (lambda (_L30221_ _L30223_) + (___kont3994339944_ + (lambda (_L30155_ _L30157_) (cons '?: - (cons _L30109_ + (cons _L30043_ (cons ':: - (cons _L30223_ + (cons _L30157_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '=>: (cons (let () (declare (not safe)) - (_parse128654_ _L30221_)) + (_parse128588_ _L30155_)) '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4005540056_ + (___kont3994539946_ (lambda () (let () (declare (not safe)) - (_parse-error28661_ _hd29007_))))) - (let ((_g3012230311_ + (_parse-error28595_ _hd28941_))))) + (let ((_g3005630245_ (lambda () (if (gx#stx-pair? - ___stx4004440045_) - (let ((_e3013130290_ + ___stx3993439935_) + (let ((_e3006530224_ (gx#syntax-e - ___stx4004440045_))) - (let ((_tl3012930297_ + ___stx3993439935_))) + (let ((_tl3006330231_ (let () (declare (not safe)) - (##cdr _e3013130290_))) - (_hd3013030294_ + (##cdr _e3006530224_))) + (_hd3006430228_ (let () (declare (not safe)) - (##car _e3013130290_)))) + (##car _e3006530224_)))) (if (gx#stx-null? - _tl3012930297_) - (___kont4004940050_ - _hd3013030294_) + _tl3006330231_) + (___kont3993939940_ + _hd3006430228_) (if (gx#identifier? - _hd3013030294_) + _hd3006430228_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g42944_| - _hd3013030294_) - (if (gx#stx-pair? _tl3012930297_) - (let ((_e3013830260_ (gx#syntax-e _tl3012930297_))) - (let ((_tl3013630267_ + |gerbil/core$[1]#_g42783_| + _hd3006430228_) + (if (gx#stx-pair? _tl3006330231_) + (let ((_e3007230194_ (gx#syntax-e _tl3006330231_))) + (let ((_tl3007030201_ (let () (declare (not safe)) - (##cdr _e3013830260_))) - (_hd3013730264_ + (##cdr _e3007230194_))) + (_hd3007130198_ (let () (declare (not safe)) - (##car _e3013830260_)))) - (if (gx#stx-null? _tl3013630267_) - (___kont4005140052_ _hd3013730264_) - (___kont4005540056_)))) - (___kont4005540056_)) - (___kont4005540056_)) - (if (gx#stx-datum? _hd3013030294_) - (let ((_e3014430187_ (gx#stx-e _hd3013030294_))) - (if (equal? _e3014430187_ '::) - (if (gx#stx-pair? _tl3012930297_) - (let ((_e3014730191_ - (gx#syntax-e _tl3012930297_))) - (let ((_tl3014530198_ + (##car _e3007230194_)))) + (if (gx#stx-null? _tl3007030201_) + (___kont3994139942_ _hd3007130198_) + (___kont3994539946_)))) + (___kont3994539946_)) + (___kont3994539946_)) + (if (gx#stx-datum? _hd3006430228_) + (let ((_e3007830121_ (gx#stx-e _hd3006430228_))) + (if (equal? _e3007830121_ '::) + (if (gx#stx-pair? _tl3006330231_) + (let ((_e3008130125_ + (gx#syntax-e _tl3006330231_))) + (let ((_tl3007930132_ (let () (declare (not safe)) - (##cdr _e3014730191_))) - (_hd3014630195_ + (##cdr _e3008130125_))) + (_hd3008030129_ (let () (declare (not safe)) - (##car _e3014730191_)))) - (if (gx#stx-pair? _tl3014530198_) - (let ((_e3015030201_ - (gx#syntax-e _tl3014530198_))) - (let ((_tl3014830208_ + (##car _e3008130125_)))) + (if (gx#stx-pair? _tl3007930132_) + (let ((_e3008430135_ + (gx#syntax-e _tl3007930132_))) + (let ((_tl3008230142_ (let () (declare (not safe)) - (##cdr _e3015030201_))) - (_hd3014930205_ + (##cdr _e3008430135_))) + (_hd3008330139_ (let () (declare (not safe)) - (##car _e3015030201_)))) + (##car _e3008430135_)))) (if (gx#identifier? - _hd3014930205_) + _hd3008330139_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42943_| - _hd3014930205_) + |gerbil/core$[1]#_g42782_| + _hd3008330139_) (if (gx#stx-pair? - _tl3014830208_) - (let ((_e3015330211_ + _tl3008230142_) + (let ((_e3008730145_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3014830208_))) - (let ((_tl3015130218_ - (let () (declare (not safe)) (##cdr _e3015330211_))) - (_hd3015230215_ + (gx#syntax-e _tl3008230142_))) + (let ((_tl3008530152_ + (let () (declare (not safe)) (##cdr _e3008730145_))) + (_hd3008630149_ (let () (declare (not safe)) - (##car _e3015330211_)))) - (if (gx#stx-null? _tl3015130218_) - (___kont4005340054_ _hd3015230215_ _hd3014630195_) - (___kont4005540056_)))) - (___kont4005540056_)) - (___kont4005540056_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4005540056_)))) - (___kont4005540056_)))) - (___kont4005540056_)) - (___kont4005540056_))) - (___kont4005540056_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4005540056_))))) - (if (gx#stx-null? ___stx4004440045_) - (___kont4004740048_) + (##car _e3008730145_)))) + (if (gx#stx-null? _tl3008530152_) + (___kont3994339944_ _hd3008630149_ _hd3008030129_) + (___kont3994539946_)))) + (___kont3994539946_)) + (___kont3994539946_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3994539946_)))) + (___kont3994539946_)))) + (___kont3994539946_)) + (___kont3994539946_))) + (___kont3994539946_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3994539946_))))) + (if (gx#stx-null? ___stx3993439935_) + (___kont3993739938_) (let () (declare (not safe)) - (_g3012230311_)))))))) - (___kont4012940130_ - (lambda (_L30012_) - (let* ((___stx4002640027_ _L30012_) - (_g3002430035_ + (_g3005630245_)))))))) + (___kont4001940020_ + (lambda (_L29946_) + (let* ((___stx3991639917_ _L29946_) + (_g2995829969_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4002640027_)))) - (let ((___kont4002940030_ - (lambda (_L30063_) + ___stx3991639917_)))) + (let ((___kont3991939920_ + (lambda (_L29997_) (let () (declare (not safe)) - (_parse128654_ _L30063_)))) - (___kont4003140032_ + (_parse128588_ _L29997_)))) + (___kont3992139922_ (lambda () (cons 'and: (gx#stx-map - _parse128654_ - _L30012_))))) - (if (gx#stx-pair? ___stx4002640027_) - (let ((_e3002930053_ - (gx#syntax-e ___stx4002640027_))) - (let ((_tl3002730060_ + _parse128588_ + _L29946_))))) + (if (gx#stx-pair? ___stx3991639917_) + (let ((_e2996329987_ + (gx#syntax-e ___stx3991639917_))) + (let ((_tl2996129994_ (let () (declare (not safe)) - (##cdr _e3002930053_))) - (_hd3002830057_ + (##cdr _e2996329987_))) + (_hd2996229991_ (let () (declare (not safe)) - (##car _e3002930053_)))) - (if (gx#stx-null? _tl3002730060_) - (___kont4002940030_ - _hd3002830057_) - (___kont4003140032_)))) - (___kont4003140032_)))))) - (___kont4013140132_ - (lambda (_L29927_) - (let* ((___stx4000840009_ _L29927_) - (_g2993929950_ + (##car _e2996329987_)))) + (if (gx#stx-null? _tl2996129994_) + (___kont3991939920_ + _hd2996229991_) + (___kont3992139922_)))) + (___kont3992139922_)))))) + (___kont4002140022_ + (lambda (_L29861_) + (let* ((___stx3989839899_ _L29861_) + (_g2987329884_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4000840009_)))) - (let ((___kont4001140012_ - (lambda (_L29978_) + ___stx3989839899_)))) + (let ((___kont3990139902_ + (lambda (_L29912_) (let () (declare (not safe)) - (_parse128654_ _L29978_)))) - (___kont4001340014_ + (_parse128588_ _L29912_)))) + (___kont3990339904_ (lambda () (cons 'or: (gx#stx-map - _parse128654_ - _L29927_))))) - (if (gx#stx-pair? ___stx4000840009_) - (let ((_e2994429968_ - (gx#syntax-e ___stx4000840009_))) - (let ((_tl2994229975_ + _parse128588_ + _L29861_))))) + (if (gx#stx-pair? ___stx3989839899_) + (let ((_e2987829902_ + (gx#syntax-e ___stx3989839899_))) + (let ((_tl2987629909_ (let () (declare (not safe)) - (##cdr _e2994429968_))) - (_hd2994329972_ + (##cdr _e2987829902_))) + (_hd2987729906_ (let () (declare (not safe)) - (##car _e2994429968_)))) - (if (gx#stx-null? _tl2994229975_) - (___kont4001140012_ - _hd2994329972_) - (___kont4001340014_)))) - (___kont4001340014_)))))) - (___kont4013340134_ - (lambda (_L29897_) + (##car _e2987829902_)))) + (if (gx#stx-null? _tl2987629909_) + (___kont3990139902_ + _hd2987729906_) + (___kont3990339904_)))) + (___kont3990339904_)))))) + (___kont4002340024_ + (lambda (_L29831_) (cons 'not: (cons (let () (declare (not safe)) - (_parse128654_ _L29897_)) + (_parse128588_ _L29831_)) '())))) - (___kont4013540136_ - (lambda (_L29853_ _L29855_) + (___kont4002540026_ + (lambda (_L29787_ _L29789_) (cons 'cons: (cons (let () (declare (not safe)) - (_parse128654_ _L29855_)) + (_parse128588_ _L29789_)) (cons (let () (declare (not safe)) - (_parse128654_ _L29853_)) + (_parse128588_ _L29787_)) '()))))) - (___kont4013740138_ - (lambda (_L29797_ _L29799_ _L29800_) - (if (gx#stx-null? _L29797_) + (___kont4002740028_ + (lambda (_L29731_ _L29733_ _L29734_) + (if (gx#stx-null? _L29731_) (cons 'cons: (cons (let () (declare (not safe)) - (_parse128654_ _L29800_)) + (_parse128588_ _L29734_)) (cons (let () (declare (not safe)) - (_parse128654_ - _L29799_)) + (_parse128588_ + _L29733_)) '()))) (cons 'cons: (cons (let () (declare (not safe)) - (_parse128654_ _L29800_)) - (cons (let ((__tmp42945 + (_parse128588_ _L29734_)) + (cons (let ((__tmp42784 (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'cons*) - (cons _L29799_ _L29797_)))) + (cons _L29733_ _L29731_)))) (declare (not safe)) - (_parse128654_ __tmp42945)) + (_parse128588_ __tmp42784)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (___kont4013940140_ - (lambda (_L29749_) + (___kont4002940030_ + (lambda (_L29683_) (let () (declare (not safe)) - (_parse-list28656_ _L29749_)))) - (___kont4014140142_ - (lambda (_L29719_) + (_parse-list28590_ _L29683_)))) + (___kont4003140032_ + (lambda (_L29653_) (cons 'box: (cons (let () (declare (not safe)) - (_parse128654_ _L29719_)) + (_parse128588_ _L29653_)) '())))) - (___kont4014340144_ - (lambda (_L29682_) + (___kont4003340034_ + (lambda (_L29616_) (cons 'box: (cons (let () (declare (not safe)) - (_parse128654_ _L29682_)) + (_parse128588_ _L29616_)) '())))) - (___kont4014540146_ - (lambda (_L29658_) + (___kont4003540036_ + (lambda (_L29592_) (let () (declare (not safe)) - (_parse128654_ _L29658_)))) - (___kont4014740148_ - (lambda (_L29620_) + (_parse128588_ _L29592_)))) + (___kont4003740038_ + (lambda (_L29554_) (cons 'values: (cons (let () (declare (not safe)) - (_parse-vector28657_ _L29620_)) + (_parse-vector28591_ _L29554_)) '())))) - (___kont4014940150_ - (lambda (_L29592_) + (___kont4003940040_ + (lambda (_L29526_) (cons 'vector: (cons (let () (declare (not safe)) - (_parse-vector28657_ _L29592_)) + (_parse-vector28591_ _L29526_)) '())))) - (___kont4015140152_ - (lambda (_L29553_) + (___kont4004140042_ + (lambda (_L29487_) (cons 'vector: - (cons (let ((__tmp42946 - (foldr (lambda (_g2956629569_ + (cons (let ((__tmp42785 + (foldr (lambda (_g2950029503_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2956729572_) - (cons _g2956629569_ _g2956729572_)) + _g2950129506_) + (cons _g2950029503_ _g2950129506_)) '() - _L29553_))) + _L29487_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_parse-vector28657_ __tmp42946)) + (_parse-vector28591_ __tmp42785)) '())))) - (___kont4015540156_ - (lambda (_L29499_ _L29501_) + (___kont4004540046_ + (lambda (_L29433_ _L29435_) (cons 'struct: - (cons (gx#syntax-local-value _L29501_) + (cons (gx#syntax-local-value _L29435_) (cons (let () (declare (not safe)) - (_parse-vector28657_ - _L29499_)) + (_parse-vector28591_ + _L29433_)) '()))))) - (___kont4015740158_ - (lambda (_L29469_ _L29471_) + (___kont4004740048_ + (lambda (_L29403_ _L29405_) (cons 'class: - (cons (gx#syntax-local-value _L29471_) + (cons (gx#syntax-local-value _L29405_) (cons (let () (declare (not safe)) - (_parse-class-body28659_ - _L29469_)) + (_parse-class-body28593_ + _L29403_)) '()))))) - (___kont4015940160_ - (lambda (_L29429_ _L29431_) + (___kont4004940050_ + (lambda (_L29363_ _L29365_) (cons '?: (cons (cons (gx#datum->syntax '#f 'cut) - (cons _L29431_ + (cons _L29365_ (cons (gx#datum->syntax '#f '<>) - (cons _L29429_ + (cons _L29363_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (___kont4016140162_ - (lambda (_L29389_) - (cons 'datum: (cons (gx#stx-e _L29389_) '())))) - (___kont4016340164_ - (lambda (_L29349_) + (___kont4005140052_ + (lambda (_L29323_) + (cons 'datum: (cons (gx#stx-e _L29323_) '())))) + (___kont4005340054_ + (lambda (_L29283_) (let () (declare (not safe)) - (_parse-qq28660_ _L29349_)))) - (___kont4016540166_ - (lambda (_L29305_ _L29307_) + (_parse-qq28594_ _L29283_)))) + (___kont4005540056_ + (lambda (_L29239_ _L29241_) (cons 'apply: - (cons _L29307_ + (cons _L29241_ (cons (let () (declare (not safe)) - (_parse128654_ _L29305_)) + (_parse128588_ _L29239_)) '()))))) - (___kont4016740168_ - (lambda (_L29253_) - (let ((__tmp42947 + (___kont4005740058_ + (lambda (_L29187_) + (let ((__tmp42786 (gx#core-apply-expander - (gx#syntax-local-e _L29253_) + (gx#syntax-local-e _L29187_) (gx#stx-wrap-source - (cons 'match: _hd29007_) - (let ((_$e29264_ - (gx#stx-source _hd29007_))) - (if _$e29264_ - _$e29264_ - (gx#stx-source _stx28650_))))))) + (cons 'match: _hd28941_) + (let ((_$e29198_ + (gx#stx-source _hd28941_))) + (if _$e29198_ + _$e29198_ + (gx#stx-source _stx28584_))))))) (declare (not safe)) - (_parse128654_ __tmp42947)))) - (___kont4016940170_ - (lambda (_L29227_) (cons 'any: '()))) - (___kont4017140172_ - (lambda (_L29211_) - (cons 'var: (cons _L29211_ '())))) - (___kont4017340174_ - (lambda (_L29193_) - (cons 'datum: (cons (gx#stx-e _L29193_) '())))) - (___kont4017540176_ + (_parse128588_ __tmp42786)))) + (___kont4005940060_ + (lambda (_L29161_) (cons 'any: '()))) + (___kont4006140062_ + (lambda (_L29145_) + (cons 'var: (cons _L29145_ '())))) + (___kont4006340064_ + (lambda (_L29127_) + (cons 'datum: (cons (gx#stx-e _L29127_) '())))) + (___kont4006540066_ (lambda () (let () (declare (not safe)) - (_parse-error28661_ _hd29007_))))) - (let* ((_g2903129204_ + (_parse-error28595_ _hd28941_))))) + (let* ((_g2896529138_ (lambda () - (let ((_L29193_ ___stx4012440125_)) - (if (gx#stx-datum? _L29193_) - (___kont4017340174_ _L29193_) - (___kont4017540176_))))) - (_g2903029220_ + (let ((_L29127_ ___stx4001440015_)) + (if (gx#stx-datum? _L29127_) + (___kont4006340064_ _L29127_) + (___kont4006540066_))))) + (_g2896429154_ (lambda () - (let ((_L29211_ ___stx4012440125_)) - (if (and (gx#identifier? _L29211_) - (not (gx#ellipsis? _L29211_))) - (___kont4017140172_ _L29211_) + (let ((_L29145_ ___stx4001440015_)) + (if (and (gx#identifier? _L29145_) + (not (gx#ellipsis? _L29145_))) + (___kont4006140062_ _L29145_) (let () (declare (not safe)) - (_g2903129204_)))))) - (_g2902929236_ + (_g2896529138_)))))) + (_g2896329170_ (lambda () - (let ((_L29227_ ___stx4012440125_)) - (if (gx#underscore? _L29227_) - (___kont4016940170_ _L29227_) + (let ((_L29161_ ___stx4001440015_)) + (if (gx#underscore? _L29161_) + (___kont4005940060_ _L29161_) (let () (declare (not safe)) - (_g2903029220_)))))) - (___match4045140452_ - (lambda (_e2916629243_ - _hd2916529247_ - _tl2916429250_) - (let ((_L29253_ _hd2916529247_)) + (_g2896429154_)))))) + (___match4034140342_ + (lambda (_e2910029177_ + _hd2909929181_ + _tl2909829184_) + (let ((_L29187_ _hd2909929181_)) (if (let () (declare (not safe)) (|gerbil/core$[1]#syntax-local-match-macro?| - _L29253_)) - (___kont4016740168_ _L29253_) + _L29187_)) + (___kont4005740058_ _L29187_) (let () (declare (not safe)) - (_g2902929236_)))))) - (___match4038540386_ - (lambda (_e2913429409_ - _hd2913329413_ - _tl2913229416_ - _e2913729419_ - _hd2913629423_ - _tl2913529426_) - (let ((_L29429_ _hd2913629423_) - (_L29431_ _hd2913329413_)) - (if (and (gx#identifier? _L29431_) + (_g2896329170_)))))) + (___match4027540276_ + (lambda (_e2906829343_ + _hd2906729347_ + _tl2906629350_ + _e2907129353_ + _hd2907029357_ + _tl2906929360_) + (let ((_L29363_ _hd2907029357_) + (_L29365_ _hd2906729347_)) + (if (and (gx#identifier? _L29365_) (or (gx#free-identifier=? - _L29431_ + _L29365_ (gx#datum->syntax '#f 'eq?)) (gx#free-identifier=? - _L29431_ + _L29365_ (gx#datum->syntax '#f 'eqv?)) (gx#free-identifier=? - _L29431_ + _L29365_ (gx#datum->syntax '#f 'equal?)))) - (___kont4015940160_ _L29429_ _L29431_) - (if (gx#identifier? _hd2913329413_) + (___kont4004940050_ _L29363_ _L29365_) + (if (gx#identifier? _hd2906729347_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42949_| - _hd2913329413_) - (___kont4016140162_ - _hd2913629423_) + |gerbil/core$[1]#_g42788_| + _hd2906729347_) + (___kont4005140052_ + _hd2907029357_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42948_| - _hd2913329413_) - (___kont4016340164_ - _hd2913629423_) - (___match4045140452_ - _e2913429409_ - _hd2913329413_ - _tl2913229416_))) - (___match4045140452_ - _e2913429409_ - _hd2913329413_ - _tl2913229416_)))))) - (___match4037140372_ - (lambda (_e2912929459_ - _hd2912829463_ - _tl2912729466_) - (let ((_L29469_ _tl2912729466_) - (_L29471_ _hd2912829463_)) + |gerbil/core$[1]#_g42787_| + _hd2906729347_) + (___kont4005340054_ + _hd2907029357_) + (___match4034140342_ + _e2906829343_ + _hd2906729347_ + _tl2906629350_))) + (___match4034140342_ + _e2906829343_ + _hd2906729347_ + _tl2906629350_)))))) + (___match4026140262_ + (lambda (_e2906329393_ + _hd2906229397_ + _tl2906129400_) + (let ((_L29403_ _tl2906129400_) + (_L29405_ _hd2906229397_)) (if (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-class-info?| - _L29471_)) - (___kont4015740158_ _L29469_ _L29471_) - (if (gx#stx-pair? _tl2912729466_) - (let ((_e2913729419_ + _L29405_)) + (___kont4004740048_ _L29403_ _L29405_) + (if (gx#stx-pair? _tl2906129400_) + (let ((_e2907129353_ (gx#syntax-e - _tl2912729466_))) - (let ((_tl2913529426_ + _tl2906129400_))) + (let ((_tl2906929360_ (let () (declare (not safe)) - (##cdr _e2913729419_))) - (_hd2913629423_ + (##cdr _e2907129353_))) + (_hd2907029357_ (let () (declare (not safe)) - (##car _e2913729419_)))) + (##car _e2907129353_)))) (if (gx#stx-null? - _tl2913529426_) - (___match4038540386_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_ - _e2913729419_ - _hd2913629423_ - _tl2913529426_) + _tl2906929360_) + (___match4027540276_ + _e2906329393_ + _hd2906229397_ + _tl2906129400_ + _e2907129353_ + _hd2907029357_ + _tl2906929360_) (if (gx#identifier? - _hd2912829463_) + _hd2906229397_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42949_| - _hd2912829463_) - (___match4045140452_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_) + |gerbil/core$[1]#_g42788_| + _hd2906229397_) + (___match4034140342_ + _e2906329393_ + _hd2906229397_ + _tl2906129400_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g42948_| - _hd2912829463_) - (___match4045140452_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_) + |gerbil/core$[1]#_g42787_| + _hd2906229397_) + (___match4034140342_ + _e2906329393_ + _hd2906229397_ + _tl2906129400_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42950_| - _hd2912829463_) - (if (gx#stx-pair? _tl2913529426_) - (let ((_e2916229295_ - (gx#syntax-e _tl2913529426_))) - (let ((_tl2916029302_ + |gerbil/core$[1]#_g42789_| + _hd2906229397_) + (if (gx#stx-pair? _tl2906929360_) + (let ((_e2909629229_ + (gx#syntax-e _tl2906929360_))) + (let ((_tl2909429236_ (let () (declare (not safe)) - (##cdr _e2916229295_))) - (_hd2916129299_ + (##cdr _e2909629229_))) + (_hd2909529233_ (let () (declare (not safe)) - (##car _e2916229295_)))) - (if (gx#stx-null? _tl2916029302_) - (___kont4016540166_ - _hd2916129299_ - _hd2913629423_) - (___match4045140452_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_)))) - (___match4045140452_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_)) - (___match4045140452_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_)))) - (___match4045140452_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4045140452_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_)))))) - (___match4036540366_ - (lambda (_e2912429489_ - _hd2912329493_ - _tl2912229496_) - (let ((_L29499_ _tl2912229496_) - (_L29501_ _hd2912329493_)) + (##car _e2909629229_)))) + (if (gx#stx-null? _tl2909429236_) + (___kont4005540056_ + _hd2909529233_ + _hd2907029357_) + (___match4034140342_ + _e2906329393_ + _hd2906229397_ + _tl2906129400_)))) + (___match4034140342_ + _e2906329393_ + _hd2906229397_ + _tl2906129400_)) + (___match4034140342_ + _e2906329393_ + _hd2906229397_ + _tl2906129400_)))) + (___match4034140342_ + _e2906329393_ + _hd2906229397_ + _tl2906129400_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match4034140342_ + _e2906329393_ + _hd2906229397_ + _tl2906129400_)))))) + (___match4025540256_ + (lambda (_e2905829423_ + _hd2905729427_ + _tl2905629430_) + (let ((_L29433_ _tl2905629430_) + (_L29435_ _hd2905729427_)) (if (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-struct-info?| - _L29501_)) - (___kont4015540156_ _L29499_ _L29501_) - (___match4037140372_ - _e2912429489_ - _hd2912329493_ - _tl2912229496_))))) - (___match4035940360_ - (lambda (_e2911029519_ - ___splice4015340154_ - _target2911129523_ - _tl2911329526_) - (letrec ((_loop2911429529_ - (lambda (_hd2911229533_ - _body2911829536_) - (if (gx#stx-pair? _hd2911229533_) - (let ((_e2911529539_ + _L29435_)) + (___kont4004540046_ _L29433_ _L29435_) + (___match4026140262_ + _e2905829423_ + _hd2905729427_ + _tl2905629430_))))) + (___match4024940250_ + (lambda (_e2904429453_ + ___splice4004340044_ + _target2904529457_ + _tl2904729460_) + (letrec ((_loop2904829463_ + (lambda (_hd2904629467_ + _body2905229470_) + (if (gx#stx-pair? _hd2904629467_) + (let ((_e2904929473_ (gx#syntax-e - _hd2911229533_))) - (let ((_lp-tl2911729546_ + _hd2904629467_))) + (let ((_lp-tl2905129480_ (let () (declare (not safe)) - (##cdr _e2911529539_))) - (_lp-hd2911629543_ + (##cdr _e2904929473_))) + (_lp-hd2905029477_ (let () (declare (not safe)) - (##car _e2911529539_)))) - (let ((__tmp42951 - (cons _lp-hd2911629543_ + (##car _e2904929473_)))) + (let ((__tmp42790 + (cons _lp-hd2905029477_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body2911829536_))) + _body2905229470_))) (declare (not safe)) - (_loop2911429529_ _lp-tl2911729546_ __tmp42951)))) + (_loop2904829463_ _lp-tl2905129480_ __tmp42790)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body2911929549_ - (reverse _body2911829536_))) - (___kont4015140152_ - _body2911929549_)))))) + (let ((_body2905329483_ + (reverse _body2905229470_))) + (___kont4004140042_ + _body2905329483_)))))) (let () (declare (not safe)) - (_loop2911429529_ - _target2911129523_ + (_loop2904829463_ + _target2904529457_ '()))))) - (_g2902129575_ + (_g2895529509_ (lambda () - (if (gx#stx-vector? ___stx4012440125_) - (let ((_e2911029519_ + (if (gx#stx-vector? ___stx4001440015_) + (let ((_e2904429453_ (vector->list (gx#syntax-e - ___stx4012440125_)))) - (if (gx#stx-pair/null? _e2911029519_) - (let ((___splice4015340154_ + ___stx4001440015_)))) + (if (gx#stx-pair/null? _e2904429453_) + (let ((___splice4004340044_ (gx#syntax-split-splice - _e2911029519_ + _e2904429453_ '0))) - (let ((_tl2911329526_ + (let ((_tl2904729460_ (let () (declare (not safe)) (##vector-ref - ___splice4015340154_ + ___splice4004340044_ '1))) - (_target2911129523_ + (_target2904529457_ (let () (declare (not safe)) (##vector-ref - ___splice4015340154_ + ___splice4004340044_ '0)))) (if (gx#stx-null? - _tl2911329526_) - (___match4035940360_ - _e2911029519_ - ___splice4015340154_ - _target2911129523_ - _tl2911329526_) + _tl2904729460_) + (___match4024940250_ + _e2904429453_ + ___splice4004340044_ + _target2904529457_ + _tl2904729460_) (let () (declare (not safe)) - (_g2902929236_))))) + (_g2896329170_))))) (let () (declare (not safe)) - (_g2902929236_)))) + (_g2896329170_)))) (let () (declare (not safe)) - (_g2902929236_))))) - (_g2901729692_ + (_g2896329170_))))) + (_g2895129626_ (lambda () - (if (gx#stx-box? ___stx4012440125_) - (let ((_e2909329678_ + (if (gx#stx-box? ___stx4001440015_) + (let ((_e2902729612_ (unbox (gx#syntax-e - ___stx4012440125_)))) - (___kont4014340144_ _e2909329678_)) + ___stx4001440015_)))) + (___kont4003340034_ _e2902729612_)) (let () (declare (not safe)) - (_g2902129575_))))) - (___match4021340214_ - (lambda (_e2905029917_ - _hd2904929921_ - _tl2904829924_) - (let ((_L29927_ _tl2904829924_)) - (if (gx#stx-list? _L29927_) - (___kont4013140132_ _L29927_) - (___match4036540366_ - _e2905029917_ - _hd2904929921_ - _tl2904829924_))))) - (___match4020340204_ - (lambda (_e2904630002_ - _hd2904530006_ - _tl2904430009_) - (let ((_L30012_ _tl2904430009_)) - (if (gx#stx-list? _L30012_) - (___kont4012940130_ _L30012_) - (___match4036540366_ - _e2904630002_ - _hd2904530006_ - _tl2904430009_)))))) - (if (gx#stx-pair? ___stx4012440125_) - (let ((_e2903930087_ - (gx#syntax-e ___stx4012440125_))) - (let ((_tl2903730094_ + (_g2895529509_))))) + (___match4010340104_ + (lambda (_e2898429851_ + _hd2898329855_ + _tl2898229858_) + (let ((_L29861_ _tl2898229858_)) + (if (gx#stx-list? _L29861_) + (___kont4002140022_ _L29861_) + (___match4025540256_ + _e2898429851_ + _hd2898329855_ + _tl2898229858_))))) + (___match4009340094_ + (lambda (_e2898029936_ + _hd2897929940_ + _tl2897829943_) + (let ((_L29946_ _tl2897829943_)) + (if (gx#stx-list? _L29946_) + (___kont4001940020_ _L29946_) + (___match4025540256_ + _e2898029936_ + _hd2897929940_ + _tl2897829943_)))))) + (if (gx#stx-pair? ___stx4001440015_) + (let ((_e2897330021_ + (gx#syntax-e ___stx4001440015_))) + (let ((_tl2897130028_ (let () (declare (not safe)) - (##cdr _e2903930087_))) - (_hd2903830091_ + (##cdr _e2897330021_))) + (_hd2897230025_ (let () (declare (not safe)) - (##car _e2903930087_)))) - (if (gx#identifier? _hd2903830091_) + (##car _e2897330021_)))) + (if (gx#identifier? _hd2897230025_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42961_| - _hd2903830091_) - (if (gx#stx-pair? _tl2903730094_) - (let ((_e2904230097_ + |gerbil/core$[1]#_g42800_| + _hd2897230025_) + (if (gx#stx-pair? _tl2897130028_) + (let ((_e2897630031_ (gx#syntax-e - _tl2903730094_))) - (let ((_tl2904030104_ + _tl2897130028_))) + (let ((_tl2897430038_ (let () (declare (not safe)) - (##cdr _e2904230097_))) - (_hd2904130101_ + (##cdr _e2897630031_))) + (_hd2897530035_ (let () (declare (not safe)) - (##car _e2904230097_)))) - (___kont4012740128_ - _tl2904030104_ - _hd2904130101_))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)) + (##car _e2897630031_)))) + (___kont4001740018_ + _tl2897430038_ + _hd2897530035_))) + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42960_| - _hd2903830091_) - (___match4020340204_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_) + |gerbil/core$[1]#_g42799_| + _hd2897230025_) + (___match4009340094_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42959_| - _hd2903830091_) - (___match4021340214_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_) + |gerbil/core$[1]#_g42798_| + _hd2897230025_) + (___match4010340104_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42958_| - _hd2903830091_) + |gerbil/core$[1]#_g42797_| + _hd2897230025_) (if (gx#stx-pair? - _tl2903730094_) - (let ((_e2905729887_ + _tl2897130028_) + (let ((_e2899129821_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2903730094_))) - (let ((_tl2905529894_ - (let () (declare (not safe)) (##cdr _e2905729887_))) - (_hd2905629891_ + (gx#syntax-e _tl2897130028_))) + (let ((_tl2898929828_ + (let () (declare (not safe)) (##cdr _e2899129821_))) + (_hd2899029825_ (let () (declare (not safe)) - (##car _e2905729887_)))) - (if (gx#stx-null? _tl2905529894_) - (___kont4013340134_ _hd2905629891_) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)) + (##car _e2899129821_)))) + (if (gx#stx-null? _tl2898929828_) + (___kont4002340024_ _hd2899029825_) + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_)))) + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42957_| - _hd2903830091_) - (if (gx#stx-pair? _tl2903730094_) - (let ((_e2906529833_ (gx#syntax-e _tl2903730094_))) - (let ((_tl2906329840_ + |gerbil/core$[1]#_g42796_| + _hd2897230025_) + (if (gx#stx-pair? _tl2897130028_) + (let ((_e2899929767_ (gx#syntax-e _tl2897130028_))) + (let ((_tl2899729774_ (let () (declare (not safe)) - (##cdr _e2906529833_))) - (_hd2906429837_ + (##cdr _e2899929767_))) + (_hd2899829771_ (let () (declare (not safe)) - (##car _e2906529833_)))) - (if (gx#stx-pair? _tl2906329840_) - (let ((_e2906829843_ - (gx#syntax-e _tl2906329840_))) - (let ((_tl2906629850_ + (##car _e2899929767_)))) + (if (gx#stx-pair? _tl2899729774_) + (let ((_e2900229777_ + (gx#syntax-e _tl2899729774_))) + (let ((_tl2900029784_ (let () (declare (not safe)) - (##cdr _e2906829843_))) - (_hd2906729847_ + (##cdr _e2900229777_))) + (_hd2900129781_ (let () (declare (not safe)) - (##car _e2906829843_)))) - (if (gx#stx-null? _tl2906629850_) - (___kont4013540136_ - _hd2906729847_ - _hd2906429837_) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)) + (##car _e2900229777_)))) + (if (gx#stx-null? _tl2900029784_) + (___kont4002540026_ + _hd2900129781_ + _hd2899829771_) + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_)))) + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_)))) + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42956_| - _hd2903830091_) - (if (gx#stx-pair? _tl2903730094_) - (let ((_e2907729777_ (gx#syntax-e _tl2903730094_))) - (let ((_tl2907529784_ + |gerbil/core$[1]#_g42795_| + _hd2897230025_) + (if (gx#stx-pair? _tl2897130028_) + (let ((_e2901129711_ (gx#syntax-e _tl2897130028_))) + (let ((_tl2900929718_ (let () (declare (not safe)) - (##cdr _e2907729777_))) - (_hd2907629781_ + (##cdr _e2901129711_))) + (_hd2901029715_ (let () (declare (not safe)) - (##car _e2907729777_)))) - (if (gx#stx-pair? _tl2907529784_) - (let ((_e2908029787_ - (gx#syntax-e _tl2907529784_))) - (let ((_tl2907829794_ + (##car _e2901129711_)))) + (if (gx#stx-pair? _tl2900929718_) + (let ((_e2901429721_ + (gx#syntax-e _tl2900929718_))) + (let ((_tl2901229728_ (let () (declare (not safe)) - (##cdr _e2908029787_))) - (_hd2907929791_ + (##cdr _e2901429721_))) + (_hd2901329725_ (let () (declare (not safe)) - (##car _e2908029787_)))) - (___kont4013740138_ - _tl2907829794_ - _hd2907929791_ - _hd2907629781_))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)) + (##car _e2901429721_)))) + (___kont4002740028_ + _tl2901229728_ + _hd2901329725_ + _hd2901029715_))) + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_)))) + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42955_| - _hd2903830091_) - (___kont4013940140_ _tl2903730094_) + |gerbil/core$[1]#_g42794_| + _hd2897230025_) + (___kont4002940030_ _tl2897130028_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42954_| - _hd2903830091_) - (if (gx#stx-pair? _tl2903730094_) - (let ((_e2909129709_ - (gx#syntax-e _tl2903730094_))) - (let ((_tl2908929716_ + |gerbil/core$[1]#_g42793_| + _hd2897230025_) + (if (gx#stx-pair? _tl2897130028_) + (let ((_e2902529643_ + (gx#syntax-e _tl2897130028_))) + (let ((_tl2902329650_ (let () (declare (not safe)) - (##cdr _e2909129709_))) - (_hd2909029713_ + (##cdr _e2902529643_))) + (_hd2902429647_ (let () (declare (not safe)) - (##car _e2909129709_)))) - (if (gx#stx-null? _tl2908929716_) - (___kont4014140142_ _hd2909029713_) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)) + (##car _e2902529643_)))) + (if (gx#stx-null? _tl2902329650_) + (___kont4003140032_ _hd2902429647_) + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_)))) + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42953_| - _hd2903830091_) - (if (gx#stx-pair? _tl2903730094_) - (let ((_e2910029648_ - (gx#syntax-e _tl2903730094_))) - (let ((_tl2909829655_ + |gerbil/core$[1]#_g42792_| + _hd2897230025_) + (if (gx#stx-pair? _tl2897130028_) + (let ((_e2903429582_ + (gx#syntax-e _tl2897130028_))) + (let ((_tl2903229589_ (let () (declare (not safe)) - (##cdr _e2910029648_))) - (_hd2909929652_ + (##cdr _e2903429582_))) + (_hd2903329586_ (let () (declare (not safe)) - (##car _e2910029648_)))) - (if (gx#stx-null? _tl2909829655_) - (___kont4014540146_ - _hd2909929652_) - (___kont4014740148_ - _tl2903730094_)))) - (___kont4014740148_ _tl2903730094_)) + (##car _e2903429582_)))) + (if (gx#stx-null? _tl2903229589_) + (___kont4003540036_ + _hd2903329586_) + (___kont4003740038_ + _tl2897130028_)))) + (___kont4003740038_ _tl2897130028_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42952_| - _hd2903830091_) - (___kont4014940150_ _tl2903730094_) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)))) + |gerbil/core$[1]#_g42791_| + _hd2897230025_) + (___kont4003940040_ _tl2897130028_) + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match4025540256_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_)))) (let () (declare (not safe)) - (_g2901729692_)))))))) - (_parse-list28656_ - (lambda (_body28836_) - (let* ((___stx4045440455_ _body28836_) - (_g2884228871_ + (_g2895129626_)))))))) + (_parse-list28590_ + (lambda (_body28770_) + (let* ((___stx4034440345_ _body28770_) + (_g2877628805_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4045440455_)))) - (let ((___kont4045740458_ - (lambda (_L28989_) + ___stx4034440345_)))) + (let ((___kont4034740348_ + (lambda (_L28923_) (let () (declare (not safe)) - (_parse128654_ _L28989_)))) - (___kont4045940460_ - (lambda (_L28941_ _L28943_ _L28944_) + (_parse128588_ _L28923_)))) + (___kont4034940350_ + (lambda (_L28875_ _L28877_ _L28878_) (cons 'splice: (cons (let () (declare (not safe)) - (_parse128654_ _L28944_)) + (_parse128588_ _L28878_)) (cons (let () (declare (not safe)) - (_parse-list28656_ - _L28941_)) + (_parse-list28590_ + _L28875_)) '()))))) - (___kont4046140462_ - (lambda (_L28899_ _L28901_) + (___kont4035140352_ + (lambda (_L28833_ _L28835_) (cons 'cons: (cons (let () (declare (not safe)) - (_parse128654_ _L28901_)) + (_parse128588_ _L28835_)) (cons (let () (declare (not safe)) - (_parse-list28656_ - _L28899_)) + (_parse-list28590_ + _L28833_)) '()))))) - (___kont4046340464_ + (___kont4035340354_ (lambda () - (if (gx#stx-null? _body28836_) + (if (gx#stx-null? _body28770_) (cons 'null: '()) - (if (not (gx#stx-pair? _body28836_)) + (if (not (gx#stx-pair? _body28770_)) (let () (declare (not safe)) - (_parse128654_ _body28836_)) + (_parse128588_ _body28770_)) (let () (declare (not safe)) - (_parse-error28661_ _body28836_))))))) - (let* ((___match4050340504_ - (lambda (_e2886528889_ - _hd2886428893_ - _tl2886328896_) - (let ((_L28899_ _tl2886328896_) - (_L28901_ _hd2886428893_)) - (if (not (gx#ellipsis? _L28901_)) - (___kont4046140462_ _L28899_ _L28901_) - (___kont4046340464_))))) - (___match4049740498_ - (lambda (_e2885728921_ - _hd2885628925_ - _tl2885528928_ - _e2886028931_ - _hd2885928935_ - _tl2885828938_) - (let ((_L28941_ _tl2885828938_) - (_L28943_ _hd2885928935_) - (_L28944_ _hd2885628925_)) - (if (gx#ellipsis? _L28943_) - (___kont4045940460_ - _L28941_ - _L28943_ - _L28944_) - (___match4050340504_ - _e2885728921_ - _hd2885628925_ - _tl2885528928_)))))) - (if (gx#stx-pair? ___stx4045440455_) - (let ((_e2884728965_ - (gx#syntax-e ___stx4045440455_))) - (let ((_tl2884528972_ + (_parse-error28595_ _body28770_))))))) + (let* ((___match4039340394_ + (lambda (_e2879928823_ + _hd2879828827_ + _tl2879728830_) + (let ((_L28833_ _tl2879728830_) + (_L28835_ _hd2879828827_)) + (if (not (gx#ellipsis? _L28835_)) + (___kont4035140352_ _L28833_ _L28835_) + (___kont4035340354_))))) + (___match4038740388_ + (lambda (_e2879128855_ + _hd2879028859_ + _tl2878928862_ + _e2879428865_ + _hd2879328869_ + _tl2879228872_) + (let ((_L28875_ _tl2879228872_) + (_L28877_ _hd2879328869_) + (_L28878_ _hd2879028859_)) + (if (gx#ellipsis? _L28877_) + (___kont4034940350_ + _L28875_ + _L28877_ + _L28878_) + (___match4039340394_ + _e2879128855_ + _hd2879028859_ + _tl2878928862_)))))) + (if (gx#stx-pair? ___stx4034440345_) + (let ((_e2878128899_ + (gx#syntax-e ___stx4034440345_))) + (let ((_tl2877928906_ (let () (declare (not safe)) - (##cdr _e2884728965_))) - (_hd2884628969_ + (##cdr _e2878128899_))) + (_hd2878028903_ (let () (declare (not safe)) - (##car _e2884728965_)))) - (if (gx#stx-datum? _hd2884628969_) - (let ((_e2884828975_ - (gx#stx-e _hd2884628969_))) - (if (equal? _e2884828975_ '::) - (if (gx#stx-pair? _tl2884528972_) - (let ((_e2885128979_ + (##car _e2878128899_)))) + (if (gx#stx-datum? _hd2878028903_) + (let ((_e2878228909_ + (gx#stx-e _hd2878028903_))) + (if (equal? _e2878228909_ '::) + (if (gx#stx-pair? _tl2877928906_) + (let ((_e2878528913_ (gx#syntax-e - _tl2884528972_))) - (let ((_tl2884928986_ + _tl2877928906_))) + (let ((_tl2878328920_ (let () (declare (not safe)) - (##cdr _e2885128979_))) - (_hd2885028983_ + (##cdr _e2878528913_))) + (_hd2878428917_ (let () (declare (not safe)) - (##car _e2885128979_)))) + (##car _e2878528913_)))) (if (gx#stx-null? - _tl2884928986_) - (___kont4045740458_ - _hd2885028983_) - (___match4049740498_ - _e2884728965_ - _hd2884628969_ - _tl2884528972_ - _e2885128979_ - _hd2885028983_ - _tl2884928986_)))) - (___match4050340504_ - _e2884728965_ - _hd2884628969_ - _tl2884528972_)) - (if (gx#stx-pair? _tl2884528972_) - (let ((_e2886028931_ + _tl2878328920_) + (___kont4034740348_ + _hd2878428917_) + (___match4038740388_ + _e2878128899_ + _hd2878028903_ + _tl2877928906_ + _e2878528913_ + _hd2878428917_ + _tl2878328920_)))) + (___match4039340394_ + _e2878128899_ + _hd2878028903_ + _tl2877928906_)) + (if (gx#stx-pair? _tl2877928906_) + (let ((_e2879428865_ (gx#syntax-e - _tl2884528972_))) - (let ((_tl2885828938_ + _tl2877928906_))) + (let ((_tl2879228872_ (let () (declare (not safe)) - (##cdr _e2886028931_))) - (_hd2885928935_ + (##cdr _e2879428865_))) + (_hd2879328869_ (let () (declare (not safe)) - (##car _e2886028931_)))) - (___match4049740498_ - _e2884728965_ - _hd2884628969_ - _tl2884528972_ - _e2886028931_ - _hd2885928935_ - _tl2885828938_))) - (___match4050340504_ - _e2884728965_ - _hd2884628969_ - _tl2884528972_)))) - (if (gx#stx-pair? _tl2884528972_) - (let ((_e2886028931_ - (gx#syntax-e _tl2884528972_))) - (let ((_tl2885828938_ + (##car _e2879428865_)))) + (___match4038740388_ + _e2878128899_ + _hd2878028903_ + _tl2877928906_ + _e2879428865_ + _hd2879328869_ + _tl2879228872_))) + (___match4039340394_ + _e2878128899_ + _hd2878028903_ + _tl2877928906_)))) + (if (gx#stx-pair? _tl2877928906_) + (let ((_e2879428865_ + (gx#syntax-e _tl2877928906_))) + (let ((_tl2879228872_ (let () (declare (not safe)) - (##cdr _e2886028931_))) - (_hd2885928935_ + (##cdr _e2879428865_))) + (_hd2879328869_ (let () (declare (not safe)) - (##car _e2886028931_)))) - (___match4049740498_ - _e2884728965_ - _hd2884628969_ - _tl2884528972_ - _e2886028931_ - _hd2885928935_ - _tl2885828938_))) - (___match4050340504_ - _e2884728965_ - _hd2884628969_ - _tl2884528972_))))) - (___kont4046340464_))))))) - (_parse-vector28657_ - (lambda (_body28833_) + (##car _e2879428865_)))) + (___match4038740388_ + _e2878128899_ + _hd2878028903_ + _tl2877928906_ + _e2879428865_ + _hd2879328869_ + _tl2879228872_))) + (___match4039340394_ + _e2878128899_ + _hd2878028903_ + _tl2877928906_))))) + (___kont4035340354_))))))) + (_parse-vector28591_ + (lambda (_body28767_) (if (let () (declare (not safe)) - (_simple-vector?28658_ _body28833_)) + (_simple-vector?28592_ _body28767_)) (cons 'simple: - (cons (gx#stx-map _parse128654_ _body28833_) + (cons (gx#stx-map _parse128588_ _body28767_) '())) (cons 'list: (cons (let () (declare (not safe)) - (_parse-list28656_ _body28833_)) + (_parse-list28590_ _body28767_)) '()))))) - (_simple-vector?28658_ - (lambda (_body28770_) - (let* ((___stx4050640507_ _body28770_) - (_g2877428786_ + (_simple-vector?28592_ + (lambda (_body28704_) + (let* ((___stx4039640397_ _body28704_) + (_g2870828720_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4050640507_)))) - (let ((___kont4050940510_ - (lambda (_L28814_ _L28816_) - (if (not (gx#ellipsis? _L28816_)) + ___stx4039640397_)))) + (let ((___kont4039940400_ + (lambda (_L28748_ _L28750_) + (if (not (gx#ellipsis? _L28750_)) (let () (declare (not safe)) - (_simple-vector?28658_ _L28814_)) + (_simple-vector?28592_ _L28748_)) '#f))) - (___kont4051140512_ - (lambda () (gx#stx-null? _body28770_)))) - (if (gx#stx-pair? ___stx4050640507_) - (let ((_e2878028804_ - (gx#syntax-e ___stx4050640507_))) - (let ((_tl2877828811_ + (___kont4040140402_ + (lambda () (gx#stx-null? _body28704_)))) + (if (gx#stx-pair? ___stx4039640397_) + (let ((_e2871428738_ + (gx#syntax-e ___stx4039640397_))) + (let ((_tl2871228745_ (let () (declare (not safe)) - (##cdr _e2878028804_))) - (_hd2877928808_ + (##cdr _e2871428738_))) + (_hd2871328742_ (let () (declare (not safe)) - (##car _e2878028804_)))) - (___kont4050940510_ - _tl2877828811_ - _hd2877928808_))) - (___kont4051140512_)))))) - (_parse-class-body28659_ - (lambda (_body28679_) - (let _recur28682_ ((_rest28685_ _body28679_)) - (let* ((___stx4052240523_ _rest28685_) - (_g2868928705_ + (##car _e2871428738_)))) + (___kont4039940400_ + _tl2871228745_ + _hd2871328742_))) + (___kont4040140402_)))))) + (_parse-class-body28593_ + (lambda (_body28613_) + (let _recur28616_ ((_rest28619_ _body28613_)) + (let* ((___stx4041240413_ _rest28619_) + (_g2862328639_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4052240523_)))) - (let ((___kont4052540526_ - (lambda (_L28743_ _L28745_ _L28746_) - (cons* _L28746_ + ___stx4041240413_)))) + (let ((___kont4041540416_ + (lambda (_L28677_ _L28679_ _L28680_) + (cons* _L28680_ (let () (declare (not safe)) - (_parse128654_ _L28745_)) + (_parse128588_ _L28679_)) (let () (declare (not safe)) - (_recur28682_ _L28743_))))) - (___kont4052740528_ + (_recur28616_ _L28677_))))) + (___kont4041740418_ (lambda () - (if (gx#stx-null? _rest28685_) + (if (gx#stx-null? _rest28619_) '() (let () (declare (not safe)) - (_parse-error28661_ _rest28685_)))))) - (let ((___match4054140542_ - (lambda (_e2869628723_ - _hd2869528727_ - _tl2869428730_ - _e2869928733_ - _hd2869828737_ - _tl2869728740_) - (let ((_L28743_ _tl2869728740_) - (_L28745_ _hd2869828737_) - (_L28746_ _hd2869528727_)) - (if (gx#stx-keyword? _L28746_) - (___kont4052540526_ - _L28743_ - _L28745_ - _L28746_) - (___kont4052740528_)))))) - (if (gx#stx-pair? ___stx4052240523_) - (let ((_e2869628723_ - (gx#syntax-e ___stx4052240523_))) - (let ((_tl2869428730_ + (_parse-error28595_ _rest28619_)))))) + (let ((___match4043140432_ + (lambda (_e2863028657_ + _hd2862928661_ + _tl2862828664_ + _e2863328667_ + _hd2863228671_ + _tl2863128674_) + (let ((_L28677_ _tl2863128674_) + (_L28679_ _hd2863228671_) + (_L28680_ _hd2862928661_)) + (if (gx#stx-keyword? _L28680_) + (___kont4041540416_ + _L28677_ + _L28679_ + _L28680_) + (___kont4041740418_)))))) + (if (gx#stx-pair? ___stx4041240413_) + (let ((_e2863028657_ + (gx#syntax-e ___stx4041240413_))) + (let ((_tl2862828664_ (let () (declare (not safe)) - (##cdr _e2869628723_))) - (_hd2869528727_ + (##cdr _e2863028657_))) + (_hd2862928661_ (let () (declare (not safe)) - (##car _e2869628723_)))) - (if (gx#stx-pair? _tl2869428730_) - (let ((_e2869928733_ - (gx#syntax-e _tl2869428730_))) - (let ((_tl2869728740_ + (##car _e2863028657_)))) + (if (gx#stx-pair? _tl2862828664_) + (let ((_e2863328667_ + (gx#syntax-e _tl2862828664_))) + (let ((_tl2863128674_ (let () (declare (not safe)) - (##cdr _e2869928733_))) - (_hd2869828737_ + (##cdr _e2863328667_))) + (_hd2863228671_ (let () (declare (not safe)) - (##car _e2869928733_)))) - (___match4054140542_ - _e2869628723_ - _hd2869528727_ - _tl2869428730_ - _e2869928733_ - _hd2869828737_ - _tl2869728740_))) - (___kont4052740528_)))) - (___kont4052740528_)))))))) - (_parse-qq28660_ - (lambda (_hd28666_) - (let ((_g2866828675_ - (lambda (_g2866928671_) + (##car _e2863328667_)))) + (___match4043140432_ + _e2863028657_ + _hd2862928661_ + _tl2862828664_ + _e2863328667_ + _hd2863228671_ + _tl2863128674_))) + (___kont4041740418_)))) + (___kont4041740418_)))))))) + (_parse-qq28594_ + (lambda (_hd28600_) + (let ((_g2860228609_ + (lambda (_g2860328605_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2866928671_)))) + _g2860328605_)))) (declare (not safe)) - (_g2866828675_ _hd28666_)))) - (_parse-error28661_ - (lambda (_hd28663_) + (_g2860228609_ _hd28600_)))) + (_parse-error28595_ + (lambda (_hd28597_) (apply gx#raise-syntax-error '#f '"Bad syntax; illegal pattern" - (if _match-stx28652_ - (cons _match-stx28652_ - (cons _stx28650_ (cons _hd28663_ '()))) - (cons _stx28650_ (cons _hd28663_ '()))))))) - (let () (declare (not safe)) (_parse128654_ _stx28650_))))) + (if _match-stx28586_ + (cons _match-stx28586_ + (cons _stx28584_ (cons _hd28597_ '()))) + (cons _stx28584_ (cons _hd28597_ '()))))))) + (let () (declare (not safe)) (_parse128588_ _stx28584_))))) (define |gerbil/core$[1]#parse-match-pattern__0| - (lambda (_stx30334_) - (let ((_match-stx30337_ '#f)) + (lambda (_stx30268_) + (let ((_match-stx30271_ '#f)) (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _stx30334_ - _match-stx30337_)))) + _stx30268_ + _match-stx30271_)))) (define |gerbil/core$[1]#parse-match-pattern| - (lambda _g42963_ - (let ((_g42962_ (let () (declare (not safe)) (##length _g42963_)))) - (cond ((let () (declare (not safe)) (##fx= _g42962_ 1)) - (apply (lambda (_stx30334_) + (lambda _g42802_ + (let ((_g42801_ (let () (declare (not safe)) (##length _g42802_)))) + (cond ((let () (declare (not safe)) (##fx= _g42801_ 1)) + (apply (lambda (_stx30268_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__0| - _stx30334_))) - _g42963_)) - ((let () (declare (not safe)) (##fx= _g42962_ 2)) - (apply (lambda (_stx30340_ _match-stx30342_) + _stx30268_))) + _g42802_)) + ((let () (declare (not safe)) (##fx= _g42801_ 2)) + (apply (lambda (_stx30274_ _match-stx30276_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _stx30340_ - _match-stx30342_))) - _g42963_)) + _stx30274_ + _match-stx30276_))) + _g42802_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$[1]#parse-match-pattern| - _g42963_)))))) + _g42802_)))))) (define |gerbil/core$[1]#match-pattern?| - (lambda (_stx28634_) + (lambda (_stx28568_) (call-with-current-continuation - (lambda (_E28638_) + (lambda (_E28572_) (with-exception-handler - (let ((_E!28641_ (current-exception-handler))) - (lambda (_e28644_) - (if (syntax-error? _e28644_) - (_E28638_ '#f) - (_E!28641_ _e28644_)))) + (let ((_E!28575_ (current-exception-handler))) + (lambda (_e28578_) + (if (syntax-error? _e28578_) + (_E28572_ '#f) + (_E!28575_ _e28578_)))) (lambda () (let () (declare (not safe)) - (|gerbil/core$[1]#parse-match-pattern__0| _stx28634_)) + (|gerbil/core$[1]#parse-match-pattern__0| _stx28568_)) '#t)))))) (define |gerbil/core$[1]#match-pattern-vars| - (lambda (_ptree27369_) - (letrec ((_loop27372_ - (lambda (_ptree27659_ _vars27661_ _K27662_) - (let* ((___stx4064040641_ _ptree27659_) - (_g2767527785_ + (lambda (_ptree27303_) + (letrec ((_loop27306_ + (lambda (_ptree27593_ _vars27595_ _K27596_) + (let* ((___stx4053040531_ _ptree27593_) + (_g2760927719_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4064040641_)))) - (let ((___kont4064340644_ - (lambda (_L28415_) - (let* ((___stx4056040561_ _L28415_) - (_g2843228466_ + ___stx4053040531_)))) + (let ((___kont4053340534_ + (lambda (_L28349_) + (let* ((___stx4045040451_ _L28349_) + (_g2836628400_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4056040561_)))) - (let ((___kont4056340564_ - (lambda (_L28615_) + ___stx4045040451_)))) + (let ((___kont4045340454_ + (lambda (_L28549_) (let () (declare (not safe)) - (_loop27372_ - _L28615_ - _vars27661_ - _K27662_)))) - (___kont4056540566_ - (lambda (_L28584_) + (_loop27306_ + _L28549_ + _vars27595_ + _K27596_)))) + (___kont4045540456_ + (lambda (_L28518_) (let () (declare (not safe)) - (_loop27372_ - _L28584_ - _vars27661_ - _K27662_)))) - (___kont4056740568_ - (lambda (_L28532_) + (_loop27306_ + _L28518_ + _vars27595_ + _K27596_)))) + (___kont4045740458_ + (lambda (_L28466_) (let () (declare (not safe)) - (_loop27372_ - _L28532_ - _vars27661_ - _K27662_)))) - (___kont4056940570_ - (lambda () (_K27662_ _vars27661_)))) - (if (gx#stx-pair? ___stx4056040561_) - (let ((_e2843728605_ - (gx#syntax-e ___stx4056040561_))) - (let ((_tl2843528612_ + (_loop27306_ + _L28466_ + _vars27595_ + _K27596_)))) + (___kont4045940460_ + (lambda () (_K27596_ _vars27595_)))) + (if (gx#stx-pair? ___stx4045040451_) + (let ((_e2837128539_ + (gx#syntax-e ___stx4045040451_))) + (let ((_tl2836928546_ (let () (declare (not safe)) - (##cdr _e2843728605_))) - (_hd2843628609_ + (##cdr _e2837128539_))) + (_hd2837028543_ (let () (declare (not safe)) - (##car _e2843728605_)))) - (if (gx#stx-null? _tl2843528612_) - (___kont4056340564_ - _hd2843628609_) + (##car _e2837128539_)))) + (if (gx#stx-null? _tl2836928546_) + (___kont4045340454_ + _hd2837028543_) (if (gx#stx-datum? - _hd2843628609_) - (let ((_e2844228570_ + _hd2837028543_) + (let ((_e2837628504_ (gx#stx-e - _hd2843628609_))) - (if (equal? _e2844228570_ + _hd2837028543_))) + (if (equal? _e2837628504_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '=>:) - (if (gx#stx-pair? _tl2843528612_) - (let ((_e2844528574_ (gx#syntax-e _tl2843528612_))) - (let ((_tl2844328581_ + (if (gx#stx-pair? _tl2836928546_) + (let ((_e2837928508_ (gx#syntax-e _tl2836928546_))) + (let ((_tl2837728515_ (let () (declare (not safe)) - (##cdr _e2844528574_))) - (_hd2844428578_ + (##cdr _e2837928508_))) + (_hd2837828512_ (let () (declare (not safe)) - (##car _e2844528574_)))) - (if (gx#stx-null? _tl2844328581_) - (___kont4056540566_ _hd2844428578_) - (___kont4056940570_)))) - (___kont4056940570_)) - (if (equal? _e2844228570_ '::) - (if (gx#stx-pair? _tl2843528612_) - (let ((_e2845328498_ (gx#syntax-e _tl2843528612_))) - (let ((_tl2845128505_ + (##car _e2837928508_)))) + (if (gx#stx-null? _tl2837728515_) + (___kont4045540456_ _hd2837828512_) + (___kont4045940460_)))) + (___kont4045940460_)) + (if (equal? _e2837628504_ '::) + (if (gx#stx-pair? _tl2836928546_) + (let ((_e2838728432_ (gx#syntax-e _tl2836928546_))) + (let ((_tl2838528439_ (let () (declare (not safe)) - (##cdr _e2845328498_))) - (_hd2845228502_ + (##cdr _e2838728432_))) + (_hd2838628436_ (let () (declare (not safe)) - (##car _e2845328498_)))) - (if (gx#stx-pair? _tl2845128505_) - (let ((_e2845628508_ - (gx#syntax-e _tl2845128505_))) - (let ((_tl2845428515_ + (##car _e2838728432_)))) + (if (gx#stx-pair? _tl2838528439_) + (let ((_e2839028442_ + (gx#syntax-e _tl2838528439_))) + (let ((_tl2838828449_ (let () (declare (not safe)) - (##cdr _e2845628508_))) - (_hd2845528512_ + (##cdr _e2839028442_))) + (_hd2838928446_ (let () (declare (not safe)) - (##car _e2845628508_)))) - (if (gx#stx-datum? _hd2845528512_) - (let ((_e2845728518_ - (gx#stx-e _hd2845528512_))) - (if (equal? _e2845728518_ '=>:) + (##car _e2839028442_)))) + (if (gx#stx-datum? _hd2838928446_) + (let ((_e2839128452_ + (gx#stx-e _hd2838928446_))) + (if (equal? _e2839128452_ '=>:) (if (gx#stx-pair? - _tl2845428515_) - (let ((_e2846028522_ + _tl2838828449_) + (let ((_e2839428456_ (gx#syntax-e - _tl2845428515_))) - (let ((_tl2845828529_ + _tl2838828449_))) + (let ((_tl2839228463_ (let () (declare (not safe)) - (##cdr _e2846028522_))) - (_hd2845928526_ + (##cdr _e2839428456_))) + (_hd2839328460_ (let () (declare (not safe)) - (##car _e2846028522_)))) + (##car _e2839428456_)))) (if (gx#stx-null? - _tl2845828529_) - (___kont4056740568_ - _hd2845928526_) - (___kont4056940570_)))) - (___kont4056940570_)) - (___kont4056940570_))) - (___kont4056940570_)))) - (___kont4056940570_)))) - (___kont4056940570_)) - (___kont4056940570_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4056940570_))))) - (___kont4056940570_)))))) - (___kont4064540646_ - (lambda (_L28302_ _L28304_) - (let* ((___stx4054440545_ _L28302_) - (_g2832028332_ + _tl2839228463_) + (___kont4045740458_ + _hd2839328460_) + (___kont4045940460_)))) + (___kont4045940460_)) + (___kont4045940460_))) + (___kont4045940460_)))) + (___kont4045940460_)))) + (___kont4045940460_)) + (___kont4045940460_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4045940460_))))) + (___kont4045940460_)))))) + (___kont4053540536_ + (lambda (_L28236_ _L28238_) + (let* ((___stx4043440435_ _L28236_) + (_g2825428266_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4054440545_)))) - (let ((___kont4054740548_ - (lambda (_L28360_ _L28362_) - (let ((__tmp42964 - (lambda (_g2837428376_) - (let ((__tmp42965 - (cons _L28304_ - _L28360_))) + ___stx4043440435_)))) + (let ((___kont4043740438_ + (lambda (_L28294_ _L28296_) + (let ((__tmp42803 + (lambda (_g2830828310_) + (let ((__tmp42804 + (cons _L28238_ + _L28294_))) (declare (not safe)) - (_loop27372_ - __tmp42965 - _g2837428376_ - _K27662_))))) + (_loop27306_ + __tmp42804 + _g2830828310_ + _K27596_))))) (declare (not safe)) - (_loop27372_ - _L28362_ - _vars27661_ - __tmp42964)))) - (___kont4054940550_ - (lambda () (_K27662_ _vars27661_)))) - (if (gx#stx-pair? ___stx4054440545_) - (let ((_e2832628350_ - (gx#syntax-e ___stx4054440545_))) - (let ((_tl2832428357_ + (_loop27306_ + _L28296_ + _vars27595_ + __tmp42803)))) + (___kont4043940440_ + (lambda () (_K27596_ _vars27595_)))) + (if (gx#stx-pair? ___stx4043440435_) + (let ((_e2826028284_ + (gx#syntax-e ___stx4043440435_))) + (let ((_tl2825828291_ (let () (declare (not safe)) - (##cdr _e2832628350_))) - (_hd2832528354_ + (##cdr _e2826028284_))) + (_hd2825928288_ (let () (declare (not safe)) - (##car _e2832628350_)))) - (___kont4054740548_ - _tl2832428357_ - _hd2832528354_))) - (___kont4054940550_)))))) - (___kont4064740648_ - (lambda (_L28271_) + (##car _e2826028284_)))) + (___kont4043740438_ + _tl2825828291_ + _hd2825928288_))) + (___kont4043940440_)))))) + (___kont4053740538_ + (lambda (_L28205_) (let () (declare (not safe)) - (_loop27372_ _L28271_ _vars27661_ _K27662_)))) - (___kont4064940650_ - (lambda (_L28217_ _L28219_) - (let ((__tmp42966 - (lambda (_g2823428236_) + (_loop27306_ _L28205_ _vars27595_ _K27596_)))) + (___kont4053940540_ + (lambda (_L28151_ _L28153_) + (let ((__tmp42805 + (lambda (_g2816828170_) (let () (declare (not safe)) - (_loop27372_ - _L28217_ - _g2823428236_ - _K27662_))))) + (_loop27306_ + _L28151_ + _g2816828170_ + _K27596_))))) (declare (not safe)) - (_loop27372_ - _L28219_ - _vars27661_ - __tmp42966)))) - (___kont4065140652_ - (lambda (_L28153_ _L28155_) - (let ((__tmp42967 - (lambda (_g2817028172_) + (_loop27306_ + _L28153_ + _vars27595_ + __tmp42805)))) + (___kont4054140542_ + (lambda (_L28087_ _L28089_) + (let ((__tmp42806 + (lambda (_g2810428106_) (let () (declare (not safe)) - (_loop27372_ - _L28153_ - _g2817028172_ - _K27662_))))) + (_loop27306_ + _L28087_ + _g2810428106_ + _K27596_))))) (declare (not safe)) - (_loop27372_ - _L28155_ - _vars27661_ - __tmp42967)))) - (___kont4065340654_ - (lambda (_L28098_) + (_loop27306_ + _L28089_ + _vars27595_ + __tmp42806)))) + (___kont4054340544_ + (lambda (_L28032_) (let () (declare (not safe)) - (_loop27372_ _L28098_ _vars27661_ _K27662_)))) - (___kont4065540656_ - (lambda (_L28048_ _L28050_) + (_loop27306_ _L28032_ _vars27595_ _K27596_)))) + (___kont4054540546_ + (lambda (_L27982_ _L27984_) (let () (declare (not safe)) - (_loop-vector27374_ - _L28048_ - _vars27661_ - _K27662_)))) - (___kont4065740658_ - (lambda (_L28005_) + (_loop-vector27308_ + _L27982_ + _vars27595_ + _K27596_)))) + (___kont4054740548_ + (lambda (_L27939_) (let () (declare (not safe)) - (_loop-vector27374_ - _L28005_ - _vars27661_ - _K27662_)))) - (___kont4065940660_ - (lambda (_L27948_) + (_loop-vector27308_ + _L27939_ + _vars27595_ + _K27596_)))) + (___kont4054940550_ + (lambda (_L27882_) (let () (declare (not safe)) - (_loop-class-list27376_ - _L27948_ - _vars27661_ - _K27662_)))) - (___kont4066140662_ - (lambda (_L27889_ _L27891_) + (_loop-class-list27310_ + _L27882_ + _vars27595_ + _K27596_)))) + (___kont4055140552_ + (lambda (_L27823_ _L27825_) (let () (declare (not safe)) - (_loop27372_ _L27889_ _vars27661_ _K27662_)))) - (___kont4066340664_ - (lambda (_L27827_) - (if (find (lambda (_g2784227844_) + (_loop27306_ _L27823_ _vars27595_ _K27596_)))) + (___kont4055340554_ + (lambda (_L27761_) + (if (find (lambda (_g2777627778_) (gx#bound-identifier=? - _g2784227844_ - _L27827_)) - _vars27661_) - (_K27662_ _vars27661_) - (_K27662_ (cons _L27827_ _vars27661_))))) - (___kont4066540666_ - (lambda () (_K27662_ _vars27661_)))) - (let* ((___match4079740798_ - (lambda (_e2773428028_ - _hd2773328032_ - _tl2773228035_ - _e2773728038_ - _hd2773628042_ - _tl2773528045_) - (let ((_L28048_ _hd2773628042_) - (_L28050_ _hd2773328032_)) - (if (or (gx#stx-eq? 'values: _L28050_) - (gx#stx-eq? 'vector: _L28050_)) - (___kont4065540656_ _L28048_ _L28050_) - (if (gx#stx-datum? _hd2773328032_) - (let ((_e2774227981_ - (gx#stx-e _hd2773328032_))) - (if (equal? _e2774227981_ + _g2777627778_ + _L27761_)) + _vars27595_) + (_K27596_ _vars27595_) + (_K27596_ (cons _L27761_ _vars27595_))))) + (___kont4055540556_ + (lambda () (_K27596_ _vars27595_)))) + (let* ((___match4068740688_ + (lambda (_e2766827962_ + _hd2766727966_ + _tl2766627969_ + _e2767127972_ + _hd2767027976_ + _tl2766927979_) + (let ((_L27982_ _hd2767027976_) + (_L27984_ _hd2766727966_)) + (if (or (gx#stx-eq? 'values: _L27984_) + (gx#stx-eq? 'vector: _L27984_)) + (___kont4054540546_ _L27982_ _L27984_) + (if (gx#stx-datum? _hd2766727966_) + (let ((_e2767627915_ + (gx#stx-e _hd2766727966_))) + (if (equal? _e2767627915_ 'struct:) - (___kont4066540666_) - (if (equal? _e2774227981_ + (___kont4055540556_) + (if (equal? _e2767627915_ 'class:) - (___kont4066540666_) - (if (equal? _e2774227981_ + (___kont4055540556_) + (if (equal? _e2767627915_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'apply:) - (___kont4066540666_) - (if (equal? _e2774227981_ 'var:) - (___kont4066340664_ _hd2773628042_) - (___kont4066540666_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4066540666_)))))) - (___match4069140692_ - (lambda (_e2768928292_ - _hd2768828296_ - _tl2768728299_) - (let ((_L28302_ _tl2768728299_) - (_L28304_ _hd2768828296_)) - (if (or (gx#stx-eq? 'and: _L28304_) - (gx#stx-eq? 'or: _L28304_)) - (___kont4064540646_ _L28302_ _L28304_) - (if (gx#stx-datum? _hd2768828296_) - (let ((_e2769428257_ - (gx#stx-e _hd2768828296_))) - (if (equal? _e2769428257_ 'not:) + (___kont4055540556_) + (if (equal? _e2767627915_ 'var:) + (___kont4055340554_ _hd2767027976_) + (___kont4055540556_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4055540556_)))))) + (___match4058140582_ + (lambda (_e2762328226_ + _hd2762228230_ + _tl2762128233_) + (let ((_L28236_ _tl2762128233_) + (_L28238_ _hd2762228230_)) + (if (or (gx#stx-eq? 'and: _L28238_) + (gx#stx-eq? 'or: _L28238_)) + (___kont4053540536_ _L28236_ _L28238_) + (if (gx#stx-datum? _hd2762228230_) + (let ((_e2762828191_ + (gx#stx-e _hd2762228230_))) + (if (equal? _e2762828191_ 'not:) (if (gx#stx-pair? - _tl2768728299_) - (let ((_e2769728261_ + _tl2762128233_) + (let ((_e2763128195_ (gx#syntax-e - _tl2768728299_))) - (let ((_tl2769528268_ + _tl2762128233_))) + (let ((_tl2762928202_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2769728261_))) - (_hd2769628265_ - (let () (declare (not safe)) (##car _e2769728261_)))) - (if (gx#stx-null? _tl2769528268_) - (___kont4064740648_ _hd2769628265_) - (___kont4066540666_)))) - (___kont4066540666_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _e2769428257_ + (##cdr _e2763128195_))) + (_hd2763028199_ + (let () (declare (not safe)) (##car _e2763128195_)))) + (if (gx#stx-null? _tl2762928202_) + (___kont4053740538_ _hd2763028199_) + (___kont4055540556_)))) + (___kont4055540556_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (equal? _e2762828191_ 'cons:) (if (gx#stx-pair? - _tl2768728299_) - (let ((_e2770628197_ + _tl2762128233_) + (let ((_e2764028131_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2768728299_))) - (let ((_tl2770428204_ - (let () (declare (not safe)) (##cdr _e2770628197_))) - (_hd2770528201_ + (gx#syntax-e _tl2762128233_))) + (let ((_tl2763828138_ + (let () (declare (not safe)) (##cdr _e2764028131_))) + (_hd2763928135_ (let () (declare (not safe)) - (##car _e2770628197_)))) - (if (gx#stx-pair? _tl2770428204_) - (let ((_e2770928207_ (gx#syntax-e _tl2770428204_))) - (let ((_tl2770728214_ + (##car _e2764028131_)))) + (if (gx#stx-pair? _tl2763828138_) + (let ((_e2764328141_ (gx#syntax-e _tl2763828138_))) + (let ((_tl2764128148_ (let () (declare (not safe)) - (##cdr _e2770928207_))) - (_hd2770828211_ + (##cdr _e2764328141_))) + (_hd2764228145_ (let () (declare (not safe)) - (##car _e2770928207_)))) - (if (gx#stx-null? _tl2770728214_) - (___kont4064940650_ - _hd2770828211_ - _hd2770528201_) - (___kont4066540666_)))) - (if (gx#stx-null? _tl2770428204_) - (___match4079740798_ - _e2768928292_ - _hd2768828296_ - _tl2768728299_ - _e2770628197_ - _hd2770528201_ - _tl2770428204_) - (___kont4066540666_))))) - (___kont4066540666_)) - (if (equal? _e2769428257_ 'splice:) - (if (gx#stx-pair? _tl2768728299_) - (let ((_e2771828133_ (gx#syntax-e _tl2768728299_))) - (let ((_tl2771628140_ + (##car _e2764328141_)))) + (if (gx#stx-null? _tl2764128148_) + (___kont4053940540_ + _hd2764228145_ + _hd2763928135_) + (___kont4055540556_)))) + (if (gx#stx-null? _tl2763828138_) + (___match4068740688_ + _e2762328226_ + _hd2762228230_ + _tl2762128233_ + _e2764028131_ + _hd2763928135_ + _tl2763828138_) + (___kont4055540556_))))) + (___kont4055540556_)) + (if (equal? _e2762828191_ 'splice:) + (if (gx#stx-pair? _tl2762128233_) + (let ((_e2765228067_ (gx#syntax-e _tl2762128233_))) + (let ((_tl2765028074_ (let () (declare (not safe)) - (##cdr _e2771828133_))) - (_hd2771728137_ + (##cdr _e2765228067_))) + (_hd2765128071_ (let () (declare (not safe)) - (##car _e2771828133_)))) - (if (gx#stx-pair? _tl2771628140_) - (let ((_e2772128143_ - (gx#syntax-e _tl2771628140_))) - (let ((_tl2771928150_ + (##car _e2765228067_)))) + (if (gx#stx-pair? _tl2765028074_) + (let ((_e2765528077_ + (gx#syntax-e _tl2765028074_))) + (let ((_tl2765328084_ (let () (declare (not safe)) - (##cdr _e2772128143_))) - (_hd2772028147_ + (##cdr _e2765528077_))) + (_hd2765428081_ (let () (declare (not safe)) - (##car _e2772128143_)))) - (if (gx#stx-null? _tl2771928150_) - (___kont4065140652_ - _hd2772028147_ - _hd2771728137_) - (___kont4066540666_)))) - (if (gx#stx-null? _tl2771628140_) - (___match4079740798_ - _e2768928292_ - _hd2768828296_ - _tl2768728299_ - _e2771828133_ - _hd2771728137_ - _tl2771628140_) - (___kont4066540666_))))) - (___kont4066540666_)) - (if (equal? _e2769428257_ 'box:) - (if (gx#stx-pair? _tl2768728299_) - (let ((_e2772928088_ (gx#syntax-e _tl2768728299_))) - (let ((_tl2772728095_ + (##car _e2765528077_)))) + (if (gx#stx-null? _tl2765328084_) + (___kont4054140542_ + _hd2765428081_ + _hd2765128071_) + (___kont4055540556_)))) + (if (gx#stx-null? _tl2765028074_) + (___match4068740688_ + _e2762328226_ + _hd2762228230_ + _tl2762128233_ + _e2765228067_ + _hd2765128071_ + _tl2765028074_) + (___kont4055540556_))))) + (___kont4055540556_)) + (if (equal? _e2762828191_ 'box:) + (if (gx#stx-pair? _tl2762128233_) + (let ((_e2766328022_ (gx#syntax-e _tl2762128233_))) + (let ((_tl2766128029_ (let () (declare (not safe)) - (##cdr _e2772928088_))) - (_hd2772828092_ + (##cdr _e2766328022_))) + (_hd2766228026_ (let () (declare (not safe)) - (##car _e2772928088_)))) - (if (gx#stx-null? _tl2772728095_) - (___kont4065340654_ _hd2772828092_) - (___kont4066540666_)))) - (___kont4066540666_)) - (if (gx#stx-pair? _tl2768728299_) - (let ((_e2773728038_ (gx#syntax-e _tl2768728299_))) - (let ((_tl2773528045_ + (##car _e2766328022_)))) + (if (gx#stx-null? _tl2766128029_) + (___kont4054340544_ _hd2766228026_) + (___kont4055540556_)))) + (___kont4055540556_)) + (if (gx#stx-pair? _tl2762128233_) + (let ((_e2767127972_ (gx#syntax-e _tl2762128233_))) + (let ((_tl2766927979_ (let () (declare (not safe)) - (##cdr _e2773728038_))) - (_hd2773628042_ + (##cdr _e2767127972_))) + (_hd2767027976_ (let () (declare (not safe)) - (##car _e2773728038_)))) - (if (gx#stx-null? _tl2773528045_) - (___match4079740798_ - _e2768928292_ - _hd2768828296_ - _tl2768728299_ - _e2773728038_ - _hd2773628042_ - _tl2773528045_) - (if (equal? _e2769428257_ 'struct:) - (if (gx#stx-pair? _tl2773528045_) - (let ((_e2774827995_ - (gx#syntax-e _tl2773528045_))) - (let ((_tl2774628002_ + (##car _e2767127972_)))) + (if (gx#stx-null? _tl2766927979_) + (___match4068740688_ + _e2762328226_ + _hd2762228230_ + _tl2762128233_ + _e2767127972_ + _hd2767027976_ + _tl2766927979_) + (if (equal? _e2762828191_ 'struct:) + (if (gx#stx-pair? _tl2766927979_) + (let ((_e2768227929_ + (gx#syntax-e _tl2766927979_))) + (let ((_tl2768027936_ (let () (declare (not safe)) - (##cdr _e2774827995_))) - (_hd2774727999_ + (##cdr _e2768227929_))) + (_hd2768127933_ (let () (declare (not safe)) - (##car _e2774827995_)))) - (if (gx#stx-null? _tl2774628002_) - (___kont4065740658_ - _hd2774727999_) - (___kont4066540666_)))) - (___kont4066540666_)) - (if (equal? _e2769428257_ 'class:) - (if (gx#stx-pair? _tl2773528045_) - (let ((_e2775927938_ + (##car _e2768227929_)))) + (if (gx#stx-null? _tl2768027936_) + (___kont4054740548_ + _hd2768127933_) + (___kont4055540556_)))) + (___kont4055540556_)) + (if (equal? _e2762828191_ 'class:) + (if (gx#stx-pair? _tl2766927979_) + (let ((_e2769327872_ (gx#syntax-e - _tl2773528045_))) - (let ((_tl2775727945_ + _tl2766927979_))) + (let ((_tl2769127879_ (let () (declare (not safe)) - (##cdr _e2775927938_))) - (_hd2775827942_ + (##cdr _e2769327872_))) + (_hd2769227876_ (let () (declare (not safe)) - (##car _e2775927938_)))) + (##car _e2769327872_)))) (if (gx#stx-null? - _tl2775727945_) - (___kont4065940660_ - _hd2775827942_) - (___kont4066540666_)))) - (___kont4066540666_)) - (if (equal? _e2769428257_ 'apply:) - (if (gx#stx-pair? _tl2773528045_) - (let ((_e2777127879_ + _tl2769127879_) + (___kont4054940550_ + _hd2769227876_) + (___kont4055540556_)))) + (___kont4055540556_)) + (if (equal? _e2762828191_ 'apply:) + (if (gx#stx-pair? _tl2766927979_) + (let ((_e2770527813_ (gx#syntax-e - _tl2773528045_))) - (let ((_tl2776927886_ + _tl2766927979_))) + (let ((_tl2770327820_ (let () (declare (not safe)) - (##cdr _e2777127879_))) - (_hd2777027883_ + (##cdr _e2770527813_))) + (_hd2770427817_ (let () (declare (not safe)) - (##car _e2777127879_)))) + (##car _e2770527813_)))) (if (gx#stx-null? - _tl2776927886_) - (___kont4066140662_ - _hd2777027883_ - _hd2773628042_) - (___kont4066540666_)))) - (___kont4066540666_)) - (___kont4066540666_))))))) - (___kont4066540666_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl2768728299_) - (let ((_e2773728038_ + _tl2770327820_) + (___kont4055140552_ + _hd2770427817_ + _hd2767027976_) + (___kont4055540556_)))) + (___kont4055540556_)) + (___kont4055540556_))))))) + (___kont4055540556_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _tl2762128233_) + (let ((_e2767127972_ (gx#syntax-e - _tl2768728299_))) - (let ((_tl2773528045_ + _tl2762128233_))) + (let ((_tl2766927979_ (let () (declare (not safe)) - (##cdr _e2773728038_))) - (_hd2773628042_ + (##cdr _e2767127972_))) + (_hd2767027976_ (let () (declare (not safe)) - (##car _e2773728038_)))) + (##car _e2767127972_)))) (if (gx#stx-null? - _tl2773528045_) - (___match4079740798_ - _e2768928292_ - _hd2768828296_ - _tl2768728299_ - _e2773728038_ - _hd2773628042_ - _tl2773528045_) - (___kont4066540666_)))) - (___kont4066540666_)))))))) - (if (gx#stx-pair? ___stx4064040641_) - (let ((_e2768028391_ - (gx#syntax-e ___stx4064040641_))) - (let ((_tl2767828398_ + _tl2766927979_) + (___match4068740688_ + _e2762328226_ + _hd2762228230_ + _tl2762128233_ + _e2767127972_ + _hd2767027976_ + _tl2766927979_) + (___kont4055540556_)))) + (___kont4055540556_)))))))) + (if (gx#stx-pair? ___stx4053040531_) + (let ((_e2761428325_ + (gx#syntax-e ___stx4053040531_))) + (let ((_tl2761228332_ (let () (declare (not safe)) - (##cdr _e2768028391_))) - (_hd2767928395_ + (##cdr _e2761428325_))) + (_hd2761328329_ (let () (declare (not safe)) - (##car _e2768028391_)))) - (if (gx#stx-datum? _hd2767928395_) - (let ((_e2768128401_ - (gx#stx-e _hd2767928395_))) - (if (equal? _e2768128401_ '?:) - (if (gx#stx-pair? _tl2767828398_) - (let ((_e2768428405_ + (##car _e2761428325_)))) + (if (gx#stx-datum? _hd2761328329_) + (let ((_e2761528335_ + (gx#stx-e _hd2761328329_))) + (if (equal? _e2761528335_ '?:) + (if (gx#stx-pair? _tl2761228332_) + (let ((_e2761828339_ (gx#syntax-e - _tl2767828398_))) - (let ((_tl2768228412_ + _tl2761228332_))) + (let ((_tl2761628346_ (let () (declare (not safe)) - (##cdr _e2768428405_))) - (_hd2768328409_ + (##cdr _e2761828339_))) + (_hd2761728343_ (let () (declare (not safe)) - (##car _e2768428405_)))) - (___kont4064340644_ - _tl2768228412_))) - (___match4069140692_ - _e2768028391_ - _hd2767928395_ - _tl2767828398_)) - (___match4069140692_ - _e2768028391_ - _hd2767928395_ - _tl2767828398_))) - (___match4069140692_ - _e2768028391_ - _hd2767928395_ - _tl2767828398_)))) - (___kont4066540666_))))))) - (_loop-vector27374_ - (lambda (_body27535_ _vars27537_ _K27538_) - (let* ((___stx4089840899_ _body27535_) - (_g2754127564_ + (##car _e2761828339_)))) + (___kont4053340534_ + _tl2761628346_))) + (___match4058140582_ + _e2761428325_ + _hd2761328329_ + _tl2761228332_)) + (___match4058140582_ + _e2761428325_ + _hd2761328329_ + _tl2761228332_))) + (___match4058140582_ + _e2761428325_ + _hd2761328329_ + _tl2761228332_)))) + (___kont4055540556_))))))) + (_loop-vector27308_ + (lambda (_body27469_ _vars27471_ _K27472_) + (let* ((___stx4078840789_ _body27469_) + (_g2747527498_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4089840899_)))) - (let ((___kont4090140902_ - (lambda (_L27641_) + ___stx4078840789_)))) + (let ((___kont4079140792_ + (lambda (_L27575_) (let () (declare (not safe)) - (_loop-list27375_ - _L27641_ - _vars27537_ - _K27538_)))) - (___kont4090340904_ - (lambda (_L27595_) + (_loop-list27309_ + _L27575_ + _vars27471_ + _K27472_)))) + (___kont4079340794_ + (lambda (_L27529_) (let () (declare (not safe)) - (_loop27372_ - _L27595_ - _vars27537_ - _K27538_))))) - (if (gx#stx-pair? ___stx4089840899_) - (let ((_e2754627617_ - (gx#syntax-e ___stx4089840899_))) - (let ((_tl2754427624_ + (_loop27306_ + _L27529_ + _vars27471_ + _K27472_))))) + (if (gx#stx-pair? ___stx4078840789_) + (let ((_e2748027551_ + (gx#syntax-e ___stx4078840789_))) + (let ((_tl2747827558_ (let () (declare (not safe)) - (##cdr _e2754627617_))) - (_hd2754527621_ + (##cdr _e2748027551_))) + (_hd2747927555_ (let () (declare (not safe)) - (##car _e2754627617_)))) - (if (gx#stx-datum? _hd2754527621_) - (let ((_e2754727627_ - (gx#stx-e _hd2754527621_))) - (if (equal? _e2754727627_ 'simple:) - (if (gx#stx-pair? _tl2754427624_) - (let ((_e2755027631_ + (##car _e2748027551_)))) + (if (gx#stx-datum? _hd2747927555_) + (let ((_e2748127561_ + (gx#stx-e _hd2747927555_))) + (if (equal? _e2748127561_ 'simple:) + (if (gx#stx-pair? _tl2747827558_) + (let ((_e2748427565_ (gx#syntax-e - _tl2754427624_))) - (let ((_tl2754827638_ + _tl2747827558_))) + (let ((_tl2748227572_ (let () (declare (not safe)) - (##cdr _e2755027631_))) - (_hd2754927635_ + (##cdr _e2748427565_))) + (_hd2748327569_ (let () (declare (not safe)) - (##car _e2755027631_)))) + (##car _e2748427565_)))) (if (gx#stx-null? - _tl2754827638_) - (___kont4090140902_ - _hd2754927635_) + _tl2748227572_) + (___kont4079140792_ + _hd2748327569_) (let () (declare (not safe)) - (_g2754127564_))))) + (_g2747527498_))))) (let () (declare (not safe)) - (_g2754127564_))) - (if (equal? _e2754727627_ 'list:) - (if (gx#stx-pair? _tl2754427624_) - (let ((_e2755827585_ + (_g2747527498_))) + (if (equal? _e2748127561_ 'list:) + (if (gx#stx-pair? _tl2747827558_) + (let ((_e2749227519_ (gx#syntax-e - _tl2754427624_))) - (let ((_tl2755627592_ + _tl2747827558_))) + (let ((_tl2749027526_ (let () (declare (not safe)) - (##cdr _e2755827585_))) - (_hd2755727589_ + (##cdr _e2749227519_))) + (_hd2749127523_ (let () (declare (not safe)) - (##car _e2755827585_)))) + (##car _e2749227519_)))) (if (gx#stx-null? - _tl2755627592_) - (___kont4090340904_ - _hd2755727589_) + _tl2749027526_) + (___kont4079340794_ + _hd2749127523_) (let () (declare (not safe)) - (_g2754127564_))))) + (_g2747527498_))))) (let () (declare (not safe)) - (_g2754127564_))) + (_g2747527498_))) (let () (declare (not safe)) - (_g2754127564_))))) + (_g2747527498_))))) (let () (declare (not safe)) - (_g2754127564_))))) - (let () (declare (not safe)) (_g2754127564_))))))) - (_loop-list27375_ - (lambda (_rest27465_ _vars27467_ _K27468_) - (let* ((___stx4094840949_ _rest27465_) - (_g2747127483_ + (_g2747527498_))))) + (let () (declare (not safe)) (_g2747527498_))))))) + (_loop-list27309_ + (lambda (_rest27399_ _vars27401_ _K27402_) + (let* ((___stx4083840839_ _rest27399_) + (_g2740527417_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4094840949_)))) - (let ((___kont4095140952_ - (lambda (_L27511_ _L27513_) - (let ((__tmp42968 - (lambda (_g2752527527_) + ___stx4083840839_)))) + (let ((___kont4084140842_ + (lambda (_L27445_ _L27447_) + (let ((__tmp42807 + (lambda (_g2745927461_) (let () (declare (not safe)) - (_loop-list27375_ - _L27511_ - _g2752527527_ - _K27468_))))) + (_loop-list27309_ + _L27445_ + _g2745927461_ + _K27402_))))) (declare (not safe)) - (_loop27372_ - _L27513_ - _vars27467_ - __tmp42968)))) - (___kont4095340954_ - (lambda () (_K27468_ _vars27467_)))) - (if (gx#stx-pair? ___stx4094840949_) - (let ((_e2747727501_ - (gx#syntax-e ___stx4094840949_))) - (let ((_tl2747527508_ + (_loop27306_ + _L27447_ + _vars27401_ + __tmp42807)))) + (___kont4084340844_ + (lambda () (_K27402_ _vars27401_)))) + (if (gx#stx-pair? ___stx4083840839_) + (let ((_e2741127435_ + (gx#syntax-e ___stx4083840839_))) + (let ((_tl2740927442_ (let () (declare (not safe)) - (##cdr _e2747727501_))) - (_hd2747627505_ + (##cdr _e2741127435_))) + (_hd2741027439_ (let () (declare (not safe)) - (##car _e2747727501_)))) - (___kont4095140952_ - _tl2747527508_ - _hd2747627505_))) - (___kont4095340954_)))))) - (_loop-class-list27376_ - (lambda (_rest27378_ _vars27380_ _K27381_) - (let* ((___stx4096440965_ _rest27378_) - (_g2738427399_ + (##car _e2741127435_)))) + (___kont4084140842_ + _tl2740927442_ + _hd2741027439_))) + (___kont4084340844_)))))) + (_loop-class-list27310_ + (lambda (_rest27312_ _vars27314_ _K27315_) + (let* ((___stx4085440855_ _rest27312_) + (_g2731827333_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4096440965_)))) - (let ((___kont4096740968_ - (lambda (_L27437_ _L27439_) - (let ((__tmp42969 - (lambda (_g2745527457_) + ___stx4085440855_)))) + (let ((___kont4085740858_ + (lambda (_L27371_ _L27373_) + (let ((__tmp42808 + (lambda (_g2738927391_) (let () (declare (not safe)) - (_loop-class-list27376_ - _L27437_ - _g2745527457_ - _K27381_))))) + (_loop-class-list27310_ + _L27371_ + _g2738927391_ + _K27315_))))) (declare (not safe)) - (_loop27372_ - _L27439_ - _vars27380_ - __tmp42969)))) - (___kont4096940970_ - (lambda () (_K27381_ _vars27380_)))) - (if (gx#stx-pair? ___stx4096440965_) - (let ((_e2739027417_ - (gx#syntax-e ___stx4096440965_))) - (let ((_tl2738827424_ + (_loop27306_ + _L27373_ + _vars27314_ + __tmp42808)))) + (___kont4085940860_ + (lambda () (_K27315_ _vars27314_)))) + (if (gx#stx-pair? ___stx4085440855_) + (let ((_e2732427351_ + (gx#syntax-e ___stx4085440855_))) + (let ((_tl2732227358_ (let () (declare (not safe)) - (##cdr _e2739027417_))) - (_hd2738927421_ + (##cdr _e2732427351_))) + (_hd2732327355_ (let () (declare (not safe)) - (##car _e2739027417_)))) - (if (gx#stx-pair? _tl2738827424_) - (let ((_e2739327427_ - (gx#syntax-e _tl2738827424_))) - (let ((_tl2739127434_ + (##car _e2732427351_)))) + (if (gx#stx-pair? _tl2732227358_) + (let ((_e2732727361_ + (gx#syntax-e _tl2732227358_))) + (let ((_tl2732527368_ (let () (declare (not safe)) - (##cdr _e2739327427_))) - (_hd2739227431_ + (##cdr _e2732727361_))) + (_hd2732627365_ (let () (declare (not safe)) - (##car _e2739327427_)))) - (___kont4096740968_ - _tl2739127434_ - _hd2739227431_))) - (___kont4096940970_)))) - (___kont4096940970_))))))) + (##car _e2732727361_)))) + (___kont4085740858_ + _tl2732527368_ + _hd2732627365_))) + (___kont4085940860_)))) + (___kont4085940860_))))))) (let () (declare (not safe)) - (_loop27372_ _ptree27369_ '() values))))) + (_loop27306_ _ptree27303_ '() values))))) (define |gerbil/core$[1]#generate-match1| - (lambda (_stx23952_ _tgt23954_ _ptree23955_ _K23956_ _E23957_) - (letrec ((_generate123959_ - (lambda (_tgt25582_ _ptree25584_ _K25585_ _E25586_) - (let* ((_g2558825596_ - (lambda (_g2558925592_) + (lambda (_stx23886_ _tgt23888_ _ptree23889_ _K23890_ _E23891_) + (letrec ((_generate123893_ + (lambda (_tgt25516_ _ptree25518_ _K25519_ _E25520_) + (let* ((_g2552225530_ + (lambda (_g2552325526_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2558925592_))) - (_g2558727365_ - (lambda (_g2558925600_) - ((lambda (_L25603_) + _g2552325526_))) + (_g2552127299_ + (lambda (_g2552325534_) + ((lambda (_L25537_) (let () - (let* ((___stx4120041201_ _ptree25584_) - (_g2563025772_ + (let* ((___stx4109041091_ _ptree25518_) + (_g2556425706_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4120041201_)))) - (let ((___kont4120341204_ - (lambda (_L27080_ _L27082_) - (let* ((___stx4111841119_ - _L27080_) - (_g2709927134_ + ___stx4109041091_)))) + (let ((___kont4109341094_ + (lambda (_L27014_ _L27016_) + (let* ((___stx4100841009_ + _L27014_) + (_g2703327068_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4111841119_)))) - (let ((___kont4112141122_ + ___stx4100841009_)))) + (let ((___kont4101141012_ (lambda () (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _L27082_ (cons _L25603_ '()))) - (cons _K25585_ (cons _E25586_ '())))))) - (___kont4112341124_ - (lambda (_L27335_) + (cons _L27016_ (cons _L25537_ '()))) + (cons _K25519_ (cons _E25520_ '())))))) + (___kont4101341014_ + (lambda (_L27269_) (cons 'if (cons (cons (gx#datum->syntax '#f '?) - (cons _L27082_ (cons _L25603_ '()))) + (cons _L27016_ (cons _L25537_ '()))) (cons (let () (declare (not safe)) - (_generate123959_ - _tgt25582_ - _L27335_ - _K25585_ - _E25586_)) - (cons _E25586_ '())))))) - (___kont4112541126_ - (lambda (_L27273_) - (let* ((_g2728727295_ - (lambda (_g2728827291_) + (_generate123893_ + _tgt25516_ + _L27269_ + _K25519_ + _E25520_)) + (cons _E25520_ '())))))) + (___kont4101541016_ + (lambda (_L27207_) + (let* ((_g2722127229_ + (lambda (_g2722227225_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2728827291_))) - (_g2728627314_ - (lambda (_g2728827299_) - ((lambda (_L27302_) + _g2722227225_))) + (_g2722027248_ + (lambda (_g2722227233_) + ((lambda (_L27236_) (let () (cons 'let - (cons (cons (cons _L27302_ - (cons (cons _L27082_ + (cons (cons (cons _L27236_ + (cons (cons _L27016_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L25603_ '())) + (cons _L25537_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons 'if - (cons _L27302_ + (cons _L27236_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_generate123959_ - _L27302_ - _L27273_ - _K25585_ - _E25586_)) - (cons _E25586_ '())))) + (_generate123893_ + _L27236_ + _L27207_ + _K25519_ + _E25520_)) + (cons _E25520_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _g2728827299_))) - (__tmp42970 (gx#genident 'e))) + _g2722227233_))) + (__tmp42809 (gx#genident 'e))) (declare (not safe)) - (_g2728627314_ __tmp42970)))) - (___kont4112741128_ - (lambda (_L27189_ _L27191_) - (let* ((_g2721127219_ - (lambda (_g2721227215_) + (_g2722027248_ __tmp42809)))) + (___kont4101741018_ + (lambda (_L27123_ _L27125_) + (let* ((_g2714527153_ + (lambda (_g2714627149_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2721227215_))) - (_g2721027238_ - (lambda (_g2721227223_) - ((lambda (_L27226_) + _g2714627149_))) + (_g2714427172_ + (lambda (_g2714627157_) + ((lambda (_L27160_) (let () (cons 'if (cons (cons (gx#datum->syntax '#f '?) - (cons _L27082_ - (cons _L25603_ '()))) + (cons _L27016_ + (cons _L25537_ '()))) (cons (cons 'let - (cons (cons (cons _L27226_ + (cons (cons (cons _L27160_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _L27191_ (cons _L25603_ '())) + (cons (cons _L27125_ (cons _L25537_ '())) '())) '()) (cons (let () (declare (not safe)) - (_generate123959_ - _L27226_ - _L27189_ - _K25585_ - _E25586_)) + (_generate123893_ + _L27160_ + _L27123_ + _K25519_ + _E25520_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _E25586_ '())))))) - _g2721227223_))) - (__tmp42971 (gx#genident 'e))) + (cons _E25520_ '())))))) + _g2714627157_))) + (__tmp42810 (gx#genident 'e))) (declare (not safe)) - (_g2721027238_ __tmp42971))))) + (_g2714427172_ __tmp42810))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g2709627346_ + (let ((_g2703027280_ (lambda () (if (gx#stx-pair? - ___stx4111841119_) - (let ((_e2710427325_ + ___stx4100841009_) + (let ((_e2703827259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e ___stx4111841119_))) - (let ((_tl2710227332_ + (gx#syntax-e ___stx4100841009_))) + (let ((_tl2703627266_ (let () (declare (not safe)) - (##cdr _e2710427325_))) - (_hd2710327329_ + (##cdr _e2703827259_))) + (_hd2703727263_ (let () (declare (not safe)) - (##car _e2710427325_)))) - (if (gx#stx-null? _tl2710227332_) - (___kont4112341124_ _hd2710327329_) - (if (gx#stx-datum? _hd2710327329_) - (let ((_e2710927259_ - (gx#stx-e _hd2710327329_))) - (if (equal? _e2710927259_ '=>:) - (if (gx#stx-pair? _tl2710227332_) - (let ((_e2711227263_ + (##car _e2703827259_)))) + (if (gx#stx-null? _tl2703627266_) + (___kont4101341014_ _hd2703727263_) + (if (gx#stx-datum? _hd2703727263_) + (let ((_e2704327193_ + (gx#stx-e _hd2703727263_))) + (if (equal? _e2704327193_ '=>:) + (if (gx#stx-pair? _tl2703627266_) + (let ((_e2704627197_ (gx#syntax-e - _tl2710227332_))) - (let ((_tl2711027270_ + _tl2703627266_))) + (let ((_tl2704427204_ (let () (declare (not safe)) - (##cdr _e2711227263_))) - (_hd2711127267_ + (##cdr _e2704627197_))) + (_hd2704527201_ (let () (declare (not safe)) - (##car _e2711227263_)))) + (##car _e2704627197_)))) (if (gx#stx-null? - _tl2711027270_) - (___kont4112541126_ - _hd2711127267_) + _tl2704427204_) + (___kont4101541016_ + _hd2704527201_) (let () (declare (not safe)) - (_g2709927134_))))) + (_g2703327068_))))) (let () (declare (not safe)) - (_g2709927134_))) - (if (equal? _e2710927259_ '::) - (if (gx#stx-pair? _tl2710227332_) - (let ((_e2712127155_ + (_g2703327068_))) + (if (equal? _e2704327193_ '::) + (if (gx#stx-pair? _tl2703627266_) + (let ((_e2705527089_ (gx#syntax-e - _tl2710227332_))) - (let ((_tl2711927162_ + _tl2703627266_))) + (let ((_tl2705327096_ (let () (declare (not safe)) - (##cdr _e2712127155_))) - (_hd2712027159_ + (##cdr _e2705527089_))) + (_hd2705427093_ (let () (declare (not safe)) - (##car _e2712127155_)))) + (##car _e2705527089_)))) (if (gx#stx-pair? - _tl2711927162_) - (let ((_e2712427165_ + _tl2705327096_) + (let ((_e2705827099_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2711927162_))) - (let ((_tl2712227172_ - (let () (declare (not safe)) (##cdr _e2712427165_))) - (_hd2712327169_ - (let () (declare (not safe)) (##car _e2712427165_)))) - (if (gx#stx-datum? _hd2712327169_) - (let ((_e2712527175_ (gx#stx-e _hd2712327169_))) - (if (equal? _e2712527175_ '=>:) - (if (gx#stx-pair? _tl2712227172_) - (let ((_e2712827179_ - (gx#syntax-e _tl2712227172_))) - (let ((_tl2712627186_ + _tl2705327096_))) + (let ((_tl2705627106_ + (let () (declare (not safe)) (##cdr _e2705827099_))) + (_hd2705727103_ + (let () (declare (not safe)) (##car _e2705827099_)))) + (if (gx#stx-datum? _hd2705727103_) + (let ((_e2705927109_ (gx#stx-e _hd2705727103_))) + (if (equal? _e2705927109_ '=>:) + (if (gx#stx-pair? _tl2705627106_) + (let ((_e2706227113_ + (gx#syntax-e _tl2705627106_))) + (let ((_tl2706027120_ (let () (declare (not safe)) - (##cdr _e2712827179_))) - (_hd2712727183_ + (##cdr _e2706227113_))) + (_hd2706127117_ (let () (declare (not safe)) - (##car _e2712827179_)))) - (if (gx#stx-null? _tl2712627186_) - (___kont4112741128_ - _hd2712727183_ - _hd2712027159_) + (##car _e2706227113_)))) + (if (gx#stx-null? _tl2706027120_) + (___kont4101741018_ + _hd2706127117_ + _hd2705427093_) (let () (declare (not safe)) - (_g2709927134_))))) + (_g2703327068_))))) (let () (declare (not safe)) - (_g2709927134_))) - (let () (declare (not safe)) (_g2709927134_)))) - (let () (declare (not safe)) (_g2709927134_))))) - (let () (declare (not safe)) (_g2709927134_))))) + (_g2703327068_))) + (let () (declare (not safe)) (_g2703327068_)))) + (let () (declare (not safe)) (_g2703327068_))))) + (let () (declare (not safe)) (_g2703327068_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2709927134_))) + (_g2703327068_))) (let () (declare (not safe)) - (_g2709927134_))))) + (_g2703327068_))))) (let () (declare (not safe)) - (_g2709927134_)))))) - (let () (declare (not safe)) (_g2709927134_)))))) + (_g2703327068_)))))) + (let () (declare (not safe)) (_g2703327068_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - ___stx4111841119_) - (___kont4112141122_) + ___stx4100841009_) + (___kont4101141012_) (let () (declare (not safe)) - (_g2709627346_)))))))) - (___kont4120541206_ - (lambda (_L26977_) - (let* ((___stx4110241103_ - _L26977_) - (_g2699027002_ + (_g2703027280_)))))))) + (___kont4109541096_ + (lambda (_L26911_) + (let* ((___stx4099240993_ + _L26911_) + (_g2692426936_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4110241103_)))) - (let ((___kont4110541106_ - (lambda (_L27030_ - _L27032_) - (let ((__tmp42972 - (let ((__tmp42973 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'and: _L27030_))) + ___stx4099240993_)))) + (let ((___kont4099540996_ + (lambda (_L26964_ + _L26966_) + (let ((__tmp42811 + (let ((__tmp42812 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons 'and: _L26964_))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - __tmp42973 - _K25585_ - _E25586_)))) + (_generate123893_ + _tgt25516_ + __tmp42812 + _K25519_ + _E25520_)))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - _L27032_ - __tmp42972 - _E25586_)))) - (___kont4110741108_ (lambda () _K25585_))) + (_generate123893_ + _tgt25516_ + _L26966_ + __tmp42811 + _E25520_)))) + (___kont4099740998_ (lambda () _K25519_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4110241103_) - (let ((_e2699627020_ + ___stx4099240993_) + (let ((_e2693026954_ (gx#syntax-e - ___stx4110241103_))) - (let ((_tl2699427027_ + ___stx4099240993_))) + (let ((_tl2692826961_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2699627020_))) - (_hd2699527024_ - (let () (declare (not safe)) (##car _e2699627020_)))) - (___kont4110541106_ _tl2699427027_ _hd2699527024_))) - (___kont4110741108_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4120741208_ - (lambda (_L26884_) - (let* ((___stx4108641087_ - _L26884_) - (_g2689726909_ + (##cdr _e2693026954_))) + (_hd2692926958_ + (let () (declare (not safe)) (##car _e2693026954_)))) + (___kont4099540996_ _tl2692826961_ _hd2692926958_))) + (___kont4099740998_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4109741098_ + (lambda (_L26818_) + (let* ((___stx4097640977_ + _L26818_) + (_g2683126843_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4108641087_)))) - (let ((___kont4108941090_ - (lambda (_L26937_ - _L26939_) - (let ((__tmp42974 - (let ((__tmp42975 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'or: _L26937_))) + ___stx4097640977_)))) + (let ((___kont4097940980_ + (lambda (_L26871_ + _L26873_) + (let ((__tmp42813 + (let ((__tmp42814 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons 'or: _L26871_))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - __tmp42975 - _K25585_ - _E25586_)))) + (_generate123893_ + _tgt25516_ + __tmp42814 + _K25519_ + _E25520_)))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - _L26939_ - _K25585_ - __tmp42974)))) - (___kont4109141092_ (lambda () _E25586_))) + (_generate123893_ + _tgt25516_ + _L26873_ + _K25519_ + __tmp42813)))) + (___kont4098140982_ (lambda () _E25520_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4108641087_) - (let ((_e2690326927_ + ___stx4097640977_) + (let ((_e2683726861_ (gx#syntax-e - ___stx4108641087_))) - (let ((_tl2690126934_ + ___stx4097640977_))) + (let ((_tl2683526868_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2690326927_))) - (_hd2690226931_ - (let () (declare (not safe)) (##car _e2690326927_)))) - (___kont4108941090_ _tl2690126934_ _hd2690226931_))) - (___kont4109141092_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4120941210_ - (lambda (_L26849_) + (##cdr _e2683726861_))) + (_hd2683626865_ + (let () (declare (not safe)) (##car _e2683726861_)))) + (___kont4097940980_ _tl2683526868_ _hd2683626865_))) + (___kont4098140982_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4109941100_ + (lambda (_L26783_) (let () (declare (not safe)) - (_generate123959_ - _tgt25582_ - _L26849_ - _E25586_ - _K25585_)))) - (___kont4121141212_ - (lambda (_L26731_ _L26733_) - (let* ((_g2675026765_ - (lambda (_g2675126761_) + (_generate123893_ + _tgt25516_ + _L26783_ + _E25520_ + _K25519_)))) + (___kont4110141102_ + (lambda (_L26665_ _L26667_) + (let* ((_g2668426699_ + (lambda (_g2668526695_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2675126761_))) - (_g2674926814_ - (lambda (_g2675126769_) + _g2668526695_))) + (_g2668326748_ + (lambda (_g2668526703_) (if (gx#stx-pair? - _g2675126769_) - (let ((_e2675626772_ + _g2668526703_) + (let ((_e2669026706_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g2675126769_))) - (let ((_hd2675526776_ + (gx#syntax-e _g2668526703_))) + (let ((_hd2668926710_ (let () (declare (not safe)) - (##car _e2675626772_))) - (_tl2675426779_ + (##car _e2669026706_))) + (_tl2668826713_ (let () (declare (not safe)) - (##cdr _e2675626772_)))) - (if (gx#stx-pair? _tl2675426779_) - (let ((_e2675926782_ (gx#syntax-e _tl2675426779_))) - (let ((_hd2675826786_ + (##cdr _e2669026706_)))) + (if (gx#stx-pair? _tl2668826713_) + (let ((_e2669326716_ (gx#syntax-e _tl2668826713_))) + (let ((_hd2669226720_ (let () (declare (not safe)) - (##car _e2675926782_))) - (_tl2675726789_ + (##car _e2669326716_))) + (_tl2669126723_ (let () (declare (not safe)) - (##cdr _e2675926782_)))) - (if (gx#stx-null? _tl2675726789_) - ((lambda (_L26792_ _L26794_) + (##cdr _e2669326716_)))) + (if (gx#stx-null? _tl2669126723_) + ((lambda (_L26726_ _L26728_) (let () (cons 'if (cons (cons (gx#datum->syntax '#f '##pair?) - (cons _L25603_ '())) - (cons (let ((_hd-pat26810_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _L26733_)) - (_tl-pat26812_ (gx#stx-e _L26731_))) - (if (and (equal? _hd-pat26810_ '(any:)) - (equal? _tl-pat26812_ '(any:))) - _K25585_ - (if (equal? _tl-pat26812_ '(any:)) + (cons _L25537_ '())) + (cons (let ((_hd-pat26744_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _L26667_)) + (_tl-pat26746_ (gx#stx-e _L26665_))) + (if (and (equal? _hd-pat26744_ '(any:)) + (equal? _tl-pat26746_ '(any:))) + _K25519_ + (if (equal? _tl-pat26746_ '(any:)) (cons 'let - (cons (cons (cons _L26794_ + (cons (cons (cons _L26728_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) - (cons _L25603_ '())) + (cons _L25537_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (let () (declare (not safe)) - (_generate123959_ - _L26794_ - _L26733_ - _K25585_ - _E25586_)) + (_generate123893_ + _L26728_ + _L26667_ + _K25519_ + _E25520_)) '()))) - (if (equal? _hd-pat26810_ '(any:)) + (if (equal? _hd-pat26744_ '(any:)) (cons 'let - (cons (cons (cons _L26792_ + (cons (cons (cons _L26726_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _L25603_ '())) + (cons _L25537_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (let () (declare (not safe)) - (_generate123959_ - _L26792_ - _L26731_ - _K25585_ - _E25586_)) + (_generate123893_ + _L26726_ + _L26665_ + _K25519_ + _E25520_)) '()))) (cons 'let - (cons (cons (cons _L26794_ + (cons (cons (cons _L26728_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) - (cons _L25603_ '())) + (cons _L25537_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L26792_ + (cons (cons _L26726_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _L25603_ '())) + (cons _L25537_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (let ((__tmp42976 + (cons (let ((__tmp42815 (let () (declare (not safe)) - (_generate123959_ - _L26792_ - _L26731_ - _K25585_ - _E25586_)))) + (_generate123893_ + _L26726_ + _L26665_ + _K25519_ + _E25520_)))) (declare (not safe)) - (_generate123959_ - _L26794_ - _L26733_ - __tmp42976 - _E25586_)) + (_generate123893_ + _L26728_ + _L26667_ + __tmp42815 + _E25520_)) '()))))))) - (cons _E25586_ '())))))) + (cons _E25520_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2675826786_ - _hd2675526776_) + _hd2669226720_ + _hd2668926710_) (let () (declare (not safe)) - (_g2675026765_ _g2675126769_))))) + (_g2668426699_ _g2668526703_))))) (let () (declare (not safe)) - (_g2675026765_ _g2675126769_))))) + (_g2668426699_ _g2668526703_))))) (let () (declare (not safe)) - (_g2675026765_ _g2675126769_))))) + (_g2668426699_ _g2668526703_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42977 + (__tmp42816 (list (gx#genident 'hd) (gx#genident 'tl)))) (declare (not safe)) - (_g2674926814_ __tmp42977)))) - (___kont4121341214_ + (_g2668326748_ __tmp42816)))) + (___kont4110341104_ (lambda () (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##null?) - (cons _L25603_ '())) - (cons _K25585_ (cons _E25586_ '())))))) + (cons _L25537_ '())) + (cons _K25519_ (cons _E25520_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4121541216_ - (lambda (_L26647_ _L26649_) + (___kont4110541106_ + (lambda (_L26581_ _L26583_) (let () (declare (not safe)) - (_generate-splice23961_ - _tgt25582_ - _L26649_ - _L26647_ - _K25585_ - _E25586_)))) - (___kont4121741218_ - (lambda (_L26561_) - (let* ((_g2657526583_ - (lambda (_g2657626579_) + (_generate-splice23895_ + _tgt25516_ + _L26583_ + _L26581_ + _K25519_ + _E25520_)))) + (___kont4110741108_ + (lambda (_L26495_) + (let* ((_g2650926517_ + (lambda (_g2651026513_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2657626579_))) - (_g2657426602_ - (lambda (_g2657626587_) - ((lambda (_L26590_) + _g2651026513_))) + (_g2650826536_ + (lambda (_g2651026521_) + ((lambda (_L26524_) (let () (cons 'if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##box?) - (cons _L25603_ '())) + (cons _L25537_ '())) (cons (cons 'let - (cons (cons (cons _L26590_ + (cons (cons (cons _L26524_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unbox) - (cons _L25603_ '())) + (cons _L25537_ '())) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) - (_generate123959_ - _L26590_ - _L26561_ - _K25585_ - _E25586_)) + (_generate123893_ + _L26524_ + _L26495_ + _K25519_ + _E25520_)) '()))) - (cons _E25586_ '())))))) - _g2657626587_))) + (cons _E25520_ '())))))) + _g2651026521_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42978 + (__tmp42817 (gx#genident 'e))) (declare (not safe)) - (_g2657426602_ __tmp42978)))) - (___kont4121941220_ - (lambda (_L26366_) - (let* ((___stx4103641037_ - _L26366_) - (_g2638126404_ + (_g2650826536_ __tmp42817)))) + (___kont4110941110_ + (lambda (_L26300_) + (let* ((___stx4092640927_ + _L26300_) + (_g2631526338_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4103641037_)))) - (let ((___kont4103941040_ - (lambda (_L26481_) - (let* ((_g2649526503_ + ___stx4092640927_)))) + (let ((___kont4092940930_ + (lambda (_L26415_) + (let* ((_g2642926437_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2649626499_) + (lambda (_g2643026433_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2649626499_))) - (_g2649426522_ - (lambda (_g2649626507_) - ((lambda (_L26510_) + _g2643026433_))) + (_g2642826456_ + (lambda (_g2643026441_) + ((lambda (_L26444_) (let () (cons 'if (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f 'values-count) - (cons _L25603_ + (cons _L25537_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _L26510_ '()))) + (cons _L26444_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) - (_generate-simple-vector23962_ - _tgt25582_ - _L26481_ + (_generate-simple-vector23896_ + _tgt25516_ + _L26415_ '0 - _K25585_ - _E25586_)) - (cons _E25586_ '())))))) - _g2649626507_))) - (__tmp42979 (gx#stx-length _L26481_))) + _K25519_ + _E25520_)) + (cons _E25520_ '())))))) + _g2643026441_))) + (__tmp42818 (gx#stx-length _L26415_))) (declare (not safe)) - (_g2649426522_ __tmp42979)))) - (___kont4104141042_ - (lambda (_L26435_) + (_g2642826456_ __tmp42818)))) + (___kont4093140932_ + (lambda (_L26369_) (let () (declare (not safe)) - (_generate-list-vector23963_ - _tgt25582_ - _L26435_ + (_generate-list-vector23897_ + _tgt25516_ + _L26369_ 'values->list - _K25585_ - _E25586_))))) + _K25519_ + _E25520_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4103641037_) - (let ((_e2638626457_ + ___stx4092640927_) + (let ((_e2632026391_ (gx#syntax-e - ___stx4103641037_))) - (let ((_tl2638426464_ + ___stx4092640927_))) + (let ((_tl2631826398_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2638626457_))) - (_hd2638526461_ - (let () (declare (not safe)) (##car _e2638626457_)))) - (if (gx#stx-datum? _hd2638526461_) - (let ((_e2638726467_ (gx#stx-e _hd2638526461_))) - (if (equal? _e2638726467_ 'simple:) - (if (gx#stx-pair? _tl2638426464_) - (let ((_e2639026471_ - (gx#syntax-e _tl2638426464_))) - (let ((_tl2638826478_ + (##cdr _e2632026391_))) + (_hd2631926395_ + (let () (declare (not safe)) (##car _e2632026391_)))) + (if (gx#stx-datum? _hd2631926395_) + (let ((_e2632126401_ (gx#stx-e _hd2631926395_))) + (if (equal? _e2632126401_ 'simple:) + (if (gx#stx-pair? _tl2631826398_) + (let ((_e2632426405_ + (gx#syntax-e _tl2631826398_))) + (let ((_tl2632226412_ (let () (declare (not safe)) - (##cdr _e2639026471_))) - (_hd2638926475_ + (##cdr _e2632426405_))) + (_hd2632326409_ (let () (declare (not safe)) - (##car _e2639026471_)))) - (if (gx#stx-null? _tl2638826478_) - (___kont4103941040_ _hd2638926475_) + (##car _e2632426405_)))) + (if (gx#stx-null? _tl2632226412_) + (___kont4092940930_ _hd2632326409_) (let () (declare (not safe)) - (_g2638126404_))))) - (let () (declare (not safe)) (_g2638126404_))) - (if (equal? _e2638726467_ 'list:) - (if (gx#stx-pair? _tl2638426464_) - (let ((_e2639826425_ - (gx#syntax-e _tl2638426464_))) - (let ((_tl2639626432_ + (_g2631526338_))))) + (let () (declare (not safe)) (_g2631526338_))) + (if (equal? _e2632126401_ 'list:) + (if (gx#stx-pair? _tl2631826398_) + (let ((_e2633226359_ + (gx#syntax-e _tl2631826398_))) + (let ((_tl2633026366_ (let () (declare (not safe)) - (##cdr _e2639826425_))) - (_hd2639726429_ + (##cdr _e2633226359_))) + (_hd2633126363_ (let () (declare (not safe)) - (##car _e2639826425_)))) - (if (gx#stx-null? _tl2639626432_) - (___kont4104141042_ _hd2639726429_) + (##car _e2633226359_)))) + (if (gx#stx-null? _tl2633026366_) + (___kont4093140932_ _hd2633126363_) (let () (declare (not safe)) - (_g2638126404_))))) + (_g2631526338_))))) (let () (declare (not safe)) - (_g2638126404_))) + (_g2631526338_))) (let () (declare (not safe)) - (_g2638126404_))))) - (let () (declare (not safe)) (_g2638126404_))))) - (let () (declare (not safe)) (_g2638126404_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4122141222_ - (lambda (_L26171_) - (let* ((___stx4098640987_ - _L26171_) - (_g2618626209_ + (_g2631526338_))))) + (let () (declare (not safe)) (_g2631526338_))))) + (let () (declare (not safe)) (_g2631526338_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4111141112_ + (lambda (_L26105_) + (let* ((___stx4087640877_ + _L26105_) + (_g2612026143_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4098640987_)))) - (let ((___kont4098940990_ - (lambda (_L26286_) - (let* ((_g2630026308_ + ___stx4087640877_)))) + (let ((___kont4087940880_ + (lambda (_L26220_) + (let* ((_g2623426242_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2630126304_) + (lambda (_g2623526238_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2630126304_))) - (_g2629926327_ - (lambda (_g2630126312_) - ((lambda (_L26315_) + _g2623526238_))) + (_g2623326261_ + (lambda (_g2623526246_) + ((lambda (_L26249_) (let () (cons 'if (cons (cons (gx#datum->syntax '#f '##vector?) - (cons _L25603_ '())) + (cons _L25537_ '())) (cons (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##vector-length) - (cons _L25603_ '())) - (cons _L26315_ '()))) + (cons _L25537_ '())) + (cons _L26249_ '()))) (cons (let () (declare (not safe)) - (_generate-simple-vector23962_ - _tgt25582_ - _L26286_ + (_generate-simple-vector23896_ + _tgt25516_ + _L26220_ '0 - _K25585_ - _E25586_)) - (cons _E25586_ '())))) + _K25519_ + _E25520_)) + (cons _E25520_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _E25586_ '())))))) - _g2630126312_))) - (__tmp42980 (gx#stx-length _L26286_))) + (cons _E25520_ '())))))) + _g2623526246_))) + (__tmp42819 (gx#stx-length _L26220_))) (declare (not safe)) - (_g2629926327_ __tmp42980)))) - (___kont4099140992_ - (lambda (_L26240_) + (_g2623326261_ __tmp42819)))) + (___kont4088140882_ + (lambda (_L26174_) (cons 'if (cons (cons (gx#datum->syntax '#f '##vector?) - (cons _L25603_ '())) + (cons _L25537_ '())) (cons (let () (declare (not safe)) - (_generate-list-vector23963_ - _tgt25582_ - _L26240_ + (_generate-list-vector23897_ + _tgt25516_ + _L26174_ 'vector->list - _K25585_ - _E25586_)) - (cons _E25586_ '()))))))) + _K25519_ + _E25520_)) + (cons _E25520_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4098640987_) - (let ((_e2619126262_ + ___stx4087640877_) + (let ((_e2612526196_ (gx#syntax-e - ___stx4098640987_))) - (let ((_tl2618926269_ + ___stx4087640877_))) + (let ((_tl2612326203_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2619126262_))) - (_hd2619026266_ - (let () (declare (not safe)) (##car _e2619126262_)))) - (if (gx#stx-datum? _hd2619026266_) - (let ((_e2619226272_ (gx#stx-e _hd2619026266_))) - (if (equal? _e2619226272_ 'simple:) - (if (gx#stx-pair? _tl2618926269_) - (let ((_e2619526276_ - (gx#syntax-e _tl2618926269_))) - (let ((_tl2619326283_ + (##cdr _e2612526196_))) + (_hd2612426200_ + (let () (declare (not safe)) (##car _e2612526196_)))) + (if (gx#stx-datum? _hd2612426200_) + (let ((_e2612626206_ (gx#stx-e _hd2612426200_))) + (if (equal? _e2612626206_ 'simple:) + (if (gx#stx-pair? _tl2612326203_) + (let ((_e2612926210_ + (gx#syntax-e _tl2612326203_))) + (let ((_tl2612726217_ (let () (declare (not safe)) - (##cdr _e2619526276_))) - (_hd2619426280_ + (##cdr _e2612926210_))) + (_hd2612826214_ (let () (declare (not safe)) - (##car _e2619526276_)))) - (if (gx#stx-null? _tl2619326283_) - (___kont4098940990_ _hd2619426280_) + (##car _e2612926210_)))) + (if (gx#stx-null? _tl2612726217_) + (___kont4087940880_ _hd2612826214_) (let () (declare (not safe)) - (_g2618626209_))))) - (let () (declare (not safe)) (_g2618626209_))) - (if (equal? _e2619226272_ 'list:) - (if (gx#stx-pair? _tl2618926269_) - (let ((_e2620326230_ - (gx#syntax-e _tl2618926269_))) - (let ((_tl2620126237_ + (_g2612026143_))))) + (let () (declare (not safe)) (_g2612026143_))) + (if (equal? _e2612626206_ 'list:) + (if (gx#stx-pair? _tl2612326203_) + (let ((_e2613726164_ + (gx#syntax-e _tl2612326203_))) + (let ((_tl2613526171_ (let () (declare (not safe)) - (##cdr _e2620326230_))) - (_hd2620226234_ + (##cdr _e2613726164_))) + (_hd2613626168_ (let () (declare (not safe)) - (##car _e2620326230_)))) - (if (gx#stx-null? _tl2620126237_) - (___kont4099140992_ _hd2620226234_) + (##car _e2613726164_)))) + (if (gx#stx-null? _tl2613526171_) + (___kont4088140882_ _hd2613626168_) (let () (declare (not safe)) - (_g2618626209_))))) + (_g2612026143_))))) (let () (declare (not safe)) - (_g2618626209_))) + (_g2612026143_))) (let () (declare (not safe)) - (_g2618626209_))))) - (let () (declare (not safe)) (_g2618626209_))))) - (let () (declare (not safe)) (_g2618626209_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4122341224_ - (lambda (_L26122_ _L26124_) - (let ((__tmp42981 - (gx#stx-e _L26124_))) + (_g2612026143_))))) + (let () (declare (not safe)) (_g2612026143_))))) + (let () (declare (not safe)) (_g2612026143_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4111341114_ + (lambda (_L26056_ _L26058_) + (let ((__tmp42820 + (gx#stx-e _L26058_))) (declare (not safe)) - (_generate-struct23964_ - __tmp42981 - _tgt25582_ - _L26122_ - _K25585_ - _E25586_)))) - (___kont4122541226_ - (lambda (_L26063_ _L26065_) - (let ((__tmp42982 - (gx#stx-e _L26065_))) + (_generate-struct23898_ + __tmp42820 + _tgt25516_ + _L26056_ + _K25519_ + _E25520_)))) + (___kont4111541116_ + (lambda (_L25997_ _L25999_) + (let ((__tmp42821 + (gx#stx-e _L25999_))) (declare (not safe)) - (_generate-class23965_ - __tmp42982 - _tgt25582_ - _L26063_ - _K25585_ - _E25586_)))) - (___kont4122741228_ - (lambda (_L25966_) - (let* ((_g2598025988_ - (lambda (_g2598125984_) + (_generate-class23899_ + __tmp42821 + _tgt25516_ + _L25997_ + _K25519_ + _E25520_)))) + (___kont4111741118_ + (lambda (_L25900_) + (let* ((_g2591425922_ + (lambda (_g2591525918_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2598125984_))) - (_g2597926007_ - (lambda (_g2598125992_) - ((lambda (_L25995_) + _g2591525918_))) + (_g2591325941_ + (lambda (_g2591525926_) + ((lambda (_L25929_) (let () (cons 'if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _L25995_ - (cons _L25603_ + (cons (cons _L25929_ + (cons _L25537_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L25966_ '())) + (cons _L25900_ '())) '()))) - (cons _K25585_ (cons _E25586_ '())))))) - _g2598125992_))) + (cons _K25519_ (cons _E25520_ '())))))) + _g2591525926_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42983 - (let ((_e26011_ + (__tmp42822 + (let ((_e25945_ (gx#stx-e - _L25966_))) - (if (or (symbol? _e26011_) + _L25900_))) + (if (or (symbol? _e25945_) (keyword? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e26011_) - (immediate? _e26011_)) + _e25945_) + (immediate? _e25945_)) '##eq? - (if (number? _e26011_) 'eqv? 'equal?))))) + (if (number? _e25945_) 'eqv? 'equal?))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2597926007_ __tmp42983)))) - (___kont4122941230_ - (lambda (_L25886_ _L25888_) - (let* ((_g2590425912_ - (lambda (_g2590525908_) + (_g2591325941_ __tmp42822)))) + (___kont4111941120_ + (lambda (_L25820_ _L25822_) + (let* ((_g2583825846_ + (lambda (_g2583925842_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2590525908_))) - (_g2590325931_ - (lambda (_g2590525916_) - ((lambda (_L25919_) + _g2583925842_))) + (_g2583725865_ + (lambda (_g2583925850_) + ((lambda (_L25853_) (let () (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _L25919_ - (cons (cons _L25888_ - (cons _L25603_ '())) + (cons (cons (cons _L25853_ + (cons (cons _L25822_ + (cons _L25537_ '())) '())) '()) (cons (let () (declare (not safe)) - (_generate123959_ - _L25919_ - _L25886_ - _K25585_ - _E25586_)) + (_generate123893_ + _L25853_ + _L25820_ + _K25519_ + _E25520_)) '()))))) - _g2590525916_))) + _g2583925850_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42984 + (__tmp42823 (gx#genident 'e))) (declare (not safe)) - (_g2590325931_ __tmp42984)))) - (___kont4123141232_ - (lambda (_L25828_) + (_g2583725865_ __tmp42823)))) + (___kont4112141122_ + (lambda (_L25762_) (cons 'let - (cons (cons (cons _L25828_ + (cons (cons (cons _L25762_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L25603_ '())) + (cons _L25537_ '())) '()) - (cons _K25585_ '()))))) + (cons _K25519_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4123341234_ - (lambda () _K25585_))) - (if (gx#stx-pair? ___stx4120041201_) - (let ((_e2563627056_ + (___kont4112341124_ + (lambda () _K25519_))) + (if (gx#stx-pair? ___stx4109041091_) + (let ((_e2557026990_ (gx#syntax-e - ___stx4120041201_))) - (let ((_tl2563427063_ + ___stx4109041091_))) + (let ((_tl2556826997_ (let () (declare (not safe)) - (##cdr _e2563627056_))) - (_hd2563527060_ + (##cdr _e2557026990_))) + (_hd2556926994_ (let () (declare (not safe)) - (##car _e2563627056_)))) + (##car _e2557026990_)))) (if (gx#stx-datum? - _hd2563527060_) - (let ((_e2563727066_ + _hd2556926994_) + (let ((_e2557127000_ (gx#stx-e - _hd2563527060_))) - (if (equal? _e2563727066_ + _hd2556926994_))) + (if (equal? _e2557127000_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '?:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2564027070_ (gx#syntax-e _tl2563427063_))) - (let ((_tl2563827077_ + (if (gx#stx-pair? _tl2556826997_) + (let ((_e2557427004_ (gx#syntax-e _tl2556826997_))) + (let ((_tl2557227011_ (let () (declare (not safe)) - (##cdr _e2564027070_))) - (_hd2563927074_ + (##cdr _e2557427004_))) + (_hd2557327008_ (let () (declare (not safe)) - (##car _e2564027070_)))) - (___kont4120341204_ _tl2563827077_ _hd2563927074_))) - (let () (declare (not safe)) (_g2563025772_))) - (if (equal? _e2563727066_ 'and:) - (___kont4120541206_ _tl2563427063_) - (if (equal? _e2563727066_ 'or:) - (___kont4120741208_ _tl2563427063_) - (if (equal? _e2563727066_ 'not:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2565826839_ - (gx#syntax-e _tl2563427063_))) - (let ((_tl2565626846_ + (##car _e2557427004_)))) + (___kont4109341094_ _tl2557227011_ _hd2557327008_))) + (let () (declare (not safe)) (_g2556425706_))) + (if (equal? _e2557127000_ 'and:) + (___kont4109541096_ _tl2556826997_) + (if (equal? _e2557127000_ 'or:) + (___kont4109741098_ _tl2556826997_) + (if (equal? _e2557127000_ 'not:) + (if (gx#stx-pair? _tl2556826997_) + (let ((_e2559226773_ + (gx#syntax-e _tl2556826997_))) + (let ((_tl2559026780_ (let () (declare (not safe)) - (##cdr _e2565826839_))) - (_hd2565726843_ + (##cdr _e2559226773_))) + (_hd2559126777_ (let () (declare (not safe)) - (##car _e2565826839_)))) - (if (gx#stx-null? _tl2565626846_) - (___kont4120941210_ _hd2565726843_) + (##car _e2559226773_)))) + (if (gx#stx-null? _tl2559026780_) + (___kont4109941100_ _hd2559126777_) (let () (declare (not safe)) - (_g2563025772_))))) - (let () (declare (not safe)) (_g2563025772_))) - (if (equal? _e2563727066_ 'cons:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2566726711_ - (gx#syntax-e _tl2563427063_))) - (let ((_tl2566526718_ + (_g2556425706_))))) + (let () (declare (not safe)) (_g2556425706_))) + (if (equal? _e2557127000_ 'cons:) + (if (gx#stx-pair? _tl2556826997_) + (let ((_e2560126645_ + (gx#syntax-e _tl2556826997_))) + (let ((_tl2559926652_ (let () (declare (not safe)) - (##cdr _e2566726711_))) - (_hd2566626715_ + (##cdr _e2560126645_))) + (_hd2560026649_ (let () (declare (not safe)) - (##car _e2566726711_)))) - (if (gx#stx-pair? _tl2566526718_) - (let ((_e2567026721_ + (##car _e2560126645_)))) + (if (gx#stx-pair? _tl2559926652_) + (let ((_e2560426655_ (gx#syntax-e - _tl2566526718_))) - (let ((_tl2566826728_ + _tl2559926652_))) + (let ((_tl2560226662_ (let () (declare (not safe)) - (##cdr _e2567026721_))) - (_hd2566926725_ + (##cdr _e2560426655_))) + (_hd2560326659_ (let () (declare (not safe)) - (##car _e2567026721_)))) + (##car _e2560426655_)))) (if (gx#stx-null? - _tl2566826728_) - (___kont4121141212_ - _hd2566926725_ - _hd2566626715_) + _tl2560226662_) + (___kont4110141102_ + _hd2560326659_ + _hd2560026649_) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2556425706_))))) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2556425706_))))) (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ 'null:) - (if (gx#stx-null? _tl2563427063_) - (___kont4121341214_) + (_g2556425706_))) + (if (equal? _e2557127000_ 'null:) + (if (gx#stx-null? _tl2556826997_) + (___kont4110341104_) (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ 'splice:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2568326627_ + (_g2556425706_))) + (if (equal? _e2557127000_ 'splice:) + (if (gx#stx-pair? _tl2556826997_) + (let ((_e2561726561_ (gx#syntax-e - _tl2563427063_))) - (let ((_tl2568126634_ + _tl2556826997_))) + (let ((_tl2561526568_ (let () (declare (not safe)) - (##cdr _e2568326627_))) - (_hd2568226631_ + (##cdr _e2561726561_))) + (_hd2561626565_ (let () (declare (not safe)) - (##car _e2568326627_)))) + (##car _e2561726561_)))) (if (gx#stx-pair? - _tl2568126634_) - (let ((_e2568626637_ + _tl2561526568_) + (let ((_e2562026571_ (gx#syntax-e - _tl2568126634_))) - (let ((_tl2568426644_ + _tl2561526568_))) + (let ((_tl2561826578_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2568626637_))) - (_hd2568526641_ - (let () (declare (not safe)) (##car _e2568626637_)))) - (if (gx#stx-null? _tl2568426644_) - (___kont4121541216_ _hd2568526641_ _hd2568226631_) - (let () (declare (not safe)) (_g2563025772_))))) + (##cdr _e2562026571_))) + (_hd2561926575_ + (let () (declare (not safe)) (##car _e2562026571_)))) + (if (gx#stx-null? _tl2561826578_) + (___kont4110541106_ _hd2561926575_ _hd2561626565_) + (let () (declare (not safe)) (_g2556425706_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2563025772_))))) + (_g2556425706_))))) (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ 'box:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2569426551_ + (_g2556425706_))) + (if (equal? _e2557127000_ 'box:) + (if (gx#stx-pair? _tl2556826997_) + (let ((_e2562826485_ (gx#syntax-e - _tl2563427063_))) - (let ((_tl2569226558_ + _tl2556826997_))) + (let ((_tl2562626492_ (let () (declare (not safe)) - (##cdr _e2569426551_))) - (_hd2569326555_ + (##cdr _e2562826485_))) + (_hd2562726489_ (let () (declare (not safe)) - (##car _e2569426551_)))) + (##car _e2562826485_)))) (if (gx#stx-null? - _tl2569226558_) - (___kont4121741218_ - _hd2569326555_) + _tl2562626492_) + (___kont4110741108_ + _hd2562726489_) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2556425706_))))) (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ + (_g2556425706_))) + (if (equal? _e2557127000_ 'values:) (if (gx#stx-pair? - _tl2563427063_) - (let ((_e2570226356_ + _tl2556826997_) + (let ((_e2563626290_ (gx#syntax-e - _tl2563427063_))) - (let ((_tl2570026363_ + _tl2556826997_))) + (let ((_tl2563426297_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2570226356_))) - (_hd2570126360_ - (let () (declare (not safe)) (##car _e2570226356_)))) - (if (gx#stx-null? _tl2570026363_) - (___kont4121941220_ _hd2570126360_) - (let () (declare (not safe)) (_g2563025772_))))) + (##cdr _e2563626290_))) + (_hd2563526294_ + (let () (declare (not safe)) (##car _e2563626290_)))) + (if (gx#stx-null? _tl2563426297_) + (___kont4110941110_ _hd2563526294_) + (let () (declare (not safe)) (_g2556425706_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ + (_g2556425706_))) + (if (equal? _e2557127000_ 'vector:) (if (gx#stx-pair? - _tl2563427063_) - (let ((_e2571026161_ + _tl2556826997_) + (let ((_e2564426095_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2563427063_))) - (let ((_tl2570826168_ - (let () (declare (not safe)) (##cdr _e2571026161_))) - (_hd2570926165_ - (let () (declare (not safe)) (##car _e2571026161_)))) - (if (gx#stx-null? _tl2570826168_) - (___kont4122141222_ _hd2570926165_) - (let () (declare (not safe)) (_g2563025772_))))) - (let () (declare (not safe)) (_g2563025772_))) + _tl2556826997_))) + (let ((_tl2564226102_ + (let () (declare (not safe)) (##cdr _e2564426095_))) + (_hd2564326099_ + (let () (declare (not safe)) (##car _e2564426095_)))) + (if (gx#stx-null? _tl2564226102_) + (___kont4111141112_ _hd2564326099_) + (let () (declare (not safe)) (_g2556425706_))))) + (let () (declare (not safe)) (_g2556425706_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _e2563727066_ + (if (equal? _e2557127000_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'struct:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2571926102_ (gx#syntax-e _tl2563427063_))) - (let ((_tl2571726109_ + (if (gx#stx-pair? _tl2556826997_) + (let ((_e2565326036_ (gx#syntax-e _tl2556826997_))) + (let ((_tl2565126043_ (let () (declare (not safe)) - (##cdr _e2571926102_))) - (_hd2571826106_ + (##cdr _e2565326036_))) + (_hd2565226040_ (let () (declare (not safe)) - (##car _e2571926102_)))) - (if (gx#stx-pair? _tl2571726109_) - (let ((_e2572226112_ - (gx#syntax-e _tl2571726109_))) - (let ((_tl2572026119_ + (##car _e2565326036_)))) + (if (gx#stx-pair? _tl2565126043_) + (let ((_e2565626046_ + (gx#syntax-e _tl2565126043_))) + (let ((_tl2565426053_ (let () (declare (not safe)) - (##cdr _e2572226112_))) - (_hd2572126116_ + (##cdr _e2565626046_))) + (_hd2565526050_ (let () (declare (not safe)) - (##car _e2572226112_)))) - (if (gx#stx-null? _tl2572026119_) - (___kont4122341224_ - _hd2572126116_ - _hd2571826106_) + (##car _e2565626046_)))) + (if (gx#stx-null? _tl2565426053_) + (___kont4111341114_ + _hd2565526050_ + _hd2565226040_) (let () (declare (not safe)) - (_g2563025772_))))) - (let () (declare (not safe)) (_g2563025772_))))) - (let () (declare (not safe)) (_g2563025772_))) - (if (equal? _e2563727066_ 'class:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2573126043_ (gx#syntax-e _tl2563427063_))) - (let ((_tl2572926050_ + (_g2556425706_))))) + (let () (declare (not safe)) (_g2556425706_))))) + (let () (declare (not safe)) (_g2556425706_))) + (if (equal? _e2557127000_ 'class:) + (if (gx#stx-pair? _tl2556826997_) + (let ((_e2566525977_ (gx#syntax-e _tl2556826997_))) + (let ((_tl2566325984_ (let () (declare (not safe)) - (##cdr _e2573126043_))) - (_hd2573026047_ + (##cdr _e2566525977_))) + (_hd2566425981_ (let () (declare (not safe)) - (##car _e2573126043_)))) - (if (gx#stx-pair? _tl2572926050_) - (let ((_e2573426053_ - (gx#syntax-e _tl2572926050_))) - (let ((_tl2573226060_ + (##car _e2566525977_)))) + (if (gx#stx-pair? _tl2566325984_) + (let ((_e2566825987_ + (gx#syntax-e _tl2566325984_))) + (let ((_tl2566625994_ (let () (declare (not safe)) - (##cdr _e2573426053_))) - (_hd2573326057_ + (##cdr _e2566825987_))) + (_hd2566725991_ (let () (declare (not safe)) - (##car _e2573426053_)))) - (if (gx#stx-null? _tl2573226060_) - (___kont4122541226_ - _hd2573326057_ - _hd2573026047_) + (##car _e2566825987_)))) + (if (gx#stx-null? _tl2566625994_) + (___kont4111541116_ + _hd2566725991_ + _hd2566425981_) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2556425706_))))) (let () (declare (not safe)) - (_g2563025772_))))) - (let () (declare (not safe)) (_g2563025772_))) - (if (equal? _e2563727066_ 'datum:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2574225956_ - (gx#syntax-e _tl2563427063_))) - (let ((_tl2574025963_ + (_g2556425706_))))) + (let () (declare (not safe)) (_g2556425706_))) + (if (equal? _e2557127000_ 'datum:) + (if (gx#stx-pair? _tl2556826997_) + (let ((_e2567625890_ + (gx#syntax-e _tl2556826997_))) + (let ((_tl2567425897_ (let () (declare (not safe)) - (##cdr _e2574225956_))) - (_hd2574125960_ + (##cdr _e2567625890_))) + (_hd2567525894_ (let () (declare (not safe)) - (##car _e2574225956_)))) - (if (gx#stx-null? _tl2574025963_) - (___kont4122741228_ _hd2574125960_) + (##car _e2567625890_)))) + (if (gx#stx-null? _tl2567425897_) + (___kont4111741118_ _hd2567525894_) (let () (declare (not safe)) - (_g2563025772_))))) - (let () (declare (not safe)) (_g2563025772_))) - (if (equal? _e2563727066_ 'apply:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2575125866_ - (gx#syntax-e _tl2563427063_))) - (let ((_tl2574925873_ + (_g2556425706_))))) + (let () (declare (not safe)) (_g2556425706_))) + (if (equal? _e2557127000_ 'apply:) + (if (gx#stx-pair? _tl2556826997_) + (let ((_e2568525800_ + (gx#syntax-e _tl2556826997_))) + (let ((_tl2568325807_ (let () (declare (not safe)) - (##cdr _e2575125866_))) - (_hd2575025870_ + (##cdr _e2568525800_))) + (_hd2568425804_ (let () (declare (not safe)) - (##car _e2575125866_)))) - (if (gx#stx-pair? _tl2574925873_) - (let ((_e2575425876_ - (gx#syntax-e _tl2574925873_))) - (let ((_tl2575225883_ + (##car _e2568525800_)))) + (if (gx#stx-pair? _tl2568325807_) + (let ((_e2568825810_ + (gx#syntax-e _tl2568325807_))) + (let ((_tl2568625817_ (let () (declare (not safe)) - (##cdr _e2575425876_))) - (_hd2575325880_ + (##cdr _e2568825810_))) + (_hd2568725814_ (let () (declare (not safe)) - (##car _e2575425876_)))) - (if (gx#stx-null? _tl2575225883_) - (___kont4122941230_ - _hd2575325880_ - _hd2575025870_) + (##car _e2568825810_)))) + (if (gx#stx-null? _tl2568625817_) + (___kont4111941120_ + _hd2568725814_ + _hd2568425804_) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2556425706_))))) (let () (declare (not safe)) - (_g2563025772_))))) - (let () (declare (not safe)) (_g2563025772_))) - (if (equal? _e2563727066_ 'var:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2576225818_ - (gx#syntax-e _tl2563427063_))) - (let ((_tl2576025825_ + (_g2556425706_))))) + (let () (declare (not safe)) (_g2556425706_))) + (if (equal? _e2557127000_ 'var:) + (if (gx#stx-pair? _tl2556826997_) + (let ((_e2569625752_ + (gx#syntax-e _tl2556826997_))) + (let ((_tl2569425759_ (let () (declare (not safe)) - (##cdr _e2576225818_))) - (_hd2576125822_ + (##cdr _e2569625752_))) + (_hd2569525756_ (let () (declare (not safe)) - (##car _e2576225818_)))) - (if (gx#stx-null? _tl2576025825_) - (___kont4123141232_ - _hd2576125822_) + (##car _e2569625752_)))) + (if (gx#stx-null? _tl2569425759_) + (___kont4112141122_ + _hd2569525756_) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2556425706_))))) (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ 'any:) - (if (gx#stx-null? _tl2563427063_) - (___kont4123341234_) + (_g2556425706_))) + (if (equal? _e2557127000_ 'any:) + (if (gx#stx-null? _tl2556826997_) + (___kont4112341124_) (let () (declare (not safe)) - (_g2563025772_))) + (_g2556425706_))) (let () (declare (not safe)) - (_g2563025772_))))))))))))))))))) + (_g2556425706_))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2563025772_))))) + (_g2556425706_))))) (let () (declare (not safe)) - (_g2563025772_))))))) - _g2558925600_)))) + (_g2556425706_))))))) + _g2552325534_)))) (declare (not safe)) - (_g2558727365_ _tgt25582_)))) - (_generate-splice23961_ - (lambda (_tgt24954_ _hd24956_ _rest24957_ _K24958_ _E24959_) - (let* ((_g2496124978_ - (lambda (_g2496224974_) + (_g2552127299_ _tgt25516_)))) + (_generate-splice23895_ + (lambda (_tgt24888_ _hd24890_ _rest24891_ _K24892_ _E24893_) + (let* ((_g2489524912_ + (lambda (_g2489624908_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2496224974_))) - (_g2496025578_ - (lambda (_g2496224982_) - (if (gx#stx-pair/null? _g2496224982_) - (let ((_g42985_ + _g2489624908_))) + (_g2489425512_ + (lambda (_g2489624916_) + (if (gx#stx-pair/null? _g2489624916_) + (let ((_g42824_ (gx#syntax-split-splice - _g2496224982_ + _g2489624916_ '0))) (begin - (let ((_g42986_ + (let ((_g42825_ (let () (declare (not safe)) - (if (##values? _g42985_) - (##vector-length _g42985_) + (if (##values? _g42824_) + (##vector-length _g42824_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42986_ 2))) + (##fx= _g42825_ 2))) (error "Context expects 2 values" - _g42986_))) - (let ((_target2496424985_ + _g42825_))) + (let ((_target2489824919_ (let () (declare (not safe)) - (##vector-ref _g42985_ 0))) - (_tl2496624988_ + (##vector-ref _g42824_ 0))) + (_tl2490024922_ (let () (declare (not safe)) - (##vector-ref _g42985_ 1)))) - (if (gx#stx-null? _tl2496624988_) - (letrec ((_loop2496724991_ - (lambda (_hd2496524995_ - _var2497124998_) + (##vector-ref _g42824_ 1)))) + (if (gx#stx-null? _tl2490024922_) + (letrec ((_loop2490124925_ + (lambda (_hd2489924929_ + _var2490524932_) (if (gx#stx-pair? - _hd2496524995_) - (let ((_e2496825001_ + _hd2489924929_) + (let ((_e2490224935_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd2496524995_))) - (let ((_lp-hd2496925005_ + (gx#syntax-e _hd2489924929_))) + (let ((_lp-hd2490324939_ (let () (declare (not safe)) - (##car _e2496825001_))) - (_lp-tl2497025008_ + (##car _e2490224935_))) + (_lp-tl2490424942_ (let () (declare (not safe)) - (##cdr _e2496825001_)))) - (let ((__tmp43004 - (cons _lp-hd2496925005_ _var2497124998_))) + (##cdr _e2490224935_)))) + (let ((__tmp42843 + (cons _lp-hd2490324939_ _var2490524932_))) (declare (not safe)) - (_loop2496724991_ _lp-tl2497025008_ __tmp43004)))) - (let ((_var2497225011_ (reverse _var2497124998_))) - ((lambda (_L25015_) + (_loop2490124925_ _lp-tl2490424942_ __tmp42843)))) + (let ((_var2490624945_ (reverse _var2490524932_))) + ((lambda (_L24949_) (let () - (let* ((_g2503125048_ - (lambda (_g2503225044_) + (let* ((_g2496524982_ + (lambda (_g2496624978_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2503225044_))) - (_g2503025566_ - (lambda (_g2503225052_) - (if (gx#stx-pair/null? _g2503225052_) - (let ((_g42987_ + _g2496624978_))) + (_g2496425500_ + (lambda (_g2496624986_) + (if (gx#stx-pair/null? _g2496624986_) + (let ((_g42826_ (gx#syntax-split-splice - _g2503225052_ + _g2496624986_ '0))) (begin - (let ((_g42988_ + (let ((_g42827_ (let () (declare (not safe)) - (if (##values? _g42987_) + (if (##values? _g42826_) (##vector-length - _g42987_) + _g42826_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42988_ 2))) + (##fx= _g42827_ 2))) (error "Context expects 2 values" - _g42988_))) - (let ((_target2503425055_ + _g42827_))) + (let ((_target2496824989_ (let () (declare (not safe)) (##vector-ref - _g42987_ + _g42826_ 0))) - (_tl2503625058_ + (_tl2497024992_ (let () (declare (not safe)) (##vector-ref - _g42987_ + _g42826_ 1)))) (if (gx#stx-null? - _tl2503625058_) - (letrec ((_loop2503725061_ - (lambda (_hd2503525065_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _var-r2504125068_) - (if (gx#stx-pair? _hd2503525065_) - (let ((_e2503825071_ (gx#syntax-e _hd2503525065_))) - (let ((_lp-hd2503925075_ + _tl2497024992_) + (letrec ((_loop2497124995_ + (lambda (_hd2496924999_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _var-r2497525002_) + (if (gx#stx-pair? _hd2496924999_) + (let ((_e2497225005_ (gx#syntax-e _hd2496924999_))) + (let ((_lp-hd2497325009_ (let () (declare (not safe)) - (##car _e2503825071_))) - (_lp-tl2504025078_ + (##car _e2497225005_))) + (_lp-tl2497425012_ (let () (declare (not safe)) - (##cdr _e2503825071_)))) - (let ((__tmp43002 - (cons _lp-hd2503925075_ - _var-r2504125068_))) + (##cdr _e2497225005_)))) + (let ((__tmp42841 + (cons _lp-hd2497325009_ + _var-r2497525002_))) (declare (not safe)) - (_loop2503725061_ - _lp-tl2504025078_ - __tmp43002)))) - (let ((_var-r2504225081_ - (reverse _var-r2504125068_))) - ((lambda (_L25085_) + (_loop2497124995_ + _lp-tl2497425012_ + __tmp42841)))) + (let ((_var-r2497625015_ + (reverse _var-r2497525002_))) + ((lambda (_L25019_) (let () - (let* ((_g2510225119_ - (lambda (_g2510325115_) + (let* ((_g2503625053_ + (lambda (_g2503725049_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2510325115_))) - (_g2510125554_ - (lambda (_g2510325123_) + _g2503725049_))) + (_g2503525488_ + (lambda (_g2503725057_) (if (gx#stx-pair/null? - _g2510325123_) - (let ((_g42989_ + _g2503725057_) + (let ((_g42828_ (gx#syntax-split-splice - _g2510325123_ + _g2503725057_ '0))) (begin - (let ((_g42990_ + (let ((_g42829_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42989_) - (##vector-length _g42989_) + _g42828_) + (##vector-length _g42828_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42990_ 2))) - (error "Context expects 2 values" _g42990_))) + (if (not (let () (declare (not safe)) (##fx= _g42829_ 2))) + (error "Context expects 2 values" _g42829_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2510525126_ + (let ((_target2503925060_ (let () (declare (not safe)) (##vector-ref - _g42989_ + _g42828_ 0))) - (_tl2510725129_ + (_tl2504125063_ (let () (declare (not safe)) (##vector-ref - _g42989_ + _g42828_ 1)))) (if (gx#stx-null? - _tl2510725129_) - (letrec ((_loop2510825132_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd2510625136_ _init2511225139_) - (if (gx#stx-pair? _hd2510625136_) - (let ((_e2510925142_ - (gx#syntax-e _hd2510625136_))) - (let ((_lp-hd2511025146_ + _tl2504125063_) + (letrec ((_loop2504225066_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd2504025070_ _init2504625073_) + (if (gx#stx-pair? _hd2504025070_) + (let ((_e2504325076_ + (gx#syntax-e _hd2504025070_))) + (let ((_lp-hd2504425080_ (let () (declare (not safe)) - (##car _e2510925142_))) - (_lp-tl2511125149_ + (##car _e2504325076_))) + (_lp-tl2504525083_ (let () (declare (not safe)) - (##cdr _e2510925142_)))) - (let ((__tmp43000 - (cons _lp-hd2511025146_ - _init2511225139_))) + (##cdr _e2504325076_)))) + (let ((__tmp42839 + (cons _lp-hd2504425080_ + _init2504625073_))) (declare (not safe)) - (_loop2510825132_ - _lp-tl2511125149_ - __tmp43000)))) - (let ((_init2511325152_ - (reverse _init2511225139_))) - ((lambda (_L25156_) + (_loop2504225066_ + _lp-tl2504525083_ + __tmp42839)))) + (let ((_init2504725086_ + (reverse _init2504625073_))) + ((lambda (_L25090_) (let () - (let* ((_g2517325181_ - (lambda (_g2517425177_) + (let* ((_g2510725115_ + (lambda (_g2510825111_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2517425177_))) - (_g2517225550_ - (lambda (_g2517425185_) - ((lambda (_L25188_) + _g2510825111_))) + (_g2510625484_ + (lambda (_g2510825119_) + ((lambda (_L25122_) (let () - (let* ((_g2520125209_ - (lambda (_g2520225205_) + (let* ((_g2513525143_ + (lambda (_g2513625139_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2520225205_))) - (_g2520025546_ - (lambda (_g2520225213_) - ((lambda (_L25216_) + _g2513625139_))) + (_g2513425480_ + (lambda (_g2513625147_) + ((lambda (_L25150_) (let () - (let* ((_g2522925237_ - (lambda (_g2523025233_) + (let* ((_g2516325171_ + (lambda (_g2516425167_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2523025233_))) - (_g2522825542_ - (lambda (_g2523025241_) - ((lambda (_L25244_) + _g2516425167_))) + (_g2516225476_ + (lambda (_g2516425175_) + ((lambda (_L25178_) (let () - (let* ((_g2525725265_ - (lambda (_g2525825261_) + (let* ((_g2519125199_ + (lambda (_g2519225195_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2525825261_))) - (_g2525625538_ - (lambda (_g2525825269_) - ((lambda (_L25272_) + _g2519225195_))) + (_g2519025472_ + (lambda (_g2519225203_) + ((lambda (_L25206_) (let () - (let* ((_g2528525293_ + (let* ((_g2521925227_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2528625289_) + (lambda (_g2522025223_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2528625289_))) - (_g2528425534_ - (lambda (_g2528625297_) - ((lambda (_L25300_) + _g2522025223_))) + (_g2521825468_ + (lambda (_g2522025231_) + ((lambda (_L25234_) (let () - (let* ((_g2531325321_ - (lambda (_g2531425317_) + (let* ((_g2524725255_ + (lambda (_g2524825251_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2531425317_))) - (_g2531225530_ - (lambda (_g2531425325_) - ((lambda (_L25328_) + _g2524825251_))) + (_g2524625464_ + (lambda (_g2524825259_) + ((lambda (_L25262_) (let () - (let* ((_g2534125349_ - (lambda (_g2534225345_) + (let* ((_g2527525283_ + (lambda (_g2527625279_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2534225345_))) - (_g2534025526_ - (lambda (_g2534225353_) - ((lambda (_L25356_) + _g2527625279_))) + (_g2527425460_ + (lambda (_g2527625287_) + ((lambda (_L25290_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g2536925377_ - (lambda (_g2537025373_) + (let* ((_g2530325311_ + (lambda (_g2530425307_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2537025373_))) - (_g2536825511_ - (lambda (_g2537025381_) - ((lambda (_L25384_) + _g2530425307_))) + (_g2530225445_ + (lambda (_g2530425315_) + ((lambda (_L25318_) (let () - (let* ((_g2539725405_ - (lambda (_g2539825401_) + (let* ((_g2533125339_ + (lambda (_g2533225335_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2539825401_))) - (_g2539625499_ - (lambda (_g2539825409_) - ((lambda (_L25412_) + _g2533225335_))) + (_g2533025433_ + (lambda (_g2533225343_) + ((lambda (_L25346_) (let () - (let* ((_g2542525433_ - (lambda (_g2542625429_) + (let* ((_g2535925367_ + (lambda (_g2536025363_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2542625429_))) - (_g2542425495_ - (lambda (_g2542625437_) - ((lambda (_L25440_) + _g2536025363_))) + (_g2535825429_ + (lambda (_g2536025371_) + ((lambda (_L25374_) (let () (let () (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _L25216_ + (cons (cons (cons _L25150_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons (cons _L25328_ - (foldr (lambda (_g2546225465_ - _g2546325468_) - (cons _g2546225465_ - _g2546325468_)) + (cons (cons _L25262_ + (foldr (lambda (_g2539625399_ + _g2539725402_) + (cons _g2539625399_ + _g2539725402_)) '() - _L25015_)) - (cons _L25356_ '()))) + _L24949_)) + (cons _L25290_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L25272_ + (cons (cons _L25206_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons (cons _L25300_ - (cons _L25328_ - (foldr (lambda (_g2546025471_ + (cons (cons _L25234_ + (cons _L25262_ + (foldr (lambda (_g2539425405_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2546125474_) - (cons _g2546025471_ _g2546125474_)) + _g2539525408_) + (cons _g2539425405_ _g2539525408_)) '() - _L25085_))) + _L25019_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L25440_ '()))) + (cons _L25374_ '()))) '())) - (cons (cons _L25244_ + (cons (cons _L25178_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _L25328_ - (foldr (lambda (_g2545825477_ + (cons (cons _L25262_ + (foldr (lambda (_g2539225411_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2545925480_) - (cons _g2545825477_ _g2545925480_)) + _g2539325414_) + (cons _g2539225411_ _g2539325414_)) '() - _L25085_)) + _L25019_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -3712,1267 +3712,1267 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'pair?) - (cons _L25328_ '())) - (cons (cons _L25272_ + (cons _L25262_ '())) + (cons (cons _L25206_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _L25328_ '())) - (cons _L25328_ - (foldr (lambda (_g2545625483_ + (cons _L25262_ '())) + (cons _L25262_ + (foldr (lambda (_g2539025417_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2545725486_) - (cons _g2545625483_ _g2545725486_)) + _g2539125420_) + (cons _g2539025417_ _g2539125420_)) '() - _L25085_)))) + _L25019_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L25412_ '())))) + (cons _L25346_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L25244_ - (cons _L25188_ - (foldr (lambda (_g2545425489_ + (cons (cons _L25178_ + (cons _L25122_ + (foldr (lambda (_g2538825423_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2545525492_) - (cons _g2545425489_ _g2545525492_)) + _g2538925426_) + (cons _g2538825423_ _g2538925426_)) '() - _L25156_))) + _L25090_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _g2542625437_))) - (__tmp42991 + _g2536025371_))) + (__tmp42830 (let () (declare (not safe)) - (_generate123959_ - _L25300_ - _hd24956_ - _L25384_ - _L25412_)))) + (_generate123893_ + _L25234_ + _hd24890_ + _L25318_ + _L25346_)))) (declare (not safe)) - (_g2542425495_ __tmp42991)))) + (_g2535825429_ __tmp42830)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2539825409_))) - (__tmp42992 - (cons _L25216_ - (cons _L25328_ - (foldr (lambda (_g2550225505_ + _g2533225343_))) + (__tmp42831 + (cons _L25150_ + (cons _L25262_ + (foldr (lambda (_g2543625439_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2550325508_) + _g2543725442_) (cons (cons (gx#datum->syntax '#f 'reverse) - (cons _g2550225505_ '())) - _g2550325508_)) + (cons _g2543625439_ '())) + _g2543725442_)) '() - _L25085_))))) + _L25019_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2539625499_ __tmp42992)))) - _g2537025381_))) - (__tmp42993 - (cons _L25244_ + (_g2533025433_ __tmp42831)))) + _g2530425315_))) + (__tmp42832 + (cons _L25178_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _L25328_ '())) + (cons _L25262_ '())) (begin (gx#syntax-check-splice-targets - _L25085_ - _L25015_) - (foldr (lambda (_g2551425518_ - _g2551525521_ - _g2551625523_) + _L25019_ + _L24949_) + (foldr (lambda (_g2544825452_ + _g2544925455_ + _g2545025457_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'cons) - (cons _g2551525521_ (cons _g2551425518_ '()))) - _g2551625523_)) + (cons _g2544925455_ (cons _g2544825452_ '()))) + _g2545025457_)) '() - _L25085_ - _L25015_)))))) + _L25019_ + _L24949_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2536825511_ __tmp42993)))) - _g2534225353_))) - (__tmp42994 + (_g2530225445_ __tmp42832)))) + _g2527625287_))) + (__tmp42833 (let () (declare (not safe)) - (_generate123959_ - _L25328_ - _rest24957_ - _K24958_ - _E24959_)))) + (_generate123893_ + _L25262_ + _rest24891_ + _K24892_ + _E24893_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2534025526_ - __tmp42994)))) - _g2531425325_))) - (__tmp42995 (gx#genident 'rest))) + (_g2527425460_ + __tmp42833)))) + _g2524825259_))) + (__tmp42834 (gx#genident 'rest))) (declare (not safe)) - (_g2531225530_ __tmp42995)))) - _g2528625297_))) - (__tmp42996 (gx#genident 'hd))) + (_g2524625464_ __tmp42834)))) + _g2522025231_))) + (__tmp42835 (gx#genident 'hd))) (declare (not safe)) - (_g2528425534_ __tmp42996)))) - _g2525825269_))) + (_g2521825468_ __tmp42835)))) + _g2519225203_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42997 + (__tmp42836 (gx#genident 'splice-try))) (declare (not safe)) - (_g2525625538_ __tmp42997)))) - _g2523025241_))) - (__tmp42998 (gx#genident 'splice-loop))) + (_g2519025472_ __tmp42836)))) + _g2516425175_))) + (__tmp42837 (gx#genident 'splice-loop))) (declare (not safe)) - (_g2522825542_ __tmp42998)))) - _g2520225213_))) - (__tmp42999 (gx#genident 'splice-rest))) + (_g2516225476_ __tmp42837)))) + _g2513625147_))) + (__tmp42838 (gx#genident 'splice-rest))) (declare (not safe)) - (_g2520025546_ __tmp42999)))) + (_g2513425480_ __tmp42838)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2517425185_)))) + _g2510825119_)))) (declare (not safe)) - (_g2517225550_ _tgt24954_)))) - _init2511325152_)))))) + (_g2510625484_ _tgt24888_)))) + _init2504725086_)))))) (let () (declare (not safe)) - (_loop2510825132_ _target2510525126_ '()))) + (_loop2504225066_ _target2503925060_ '()))) (let () (declare (not safe)) - (_g2510225119_ _g2510325123_)))))) + (_g2503625053_ _g2503725057_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2510225119_ - _g2510325123_))))) - (__tmp43001 + (_g2503625053_ + _g2503725057_))))) + (__tmp42840 (make-list (gx#stx-length - (foldr (lambda (_g2555725560_ - _g2555825563_) - (cons _g2555725560_ - _g2555825563_)) + (foldr (lambda (_g2549125494_ + _g2549225497_) + (cons _g2549125494_ + _g2549225497_)) '() - _L25015_)) + _L24949_)) (cons (gx#datum->syntax '#f '@list) '())))) (declare (not safe)) - (_g2510125554_ __tmp43001)))) - _var-r2504225081_)))))) + (_g2503525488_ __tmp42840)))) + _var-r2497625015_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2503725061_ - _target2503425055_ + (_loop2497124995_ + _target2496824989_ '()))) (let () (declare (not safe)) - (_g2503125048_ - _g2503225052_)))))) + (_g2496524982_ + _g2496624986_)))))) (let () (declare (not safe)) - (_g2503125048_ _g2503225052_))))) - (__tmp43003 + (_g2496524982_ _g2496624986_))))) + (__tmp42842 (gx#gentemps - (foldr (lambda (_g2556925572_ - _g2557025575_) - (cons _g2556925572_ - _g2557025575_)) + (foldr (lambda (_g2550325506_ + _g2550425509_) + (cons _g2550325506_ + _g2550425509_)) '() - _L25015_)))) + _L24949_)))) (declare (not safe)) - (_g2503025566_ __tmp43003)))) - _var2497225011_)))))) + (_g2496425500_ __tmp42842)))) + _var2490624945_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2496724991_ - _target2496424985_ + (_loop2490124925_ + _target2489824919_ '()))) (let () (declare (not safe)) - (_g2496124978_ - _g2496224982_)))))) + (_g2489524912_ + _g2489624916_)))))) (let () (declare (not safe)) - (_g2496124978_ _g2496224982_))))) - (__tmp43005 + (_g2489524912_ _g2489624916_))))) + (__tmp42844 (let () (declare (not safe)) (|gerbil/core$[1]#match-pattern-vars| - _hd24956_)))) + _hd24890_)))) (declare (not safe)) - (_g2496025578_ __tmp43005)))) - (_generate-simple-vector23962_ - (lambda (_tgt24796_ - _body24798_ - _start24799_ - _K24800_ - _E24801_) - (let _recur24803_ ((_rest24806_ _body24798_) - (_off24808_ _start24799_)) - (let* ((___stx4155841559_ _rest24806_) - (_g2481124823_ + (_g2489425512_ __tmp42844)))) + (_generate-simple-vector23896_ + (lambda (_tgt24730_ + _body24732_ + _start24733_ + _K24734_ + _E24735_) + (let _recur24737_ ((_rest24740_ _body24732_) + (_off24742_ _start24733_)) + (let* ((___stx4144841449_ _rest24740_) + (_g2474524757_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4155841559_)))) - (let ((___kont4156141562_ - (lambda (_L24851_ _L24853_) - (let* ((_g2486824887_ - (lambda (_g2486924883_) + ___stx4144841449_)))) + (let ((___kont4145141452_ + (lambda (_L24785_ _L24787_) + (let* ((_g2480224821_ + (lambda (_g2480324817_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2486924883_))) - (_g2486724946_ - (lambda (_g2486924891_) - (if (gx#stx-pair? _g2486924891_) - (let ((_e2487524894_ + _g2480324817_))) + (_g2480124880_ + (lambda (_g2480324825_) + (if (gx#stx-pair? _g2480324825_) + (let ((_e2480924828_ (gx#syntax-e - _g2486924891_))) - (let ((_hd2487424898_ + _g2480324825_))) + (let ((_hd2480824832_ (let () (declare (not safe)) - (##car _e2487524894_))) - (_tl2487324901_ + (##car _e2480924828_))) + (_tl2480724835_ (let () (declare (not safe)) - (##cdr _e2487524894_)))) + (##cdr _e2480924828_)))) (if (gx#stx-pair? - _tl2487324901_) - (let ((_e2487824904_ + _tl2480724835_) + (let ((_e2481224838_ (gx#syntax-e - _tl2487324901_))) - (let ((_hd2487724908_ + _tl2480724835_))) + (let ((_hd2481124842_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e2487824904_))) - (_tl2487624911_ - (let () (declare (not safe)) (##cdr _e2487824904_)))) - (if (gx#stx-pair? _tl2487624911_) - (let ((_e2488124914_ (gx#syntax-e _tl2487624911_))) - (let ((_hd2488024918_ + (##car _e2481224838_))) + (_tl2481024845_ + (let () (declare (not safe)) (##cdr _e2481224838_)))) + (if (gx#stx-pair? _tl2481024845_) + (let ((_e2481524848_ (gx#syntax-e _tl2481024845_))) + (let ((_hd2481424852_ (let () (declare (not safe)) - (##car _e2488124914_))) - (_tl2487924921_ + (##car _e2481524848_))) + (_tl2481324855_ (let () (declare (not safe)) - (##cdr _e2488124914_)))) - (if (gx#stx-null? _tl2487924921_) - ((lambda (_L24924_ _L24926_ _L24927_) + (##cdr _e2481524848_)))) + (if (gx#stx-null? _tl2481324855_) + ((lambda (_L24858_ _L24860_ _L24861_) (let () (cons 'let - (cons (cons (cons _L24927_ + (cons (cons (cons _L24861_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _L24926_ (cons _L24924_ '()))) + (cons _L24860_ (cons _L24858_ '()))) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (let ((__tmp43006 - (let ((__tmp43007 + (cons (let ((__tmp42845 + (let ((__tmp42846 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (fx1+ _off24808_))) + (fx1+ _off24742_))) (declare (not safe)) - (_recur24803_ _L24851_ __tmp43007)))) + (_recur24737_ _L24785_ __tmp42846)))) (declare (not safe)) - (_generate123959_ _L24927_ _L24853_ __tmp43006 _E24801_)) + (_generate123893_ _L24861_ _L24787_ __tmp42845 _E24735_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2488024918_ - _hd2487724908_ - _hd2487424898_) + _hd2481424852_ + _hd2481124842_ + _hd2480824832_) (let () (declare (not safe)) - (_g2486824887_ _g2486924891_))))) + (_g2480224821_ _g2480324825_))))) (let () (declare (not safe)) - (_g2486824887_ _g2486924891_))))) - (let () (declare (not safe)) (_g2486824887_ _g2486924891_))))) + (_g2480224821_ _g2480324825_))))) + (let () (declare (not safe)) (_g2480224821_ _g2480324825_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2486824887_ - _g2486924891_))))) - (__tmp43008 + (_g2480224821_ + _g2480324825_))))) + (__tmp42847 (list (gx#genident 'e) - _tgt24796_ - _off24808_))) + _tgt24730_ + _off24742_))) (declare (not safe)) - (_g2486724946_ __tmp43008)))) - (___kont4156341564_ (lambda () _K24800_))) - (if (gx#stx-pair? ___stx4155841559_) - (let ((_e2481724841_ - (gx#syntax-e ___stx4155841559_))) - (let ((_tl2481524848_ + (_g2480124880_ __tmp42847)))) + (___kont4145341454_ (lambda () _K24734_))) + (if (gx#stx-pair? ___stx4144841449_) + (let ((_e2475124775_ + (gx#syntax-e ___stx4144841449_))) + (let ((_tl2474924782_ (let () (declare (not safe)) - (##cdr _e2481724841_))) - (_hd2481624845_ + (##cdr _e2475124775_))) + (_hd2475024779_ (let () (declare (not safe)) - (##car _e2481724841_)))) - (___kont4156141562_ - _tl2481524848_ - _hd2481624845_))) - (___kont4156341564_))))))) - (_generate-list-vector23963_ - (lambda (_tgt24688_ - _body24690_ - _->list24691_ - _K24692_ - _E24693_) - (let* ((_g2469524703_ - (lambda (_g2469624699_) + (##car _e2475124775_)))) + (___kont4145141452_ + _tl2474924782_ + _hd2475024779_))) + (___kont4145341454_))))))) + (_generate-list-vector23897_ + (lambda (_tgt24622_ + _body24624_ + _->list24625_ + _K24626_ + _E24627_) + (let* ((_g2462924637_ + (lambda (_g2463024633_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2469624699_))) - (_g2469424792_ - (lambda (_g2469624707_) - ((lambda (_L24710_) + _g2463024633_))) + (_g2462824726_ + (lambda (_g2463024641_) + ((lambda (_L24644_) (let () - (let* ((_g2472224730_ - (lambda (_g2472324726_) + (let* ((_g2465624664_ + (lambda (_g2465724660_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2472324726_))) - (_g2472124788_ - (lambda (_g2472324734_) - ((lambda (_L24737_) + _g2465724660_))) + (_g2465524722_ + (lambda (_g2465724668_) + ((lambda (_L24671_) (let () - (let* ((_g2475024758_ - (lambda (_g2475124754_) + (let* ((_g2468424692_ + (lambda (_g2468524688_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2475124754_))) - (_g2474924780_ - (lambda (_g2475124762_) - ((lambda (_L24765_) + _g2468524688_))) + (_g2468324714_ + (lambda (_g2468524696_) + ((lambda (_L24699_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (cons 'let - (cons (cons (cons _L24710_ - (cons _L24765_ '())) + (cons (cons (cons _L24644_ + (cons _L24699_ '())) '()) (cons (let () (declare (not safe)) - (_generate123959_ - _L24710_ - _body24690_ - _K24692_ - _E24693_)) + (_generate123893_ + _L24644_ + _body24624_ + _K24626_ + _E24627_)) '())))))) - _g2475124762_))) - (__tmp43009 - (let ((_$e24784_ _->list24691_)) - (if (eq? 'values->list _$e24784_) + _g2468524696_))) + (__tmp42848 + (let ((_$e24718_ _->list24625_)) + (if (eq? 'values->list _$e24718_) (cons (gx#datum->syntax '#f 'values->list) - (cons _L24737_ '())) - (if (eq? 'vector->list _$e24784_) + (cons _L24671_ '())) + (if (eq? 'vector->list _$e24718_) (cons (gx#datum->syntax '#f '##vector->list) - (cons _L24737_ '())) - (if (eq? 'struct->list _$e24784_) + (cons _L24671_ '())) + (if (eq? 'struct->list _$e24718_) (cons (gx#datum->syntax '#f '##cdr) (cons (cons (gx#datum->syntax '#f '##vector->list) - (cons _L24737_ '())) + (cons _L24671_ '())) '())) (gx#raise-syntax-error '#f '"Unexpected list conversion" - _stx23952_ - _->list24691_))))))) + _stx23886_ + _->list24625_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2474924780_ - __tmp43009)))) - _g2472324734_)))) + (_g2468324714_ + __tmp42848)))) + _g2465724668_)))) (declare (not safe)) - (_g2472124788_ _tgt24688_)))) - _g2469624707_))) - (__tmp43010 (gx#genident 'e))) + (_g2465524722_ _tgt24622_)))) + _g2463024641_))) + (__tmp42849 (gx#genident 'e))) (declare (not safe)) - (_g2469424792_ __tmp43010)))) - (_generate-struct23964_ - (lambda (_info24346_ - _tgt24348_ - _body24349_ - _K24350_ - _E24351_) - (let* ((_rtd24353_ + (_g2462824726_ __tmp42849)))) + (_generate-struct23898_ + (lambda (_info24280_ + _tgt24282_ + _body24283_ + _K24284_ + _E24285_) + (let* ((_rtd24287_ (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#extended-struct-info::t| - _info24346_)) + _info24280_)) (let () (declare (not safe)) (unchecked-slot-ref - _info24346_ + _info24280_ 'type-exhibitor)) '#f)) - (_fields24363_ - (let _lp24356_ ((_rtd24359_ _rtd24353_) - (_k24361_ '0)) - (if _rtd24359_ - (let ((__tmp43012 - (let ((__tmp43013 + (_fields24297_ + (let _lp24290_ ((_rtd24293_ _rtd24287_) + (_k24295_ '0)) + (if _rtd24293_ + (let ((__tmp42851 + (let ((__tmp42852 (##structure-ref - _rtd24359_ + _rtd24293_ '2 |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '#f))) (declare (not safe)) (|gerbil/core$$[1]#runtime-type-exhibitor-e| - __tmp43013))) - (__tmp43011 + __tmp42852))) + (__tmp42850 (fx+ (length (##structure-ref - _rtd24359_ + _rtd24293_ '6 |gerbil/core$$[1]#runtime-struct-exhibitor::t| '#f)) - _k24361_))) + _k24295_))) (declare (not safe)) - (_lp24356_ __tmp43012 __tmp43011)) - _k24361_))) - (_final?24366_ - (if _rtd24353_ + (_lp24290_ __tmp42851 __tmp42850)) + _k24295_))) + (_final?24300_ + (if _rtd24287_ (assgetq 'final: (##structure-ref - _rtd24353_ + _rtd24287_ '5 |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '#f)) '#f)) - (_g2436924377_ - (lambda (_g2437024373_) + (_g2430324311_ + (lambda (_g2430424307_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2437024373_))) - (_g2436824684_ - (lambda (_g2437024381_) - ((lambda (_L24384_) + _g2430424307_))) + (_g2430224618_ + (lambda (_g2430424315_) + ((lambda (_L24318_) (let () - (let* ((_g2439924407_ - (lambda (_g2440024403_) + (let* ((_g2433324341_ + (lambda (_g2433424337_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2440024403_))) - (_g2439824586_ - (lambda (_g2440024411_) - ((lambda (_L24414_) + _g2433424337_))) + (_g2433224520_ + (lambda (_g2433424345_) + ((lambda (_L24348_) (let () (let () - (let* ((___stx4157441575_ - _body24349_) - (_g2443024453_ + (let* ((___stx4146441465_ + _body24283_) + (_g2436424387_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4157441575_)))) - (let ((___kont4157741578_ - (lambda (_L24532_) - (let ((_K24546_ + ___stx4146441465_)))) + (let ((___kont4146741468_ + (lambda (_L24466_) + (let ((_K24480_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_generate-simple-vector23962_ - _tgt24348_ - _L24532_ + (_generate-simple-vector23896_ + _tgt24282_ + _L24466_ '1 - _K24350_ - _E24351_))) - (_len24548_ (gx#stx-length _L24532_))) - (if (and _rtd24353_ (fx<= _len24548_ _fields24363_)) + _K24284_ + _E24285_))) + (_len24482_ (gx#stx-length _L24466_))) + (if (and _rtd24287_ (fx<= _len24482_ _fields24297_)) (cons 'if - (cons _L24414_ - (cons _K24546_ (cons _E24351_ '())))) - (let* ((_g2455024558_ - (lambda (_g2455124554_) + (cons _L24348_ + (cons _K24480_ (cons _E24285_ '())))) + (let* ((_g2448424492_ + (lambda (_g2448524488_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2455124554_))) - (_g2454924578_ - (lambda (_g2455124562_) - ((lambda (_L24565_) + _g2448524488_))) + (_g2448324512_ + (lambda (_g2448524496_) + ((lambda (_L24499_) (let () (cons 'if - (cons _L24414_ + (cons _L24348_ (cons (cons 'if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _L24565_ + (cons _L24499_ (cons (cons (gx#datum->syntax '#f '##vector-length) - (cons _L24384_ '())) + (cons _L24318_ '())) '()))) - (cons _K24546_ (cons _E24351_ '())))) - (cons _E24351_ '())))))) + (cons _K24480_ (cons _E24285_ '())))) + (cons _E24285_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2455124562_)))) + _g2448524496_)))) (declare (not safe)) - (_g2454924578_ _len24548_)))))) - (___kont4157941580_ - (lambda (_L24484_) + (_g2448324512_ _len24482_)))))) + (___kont4146941470_ + (lambda (_L24418_) (cons 'if - (cons _L24414_ + (cons _L24348_ (cons (let () (declare (not safe)) - (_generate-list-vector23963_ - _tgt24348_ - _L24484_ + (_generate-list-vector23897_ + _tgt24282_ + _L24418_ 'struct->list - _K24350_ - _E24351_)) - (cons _E24351_ '()))))))) - (if (gx#stx-pair? ___stx4157441575_) - (let ((_e2443524508_ (gx#syntax-e ___stx4157441575_))) - (let ((_tl2443324515_ + _K24284_ + _E24285_)) + (cons _E24285_ '()))))))) + (if (gx#stx-pair? ___stx4146441465_) + (let ((_e2436924442_ (gx#syntax-e ___stx4146441465_))) + (let ((_tl2436724449_ (let () (declare (not safe)) - (##cdr _e2443524508_))) - (_hd2443424512_ + (##cdr _e2436924442_))) + (_hd2436824446_ (let () (declare (not safe)) - (##car _e2443524508_)))) - (if (gx#stx-datum? _hd2443424512_) - (let ((_e2443624518_ (gx#stx-e _hd2443424512_))) - (if (equal? _e2443624518_ 'simple:) - (if (gx#stx-pair? _tl2443324515_) - (let ((_e2443924522_ - (gx#syntax-e _tl2443324515_))) - (let ((_tl2443724529_ + (##car _e2436924442_)))) + (if (gx#stx-datum? _hd2436824446_) + (let ((_e2437024452_ (gx#stx-e _hd2436824446_))) + (if (equal? _e2437024452_ 'simple:) + (if (gx#stx-pair? _tl2436724449_) + (let ((_e2437324456_ + (gx#syntax-e _tl2436724449_))) + (let ((_tl2437124463_ (let () (declare (not safe)) - (##cdr _e2443924522_))) - (_hd2443824526_ + (##cdr _e2437324456_))) + (_hd2437224460_ (let () (declare (not safe)) - (##car _e2443924522_)))) - (if (gx#stx-null? _tl2443724529_) - (___kont4157741578_ - _hd2443824526_) + (##car _e2437324456_)))) + (if (gx#stx-null? _tl2437124463_) + (___kont4146741468_ + _hd2437224460_) (let () (declare (not safe)) - (_g2443024453_))))) + (_g2436424387_))))) (let () (declare (not safe)) - (_g2443024453_))) - (if (equal? _e2443624518_ 'list:) - (if (gx#stx-pair? _tl2443324515_) - (let ((_e2444724474_ - (gx#syntax-e _tl2443324515_))) - (let ((_tl2444524481_ + (_g2436424387_))) + (if (equal? _e2437024452_ 'list:) + (if (gx#stx-pair? _tl2436724449_) + (let ((_e2438124408_ + (gx#syntax-e _tl2436724449_))) + (let ((_tl2437924415_ (let () (declare (not safe)) - (##cdr _e2444724474_))) - (_hd2444624478_ + (##cdr _e2438124408_))) + (_hd2438024412_ (let () (declare (not safe)) - (##car _e2444724474_)))) - (if (gx#stx-null? _tl2444524481_) - (___kont4157941580_ - _hd2444624478_) + (##car _e2438124408_)))) + (if (gx#stx-null? _tl2437924415_) + (___kont4146941470_ + _hd2438024412_) (let () (declare (not safe)) - (_g2443024453_))))) + (_g2436424387_))))) (let () (declare (not safe)) - (_g2443024453_))) + (_g2436424387_))) (let () (declare (not safe)) - (_g2443024453_))))) - (let () (declare (not safe)) (_g2443024453_))))) - (let () (declare (not safe)) (_g2443024453_)))))))) + (_g2436424387_))))) + (let () (declare (not safe)) (_g2436424387_))))) + (let () (declare (not safe)) (_g2436424387_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2440024411_))) - (__tmp43014 + _g2433424345_))) + (__tmp42853 (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#expander-type-info::t| - _info24346_)) - (let* ((_g2459024598_ - (lambda (_g2459124594_) + _info24280_)) + (let* ((_g2452424532_ + (lambda (_g2452524528_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2459124594_))) - (_g2458924617_ - (lambda (_g2459124602_) - ((lambda (_L24605_) + _g2452524528_))) + (_g2452324551_ + (lambda (_g2452524536_) + ((lambda (_L24539_) (let () - (cons _L24605_ + (cons _L24539_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L24384_ '())))) - _g2459124602_))) - (__tmp43016 + (cons _L24318_ '())))) + _g2452524536_))) + (__tmp42855 (cadddr (let () (declare (not safe)) (unchecked-slot-ref - _info24346_ + _info24280_ 'expander-identifiers))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2458924617_ __tmp43016)) - (let* ((_g2462124636_ - (lambda (_g2462224632_) + (_g2452324551_ __tmp42855)) + (let* ((_g2455524570_ + (lambda (_g2455624566_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2462224632_))) - (_g2462024680_ - (lambda (_g2462224640_) + _g2455624566_))) + (_g2455424614_ + (lambda (_g2455624574_) (if (gx#stx-pair? - _g2462224640_) - (let ((_e2462724643_ + _g2455624574_) + (let ((_e2456124577_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g2462224640_))) - (let ((_hd2462624647_ + (gx#syntax-e _g2455624574_))) + (let ((_hd2456024581_ (let () (declare (not safe)) - (##car _e2462724643_))) - (_tl2462524650_ + (##car _e2456124577_))) + (_tl2455924584_ (let () (declare (not safe)) - (##cdr _e2462724643_)))) - (if (gx#stx-pair? _tl2462524650_) - (let ((_e2463024653_ - (gx#syntax-e _tl2462524650_))) - (let ((_hd2462924657_ + (##cdr _e2456124577_)))) + (if (gx#stx-pair? _tl2455924584_) + (let ((_e2456424587_ + (gx#syntax-e _tl2455924584_))) + (let ((_hd2456324591_ (let () (declare (not safe)) - (##car _e2463024653_))) - (_tl2462824660_ + (##car _e2456424587_))) + (_tl2456224594_ (let () (declare (not safe)) - (##cdr _e2463024653_)))) - (if (gx#stx-null? _tl2462824660_) - ((lambda (_L24663_ _L24665_) + (##cdr _e2456424587_)))) + (if (gx#stx-null? _tl2456224594_) + ((lambda (_L24597_ _L24599_) (let () - (cons _L24663_ - (cons _L24665_ - (cons _L24384_ '()))))) - _hd2462924657_ - _hd2462624647_) + (cons _L24597_ + (cons _L24599_ + (cons _L24318_ '()))))) + _hd2456324591_ + _hd2456024581_) (let () (declare (not safe)) - (_g2462124636_ _g2462224640_))))) + (_g2455524570_ _g2455624574_))))) (let () (declare (not safe)) - (_g2462124636_ _g2462224640_))))) + (_g2455524570_ _g2455624574_))))) (let () (declare (not safe)) - (_g2462124636_ _g2462224640_))))) - (__tmp43015 + (_g2455524570_ _g2455624574_))))) + (__tmp42854 (list (let () (declare (not safe)) - (unchecked-slot-ref _info24346_ 'runtime-identifier)) - (if _final?24366_ + (unchecked-slot-ref _info24280_ 'runtime-identifier)) + (if _final?24300_ (gx#datum->syntax '#f 'direct-instance?) (gx#datum->syntax '#f 'struct-instance?))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2462024680_ __tmp43015))))) + (_g2455424614_ __tmp42854))))) (declare (not safe)) - (_g2439824586_ __tmp43014)))) - _g2437024381_)))) + (_g2433224520_ __tmp42853)))) + _g2430424315_)))) (declare (not safe)) - (_g2436824684_ _tgt24348_)))) - (_generate-class23965_ - (lambda (_info23967_ - _tgt23969_ - _body23970_ - _K23971_ - _E23972_) - (letrec* ((_rtd23974_ + (_g2430224618_ _tgt24282_)))) + (_generate-class23899_ + (lambda (_info23901_ + _tgt23903_ + _body23904_ + _K23905_ + _E23906_) + (letrec* ((_rtd23908_ (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#extended-class-info::t| - _info23967_)) + _info23901_)) (let () (declare (not safe)) (unchecked-slot-ref - _info23967_ + _info23901_ 'type-exhibitor)) '#f)) - (_known-slot?23976_ - (if _rtd23974_ - (lambda (_key24340_) - (let ((_slot24343_ + (_known-slot?23910_ + (if _rtd23908_ + (lambda (_key24274_) + (let ((_slot24277_ (keyword->symbol - (gx#stx-e _key24340_)))) + (gx#stx-e _key24274_)))) (declare (not safe)) - (_rtd-known-slot?23978_ - _rtd23974_ - _slot24343_))) + (_rtd-known-slot?23912_ + _rtd23908_ + _slot24277_))) false)) - (_final?23977_ - (if _rtd23974_ + (_final?23911_ + (if _rtd23908_ (assgetq 'final: (##structure-ref - _rtd23974_ + _rtd23908_ '5 |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '#f)) '#f)) - (_rtd-known-slot?23978_ - (lambda (_rtd24327_ _slot24329_) - (if _rtd24327_ - (let ((_$e24331_ - (memq _slot24329_ + (_rtd-known-slot?23912_ + (lambda (_rtd24261_ _slot24263_) + (if _rtd24261_ + (let ((_$e24265_ + (memq _slot24263_ (##structure-ref - _rtd24327_ + _rtd24261_ '6 |gerbil/core$$[1]#runtime-class-exhibitor::t| '#f)))) - (if _$e24331_ - _$e24331_ - (ormap (lambda (_g2433424336_) + (if _$e24265_ + _$e24265_ + (ormap (lambda (_g2426824270_) (let () (declare (not safe)) - (_rtd-known-slot?23978_ - _g2433424336_ - _slot24329_))) + (_rtd-known-slot?23912_ + _g2426824270_ + _slot24263_))) (map |gerbil/core$$[1]#runtime-type-exhibitor-e| (##structure-ref - _rtd24327_ + _rtd24261_ '2 |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '#f))))) '#f))) - (_recur23979_ - (lambda (_klass24113_ _rest24115_) - (let* ((___stx4162441625_ _rest24115_) - (_g2411824134_ + (_recur23913_ + (lambda (_klass24047_ _rest24049_) + (let* ((___stx4151441515_ _rest24049_) + (_g2405224068_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4162441625_)))) - (let ((___kont4162741628_ - (lambda (_L24172_ _L24174_ _L24175_) - (let* ((_g2419124199_ - (lambda (_g2419224195_) + ___stx4151441515_)))) + (let ((___kont4151741518_ + (lambda (_L24106_ _L24108_ _L24109_) + (let* ((_g2412524133_ + (lambda (_g2412624129_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2419224195_))) - (_g2419024319_ - (lambda (_g2419224203_) - ((lambda (_L24206_) + _g2412624129_))) + (_g2412424253_ + (lambda (_g2412624137_) + ((lambda (_L24140_) (let () - (let* ((_g2421824226_ + (let* ((_g2415224160_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2421924222_) + (lambda (_g2415324156_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2421924222_))) - (_g2421724315_ - (lambda (_g2421924230_) - ((lambda (_L24233_) + _g2415324156_))) + (_g2415124249_ + (lambda (_g2415324164_) + ((lambda (_L24167_) (let () - (let* ((_g2424624254_ - (lambda (_g2424724250_) + (let* ((_g2418024188_ + (lambda (_g2418124184_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2424724250_))) - (_g2424524311_ - (lambda (_g2424724258_) - ((lambda (_L24261_) + _g2418124184_))) + (_g2417924245_ + (lambda (_g2418124192_) + ((lambda (_L24195_) (let () - (let* ((_g2427424282_ - (lambda (_g2427524278_) + (let* ((_g2420824216_ + (lambda (_g2420924212_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2427524278_))) - (_g2427324307_ - (lambda (_g2427524286_) - ((lambda (_L24289_) + _g2420924212_))) + (_g2420724241_ + (lambda (_g2420924220_) + ((lambda (_L24223_) (let () - (let ((_K24302_ + (let ((_K24236_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'let - (cons (cons (cons _L24289_ + (cons (cons (cons _L24223_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _L24206_ + (cons _L24140_ (cons (cons (gx#datum->syntax '#f 'fx1+) - (cons _L24261_ '())) + (cons _L24195_ '())) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (let ((__tmp43017 + (cons (let ((__tmp42856 (let () (declare (not safe)) - (_recur23979_ - _klass24113_ - _L24172_)))) + (_recur23913_ + _klass24047_ + _L24106_)))) (declare (not safe)) - (_generate123959_ - _L24289_ - _L24174_ - __tmp43017 - _E23972_)) + (_generate123893_ + _L24223_ + _L24108_ + __tmp42856 + _E23906_)) '()))))) - (if (_known-slot?23976_ _L24175_) + (if (_known-slot?23910_ _L24109_) (cons 'let - (cons (cons (cons _L24261_ + (cons (cons (cons _L24195_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'class-slot-offset) - (cons _L24233_ (cons _L24175_ '()))) + (cons _L24167_ (cons _L24109_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _K24302_ '()))) + (cons _K24236_ '()))) (cons 'let - (cons (cons (cons _L24261_ + (cons (cons (cons _L24195_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'class-slot-offset) - (cons _L24233_ (cons _L24175_ '()))) + (cons _L24167_ (cons _L24109_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons 'if - (cons _L24261_ - (cons _K24302_ + (cons _L24195_ + (cons _K24236_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _E23972_ '())))) + (cons _E23906_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _g2427524286_))) - (__tmp43018 (gx#genident 'e))) + _g2420924220_))) + (__tmp42857 (gx#genident 'e))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2427324307_ - __tmp43018)))) - _g2424724258_))) - (__tmp43019 (gx#genident 'slot))) + (_g2420724241_ + __tmp42857)))) + _g2418124192_))) + (__tmp42858 (gx#genident 'slot))) (declare (not safe)) - (_g2424524311_ __tmp43019)))) - _g2421924230_)))) + (_g2417924245_ __tmp42858)))) + _g2415324164_)))) (declare (not safe)) - (_g2421724315_ _klass24113_)))) - _g2419224203_)))) + (_g2415124249_ _klass24047_)))) + _g2412624137_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2419024319_ _tgt23969_)))) - (___kont4162941630_ - (lambda () _K23971_))) - (if (gx#stx-pair? ___stx4162441625_) - (let ((_e2412524152_ + (_g2412424253_ _tgt23903_)))) + (___kont4151941520_ + (lambda () _K23905_))) + (if (gx#stx-pair? ___stx4151441515_) + (let ((_e2405924086_ (gx#syntax-e - ___stx4162441625_))) - (let ((_tl2412324159_ + ___stx4151441515_))) + (let ((_tl2405724093_ (let () (declare (not safe)) - (##cdr _e2412524152_))) - (_hd2412424156_ + (##cdr _e2405924086_))) + (_hd2405824090_ (let () (declare (not safe)) - (##car _e2412524152_)))) - (if (gx#stx-pair? _tl2412324159_) - (let ((_e2412824162_ + (##car _e2405924086_)))) + (if (gx#stx-pair? _tl2405724093_) + (let ((_e2406224096_ (gx#syntax-e - _tl2412324159_))) - (let ((_tl2412624169_ + _tl2405724093_))) + (let ((_tl2406024103_ (let () (declare (not safe)) - (##cdr _e2412824162_))) - (_hd2412724166_ + (##cdr _e2406224096_))) + (_hd2406124100_ (let () (declare (not safe)) - (##car _e2412824162_)))) - (___kont4162741628_ - _tl2412624169_ - _hd2412724166_ - _hd2412424156_))) - (___kont4162941630_)))) - (___kont4162941630_))))))) - (let* ((_g2398123989_ - (lambda (_g2398223985_) + (##car _e2406224096_)))) + (___kont4151741518_ + _tl2406024103_ + _hd2406124100_ + _hd2405824090_))) + (___kont4151941520_)))) + (___kont4151941520_))))))) + (let* ((_g2391523923_ + (lambda (_g2391623919_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2398223985_))) - (_g2398024109_ - (lambda (_g2398223993_) - ((lambda (_L23996_) + _g2391623919_))) + (_g2391424043_ + (lambda (_g2391623927_) + ((lambda (_L23930_) (let () - (let* ((_g2401124019_ - (lambda (_g2401224015_) + (let* ((_g2394523953_ + (lambda (_g2394623949_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2401224015_))) - (_g2401024105_ - (lambda (_g2401224023_) - ((lambda (_L24026_) + _g2394623949_))) + (_g2394424039_ + (lambda (_g2394623957_) + ((lambda (_L23960_) (let () - (let* ((_g2403924047_ - (lambda (_g2404024043_) + (let* ((_g2397323981_ + (lambda (_g2397423977_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2404024043_))) - (_g2403824101_ - (lambda (_g2404024051_) - ((lambda (_L24054_) + _g2397423977_))) + (_g2397224035_ + (lambda (_g2397423985_) + ((lambda (_L23988_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2406724075_ - (lambda (_g2406824071_) + (let* ((_g2400124009_ + (lambda (_g2400224005_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2406824071_))) - (_g2406624097_ - (lambda (_g2406824079_) - ((lambda (_L24082_) + _g2400224005_))) + (_g2400024031_ + (lambda (_g2400224013_) + ((lambda (_L24016_) (let () (let () (cons 'if - (cons (cons _L24082_ - (cons _L24054_ + (cons (cons _L24016_ + (cons _L23988_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L24026_ '()))) + (cons _L23960_ '()))) (cons (cons 'let - (cons (cons (cons _L23996_ + (cons (cons (cons _L23930_ (cons (cons (gx#datum->syntax '#f 'object-type) - (cons _L24026_ '())) + (cons _L23960_ '())) '())) '()) (cons (let () (declare (not safe)) - (_recur23979_ _L23996_ _body23970_)) + (_recur23913_ _L23930_ _body23904_)) '()))) - (cons _E23972_ '()))))))) + (cons _E23906_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2406824079_))) - (__tmp43020 - (if _final?23977_ + _g2400224013_))) + (__tmp42859 + (if _final?23911_ (gx#datum->syntax '#f 'direct-instance?) (gx#datum->syntax '#f 'class-instance?)))) (declare (not safe)) - (_g2406624097_ __tmp43020)))) - _g2404024051_))) - (__tmp43021 + (_g2400024031_ __tmp42859)))) + _g2397423985_))) + (__tmp42860 (let () (declare (not safe)) - (unchecked-slot-ref _info23967_ 'runtime-identifier)))) + (unchecked-slot-ref _info23901_ 'runtime-identifier)))) (declare (not safe)) - (_g2403824101_ __tmp43021)))) + (_g2397224035_ __tmp42860)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2401224023_)))) + _g2394623957_)))) (declare (not safe)) - (_g2401024105_ _tgt23969_)))) - _g2398223993_))) - (__tmp43022 (gx#genident 'class))) + (_g2394424039_ _tgt23903_)))) + _g2391623927_))) + (__tmp42861 (gx#genident 'class))) (declare (not safe)) - (_g2398024109_ __tmp43022)))))) + (_g2391424043_ __tmp42861)))))) (let () (declare (not safe)) - (_generate123959_ _tgt23954_ _ptree23955_ _K23956_ _E23957_))))) + (_generate123893_ _tgt23888_ _ptree23889_ _K23890_ _E23891_))))) (define |gerbil/core$[1]#generate-match*| - (lambda (_stx22848_ _tgt-lst22850_ _clauses22851_) - (letrec ((_parse-body22853_ - (lambda (_hd-len23774_) - (let _lp23777_ ((_rest23780_ _clauses22851_) - (_r23782_ '())) - (let* ((___stx4167441675_ _rest23780_) - (_g2378523797_ + (lambda (_stx22782_ _tgt-lst22784_ _clauses22785_) + (letrec ((_parse-body22787_ + (lambda (_hd-len23708_) + (let _lp23711_ ((_rest23714_ _clauses22785_) + (_r23716_ '())) + (let* ((___stx4156441565_ _rest23714_) + (_g2371923731_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4167441675_)))) - (let ((___kont4167741678_ - (lambda (_L23825_ _L23827_) - (let* ((___stx4164641647_ _L23827_) - (_g2384423860_ + ___stx4156441565_)))) + (let ((___kont4156741568_ + (lambda (_L23759_ _L23761_) + (let* ((___stx4153641537_ _L23761_) + (_g2377823794_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4164641647_)))) - (let ((___kont4164941650_ - (lambda (_L23929_) - (if (gx#stx-null? _L23825_) + ___stx4153641537_)))) + (let ((___kont4153941540_ + (lambda (_L23863_) + (if (gx#stx-null? _L23759_) (cons (cons (gx#genident 'else) (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'begin) _L23929_) - (let ((_$e23940_ (gx#stx-source _L23827_))) - (if _$e23940_ - _$e23940_ - (gx#stx-source _stx22848_)))) + (cons (gx#datum->syntax '#f 'begin) _L23863_) + (let ((_$e23874_ (gx#stx-source _L23761_))) + (if _$e23874_ + _$e23874_ + (gx#stx-source _stx22782_)))) '()))) - _r23782_) + _r23716_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _stx22848_ - _L23827_)))) - (___kont4165141652_ - (lambda (_L23888_ _L23890_) - (let ((__tmp43023 + _stx22782_ + _L23761_)))) + (___kont4154141542_ + (lambda (_L23822_ _L23824_) + (let ((__tmp42862 (cons (cons (gx#genident 'try-match) (cons (gx#stx-map ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2390223904_) + (lambda (_g2383623838_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _g2390223904_ - _stx22848_))) - _L23890_) + _g2383623838_ + _stx22782_))) + _L23824_) (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'begin) - _L23888_) - (let ((_$e23908_ (gx#stx-source _L23827_))) - (if _$e23908_ - _$e23908_ - (gx#stx-source _stx22848_)))) + _L23822_) + (let ((_$e23842_ (gx#stx-source _L23761_))) + (if _$e23842_ + _$e23842_ + (gx#stx-source _stx22782_)))) '()))) - _r23782_))) + _r23716_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp23777_ - _L23825_ - __tmp43023)))) - (___kont4165341654_ + (_lp23711_ + _L23759_ + __tmp42862)))) + (___kont4154341544_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal match clause" - _stx22848_ - _L23827_)))) - (let* ((___match4167141672_ - (lambda (_e2385423878_ - _hd2385323882_ - _tl2385223885_) - (let ((_L23888_ _tl2385223885_) - (_L23890_ _hd2385323882_)) + _stx22782_ + _L23761_)))) + (let* ((___match4156141562_ + (lambda (_e2378823812_ + _hd2378723816_ + _tl2378623819_) + (let ((_L23822_ _tl2378623819_) + (_L23824_ _hd2378723816_)) (if (and (gx#stx-list? - _L23890_) + _L23824_) (fx= (gx#stx-length - _L23890_) - _hd-len23774_) + _L23824_) + _hd-len23708_) (gx#stx-list? - _L23888_) + _L23822_) (not (gx#stx-null? - _L23888_))) - (___kont4165141652_ - _L23888_ - _L23890_) - (___kont4165341654_))))) - (___match4166541666_ - (lambda (_e2384923919_ - _hd2384823923_ - _tl2384723926_) - (let ((_L23929_ _tl2384723926_)) + _L23822_))) + (___kont4154141542_ + _L23822_ + _L23824_) + (___kont4154341544_))))) + (___match4155541556_ + (lambda (_e2378323853_ + _hd2378223857_ + _tl2378123860_) + (let ((_L23863_ _tl2378123860_)) (if (and (gx#stx-list? - _L23929_) + _L23863_) (not (gx#stx-null? - _L23929_))) - (___kont4164941650_ - _L23929_) - (___match4167141672_ - _e2384923919_ - _hd2384823923_ - _tl2384723926_)))))) - (if (gx#stx-pair? ___stx4164641647_) - (let ((_e2384923919_ + _L23863_))) + (___kont4153941540_ + _L23863_) + (___match4156141562_ + _e2378323853_ + _hd2378223857_ + _tl2378123860_)))))) + (if (gx#stx-pair? ___stx4153641537_) + (let ((_e2378323853_ (gx#syntax-e - ___stx4164641647_))) - (let ((_tl2384723926_ + ___stx4153641537_))) + (let ((_tl2378123860_ (let () (declare (not safe)) - (##cdr _e2384923919_))) - (_hd2384823923_ + (##cdr _e2378323853_))) + (_hd2378223857_ (let () (declare (not safe)) - (##car _e2384923919_)))) + (##car _e2378323853_)))) (if (gx#identifier? - _hd2384823923_) + _hd2378223857_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43024_| - _hd2384823923_) - (___match4166541666_ - _e2384923919_ - _hd2384823923_ - _tl2384723926_) - (___match4167141672_ - _e2384923919_ - _hd2384823923_ - _tl2384723926_)) - (___match4167141672_ - _e2384923919_ - _hd2384823923_ - _tl2384723926_)))) - (___kont4165341654_))))))) - (___kont4167941680_ (lambda () _r23782_))) - (if (gx#stx-pair? ___stx4167441675_) - (let ((_e2379123815_ - (gx#syntax-e ___stx4167441675_))) - (let ((_tl2378923822_ + |gerbil/core$[1]#_g42863_| + _hd2378223857_) + (___match4155541556_ + _e2378323853_ + _hd2378223857_ + _tl2378123860_) + (___match4156141562_ + _e2378323853_ + _hd2378223857_ + _tl2378123860_)) + (___match4156141562_ + _e2378323853_ + _hd2378223857_ + _tl2378123860_)))) + (___kont4154341544_))))))) + (___kont4156941570_ (lambda () _r23716_))) + (if (gx#stx-pair? ___stx4156441565_) + (let ((_e2372523749_ + (gx#syntax-e ___stx4156441565_))) + (let ((_tl2372323756_ (let () (declare (not safe)) - (##cdr _e2379123815_))) - (_hd2379023819_ + (##cdr _e2372523749_))) + (_hd2372423753_ (let () (declare (not safe)) - (##car _e2379123815_)))) - (___kont4167741678_ - _tl2378923822_ - _hd2379023819_))) - (___kont4167941680_))))))) - (_generate-body22855_ - (lambda (_body23559_) - (let* ((_g2356223570_ - (lambda (_g2356323566_) + (##car _e2372523749_)))) + (___kont4156741568_ + _tl2372323756_ + _hd2372423753_))) + (___kont4156941570_))))))) + (_generate-body22789_ + (lambda (_body23493_) + (let* ((_g2349623504_ + (lambda (_g2349723500_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2356323566_))) - (_g2356123770_ - (lambda (_g2356323574_) - ((lambda (_L23577_) + _g2349723500_))) + (_g2349523704_ + (lambda (_g2349723508_) + ((lambda (_L23511_) (let () - (let* ((_g2358923606_ - (lambda (_g2359023602_) + (let* ((_g2352323540_ + (lambda (_g2352423536_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2359023602_))) - (_g2358823766_ - (lambda (_g2359023610_) + _g2352423536_))) + (_g2352223700_ + (lambda (_g2352423544_) (if (gx#stx-pair/null? - _g2359023610_) - (let ((_g43025_ + _g2352423544_) + (let ((_g42864_ (gx#syntax-split-splice - _g2359023610_ + _g2352423544_ '0))) (begin - (let ((_g43026_ + (let ((_g42865_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g43025_) - (##vector-length _g43025_) + _g42864_) + (##vector-length _g42864_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g43026_ 2))) - (error "Context expects 2 values" _g43026_))) + (if (not (let () (declare (not safe)) (##fx= _g42865_ 2))) + (error "Context expects 2 values" _g42865_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2359223613_ + (let ((_target2352623547_ (let () (declare (not safe)) (##vector-ref - _g43025_ + _g42864_ 0))) - (_tl2359423616_ + (_tl2352823550_ (let () (declare (not safe)) (##vector-ref - _g43025_ + _g42864_ 1)))) (if (gx#stx-null? - _tl2359423616_) - (letrec ((_loop2359523619_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd2359323623_ _target2359923626_) - (if (gx#stx-pair? _hd2359323623_) - (let ((_e2359623629_ - (gx#syntax-e _hd2359323623_))) - (let ((_lp-hd2359723633_ + _tl2352823550_) + (letrec ((_loop2352923553_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd2352723557_ _target2353323560_) + (if (gx#stx-pair? _hd2352723557_) + (let ((_e2353023563_ + (gx#syntax-e _hd2352723557_))) + (let ((_lp-hd2353123567_ (let () (declare (not safe)) - (##car _e2359623629_))) - (_lp-tl2359823636_ + (##car _e2353023563_))) + (_lp-tl2353223570_ (let () (declare (not safe)) - (##cdr _e2359623629_)))) - (let ((__tmp43031 - (cons _lp-hd2359723633_ - _target2359923626_))) + (##cdr _e2353023563_)))) + (let ((__tmp42870 + (cons _lp-hd2353123567_ + _target2353323560_))) (declare (not safe)) - (_loop2359523619_ - _lp-tl2359823636_ - __tmp43031)))) - (let ((_target2360023639_ - (reverse _target2359923626_))) - ((lambda (_L23643_) + (_loop2352923553_ + _lp-tl2353223570_ + __tmp42870)))) + (let ((_target2353423573_ + (reverse _target2353323560_))) + ((lambda (_L23577_) (let () - (let* ((_g2366023668_ - (lambda (_g2366123664_) + (let* ((_g2359423602_ + (lambda (_g2359523598_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2366123664_))) - (_g2365923754_ - (lambda (_g2366123672_) - ((lambda (_L23675_) + _g2359523598_))) + (_g2359323688_ + (lambda (_g2359523606_) + ((lambda (_L23609_) (let () - (let* ((_g2368823696_ + (let* ((_g2362223630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2368923692_) + (lambda (_g2362323626_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2368923692_))) - (_g2368723750_ - (lambda (_g2368923700_) - ((lambda (_L23703_) + _g2362323626_))) + (_g2362123684_ + (lambda (_g2362323634_) + ((lambda (_L23637_) (let () - (let* ((_g2371623724_ - (lambda (_g2371723720_) + (let* ((_g2365023658_ + (lambda (_g2365123654_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2371723720_))) - (_g2371523746_ - (lambda (_g2371723728_) - ((lambda (_L23731_) + _g2365123654_))) + (_g2364923680_ + (lambda (_g2365123662_) + ((lambda (_L23665_) (let () (let () (cons (gx#datum->syntax @@ -4981,33 +4981,33 @@ (cons (gx#datum->syntax '#f '@match) - (cons _L23731_ + (cons _L23665_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2371723728_))) - (__tmp43027 + _g2365123662_))) + (__tmp42866 (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L23577_ + (cons (cons (cons _L23511_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L23675_ '())) + (cons _L23609_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L23703_ '()))) - (gx#stx-source _stx22848_)))) + (cons _L23637_ '()))) + (gx#stx-source _stx22782_)))) (declare (not safe)) - (_g2371523746_ __tmp43027)))) - _g2368923700_))) - (__tmp43028 - (let ((__tmp43029 (cons _L23577_ '()))) + (_g2364923680_ __tmp42866)))) + _g2362323634_))) + (__tmp42867 + (let ((__tmp42868 (cons _L23511_ '()))) (declare (not safe)) - (_generate-clauses22856_ _body23559_ __tmp43029)))) + (_generate-clauses22790_ _body23493_ __tmp42868)))) (declare (not safe)) - (_g2368723750_ __tmp43028)))) + (_g2362123684_ __tmp42867)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2366123672_))) - (__tmp43030 + _g2359523606_))) + (__tmp42869 (gx#stx-wrap-source (cons (gx#datum->syntax '#f @@ -5018,259 +5018,259 @@ '#f 'error) (cons '"No clause matching" - (foldr (lambda (_g2375723760_ - _g2375823763_) - (cons _g2375723760_ - _g2375823763_)) + (foldr (lambda (_g2369123694_ + _g2369223697_) + (cons _g2369123694_ + _g2369223697_)) '() - _L23643_))) + _L23577_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _stx22848_)))) + _stx22782_)))) (declare (not safe)) - (_g2365923754_ __tmp43030)))) - _target2360023639_)))))) + (_g2359323688_ __tmp42869)))) + _target2353423573_)))))) (let () (declare (not safe)) - (_loop2359523619_ _target2359223613_ '()))) + (_loop2352923553_ _target2352623547_ '()))) (let () (declare (not safe)) - (_g2358923606_ _g2359023610_)))))) + (_g2352323540_ _g2352423544_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2358923606_ - _g2359023610_)))))) + (_g2352323540_ + _g2352423544_)))))) (declare (not safe)) - (_g2358823766_ _tgt-lst22850_)))) - _g2356323574_))) - (__tmp43032 (gx#genident 'E))) + (_g2352223700_ _tgt-lst22784_)))) + _g2349723508_))) + (__tmp42871 (gx#genident 'E))) (declare (not safe)) - (_g2356123770_ __tmp43032)))) - (_generate-clauses22856_ - (lambda (_rest23211_ _E23213_) - (let* ((___stx4169041691_ _rest23211_) - (_g2321723233_ + (_g2349523704_ __tmp42871)))) + (_generate-clauses22790_ + (lambda (_rest23145_ _E23147_) + (let* ((___stx4158041581_ _rest23145_) + (_g2315123167_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4169041691_)))) - (let ((___kont4169341694_ - (lambda (_L23467_) - (let* ((_g2347823496_ - (lambda (_g2347923492_) + ___stx4158041581_)))) + (let ((___kont4158341584_ + (lambda (_L23401_) + (let* ((_g2341223430_ + (lambda (_g2341323426_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2347923492_))) - (_g2347723551_ - (lambda (_g2347923500_) - (if (gx#stx-pair? _g2347923500_) - (let ((_e2348423503_ + _g2341323426_))) + (_g2341123485_ + (lambda (_g2341323434_) + (if (gx#stx-pair? _g2341323434_) + (let ((_e2341823437_ (gx#syntax-e - _g2347923500_))) - (let ((_hd2348323507_ + _g2341323434_))) + (let ((_hd2341723441_ (let () (declare (not safe)) - (##car _e2348423503_))) - (_tl2348223510_ + (##car _e2341823437_))) + (_tl2341623444_ (let () (declare (not safe)) - (##cdr _e2348423503_)))) + (##cdr _e2341823437_)))) (if (gx#stx-pair? - _tl2348223510_) - (let ((_e2348723513_ + _tl2341623444_) + (let ((_e2342123447_ (gx#syntax-e - _tl2348223510_))) - (let ((_hd2348623517_ + _tl2341623444_))) + (let ((_hd2342023451_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e2348723513_))) - (_tl2348523520_ - (let () (declare (not safe)) (##cdr _e2348723513_)))) - (if (gx#stx-pair? _tl2348523520_) - (let ((_e2349023523_ (gx#syntax-e _tl2348523520_))) - (let ((_hd2348923527_ + (##car _e2342123447_))) + (_tl2341923454_ + (let () (declare (not safe)) (##cdr _e2342123447_)))) + (if (gx#stx-pair? _tl2341923454_) + (let ((_e2342423457_ (gx#syntax-e _tl2341923454_))) + (let ((_hd2342323461_ (let () (declare (not safe)) - (##car _e2349023523_))) - (_tl2348823530_ + (##car _e2342423457_))) + (_tl2342223464_ (let () (declare (not safe)) - (##cdr _e2349023523_)))) - (if (gx#stx-null? _tl2348823530_) - ((lambda (_L23533_ _L23535_) + (##cdr _e2342423457_)))) + (if (gx#stx-null? _tl2342223464_) + ((lambda (_L23467_ _L23469_) (cons 'begin-annotation (cons '@match-body - (cons (if (gx#stx-e _L23535_) + (cons (if (gx#stx-e _L23469_) (let () (declare (not safe)) - (_generate122857_ - _L23535_ - _L23533_ - _E23213_)) - _L23533_) + (_generate122791_ + _L23469_ + _L23467_ + _E23147_)) + _L23467_) '())))) - _hd2348923527_ - _hd2348623517_) + _hd2342323461_ + _hd2342023451_) (let () (declare (not safe)) - (_g2347823496_ _g2347923500_))))) + (_g2341223430_ _g2341323434_))))) (let () (declare (not safe)) - (_g2347823496_ _g2347923500_))))) + (_g2341223430_ _g2341323434_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2347823496_ - _g2347923500_))))) + (_g2341223430_ + _g2341323434_))))) (let () (declare (not safe)) - (_g2347823496_ - _g2347923500_)))))) + (_g2341223430_ + _g2341323434_)))))) (declare (not safe)) - (_g2347723551_ _L23467_)))) - (___kont4169541696_ - (lambda (_L23261_ _L23263_) - (let* ((_g2327623295_ - (lambda (_g2327723291_) + (_g2341123485_ _L23401_)))) + (___kont4158541586_ + (lambda (_L23195_ _L23197_) + (let* ((_g2321023229_ + (lambda (_g2321123225_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2327723291_))) - (_g2327523446_ - (lambda (_g2327723299_) - (if (gx#stx-pair? _g2327723299_) - (let ((_e2328323302_ + _g2321123225_))) + (_g2320923380_ + (lambda (_g2321123233_) + (if (gx#stx-pair? _g2321123233_) + (let ((_e2321723236_ (gx#syntax-e - _g2327723299_))) - (let ((_hd2328223306_ + _g2321123233_))) + (let ((_hd2321623240_ (let () (declare (not safe)) - (##car _e2328323302_))) - (_tl2328123309_ + (##car _e2321723236_))) + (_tl2321523243_ (let () (declare (not safe)) - (##cdr _e2328323302_)))) + (##cdr _e2321723236_)))) (if (gx#stx-pair? - _tl2328123309_) - (let ((_e2328623312_ + _tl2321523243_) + (let ((_e2322023246_ (gx#syntax-e - _tl2328123309_))) - (let ((_hd2328523316_ + _tl2321523243_))) + (let ((_hd2321923250_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e2328623312_))) - (_tl2328423319_ - (let () (declare (not safe)) (##cdr _e2328623312_)))) - (if (gx#stx-pair? _tl2328423319_) - (let ((_e2328923322_ (gx#syntax-e _tl2328423319_))) - (let ((_hd2328823326_ + (##car _e2322023246_))) + (_tl2321823253_ + (let () (declare (not safe)) (##cdr _e2322023246_)))) + (if (gx#stx-pair? _tl2321823253_) + (let ((_e2322323256_ (gx#syntax-e _tl2321823253_))) + (let ((_hd2322223260_ (let () (declare (not safe)) - (##car _e2328923322_))) - (_tl2328723329_ + (##car _e2322323256_))) + (_tl2322123263_ (let () (declare (not safe)) - (##cdr _e2328923322_)))) - (if (gx#stx-null? _tl2328723329_) - ((lambda (_L23332_ _L23334_ _L23335_) - (if (gx#stx-e _L23334_) - (let* ((_g2335223367_ - (lambda (_g2335323363_) + (##cdr _e2322323256_)))) + (if (gx#stx-null? _tl2322123263_) + ((lambda (_L23266_ _L23268_ _L23269_) + (if (gx#stx-e _L23268_) + (let* ((_g2328623301_ + (lambda (_g2328723297_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2335323363_))) - (_g2335123412_ - (lambda (_g2335323371_) - (if (gx#stx-pair? _g2335323371_) - (let ((_e2335823374_ + _g2328723297_))) + (_g2328523346_ + (lambda (_g2328723305_) + (if (gx#stx-pair? _g2328723305_) + (let ((_e2329223308_ (gx#syntax-e - _g2335323371_))) - (let ((_hd2335723378_ + _g2328723305_))) + (let ((_hd2329123312_ (let () (declare (not safe)) - (##car _e2335823374_))) - (_tl2335623381_ + (##car _e2329223308_))) + (_tl2329023315_ (let () (declare (not safe)) - (##cdr _e2335823374_)))) + (##cdr _e2329223308_)))) (if (gx#stx-pair? - _tl2335623381_) - (let ((_e2336123384_ + _tl2329023315_) + (let ((_e2329523318_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2335623381_))) - (let ((_hd2336023388_ - (let () (declare (not safe)) (##car _e2336123384_))) - (_tl2335923391_ + (gx#syntax-e _tl2329023315_))) + (let ((_hd2329423322_ + (let () (declare (not safe)) (##car _e2329523318_))) + (_tl2329323325_ (let () (declare (not safe)) - (##cdr _e2336123384_)))) - (if (gx#stx-null? _tl2335923391_) - ((lambda (_L23394_ _L23396_) + (##cdr _e2329523318_)))) + (if (gx#stx-null? _tl2329323325_) + ((lambda (_L23328_ _L23330_) (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L23335_ + (cons (cons (cons _L23269_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _L23396_ '()))) + (cons '() (cons _L23330_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _L23394_ '()))))) - _hd2336023388_ - _hd2335723378_) + (cons _L23328_ '()))))) + _hd2329423322_ + _hd2329123312_) (let () (declare (not safe)) - (_g2335223367_ _g2335323371_))))) + (_g2328623301_ _g2328723305_))))) (let () (declare (not safe)) - (_g2335223367_ _g2335323371_))))) + (_g2328623301_ _g2328723305_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2335223367_ - _g2335323371_))))) - (__tmp43035 + (_g2328623301_ + _g2328723305_))))) + (__tmp42972 (list (let () (declare (not safe)) - (_generate122857_ - _L23334_ - _L23332_ - _E23213_)) - (let ((__tmp43036 - (cons _L23335_ '()))) + (_generate122791_ + _L23268_ + _L23266_ + _E23147_)) + (let ((__tmp42973 + (cons _L23269_ '()))) (declare (not safe)) - (_generate-clauses22856_ - _L23261_ - __tmp43036))))) + (_generate-clauses22790_ + _L23195_ + __tmp42973))))) (declare (not safe)) - (_g2335123412_ __tmp43035)) - (let* ((_g2341623424_ - (lambda (_g2341723420_) + (_g2328523346_ __tmp42972)) + (let* ((_g2335023358_ + (lambda (_g2335123354_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2341723420_))) - (_g2341523442_ - (lambda (_g2341723428_) - ((lambda (_L23431_) + _g2335123354_))) + (_g2334923376_ + (lambda (_g2335123362_) + ((lambda (_L23365_) (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L23335_ + (cons (cons (cons _L23269_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -5282,769 +5282,769 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _L23332_ '()))) + (cons '() (cons _L23266_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _L23431_ '()))))) + (cons _L23365_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2341723428_))) - (__tmp43033 - (let ((__tmp43034 - (cons _L23335_ '()))) + _g2335123362_))) + (__tmp42970 + (let ((__tmp42971 + (cons _L23269_ '()))) (declare (not safe)) - (_generate-clauses22856_ - _L23261_ - __tmp43034)))) + (_generate-clauses22790_ + _L23195_ + __tmp42971)))) (declare (not safe)) - (_g2341523442_ __tmp43033)))) - _hd2328823326_ - _hd2328523316_ - _hd2328223306_) + (_g2334923376_ __tmp42970)))) + _hd2322223260_ + _hd2321923250_ + _hd2321623240_) (let () (declare (not safe)) - (_g2327623295_ _g2327723299_))))) + (_g2321023229_ _g2321123233_))))) (let () (declare (not safe)) - (_g2327623295_ _g2327723299_))))) + (_g2321023229_ _g2321123233_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2327623295_ - _g2327723299_))))) + (_g2321023229_ + _g2321123233_))))) (let () (declare (not safe)) - (_g2327623295_ - _g2327723299_)))))) + (_g2321023229_ + _g2321123233_)))))) (declare (not safe)) - (_g2327523446_ _L23263_)))) - (___kont4169741698_ + (_g2320923380_ _L23197_)))) + (___kont4158741588_ (lambda () (cons 'begin-annotation (cons '@match-body - (cons _E23213_ '())))))) - (if (gx#stx-pair? ___stx4169041691_) - (let ((_e2322223457_ - (gx#syntax-e ___stx4169041691_))) - (let ((_tl2322023464_ + (cons _E23147_ '())))))) + (if (gx#stx-pair? ___stx4158041581_) + (let ((_e2315623391_ + (gx#syntax-e ___stx4158041581_))) + (let ((_tl2315423398_ (let () (declare (not safe)) - (##cdr _e2322223457_))) - (_hd2322123461_ + (##cdr _e2315623391_))) + (_hd2315523395_ (let () (declare (not safe)) - (##car _e2322223457_)))) - (if (gx#stx-null? _tl2322023464_) - (___kont4169341694_ _hd2322123461_) - (___kont4169541696_ - _tl2322023464_ - _hd2322123461_)))) - (___kont4169741698_)))))) - (_generate122857_ - (lambda (_clause22859_ _body22861_ _E22862_) - (let* ((_g2286422888_ - (lambda (_g2286522884_) + (##car _e2315623391_)))) + (if (gx#stx-null? _tl2315423398_) + (___kont4158341584_ _hd2315523395_) + (___kont4158541586_ + _tl2315423398_ + _hd2315523395_)))) + (___kont4158741588_)))))) + (_generate122791_ + (lambda (_clause22793_ _body22795_ _E22796_) + (let* ((_g2279822822_ + (lambda (_g2279922818_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2286522884_))) - (_g2286323207_ - (lambda (_g2286522892_) - (if (gx#stx-pair? _g2286522892_) - (let ((_e2287022895_ - (gx#syntax-e _g2286522892_))) - (let ((_hd2286922899_ + _g2279922818_))) + (_g2279723141_ + (lambda (_g2279922826_) + (if (gx#stx-pair? _g2279922826_) + (let ((_e2280422829_ + (gx#syntax-e _g2279922826_))) + (let ((_hd2280322833_ (let () (declare (not safe)) - (##car _e2287022895_))) - (_tl2286822902_ + (##car _e2280422829_))) + (_tl2280222836_ (let () (declare (not safe)) - (##cdr _e2287022895_)))) - (if (gx#stx-pair? _tl2286822902_) - (let ((_e2287322905_ - (gx#syntax-e _tl2286822902_))) - (let ((_hd2287222909_ + (##cdr _e2280422829_)))) + (if (gx#stx-pair? _tl2280222836_) + (let ((_e2280722839_ + (gx#syntax-e _tl2280222836_))) + (let ((_hd2280622843_ (let () (declare (not safe)) - (##car _e2287322905_))) - (_tl2287122912_ + (##car _e2280722839_))) + (_tl2280522846_ (let () (declare (not safe)) - (##cdr _e2287322905_)))) + (##cdr _e2280722839_)))) (if (gx#stx-pair/null? - _hd2287222909_) - (let ((_g43037_ + _hd2280622843_) + (let ((_g42974_ (gx#syntax-split-splice - _hd2287222909_ + _hd2280622843_ '0))) (begin - (let ((_g43038_ + (let ((_g42975_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g43037_) - (##vector-length _g43037_) + (if (##values? _g42974_) + (##vector-length _g42974_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g43038_ 2))) - (error "Context expects 2 values" _g43038_))) - (let ((_target2287422915_ - (let () (declare (not safe)) (##vector-ref _g43037_ 0))) - (_tl2287622918_ - (let () (declare (not safe)) (##vector-ref _g43037_ 1)))) - (if (gx#stx-null? _tl2287622918_) - (letrec ((_loop2287722921_ - (lambda (_hd2287522925_ _var2288122928_) - (if (gx#stx-pair? _hd2287522925_) - (let ((_e2287822931_ - (gx#syntax-e _hd2287522925_))) - (let ((_lp-hd2287922935_ + (if (not (let () (declare (not safe)) (##fx= _g42975_ 2))) + (error "Context expects 2 values" _g42975_))) + (let ((_target2280822849_ + (let () (declare (not safe)) (##vector-ref _g42974_ 0))) + (_tl2281022852_ + (let () (declare (not safe)) (##vector-ref _g42974_ 1)))) + (if (gx#stx-null? _tl2281022852_) + (letrec ((_loop2281122855_ + (lambda (_hd2280922859_ _var2281522862_) + (if (gx#stx-pair? _hd2280922859_) + (let ((_e2281222865_ + (gx#syntax-e _hd2280922859_))) + (let ((_lp-hd2281322869_ (let () (declare (not safe)) - (##car _e2287822931_))) - (_lp-tl2288022938_ + (##car _e2281222865_))) + (_lp-tl2281422872_ (let () (declare (not safe)) - (##cdr _e2287822931_)))) - (let ((__tmp43042 - (cons _lp-hd2287922935_ - _var2288122928_))) + (##cdr _e2281222865_)))) + (let ((__tmp42979 + (cons _lp-hd2281322869_ + _var2281522862_))) (declare (not safe)) - (_loop2287722921_ - _lp-tl2288022938_ - __tmp43042)))) - (let ((_var2288222941_ - (reverse _var2288122928_))) - (if (gx#stx-null? _tl2287122912_) - ((lambda (_L22945_ _L22947_) + (_loop2281122855_ + _lp-tl2281422872_ + __tmp42979)))) + (let ((_var2281622875_ + (reverse _var2281522862_))) + (if (gx#stx-null? _tl2280522846_) + ((lambda (_L22879_ _L22881_) (let () (gx#check-duplicate-identifiers - (foldr (lambda (_g2296822971_ - _g2296922974_) - (cons _g2296822971_ - _g2296922974_)) + (foldr (lambda (_g2290222905_ + _g2290322908_) + (cons _g2290222905_ + _g2290322908_)) '() - _L22945_) - _stx22848_) - (let* ((_g2297722985_ - (lambda (_g2297822981_) + _L22879_) + _stx22782_) + (let* ((_g2291122919_ + (lambda (_g2291222915_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2297822981_))) - (_g2297623079_ - (lambda (_g2297822989_) - ((lambda (_L22992_) + _g2291222915_))) + (_g2291023013_ + (lambda (_g2291222923_) + ((lambda (_L22926_) (let () - (let* ((_g2300523013_ + (let* ((_g2293922947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2300623009_) + (lambda (_g2294022943_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2300623009_))) - (_g2300423075_ - (lambda (_g2300623017_) - ((lambda (_L23020_) + _g2294022943_))) + (_g2293823009_ + (lambda (_g2294022951_) + ((lambda (_L22954_) (let () - (let* ((_g2303323041_ - (lambda (_g2303423037_) + (let* ((_g2296722975_ + (lambda (_g2296822971_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2303423037_))) - (_g2303223063_ - (lambda (_g2303423045_) - ((lambda (_L23048_) + _g2296822971_))) + (_g2296622997_ + (lambda (_g2296822979_) + ((lambda (_L22982_) (let () (let () (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons _L22947_ + (cons (cons _L22881_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L23048_ '())) - (cons _L22992_ '()))) - (gx#stx-source _stx22848_))))) + (cons _L22982_ '())) + (cons _L22926_ '()))) + (gx#stx-source _stx22782_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2303423045_))) - (__tmp43039 + _g2296822979_))) + (__tmp42976 (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (foldr (lambda (_g2306623069_ + (cons (foldr (lambda (_g2300023003_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2306723072_) - (cons _g2306623069_ _g2306723072_)) + _g2300123006_) + (cons _g2300023003_ _g2300123006_)) '() - _L22945_) - (cons _L23020_ '()))) + _L22879_) + (cons _L22954_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx22848_)))) + (gx#stx-source _stx22782_)))) (declare (not safe)) - (_g2303223063_ __tmp43039)))) - _g2300623017_)))) + (_g2296622997_ __tmp42976)))) + _g2294022951_)))) (declare (not safe)) - (_g2300423075_ _body22861_)))) - _g2297822989_))) - (__tmp43040 - (let _recur23083_ ((_rest23086_ _clause22859_) - (_rest-targets23088_ _tgt-lst22850_)) - (let* ((___stx4171641717_ _rest23086_) - (_g2309123103_ + (_g2293823009_ _body22795_)))) + _g2291222923_))) + (__tmp42977 + (let _recur23017_ ((_rest23020_ _clause22793_) + (_rest-targets23022_ _tgt-lst22784_)) + (let* ((___stx4160641607_ _rest23020_) + (_g2302523037_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4171641717_)))) - (let ((___kont4171941720_ - (lambda (_L23139_ _L23141_) - (let* ((_g2315623168_ - (lambda (_g2315723164_) + ___stx4160641607_)))) + (let ((___kont4160941610_ + (lambda (_L23073_ _L23075_) + (let* ((_g2309023102_ + (lambda (_g2309123098_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2315723164_))) - (_g2315523199_ - (lambda (_g2315723172_) - (if (gx#stx-pair? _g2315723172_) - (let ((_e2316223175_ - (gx#syntax-e _g2315723172_))) - (let ((_hd2316123179_ + _g2309123098_))) + (_g2308923133_ + (lambda (_g2309123106_) + (if (gx#stx-pair? _g2309123106_) + (let ((_e2309623109_ + (gx#syntax-e _g2309123106_))) + (let ((_hd2309523113_ (let () (declare (not safe)) - (##car _e2316223175_))) - (_tl2316023182_ + (##car _e2309623109_))) + (_tl2309423116_ (let () (declare (not safe)) - (##cdr _e2316223175_)))) - ((lambda (_L23185_ _L23187_) - (let ((__tmp43041 + (##cdr _e2309623109_)))) + ((lambda (_L23119_ _L23121_) + (let ((__tmp42978 (let () (declare (not safe)) - (_recur23083_ - _L23139_ - _L23185_)))) + (_recur23017_ + _L23073_ + _L23119_)))) (declare (not safe)) (|gerbil/core$[1]#generate-match1| - _stx22848_ - _L23187_ - _L23141_ - __tmp43041 - _E22862_))) - _tl2316023182_ - _hd2316123179_))) + _stx22782_ + _L23121_ + _L23075_ + __tmp42978 + _E22796_))) + _tl2309423116_ + _hd2309523113_))) (let () (declare (not safe)) - (_g2315623168_ _g2315723172_)))))) + (_g2309023102_ _g2309123106_)))))) (declare (not safe)) - (_g2315523199_ _rest-targets23088_)))) - (___kont4172141722_ + (_g2308923133_ _rest-targets23022_)))) + (___kont4161141612_ (lambda () - (cons _L22947_ - (foldr (lambda (_g2311323116_ _g2311423119_) - (cons _g2311323116_ _g2311423119_)) + (cons _L22881_ + (foldr (lambda (_g2304723050_ _g2304823053_) + (cons _g2304723050_ _g2304823053_)) '() - _L22945_))))) - (if (gx#stx-pair? ___stx4171641717_) - (let ((_e2309723129_ (gx#syntax-e ___stx4171641717_))) - (let ((_tl2309523136_ + _L22879_))))) + (if (gx#stx-pair? ___stx4160641607_) + (let ((_e2303123063_ (gx#syntax-e ___stx4160641607_))) + (let ((_tl2302923070_ (let () (declare (not safe)) - (##cdr _e2309723129_))) - (_hd2309623133_ + (##cdr _e2303123063_))) + (_hd2303023067_ (let () (declare (not safe)) - (##car _e2309723129_)))) - (___kont4171941720_ - _tl2309523136_ - _hd2309623133_))) - (___kont4172141722_))))))) + (##car _e2303123063_)))) + (___kont4160941610_ + _tl2302923070_ + _hd2303023067_))) + (___kont4161141612_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2297623079_ __tmp43040)))) - _var2288222941_ - _hd2286922899_) + (_g2291023013_ __tmp42977)))) + _var2281622875_ + _hd2280322833_) (let () (declare (not safe)) - (_g2286422888_ - _g2286522892_)))))))) + (_g2279822822_ + _g2279922826_)))))))) (let () (declare (not safe)) - (_loop2287722921_ _target2287422915_ '()))) + (_loop2281122855_ _target2280822849_ '()))) (let () (declare (not safe)) - (_g2286422888_ _g2286522892_)))))) + (_g2279822822_ _g2279922826_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2286422888_ - _g2286522892_))))) + (_g2279822822_ + _g2279922826_))))) (let () (declare (not safe)) - (_g2286422888_ _g2286522892_))))) + (_g2279822822_ _g2279922826_))))) (let () (declare (not safe)) - (_g2286422888_ _g2286522892_))))) - (__tmp43043 + (_g2279822822_ _g2279922826_))))) + (__tmp42980 (list (gx#genident 'K) (apply append (map |gerbil/core$[1]#match-pattern-vars| - _clause22859_))))) + _clause22793_))))) (declare (not safe)) - (_g2286323207_ __tmp43043))))) - (let ((__tmp43044 - (let ((__tmp43045 (gx#stx-length _tgt-lst22850_))) + (_g2279723141_ __tmp42980))))) + (let ((__tmp42981 + (let ((__tmp42982 (gx#stx-length _tgt-lst22784_))) (declare (not safe)) - (_parse-body22853_ __tmp43045)))) + (_parse-body22787_ __tmp42982)))) (declare (not safe)) - (_generate-body22855_ __tmp43044))))) + (_generate-body22789_ __tmp42981))))) (define |gerbil/core$[1]#generate-match| - (lambda (_stx22750_ _tgt22752_ _clauses22753_) - (letrec ((_reclause22755_ - (lambda (_clause22758_) - (let* ((___stx4173241733_ _clause22758_) - (_g2276322778_ + (lambda (_stx22684_ _tgt22686_ _clauses22687_) + (letrec ((_reclause22689_ + (lambda (_clause22692_) + (let* ((___stx4162241623_ _clause22692_) + (_g2269722712_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4173241733_)))) - (let ((___kont4173541736_ (lambda () _clause22758_)) - (___kont4173741738_ - (lambda (_L22806_ _L22808_) + ___stx4162241623_)))) + (let ((___kont4162541626_ (lambda () _clause22692_)) + (___kont4162741628_ + (lambda (_L22740_ _L22742_) (gx#stx-wrap-source - (cons (cons _L22808_ '()) _L22806_) + (cons (cons _L22742_ '()) _L22740_) (gx#stx-source (gx#datum->syntax '#f 'clause))))) - (___kont4173941740_ + (___kont4162941630_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal match clause" - _stx22750_ - _clause22758_)))) - (if (gx#stx-pair? ___stx4173241733_) - (let ((_e2276722830_ - (gx#syntax-e ___stx4173241733_))) - (let ((_tl2276522837_ + _stx22684_ + _clause22692_)))) + (if (gx#stx-pair? ___stx4162241623_) + (let ((_e2270122764_ + (gx#syntax-e ___stx4162241623_))) + (let ((_tl2269922771_ (let () (declare (not safe)) - (##cdr _e2276722830_))) - (_hd2276622834_ + (##cdr _e2270122764_))) + (_hd2270022768_ (let () (declare (not safe)) - (##car _e2276722830_)))) - (if (gx#identifier? _hd2276622834_) + (##car _e2270122764_)))) + (if (gx#identifier? _hd2270022768_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43046_| - _hd2276622834_) - (___kont4173541736_) - (___kont4173741738_ - _tl2276522837_ - _hd2276622834_)) - (___kont4173741738_ - _tl2276522837_ - _hd2276622834_)))) - (___kont4173941740_))))))) - (let ((__tmp43048 (cons _tgt22752_ '())) - (__tmp43047 (gx#stx-map _reclause22755_ _clauses22753_))) + |gerbil/core$[1]#_g42983_| + _hd2270022768_) + (___kont4162541626_) + (___kont4162741628_ + _tl2269922771_ + _hd2270022768_)) + (___kont4162741628_ + _tl2269922771_ + _hd2270022768_)))) + (___kont4162941630_))))))) + (let ((__tmp42985 (cons _tgt22686_ '())) + (__tmp42984 (gx#stx-map _reclause22689_ _clauses22687_))) (declare (not safe)) (|gerbil/core$[1]#generate-match*| - _stx22750_ - __tmp43048 - __tmp43047))))) + _stx22684_ + __tmp42985 + __tmp42984))))) (define |gerbil/core$[:0:]#match| - (lambda (_stx30359_) - (let* ((___stx4176041761_ _stx30359_) - (_g3036430393_ + (lambda (_stx30293_) + (let* ((___stx4165041651_ _stx30293_) + (_g3029830327_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4176041761_)))) - (let ((___kont4176341764_ - (lambda (_L30633_) - (let* ((_g3064630654_ - (lambda (_g3064730650_) + ___stx4165041651_)))) + (let ((___kont4165341654_ + (lambda (_L30567_) + (let* ((_g3058030588_ + (lambda (_g3058130584_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3064730650_))) - (_g3064530707_ - (lambda (_g3064730658_) - ((lambda (_L30661_) + _g3058130584_))) + (_g3057930641_ + (lambda (_g3058130592_) + ((lambda (_L30595_) (let () - (let* ((_g3067330681_ - (lambda (_g3067430677_) + (let* ((_g3060730615_ + (lambda (_g3060830611_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3067430677_))) - (_g3067230703_ - (lambda (_g3067430685_) - ((lambda (_L30688_) + _g3060830611_))) + (_g3060630637_ + (lambda (_g3060830619_) + ((lambda (_L30622_) (let () (let () (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _L30661_ + (cons (cons _L30595_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _L30688_ '())))))) + (cons _L30622_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g3067430685_)))) - (_g3067230703_ + _g3060830619_)))) + (_g3060630637_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'match) - (cons _L30661_ _L30633_)) - (gx#stx-source _stx30359_)))))) - _g3064730658_)))) - (_g3064530707_ (gx#genident 'e))))) - (___kont4176541766_ - (lambda (_L30528_) - (let* ((_g3054130549_ - (lambda (_g3054230545_) + (cons _L30595_ _L30567_)) + (gx#stx-source _stx30293_)))))) + _g3058130592_)))) + (_g3057930641_ (gx#genident 'e))))) + (___kont4165541656_ + (lambda (_L30462_) + (let* ((_g3047530483_ + (lambda (_g3047630479_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3054230545_))) - (_g3054030602_ - (lambda (_g3054230553_) - ((lambda (_L30556_) + _g3047630479_))) + (_g3047430536_ + (lambda (_g3047630487_) + ((lambda (_L30490_) (let () - (let* ((_g3056830576_ - (lambda (_g3056930572_) + (let* ((_g3050230510_ + (lambda (_g3050330506_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3056930572_))) - (_g3056730598_ - (lambda (_g3056930580_) - ((lambda (_L30583_) + _g3050330506_))) + (_g3050130532_ + (lambda (_g3050330514_) + ((lambda (_L30517_) (let () (let () (cons (gx#datum->syntax '#f 'lambda) - (cons _L30556_ - (cons _L30583_ + (cons _L30490_ + (cons _L30517_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g3056930580_)))) - (_g3056730598_ + _g3050330514_)))) + (_g3050130532_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'match) - (cons _L30556_ _L30528_)) - (gx#stx-source _stx30359_)))))) - _g3054230553_)))) - (_g3054030602_ (gx#genident 'args))))) - (___kont4176741768_ - (lambda (_L30420_ _L30422_) - (let* ((_g3043630444_ - (lambda (_g3043730440_) + (cons _L30490_ _L30462_)) + (gx#stx-source _stx30293_)))))) + _g3047630487_)))) + (_g3047430536_ (gx#genident 'args))))) + (___kont4165741658_ + (lambda (_L30354_ _L30356_) + (let* ((_g3037030378_ + (lambda (_g3037130374_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3043730440_))) - (_g3043530497_ - (lambda (_g3043730448_) - ((lambda (_L30451_) + _g3037130374_))) + (_g3036930431_ + (lambda (_g3037130382_) + ((lambda (_L30385_) (let () - (let* ((_g3046330471_ - (lambda (_g3046430467_) + (let* ((_g3039730405_ + (lambda (_g3039830401_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3046430467_))) - (_g3046230493_ - (lambda (_g3046430475_) - ((lambda (_L30478_) + _g3039830401_))) + (_g3039630427_ + (lambda (_g3039830409_) + ((lambda (_L30412_) (let () (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L30451_ + (cons (cons (cons _L30385_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L30422_ '())) + (cons _L30356_ '())) '()) - (cons _L30478_ '())))))) + (cons _L30412_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g3046430475_)))) - (_g3046230493_ + _g3039830409_)))) + (_g3039630427_ (let () (declare (not safe)) (|gerbil/core$[1]#generate-match| - _stx30359_ - _L30451_ - _L30420_)))))) - _g3043730448_)))) - (_g3043530497_ (gx#genident _L30422_)))))) - (let* ((___match4181341814_ - (lambda (_e3038430400_ - _hd3038330404_ - _tl3038230407_ - _e3038730410_ - _hd3038630414_ - _tl3038530417_) - (let ((_L30420_ _tl3038530417_) - (_L30422_ _hd3038630414_)) - (if (gx#stx-list? _L30420_) - (___kont4176741768_ _L30420_ _L30422_) - (let () (declare (not safe)) (_g3036430393_)))))) - (___match4180141802_ - (lambda (_e3037630508_ - _hd3037530512_ - _tl3037430515_ - _e3037930518_ - _hd3037830522_ - _tl3037730525_) - (let ((_L30528_ _tl3037730525_)) - (if (gx#stx-list? _L30528_) - (___kont4176541766_ _L30528_) - (___match4181341814_ - _e3037630508_ - _hd3037530512_ - _tl3037430515_ - _e3037930518_ - _hd3037830522_ - _tl3037730525_))))) - (___match4178541786_ - (lambda (_e3036930613_ - _hd3036830617_ - _tl3036730620_ - _e3037230623_ - _hd3037130627_ - _tl3037030630_) - (let ((_L30633_ _tl3037030630_)) - (if (gx#stx-list? _L30633_) - (___kont4176341764_ _L30633_) - (___match4181341814_ - _e3036930613_ - _hd3036830617_ - _tl3036730620_ - _e3037230623_ - _hd3037130627_ - _tl3037030630_)))))) - (if (gx#stx-pair? ___stx4176041761_) - (let ((_e3036930613_ (gx#syntax-e ___stx4176041761_))) - (let ((_tl3036730620_ - (let () (declare (not safe)) (##cdr _e3036930613_))) - (_hd3036830617_ + _stx30293_ + _L30385_ + _L30354_)))))) + _g3037130382_)))) + (_g3036930431_ (gx#genident _L30356_)))))) + (let* ((___match4170341704_ + (lambda (_e3031830334_ + _hd3031730338_ + _tl3031630341_ + _e3032130344_ + _hd3032030348_ + _tl3031930351_) + (let ((_L30354_ _tl3031930351_) + (_L30356_ _hd3032030348_)) + (if (gx#stx-list? _L30354_) + (___kont4165741658_ _L30354_ _L30356_) + (let () (declare (not safe)) (_g3029830327_)))))) + (___match4169141692_ + (lambda (_e3031030442_ + _hd3030930446_ + _tl3030830449_ + _e3031330452_ + _hd3031230456_ + _tl3031130459_) + (let ((_L30462_ _tl3031130459_)) + (if (gx#stx-list? _L30462_) + (___kont4165541656_ _L30462_) + (___match4170341704_ + _e3031030442_ + _hd3030930446_ + _tl3030830449_ + _e3031330452_ + _hd3031230456_ + _tl3031130459_))))) + (___match4167541676_ + (lambda (_e3030330547_ + _hd3030230551_ + _tl3030130554_ + _e3030630557_ + _hd3030530561_ + _tl3030430564_) + (let ((_L30567_ _tl3030430564_)) + (if (gx#stx-list? _L30567_) + (___kont4165341654_ _L30567_) + (___match4170341704_ + _e3030330547_ + _hd3030230551_ + _tl3030130554_ + _e3030630557_ + _hd3030530561_ + _tl3030430564_)))))) + (if (gx#stx-pair? ___stx4165041651_) + (let ((_e3030330547_ (gx#syntax-e ___stx4165041651_))) + (let ((_tl3030130554_ + (let () (declare (not safe)) (##cdr _e3030330547_))) + (_hd3030230551_ (let () (declare (not safe)) - (##car _e3036930613_)))) - (if (gx#stx-pair? _tl3036730620_) - (let ((_e3037230623_ (gx#syntax-e _tl3036730620_))) - (let ((_tl3037030630_ + (##car _e3030330547_)))) + (if (gx#stx-pair? _tl3030130554_) + (let ((_e3030630557_ (gx#syntax-e _tl3030130554_))) + (let ((_tl3030430564_ (let () (declare (not safe)) - (##cdr _e3037230623_))) - (_hd3037130627_ + (##cdr _e3030630557_))) + (_hd3030530561_ (let () (declare (not safe)) - (##car _e3037230623_)))) - (if (gx#identifier? _hd3037130627_) + (##car _e3030630557_)))) + (if (gx#identifier? _hd3030530561_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43050_| - _hd3037130627_) - (___match4178541786_ - _e3036930613_ - _hd3036830617_ - _tl3036730620_ - _e3037230623_ - _hd3037130627_ - _tl3037030630_) + |gerbil/core$[1]#_g42987_| + _hd3030530561_) + (___match4167541676_ + _e3030330547_ + _hd3030230551_ + _tl3030130554_ + _e3030630557_ + _hd3030530561_ + _tl3030430564_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43049_| - _hd3037130627_) - (___match4180141802_ - _e3036930613_ - _hd3036830617_ - _tl3036730620_ - _e3037230623_ - _hd3037130627_ - _tl3037030630_) - (___match4181341814_ - _e3036930613_ - _hd3036830617_ - _tl3036730620_ - _e3037230623_ - _hd3037130627_ - _tl3037030630_))) - (___match4181341814_ - _e3036930613_ - _hd3036830617_ - _tl3036730620_ - _e3037230623_ - _hd3037130627_ - _tl3037030630_)))) - (let () (declare (not safe)) (_g3036430393_))))) - (let () (declare (not safe)) (_g3036430393_)))))))) + |gerbil/core$[1]#_g42986_| + _hd3030530561_) + (___match4169141692_ + _e3030330547_ + _hd3030230551_ + _tl3030130554_ + _e3030630557_ + _hd3030530561_ + _tl3030430564_) + (___match4170341704_ + _e3030330547_ + _hd3030230551_ + _tl3030130554_ + _e3030630557_ + _hd3030530561_ + _tl3030430564_))) + (___match4170341704_ + _e3030330547_ + _hd3030230551_ + _tl3030130554_ + _e3030630557_ + _hd3030530561_ + _tl3030430564_)))) + (let () (declare (not safe)) (_g3029830327_))))) + (let () (declare (not safe)) (_g3029830327_)))))))) (define |gerbil/core$[:0:]#match*| - (lambda (_stx30715_) - (let* ((_g3071830742_ - (lambda (_g3071930738_) + (lambda (_stx30649_) + (let* ((_g3065230676_ + (lambda (_g3065330672_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3071930738_))) - (_g3071730954_ - (lambda (_g3071930746_) - (if (gx#stx-pair? _g3071930746_) - (let ((_e3072430749_ (gx#syntax-e _g3071930746_))) - (let ((_hd3072330753_ + _g3065330672_))) + (_g3065130888_ + (lambda (_g3065330680_) + (if (gx#stx-pair? _g3065330680_) + (let ((_e3065830683_ (gx#syntax-e _g3065330680_))) + (let ((_hd3065730687_ (let () (declare (not safe)) - (##car _e3072430749_))) - (_tl3072230756_ + (##car _e3065830683_))) + (_tl3065630690_ (let () (declare (not safe)) - (##cdr _e3072430749_)))) - (if (gx#stx-pair? _tl3072230756_) - (let ((_e3072730759_ - (gx#syntax-e _tl3072230756_))) - (let ((_hd3072630763_ + (##cdr _e3065830683_)))) + (if (gx#stx-pair? _tl3065630690_) + (let ((_e3066130693_ + (gx#syntax-e _tl3065630690_))) + (let ((_hd3066030697_ (let () (declare (not safe)) - (##car _e3072730759_))) - (_tl3072530766_ + (##car _e3066130693_))) + (_tl3065930700_ (let () (declare (not safe)) - (##cdr _e3072730759_)))) - (if (gx#stx-pair/null? _hd3072630763_) - (let ((_g43051_ + (##cdr _e3066130693_)))) + (if (gx#stx-pair/null? _hd3066030697_) + (let ((_g42988_ (gx#syntax-split-splice - _hd3072630763_ + _hd3066030697_ '0))) (begin - (let ((_g43052_ + (let ((_g42989_ (let () (declare (not safe)) - (if (##values? _g43051_) + (if (##values? _g42988_) (##vector-length - _g43051_) + _g42988_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43052_ 2))) + (##fx= _g42989_ 2))) (error "Context expects 2 values" - _g43052_))) - (let ((_target3072830769_ + _g42989_))) + (let ((_target3066230703_ (let () (declare (not safe)) - (##vector-ref _g43051_ 0))) - (_tl3073030772_ + (##vector-ref _g42988_ 0))) + (_tl3066430706_ (let () (declare (not safe)) - (##vector-ref _g43051_ 1)))) - (if (gx#stx-null? _tl3073030772_) - (letrec ((_loop3073130775_ - (lambda (_hd3072930779_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e3073530782_) - (if (gx#stx-pair? _hd3072930779_) - (let ((_e3073230785_ (gx#syntax-e _hd3072930779_))) - (let ((_lp-hd3073330789_ + (##vector-ref _g42988_ 1)))) + (if (gx#stx-null? _tl3066430706_) + (letrec ((_loop3066530709_ + (lambda (_hd3066330713_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _e3066930716_) + (if (gx#stx-pair? _hd3066330713_) + (let ((_e3066630719_ (gx#syntax-e _hd3066330713_))) + (let ((_lp-hd3066730723_ (let () (declare (not safe)) - (##car _e3073230785_))) - (_lp-tl3073430792_ + (##car _e3066630719_))) + (_lp-tl3066830726_ (let () (declare (not safe)) - (##cdr _e3073230785_)))) - (_loop3073130775_ - _lp-tl3073430792_ - (cons _lp-hd3073330789_ _e3073530782_)))) - (let ((_e3073630795_ (reverse _e3073530782_))) - ((lambda (_L30799_ _L30801_) - (if (gx#stx-list? _L30799_) - (let* ((_g3081930836_ - (lambda (_g3082030832_) + (##cdr _e3066630719_)))) + (_loop3066530709_ + _lp-tl3066830726_ + (cons _lp-hd3066730723_ _e3066930716_)))) + (let ((_e3067030729_ (reverse _e3066930716_))) + ((lambda (_L30733_ _L30735_) + (if (gx#stx-list? _L30733_) + (let* ((_g3075330770_ + (lambda (_g3075430766_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3082030832_))) - (_g3081830942_ - (lambda (_g3082030840_) + _g3075430766_))) + (_g3075230876_ + (lambda (_g3075430774_) (if (gx#stx-pair/null? - _g3082030840_) - (let ((_g43053_ + _g3075430774_) + (let ((_g42990_ (gx#syntax-split-splice - _g3082030840_ + _g3075430774_ '0))) (begin - (let ((_g43054_ + (let ((_g42991_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g43053_) - (##vector-length _g43053_) + _g42990_) + (##vector-length _g42990_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g43054_ 2))) - (error "Context expects 2 values" _g43054_))) + (##fx= _g42991_ 2))) + (error "Context expects 2 values" _g42991_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3082230843_ + (let ((_target3075630777_ (let () (declare (not safe)) (##vector-ref - _g43053_ + _g42990_ 0))) - (_tl3082430846_ + (_tl3075830780_ (let () (declare (not safe)) (##vector-ref - _g43053_ + _g42990_ 1)))) (if (gx#stx-null? - _tl3082430846_) - (letrec ((_loop3082530849_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd3082330853_ _$e3082930856_) - (if (gx#stx-pair? _hd3082330853_) - (let ((_e3082630859_ - (gx#syntax-e _hd3082330853_))) - (let ((_lp-hd3082730863_ + _tl3075830780_) + (letrec ((_loop3075930783_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd3075730787_ _$e3076330790_) + (if (gx#stx-pair? _hd3075730787_) + (let ((_e3076030793_ + (gx#syntax-e _hd3075730787_))) + (let ((_lp-hd3076130797_ (let () (declare (not safe)) - (##car _e3082630859_))) - (_lp-tl3082830866_ + (##car _e3076030793_))) + (_lp-tl3076230800_ (let () (declare (not safe)) - (##cdr _e3082630859_)))) - (_loop3082530849_ - _lp-tl3082830866_ - (cons _lp-hd3082730863_ - _$e3082930856_)))) - (let ((_$e3083030869_ - (reverse _$e3082930856_))) - ((lambda (_L30873_) + (##cdr _e3076030793_)))) + (_loop3075930783_ + _lp-tl3076230800_ + (cons _lp-hd3076130797_ + _$e3076330790_)))) + (let ((_$e3076430803_ + (reverse _$e3076330790_))) + ((lambda (_L30807_) (let () - (let* ((_g3088930897_ - (lambda (_g3089030893_) + (let* ((_g3082330831_ + (lambda (_g3082430827_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3089030893_))) - (_g3088830930_ - (lambda (_g3089030901_) - ((lambda (_L30904_) + _g3082430827_))) + (_g3082230864_ + (lambda (_g3082430835_) + ((lambda (_L30838_) (let () (let () (cons (gx#datum->syntax @@ -6053,984 +6053,984 @@ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-check-splice-targets - _L30801_ - _L30873_) - (foldr (lambda (_g3091830922_ - _g3091930925_ - _g3092030927_) - (cons (cons _g3091930925_ - (cons _g3091830922_ '())) - _g3092030927_)) + _L30735_ + _L30807_) + (foldr (lambda (_g3085230856_ + _g3085330859_ + _g3085430861_) + (cons (cons _g3085330859_ + (cons _g3085230856_ '())) + _g3085430861_)) '() - _L30801_ - _L30873_)) - (cons _L30904_ '())))))) + _L30735_ + _L30807_)) + (cons _L30838_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g3089030901_)))) - (_g3088830930_ - (let ((__tmp43055 - (foldr (lambda (_g3093330936_ + _g3082430835_)))) + (_g3082230864_ + (let ((__tmp42992 + (foldr (lambda (_g3086730870_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3093430939_) - (cons _g3093330936_ _g3093430939_)) + _g3086830873_) + (cons _g3086730870_ _g3086830873_)) '() - _L30873_))) + _L30807_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (|gerbil/core$[1]#generate-match*| - _stx30715_ - __tmp43055 - _L30799_)))))) - _$e3083030869_)))))) - (_loop3082530849_ _target3082230843_ '())) - (_g3081930836_ _g3082030840_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3081930836_ - _g3082030840_))))) - (_g3081830942_ + _stx30649_ + __tmp42992 + _L30733_)))))) + _$e3076430803_)))))) + (_loop3075930783_ _target3075630777_ '())) + (_g3075330770_ _g3075430774_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g3075330770_ + _g3075430774_))))) + (_g3075230876_ (gx#gentemps - (foldr (lambda (_g3094530948_ - _g3094630951_) - (cons _g3094530948_ - _g3094630951_)) + (foldr (lambda (_g3087930882_ + _g3088030885_) + (cons _g3087930882_ + _g3088030885_)) '() - _L30801_)))) - (_g3071830742_ _g3071930746_))) - _tl3072530766_ - _e3073630795_)))))) + _L30735_)))) + (_g3065230676_ _g3065330680_))) + _tl3065930700_ + _e3067030729_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3073130775_ - _target3072830769_ + (_loop3066530709_ + _target3066230703_ '())) - (_g3071830742_ - _g3071930746_))))) - (_g3071830742_ _g3071930746_)))) - (_g3071830742_ _g3071930746_)))) - (_g3071830742_ _g3071930746_))))) - (_g3071730954_ _stx30715_)))) + (_g3065230676_ + _g3065330680_))))) + (_g3065230676_ _g3065330680_)))) + (_g3065230676_ _g3065330680_)))) + (_g3065230676_ _g3065330680_))))) + (_g3065130888_ _stx30649_)))) (define |gerbil/core$[:0:]#with| - (lambda (_$stx30960_) - (let* ((___stx4181641817_ _$stx30960_) - (_g3096631049_ + (lambda (_$stx30894_) + (let* ((___stx4170641707_ _$stx30894_) + (_g3090030983_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4181641817_)))) - (let ((___kont4181941820_ - (lambda (_L31379_) + ___stx4170641707_)))) + (let ((___kont4170941710_ + (lambda (_L31313_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_g3139531398_ _g3139631401_) - (cons _g3139531398_ _g3139631401_)) + (foldr (lambda (_g3132931332_ _g3133031335_) + (cons _g3132931332_ _g3133031335_)) '() - _L31379_))))) - (___kont4182341824_ - (lambda (_L31287_ _L31289_ _L31290_ _L31291_) - (cons _L31291_ - (cons (cons (cons _L31290_ (cons _L31289_ '())) '()) - (foldr (lambda (_g3131331316_ _g3131431319_) - (cons _g3131331316_ _g3131431319_)) + _L31313_))))) + (___kont4171341714_ + (lambda (_L31221_ _L31223_ _L31224_ _L31225_) + (cons _L31225_ + (cons (cons (cons _L31224_ (cons _L31223_ '())) '()) + (foldr (lambda (_g3124731250_ _g3124831253_) + (cons _g3124731250_ _g3124831253_)) '() - _L31287_))))) - (___kont4182741828_ - (lambda (_L31160_ _L31162_ _L31163_) + _L31221_))))) + (___kont4171741718_ + (lambda (_L31094_ _L31096_ _L31097_) (cons (gx#datum->syntax '#f 'match*) - (cons (foldr (lambda (_g3118931192_ _g3119031195_) - (cons _g3118931192_ _g3119031195_)) + (cons (foldr (lambda (_g3112331126_ _g3112431129_) + (cons _g3112331126_ _g3112431129_)) '() - _L31162_) - (cons (cons (foldr (lambda (_g3118731198_ - _g3118831201_) - (cons _g3118731198_ - _g3118831201_)) + _L31096_) + (cons (cons (foldr (lambda (_g3112131132_ + _g3112231135_) + (cons _g3112131132_ + _g3112231135_)) '() - _L31163_) - (foldr (lambda (_g3118531204_ - _g3118631207_) - (cons _g3118531204_ - _g3118631207_)) + _L31097_) + (foldr (lambda (_g3111931138_ + _g3112031141_) + (cons _g3111931138_ + _g3112031141_)) '() - _L31160_)) + _L31094_)) '())))))) - (let* ((___match4190941910_ - (lambda (_e3101431056_ - _hd3101331060_ - _tl3101231063_ - _e3101731066_ - _hd3101631070_ - _tl3101531073_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) - (letrec ((_loop3102131082_ - (lambda (_hd3101931086_ - _expr3102531089_ - _hd3102631091_) - (if (gx#stx-pair? _hd3101931086_) - (let ((_e3102231094_ - (gx#syntax-e _hd3101931086_))) - (let ((_lp-tl3102431101_ + (let* ((___match4179941800_ + (lambda (_e3094830990_ + _hd3094730994_ + _tl3094630997_ + _e3095131000_ + _hd3095031004_ + _tl3094931007_ + ___splice4171941720_ + _target3095231010_ + _tl3095431013_) + (letrec ((_loop3095531016_ + (lambda (_hd3095331020_ + _expr3095931023_ + _hd3096031025_) + (if (gx#stx-pair? _hd3095331020_) + (let ((_e3095631028_ + (gx#syntax-e _hd3095331020_))) + (let ((_lp-tl3095831035_ (let () (declare (not safe)) - (##cdr _e3102231094_))) - (_lp-hd3102331098_ + (##cdr _e3095631028_))) + (_lp-hd3095731032_ (let () (declare (not safe)) - (##car _e3102231094_)))) - (if (gx#stx-pair? _lp-hd3102331098_) - (let ((_e3103131104_ + (##car _e3095631028_)))) + (if (gx#stx-pair? _lp-hd3095731032_) + (let ((_e3096531038_ (gx#syntax-e - _lp-hd3102331098_))) - (let ((_tl3102931111_ + _lp-hd3095731032_))) + (let ((_tl3096331045_ (let () (declare (not safe)) - (##cdr _e3103131104_))) - (_hd3103031108_ + (##cdr _e3096531038_))) + (_hd3096431042_ (let () (declare (not safe)) - (##car _e3103131104_)))) + (##car _e3096531038_)))) (if (gx#stx-pair? - _tl3102931111_) - (let ((_e3103431114_ + _tl3096331045_) + (let ((_e3096831048_ (gx#syntax-e - _tl3102931111_))) - (let ((_tl3103231121_ + _tl3096331045_))) + (let ((_tl3096631055_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e3103431114_))) - (_hd3103331118_ - (let () (declare (not safe)) (##car _e3103431114_)))) - (if (gx#stx-null? _tl3103231121_) - (_loop3102131082_ - _lp-tl3102431101_ - (cons _hd3103331118_ _expr3102531089_) - (cons _hd3103031108_ _hd3102631091_)) - (let () (declare (not safe)) (_g3096631049_))))) - (let () (declare (not safe)) (_g3096631049_))))) + (##cdr _e3096831048_))) + (_hd3096731052_ + (let () (declare (not safe)) (##car _e3096831048_)))) + (if (gx#stx-null? _tl3096631055_) + (_loop3095531016_ + _lp-tl3095831035_ + (cons _hd3096731052_ _expr3095931023_) + (cons _hd3096431042_ _hd3096031025_)) + (let () (declare (not safe)) (_g3090030983_))))) + (let () (declare (not safe)) (_g3090030983_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3096631049_))))) - (let ((_hd3102831127_ - (reverse _hd3102631091_)) - (_expr3102731124_ - (reverse _expr3102531089_))) - (if (gx#stx-pair/null? _tl3101531073_) - (let ((___splice4183141832_ + (_g3090030983_))))) + (let ((_hd3096231061_ + (reverse _hd3096031025_)) + (_expr3096131058_ + (reverse _expr3095931023_))) + (if (gx#stx-pair/null? _tl3094931007_) + (let ((___splice4172141722_ (gx#syntax-split-splice - _tl3101531073_ + _tl3094931007_ '0))) - (let ((_tl3103731133_ + (let ((_tl3097131067_ (let () (declare (not safe)) (##vector-ref - ___splice4183141832_ + ___splice4172141722_ '1))) - (_target3103531130_ + (_target3096931064_ (let () (declare (not safe)) (##vector-ref - ___splice4183141832_ + ___splice4172141722_ '0)))) (if (gx#stx-null? - _tl3103731133_) - (letrec ((_loop3103831136_ - (lambda (_hd3103631140_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3104231143_) - (if (gx#stx-pair? _hd3103631140_) - (let ((_e3103931146_ (gx#syntax-e _hd3103631140_))) - (let ((_lp-tl3104131153_ + _tl3097131067_) + (letrec ((_loop3097231070_ + (lambda (_hd3097031074_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _body3097631077_) + (if (gx#stx-pair? _hd3097031074_) + (let ((_e3097331080_ (gx#syntax-e _hd3097031074_))) + (let ((_lp-tl3097531087_ (let () (declare (not safe)) - (##cdr _e3103931146_))) - (_lp-hd3104031150_ + (##cdr _e3097331080_))) + (_lp-hd3097431084_ (let () (declare (not safe)) - (##car _e3103931146_)))) - (_loop3103831136_ - _lp-tl3104131153_ - (cons _lp-hd3104031150_ _body3104231143_)))) - (let ((_body3104331156_ - (reverse _body3104231143_))) - (___kont4182741828_ - _body3104331156_ - _expr3102731124_ - _hd3102831127_)))))) - (_loop3103831136_ _target3103531130_ '())) + (##car _e3097331080_)))) + (_loop3097231070_ + _lp-tl3097531087_ + (cons _lp-hd3097431084_ _body3097631077_)))) + (let ((_body3097731090_ + (reverse _body3097631077_))) + (___kont4171741718_ + _body3097731090_ + _expr3096131058_ + _hd3096231061_)))))) + (_loop3097231070_ _target3096931064_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3096631049_))))) + (_g3090030983_))))) (let () (declare (not safe)) - (_g3096631049_)))))))) - (_loop3102131082_ _target3101831076_ '() '())))) - (___match4190141902_ - (lambda (_e3101431056_ - _hd3101331060_ - _tl3101231063_ - _e3101731066_ - _hd3101631070_ - _tl3101531073_) - (if (gx#stx-pair/null? _hd3101631070_) - (let ((___splice4182941830_ - (gx#syntax-split-splice _hd3101631070_ '0))) - (let ((_tl3102031079_ + (_g3090030983_)))))))) + (_loop3095531016_ _target3095231010_ '() '())))) + (___match4179141792_ + (lambda (_e3094830990_ + _hd3094730994_ + _tl3094630997_ + _e3095131000_ + _hd3095031004_ + _tl3094931007_) + (if (gx#stx-pair/null? _hd3095031004_) + (let ((___splice4171941720_ + (gx#syntax-split-splice _hd3095031004_ '0))) + (let ((_tl3095431013_ (let () (declare (not safe)) - (##vector-ref ___splice4182941830_ '1))) - (_target3101831076_ + (##vector-ref ___splice4171941720_ '1))) + (_target3095231010_ (let () (declare (not safe)) - (##vector-ref ___splice4182941830_ '0)))) - (if (gx#stx-null? _tl3102031079_) - (___match4190941910_ - _e3101431056_ - _hd3101331060_ - _tl3101231063_ - _e3101731066_ - _hd3101631070_ - _tl3101531073_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) + (##vector-ref ___splice4171941720_ '0)))) + (if (gx#stx-null? _tl3095431013_) + (___match4179941800_ + _e3094830990_ + _hd3094730994_ + _tl3094630997_ + _e3095131000_ + _hd3095031004_ + _tl3094931007_ + ___splice4171941720_ + _target3095231010_ + _tl3095431013_) (let () (declare (not safe)) - (_g3096631049_))))) - (let () (declare (not safe)) (_g3096631049_))))) - (___match4188941890_ - (lambda (_e3099031217_ - _hd3098931221_ - _tl3098831224_ - _e3099331227_ - _hd3099231231_ - _tl3099131234_ - _e3099631237_ - _hd3099531241_ - _tl3099431244_ - _e3099931247_ - _hd3099831251_ - _tl3099731254_ - ___splice4182541826_ - _target3100031257_ - _tl3100231260_) - (letrec ((_loop3100331263_ - (lambda (_hd3100131267_ _body3100731270_) - (if (gx#stx-pair? _hd3100131267_) - (let ((_e3100431273_ - (gx#syntax-e _hd3100131267_))) - (let ((_lp-tl3100631280_ + (_g3090030983_))))) + (let () (declare (not safe)) (_g3090030983_))))) + (___match4177941780_ + (lambda (_e3092431151_ + _hd3092331155_ + _tl3092231158_ + _e3092731161_ + _hd3092631165_ + _tl3092531168_ + _e3093031171_ + _hd3092931175_ + _tl3092831178_ + _e3093331181_ + _hd3093231185_ + _tl3093131188_ + ___splice4171541716_ + _target3093431191_ + _tl3093631194_) + (letrec ((_loop3093731197_ + (lambda (_hd3093531201_ _body3094131204_) + (if (gx#stx-pair? _hd3093531201_) + (let ((_e3093831207_ + (gx#syntax-e _hd3093531201_))) + (let ((_lp-tl3094031214_ (let () (declare (not safe)) - (##cdr _e3100431273_))) - (_lp-hd3100531277_ + (##cdr _e3093831207_))) + (_lp-hd3093931211_ (let () (declare (not safe)) - (##car _e3100431273_)))) - (_loop3100331263_ - _lp-tl3100631280_ - (cons _lp-hd3100531277_ - _body3100731270_)))) - (let ((_body3100831283_ - (reverse _body3100731270_))) - (let ((_L31287_ _body3100831283_) - (_L31289_ _hd3099831251_) - (_L31290_ _hd3099531241_) - (_L31291_ _hd3098931221_)) + (##car _e3093831207_)))) + (_loop3093731197_ + _lp-tl3094031214_ + (cons _lp-hd3093931211_ + _body3094131204_)))) + (let ((_body3094231217_ + (reverse _body3094131204_))) + (let ((_L31221_ _body3094231217_) + (_L31223_ _hd3093231185_) + (_L31224_ _hd3092931175_) + (_L31225_ _hd3092331155_)) (if (let () (declare (not safe)) (|gerbil/core$[1]#match-pattern?| - _L31290_)) - (___kont4182341824_ - _L31287_ - _L31289_ - _L31290_ - _L31291_) - (___match4190141902_ - _e3099031217_ - _hd3098931221_ - _tl3098831224_ - _e3099331227_ - _hd3099231231_ - _tl3099131234_)))))))) - (_loop3100331263_ _target3100031257_ '())))) - (___match4185541856_ - (lambda (_e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182141822_ - _target3097531349_ - _tl3097731352_) - (letrec ((_loop3097831355_ - (lambda (_hd3097631359_ _body3098231362_) - (if (gx#stx-pair? _hd3097631359_) - (let ((_e3097931365_ - (gx#syntax-e _hd3097631359_))) - (let ((_lp-tl3098131372_ + _L31224_)) + (___kont4171341714_ + _L31221_ + _L31223_ + _L31224_ + _L31225_) + (___match4179141792_ + _e3092431151_ + _hd3092331155_ + _tl3092231158_ + _e3092731161_ + _hd3092631165_ + _tl3092531168_)))))))) + (_loop3093731197_ _target3093431191_ '())))) + (___match4174541746_ + (lambda (_e3090531263_ + _hd3090431267_ + _tl3090331270_ + _e3090831273_ + _hd3090731277_ + _tl3090631280_ + ___splice4171141712_ + _target3090931283_ + _tl3091131286_) + (letrec ((_loop3091231289_ + (lambda (_hd3091031293_ _body3091631296_) + (if (gx#stx-pair? _hd3091031293_) + (let ((_e3091331299_ + (gx#syntax-e _hd3091031293_))) + (let ((_lp-tl3091531306_ (let () (declare (not safe)) - (##cdr _e3097931365_))) - (_lp-hd3098031369_ + (##cdr _e3091331299_))) + (_lp-hd3091431303_ (let () (declare (not safe)) - (##car _e3097931365_)))) - (_loop3097831355_ - _lp-tl3098131372_ - (cons _lp-hd3098031369_ - _body3098231362_)))) - (let ((_body3098331375_ - (reverse _body3098231362_))) - (___kont4181941820_ - _body3098331375_)))))) - (_loop3097831355_ _target3097531349_ '()))))) - (if (gx#stx-pair? ___stx4181641817_) - (let ((_e3097131329_ (gx#syntax-e ___stx4181641817_))) - (let ((_tl3096931336_ - (let () (declare (not safe)) (##cdr _e3097131329_))) - (_hd3097031333_ + (##car _e3091331299_)))) + (_loop3091231289_ + _lp-tl3091531306_ + (cons _lp-hd3091431303_ + _body3091631296_)))) + (let ((_body3091731309_ + (reverse _body3091631296_))) + (___kont4170941710_ + _body3091731309_)))))) + (_loop3091231289_ _target3090931283_ '()))))) + (if (gx#stx-pair? ___stx4170641707_) + (let ((_e3090531263_ (gx#syntax-e ___stx4170641707_))) + (let ((_tl3090331270_ + (let () (declare (not safe)) (##cdr _e3090531263_))) + (_hd3090431267_ (let () (declare (not safe)) - (##car _e3097131329_)))) - (if (gx#stx-pair? _tl3096931336_) - (let ((_e3097431339_ (gx#syntax-e _tl3096931336_))) - (let ((_tl3097231346_ + (##car _e3090531263_)))) + (if (gx#stx-pair? _tl3090331270_) + (let ((_e3090831273_ (gx#syntax-e _tl3090331270_))) + (let ((_tl3090631280_ (let () (declare (not safe)) - (##cdr _e3097431339_))) - (_hd3097331343_ + (##cdr _e3090831273_))) + (_hd3090731277_ (let () (declare (not safe)) - (##car _e3097431339_)))) - (if (gx#stx-null? _hd3097331343_) - (if (gx#stx-pair/null? _tl3097231346_) - (let ((___splice4182141822_ + (##car _e3090831273_)))) + (if (gx#stx-null? _hd3090731277_) + (if (gx#stx-pair/null? _tl3090631280_) + (let ((___splice4171141712_ (gx#syntax-split-splice - _tl3097231346_ + _tl3090631280_ '0))) - (let ((_tl3097731352_ + (let ((_tl3091131286_ (let () (declare (not safe)) (##vector-ref - ___splice4182141822_ + ___splice4171141712_ '1))) - (_target3097531349_ + (_target3090931283_ (let () (declare (not safe)) (##vector-ref - ___splice4182141822_ + ___splice4171141712_ '0)))) - (if (gx#stx-null? _tl3097731352_) - (___match4185541856_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182141822_ - _target3097531349_ - _tl3097731352_) + (if (gx#stx-null? _tl3091131286_) + (___match4174541746_ + _e3090531263_ + _hd3090431267_ + _tl3090331270_ + _e3090831273_ + _hd3090731277_ + _tl3090631280_ + ___splice4171141712_ + _target3090931283_ + _tl3091131286_) (if (gx#stx-pair/null? - _hd3097331343_) - (let ((___splice4182941830_ + _hd3090731277_) + (let ((___splice4171941720_ (gx#syntax-split-splice - _hd3097331343_ + _hd3090731277_ '0))) - (let ((_tl3102031079_ + (let ((_tl3095431013_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4171941720_ '1))) - (_target3101831076_ + (_target3095231010_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4171941720_ '0)))) (if (gx#stx-null? - _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) + _tl3095431013_) + (___match4179941800_ + _e3090531263_ + _hd3090431267_ + _tl3090331270_ + _e3090831273_ + _hd3090731277_ + _tl3090631280_ + ___splice4171941720_ + _target3095231010_ + _tl3095431013_) (let () (declare (not safe)) - (_g3096631049_))))) + (_g3090030983_))))) (let () (declare (not safe)) - (_g3096631049_)))))) - (if (gx#stx-pair/null? _hd3097331343_) - (let ((___splice4182941830_ + (_g3090030983_)))))) + (if (gx#stx-pair/null? _hd3090731277_) + (let ((___splice4171941720_ (gx#syntax-split-splice - _hd3097331343_ + _hd3090731277_ '0))) - (let ((_tl3102031079_ + (let ((_tl3095431013_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4171941720_ '1))) - (_target3101831076_ + (_target3095231010_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4171941720_ '0)))) - (if (gx#stx-null? _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) + (if (gx#stx-null? _tl3095431013_) + (___match4179941800_ + _e3090531263_ + _hd3090431267_ + _tl3090331270_ + _e3090831273_ + _hd3090731277_ + _tl3090631280_ + ___splice4171941720_ + _target3095231010_ + _tl3095431013_) (let () (declare (not safe)) - (_g3096631049_))))) + (_g3090030983_))))) (let () (declare (not safe)) - (_g3096631049_)))) - (if (gx#stx-pair? _hd3097331343_) - (let ((_e3099631237_ - (gx#syntax-e _hd3097331343_))) - (let ((_tl3099431244_ + (_g3090030983_)))) + (if (gx#stx-pair? _hd3090731277_) + (let ((_e3093031171_ + (gx#syntax-e _hd3090731277_))) + (let ((_tl3092831178_ (let () (declare (not safe)) - (##cdr _e3099631237_))) - (_hd3099531241_ + (##cdr _e3093031171_))) + (_hd3092931175_ (let () (declare (not safe)) - (##car _e3099631237_)))) - (if (gx#stx-pair? _tl3099431244_) - (let ((_e3099931247_ + (##car _e3093031171_)))) + (if (gx#stx-pair? _tl3092831178_) + (let ((_e3093331181_ (gx#syntax-e - _tl3099431244_))) - (let ((_tl3099731254_ + _tl3092831178_))) + (let ((_tl3093131188_ (let () (declare (not safe)) - (##cdr _e3099931247_))) - (_hd3099831251_ + (##cdr _e3093331181_))) + (_hd3093231185_ (let () (declare (not safe)) - (##car _e3099931247_)))) + (##car _e3093331181_)))) (if (gx#stx-null? - _tl3099731254_) + _tl3093131188_) (if (gx#stx-pair/null? - _tl3097231346_) - (let ((___splice4182541826_ + _tl3090631280_) + (let ((___splice4171541716_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl3097231346_ '0))) - (let ((_tl3100231260_ + (gx#syntax-split-splice _tl3090631280_ '0))) + (let ((_tl3093631194_ (let () (declare (not safe)) - (##vector-ref ___splice4182541826_ '1))) - (_target3100031257_ + (##vector-ref ___splice4171541716_ '1))) + (_target3093431191_ (let () (declare (not safe)) - (##vector-ref ___splice4182541826_ '0)))) - (if (gx#stx-null? _tl3100231260_) - (___match4188941890_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - _e3099631237_ - _hd3099531241_ - _tl3099431244_ - _e3099931247_ - _hd3099831251_ - _tl3099731254_ - ___splice4182541826_ - _target3100031257_ - _tl3100231260_) - (if (gx#stx-pair/null? _hd3097331343_) - (let ((___splice4182941830_ + (##vector-ref ___splice4171541716_ '0)))) + (if (gx#stx-null? _tl3093631194_) + (___match4177941780_ + _e3090531263_ + _hd3090431267_ + _tl3090331270_ + _e3090831273_ + _hd3090731277_ + _tl3090631280_ + _e3093031171_ + _hd3092931175_ + _tl3092831178_ + _e3093331181_ + _hd3093231185_ + _tl3093131188_ + ___splice4171541716_ + _target3093431191_ + _tl3093631194_) + (if (gx#stx-pair/null? _hd3090731277_) + (let ((___splice4171941720_ (gx#syntax-split-splice - _hd3097331343_ + _hd3090731277_ '0))) - (let ((_tl3102031079_ + (let ((_tl3095431013_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4171941720_ '1))) - (_target3101831076_ + (_target3095231010_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4171941720_ '0)))) - (if (gx#stx-null? _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) + (if (gx#stx-null? _tl3095431013_) + (___match4179941800_ + _e3090531263_ + _hd3090431267_ + _tl3090331270_ + _e3090831273_ + _hd3090731277_ + _tl3090631280_ + ___splice4171941720_ + _target3095231010_ + _tl3095431013_) (let () (declare (not safe)) - (_g3096631049_))))) - (let () (declare (not safe)) (_g3096631049_)))))) - (if (gx#stx-pair/null? _hd3097331343_) - (let ((___splice4182941830_ - (gx#syntax-split-splice _hd3097331343_ '0))) - (let ((_tl3102031079_ + (_g3090030983_))))) + (let () (declare (not safe)) (_g3090030983_)))))) + (if (gx#stx-pair/null? _hd3090731277_) + (let ((___splice4171941720_ + (gx#syntax-split-splice _hd3090731277_ '0))) + (let ((_tl3095431013_ (let () (declare (not safe)) - (##vector-ref ___splice4182941830_ '1))) - (_target3101831076_ + (##vector-ref ___splice4171941720_ '1))) + (_target3095231010_ (let () (declare (not safe)) - (##vector-ref ___splice4182941830_ '0)))) - (if (gx#stx-null? _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) - (let () (declare (not safe)) (_g3096631049_))))) - (let () (declare (not safe)) (_g3096631049_)))) - (if (gx#stx-pair/null? _hd3097331343_) - (let ((___splice4182941830_ - (gx#syntax-split-splice _hd3097331343_ '0))) - (let ((_tl3102031079_ + (##vector-ref ___splice4171941720_ '0)))) + (if (gx#stx-null? _tl3095431013_) + (___match4179941800_ + _e3090531263_ + _hd3090431267_ + _tl3090331270_ + _e3090831273_ + _hd3090731277_ + _tl3090631280_ + ___splice4171941720_ + _target3095231010_ + _tl3095431013_) + (let () (declare (not safe)) (_g3090030983_))))) + (let () (declare (not safe)) (_g3090030983_)))) + (if (gx#stx-pair/null? _hd3090731277_) + (let ((___splice4171941720_ + (gx#syntax-split-splice _hd3090731277_ '0))) + (let ((_tl3095431013_ (let () (declare (not safe)) - (##vector-ref ___splice4182941830_ '1))) - (_target3101831076_ + (##vector-ref ___splice4171941720_ '1))) + (_target3095231010_ (let () (declare (not safe)) - (##vector-ref ___splice4182941830_ '0)))) - (if (gx#stx-null? _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) - (let () (declare (not safe)) (_g3096631049_))))) - (let () (declare (not safe)) (_g3096631049_)))))) + (##vector-ref ___splice4171941720_ '0)))) + (if (gx#stx-null? _tl3095431013_) + (___match4179941800_ + _e3090531263_ + _hd3090431267_ + _tl3090331270_ + _e3090831273_ + _hd3090731277_ + _tl3090631280_ + ___splice4171941720_ + _target3095231010_ + _tl3095431013_) + (let () (declare (not safe)) (_g3090030983_))))) + (let () (declare (not safe)) (_g3090030983_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _hd3097331343_) - (let ((___splice4182941830_ + _hd3090731277_) + (let ((___splice4171941720_ (gx#syntax-split-splice - _hd3097331343_ + _hd3090731277_ '0))) - (let ((_tl3102031079_ + (let ((_tl3095431013_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4171941720_ '1))) - (_target3101831076_ + (_target3095231010_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4171941720_ '0)))) (if (gx#stx-null? - _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) + _tl3095431013_) + (___match4179941800_ + _e3090531263_ + _hd3090431267_ + _tl3090331270_ + _e3090831273_ + _hd3090731277_ + _tl3090631280_ + ___splice4171941720_ + _target3095231010_ + _tl3095431013_) (let () (declare (not safe)) - (_g3096631049_))))) + (_g3090030983_))))) (let () (declare (not safe)) - (_g3096631049_)))))) - (if (gx#stx-pair/null? _hd3097331343_) - (let ((___splice4182941830_ + (_g3090030983_)))))) + (if (gx#stx-pair/null? _hd3090731277_) + (let ((___splice4171941720_ (gx#syntax-split-splice - _hd3097331343_ + _hd3090731277_ '0))) - (let ((_tl3102031079_ + (let ((_tl3095431013_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4171941720_ '1))) - (_target3101831076_ + (_target3095231010_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4171941720_ '0)))) - (if (gx#stx-null? _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) + (if (gx#stx-null? _tl3095431013_) + (___match4179941800_ + _e3090531263_ + _hd3090431267_ + _tl3090331270_ + _e3090831273_ + _hd3090731277_ + _tl3090631280_ + ___splice4171941720_ + _target3095231010_ + _tl3095431013_) (let () (declare (not safe)) - (_g3096631049_))))) + (_g3090030983_))))) (let () (declare (not safe)) - (_g3096631049_))))))) - (let () (declare (not safe)) (_g3096631049_))))) - (let () (declare (not safe)) (_g3096631049_)))))))) + (_g3090030983_))))))) + (let () (declare (not safe)) (_g3090030983_))))) + (let () (declare (not safe)) (_g3090030983_)))))))) (define |gerbil/core$[:0:]#with*| - (lambda (_$stx31412_) - (let* ((___stx4191241913_ _$stx31412_) - (_g3141731469_ + (lambda (_$stx31346_) + (let* ((___stx4180241803_ _$stx31346_) + (_g3135131403_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4191241913_)))) - (let ((___kont4191541916_ - (lambda (_L31639_ _L31641_ _L31642_ _L31643_ _L31644_) + ___stx4180241803_)))) + (let ((___kont4180541806_ + (lambda (_L31573_ _L31575_ _L31576_ _L31577_ _L31578_) (cons (gx#datum->syntax '#f 'with) - (cons (cons (cons _L31643_ (cons _L31642_ '())) '()) - (cons (cons _L31644_ - (cons _L31641_ - (foldr (lambda (_g3166931672_ + (cons (cons (cons _L31577_ (cons _L31576_ '())) '()) + (cons (cons _L31578_ + (cons _L31575_ + (foldr (lambda (_g3160331606_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3167031675_) - (cons _g3166931672_ _g3167031675_)) + _g3160431609_) + (cons _g3160331606_ _g3160431609_)) '() - _L31639_))) + _L31573_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont4191941920_ - (lambda (_L31526_) + (___kont4180941810_ + (lambda (_L31460_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_g3154331546_ _g3154431549_) - (cons _g3154331546_ _g3154431549_)) + (foldr (lambda (_g3147731480_ _g3147831483_) + (cons _g3147731480_ _g3147831483_)) '() - _L31526_)))))) - (let* ((___match4198541986_ - (lambda (_e3145131476_ - _hd3145031480_ - _tl3144931483_ - _e3145431486_ - _hd3145331490_ - _tl3145231493_ - ___splice4192141922_ - _target3145531496_ - _tl3145731499_) - (letrec ((_loop3145831502_ - (lambda (_hd3145631506_ _body3146231509_) - (if (gx#stx-pair? _hd3145631506_) - (let ((_e3145931512_ - (gx#syntax-e _hd3145631506_))) - (let ((_lp-tl3146131519_ + _L31460_)))))) + (let* ((___match4187541876_ + (lambda (_e3138531410_ + _hd3138431414_ + _tl3138331417_ + _e3138831420_ + _hd3138731424_ + _tl3138631427_ + ___splice4181141812_ + _target3138931430_ + _tl3139131433_) + (letrec ((_loop3139231436_ + (lambda (_hd3139031440_ _body3139631443_) + (if (gx#stx-pair? _hd3139031440_) + (let ((_e3139331446_ + (gx#syntax-e _hd3139031440_))) + (let ((_lp-tl3139531453_ (let () (declare (not safe)) - (##cdr _e3145931512_))) - (_lp-hd3146031516_ + (##cdr _e3139331446_))) + (_lp-hd3139431450_ (let () (declare (not safe)) - (##car _e3145931512_)))) - (_loop3145831502_ - _lp-tl3146131519_ - (cons _lp-hd3146031516_ - _body3146231509_)))) - (let ((_body3146331522_ - (reverse _body3146231509_))) - (___kont4191941920_ - _body3146331522_)))))) - (_loop3145831502_ _target3145531496_ '())))) - (___match4196341964_ - (lambda (_e3142631559_ - _hd3142531563_ - _tl3142431566_ - _e3142931569_ - _hd3142831573_ - _tl3142731576_ - _e3143231579_ - _hd3143131583_ - _tl3143031586_ - _e3143531589_ - _hd3143431593_ - _tl3143331596_ - _e3143831599_ - _hd3143731603_ - _tl3143631606_ - ___splice4191741918_ - _target3143931609_ - _tl3144131612_) - (letrec ((_loop3144231615_ - (lambda (_hd3144031619_ _body3144631622_) - (if (gx#stx-pair? _hd3144031619_) - (let ((_e3144331625_ - (gx#syntax-e _hd3144031619_))) - (let ((_lp-tl3144531632_ + (##car _e3139331446_)))) + (_loop3139231436_ + _lp-tl3139531453_ + (cons _lp-hd3139431450_ + _body3139631443_)))) + (let ((_body3139731456_ + (reverse _body3139631443_))) + (___kont4180941810_ + _body3139731456_)))))) + (_loop3139231436_ _target3138931430_ '())))) + (___match4185341854_ + (lambda (_e3136031493_ + _hd3135931497_ + _tl3135831500_ + _e3136331503_ + _hd3136231507_ + _tl3136131510_ + _e3136631513_ + _hd3136531517_ + _tl3136431520_ + _e3136931523_ + _hd3136831527_ + _tl3136731530_ + _e3137231533_ + _hd3137131537_ + _tl3137031540_ + ___splice4180741808_ + _target3137331543_ + _tl3137531546_) + (letrec ((_loop3137631549_ + (lambda (_hd3137431553_ _body3138031556_) + (if (gx#stx-pair? _hd3137431553_) + (let ((_e3137731559_ + (gx#syntax-e _hd3137431553_))) + (let ((_lp-tl3137931566_ (let () (declare (not safe)) - (##cdr _e3144331625_))) - (_lp-hd3144431629_ + (##cdr _e3137731559_))) + (_lp-hd3137831563_ (let () (declare (not safe)) - (##car _e3144331625_)))) - (_loop3144231615_ - _lp-tl3144531632_ - (cons _lp-hd3144431629_ - _body3144631622_)))) - (let ((_body3144731635_ - (reverse _body3144631622_))) - (___kont4191541916_ - _body3144731635_ - _tl3143031586_ - _hd3143731603_ - _hd3143431593_ - _hd3142531563_)))))) - (_loop3144231615_ _target3143931609_ '()))))) - (if (gx#stx-pair? ___stx4191241913_) - (let ((_e3142631559_ (gx#syntax-e ___stx4191241913_))) - (let ((_tl3142431566_ - (let () (declare (not safe)) (##cdr _e3142631559_))) - (_hd3142531563_ + (##car _e3137731559_)))) + (_loop3137631549_ + _lp-tl3137931566_ + (cons _lp-hd3137831563_ + _body3138031556_)))) + (let ((_body3138131569_ + (reverse _body3138031556_))) + (___kont4180541806_ + _body3138131569_ + _tl3136431520_ + _hd3137131537_ + _hd3136831527_ + _hd3135931497_)))))) + (_loop3137631549_ _target3137331543_ '()))))) + (if (gx#stx-pair? ___stx4180241803_) + (let ((_e3136031493_ (gx#syntax-e ___stx4180241803_))) + (let ((_tl3135831500_ + (let () (declare (not safe)) (##cdr _e3136031493_))) + (_hd3135931497_ (let () (declare (not safe)) - (##car _e3142631559_)))) - (if (gx#stx-pair? _tl3142431566_) - (let ((_e3142931569_ (gx#syntax-e _tl3142431566_))) - (let ((_tl3142731576_ + (##car _e3136031493_)))) + (if (gx#stx-pair? _tl3135831500_) + (let ((_e3136331503_ (gx#syntax-e _tl3135831500_))) + (let ((_tl3136131510_ (let () (declare (not safe)) - (##cdr _e3142931569_))) - (_hd3142831573_ + (##cdr _e3136331503_))) + (_hd3136231507_ (let () (declare (not safe)) - (##car _e3142931569_)))) - (if (gx#stx-pair? _hd3142831573_) - (let ((_e3143231579_ - (gx#syntax-e _hd3142831573_))) - (let ((_tl3143031586_ + (##car _e3136331503_)))) + (if (gx#stx-pair? _hd3136231507_) + (let ((_e3136631513_ + (gx#syntax-e _hd3136231507_))) + (let ((_tl3136431520_ (let () (declare (not safe)) - (##cdr _e3143231579_))) - (_hd3143131583_ + (##cdr _e3136631513_))) + (_hd3136531517_ (let () (declare (not safe)) - (##car _e3143231579_)))) - (if (gx#stx-pair? _hd3143131583_) - (let ((_e3143531589_ - (gx#syntax-e _hd3143131583_))) - (let ((_tl3143331596_ + (##car _e3136631513_)))) + (if (gx#stx-pair? _hd3136531517_) + (let ((_e3136931523_ + (gx#syntax-e _hd3136531517_))) + (let ((_tl3136731530_ (let () (declare (not safe)) - (##cdr _e3143531589_))) - (_hd3143431593_ + (##cdr _e3136931523_))) + (_hd3136831527_ (let () (declare (not safe)) - (##car _e3143531589_)))) - (if (gx#stx-pair? _tl3143331596_) - (let ((_e3143831599_ + (##car _e3136931523_)))) + (if (gx#stx-pair? _tl3136731530_) + (let ((_e3137231533_ (gx#syntax-e - _tl3143331596_))) - (let ((_tl3143631606_ + _tl3136731530_))) + (let ((_tl3137031540_ (let () (declare (not safe)) - (##cdr _e3143831599_))) - (_hd3143731603_ + (##cdr _e3137231533_))) + (_hd3137131537_ (let () (declare (not safe)) - (##car _e3143831599_)))) + (##car _e3137231533_)))) (if (gx#stx-null? - _tl3143631606_) + _tl3137031540_) (if (gx#stx-pair/null? - _tl3142731576_) - (let ((___splice4191741918_ + _tl3136131510_) + (let ((___splice4180741808_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl3142731576_ '0))) - (let ((_tl3144131612_ + (gx#syntax-split-splice _tl3136131510_ '0))) + (let ((_tl3137531546_ (let () (declare (not safe)) - (##vector-ref ___splice4191741918_ '1))) - (_target3143931609_ + (##vector-ref ___splice4180741808_ '1))) + (_target3137331543_ (let () (declare (not safe)) - (##vector-ref ___splice4191741918_ '0)))) - (if (gx#stx-null? _tl3144131612_) - (___match4196341964_ - _e3142631559_ - _hd3142531563_ - _tl3142431566_ - _e3142931569_ - _hd3142831573_ - _tl3142731576_ - _e3143231579_ - _hd3143131583_ - _tl3143031586_ - _e3143531589_ - _hd3143431593_ - _tl3143331596_ - _e3143831599_ - _hd3143731603_ - _tl3143631606_ - ___splice4191741918_ - _target3143931609_ - _tl3144131612_) - (let () (declare (not safe)) (_g3141731469_))))) - (let () (declare (not safe)) (_g3141731469_))) - (let () (declare (not safe)) (_g3141731469_))))) + (##vector-ref ___splice4180741808_ '0)))) + (if (gx#stx-null? _tl3137531546_) + (___match4185341854_ + _e3136031493_ + _hd3135931497_ + _tl3135831500_ + _e3136331503_ + _hd3136231507_ + _tl3136131510_ + _e3136631513_ + _hd3136531517_ + _tl3136431520_ + _e3136931523_ + _hd3136831527_ + _tl3136731530_ + _e3137231533_ + _hd3137131537_ + _tl3137031540_ + ___splice4180741808_ + _target3137331543_ + _tl3137531546_) + (let () (declare (not safe)) (_g3135131403_))))) + (let () (declare (not safe)) (_g3135131403_))) + (let () (declare (not safe)) (_g3135131403_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3141731469_))))) + (_g3135131403_))))) (let () (declare (not safe)) - (_g3141731469_))))) - (if (gx#stx-null? _hd3142831573_) - (if (gx#stx-pair/null? _tl3142731576_) - (let ((___splice4192141922_ + (_g3135131403_))))) + (if (gx#stx-null? _hd3136231507_) + (if (gx#stx-pair/null? _tl3136131510_) + (let ((___splice4181141812_ (gx#syntax-split-splice - _tl3142731576_ + _tl3136131510_ '0))) - (let ((_tl3145731499_ + (let ((_tl3139131433_ (let () (declare (not safe)) (##vector-ref - ___splice4192141922_ + ___splice4181141812_ '1))) - (_target3145531496_ + (_target3138931430_ (let () (declare (not safe)) (##vector-ref - ___splice4192141922_ + ___splice4181141812_ '0)))) - (if (gx#stx-null? _tl3145731499_) - (___match4198541986_ - _e3142631559_ - _hd3142531563_ - _tl3142431566_ - _e3142931569_ - _hd3142831573_ - _tl3142731576_ - ___splice4192141922_ - _target3145531496_ - _tl3145731499_) + (if (gx#stx-null? _tl3139131433_) + (___match4187541876_ + _e3136031493_ + _hd3135931497_ + _tl3135831500_ + _e3136331503_ + _hd3136231507_ + _tl3136131510_ + ___splice4181141812_ + _target3138931430_ + _tl3139131433_) (let () (declare (not safe)) - (_g3141731469_))))) + (_g3135131403_))))) (let () (declare (not safe)) - (_g3141731469_))) + (_g3135131403_))) (let () (declare (not safe)) - (_g3141731469_)))))) - (let () (declare (not safe)) (_g3141731469_))))) - (let () (declare (not safe)) (_g3141731469_)))))))) + (_g3135131403_)))))) + (let () (declare (not safe)) (_g3135131403_))))) + (let () (declare (not safe)) (_g3135131403_)))))))) (define |gerbil/core$[:0:]#?| - (lambda (_$stx31684_) - (let* ((___stx4198841989_ _$stx31684_) - (_g3169531841_ + (lambda (_$stx31618_) + (let* ((___stx4187841879_ _$stx31618_) + (_g3162931775_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4198841989_)))) - (let ((___kont4199141992_ - (lambda (_L32445_ _L32447_ _L32448_) + ___stx4187841879_)))) + (let ((___kont4188141882_ + (lambda (_L32379_ _L32381_ _L32382_) (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_g3246932472_ _g3247032475_) - (cons (cons _L32448_ - (cons _g3246932472_ - (cons _L32445_ '()))) - _g3247032475_)) + (foldr (lambda (_g3240332406_ _g3240432409_) + (cons (cons _L32382_ + (cons _g3240332406_ + (cons _L32379_ '()))) + _g3240432409_)) '() - _L32447_)))) - (___kont4199541996_ - (lambda (_L32335_ _L32337_ _L32338_) + _L32381_)))) + (___kont4188541886_ + (lambda (_L32269_ _L32271_ _L32272_) (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_g3235932362_ _g3236032365_) - (cons (cons _L32338_ - (cons _g3235932362_ - (cons _L32335_ '()))) - _g3236032365_)) + (foldr (lambda (_g3229332296_ _g3229432299_) + (cons (cons _L32272_ + (cons _g3229332296_ + (cons _L32269_ '()))) + _g3229432299_)) '() - _L32337_)))) - (___kont4199942000_ - (lambda (_L32235_ _L32237_ _L32238_) + _L32271_)))) + (___kont4188941890_ + (lambda (_L32169_ _L32171_ _L32172_) (cons (gx#datum->syntax '#f 'not) - (cons (cons _L32238_ - (cons _L32237_ (cons _L32235_ '()))) + (cons (cons _L32172_ + (cons _L32171_ (cons _L32169_ '()))) '())))) - (___kont4200142002_ - (lambda (_L32161_ _L32163_) - (cons _L32163_ (cons _L32161_ '())))) - (___kont4200342004_ - (lambda (_L32109_ _L32111_) + (___kont4189141892_ + (lambda (_L32095_ _L32097_) + (cons _L32097_ (cons _L32095_ '())))) + (___kont4189341894_ + (lambda (_L32043_ _L32045_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) - (cons (cons _L32111_ - (cons _L32109_ + (cons (cons _L32045_ + (cons _L32043_ (cons (gx#datum->syntax '#f '$obj) '()))) '()))))) - (___kont4200542006_ - (lambda (_L32061_ _L32063_ _L32064_) + (___kont4189541896_ + (lambda (_L31995_ _L31997_ _L31998_) (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 _L32064_ + (cons (cons _L31998_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L32063_ + (cons _L31997_ (cons (gx#datum->syntax '#f '$obj) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L32061_ + (cons (cons _L31995_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7039,20 +7039,20 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont4200742008_ - (lambda (_L31992_ _L31994_ _L31995_) + (___kont4189741898_ + (lambda (_L31926_ _L31928_ _L31929_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _L31995_ - (cons _L31994_ + (cons (cons _L31929_ + (cons _L31928_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L31992_ + (cons (cons _L31926_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7061,1746 +7061,1746 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont4200942010_ - (lambda (_L31912_ _L31914_ _L31915_ _L31916_) + (___kont4189941900_ + (lambda (_L31846_ _L31848_ _L31849_ _L31850_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _L31916_ - (cons _L31915_ + (cons (cons _L31850_ + (cons _L31849_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L31912_ - (cons (cons _L31914_ + (cons (cons _L31846_ + (cons (cons _L31848_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f '$obj) '())) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((___match4216142162_ - (lambda (_e3178732021_ - _hd3178632025_ - _tl3178532028_ - _e3179032031_ - _hd3178932035_ - _tl3178832038_ - _e3179332041_ - _hd3179232045_ - _tl3179132048_) - (if (gx#identifier? _hd3179232045_) + (let* ((___match4205142052_ + (lambda (_e3172131955_ + _hd3172031959_ + _tl3171931962_ + _e3172431965_ + _hd3172331969_ + _tl3172231972_ + _e3172731975_ + _hd3172631979_ + _tl3172531982_) + (if (gx#identifier? _hd3172631979_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3179232045_) - (if (gx#stx-pair? _tl3179132048_) - (let ((_e3179632051_ - (gx#syntax-e _tl3179132048_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42994_| + _hd3172631979_) + (if (gx#stx-pair? _tl3172531982_) + (let ((_e3173031985_ + (gx#syntax-e _tl3172531982_))) + (let ((_tl3172831992_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3178932035_ - _hd3178632025_) + (##car _e3173031985_)))) + (if (gx#stx-null? _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3172331969_ + _hd3172031959_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (if (gx#stx-datum? _hd3179232045_) - (let ((_e3180931978_ (gx#stx-e _hd3179232045_))) - (if (equal? _e3180931978_ '::) - (if (gx#stx-pair? _tl3179132048_) - (let ((_e3181231982_ - (gx#syntax-e _tl3179132048_))) - (let ((_tl3181031989_ + (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))) + (if (gx#stx-datum? _hd3172631979_) + (let ((_e3174331912_ (gx#stx-e _hd3172631979_))) + (if (equal? _e3174331912_ '::) + (if (gx#stx-pair? _tl3172531982_) + (let ((_e3174631916_ + (gx#syntax-e _tl3172531982_))) + (let ((_tl3174431923_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3174631916_))) + (_hd3174531920_ (let () (declare (not safe)) - (##car _e3181231982_)))) - (if (gx#stx-null? _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3178932035_ - _hd3178632025_) + (##car _e3174631916_)))) + (if (gx#stx-null? _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3172331969_ + _hd3172031959_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3174431923_) + (let ((_e3176631826_ (gx#syntax-e - _tl3181031989_))) - (let ((_tl3183031899_ + _tl3174431923_))) + (let ((_tl3176431833_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ - (let () (declare (not safe)) (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##cdr _e3176631826_))) + (_hd3176531830_ + (let () (declare (not safe)) (##car _e3176631826_)))) + (if (gx#identifier? _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42993_| + _hd3176531830_) + (if (gx#stx-pair? _tl3176431833_) + (let ((_e3176931836_ (gx#syntax-e _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3176931836_))) + (_hd3176831840_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3178932035_ - _hd3178632025_) + (##car _e3176931836_)))) + (if (gx#stx-null? _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3172331969_ + _hd3172031959_) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))))) + (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_)))))) + (_g3162931775_)))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_)))) - (let () (declare (not safe)) (_g3169531841_)))))) - (___match4214142142_ - (lambda (_e3177832089_ - _hd3177732093_ - _tl3177632096_ - _e3178132099_ - _hd3178032103_ - _tl3177932106_) - (if (gx#stx-null? _tl3177932106_) - (___kont4200342004_ _hd3178032103_ _hd3177732093_) - (if (gx#stx-pair? _tl3177932106_) - (let ((_e3179332041_ - (gx#syntax-e _tl3177932106_))) - (let ((_tl3179132048_ + (_g3162931775_)))) + (let () (declare (not safe)) (_g3162931775_)))))) + (___match4203142032_ + (lambda (_e3171232023_ + _hd3171132027_ + _tl3171032030_ + _e3171532033_ + _hd3171432037_ + _tl3171332040_) + (if (gx#stx-null? _tl3171332040_) + (___kont4189341894_ _hd3171432037_ _hd3171132027_) + (if (gx#stx-pair? _tl3171332040_) + (let ((_e3172731975_ + (gx#syntax-e _tl3171332040_))) + (let ((_tl3172531982_ (let () (declare (not safe)) - (##cdr _e3179332041_))) - (_hd3179232045_ + (##cdr _e3172731975_))) + (_hd3172631979_ (let () (declare (not safe)) - (##car _e3179332041_)))) - (if (gx#identifier? _hd3179232045_) + (##car _e3172731975_)))) + (if (gx#identifier? _hd3172631979_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3179232045_) - (if (gx#stx-pair? _tl3179132048_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g42994_| + _hd3172631979_) + (if (gx#stx-pair? _tl3172531982_) + (let ((_e3173031985_ (gx#syntax-e - _tl3179132048_))) - (let ((_tl3179432058_ + _tl3172531982_))) + (let ((_tl3172831992_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) + (##car _e3173031985_)))) (if (gx#stx-null? - _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3178032103_ - _hd3177732093_) + _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3171432037_ + _hd3171132027_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3179232045_) - (let ((_e3180931978_ - (gx#stx-e _hd3179232045_))) - (if (equal? _e3180931978_ '::) + (_g3162931775_))) + (if (gx#stx-datum? _hd3172631979_) + (let ((_e3174331912_ + (gx#stx-e _hd3172631979_))) + (if (equal? _e3174331912_ '::) (if (gx#stx-pair? - _tl3179132048_) - (let ((_e3181231982_ + _tl3172531982_) + (let ((_e3174631916_ (gx#syntax-e - _tl3179132048_))) - (let ((_tl3181031989_ + _tl3172531982_))) + (let ((_tl3174431923_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ - (let () (declare (not safe)) (##car _e3181231982_)))) - (if (gx#stx-null? _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3178032103_ - _hd3177732093_) - (if (gx#stx-pair? _tl3181031989_) - (let ((_e3183231892_ (gx#syntax-e _tl3181031989_))) - (let ((_tl3183031899_ + (##cdr _e3174631916_))) + (_hd3174531920_ + (let () (declare (not safe)) (##car _e3174631916_)))) + (if (gx#stx-null? _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3171432037_ + _hd3171132027_) + (if (gx#stx-pair? _tl3174431923_) + (let ((_e3176631826_ (gx#syntax-e _tl3174431923_))) + (let ((_tl3176431833_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3176631826_))) + (_hd3176531830_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3176631826_)))) + (if (gx#identifier? _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42993_| + _hd3176531830_) + (if (gx#stx-pair? _tl3176431833_) + (let ((_e3176931836_ + (gx#syntax-e _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3176931836_))) + (_hd3176831840_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3178032103_ - _hd3177732093_) + (##car _e3176931836_)))) + (if (gx#stx-null? _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3171432037_ + _hd3171132027_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) + (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3162931775_)))) (let () (declare (not safe)) - (_g3169531841_)))))) - (let () (declare (not safe)) (_g3169531841_)))))) - (___match4207142072_ - (lambda (_e3172632265_ - _hd3172532269_ - _tl3172432272_ - _e3172932275_ - _hd3172832279_ - _tl3172732282_ - _e3173232285_ - _hd3173132289_ - _tl3173032292_ - ___splice4199741998_ - _target3173332295_ - _tl3173532298_) - (letrec ((_loop3173632301_ - (lambda (_hd3173432305_ _pred3174032308_) - (if (gx#stx-pair? _hd3173432305_) - (let ((_e3173732311_ - (gx#syntax-e _hd3173432305_))) - (let ((_lp-tl3173932318_ + (_g3162931775_)))))) + (let () (declare (not safe)) (_g3162931775_)))))) + (___match4196141962_ + (lambda (_e3166032199_ + _hd3165932203_ + _tl3165832206_ + _e3166332209_ + _hd3166232213_ + _tl3166132216_ + _e3166632219_ + _hd3166532223_ + _tl3166432226_ + ___splice4188741888_ + _target3166732229_ + _tl3166932232_) + (letrec ((_loop3167032235_ + (lambda (_hd3166832239_ _pred3167432242_) + (if (gx#stx-pair? _hd3166832239_) + (let ((_e3167132245_ + (gx#syntax-e _hd3166832239_))) + (let ((_lp-tl3167332252_ (let () (declare (not safe)) - (##cdr _e3173732311_))) - (_lp-hd3173832315_ + (##cdr _e3167132245_))) + (_lp-hd3167232249_ (let () (declare (not safe)) - (##car _e3173732311_)))) - (_loop3173632301_ - _lp-tl3173932318_ - (cons _lp-hd3173832315_ - _pred3174032308_)))) - (let ((_pred3174132321_ - (reverse _pred3174032308_))) - (if (gx#stx-pair? _tl3172732282_) - (let ((_e3174432325_ + (##car _e3167132245_)))) + (_loop3167032235_ + _lp-tl3167332252_ + (cons _lp-hd3167232249_ + _pred3167432242_)))) + (let ((_pred3167532255_ + (reverse _pred3167432242_))) + (if (gx#stx-pair? _tl3166132216_) + (let ((_e3167832259_ (gx#syntax-e - _tl3172732282_))) - (let ((_tl3174232332_ + _tl3166132216_))) + (let ((_tl3167632266_ (let () (declare (not safe)) - (##cdr _e3174432325_))) - (_hd3174332329_ + (##cdr _e3167832259_))) + (_hd3167732263_ (let () (declare (not safe)) - (##car _e3174432325_)))) + (##car _e3167832259_)))) (if (gx#stx-null? - _tl3174232332_) - (___kont4199541996_ - _hd3174332329_ - _pred3174132321_ - _hd3172532269_) - (___match4216142162_ - _e3172632265_ - _hd3172532269_ - _tl3172432272_ - _e3172932275_ - _hd3172832279_ - _tl3172732282_ - _e3174432325_ - _hd3174332329_ - _tl3174232332_)))) - (___match4214142142_ - _e3172632265_ - _hd3172532269_ - _tl3172432272_ - _e3172932275_ - _hd3172832279_ - _tl3172732282_))))))) - (_loop3173632301_ _target3173332295_ '())))) - (___match4204142042_ - (lambda (_e3170232375_ - _hd3170132379_ - _tl3170032382_ - _e3170532385_ - _hd3170432389_ - _tl3170332392_ - _e3170832395_ - _hd3170732399_ - _tl3170632402_ - ___splice4199341994_ - _target3170932405_ - _tl3171132408_) - (letrec ((_loop3171232411_ - (lambda (_hd3171032415_ _pred3171632418_) - (if (gx#stx-pair? _hd3171032415_) - (let ((_e3171332421_ - (gx#syntax-e _hd3171032415_))) - (let ((_lp-tl3171532428_ + _tl3167632266_) + (___kont4188541886_ + _hd3167732263_ + _pred3167532255_ + _hd3165932203_) + (___match4205142052_ + _e3166032199_ + _hd3165932203_ + _tl3165832206_ + _e3166332209_ + _hd3166232213_ + _tl3166132216_ + _e3167832259_ + _hd3167732263_ + _tl3167632266_)))) + (___match4203142032_ + _e3166032199_ + _hd3165932203_ + _tl3165832206_ + _e3166332209_ + _hd3166232213_ + _tl3166132216_))))))) + (_loop3167032235_ _target3166732229_ '())))) + (___match4193141932_ + (lambda (_e3163632309_ + _hd3163532313_ + _tl3163432316_ + _e3163932319_ + _hd3163832323_ + _tl3163732326_ + _e3164232329_ + _hd3164132333_ + _tl3164032336_ + ___splice4188341884_ + _target3164332339_ + _tl3164532342_) + (letrec ((_loop3164632345_ + (lambda (_hd3164432349_ _pred3165032352_) + (if (gx#stx-pair? _hd3164432349_) + (let ((_e3164732355_ + (gx#syntax-e _hd3164432349_))) + (let ((_lp-tl3164932362_ (let () (declare (not safe)) - (##cdr _e3171332421_))) - (_lp-hd3171432425_ + (##cdr _e3164732355_))) + (_lp-hd3164832359_ (let () (declare (not safe)) - (##car _e3171332421_)))) - (_loop3171232411_ - _lp-tl3171532428_ - (cons _lp-hd3171432425_ - _pred3171632418_)))) - (let ((_pred3171732431_ - (reverse _pred3171632418_))) - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3172032435_ + (##car _e3164732355_)))) + (_loop3164632345_ + _lp-tl3164932362_ + (cons _lp-hd3164832359_ + _pred3165032352_)))) + (let ((_pred3165132365_ + (reverse _pred3165032352_))) + (if (gx#stx-pair? _tl3163732326_) + (let ((_e3165432369_ (gx#syntax-e - _tl3170332392_))) - (let ((_tl3171832442_ + _tl3163732326_))) + (let ((_tl3165232376_ (let () (declare (not safe)) - (##cdr _e3172032435_))) - (_hd3171932439_ + (##cdr _e3165432369_))) + (_hd3165332373_ (let () (declare (not safe)) - (##car _e3172032435_)))) + (##car _e3165432369_)))) (if (gx#stx-null? - _tl3171832442_) - (___kont4199141992_ - _hd3171932439_ - _pred3171732431_ - _hd3170132379_) - (___match4216142162_ - _e3170232375_ - _hd3170132379_ - _tl3170032382_ - _e3170532385_ - _hd3170432389_ - _tl3170332392_ - _e3172032435_ - _hd3171932439_ - _tl3171832442_)))) - (___match4214142142_ - _e3170232375_ - _hd3170132379_ - _tl3170032382_ - _e3170532385_ - _hd3170432389_ - _tl3170332392_))))))) - (_loop3171232411_ _target3170932405_ '()))))) - (if (gx#stx-pair? ___stx4198841989_) - (let ((_e3170232375_ (gx#syntax-e ___stx4198841989_))) - (let ((_tl3170032382_ - (let () (declare (not safe)) (##cdr _e3170232375_))) - (_hd3170132379_ + _tl3165232376_) + (___kont4188141882_ + _hd3165332373_ + _pred3165132365_ + _hd3163532313_) + (___match4205142052_ + _e3163632309_ + _hd3163532313_ + _tl3163432316_ + _e3163932319_ + _hd3163832323_ + _tl3163732326_ + _e3165432369_ + _hd3165332373_ + _tl3165232376_)))) + (___match4203142032_ + _e3163632309_ + _hd3163532313_ + _tl3163432316_ + _e3163932319_ + _hd3163832323_ + _tl3163732326_))))))) + (_loop3164632345_ _target3164332339_ '()))))) + (if (gx#stx-pair? ___stx4187841879_) + (let ((_e3163632309_ (gx#syntax-e ___stx4187841879_))) + (let ((_tl3163432316_ + (let () (declare (not safe)) (##cdr _e3163632309_))) + (_hd3163532313_ (let () (declare (not safe)) - (##car _e3170232375_)))) - (if (gx#stx-pair? _tl3170032382_) - (let ((_e3170532385_ (gx#syntax-e _tl3170032382_))) - (let ((_tl3170332392_ + (##car _e3163632309_)))) + (if (gx#stx-pair? _tl3163432316_) + (let ((_e3163932319_ (gx#syntax-e _tl3163432316_))) + (let ((_tl3163732326_ (let () (declare (not safe)) - (##cdr _e3170532385_))) - (_hd3170432389_ + (##cdr _e3163932319_))) + (_hd3163832323_ (let () (declare (not safe)) - (##car _e3170532385_)))) - (if (gx#stx-pair? _hd3170432389_) - (let ((_e3170832395_ - (gx#syntax-e _hd3170432389_))) - (let ((_tl3170632402_ + (##car _e3163932319_)))) + (if (gx#stx-pair? _hd3163832323_) + (let ((_e3164232329_ + (gx#syntax-e _hd3163832323_))) + (let ((_tl3164032336_ (let () (declare (not safe)) - (##cdr _e3170832395_))) - (_hd3170732399_ + (##cdr _e3164232329_))) + (_hd3164132333_ (let () (declare (not safe)) - (##car _e3170832395_)))) - (if (gx#identifier? _hd3170732399_) + (##car _e3164232329_)))) + (if (gx#identifier? _hd3164132333_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43060_| - _hd3170732399_) + |gerbil/core$[1]#_g43009_| + _hd3164132333_) (if (gx#stx-pair/null? - _tl3170632402_) - (let ((___splice4199341994_ + _tl3164032336_) + (let ((___splice4188341884_ (gx#syntax-split-splice - _tl3170632402_ + _tl3164032336_ '0))) - (let ((_tl3171132408_ + (let ((_tl3164532342_ (let () (declare (not safe)) (##vector-ref - ___splice4199341994_ + ___splice4188341884_ '1))) - (_target3170932405_ + (_target3164332339_ (let () (declare (not safe)) (##vector-ref - ___splice4199341994_ + ___splice4188341884_ '0)))) (if (gx#stx-null? - _tl3171132408_) - (___match4204142042_ - _e3170232375_ - _hd3170132379_ - _tl3170032382_ - _e3170532385_ - _hd3170432389_ - _tl3170332392_ - _e3170832395_ - _hd3170732399_ - _tl3170632402_ - ___splice4199341994_ - _target3170932405_ - _tl3171132408_) + _tl3164532342_) + (___match4193141932_ + _e3163632309_ + _hd3163532313_ + _tl3163432316_ + _e3163932319_ + _hd3163832323_ + _tl3163732326_ + _e3164232329_ + _hd3164132333_ + _tl3164032336_ + ___splice4188341884_ + _target3164332339_ + _tl3164532342_) (if (gx#stx-pair? - _tl3170332392_) - (let ((_e3177332151_ + _tl3163732326_) + (let ((_e3170732085_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3170332392_))) - (let ((_tl3177132158_ + (gx#syntax-e _tl3163732326_))) + (let ((_tl3170532092_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3170732085_))) + (_hd3170632089_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3170732085_)))) + (if (gx#stx-null? _tl3170532092_) + (___kont4189141892_ + _hd3170632089_ + _hd3163832323_) + (if (gx#identifier? _hd3170632089_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42994_| + _hd3170632089_) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3173031985_ + (gx#syntax-e _tl3170532092_))) + (let ((_tl3172831992_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3173031985_)))) + (if (gx#stx-null? _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3177232155_) - (let ((_e3180931978_ - (gx#stx-e _hd3177232155_))) - (if (equal? _e3180931978_ '::) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3181231982_ + (_g3162931775_))) + (if (gx#stx-datum? _hd3170632089_) + (let ((_e3174331912_ + (gx#stx-e _hd3170632089_))) + (if (equal? _e3174331912_ '::) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3174631916_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3181031989_ + _tl3170532092_))) + (let ((_tl3174431923_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3174631916_))) + (_hd3174531920_ (let () (declare (not safe)) - (##car _e3181231982_)))) + (##car _e3174631916_)))) (if (gx#stx-null? - _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3174431923_) + (let ((_e3176631826_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3181031989_))) - (let ((_tl3183031899_ + (gx#syntax-e _tl3174431923_))) + (let ((_tl3176431833_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3176631826_))) + (_hd3176531830_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3176631826_)))) + (if (gx#identifier? _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42993_| + _hd3176531830_) + (if (gx#stx-pair? _tl3176431833_) + (let ((_e3176931836_ + (gx#syntax-e _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3176931836_))) + (_hd3176831840_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3176931836_)))) + (if (gx#stx-null? _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) + (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3162931775_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ _hd3170432389_ _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))))) + (_g3162931775_))))))) + (if (gx#stx-null? _tl3163732326_) + (___kont4189341894_ _hd3163832323_ _hd3163532313_) + (let () (declare (not safe)) (_g3162931775_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _tl3170332392_) - (let ((_e3177332151_ + _tl3163732326_) + (let ((_e3170732085_ (gx#syntax-e - _tl3170332392_))) - (let ((_tl3177132158_ + _tl3163732326_))) + (let ((_tl3170532092_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ - (let () (declare (not safe)) (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ _hd3177232155_ _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##cdr _e3170732085_))) + (_hd3170632089_ + (let () (declare (not safe)) (##car _e3170732085_)))) + (if (gx#stx-null? _tl3170532092_) + (___kont4189141892_ _hd3170632089_ _hd3163832323_) + (if (gx#identifier? _hd3170632089_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42994_| + _hd3170632089_) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3173031985_ + (gx#syntax-e _tl3170532092_))) + (let ((_tl3172831992_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3173031985_)))) + (if (gx#stx-null? _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (if (gx#stx-datum? _hd3177232155_) - (let ((_e3180931978_ (gx#stx-e _hd3177232155_))) - (if (equal? _e3180931978_ '::) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3181231982_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3181031989_ + (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))) + (if (gx#stx-datum? _hd3170632089_) + (let ((_e3174331912_ (gx#stx-e _hd3170632089_))) + (if (equal? _e3174331912_ '::) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3174631916_ + (gx#syntax-e _tl3170532092_))) + (let ((_tl3174431923_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3174631916_))) + (_hd3174531920_ (let () (declare (not safe)) - (##car _e3181231982_)))) - (if (gx#stx-null? _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3174631916_)))) + (if (gx#stx-null? _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3174431923_) + (let ((_e3176631826_ (gx#syntax-e - _tl3181031989_))) - (let ((_tl3183031899_ + _tl3174431923_))) + (let ((_tl3176431833_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ - (let () (declare (not safe)) (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##cdr _e3176631826_))) + (_hd3176531830_ + (let () (declare (not safe)) (##car _e3176631826_)))) + (if (gx#identifier? _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42993_| + _hd3176531830_) + (if (gx#stx-pair? _tl3176431833_) + (let ((_e3176931836_ (gx#syntax-e _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3176931836_))) + (_hd3176831840_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3176931836_)))) + (if (gx#stx-null? _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))))) + (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_)))))) + (_g3162931775_)))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3162931775_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ _hd3170432389_ _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))) + (_g3162931775_))))))) + (if (gx#stx-null? _tl3163732326_) + (___kont4189341894_ _hd3163832323_ _hd3163532313_) + (let () (declare (not safe)) (_g3162931775_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g43059_| - _hd3170732399_) + |gerbil/core$[1]#_g43008_| + _hd3164132333_) (if (gx#stx-pair/null? - _tl3170632402_) - (let ((___splice4199741998_ + _tl3164032336_) + (let ((___splice4188741888_ (gx#syntax-split-splice - _tl3170632402_ + _tl3164032336_ '0))) - (let ((_tl3173532298_ + (let ((_tl3166932232_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4199741998_ '1))) - (_target3173332295_ + (##vector-ref ___splice4188741888_ '1))) + (_target3166732229_ (let () (declare (not safe)) - (##vector-ref ___splice4199741998_ '0)))) - (if (gx#stx-null? _tl3173532298_) - (___match4207142072_ - _e3170232375_ - _hd3170132379_ - _tl3170032382_ - _e3170532385_ - _hd3170432389_ - _tl3170332392_ - _e3170832395_ - _hd3170732399_ - _tl3170632402_ - ___splice4199741998_ - _target3173332295_ - _tl3173532298_) - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3177332151_ (gx#syntax-e _tl3170332392_))) - (let ((_tl3177132158_ + (##vector-ref ___splice4188741888_ '0)))) + (if (gx#stx-null? _tl3166932232_) + (___match4196141962_ + _e3163632309_ + _hd3163532313_ + _tl3163432316_ + _e3163932319_ + _hd3163832323_ + _tl3163732326_ + _e3164232329_ + _hd3164132333_ + _tl3164032336_ + ___splice4188741888_ + _target3166732229_ + _tl3166932232_) + (if (gx#stx-pair? _tl3163732326_) + (let ((_e3170732085_ (gx#syntax-e _tl3163732326_))) + (let ((_tl3170532092_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3170732085_))) + (_hd3170632089_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3170732085_)))) + (if (gx#stx-null? _tl3170532092_) + (___kont4189141892_ + _hd3170632089_ + _hd3163832323_) + (if (gx#identifier? _hd3170632089_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g42994_| + _hd3170632089_) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3173031985_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3179432058_ + _tl3170532092_))) + (let ((_tl3172831992_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) + (##car _e3173031985_)))) (if (gx#stx-null? - _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3177232155_) - (let ((_e3180931978_ - (gx#stx-e _hd3177232155_))) - (if (equal? _e3180931978_ '::) + (_g3162931775_))) + (if (gx#stx-datum? _hd3170632089_) + (let ((_e3174331912_ + (gx#stx-e _hd3170632089_))) + (if (equal? _e3174331912_ '::) (if (gx#stx-pair? - _tl3177132158_) - (let ((_e3181231982_ + _tl3170532092_) + (let ((_e3174631916_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3181031989_ + _tl3170532092_))) + (let ((_tl3174431923_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ - (let () (declare (not safe)) (##car _e3181231982_)))) - (if (gx#stx-null? _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) - (if (gx#stx-pair? _tl3181031989_) - (let ((_e3183231892_ (gx#syntax-e _tl3181031989_))) - (let ((_tl3183031899_ + (##cdr _e3174631916_))) + (_hd3174531920_ + (let () (declare (not safe)) (##car _e3174631916_)))) + (if (gx#stx-null? _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) + (if (gx#stx-pair? _tl3174431923_) + (let ((_e3176631826_ (gx#syntax-e _tl3174431923_))) + (let ((_tl3176431833_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3176631826_))) + (_hd3176531830_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3176631826_)))) + (if (gx#identifier? _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42993_| + _hd3176531830_) + (if (gx#stx-pair? _tl3176431833_) + (let ((_e3176931836_ + (gx#syntax-e _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3176931836_))) + (_hd3176831840_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3176931836_)))) + (if (gx#stx-null? _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) + (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3162931775_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ - _hd3170432389_ - _hd3170132379_) + (_g3162931775_))))))) + (if (gx#stx-null? _tl3163732326_) + (___kont4189341894_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3177332151_ (gx#syntax-e _tl3170332392_))) - (let ((_tl3177132158_ - (let () (declare (not safe)) (##cdr _e3177332151_))) - (_hd3177232155_ + (_g3162931775_))))))) + (if (gx#stx-pair? _tl3163732326_) + (let ((_e3170732085_ (gx#syntax-e _tl3163732326_))) + (let ((_tl3170532092_ + (let () (declare (not safe)) (##cdr _e3170732085_))) + (_hd3170632089_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ _hd3177232155_ _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3170732085_)))) + (if (gx#stx-null? _tl3170532092_) + (___kont4189141892_ _hd3170632089_ _hd3163832323_) + (if (gx#identifier? _hd3170632089_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42994_| + _hd3170632089_) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3173031985_ + (gx#syntax-e _tl3170532092_))) + (let ((_tl3172831992_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3173031985_)))) + (if (gx#stx-null? _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3177232155_) - (let ((_e3180931978_ - (gx#stx-e _hd3177232155_))) - (if (equal? _e3180931978_ '::) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3181231982_ + (_g3162931775_))) + (if (gx#stx-datum? _hd3170632089_) + (let ((_e3174331912_ + (gx#stx-e _hd3170632089_))) + (if (equal? _e3174331912_ '::) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3174631916_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3181031989_ + _tl3170532092_))) + (let ((_tl3174431923_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3174631916_))) + (_hd3174531920_ (let () (declare (not safe)) - (##car _e3181231982_)))) + (##car _e3174631916_)))) (if (gx#stx-null? - _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3174431923_) + (let ((_e3176631826_ (gx#syntax-e - _tl3181031989_))) - (let ((_tl3183031899_ + _tl3174431923_))) + (let ((_tl3176431833_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3183231892_))) - (_hd3183131896_ - (let () (declare (not safe)) (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (let () (declare (not safe)) (##cdr _e3176631826_))) + (_hd3176531830_ + (let () (declare (not safe)) (##car _e3176631826_)))) + (if (gx#identifier? _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42993_| + _hd3176531830_) + (if (gx#stx-pair? _tl3176431833_) + (let ((_e3176931836_ + (gx#syntax-e _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3176931836_))) + (_hd3176831840_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3176931836_)))) + (if (gx#stx-null? _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) + (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3162931775_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ _hd3170432389_ _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))) + (_g3162931775_))))))) + (if (gx#stx-null? _tl3163732326_) + (___kont4189341894_ _hd3163832323_ _hd3163532313_) + (let () (declare (not safe)) (_g3162931775_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g43058_| - _hd3170732399_) + |gerbil/core$[1]#_g43007_| + _hd3164132333_) (if (gx#stx-pair? - _tl3170632402_) - (let ((_e3175932215_ + _tl3164032336_) + (let ((_e3169332149_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3170632402_))) - (let ((_tl3175732222_ - (let () (declare (not safe)) (##cdr _e3175932215_))) - (_hd3175832219_ + (gx#syntax-e _tl3164032336_))) + (let ((_tl3169132156_ + (let () (declare (not safe)) (##cdr _e3169332149_))) + (_hd3169232153_ (let () (declare (not safe)) - (##car _e3175932215_)))) - (if (gx#stx-null? _tl3175732222_) - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3176232225_ - (gx#syntax-e _tl3170332392_))) - (let ((_tl3176032232_ + (##car _e3169332149_)))) + (if (gx#stx-null? _tl3169132156_) + (if (gx#stx-pair? _tl3163732326_) + (let ((_e3169632159_ + (gx#syntax-e _tl3163732326_))) + (let ((_tl3169432166_ (let () (declare (not safe)) - (##cdr _e3176232225_))) - (_hd3176132229_ + (##cdr _e3169632159_))) + (_hd3169532163_ (let () (declare (not safe)) - (##car _e3176232225_)))) - (if (gx#stx-null? _tl3176032232_) - (___kont4199942000_ - _hd3176132229_ - _hd3175832219_ - _hd3170132379_) - (if (gx#identifier? _hd3176132229_) + (##car _e3169632159_)))) + (if (gx#stx-null? _tl3169432166_) + (___kont4188941890_ + _hd3169532163_ + _hd3169232153_ + _hd3163532313_) + (if (gx#identifier? _hd3169532163_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3176132229_) - (if (gx#stx-pair? _tl3176032232_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g42994_| + _hd3169532163_) + (if (gx#stx-pair? _tl3169432166_) + (let ((_e3173031985_ (gx#syntax-e - _tl3176032232_))) - (let ((_tl3179432058_ + _tl3169432166_))) + (let ((_tl3172831992_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) + (##car _e3173031985_)))) (if (gx#stx-null? - _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3176132229_) - (let ((_e3180931978_ + (_g3162931775_))) + (if (gx#stx-datum? _hd3169532163_) + (let ((_e3174331912_ (gx#stx-e - _hd3176132229_))) - (if (equal? _e3180931978_ '::) + _hd3169532163_))) + (if (equal? _e3174331912_ '::) (if (gx#stx-pair? - _tl3176032232_) - (let ((_e3181231982_ + _tl3169432166_) + (let ((_e3174631916_ (gx#syntax-e - _tl3176032232_))) - (let ((_tl3181031989_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3181231982_))) - (_hd3181131986_ - (let () (declare (not safe)) (##car _e3181231982_)))) - (if (gx#stx-null? _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) - (if (gx#stx-pair? _tl3181031989_) - (let ((_e3183231892_ (gx#syntax-e _tl3181031989_))) - (let ((_tl3183031899_ + _tl3169432166_))) + (let ((_tl3174431923_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e3174631916_))) + (_hd3174531920_ + (let () (declare (not safe)) (##car _e3174631916_)))) + (if (gx#stx-null? _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) + (if (gx#stx-pair? _tl3174431923_) + (let ((_e3176631826_ (gx#syntax-e _tl3174431923_))) + (let ((_tl3176431833_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3176631826_))) + (_hd3176531830_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3176631826_)))) + (if (gx#identifier? _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ + |gerbil/core$[1]#_g42993_| + _hd3176531830_) + (if (gx#stx-pair? _tl3176431833_) + (let ((_e3176931836_ (gx#syntax-e - _tl3183031899_))) - (let ((_tl3183331909_ + _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3176931836_))) + (_hd3176831840_ (let () (declare (not safe)) - (##car _e3183531902_)))) + (##car _e3176931836_)))) (if (gx#stx-null? - _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) - (let () (declare (not safe)) (_g3169531841_))) + (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_)))))) + (let () (declare (not safe)) (_g3162931775_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_)))) + (_g3162931775_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ - _hd3170432389_ - _hd3170132379_) + (_g3162931775_))))))) + (if (gx#stx-null? _tl3163732326_) + (___kont4189341894_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_)))) - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3177332151_ - (gx#syntax-e _tl3170332392_))) - (let ((_tl3177132158_ + (_g3162931775_)))) + (if (gx#stx-pair? _tl3163732326_) + (let ((_e3170732085_ + (gx#syntax-e _tl3163732326_))) + (let ((_tl3170532092_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3170732085_))) + (_hd3170632089_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3170732085_)))) + (if (gx#stx-null? _tl3170532092_) + (___kont4189141892_ + _hd3170632089_ + _hd3163832323_) + (if (gx#identifier? _hd3170632089_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g42994_| + _hd3170632089_) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3173031985_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3179432058_ + _tl3170532092_))) + (let ((_tl3172831992_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) + (##car _e3173031985_)))) (if (gx#stx-null? - _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3177232155_) - (let ((_e3180931978_ + (_g3162931775_))) + (if (gx#stx-datum? _hd3170632089_) + (let ((_e3174331912_ (gx#stx-e - _hd3177232155_))) - (if (equal? _e3180931978_ '::) + _hd3170632089_))) + (if (equal? _e3174331912_ '::) (if (gx#stx-pair? - _tl3177132158_) - (let ((_e3181231982_ + _tl3170532092_) + (let ((_e3174631916_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3181031989_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3181231982_))) - (_hd3181131986_ - (let () (declare (not safe)) (##car _e3181231982_)))) - (if (gx#stx-null? _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) - (if (gx#stx-pair? _tl3181031989_) - (let ((_e3183231892_ (gx#syntax-e _tl3181031989_))) - (let ((_tl3183031899_ + _tl3170532092_))) + (let ((_tl3174431923_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e3174631916_))) + (_hd3174531920_ + (let () (declare (not safe)) (##car _e3174631916_)))) + (if (gx#stx-null? _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) + (if (gx#stx-pair? _tl3174431923_) + (let ((_e3176631826_ (gx#syntax-e _tl3174431923_))) + (let ((_tl3176431833_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3176631826_))) + (_hd3176531830_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3176631826_)))) + (if (gx#identifier? _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ + |gerbil/core$[1]#_g42993_| + _hd3176531830_) + (if (gx#stx-pair? _tl3176431833_) + (let ((_e3176931836_ (gx#syntax-e - _tl3183031899_))) - (let ((_tl3183331909_ + _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3176931836_))) + (_hd3176831840_ (let () (declare (not safe)) - (##car _e3183531902_)))) + (##car _e3176931836_)))) (if (gx#stx-null? - _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) - (let () (declare (not safe)) (_g3169531841_))) + (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_)))))) + (let () (declare (not safe)) (_g3162931775_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_)))) + (_g3162931775_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ - _hd3170432389_ - _hd3170132379_) + (_g3162931775_))))))) + (if (gx#stx-null? _tl3163732326_) + (___kont4189341894_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3177332151_ (gx#syntax-e _tl3170332392_))) - (let ((_tl3177132158_ + (_g3162931775_))))))) + (if (gx#stx-pair? _tl3163732326_) + (let ((_e3170732085_ (gx#syntax-e _tl3163732326_))) + (let ((_tl3170532092_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3170732085_))) + (_hd3170632089_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3170732085_)))) + (if (gx#stx-null? _tl3170532092_) + (___kont4189141892_ + _hd3170632089_ + _hd3163832323_) + (if (gx#identifier? _hd3170632089_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42994_| + _hd3170632089_) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3173031985_ + (gx#syntax-e _tl3170532092_))) + (let ((_tl3172831992_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3173031985_)))) + (if (gx#stx-null? _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3177232155_) - (let ((_e3180931978_ - (gx#stx-e _hd3177232155_))) - (if (equal? _e3180931978_ '::) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3181231982_ + (_g3162931775_))) + (if (gx#stx-datum? _hd3170632089_) + (let ((_e3174331912_ + (gx#stx-e _hd3170632089_))) + (if (equal? _e3174331912_ '::) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3174631916_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3181031989_ + _tl3170532092_))) + (let ((_tl3174431923_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3174631916_))) + (_hd3174531920_ (let () (declare (not safe)) - (##car _e3181231982_)))) + (##car _e3174631916_)))) (if (gx#stx-null? - _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3174431923_) + (let ((_e3176631826_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3181031989_))) - (let ((_tl3183031899_ + (gx#syntax-e _tl3174431923_))) + (let ((_tl3176431833_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3176631826_))) + (_hd3176531830_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3176631826_)))) + (if (gx#identifier? _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42993_| + _hd3176531830_) + (if (gx#stx-pair? _tl3176431833_) + (let ((_e3176931836_ + (gx#syntax-e _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3176931836_))) + (_hd3176831840_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3176931836_)))) + (if (gx#stx-null? _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) + (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3162931775_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ _hd3170432389_ _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))) - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3177332151_ (gx#syntax-e _tl3170332392_))) - (let ((_tl3177132158_ - (let () (declare (not safe)) (##cdr _e3177332151_))) - (_hd3177232155_ + (_g3162931775_))))))) + (if (gx#stx-null? _tl3163732326_) + (___kont4189341894_ _hd3163832323_ _hd3163532313_) + (let () (declare (not safe)) (_g3162931775_))))) + (if (gx#stx-pair? _tl3163732326_) + (let ((_e3170732085_ (gx#syntax-e _tl3163732326_))) + (let ((_tl3170532092_ + (let () (declare (not safe)) (##cdr _e3170732085_))) + (_hd3170632089_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ _hd3177232155_ _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3170732085_)))) + (if (gx#stx-null? _tl3170532092_) + (___kont4189141892_ _hd3170632089_ _hd3163832323_) + (if (gx#identifier? _hd3170632089_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42994_| + _hd3170632089_) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3173031985_ + (gx#syntax-e _tl3170532092_))) + (let ((_tl3172831992_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3173031985_)))) + (if (gx#stx-null? _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3177232155_) - (let ((_e3180931978_ - (gx#stx-e _hd3177232155_))) - (if (equal? _e3180931978_ '::) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3181231982_ + (_g3162931775_))) + (if (gx#stx-datum? _hd3170632089_) + (let ((_e3174331912_ + (gx#stx-e _hd3170632089_))) + (if (equal? _e3174331912_ '::) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3174631916_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3181031989_ + _tl3170532092_))) + (let ((_tl3174431923_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3174631916_))) + (_hd3174531920_ (let () (declare (not safe)) - (##car _e3181231982_)))) + (##car _e3174631916_)))) (if (gx#stx-null? - _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3174431923_) + (let ((_e3176631826_ (gx#syntax-e - _tl3181031989_))) - (let ((_tl3183031899_ + _tl3174431923_))) + (let ((_tl3176431833_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3183231892_))) - (_hd3183131896_ - (let () (declare (not safe)) (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (let () (declare (not safe)) (##cdr _e3176631826_))) + (_hd3176531830_ + (let () (declare (not safe)) (##car _e3176631826_)))) + (if (gx#identifier? _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42993_| + _hd3176531830_) + (if (gx#stx-pair? _tl3176431833_) + (let ((_e3176931836_ + (gx#syntax-e _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3176931836_))) + (_hd3176831840_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3176931836_)))) + (if (gx#stx-null? _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) + (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3162931775_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ _hd3170432389_ _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))))) + (_g3162931775_))))))) + (if (gx#stx-null? _tl3163732326_) + (___kont4189341894_ _hd3163832323_ _hd3163532313_) + (let () (declare (not safe)) (_g3162931775_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3177332151_ + (if (gx#stx-pair? _tl3163732326_) + (let ((_e3170732085_ (gx#syntax-e - _tl3170332392_))) - (let ((_tl3177132158_ + _tl3163732326_))) + (let ((_tl3170532092_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3170732085_))) + (_hd3170632089_ (let () (declare (not safe)) - (##car _e3177332151_)))) + (##car _e3170732085_)))) (if (gx#stx-null? - _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) + _tl3170532092_) + (___kont4189141892_ + _hd3170632089_ + _hd3163832323_) (if (gx#identifier? - _hd3177232155_) + _hd3170632089_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3177232155_) + |gerbil/core$[1]#_g42994_| + _hd3170632089_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl3177132158_) - (let ((_e3179632051_ (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + _tl3170532092_) + (let ((_e3173031985_ (gx#syntax-e _tl3170532092_))) + (let ((_tl3172831992_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3173031985_)))) + (if (gx#stx-null? _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (if (gx#stx-datum? _hd3177232155_) - (let ((_e3180931978_ (gx#stx-e _hd3177232155_))) - (if (equal? _e3180931978_ '::) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3181231982_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3181031989_ + (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))) + (if (gx#stx-datum? _hd3170632089_) + (let ((_e3174331912_ (gx#stx-e _hd3170632089_))) + (if (equal? _e3174331912_ '::) + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3174631916_ + (gx#syntax-e _tl3170532092_))) + (let ((_tl3174431923_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3174631916_))) + (_hd3174531920_ (let () (declare (not safe)) - (##car _e3181231982_)))) - (if (gx#stx-null? _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) - (if (gx#stx-pair? _tl3181031989_) - (let ((_e3183231892_ + (##car _e3174631916_)))) + (if (gx#stx-null? _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) + (if (gx#stx-pair? _tl3174431923_) + (let ((_e3176631826_ (gx#syntax-e - _tl3181031989_))) - (let ((_tl3183031899_ + _tl3174431923_))) + (let ((_tl3176431833_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3176631826_))) + (_hd3176531830_ (let () (declare (not safe)) - (##car _e3183231892_)))) + (##car _e3176631826_)))) (if (gx#identifier? - _hd3183131896_) + _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) + |gerbil/core$[1]#_g42993_| + _hd3176531830_) (if (gx#stx-pair? - _tl3183031899_) - (let ((_e3183531902_ + _tl3176431833_) + (let ((_e3176931836_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + (gx#syntax-e _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3176931836_))) + (_hd3176831840_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) + (##car _e3176931836_)))) + (if (gx#stx-null? _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) + (let () (declare (not safe)) (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_)))))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_)))) - (let () (declare (not safe)) (_g3169531841_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ - _hd3170432389_ - _hd3170132379_) + (_g3162931775_)))))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_)))) + (let () (declare (not safe)) (_g3162931775_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? _tl3163732326_) + (___kont4189341894_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3177332151_ - (gx#syntax-e _tl3170332392_))) - (let ((_tl3177132158_ + (_g3162931775_))))))) + (if (gx#stx-pair? _tl3163732326_) + (let ((_e3170732085_ + (gx#syntax-e _tl3163732326_))) + (let ((_tl3170532092_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3170732085_))) + (_hd3170632089_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) + (##car _e3170732085_)))) + (if (gx#stx-null? _tl3170532092_) + (___kont4189141892_ + _hd3170632089_ + _hd3163832323_) (if (gx#identifier? - _hd3177232155_) + _hd3170632089_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43057_| - _hd3177232155_) + |gerbil/core$[1]#_g42994_| + _hd3170632089_) (if (gx#stx-pair? - _tl3177132158_) - (let ((_e3179632051_ + _tl3170532092_) + (let ((_e3173031985_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ - (let () (declare (not safe)) (##cdr _e3179632051_))) - (_hd3179532055_ + (gx#syntax-e _tl3170532092_))) + (let ((_tl3172831992_ + (let () (declare (not safe)) (##cdr _e3173031985_))) + (_hd3172931989_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) + (##car _e3173031985_)))) + (if (gx#stx-null? _tl3172831992_) + (___kont4189541896_ + _hd3172931989_ + _hd3163832323_ + _hd3163532313_) + (let () (declare (not safe)) (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-datum? - _hd3177232155_) - (let ((_e3180931978_ + _hd3170632089_) + (let ((_e3174331912_ (gx#stx-e - _hd3177232155_))) - (if (equal? _e3180931978_ + _hd3170632089_))) + (if (equal? _e3174331912_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '::) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3181231982_ (gx#syntax-e _tl3177132158_))) - (let ((_tl3181031989_ + (if (gx#stx-pair? _tl3170532092_) + (let ((_e3174631916_ (gx#syntax-e _tl3170532092_))) + (let ((_tl3174431923_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3174631916_))) + (_hd3174531920_ (let () (declare (not safe)) - (##car _e3181231982_)))) - (if (gx#stx-null? _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) - (if (gx#stx-pair? _tl3181031989_) - (let ((_e3183231892_ - (gx#syntax-e _tl3181031989_))) - (let ((_tl3183031899_ + (##car _e3174631916_)))) + (if (gx#stx-null? _tl3174431923_) + (___kont4189741898_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) + (if (gx#stx-pair? _tl3174431923_) + (let ((_e3176631826_ + (gx#syntax-e _tl3174431923_))) + (let ((_tl3176431833_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3176631826_))) + (_hd3176531830_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3176631826_)))) + (if (gx#identifier? _hd3176531830_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43056_| - _hd3183131896_) + |gerbil/core$[1]#_g42993_| + _hd3176531830_) (if (gx#stx-pair? - _tl3183031899_) - (let ((_e3183531902_ + _tl3176431833_) + (let ((_e3176931836_ (gx#syntax-e - _tl3183031899_))) - (let ((_tl3183331909_ + _tl3176431833_))) + (let ((_tl3176731843_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ - (let () (declare (not safe)) (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))) + (##cdr _e3176931836_))) + (_hd3176831840_ + (let () (declare (not safe)) (##car _e3176931836_)))) + (if (gx#stx-null? _tl3176731843_) + (___kont4189941900_ + _hd3176831840_ + _hd3174531920_ + _hd3163832323_ + _hd3163532313_) + (let () (declare (not safe)) (_g3162931775_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3162931775_))) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3162931775_))))) (let () (declare (not safe)) - (_g3169531841_)))))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_)))) - (let () (declare (not safe)) (_g3169531841_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ - _hd3170432389_ - _hd3170132379_) + (_g3162931775_)))))) + (let () (declare (not safe)) (_g3162931775_))) + (let () (declare (not safe)) (_g3162931775_)))) + (let () (declare (not safe)) (_g3162931775_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? _tl3163732326_) + (___kont4189341894_ + _hd3163832323_ + _hd3163532313_) (let () (declare (not safe)) - (_g3169531841_))))))) - (let () (declare (not safe)) (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))))) + (_g3162931775_))))))) + (let () (declare (not safe)) (_g3162931775_))))) + (let () (declare (not safe)) (_g3162931775_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-match| - (lambda (_$stx32484_) - (let* ((___stx4225642257_ _$stx32484_) - (_g3248932523_ + (lambda (_$stx32418_) + (let* ((___stx4214642147_ _$stx32418_) + (_g3242332457_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4225642257_)))) - (let ((___kont4225942260_ - (lambda (_L32627_ _L32629_ _L32630_) + ___stx4214642147_)))) + (let ((___kont4214942150_ + (lambda (_L32561_ _L32563_ _L32564_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _L32630_ + (cons _L32564_ (cons (cons (gx#datum->syntax '#f 'make-match-macro) @@ -8812,9 +8812,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$match-e) - (cons _L32629_ '())) + (cons _L32563_ '())) (cons (cons (gx#datum->syntax '#f '$macro-e) - (cons _L32627_ '())) + (cons _L32561_ '())) '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$stx) @@ -8871,11 +8871,11 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont4226142262_ - (lambda (_L32560_ _L32562_ _L32563_) - (cons _L32563_ - (cons _L32562_ - (cons _L32560_ + (___kont4215142152_ + (lambda (_L32494_ _L32496_ _L32497_) + (cons _L32497_ + (cons _L32496_ + (cons _L32494_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -8892,138 +8892,138 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (let ((___match4228942290_ - (lambda (_e3249632587_ - _hd3249532591_ - _tl3249432594_ - _e3249932597_ - _hd3249832601_ - _tl3249732604_ - _e3250232607_ - _hd3250132611_ - _tl3250032614_ - _e3250532617_ - _hd3250432621_ - _tl3250332624_) - (let ((_L32627_ _hd3250432621_) - (_L32629_ _hd3250132611_) - (_L32630_ _hd3249832601_)) - (if (gx#identifier? _L32630_) - (___kont4225942260_ _L32627_ _L32629_ _L32630_) - (let () (declare (not safe)) (_g3248932523_))))))) - (if (gx#stx-pair? ___stx4225642257_) - (let ((_e3249632587_ (gx#syntax-e ___stx4225642257_))) - (let ((_tl3249432594_ - (let () (declare (not safe)) (##cdr _e3249632587_))) - (_hd3249532591_ + (let ((___match4217942180_ + (lambda (_e3243032521_ + _hd3242932525_ + _tl3242832528_ + _e3243332531_ + _hd3243232535_ + _tl3243132538_ + _e3243632541_ + _hd3243532545_ + _tl3243432548_ + _e3243932551_ + _hd3243832555_ + _tl3243732558_) + (let ((_L32561_ _hd3243832555_) + (_L32563_ _hd3243532545_) + (_L32564_ _hd3243232535_)) + (if (gx#identifier? _L32564_) + (___kont4214942150_ _L32561_ _L32563_ _L32564_) + (let () (declare (not safe)) (_g3242332457_))))))) + (if (gx#stx-pair? ___stx4214642147_) + (let ((_e3243032521_ (gx#syntax-e ___stx4214642147_))) + (let ((_tl3242832528_ + (let () (declare (not safe)) (##cdr _e3243032521_))) + (_hd3242932525_ (let () (declare (not safe)) - (##car _e3249632587_)))) - (if (gx#stx-pair? _tl3249432594_) - (let ((_e3249932597_ (gx#syntax-e _tl3249432594_))) - (let ((_tl3249732604_ + (##car _e3243032521_)))) + (if (gx#stx-pair? _tl3242832528_) + (let ((_e3243332531_ (gx#syntax-e _tl3242832528_))) + (let ((_tl3243132538_ (let () (declare (not safe)) - (##cdr _e3249932597_))) - (_hd3249832601_ + (##cdr _e3243332531_))) + (_hd3243232535_ (let () (declare (not safe)) - (##car _e3249932597_)))) - (if (gx#stx-pair? _tl3249732604_) - (let ((_e3250232607_ - (gx#syntax-e _tl3249732604_))) - (let ((_tl3250032614_ + (##car _e3243332531_)))) + (if (gx#stx-pair? _tl3243132538_) + (let ((_e3243632541_ + (gx#syntax-e _tl3243132538_))) + (let ((_tl3243432548_ (let () (declare (not safe)) - (##cdr _e3250232607_))) - (_hd3250132611_ + (##cdr _e3243632541_))) + (_hd3243532545_ (let () (declare (not safe)) - (##car _e3250232607_)))) - (if (gx#stx-pair? _tl3250032614_) - (let ((_e3250532617_ - (gx#syntax-e _tl3250032614_))) - (let ((_tl3250332624_ + (##car _e3243632541_)))) + (if (gx#stx-pair? _tl3243432548_) + (let ((_e3243932551_ + (gx#syntax-e _tl3243432548_))) + (let ((_tl3243732558_ (let () (declare (not safe)) - (##cdr _e3250532617_))) - (_hd3250432621_ + (##cdr _e3243932551_))) + (_hd3243832555_ (let () (declare (not safe)) - (##car _e3250532617_)))) - (if (gx#stx-null? _tl3250332624_) - (___match4228942290_ - _e3249632587_ - _hd3249532591_ - _tl3249432594_ - _e3249932597_ - _hd3249832601_ - _tl3249732604_ - _e3250232607_ - _hd3250132611_ - _tl3250032614_ - _e3250532617_ - _hd3250432621_ - _tl3250332624_) + (##car _e3243932551_)))) + (if (gx#stx-null? _tl3243732558_) + (___match4217942180_ + _e3243032521_ + _hd3242932525_ + _tl3242832528_ + _e3243332531_ + _hd3243232535_ + _tl3243132538_ + _e3243632541_ + _hd3243532545_ + _tl3243432548_ + _e3243932551_ + _hd3243832555_ + _tl3243732558_) (let () (declare (not safe)) - (_g3248932523_))))) - (if (gx#stx-null? _tl3250032614_) - (___kont4226142262_ - _hd3250132611_ - _hd3249832601_ - _hd3249532591_) + (_g3242332457_))))) + (if (gx#stx-null? _tl3243432548_) + (___kont4215142152_ + _hd3243532545_ + _hd3243232535_ + _hd3242932525_) (let () (declare (not safe)) - (_g3248932523_)))))) + (_g3242332457_)))))) (let () (declare (not safe)) - (_g3248932523_))))) - (let () (declare (not safe)) (_g3248932523_))))) - (let () (declare (not safe)) (_g3248932523_)))))))) + (_g3242332457_))))) + (let () (declare (not safe)) (_g3242332457_))))) + (let () (declare (not safe)) (_g3242332457_)))))))) (define |gerbil/core$[:0:]#defrules-for-match| - (lambda (_$stx32652_) - (let* ((_g3265632671_ - (lambda (_g3265732667_) + (lambda (_$stx32586_) + (let* ((_g3259032605_ + (lambda (_g3259132601_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3265732667_))) - (_g3265532714_ - (lambda (_g3265732675_) - (if (gx#stx-pair? _g3265732675_) - (let ((_e3266232678_ (gx#syntax-e _g3265732675_))) - (let ((_hd3266132682_ + _g3259132601_))) + (_g3258932648_ + (lambda (_g3259132609_) + (if (gx#stx-pair? _g3259132609_) + (let ((_e3259632612_ (gx#syntax-e _g3259132609_))) + (let ((_hd3259532616_ (let () (declare (not safe)) - (##car _e3266232678_))) - (_tl3266032685_ + (##car _e3259632612_))) + (_tl3259432619_ (let () (declare (not safe)) - (##cdr _e3266232678_)))) - (if (gx#stx-pair? _tl3266032685_) - (let ((_e3266532688_ - (gx#syntax-e _tl3266032685_))) - (let ((_hd3266432692_ + (##cdr _e3259632612_)))) + (if (gx#stx-pair? _tl3259432619_) + (let ((_e3259932622_ + (gx#syntax-e _tl3259432619_))) + (let ((_hd3259832626_ (let () (declare (not safe)) - (##car _e3266532688_))) - (_tl3266332695_ + (##car _e3259932622_))) + (_tl3259732629_ (let () (declare (not safe)) - (##cdr _e3266532688_)))) - ((lambda (_L32698_ _L32700_) + (##cdr _e3259932622_)))) + ((lambda (_L32632_ _L32634_) (cons (gx#datum->syntax '#f 'defsyntax-for-match) - (cons _L32700_ + (cons _L32634_ (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _L32698_) + _L32632_) '())))) - _tl3266332695_ - _hd3266432692_))) - (_g3265632671_ _g3265732675_)))) - (_g3265632671_ _g3265732675_))))) - (_g3265532714_ _$stx32652_)))))) + _tl3259732629_ + _hd3259832626_))) + (_g3259032605_ _g3259132609_)))) + (_g3259032605_ _g3259132609_))))) + (_g3258932648_ _$stx32586_)))))) diff --git a/src/bootstrap/gerbil/core__11.scm b/src/bootstrap/gerbil/core__11.scm index a3cb94aaf..2ba6ccb4b 100644 --- a/src/bootstrap/gerbil/core__11.scm +++ b/src/bootstrap/gerbil/core__11.scm @@ -1,34 +1,34 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[2]#_g43063_| + (define |gerbil/core$[2]#_g42874_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43065_| + (define |gerbil/core$[2]#_g42876_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43066_| + (define |gerbil/core$[2]#_g42877_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43067_| + (define |gerbil/core$[2]#_g42878_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43068_| + (define |gerbil/core$[2]#_g42879_| (##structure gx#syntax-quote::t 'match-macro? @@ -36,20 +36,20 @@ (gx#current-expander-context) '())) (define |gerbil/core$[:1:]#match-macro| - (let ((__tmp43069 |gerbil/core$[2]#_g43066_|) - (__tmp43064 - (cons (cons |gerbil/core$[2]#_g43065_| '()) - (cons |gerbil/core$[2]#_g43066_| - (cons |gerbil/core$[2]#_g43067_| - (cons |gerbil/core$[2]#_g43068_| + (let ((__tmp42880 |gerbil/core$[2]#_g42877_|) + (__tmp42875 + (cons (cons |gerbil/core$[2]#_g42876_| '()) + (cons |gerbil/core$[2]#_g42877_| + (cons |gerbil/core$[2]#_g42878_| + (cons |gerbil/core$[2]#_g42879_| (cons '() (cons '() '()))))))) - (__tmp43061 - (let ((__tmp43062 (list |gerbil/core$[2]#_g43063_|))) + (__tmp42872 + (let ((__tmp42873 (list |gerbil/core$[2]#_g42874_|))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#match-macro::t - __tmp43062 + __tmp42873 'match-macro '#f '() @@ -58,8 +58,8 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp43069 + __tmp42880 'expander-identifiers: - __tmp43064 + __tmp42875 'type-exhibitor: - __tmp43061)))) + __tmp42872)))) diff --git a/src/bootstrap/gerbil/core__12.scm b/src/bootstrap/gerbil/core__12.scm index 32d7aed65..1c6872730 100644 --- a/src/bootstrap/gerbil/core__12.scm +++ b/src/bootstrap/gerbil/core__12.scm @@ -1,41 +1,41 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#:| - (lambda (_$stx32719_) - (let ((_g3272232729_ - (lambda (_g3272332725_) + (lambda (_$stx32653_) + (let ((_g3265632663_ + (lambda (_g3265732659_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3272332725_)))) - (_g3272232729_ _$stx32719_)))) + _g3265732659_)))) + (_g3265632663_ _$stx32653_)))) (define |gerbil/core$[:0:]#:~| - (lambda (_$stx32733_) - (let ((_g3273632743_ - (lambda (_g3273732739_) + (lambda (_$stx32667_) + (let ((_g3267032677_ + (lambda (_g3267132673_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3273732739_)))) - (_g3273632743_ _$stx32733_)))) + _g3267132673_)))) + (_g3267032677_ _$stx32667_)))) (define |gerbil/core$[:0:]#:-| - (lambda (_$stx32747_) - (let ((_g3275032757_ - (lambda (_g3275132753_) + (lambda (_$stx32681_) + (let ((_g3268432691_ + (lambda (_g3268532687_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3275132753_)))) - (_g3275032757_ _$stx32747_)))) + _g3268532687_)))) + (_g3268432691_ _$stx32681_)))) (define |gerbil/core$[:0:]#:=| - (lambda (_$stx32761_) - (let ((_g3276432771_ - (lambda (_g3276532767_) + (lambda (_$stx32695_) + (let ((_g3269832705_ + (lambda (_g3269932701_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3276532767_)))) - (_g3276432771_ _$stx32761_)))) + _g3269932701_)))) + (_g3269832705_ _$stx32695_)))) (define |gerbil/core$[1]#setq-macro::t| (make-class-type 'gerbil.core#setq-macro::t @@ -47,10 +47,10 @@ (define |gerbil/core$[1]#setq-macro?| (make-class-predicate |gerbil/core$[1]#setq-macro::t|)) (define |gerbil/core$[1]#make-setq-macro| - (lambda _$args32786_ + (lambda _$args32720_ (apply make-class-instance |gerbil/core$[1]#setq-macro::t| - _$args32786_))) + _$args32720_))) (define |gerbil/core$[1]#setf-macro::t| (make-class-type 'gerbil.core#setf-macro::t @@ -62,1220 +62,1220 @@ (define |gerbil/core$[1]#setf-macro?| (make-class-predicate |gerbil/core$[1]#setf-macro::t|)) (define |gerbil/core$[1]#make-setf-macro| - (lambda _$args32782_ + (lambda _$args32716_ (apply make-class-instance |gerbil/core$[1]#setf-macro::t| - _$args32782_))) + _$args32716_))) (define |gerbil/core$[1]#syntax-local-setf-macro?| - (lambda (_stx32779_) - (if (gx#identifier? _stx32779_) - (let ((__tmp43070 (gx#syntax-local-value _stx32779_ false))) + (lambda (_stx32713_) + (if (gx#identifier? _stx32713_) + (let ((__tmp42881 (gx#syntax-local-value _stx32713_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setf-macro::t| - __tmp43070)) + __tmp42881)) '#f))) (define |gerbil/core$[1]#syntax-local-setq-macro?| - (lambda (_stx32776_) - (if (gx#identifier? _stx32776_) - (let ((__tmp43071 (gx#syntax-local-value _stx32776_ false))) + (lambda (_stx32710_) + (if (gx#identifier? _stx32710_) + (let ((__tmp42882 (gx#syntax-local-value _stx32710_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setq-macro::t| - __tmp43071)) + __tmp42882)) '#f))) (define |gerbil/core$[:0:]#set!| - (lambda (_stx32790_) - (let* ((___stx4231242313_ _stx32790_) - (_g3279632855_ + (lambda (_stx32724_) + (let* ((___stx4220242203_ _stx32724_) + (_g3273032789_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4231242313_)))) - (let ((___kont4231542316_ - (lambda (_L33128_) + ___stx4220242203_)))) + (let ((___kont4220542206_ + (lambda (_L33062_) (gx#core-apply-expander - (gx#syntax-local-e _L33128_) - _stx32790_))) - (___kont4231742318_ - (lambda (_L33027_ _L33029_ _L33030_) - (let* ((_g3305233060_ - (lambda (_g3305333056_) + (gx#syntax-local-e _L33062_) + _stx32724_))) + (___kont4220742208_ + (lambda (_L32961_ _L32963_ _L32964_) + (let* ((_g3298632994_ + (lambda (_g3298732990_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3305333056_))) - (_g3305133087_ - (lambda (_g3305333064_) - ((lambda (_L33067_) + _g3298732990_))) + (_g3298533021_ + (lambda (_g3298732998_) + ((lambda (_L33001_) (let () - (cons _L33067_ - (foldr (lambda (_g3307833081_ - _g3307933084_) - (cons _g3307833081_ - _g3307933084_)) - (cons _L33027_ '()) - _L33029_)))) - _g3305333064_)))) - (_g3305133087_ - (gx#stx-identifier _L33030_ _L33030_ '"-set!"))))) - (___kont4232142322_ - (lambda (_L32937_) + (cons _L33001_ + (foldr (lambda (_g3301233015_ + _g3301333018_) + (cons _g3301233015_ + _g3301333018_)) + (cons _L32961_ '()) + _L32963_)))) + _g3298732998_)))) + (_g3298533021_ + (gx#stx-identifier _L32964_ _L32964_ '"-set!"))))) + (___kont4221142212_ + (lambda (_L32871_) (gx#core-apply-expander - (gx#syntax-local-e _L32937_) - _stx32790_))) - (___kont4232342324_ - (lambda (_L32892_ _L32894_) + (gx#syntax-local-e _L32871_) + _stx32724_))) + (___kont4221342214_ + (lambda (_L32826_ _L32828_) (cons (gx#datum->syntax '#f '%#set!) - (cons _L32894_ (cons _L32892_ '())))))) - (let* ((___match4240342404_ - (lambda (_e3284332862_ - _hd3284232866_ - _tl3284132869_ - _e3284632872_ - _hd3284532876_ - _tl3284432879_ - _e3284932882_ - _hd3284832886_ - _tl3284732889_) - (let ((_L32892_ _hd3284832886_) (_L32894_ _hd3284532876_)) - (if (gx#identifier? _L32894_) - (___kont4232342324_ _L32892_ _L32894_) - (let () (declare (not safe)) (_g3279632855_)))))) - (___match4238342384_ - (lambda (_e3283532917_ - _hd3283432921_ - _tl3283332924_ - _e3283832927_ - _hd3283732931_ - _tl3283632934_) - (let ((_L32937_ _hd3283732931_)) + (cons _L32828_ (cons _L32826_ '())))))) + (let* ((___match4229342294_ + (lambda (_e3277732796_ + _hd3277632800_ + _tl3277532803_ + _e3278032806_ + _hd3277932810_ + _tl3277832813_ + _e3278332816_ + _hd3278232820_ + _tl3278132823_) + (let ((_L32826_ _hd3278232820_) (_L32828_ _hd3277932810_)) + (if (gx#identifier? _L32828_) + (___kont4221342214_ _L32826_ _L32828_) + (let () (declare (not safe)) (_g3273032789_)))))) + (___match4227342274_ + (lambda (_e3276932851_ + _hd3276832855_ + _tl3276732858_ + _e3277232861_ + _hd3277132865_ + _tl3277032868_) + (let ((_L32871_ _hd3277132865_)) (if (let () (declare (not safe)) (|gerbil/core$[1]#syntax-local-setq-macro?| - _L32937_)) - (___kont4232142322_ _L32937_) - (if (gx#stx-pair? _tl3283632934_) - (let ((_e3284932882_ - (gx#syntax-e _tl3283632934_))) - (let ((_tl3284732889_ + _L32871_)) + (___kont4221142212_ _L32871_) + (if (gx#stx-pair? _tl3277032868_) + (let ((_e3278332816_ + (gx#syntax-e _tl3277032868_))) + (let ((_tl3278132823_ (let () (declare (not safe)) - (##cdr _e3284932882_))) - (_hd3284832886_ + (##cdr _e3278332816_))) + (_hd3278232820_ (let () (declare (not safe)) - (##car _e3284932882_)))) - (if (gx#stx-null? _tl3284732889_) - (___match4240342404_ - _e3283532917_ - _hd3283432921_ - _tl3283332924_ - _e3283832927_ - _hd3283732931_ - _tl3283632934_ - _e3284932882_ - _hd3284832886_ - _tl3284732889_) + (##car _e3278332816_)))) + (if (gx#stx-null? _tl3278132823_) + (___match4229342294_ + _e3276932851_ + _hd3276832855_ + _tl3276732858_ + _e3277232861_ + _hd3277132865_ + _tl3277032868_ + _e3278332816_ + _hd3278232820_ + _tl3278132823_) (let () (declare (not safe)) - (_g3279632855_))))) + (_g3273032789_))))) (let () (declare (not safe)) - (_g3279632855_))))))) - (___match4237142372_ - (lambda (_e3281332957_ - _hd3281232961_ - _tl3281132964_ - _e3281632967_ - _hd3281532971_ - _tl3281432974_ - _e3281932977_ - _hd3281832981_ - _tl3281732984_ - ___splice4231942320_ - _target3282032987_ - _tl3282232990_) - (letrec ((_loop3282332993_ - (lambda (_hd3282132997_ _arg3282733000_) - (if (gx#stx-pair? _hd3282132997_) - (let ((_e3282433003_ - (gx#syntax-e _hd3282132997_))) - (let ((_lp-tl3282633010_ + (_g3273032789_))))))) + (___match4226142262_ + (lambda (_e3274732891_ + _hd3274632895_ + _tl3274532898_ + _e3275032901_ + _hd3274932905_ + _tl3274832908_ + _e3275332911_ + _hd3275232915_ + _tl3275132918_ + ___splice4220942210_ + _target3275432921_ + _tl3275632924_) + (letrec ((_loop3275732927_ + (lambda (_hd3275532931_ _arg3276132934_) + (if (gx#stx-pair? _hd3275532931_) + (let ((_e3275832937_ + (gx#syntax-e _hd3275532931_))) + (let ((_lp-tl3276032944_ (let () (declare (not safe)) - (##cdr _e3282433003_))) - (_lp-hd3282533007_ + (##cdr _e3275832937_))) + (_lp-hd3275932941_ (let () (declare (not safe)) - (##car _e3282433003_)))) - (_loop3282332993_ - _lp-tl3282633010_ - (cons _lp-hd3282533007_ - _arg3282733000_)))) - (let ((_arg3282833013_ - (reverse _arg3282733000_))) - (if (gx#stx-pair? _tl3281432974_) - (let ((_e3283133017_ - (gx#syntax-e _tl3281432974_))) - (let ((_tl3282933024_ + (##car _e3275832937_)))) + (_loop3275732927_ + _lp-tl3276032944_ + (cons _lp-hd3275932941_ + _arg3276132934_)))) + (let ((_arg3276232947_ + (reverse _arg3276132934_))) + (if (gx#stx-pair? _tl3274832908_) + (let ((_e3276532951_ + (gx#syntax-e _tl3274832908_))) + (let ((_tl3276332958_ (let () (declare (not safe)) - (##cdr _e3283133017_))) - (_hd3283033021_ + (##cdr _e3276532951_))) + (_hd3276432955_ (let () (declare (not safe)) - (##car _e3283133017_)))) - (if (gx#stx-null? _tl3282933024_) - (let ((_L33027_ - _hd3283033021_) - (_L33029_ - _arg3282833013_) - (_L33030_ - _hd3281832981_)) + (##car _e3276532951_)))) + (if (gx#stx-null? _tl3276332958_) + (let ((_L32961_ + _hd3276432955_) + (_L32963_ + _arg3276232947_) + (_L32964_ + _hd3275232915_)) (if (gx#identifier? - _L33030_) - (___kont4231742318_ - _L33027_ - _L33029_ - _L33030_) - (___match4238342384_ - _e3281332957_ - _hd3281232961_ - _tl3281132964_ - _e3281632967_ - _hd3281532971_ - _tl3281432974_))) - (___match4238342384_ - _e3281332957_ - _hd3281232961_ - _tl3281132964_ - _e3281632967_ - _hd3281532971_ - _tl3281432974_)))) - (___match4238342384_ - _e3281332957_ - _hd3281232961_ - _tl3281132964_ - _e3281632967_ - _hd3281532971_ - _tl3281432974_))))))) - (_loop3282332993_ _target3282032987_ '()))))) - (if (gx#stx-pair? ___stx4231242313_) - (let ((_e3280133098_ (gx#syntax-e ___stx4231242313_))) - (let ((_tl3279933105_ - (let () (declare (not safe)) (##cdr _e3280133098_))) - (_hd3280033102_ - (let () (declare (not safe)) (##car _e3280133098_)))) - (if (gx#stx-pair? _tl3279933105_) - (let ((_e3280433108_ (gx#syntax-e _tl3279933105_))) - (let ((_tl3280233115_ + _L32964_) + (___kont4220742208_ + _L32961_ + _L32963_ + _L32964_) + (___match4227342274_ + _e3274732891_ + _hd3274632895_ + _tl3274532898_ + _e3275032901_ + _hd3274932905_ + _tl3274832908_))) + (___match4227342274_ + _e3274732891_ + _hd3274632895_ + _tl3274532898_ + _e3275032901_ + _hd3274932905_ + _tl3274832908_)))) + (___match4227342274_ + _e3274732891_ + _hd3274632895_ + _tl3274532898_ + _e3275032901_ + _hd3274932905_ + _tl3274832908_))))))) + (_loop3275732927_ _target3275432921_ '()))))) + (if (gx#stx-pair? ___stx4220242203_) + (let ((_e3273533032_ (gx#syntax-e ___stx4220242203_))) + (let ((_tl3273333039_ + (let () (declare (not safe)) (##cdr _e3273533032_))) + (_hd3273433036_ + (let () (declare (not safe)) (##car _e3273533032_)))) + (if (gx#stx-pair? _tl3273333039_) + (let ((_e3273833042_ (gx#syntax-e _tl3273333039_))) + (let ((_tl3273633049_ (let () (declare (not safe)) - (##cdr _e3280433108_))) - (_hd3280333112_ + (##cdr _e3273833042_))) + (_hd3273733046_ (let () (declare (not safe)) - (##car _e3280433108_)))) - (if (gx#stx-pair? _hd3280333112_) - (let ((_e3280733118_ - (gx#syntax-e _hd3280333112_))) - (let ((_tl3280533125_ + (##car _e3273833042_)))) + (if (gx#stx-pair? _hd3273733046_) + (let ((_e3274133052_ + (gx#syntax-e _hd3273733046_))) + (let ((_tl3273933059_ (let () (declare (not safe)) - (##cdr _e3280733118_))) - (_hd3280633122_ + (##cdr _e3274133052_))) + (_hd3274033056_ (let () (declare (not safe)) - (##car _e3280733118_)))) - (if (let ((__tmp43072 + (##car _e3274133052_)))) + (if (let ((__tmp42883 (gx#datum->syntax '#f 'setfid))) (declare (not safe)) (|gerbil/core$[1]#syntax-local-setf-macro?| - __tmp43072)) - (let ((_L33128_ _hd3280633122_)) - (___kont4231542316_ _L33128_)) - (if (gx#stx-pair/null? _tl3280533125_) - (let ((___splice4231942320_ + __tmp42883)) + (let ((_L33062_ _hd3274033056_)) + (___kont4220542206_ _L33062_)) + (if (gx#stx-pair/null? _tl3273933059_) + (let ((___splice4220942210_ (gx#syntax-split-splice - _tl3280533125_ + _tl3273933059_ '0))) - (let ((_tl3282232990_ + (let ((_tl3275632924_ (let () (declare (not safe)) (##vector-ref - ___splice4231942320_ + ___splice4220942210_ '1))) - (_target3282032987_ + (_target3275432921_ (let () (declare (not safe)) (##vector-ref - ___splice4231942320_ + ___splice4220942210_ '0)))) (if (gx#stx-null? - _tl3282232990_) - (___match4237142372_ - _e3280133098_ - _hd3280033102_ - _tl3279933105_ - _e3280433108_ - _hd3280333112_ - _tl3280233115_ - _e3280733118_ - _hd3280633122_ - _tl3280533125_ - ___splice4231942320_ - _target3282032987_ - _tl3282232990_) - (___match4238342384_ - _e3280133098_ - _hd3280033102_ - _tl3279933105_ - _e3280433108_ - _hd3280333112_ - _tl3280233115_)))) - (___match4238342384_ - _e3280133098_ - _hd3280033102_ - _tl3279933105_ - _e3280433108_ - _hd3280333112_ - _tl3280233115_))))) - (___match4238342384_ - _e3280133098_ - _hd3280033102_ - _tl3279933105_ - _e3280433108_ - _hd3280333112_ - _tl3280233115_)))) - (let () (declare (not safe)) (_g3279632855_))))) - (let () (declare (not safe)) (_g3279632855_)))))))) + _tl3275632924_) + (___match4226142262_ + _e3273533032_ + _hd3273433036_ + _tl3273333039_ + _e3273833042_ + _hd3273733046_ + _tl3273633049_ + _e3274133052_ + _hd3274033056_ + _tl3273933059_ + ___splice4220942210_ + _target3275432921_ + _tl3275632924_) + (___match4227342274_ + _e3273533032_ + _hd3273433036_ + _tl3273333039_ + _e3273833042_ + _hd3273733046_ + _tl3273633049_)))) + (___match4227342274_ + _e3273533032_ + _hd3273433036_ + _tl3273333039_ + _e3273833042_ + _hd3273733046_ + _tl3273633049_))))) + (___match4227342274_ + _e3273533032_ + _hd3273433036_ + _tl3273333039_ + _e3273833042_ + _hd3273733046_ + _tl3273633049_)))) + (let () (declare (not safe)) (_g3273032789_))))) + (let () (declare (not safe)) (_g3273032789_)))))))) (define |gerbil/core$[:0:]#values-set!| - (lambda (_stx33148_) - (let* ((_g3315133175_ - (lambda (_g3315233171_) + (lambda (_stx33082_) + (let* ((_g3308533109_ + (lambda (_g3308633105_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3315233171_))) - (_g3315033353_ - (lambda (_g3315233179_) - (if (gx#stx-pair? _g3315233179_) - (let ((_e3315733182_ (gx#syntax-e _g3315233179_))) - (let ((_hd3315633186_ + _g3308633105_))) + (_g3308433287_ + (lambda (_g3308633113_) + (if (gx#stx-pair? _g3308633113_) + (let ((_e3309133116_ (gx#syntax-e _g3308633113_))) + (let ((_hd3309033120_ (let () (declare (not safe)) - (##car _e3315733182_))) - (_tl3315533189_ + (##car _e3309133116_))) + (_tl3308933123_ (let () (declare (not safe)) - (##cdr _e3315733182_)))) - (if (gx#stx-pair/null? _tl3315533189_) - (if (fx>= (gx#stx-length _tl3315533189_) '1) - (let ((_g43073_ + (##cdr _e3309133116_)))) + (if (gx#stx-pair/null? _tl3308933123_) + (if (fx>= (gx#stx-length _tl3308933123_) '1) + (let ((_g42884_ (gx#syntax-split-splice - _tl3315533189_ + _tl3308933123_ '1))) (begin - (let ((_g43074_ + (let ((_g42885_ (let () (declare (not safe)) - (if (##values? _g43073_) - (##vector-length _g43073_) + (if (##values? _g42884_) + (##vector-length _g42884_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43074_ 2))) + (##fx= _g42885_ 2))) (error "Context expects 2 values" - _g43074_))) - (let ((_target3315833192_ + _g42885_))) + (let ((_target3309233126_ (let () (declare (not safe)) - (##vector-ref _g43073_ 0))) - (_tl3316033195_ + (##vector-ref _g42884_ 0))) + (_tl3309433129_ (let () (declare (not safe)) - (##vector-ref _g43073_ 1)))) - (if (gx#stx-pair? _tl3316033195_) - (let ((_e3316933198_ - (gx#syntax-e _tl3316033195_))) - (let ((_hd3316833202_ + (##vector-ref _g42884_ 1)))) + (if (gx#stx-pair? _tl3309433129_) + (let ((_e3310333132_ + (gx#syntax-e _tl3309433129_))) + (let ((_hd3310233136_ (let () (declare (not safe)) - (##car _e3316933198_))) - (_tl3316733205_ + (##car _e3310333132_))) + (_tl3310133139_ (let () (declare (not safe)) - (##cdr _e3316933198_)))) - (if (gx#stx-null? _tl3316733205_) - (letrec ((_loop3316133208_ - (lambda (_hd3315933212_ + (##cdr _e3310333132_)))) + (if (gx#stx-null? _tl3310133139_) + (letrec ((_loop3309533142_ + (lambda (_hd3309333146_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tgt3316533215_) - (if (gx#stx-pair? _hd3315933212_) - (let ((_e3316233218_ (gx#syntax-e _hd3315933212_))) - (let ((_lp-hd3316333222_ + _tgt3309933149_) + (if (gx#stx-pair? _hd3309333146_) + (let ((_e3309633152_ (gx#syntax-e _hd3309333146_))) + (let ((_lp-hd3309733156_ (let () (declare (not safe)) - (##car _e3316233218_))) - (_lp-tl3316433225_ + (##car _e3309633152_))) + (_lp-tl3309833159_ (let () (declare (not safe)) - (##cdr _e3316233218_)))) - (_loop3316133208_ - _lp-tl3316433225_ - (cons _lp-hd3316333222_ _tgt3316533215_)))) - (let ((_tgt3316633228_ (reverse _tgt3316533215_))) - ((lambda (_L33232_ _L33234_) - (let* ((_g3325233269_ - (lambda (_g3325333265_) + (##cdr _e3309633152_)))) + (_loop3309533142_ + _lp-tl3309833159_ + (cons _lp-hd3309733156_ _tgt3309933149_)))) + (let ((_tgt3310033162_ (reverse _tgt3309933149_))) + ((lambda (_L33166_ _L33168_) + (let* ((_g3318633203_ + (lambda (_g3318733199_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3325333265_))) - (_g3325133341_ - (lambda (_g3325333273_) - (if (gx#stx-pair/null? _g3325333273_) - (let ((_g43075_ + _g3318733199_))) + (_g3318533275_ + (lambda (_g3318733207_) + (if (gx#stx-pair/null? _g3318733207_) + (let ((_g42886_ (gx#syntax-split-splice - _g3325333273_ + _g3318733207_ '0))) (begin - (let ((_g43076_ + (let ((_g42887_ (let () (declare (not safe)) (if (##values? - _g43075_) + _g42886_) (##vector-length - _g43075_) + _g42886_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43076_ + (##fx= _g42887_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g43076_))) + (error "Context expects 2 values" _g42887_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3325533276_ + (let ((_target3318933210_ (let () (declare (not safe)) (##vector-ref - _g43075_ + _g42886_ 0))) - (_tl3325733279_ + (_tl3319133213_ (let () (declare (not safe)) (##vector-ref - _g43075_ + _g42886_ 1)))) (if (gx#stx-null? - _tl3325733279_) - (letrec ((_loop3325833282_ + _tl3319133213_) + (letrec ((_loop3319233216_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd3325633286_ _$e3326233289_) - (if (gx#stx-pair? _hd3325633286_) - (let ((_e3325933292_ - (gx#syntax-e _hd3325633286_))) - (let ((_lp-hd3326033296_ + (lambda (_hd3319033220_ _$e3319633223_) + (if (gx#stx-pair? _hd3319033220_) + (let ((_e3319333226_ + (gx#syntax-e _hd3319033220_))) + (let ((_lp-hd3319433230_ (let () (declare (not safe)) - (##car _e3325933292_))) - (_lp-tl3326133299_ + (##car _e3319333226_))) + (_lp-tl3319533233_ (let () (declare (not safe)) - (##cdr _e3325933292_)))) - (_loop3325833282_ - _lp-tl3326133299_ - (cons _lp-hd3326033296_ _$e3326233289_)))) - (let ((_$e3326333302_ (reverse _$e3326233289_))) - ((lambda (_L33306_) + (##cdr _e3319333226_)))) + (_loop3319233216_ + _lp-tl3319533233_ + (cons _lp-hd3319433230_ _$e3319633223_)))) + (let ((_$e3319733236_ (reverse _$e3319633223_))) + ((lambda (_L33240_) (let () (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (foldr (lambda (_g3332433327_ + (cons (cons (cons (foldr (lambda (_g3325833261_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3332533330_) - (cons _g3332433327_ _g3332533330_)) + _g3325933264_) + (cons _g3325833261_ _g3325933264_)) '() - _L33306_) - (cons _L33232_ '())) + _L33240_) + (cons _L33166_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _L33306_ - _L33234_) - (foldr (lambda (_g3332133333_ + _L33240_ + _L33168_) + (foldr (lambda (_g3325533267_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3332233336_ - _g3332333338_) + _g3325633270_ + _g3325733272_) (cons (cons (gx#datum->syntax '#f 'set!) - (cons _g3332233336_ (cons _g3332133333_ '()))) - _g3332333338_)) + (cons _g3325633270_ (cons _g3325533267_ '()))) + _g3325733272_)) '() - _L33306_ - _L33234_)))))) + _L33240_ + _L33168_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e3326333302_)))))) - (_loop3325833282_ _target3325533276_ '())) - (_g3325233269_ _g3325333273_))))) + _$e3319733236_)))))) + (_loop3319233216_ _target3318933210_ '())) + (_g3318633203_ _g3318733207_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3325233269_ _g3325333273_))))) - (_g3325133341_ + (_g3318633203_ _g3318733207_))))) + (_g3318533275_ (gx#gentemps - (foldr (lambda (_g3334433347_ _g3334533350_) - (cons _g3334433347_ _g3334533350_)) + (foldr (lambda (_g3327833281_ _g3327933284_) + (cons _g3327833281_ _g3327933284_)) '() - _L33234_))))) - _hd3316833202_ - _tgt3316633228_)))))) + _L33168_))))) + _hd3310233136_ + _tgt3310033162_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3316133208_ - _target3315833192_ + (_loop3309533142_ + _target3309233126_ '())) - (_g3315133175_ - _g3315233179_)))) - (_g3315133175_ _g3315233179_))))) - (_g3315133175_ _g3315233179_)) - (_g3315133175_ _g3315233179_)))) - (_g3315133175_ _g3315233179_))))) - (_g3315033353_ _stx33148_)))) + (_g3308533109_ + _g3308633113_)))) + (_g3308533109_ _g3308633113_))))) + (_g3308533109_ _g3308633113_)) + (_g3308533109_ _g3308633113_)))) + (_g3308533109_ _g3308633113_))))) + (_g3308433287_ _stx33082_)))) (define |gerbil/core$[:0:]#parameterize| - (lambda (_stx33359_) - (let* ((___stx4240642407_ _stx33359_) - (_g3336333421_ + (lambda (_stx33293_) + (let* ((___stx4229642297_ _stx33293_) + (_g3329733355_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4240642407_)))) - (let ((___kont4240942410_ - (lambda (_L33755_) + ___stx4229642297_)))) + (let ((___kont4229942300_ + (lambda (_L33689_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_g3377133774_ _g3377233777_) - (cons _g3377133774_ _g3377233777_)) + (foldr (lambda (_g3370533708_ _g3370633711_) + (cons _g3370533708_ _g3370633711_)) '() - _L33755_))))) - (___kont4241342414_ - (lambda (_L33532_ _L33534_ _L33535_) - (let* ((_g3355833566_ - (lambda (_g3355933562_) + _L33689_))))) + (___kont4230342304_ + (lambda (_L33466_ _L33468_ _L33469_) + (let* ((_g3349233500_ + (lambda (_g3349333496_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3355933562_))) - (_g3355733686_ - (lambda (_g3355933570_) - ((lambda (_L33573_) + _g3349333496_))) + (_g3349133620_ + (lambda (_g3349333504_) + ((lambda (_L33507_) (let () - (let* ((_g3358533602_ - (lambda (_g3358633598_) + (let* ((_g3351933536_ + (lambda (_g3352033532_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3358633598_))) - (_g3358433666_ - (lambda (_g3358633606_) - (if (gx#stx-pair/null? _g3358633606_) - (let ((_g43077_ + _g3352033532_))) + (_g3351833600_ + (lambda (_g3352033540_) + (if (gx#stx-pair/null? _g3352033540_) + (let ((_g42888_ (gx#syntax-split-splice - _g3358633606_ + _g3352033540_ '0))) (begin - (let ((_g43078_ + (let ((_g42889_ (let () (declare (not safe)) (if (##values? - _g43077_) + _g42888_) (##vector-length - _g43077_) + _g42888_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g43078_ 2))) - (error "Context expects 2 values" _g43078_))) + (##fx= _g42889_ 2))) + (error "Context expects 2 values" _g42889_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3358833609_ + (let ((_target3352233543_ (let () (declare (not safe)) (##vector-ref - _g43077_ + _g42888_ 0))) - (_tl3359033612_ + (_tl3352433546_ (let () (declare (not safe)) (##vector-ref - _g43077_ + _g42888_ 1)))) (if (gx#stx-null? - _tl3359033612_) - (letrec ((_loop3359133615_ + _tl3352433546_) + (letrec ((_loop3352533549_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd3358933619_ _arg3359533622_) - (if (gx#stx-pair? _hd3358933619_) - (let ((_e3359233625_ - (gx#syntax-e _hd3358933619_))) - (let ((_lp-hd3359333629_ + (lambda (_hd3352333553_ _arg3352933556_) + (if (gx#stx-pair? _hd3352333553_) + (let ((_e3352633559_ + (gx#syntax-e _hd3352333553_))) + (let ((_lp-hd3352733563_ (let () (declare (not safe)) - (##car _e3359233625_))) - (_lp-tl3359433632_ + (##car _e3352633559_))) + (_lp-tl3352833566_ (let () (declare (not safe)) - (##cdr _e3359233625_)))) - (_loop3359133615_ - _lp-tl3359433632_ - (cons _lp-hd3359333629_ - _arg3359533622_)))) - (let ((_arg3359633635_ - (reverse _arg3359533622_))) - ((lambda (_L33639_) + (##cdr _e3352633559_)))) + (_loop3352533549_ + _lp-tl3352833566_ + (cons _lp-hd3352733563_ + _arg3352933556_)))) + (let ((_arg3353033569_ + (reverse _arg3352933556_))) + ((lambda (_L33573_) (let () (let () (cons (gx#datum->syntax '#f 'call-with-parameters) - (cons _L33573_ - (foldr (lambda (_g3365733660_ + (cons _L33507_ + (foldr (lambda (_g3359133594_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3365833663_) - (cons _g3365733660_ _g3365833663_)) + _g3359233597_) + (cons _g3359133594_ _g3359233597_)) '() - _L33639_)))))) + _L33573_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _arg3359633635_)))))) - (_loop3359133615_ _target3358833609_ '())) - (_g3358533602_ _g3358633606_))))) + _arg3353033569_)))))) + (_loop3352533549_ _target3352233543_ '())) + (_g3351933536_ _g3352033540_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3358533602_ _g3358633606_))))) - (_g3358433666_ + (_g3351933536_ _g3352033540_))))) + (_g3351833600_ (foldr cons* '() (gx#syntax->list - (foldr (lambda (_g3366933672_ - _g3367033675_) - (cons _g3366933672_ - _g3367033675_)) + (foldr (lambda (_g3360333606_ + _g3360433609_) + (cons _g3360333606_ + _g3360433609_)) '() - _L33535_)) + _L33469_)) (gx#syntax->list - (foldr (lambda (_g3367733680_ - _g3367833683_) - (cons _g3367733680_ - _g3367833683_)) + (foldr (lambda (_g3361133614_ + _g3361233617_) + (cons _g3361133614_ + _g3361233617_)) '() - _L33534_))))))) - _g3355933570_)))) - (_g3355733686_ + _L33468_))))))) + _g3349333504_)))) + (_g3349133620_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (foldr (lambda (_g3368933692_ _g3369033695_) - (cons _g3368933692_ _g3369033695_)) + (foldr (lambda (_g3362333626_ _g3362433629_) + (cons _g3362333626_ _g3362433629_)) '() - _L33532_))) - (gx#stx-source _stx33359_))))))) - (let* ((___match4246142462_ - (lambda (_e3338633428_ - _hd3338533432_ - _tl3338433435_ - _e3338933438_ - _hd3338833442_ - _tl3338733445_ - ___splice4241542416_ - _target3339033448_ - _tl3339233451_) - (letrec ((_loop3339333454_ - (lambda (_hd3339133458_ - _expr3339733461_ - _param3339833463_) - (if (gx#stx-pair? _hd3339133458_) - (let ((_e3339433466_ - (gx#syntax-e _hd3339133458_))) - (let ((_lp-tl3339633473_ + _L33466_))) + (gx#stx-source _stx33293_))))))) + (let* ((___match4235142352_ + (lambda (_e3332033362_ + _hd3331933366_ + _tl3331833369_ + _e3332333372_ + _hd3332233376_ + _tl3332133379_ + ___splice4230542306_ + _target3332433382_ + _tl3332633385_) + (letrec ((_loop3332733388_ + (lambda (_hd3332533392_ + _expr3333133395_ + _param3333233397_) + (if (gx#stx-pair? _hd3332533392_) + (let ((_e3332833400_ + (gx#syntax-e _hd3332533392_))) + (let ((_lp-tl3333033407_ (let () (declare (not safe)) - (##cdr _e3339433466_))) - (_lp-hd3339533470_ + (##cdr _e3332833400_))) + (_lp-hd3332933404_ (let () (declare (not safe)) - (##car _e3339433466_)))) - (if (gx#stx-pair? _lp-hd3339533470_) - (let ((_e3340333476_ + (##car _e3332833400_)))) + (if (gx#stx-pair? _lp-hd3332933404_) + (let ((_e3333733410_ (gx#syntax-e - _lp-hd3339533470_))) - (let ((_tl3340133483_ + _lp-hd3332933404_))) + (let ((_tl3333533417_ (let () (declare (not safe)) - (##cdr _e3340333476_))) - (_hd3340233480_ + (##cdr _e3333733410_))) + (_hd3333633414_ (let () (declare (not safe)) - (##car _e3340333476_)))) + (##car _e3333733410_)))) (if (gx#stx-pair? - _tl3340133483_) - (let ((_e3340633486_ + _tl3333533417_) + (let ((_e3334033420_ (gx#syntax-e - _tl3340133483_))) - (let ((_tl3340433493_ + _tl3333533417_))) + (let ((_tl3333833427_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3340633486_))) - (_hd3340533490_ - (let () (declare (not safe)) (##car _e3340633486_)))) - (if (gx#stx-null? _tl3340433493_) - (_loop3339333454_ - _lp-tl3339633473_ - (cons _hd3340533490_ _expr3339733461_) - (cons _hd3340233480_ _param3339833463_)) - (let () (declare (not safe)) (_g3336333421_))))) + (##cdr _e3334033420_))) + (_hd3333933424_ + (let () (declare (not safe)) (##car _e3334033420_)))) + (if (gx#stx-null? _tl3333833427_) + (_loop3332733388_ + _lp-tl3333033407_ + (cons _hd3333933424_ _expr3333133395_) + (cons _hd3333633414_ _param3333233397_)) + (let () (declare (not safe)) (_g3329733355_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3336333421_))))) + (_g3329733355_))))) (let () (declare (not safe)) - (_g3336333421_))))) - (let ((_param3340033499_ - (reverse _param3339833463_)) - (_expr3339933496_ - (reverse _expr3339733461_))) - (if (gx#stx-pair/null? _tl3338733445_) - (let ((___splice4241742418_ + (_g3329733355_))))) + (let ((_param3333433433_ + (reverse _param3333233397_)) + (_expr3333333430_ + (reverse _expr3333133395_))) + (if (gx#stx-pair/null? _tl3332133379_) + (let ((___splice4230742308_ (gx#syntax-split-splice - _tl3338733445_ + _tl3332133379_ '0))) - (let ((_tl3340933505_ + (let ((_tl3334333439_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4230742308_ '1))) - (_target3340733502_ + (_target3334133436_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4230742308_ '0)))) - (if (gx#stx-null? _tl3340933505_) - (letrec ((_loop3341033508_ - (lambda (_hd3340833512_ + (if (gx#stx-null? _tl3334333439_) + (letrec ((_loop3334433442_ + (lambda (_hd3334233446_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3341433515_) - (if (gx#stx-pair? _hd3340833512_) - (let ((_e3341133518_ (gx#syntax-e _hd3340833512_))) - (let ((_lp-tl3341333525_ + _body3334833449_) + (if (gx#stx-pair? _hd3334233446_) + (let ((_e3334533452_ (gx#syntax-e _hd3334233446_))) + (let ((_lp-tl3334733459_ (let () (declare (not safe)) - (##cdr _e3341133518_))) - (_lp-hd3341233522_ + (##cdr _e3334533452_))) + (_lp-hd3334633456_ (let () (declare (not safe)) - (##car _e3341133518_)))) - (_loop3341033508_ - _lp-tl3341333525_ - (cons _lp-hd3341233522_ _body3341433515_)))) - (let ((_body3341533528_ (reverse _body3341433515_))) - (___kont4241342414_ - _body3341533528_ - _expr3339933496_ - _param3340033499_)))))) + (##car _e3334533452_)))) + (_loop3334433442_ + _lp-tl3334733459_ + (cons _lp-hd3334633456_ _body3334833449_)))) + (let ((_body3334933462_ (reverse _body3334833449_))) + (___kont4230342304_ + _body3334933462_ + _expr3333333430_ + _param3333433433_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3341033508_ - _target3340733502_ + (_loop3334433442_ + _target3334133436_ '())) (let () (declare (not safe)) - (_g3336333421_))))) + (_g3329733355_))))) (let () (declare (not safe)) - (_g3336333421_)))))))) - (_loop3339333454_ _target3339033448_ '() '())))) - (___match4244142442_ - (lambda (_e3336833705_ - _hd3336733709_ - _tl3336633712_ - _e3337133715_ - _hd3337033719_ - _tl3336933722_ - ___splice4241142412_ - _target3337233725_ - _tl3337433728_) - (letrec ((_loop3337533731_ - (lambda (_hd3337333735_ _body3337933738_) - (if (gx#stx-pair? _hd3337333735_) - (let ((_e3337633741_ - (gx#syntax-e _hd3337333735_))) - (let ((_lp-tl3337833748_ + (_g3329733355_)))))))) + (_loop3332733388_ _target3332433382_ '() '())))) + (___match4233142332_ + (lambda (_e3330233639_ + _hd3330133643_ + _tl3330033646_ + _e3330533649_ + _hd3330433653_ + _tl3330333656_ + ___splice4230142302_ + _target3330633659_ + _tl3330833662_) + (letrec ((_loop3330933665_ + (lambda (_hd3330733669_ _body3331333672_) + (if (gx#stx-pair? _hd3330733669_) + (let ((_e3331033675_ + (gx#syntax-e _hd3330733669_))) + (let ((_lp-tl3331233682_ (let () (declare (not safe)) - (##cdr _e3337633741_))) - (_lp-hd3337733745_ + (##cdr _e3331033675_))) + (_lp-hd3331133679_ (let () (declare (not safe)) - (##car _e3337633741_)))) - (_loop3337533731_ - _lp-tl3337833748_ - (cons _lp-hd3337733745_ - _body3337933738_)))) - (let ((_body3338033751_ - (reverse _body3337933738_))) - (___kont4240942410_ - _body3338033751_)))))) - (_loop3337533731_ _target3337233725_ '()))))) - (if (gx#stx-pair? ___stx4240642407_) - (let ((_e3336833705_ (gx#syntax-e ___stx4240642407_))) - (let ((_tl3336633712_ - (let () (declare (not safe)) (##cdr _e3336833705_))) - (_hd3336733709_ - (let () (declare (not safe)) (##car _e3336833705_)))) - (if (gx#stx-pair? _tl3336633712_) - (let ((_e3337133715_ (gx#syntax-e _tl3336633712_))) - (let ((_tl3336933722_ + (##car _e3331033675_)))) + (_loop3330933665_ + _lp-tl3331233682_ + (cons _lp-hd3331133679_ + _body3331333672_)))) + (let ((_body3331433685_ + (reverse _body3331333672_))) + (___kont4229942300_ + _body3331433685_)))))) + (_loop3330933665_ _target3330633659_ '()))))) + (if (gx#stx-pair? ___stx4229642297_) + (let ((_e3330233639_ (gx#syntax-e ___stx4229642297_))) + (let ((_tl3330033646_ + (let () (declare (not safe)) (##cdr _e3330233639_))) + (_hd3330133643_ + (let () (declare (not safe)) (##car _e3330233639_)))) + (if (gx#stx-pair? _tl3330033646_) + (let ((_e3330533649_ (gx#syntax-e _tl3330033646_))) + (let ((_tl3330333656_ (let () (declare (not safe)) - (##cdr _e3337133715_))) - (_hd3337033719_ + (##cdr _e3330533649_))) + (_hd3330433653_ (let () (declare (not safe)) - (##car _e3337133715_)))) - (if (gx#stx-null? _hd3337033719_) - (if (gx#stx-pair/null? _tl3336933722_) - (let ((___splice4241142412_ + (##car _e3330533649_)))) + (if (gx#stx-null? _hd3330433653_) + (if (gx#stx-pair/null? _tl3330333656_) + (let ((___splice4230142302_ (gx#syntax-split-splice - _tl3336933722_ + _tl3330333656_ '0))) - (let ((_tl3337433728_ + (let ((_tl3330833662_ (let () (declare (not safe)) (##vector-ref - ___splice4241142412_ + ___splice4230142302_ '1))) - (_target3337233725_ + (_target3330633659_ (let () (declare (not safe)) (##vector-ref - ___splice4241142412_ + ___splice4230142302_ '0)))) - (if (gx#stx-null? _tl3337433728_) - (___match4244142442_ - _e3336833705_ - _hd3336733709_ - _tl3336633712_ - _e3337133715_ - _hd3337033719_ - _tl3336933722_ - ___splice4241142412_ - _target3337233725_ - _tl3337433728_) + (if (gx#stx-null? _tl3330833662_) + (___match4233142332_ + _e3330233639_ + _hd3330133643_ + _tl3330033646_ + _e3330533649_ + _hd3330433653_ + _tl3330333656_ + ___splice4230142302_ + _target3330633659_ + _tl3330833662_) (if (gx#stx-pair/null? - _hd3337033719_) - (let ((___splice4241542416_ + _hd3330433653_) + (let ((___splice4230542306_ (gx#syntax-split-splice - _hd3337033719_ + _hd3330433653_ '0))) - (let ((_tl3339233451_ + (let ((_tl3332633385_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4230542306_ '1))) - (_target3339033448_ + (_target3332433382_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4230542306_ '0)))) (if (gx#stx-null? - _tl3339233451_) - (___match4246142462_ - _e3336833705_ - _hd3336733709_ - _tl3336633712_ - _e3337133715_ - _hd3337033719_ - _tl3336933722_ - ___splice4241542416_ - _target3339033448_ - _tl3339233451_) + _tl3332633385_) + (___match4235142352_ + _e3330233639_ + _hd3330133643_ + _tl3330033646_ + _e3330533649_ + _hd3330433653_ + _tl3330333656_ + ___splice4230542306_ + _target3332433382_ + _tl3332633385_) (let () (declare (not safe)) - (_g3336333421_))))) + (_g3329733355_))))) (let () (declare (not safe)) - (_g3336333421_)))))) - (if (gx#stx-pair/null? _hd3337033719_) - (let ((___splice4241542416_ + (_g3329733355_)))))) + (if (gx#stx-pair/null? _hd3330433653_) + (let ((___splice4230542306_ (gx#syntax-split-splice - _hd3337033719_ + _hd3330433653_ '0))) - (let ((_tl3339233451_ + (let ((_tl3332633385_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4230542306_ '1))) - (_target3339033448_ + (_target3332433382_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4230542306_ '0)))) - (if (gx#stx-null? _tl3339233451_) - (___match4246142462_ - _e3336833705_ - _hd3336733709_ - _tl3336633712_ - _e3337133715_ - _hd3337033719_ - _tl3336933722_ - ___splice4241542416_ - _target3339033448_ - _tl3339233451_) + (if (gx#stx-null? _tl3332633385_) + (___match4235142352_ + _e3330233639_ + _hd3330133643_ + _tl3330033646_ + _e3330533649_ + _hd3330433653_ + _tl3330333656_ + ___splice4230542306_ + _target3332433382_ + _tl3332633385_) (let () (declare (not safe)) - (_g3336333421_))))) + (_g3329733355_))))) (let () (declare (not safe)) - (_g3336333421_)))) - (if (gx#stx-pair/null? _hd3337033719_) - (let ((___splice4241542416_ + (_g3329733355_)))) + (if (gx#stx-pair/null? _hd3330433653_) + (let ((___splice4230542306_ (gx#syntax-split-splice - _hd3337033719_ + _hd3330433653_ '0))) - (let ((_tl3339233451_ + (let ((_tl3332633385_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4230542306_ '1))) - (_target3339033448_ + (_target3332433382_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4230542306_ '0)))) - (if (gx#stx-null? _tl3339233451_) - (___match4246142462_ - _e3336833705_ - _hd3336733709_ - _tl3336633712_ - _e3337133715_ - _hd3337033719_ - _tl3336933722_ - ___splice4241542416_ - _target3339033448_ - _tl3339233451_) + (if (gx#stx-null? _tl3332633385_) + (___match4235142352_ + _e3330233639_ + _hd3330133643_ + _tl3330033646_ + _e3330533649_ + _hd3330433653_ + _tl3330333656_ + ___splice4230542306_ + _target3332433382_ + _tl3332633385_) (let () (declare (not safe)) - (_g3336333421_))))) + (_g3329733355_))))) (let () (declare (not safe)) - (_g3336333421_)))))) - (let () (declare (not safe)) (_g3336333421_))))) - (let () (declare (not safe)) (_g3336333421_)))))))) + (_g3329733355_)))))) + (let () (declare (not safe)) (_g3329733355_))))) + (let () (declare (not safe)) (_g3329733355_)))))))) (define |gerbil/core$[:0:]#let/cc| - (lambda (_$stx33788_) - (let* ((_g3379233816_ - (lambda (_g3379333812_) + (lambda (_$stx33722_) + (let* ((_g3372633750_ + (lambda (_g3372733746_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3379333812_))) - (_g3379133901_ - (lambda (_g3379333820_) - (if (gx#stx-pair? _g3379333820_) - (let ((_e3379833823_ (gx#syntax-e _g3379333820_))) - (let ((_hd3379733827_ + _g3372733746_))) + (_g3372533835_ + (lambda (_g3372733754_) + (if (gx#stx-pair? _g3372733754_) + (let ((_e3373233757_ (gx#syntax-e _g3372733754_))) + (let ((_hd3373133761_ (let () (declare (not safe)) - (##car _e3379833823_))) - (_tl3379633830_ + (##car _e3373233757_))) + (_tl3373033764_ (let () (declare (not safe)) - (##cdr _e3379833823_)))) - (if (gx#stx-pair? _tl3379633830_) - (let ((_e3380133833_ (gx#syntax-e _tl3379633830_))) - (let ((_hd3380033837_ + (##cdr _e3373233757_)))) + (if (gx#stx-pair? _tl3373033764_) + (let ((_e3373533767_ (gx#syntax-e _tl3373033764_))) + (let ((_hd3373433771_ (let () (declare (not safe)) - (##car _e3380133833_))) - (_tl3379933840_ + (##car _e3373533767_))) + (_tl3373333774_ (let () (declare (not safe)) - (##cdr _e3380133833_)))) - (if (gx#stx-pair/null? _tl3379933840_) - (let ((_g43079_ + (##cdr _e3373533767_)))) + (if (gx#stx-pair/null? _tl3373333774_) + (let ((_g42890_ (gx#syntax-split-splice - _tl3379933840_ + _tl3373333774_ '0))) (begin - (let ((_g43080_ + (let ((_g42891_ (let () (declare (not safe)) - (if (##values? _g43079_) - (##vector-length _g43079_) + (if (##values? _g42890_) + (##vector-length _g42890_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43080_ 2))) + (##fx= _g42891_ 2))) (error "Context expects 2 values" - _g43080_))) - (let ((_target3380233843_ + _g42891_))) + (let ((_target3373633777_ (let () (declare (not safe)) - (##vector-ref _g43079_ 0))) - (_tl3380433846_ + (##vector-ref _g42890_ 0))) + (_tl3373833780_ (let () (declare (not safe)) - (##vector-ref _g43079_ 1)))) - (if (gx#stx-null? _tl3380433846_) - (letrec ((_loop3380533849_ - (lambda (_hd3380333853_ + (##vector-ref _g42890_ 1)))) + (if (gx#stx-null? _tl3373833780_) + (letrec ((_loop3373933783_ + (lambda (_hd3373733787_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3380933856_) - (if (gx#stx-pair? _hd3380333853_) - (let ((_e3380633859_ (gx#syntax-e _hd3380333853_))) - (let ((_lp-hd3380733863_ + _body3374333790_) + (if (gx#stx-pair? _hd3373733787_) + (let ((_e3374033793_ (gx#syntax-e _hd3373733787_))) + (let ((_lp-hd3374133797_ (let () (declare (not safe)) - (##car _e3380633859_))) - (_lp-tl3380833866_ + (##car _e3374033793_))) + (_lp-tl3374233800_ (let () (declare (not safe)) - (##cdr _e3380633859_)))) - (_loop3380533849_ - _lp-tl3380833866_ - (cons _lp-hd3380733863_ _body3380933856_)))) - (let ((_body3381033869_ (reverse _body3380933856_))) - ((lambda (_L33873_ _L33875_) - (if (gx#identifier? _L33875_) + (##cdr _e3374033793_)))) + (_loop3373933783_ + _lp-tl3374233800_ + (cons _lp-hd3374133797_ _body3374333790_)))) + (let ((_body3374433803_ (reverse _body3374333790_))) + ((lambda (_L33807_ _L33809_) + (if (gx#identifier? _L33809_) (cons (gx#datum->syntax '#f 'call/cc) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _L33875_ '()) - (foldr (lambda (_g3389233895_ + (cons (cons _L33809_ '()) + (foldr (lambda (_g3382633829_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3389333898_) - (cons _g3389233895_ _g3389333898_)) + _g3382733832_) + (cons _g3382633829_ _g3382733832_)) '() - _L33873_))) + _L33807_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_g3379233816_ _g3379333820_))) - _body3381033869_ - _hd3380033837_)))))) + (_g3372633750_ _g3372733754_))) + _body3374433803_ + _hd3373433771_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3380533849_ - _target3380233843_ + (_loop3373933783_ + _target3373633777_ '())) - (_g3379233816_ _g3379333820_))))) - (_g3379233816_ _g3379333820_)))) - (_g3379233816_ _g3379333820_)))) - (_g3379233816_ _g3379333820_))))) - (_g3379133901_ _$stx33788_)))) + (_g3372633750_ _g3372733754_))))) + (_g3372633750_ _g3372733754_)))) + (_g3372633750_ _g3372733754_)))) + (_g3372633750_ _g3372733754_))))) + (_g3372533835_ _$stx33722_)))) (define |gerbil/core$[:0:]#let/esc| - (lambda (_$stx33906_) - (let* ((_g3391033934_ - (lambda (_g3391133930_) + (lambda (_$stx33840_) + (let* ((_g3384433868_ + (lambda (_g3384533864_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3391133930_))) - (_g3390934019_ - (lambda (_g3391133938_) - (if (gx#stx-pair? _g3391133938_) - (let ((_e3391633941_ (gx#syntax-e _g3391133938_))) - (let ((_hd3391533945_ + _g3384533864_))) + (_g3384333953_ + (lambda (_g3384533872_) + (if (gx#stx-pair? _g3384533872_) + (let ((_e3385033875_ (gx#syntax-e _g3384533872_))) + (let ((_hd3384933879_ (let () (declare (not safe)) - (##car _e3391633941_))) - (_tl3391433948_ + (##car _e3385033875_))) + (_tl3384833882_ (let () (declare (not safe)) - (##cdr _e3391633941_)))) - (if (gx#stx-pair? _tl3391433948_) - (let ((_e3391933951_ (gx#syntax-e _tl3391433948_))) - (let ((_hd3391833955_ + (##cdr _e3385033875_)))) + (if (gx#stx-pair? _tl3384833882_) + (let ((_e3385333885_ (gx#syntax-e _tl3384833882_))) + (let ((_hd3385233889_ (let () (declare (not safe)) - (##car _e3391933951_))) - (_tl3391733958_ + (##car _e3385333885_))) + (_tl3385133892_ (let () (declare (not safe)) - (##cdr _e3391933951_)))) - (if (gx#stx-pair/null? _tl3391733958_) - (let ((_g43081_ + (##cdr _e3385333885_)))) + (if (gx#stx-pair/null? _tl3385133892_) + (let ((_g42892_ (gx#syntax-split-splice - _tl3391733958_ + _tl3385133892_ '0))) (begin - (let ((_g43082_ + (let ((_g42893_ (let () (declare (not safe)) - (if (##values? _g43081_) - (##vector-length _g43081_) + (if (##values? _g42892_) + (##vector-length _g42892_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43082_ 2))) + (##fx= _g42893_ 2))) (error "Context expects 2 values" - _g43082_))) - (let ((_target3392033961_ + _g42893_))) + (let ((_target3385433895_ (let () (declare (not safe)) - (##vector-ref _g43081_ 0))) - (_tl3392233964_ + (##vector-ref _g42892_ 0))) + (_tl3385633898_ (let () (declare (not safe)) - (##vector-ref _g43081_ 1)))) - (if (gx#stx-null? _tl3392233964_) - (letrec ((_loop3392333967_ - (lambda (_hd3392133971_ + (##vector-ref _g42892_ 1)))) + (if (gx#stx-null? _tl3385633898_) + (letrec ((_loop3385733901_ + (lambda (_hd3385533905_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3392733974_) - (if (gx#stx-pair? _hd3392133971_) - (let ((_e3392433977_ (gx#syntax-e _hd3392133971_))) - (let ((_lp-hd3392533981_ + _body3386133908_) + (if (gx#stx-pair? _hd3385533905_) + (let ((_e3385833911_ (gx#syntax-e _hd3385533905_))) + (let ((_lp-hd3385933915_ (let () (declare (not safe)) - (##car _e3392433977_))) - (_lp-tl3392633984_ + (##car _e3385833911_))) + (_lp-tl3386033918_ (let () (declare (not safe)) - (##cdr _e3392433977_)))) - (_loop3392333967_ - _lp-tl3392633984_ - (cons _lp-hd3392533981_ _body3392733974_)))) - (let ((_body3392833987_ (reverse _body3392733974_))) - ((lambda (_L33991_ _L33993_) - (if (gx#identifier? _L33993_) + (##cdr _e3385833911_)))) + (_loop3385733901_ + _lp-tl3386033918_ + (cons _lp-hd3385933915_ _body3386133908_)))) + (let ((_body3386233921_ (reverse _body3386133908_))) + ((lambda (_L33925_ _L33927_) + (if (gx#identifier? _L33927_) (cons (gx#datum->syntax '#f 'call/esc) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _L33993_ '()) - (foldr (lambda (_g3401034013_ + (cons (cons _L33927_ '()) + (foldr (lambda (_g3394433947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3401134016_) - (cons _g3401034013_ _g3401134016_)) + _g3394533950_) + (cons _g3394433947_ _g3394533950_)) '() - _L33991_))) + _L33925_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_g3391033934_ _g3391133938_))) - _body3392833987_ - _hd3391833955_)))))) + (_g3384433868_ _g3384533872_))) + _body3386233921_ + _hd3385233889_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3392333967_ - _target3392033961_ + (_loop3385733901_ + _target3385433895_ '())) - (_g3391033934_ _g3391133938_))))) - (_g3391033934_ _g3391133938_)))) - (_g3391033934_ _g3391133938_)))) - (_g3391033934_ _g3391133938_))))) - (_g3390934019_ _$stx33906_)))) + (_g3384433868_ _g3384533872_))))) + (_g3384433868_ _g3384533872_)))) + (_g3384433868_ _g3384533872_)))) + (_g3384433868_ _g3384533872_))))) + (_g3384333953_ _$stx33840_)))) (define |gerbil/core$[:0:]#unwind-protect| - (lambda (_$stx34024_) - (let* ((_g3402834056_ - (lambda (_g3402934052_) + (lambda (_$stx33958_) + (let* ((_g3396233990_ + (lambda (_g3396333986_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3402934052_))) - (_g3402734155_ - (lambda (_g3402934060_) - (if (gx#stx-pair? _g3402934060_) - (let ((_e3403534063_ (gx#syntax-e _g3402934060_))) - (let ((_hd3403434067_ + _g3396333986_))) + (_g3396134089_ + (lambda (_g3396333994_) + (if (gx#stx-pair? _g3396333994_) + (let ((_e3396933997_ (gx#syntax-e _g3396333994_))) + (let ((_hd3396834001_ (let () (declare (not safe)) - (##car _e3403534063_))) - (_tl3403334070_ + (##car _e3396933997_))) + (_tl3396734004_ (let () (declare (not safe)) - (##cdr _e3403534063_)))) - (if (gx#stx-pair? _tl3403334070_) - (let ((_e3403834073_ (gx#syntax-e _tl3403334070_))) - (let ((_hd3403734077_ + (##cdr _e3396933997_)))) + (if (gx#stx-pair? _tl3396734004_) + (let ((_e3397234007_ (gx#syntax-e _tl3396734004_))) + (let ((_hd3397134011_ (let () (declare (not safe)) - (##car _e3403834073_))) - (_tl3403634080_ + (##car _e3397234007_))) + (_tl3397034014_ (let () (declare (not safe)) - (##cdr _e3403834073_)))) - (if (gx#stx-pair? _tl3403634080_) - (let ((_e3404134083_ - (gx#syntax-e _tl3403634080_))) - (let ((_hd3404034087_ + (##cdr _e3397234007_)))) + (if (gx#stx-pair? _tl3397034014_) + (let ((_e3397534017_ + (gx#syntax-e _tl3397034014_))) + (let ((_hd3397434021_ (let () (declare (not safe)) - (##car _e3404134083_))) - (_tl3403934090_ + (##car _e3397534017_))) + (_tl3397334024_ (let () (declare (not safe)) - (##cdr _e3404134083_)))) - (if (gx#stx-pair/null? _tl3403934090_) - (let ((_g43083_ + (##cdr _e3397534017_)))) + (if (gx#stx-pair/null? _tl3397334024_) + (let ((_g42894_ (gx#syntax-split-splice - _tl3403934090_ + _tl3397334024_ '0))) (begin - (let ((_g43084_ + (let ((_g42895_ (let () (declare (not safe)) (if (##values? - _g43083_) + _g42894_) (##vector-length - _g43083_) + _g42894_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43084_ + (##fx= _g42895_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g43084_))) + (error "Context expects 2 values" _g42895_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3404234093_ + (let ((_target3397634027_ (let () (declare (not safe)) (##vector-ref - _g43083_ + _g42894_ 0))) - (_tl3404434096_ + (_tl3397834030_ (let () (declare (not safe)) (##vector-ref - _g43083_ + _g42894_ 1)))) (if (gx#stx-null? - _tl3404434096_) - (letrec ((_loop3404534099_ - (lambda (_hd3404334103_ + _tl3397834030_) + (letrec ((_loop3397934033_ + (lambda (_hd3397734037_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest3404934106_) - (if (gx#stx-pair? _hd3404334103_) - (let ((_e3404634109_ - (gx#syntax-e _hd3404334103_))) - (let ((_lp-hd3404734113_ + _rest3398334040_) + (if (gx#stx-pair? _hd3397734037_) + (let ((_e3398034043_ + (gx#syntax-e _hd3397734037_))) + (let ((_lp-hd3398134047_ (let () (declare (not safe)) - (##car _e3404634109_))) - (_lp-tl3404834116_ + (##car _e3398034043_))) + (_lp-tl3398234050_ (let () (declare (not safe)) - (##cdr _e3404634109_)))) - (_loop3404534099_ - _lp-tl3404834116_ - (cons _lp-hd3404734113_ _rest3404934106_)))) - (let ((_rest3405034119_ - (reverse _rest3404934106_))) - ((lambda (_L34123_ _L34125_ _L34126_) + (##cdr _e3398034043_)))) + (_loop3397934033_ + _lp-tl3398234050_ + (cons _lp-hd3398134047_ _rest3398334040_)))) + (let ((_rest3398434053_ + (reverse _rest3398334040_))) + ((lambda (_L34057_ _L34059_ _L34060_) (cons (gx#datum->syntax '#f 'with-unwind-protect) @@ -1283,7 +1283,7 @@ '#f 'lambda) (cons '() - (cons _L34126_ + (cons _L34060_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1292,80 +1292,80 @@ 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L34125_ - (foldr (lambda (_g3414634149_ _g3414734152_) - (cons _g3414634149_ _g3414734152_)) + (cons _L34059_ + (foldr (lambda (_g3408034083_ _g3408134086_) + (cons _g3408034083_ _g3408134086_)) '() - _L34123_)))) + _L34057_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _rest3405034119_ - _hd3404034087_ - _hd3403734077_)))))) - (_loop3404534099_ _target3404234093_ '())) - (_g3402834056_ _g3402934060_))))) + _rest3398434053_ + _hd3397434021_ + _hd3397134011_)))))) + (_loop3397934033_ _target3397634027_ '())) + (_g3396233990_ _g3396333994_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3402834056_ _g3402934060_)))) - (_g3402834056_ _g3402934060_)))) - (_g3402834056_ _g3402934060_)))) - (_g3402834056_ _g3402934060_))))) - (_g3402734155_ _$stx34024_)))) + (_g3396233990_ _g3396333994_)))) + (_g3396233990_ _g3396333994_)))) + (_g3396233990_ _g3396333994_)))) + (_g3396233990_ _g3396333994_))))) + (_g3396134089_ _$stx33958_)))) (define |gerbil/core$[:0:]#@bytes| - (lambda (_stx34160_) - (let* ((_g3416334177_ - (lambda (_g3416434173_) + (lambda (_stx34094_) + (let* ((_g3409734111_ + (lambda (_g3409834107_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3416434173_))) - (_g3416234249_ - (lambda (_g3416434181_) - (if (gx#stx-pair? _g3416434181_) - (let ((_e3416834184_ (gx#syntax-e _g3416434181_))) - (let ((_hd3416734188_ + _g3409834107_))) + (_g3409634183_ + (lambda (_g3409834115_) + (if (gx#stx-pair? _g3409834115_) + (let ((_e3410234118_ (gx#syntax-e _g3409834115_))) + (let ((_hd3410134122_ (let () (declare (not safe)) - (##car _e3416834184_))) - (_tl3416634191_ + (##car _e3410234118_))) + (_tl3410034125_ (let () (declare (not safe)) - (##cdr _e3416834184_)))) - (if (gx#stx-pair? _tl3416634191_) - (let ((_e3417134194_ (gx#syntax-e _tl3416634191_))) - (let ((_hd3417034198_ + (##cdr _e3410234118_)))) + (if (gx#stx-pair? _tl3410034125_) + (let ((_e3410534128_ (gx#syntax-e _tl3410034125_))) + (let ((_hd3410434132_ (let () (declare (not safe)) - (##car _e3417134194_))) - (_tl3416934201_ + (##car _e3410534128_))) + (_tl3410334135_ (let () (declare (not safe)) - (##cdr _e3417134194_)))) - (if (gx#stx-null? _tl3416934201_) - ((lambda (_L34204_) - (if (gx#stx-string? _L34204_) - (let* ((_g3421834226_ - (lambda (_g3421934222_) + (##cdr _e3410534128_)))) + (if (gx#stx-null? _tl3410334135_) + ((lambda (_L34138_) + (if (gx#stx-string? _L34138_) + (let* ((_g3415234160_ + (lambda (_g3415334156_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3421934222_))) - (_g3421734245_ - (lambda (_g3421934230_) - ((lambda (_L34233_) + _g3415334156_))) + (_g3415134179_ + (lambda (_g3415334164_) + ((lambda (_L34167_) (let () (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L34233_ '())))) - _g3421934230_)))) + (cons _L34167_ '())))) + _g3415334164_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3421734245_ + (_g3415134179_ (string->bytes - (gx#stx-e _L34204_)))) - (_g3416334177_ _g3416434181_))) - _hd3417034198_) - (_g3416334177_ _g3416434181_)))) - (_g3416334177_ _g3416434181_)))) - (_g3416334177_ _g3416434181_))))) - (_g3416234249_ _stx34160_))))) + (gx#stx-e _L34138_)))) + (_g3409734111_ _g3409834115_))) + _hd3410434132_) + (_g3409734111_ _g3409834115_)))) + (_g3409734111_ _g3409834115_)))) + (_g3409734111_ _g3409834115_))))) + (_g3409634183_ _stx34094_))))) diff --git a/src/bootstrap/gerbil/core__13.scm b/src/bootstrap/gerbil/core__13.scm index 7e1695d34..65b58d401 100644 --- a/src/bootstrap/gerbil/core__13.scm +++ b/src/bootstrap/gerbil/core__13.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[2]#_g43087_| + (define |gerbil/core$[2]#_g42898_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43089_| + (define |gerbil/core$[2]#_g42900_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43090_| + (define |gerbil/core$[2]#_g42901_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43091_| + (define |gerbil/core$[2]#_g42902_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43092_| + (define |gerbil/core$[2]#_g42903_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43097_| + (define |gerbil/core$[2]#_g42908_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43098_| + (define |gerbil/core$[2]#_g42909_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43099_| + (define |gerbil/core$[2]#_g42910_| (##structure gx#syntax-quote::t 'setf-macro? @@ -58,20 +58,20 @@ '())) (begin (define |gerbil/core$[:1:]#setq-macro| - (let ((__tmp43093 |gerbil/core$[2]#_g43090_|) - (__tmp43088 - (cons (cons |gerbil/core$[2]#_g43089_| '()) - (cons |gerbil/core$[2]#_g43090_| - (cons |gerbil/core$[2]#_g43091_| - (cons |gerbil/core$[2]#_g43092_| + (let ((__tmp42904 |gerbil/core$[2]#_g42901_|) + (__tmp42899 + (cons (cons |gerbil/core$[2]#_g42900_| '()) + (cons |gerbil/core$[2]#_g42901_| + (cons |gerbil/core$[2]#_g42902_| + (cons |gerbil/core$[2]#_g42903_| (cons '() (cons '() '()))))))) - (__tmp43085 - (let ((__tmp43086 (list |gerbil/core$[2]#_g43087_|))) + (__tmp42896 + (let ((__tmp42897 (list |gerbil/core$[2]#_g42898_|))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#setq-macro::t - __tmp43086 + __tmp42897 'setq-macro '#f '() @@ -80,26 +80,26 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp43093 + __tmp42904 'expander-identifiers: - __tmp43088 + __tmp42899 'type-exhibitor: - __tmp43085))) + __tmp42896))) (define |gerbil/core$[:1:]#setf-macro| - (let ((__tmp43100 |gerbil/core$[2]#_g43097_|) - (__tmp43096 - (cons (cons |gerbil/core$[2]#_g43089_| '()) - (cons |gerbil/core$[2]#_g43097_| - (cons |gerbil/core$[2]#_g43098_| - (cons |gerbil/core$[2]#_g43099_| + (let ((__tmp42911 |gerbil/core$[2]#_g42908_|) + (__tmp42907 + (cons (cons |gerbil/core$[2]#_g42900_| '()) + (cons |gerbil/core$[2]#_g42908_| + (cons |gerbil/core$[2]#_g42909_| + (cons |gerbil/core$[2]#_g42910_| (cons '() (cons '() '()))))))) - (__tmp43094 - (let ((__tmp43095 (list |gerbil/core$[2]#_g43087_|))) + (__tmp42905 + (let ((__tmp42906 (list |gerbil/core$[2]#_g42898_|))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#setf-macro::t - __tmp43095 + __tmp42906 'setf-macro '#f '() @@ -108,8 +108,8 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp43100 + __tmp42911 'expander-identifiers: - __tmp43096 + __tmp42907 'type-exhibitor: - __tmp43094))))) + __tmp42905))))) diff --git a/src/bootstrap/gerbil/core__14.scm b/src/bootstrap/gerbil/core__14.scm index e227409a1..598c568b6 100644 --- a/src/bootstrap/gerbil/core__14.scm +++ b/src/bootstrap/gerbil/core__14.scm @@ -1,42 +1,42 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#identifier-rules| - (lambda (_$stx34256_) - (let* ((_g3426034271_ - (lambda (_g3426134267_) + (lambda (_$stx34190_) + (let* ((_g3419434205_ + (lambda (_g3419534201_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3426134267_))) - (_g3425934301_ - (lambda (_g3426134275_) - (if (gx#stx-pair? _g3426134275_) - (let ((_e3426534278_ (gx#syntax-e _g3426134275_))) - (let ((_hd3426434282_ + _g3419534201_))) + (_g3419334235_ + (lambda (_g3419534209_) + (if (gx#stx-pair? _g3419534209_) + (let ((_e3419934212_ (gx#syntax-e _g3419534209_))) + (let ((_hd3419834216_ (let () (declare (not safe)) - (##car _e3426534278_))) - (_tl3426334285_ + (##car _e3419934212_))) + (_tl3419734219_ (let () (declare (not safe)) - (##cdr _e3426534278_)))) - ((lambda (_L34288_) + (##cdr _e3419934212_)))) + ((lambda (_L34222_) (cons (gx#datum->syntax '#f 'make-setq-macro) (cons 'macro: (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _L34288_) + _L34222_) '())))) - _tl3426334285_))) - (_g3426034271_ _g3426134275_))))) - (_g3425934301_ _$stx34256_)))) + _tl3419734219_))) + (_g3419434205_ _g3419534209_))))) + (_g3419334235_ _$stx34190_)))) (define |gerbil/core$[:0:]#quasisyntax| - (lambda (_$stx34305_) - (let ((_g3430834315_ - (lambda (_g3430934311_) + (lambda (_$stx34239_) + (let ((_g3424234249_ + (lambda (_g3424334245_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3430934311_)))) - (_g3430834315_ _$stx34305_))))) + _g3424334245_)))) + (_g3424234249_ _$stx34239_))))) diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index 15ded5bf6..ccdb73af3 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -1,2617 +1,2617 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#require| - (lambda (_$stx34320_) - (let* ((___stx4246442465_ _$stx34320_) - (_g3432534344_ + (lambda (_$stx34254_) + (let* ((___stx4235442355_ _$stx34254_) + (_g3425934278_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4246442465_)))) - (let ((___kont4246742468_ + ___stx4235442355_)))) + (let ((___kont4235742358_ (lambda () (cons (gx#datum->syntax '#f 'begin) '()))) - (___kont4246942470_ - (lambda (_L34371_ _L34373_ _L34374_) + (___kont4235942360_ + (lambda (_L34305_ _L34307_ _L34308_) (cons (gx#datum->syntax '#f 'cond-expand) - (cons (cons _L34373_ - (cons (cons _L34374_ _L34371_) '())) + (cons (cons _L34307_ + (cons (cons _L34308_ _L34305_) '())) (cons (cons (gx#datum->syntax '#f 'else) (cons (cons (gx#datum->syntax '#f 'syntax-error) (cons '"Missing required feature" - (cons _L34373_ + (cons _L34307_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())))))) - (if (gx#stx-pair? ___stx4246442465_) - (let ((_e3432934397_ (gx#syntax-e ___stx4246442465_))) - (let ((_tl3432734404_ - (let () (declare (not safe)) (##cdr _e3432934397_))) - (_hd3432834401_ - (let () (declare (not safe)) (##car _e3432934397_)))) - (if (gx#stx-null? _tl3432734404_) - (___kont4246742468_) - (if (gx#stx-pair? _tl3432734404_) - (let ((_e3433834361_ (gx#syntax-e _tl3432734404_))) - (let ((_tl3433634368_ + (if (gx#stx-pair? ___stx4235442355_) + (let ((_e3426334331_ (gx#syntax-e ___stx4235442355_))) + (let ((_tl3426134338_ + (let () (declare (not safe)) (##cdr _e3426334331_))) + (_hd3426234335_ + (let () (declare (not safe)) (##car _e3426334331_)))) + (if (gx#stx-null? _tl3426134338_) + (___kont4235742358_) + (if (gx#stx-pair? _tl3426134338_) + (let ((_e3427234295_ (gx#syntax-e _tl3426134338_))) + (let ((_tl3427034302_ (let () (declare (not safe)) - (##cdr _e3433834361_))) - (_hd3433734365_ + (##cdr _e3427234295_))) + (_hd3427134299_ (let () (declare (not safe)) - (##car _e3433834361_)))) - (___kont4246942470_ - _tl3433634368_ - _hd3433734365_ - _hd3432834401_))) - (let () (declare (not safe)) (_g3432534344_)))))) - (let () (declare (not safe)) (_g3432534344_))))))) + (##car _e3427234295_)))) + (___kont4235942360_ + _tl3427034302_ + _hd3427134299_ + _hd3426234335_))) + (let () (declare (not safe)) (_g3425934278_)))))) + (let () (declare (not safe)) (_g3425934278_))))))) (define |gerbil/core$[:0:]#defsyntax-for-import| - (lambda (_$stx34415_) - (let* ((___stx4249442495_ _$stx34415_) - (_g3442034460_ + (lambda (_$stx34349_) + (let* ((___stx4238442385_ _$stx34349_) + (_g3435434394_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4249442495_)))) - (let ((___kont4249742498_ - (lambda (_L34598_ _L34600_) + ___stx4238442385_)))) + (let ((___kont4238742388_ + (lambda (_L34532_ _L34534_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _L34600_ + (cons _L34534_ (cons (cons (gx#datum->syntax '#f 'make-import-expander) - (cons _L34598_ '())) + (cons _L34532_ '())) '()))))) - (___kont4249942500_ - (lambda (_L34527_ _L34529_ _L34530_ _L34531_) - (cons _L34531_ - (cons _L34530_ + (___kont4238942390_ + (lambda (_L34461_ _L34463_ _L34464_ _L34465_) + (cons _L34465_ + (cons _L34464_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _L34529_ - (foldr (lambda (_g3455234555_ - _g3455334558_) - (cons _g3455234555_ - _g3455334558_)) + (cons _L34463_ + (foldr (lambda (_g3448634489_ + _g3448734492_) + (cons _g3448634489_ + _g3448734492_)) '() - _L34527_))) + _L34461_))) '())))))) - (let* ((___match4254942550_ - (lambda (_e3443934467_ - _hd3443834471_ - _tl3443734474_ - _e3444234477_ - _hd3444134481_ - _tl3444034484_ - _e3444534487_ - _hd3444434491_ - _tl3444334494_ - ___splice4250142502_ - _target3444634497_ - _tl3444834500_) - (letrec ((_loop3444934503_ - (lambda (_hd3444734507_ _body3445334510_) - (if (gx#stx-pair? _hd3444734507_) - (let ((_e3445034513_ - (gx#syntax-e _hd3444734507_))) - (let ((_lp-tl3445234520_ + (let* ((___match4243942440_ + (lambda (_e3437334401_ + _hd3437234405_ + _tl3437134408_ + _e3437634411_ + _hd3437534415_ + _tl3437434418_ + _e3437934421_ + _hd3437834425_ + _tl3437734428_ + ___splice4239142392_ + _target3438034431_ + _tl3438234434_) + (letrec ((_loop3438334437_ + (lambda (_hd3438134441_ _body3438734444_) + (if (gx#stx-pair? _hd3438134441_) + (let ((_e3438434447_ + (gx#syntax-e _hd3438134441_))) + (let ((_lp-tl3438634454_ (let () (declare (not safe)) - (##cdr _e3445034513_))) - (_lp-hd3445134517_ + (##cdr _e3438434447_))) + (_lp-hd3438534451_ (let () (declare (not safe)) - (##car _e3445034513_)))) - (_loop3444934503_ - _lp-tl3445234520_ - (cons _lp-hd3445134517_ - _body3445334510_)))) - (let ((_body3445434523_ - (reverse _body3445334510_))) - (let ((_L34527_ _body3445434523_) - (_L34529_ _tl3444334494_) - (_L34530_ _hd3444434491_) - (_L34531_ _hd3443834471_)) - (if (gx#identifier? _L34530_) - (___kont4249942500_ - _L34527_ - _L34529_ - _L34530_ - _L34531_) + (##car _e3438434447_)))) + (_loop3438334437_ + _lp-tl3438634454_ + (cons _lp-hd3438534451_ + _body3438734444_)))) + (let ((_body3438834457_ + (reverse _body3438734444_))) + (let ((_L34461_ _body3438834457_) + (_L34463_ _tl3437734428_) + (_L34464_ _hd3437834425_) + (_L34465_ _hd3437234405_)) + (if (gx#identifier? _L34464_) + (___kont4238942390_ + _L34461_ + _L34463_ + _L34464_ + _L34465_) (let () (declare (not safe)) - (_g3442034460_))))))))) - (_loop3444934503_ _target3444634497_ '())))) - (___match4252342524_ - (lambda (_e3442634568_ - _hd3442534572_ - _tl3442434575_ - _e3442934578_ - _hd3442834582_ - _tl3442734585_ - _e3443234588_ - _hd3443134592_ - _tl3443034595_) - (let ((_L34598_ _hd3443134592_) (_L34600_ _hd3442834582_)) - (if (gx#identifier? _L34600_) - (___kont4249742498_ _L34598_ _L34600_) - (if (gx#stx-pair? _hd3442834582_) - (let ((_e3444534487_ - (gx#syntax-e _hd3442834582_))) - (let ((_tl3444334494_ + (_g3435434394_))))))))) + (_loop3438334437_ _target3438034431_ '())))) + (___match4241342414_ + (lambda (_e3436034502_ + _hd3435934506_ + _tl3435834509_ + _e3436334512_ + _hd3436234516_ + _tl3436134519_ + _e3436634522_ + _hd3436534526_ + _tl3436434529_) + (let ((_L34532_ _hd3436534526_) (_L34534_ _hd3436234516_)) + (if (gx#identifier? _L34534_) + (___kont4238742388_ _L34532_ _L34534_) + (if (gx#stx-pair? _hd3436234516_) + (let ((_e3437934421_ + (gx#syntax-e _hd3436234516_))) + (let ((_tl3437734428_ (let () (declare (not safe)) - (##cdr _e3444534487_))) - (_hd3444434491_ + (##cdr _e3437934421_))) + (_hd3437834425_ (let () (declare (not safe)) - (##car _e3444534487_)))) - (if (gx#stx-pair/null? _tl3442734585_) - (let ((___splice4250142502_ + (##car _e3437934421_)))) + (if (gx#stx-pair/null? _tl3436134519_) + (let ((___splice4239142392_ (gx#syntax-split-splice - _tl3442734585_ + _tl3436134519_ '0))) - (let ((_tl3444834500_ + (let ((_tl3438234434_ (let () (declare (not safe)) (##vector-ref - ___splice4250142502_ + ___splice4239142392_ '1))) - (_target3444634497_ + (_target3438034431_ (let () (declare (not safe)) (##vector-ref - ___splice4250142502_ + ___splice4239142392_ '0)))) - (if (gx#stx-null? _tl3444834500_) - (___match4254942550_ - _e3442634568_ - _hd3442534572_ - _tl3442434575_ - _e3442934578_ - _hd3442834582_ - _tl3442734585_ - _e3444534487_ - _hd3444434491_ - _tl3444334494_ - ___splice4250142502_ - _target3444634497_ - _tl3444834500_) + (if (gx#stx-null? _tl3438234434_) + (___match4243942440_ + _e3436034502_ + _hd3435934506_ + _tl3435834509_ + _e3436334512_ + _hd3436234516_ + _tl3436134519_ + _e3437934421_ + _hd3437834425_ + _tl3437734428_ + ___splice4239142392_ + _target3438034431_ + _tl3438234434_) (let () (declare (not safe)) - (_g3442034460_))))) + (_g3435434394_))))) (let () (declare (not safe)) - (_g3442034460_))))) + (_g3435434394_))))) (let () (declare (not safe)) - (_g3442034460_)))))))) - (if (gx#stx-pair? ___stx4249442495_) - (let ((_e3442634568_ (gx#syntax-e ___stx4249442495_))) - (let ((_tl3442434575_ - (let () (declare (not safe)) (##cdr _e3442634568_))) - (_hd3442534572_ - (let () (declare (not safe)) (##car _e3442634568_)))) - (if (gx#stx-pair? _tl3442434575_) - (let ((_e3442934578_ (gx#syntax-e _tl3442434575_))) - (let ((_tl3442734585_ + (_g3435434394_)))))))) + (if (gx#stx-pair? ___stx4238442385_) + (let ((_e3436034502_ (gx#syntax-e ___stx4238442385_))) + (let ((_tl3435834509_ + (let () (declare (not safe)) (##cdr _e3436034502_))) + (_hd3435934506_ + (let () (declare (not safe)) (##car _e3436034502_)))) + (if (gx#stx-pair? _tl3435834509_) + (let ((_e3436334512_ (gx#syntax-e _tl3435834509_))) + (let ((_tl3436134519_ (let () (declare (not safe)) - (##cdr _e3442934578_))) - (_hd3442834582_ + (##cdr _e3436334512_))) + (_hd3436234516_ (let () (declare (not safe)) - (##car _e3442934578_)))) - (if (gx#stx-pair? _tl3442734585_) - (let ((_e3443234588_ - (gx#syntax-e _tl3442734585_))) - (let ((_tl3443034595_ + (##car _e3436334512_)))) + (if (gx#stx-pair? _tl3436134519_) + (let ((_e3436634522_ + (gx#syntax-e _tl3436134519_))) + (let ((_tl3436434529_ (let () (declare (not safe)) - (##cdr _e3443234588_))) - (_hd3443134592_ + (##cdr _e3436634522_))) + (_hd3436534526_ (let () (declare (not safe)) - (##car _e3443234588_)))) - (if (gx#stx-null? _tl3443034595_) - (___match4252342524_ - _e3442634568_ - _hd3442534572_ - _tl3442434575_ - _e3442934578_ - _hd3442834582_ - _tl3442734585_ - _e3443234588_ - _hd3443134592_ - _tl3443034595_) - (if (gx#stx-pair? _hd3442834582_) - (let ((_e3444534487_ + (##car _e3436634522_)))) + (if (gx#stx-null? _tl3436434529_) + (___match4241342414_ + _e3436034502_ + _hd3435934506_ + _tl3435834509_ + _e3436334512_ + _hd3436234516_ + _tl3436134519_ + _e3436634522_ + _hd3436534526_ + _tl3436434529_) + (if (gx#stx-pair? _hd3436234516_) + (let ((_e3437934421_ (gx#syntax-e - _hd3442834582_))) - (let ((_tl3444334494_ + _hd3436234516_))) + (let ((_tl3437734428_ (let () (declare (not safe)) - (##cdr _e3444534487_))) - (_hd3444434491_ + (##cdr _e3437934421_))) + (_hd3437834425_ (let () (declare (not safe)) - (##car _e3444534487_)))) + (##car _e3437934421_)))) (if (gx#stx-pair/null? - _tl3442734585_) - (let ((___splice4250142502_ + _tl3436134519_) + (let ((___splice4239142392_ (gx#syntax-split-splice - _tl3442734585_ + _tl3436134519_ '0))) - (let ((_tl3444834500_ + (let ((_tl3438234434_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4250142502_ '1))) - (_target3444634497_ + (##vector-ref ___splice4239142392_ '1))) + (_target3438034431_ (let () (declare (not safe)) - (##vector-ref ___splice4250142502_ '0)))) - (if (gx#stx-null? _tl3444834500_) - (___match4254942550_ - _e3442634568_ - _hd3442534572_ - _tl3442434575_ - _e3442934578_ - _hd3442834582_ - _tl3442734585_ - _e3444534487_ - _hd3444434491_ - _tl3444334494_ - ___splice4250142502_ - _target3444634497_ - _tl3444834500_) - (let () (declare (not safe)) (_g3442034460_))))) + (##vector-ref ___splice4239142392_ '0)))) + (if (gx#stx-null? _tl3438234434_) + (___match4243942440_ + _e3436034502_ + _hd3435934506_ + _tl3435834509_ + _e3436334512_ + _hd3436234516_ + _tl3436134519_ + _e3437934421_ + _hd3437834425_ + _tl3437734428_ + ___splice4239142392_ + _target3438034431_ + _tl3438234434_) + (let () (declare (not safe)) (_g3435434394_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3442034460_))))) + (_g3435434394_))))) (let () (declare (not safe)) - (_g3442034460_)))))) - (if (gx#stx-pair? _hd3442834582_) - (let ((_e3444534487_ - (gx#syntax-e _hd3442834582_))) - (let ((_tl3444334494_ + (_g3435434394_)))))) + (if (gx#stx-pair? _hd3436234516_) + (let ((_e3437934421_ + (gx#syntax-e _hd3436234516_))) + (let ((_tl3437734428_ (let () (declare (not safe)) - (##cdr _e3444534487_))) - (_hd3444434491_ + (##cdr _e3437934421_))) + (_hd3437834425_ (let () (declare (not safe)) - (##car _e3444534487_)))) - (if (gx#stx-pair/null? _tl3442734585_) - (let ((___splice4250142502_ + (##car _e3437934421_)))) + (if (gx#stx-pair/null? _tl3436134519_) + (let ((___splice4239142392_ (gx#syntax-split-splice - _tl3442734585_ + _tl3436134519_ '0))) - (let ((_tl3444834500_ + (let ((_tl3438234434_ (let () (declare (not safe)) (##vector-ref - ___splice4250142502_ + ___splice4239142392_ '1))) - (_target3444634497_ + (_target3438034431_ (let () (declare (not safe)) (##vector-ref - ___splice4250142502_ + ___splice4239142392_ '0)))) (if (gx#stx-null? - _tl3444834500_) - (___match4254942550_ - _e3442634568_ - _hd3442534572_ - _tl3442434575_ - _e3442934578_ - _hd3442834582_ - _tl3442734585_ - _e3444534487_ - _hd3444434491_ - _tl3444334494_ - ___splice4250142502_ - _target3444634497_ - _tl3444834500_) + _tl3438234434_) + (___match4243942440_ + _e3436034502_ + _hd3435934506_ + _tl3435834509_ + _e3436334512_ + _hd3436234516_ + _tl3436134519_ + _e3437934421_ + _hd3437834425_ + _tl3437734428_ + ___splice4239142392_ + _target3438034431_ + _tl3438234434_) (let () (declare (not safe)) - (_g3442034460_))))) + (_g3435434394_))))) (let () (declare (not safe)) - (_g3442034460_))))) + (_g3435434394_))))) (let () (declare (not safe)) - (_g3442034460_)))))) - (let () (declare (not safe)) (_g3442034460_))))) - (let () (declare (not safe)) (_g3442034460_)))))))) + (_g3435434394_)))))) + (let () (declare (not safe)) (_g3435434394_))))) + (let () (declare (not safe)) (_g3435434394_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-export| - (lambda (_$stx34620_) - (let* ((___stx4255242553_ _$stx34620_) - (_g3462534665_ + (lambda (_$stx34554_) + (let* ((___stx4244242443_ _$stx34554_) + (_g3455934599_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4255242553_)))) - (let ((___kont4255542556_ - (lambda (_L34803_ _L34805_) + ___stx4244242443_)))) + (let ((___kont4244542446_ + (lambda (_L34737_ _L34739_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _L34805_ + (cons _L34739_ (cons (cons (gx#datum->syntax '#f 'make-export-expander) - (cons _L34803_ '())) + (cons _L34737_ '())) '()))))) - (___kont4255742558_ - (lambda (_L34732_ _L34734_ _L34735_ _L34736_) - (cons _L34736_ - (cons _L34735_ + (___kont4244742448_ + (lambda (_L34666_ _L34668_ _L34669_ _L34670_) + (cons _L34670_ + (cons _L34669_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _L34734_ - (foldr (lambda (_g3475734760_ - _g3475834763_) - (cons _g3475734760_ - _g3475834763_)) + (cons _L34668_ + (foldr (lambda (_g3469134694_ + _g3469234697_) + (cons _g3469134694_ + _g3469234697_)) '() - _L34732_))) + _L34666_))) '())))))) - (let* ((___match4260742608_ - (lambda (_e3464434672_ - _hd3464334676_ - _tl3464234679_ - _e3464734682_ - _hd3464634686_ - _tl3464534689_ - _e3465034692_ - _hd3464934696_ - _tl3464834699_ - ___splice4255942560_ - _target3465134702_ - _tl3465334705_) - (letrec ((_loop3465434708_ - (lambda (_hd3465234712_ _body3465834715_) - (if (gx#stx-pair? _hd3465234712_) - (let ((_e3465534718_ - (gx#syntax-e _hd3465234712_))) - (let ((_lp-tl3465734725_ + (let* ((___match4249742498_ + (lambda (_e3457834606_ + _hd3457734610_ + _tl3457634613_ + _e3458134616_ + _hd3458034620_ + _tl3457934623_ + _e3458434626_ + _hd3458334630_ + _tl3458234633_ + ___splice4244942450_ + _target3458534636_ + _tl3458734639_) + (letrec ((_loop3458834642_ + (lambda (_hd3458634646_ _body3459234649_) + (if (gx#stx-pair? _hd3458634646_) + (let ((_e3458934652_ + (gx#syntax-e _hd3458634646_))) + (let ((_lp-tl3459134659_ (let () (declare (not safe)) - (##cdr _e3465534718_))) - (_lp-hd3465634722_ + (##cdr _e3458934652_))) + (_lp-hd3459034656_ (let () (declare (not safe)) - (##car _e3465534718_)))) - (_loop3465434708_ - _lp-tl3465734725_ - (cons _lp-hd3465634722_ - _body3465834715_)))) - (let ((_body3465934728_ - (reverse _body3465834715_))) - (let ((_L34732_ _body3465934728_) - (_L34734_ _tl3464834699_) - (_L34735_ _hd3464934696_) - (_L34736_ _hd3464334676_)) - (if (gx#identifier? _L34735_) - (___kont4255742558_ - _L34732_ - _L34734_ - _L34735_ - _L34736_) + (##car _e3458934652_)))) + (_loop3458834642_ + _lp-tl3459134659_ + (cons _lp-hd3459034656_ + _body3459234649_)))) + (let ((_body3459334662_ + (reverse _body3459234649_))) + (let ((_L34666_ _body3459334662_) + (_L34668_ _tl3458234633_) + (_L34669_ _hd3458334630_) + (_L34670_ _hd3457734610_)) + (if (gx#identifier? _L34669_) + (___kont4244742448_ + _L34666_ + _L34668_ + _L34669_ + _L34670_) (let () (declare (not safe)) - (_g3462534665_))))))))) - (_loop3465434708_ _target3465134702_ '())))) - (___match4258142582_ - (lambda (_e3463134773_ - _hd3463034777_ - _tl3462934780_ - _e3463434783_ - _hd3463334787_ - _tl3463234790_ - _e3463734793_ - _hd3463634797_ - _tl3463534800_) - (let ((_L34803_ _hd3463634797_) (_L34805_ _hd3463334787_)) - (if (gx#identifier? _L34805_) - (___kont4255542556_ _L34803_ _L34805_) - (if (gx#stx-pair? _hd3463334787_) - (let ((_e3465034692_ - (gx#syntax-e _hd3463334787_))) - (let ((_tl3464834699_ + (_g3455934599_))))))))) + (_loop3458834642_ _target3458534636_ '())))) + (___match4247142472_ + (lambda (_e3456534707_ + _hd3456434711_ + _tl3456334714_ + _e3456834717_ + _hd3456734721_ + _tl3456634724_ + _e3457134727_ + _hd3457034731_ + _tl3456934734_) + (let ((_L34737_ _hd3457034731_) (_L34739_ _hd3456734721_)) + (if (gx#identifier? _L34739_) + (___kont4244542446_ _L34737_ _L34739_) + (if (gx#stx-pair? _hd3456734721_) + (let ((_e3458434626_ + (gx#syntax-e _hd3456734721_))) + (let ((_tl3458234633_ (let () (declare (not safe)) - (##cdr _e3465034692_))) - (_hd3464934696_ + (##cdr _e3458434626_))) + (_hd3458334630_ (let () (declare (not safe)) - (##car _e3465034692_)))) - (if (gx#stx-pair/null? _tl3463234790_) - (let ((___splice4255942560_ + (##car _e3458434626_)))) + (if (gx#stx-pair/null? _tl3456634724_) + (let ((___splice4244942450_ (gx#syntax-split-splice - _tl3463234790_ + _tl3456634724_ '0))) - (let ((_tl3465334705_ + (let ((_tl3458734639_ (let () (declare (not safe)) (##vector-ref - ___splice4255942560_ + ___splice4244942450_ '1))) - (_target3465134702_ + (_target3458534636_ (let () (declare (not safe)) (##vector-ref - ___splice4255942560_ + ___splice4244942450_ '0)))) - (if (gx#stx-null? _tl3465334705_) - (___match4260742608_ - _e3463134773_ - _hd3463034777_ - _tl3462934780_ - _e3463434783_ - _hd3463334787_ - _tl3463234790_ - _e3465034692_ - _hd3464934696_ - _tl3464834699_ - ___splice4255942560_ - _target3465134702_ - _tl3465334705_) + (if (gx#stx-null? _tl3458734639_) + (___match4249742498_ + _e3456534707_ + _hd3456434711_ + _tl3456334714_ + _e3456834717_ + _hd3456734721_ + _tl3456634724_ + _e3458434626_ + _hd3458334630_ + _tl3458234633_ + ___splice4244942450_ + _target3458534636_ + _tl3458734639_) (let () (declare (not safe)) - (_g3462534665_))))) + (_g3455934599_))))) (let () (declare (not safe)) - (_g3462534665_))))) + (_g3455934599_))))) (let () (declare (not safe)) - (_g3462534665_)))))))) - (if (gx#stx-pair? ___stx4255242553_) - (let ((_e3463134773_ (gx#syntax-e ___stx4255242553_))) - (let ((_tl3462934780_ - (let () (declare (not safe)) (##cdr _e3463134773_))) - (_hd3463034777_ - (let () (declare (not safe)) (##car _e3463134773_)))) - (if (gx#stx-pair? _tl3462934780_) - (let ((_e3463434783_ (gx#syntax-e _tl3462934780_))) - (let ((_tl3463234790_ + (_g3455934599_)))))))) + (if (gx#stx-pair? ___stx4244242443_) + (let ((_e3456534707_ (gx#syntax-e ___stx4244242443_))) + (let ((_tl3456334714_ + (let () (declare (not safe)) (##cdr _e3456534707_))) + (_hd3456434711_ + (let () (declare (not safe)) (##car _e3456534707_)))) + (if (gx#stx-pair? _tl3456334714_) + (let ((_e3456834717_ (gx#syntax-e _tl3456334714_))) + (let ((_tl3456634724_ (let () (declare (not safe)) - (##cdr _e3463434783_))) - (_hd3463334787_ + (##cdr _e3456834717_))) + (_hd3456734721_ (let () (declare (not safe)) - (##car _e3463434783_)))) - (if (gx#stx-pair? _tl3463234790_) - (let ((_e3463734793_ - (gx#syntax-e _tl3463234790_))) - (let ((_tl3463534800_ + (##car _e3456834717_)))) + (if (gx#stx-pair? _tl3456634724_) + (let ((_e3457134727_ + (gx#syntax-e _tl3456634724_))) + (let ((_tl3456934734_ (let () (declare (not safe)) - (##cdr _e3463734793_))) - (_hd3463634797_ + (##cdr _e3457134727_))) + (_hd3457034731_ (let () (declare (not safe)) - (##car _e3463734793_)))) - (if (gx#stx-null? _tl3463534800_) - (___match4258142582_ - _e3463134773_ - _hd3463034777_ - _tl3462934780_ - _e3463434783_ - _hd3463334787_ - _tl3463234790_ - _e3463734793_ - _hd3463634797_ - _tl3463534800_) - (if (gx#stx-pair? _hd3463334787_) - (let ((_e3465034692_ + (##car _e3457134727_)))) + (if (gx#stx-null? _tl3456934734_) + (___match4247142472_ + _e3456534707_ + _hd3456434711_ + _tl3456334714_ + _e3456834717_ + _hd3456734721_ + _tl3456634724_ + _e3457134727_ + _hd3457034731_ + _tl3456934734_) + (if (gx#stx-pair? _hd3456734721_) + (let ((_e3458434626_ (gx#syntax-e - _hd3463334787_))) - (let ((_tl3464834699_ + _hd3456734721_))) + (let ((_tl3458234633_ (let () (declare (not safe)) - (##cdr _e3465034692_))) - (_hd3464934696_ + (##cdr _e3458434626_))) + (_hd3458334630_ (let () (declare (not safe)) - (##car _e3465034692_)))) + (##car _e3458434626_)))) (if (gx#stx-pair/null? - _tl3463234790_) - (let ((___splice4255942560_ + _tl3456634724_) + (let ((___splice4244942450_ (gx#syntax-split-splice - _tl3463234790_ + _tl3456634724_ '0))) - (let ((_tl3465334705_ + (let ((_tl3458734639_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4255942560_ '1))) - (_target3465134702_ + (##vector-ref ___splice4244942450_ '1))) + (_target3458534636_ (let () (declare (not safe)) - (##vector-ref ___splice4255942560_ '0)))) - (if (gx#stx-null? _tl3465334705_) - (___match4260742608_ - _e3463134773_ - _hd3463034777_ - _tl3462934780_ - _e3463434783_ - _hd3463334787_ - _tl3463234790_ - _e3465034692_ - _hd3464934696_ - _tl3464834699_ - ___splice4255942560_ - _target3465134702_ - _tl3465334705_) - (let () (declare (not safe)) (_g3462534665_))))) + (##vector-ref ___splice4244942450_ '0)))) + (if (gx#stx-null? _tl3458734639_) + (___match4249742498_ + _e3456534707_ + _hd3456434711_ + _tl3456334714_ + _e3456834717_ + _hd3456734721_ + _tl3456634724_ + _e3458434626_ + _hd3458334630_ + _tl3458234633_ + ___splice4244942450_ + _target3458534636_ + _tl3458734639_) + (let () (declare (not safe)) (_g3455934599_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3462534665_))))) + (_g3455934599_))))) (let () (declare (not safe)) - (_g3462534665_)))))) - (if (gx#stx-pair? _hd3463334787_) - (let ((_e3465034692_ - (gx#syntax-e _hd3463334787_))) - (let ((_tl3464834699_ + (_g3455934599_)))))) + (if (gx#stx-pair? _hd3456734721_) + (let ((_e3458434626_ + (gx#syntax-e _hd3456734721_))) + (let ((_tl3458234633_ (let () (declare (not safe)) - (##cdr _e3465034692_))) - (_hd3464934696_ + (##cdr _e3458434626_))) + (_hd3458334630_ (let () (declare (not safe)) - (##car _e3465034692_)))) - (if (gx#stx-pair/null? _tl3463234790_) - (let ((___splice4255942560_ + (##car _e3458434626_)))) + (if (gx#stx-pair/null? _tl3456634724_) + (let ((___splice4244942450_ (gx#syntax-split-splice - _tl3463234790_ + _tl3456634724_ '0))) - (let ((_tl3465334705_ + (let ((_tl3458734639_ (let () (declare (not safe)) (##vector-ref - ___splice4255942560_ + ___splice4244942450_ '1))) - (_target3465134702_ + (_target3458534636_ (let () (declare (not safe)) (##vector-ref - ___splice4255942560_ + ___splice4244942450_ '0)))) (if (gx#stx-null? - _tl3465334705_) - (___match4260742608_ - _e3463134773_ - _hd3463034777_ - _tl3462934780_ - _e3463434783_ - _hd3463334787_ - _tl3463234790_ - _e3465034692_ - _hd3464934696_ - _tl3464834699_ - ___splice4255942560_ - _target3465134702_ - _tl3465334705_) + _tl3458734639_) + (___match4249742498_ + _e3456534707_ + _hd3456434711_ + _tl3456334714_ + _e3456834717_ + _hd3456734721_ + _tl3456634724_ + _e3458434626_ + _hd3458334630_ + _tl3458234633_ + ___splice4244942450_ + _target3458534636_ + _tl3458734639_) (let () (declare (not safe)) - (_g3462534665_))))) + (_g3455934599_))))) (let () (declare (not safe)) - (_g3462534665_))))) + (_g3455934599_))))) (let () (declare (not safe)) - (_g3462534665_)))))) - (let () (declare (not safe)) (_g3462534665_))))) - (let () (declare (not safe)) (_g3462534665_)))))))) + (_g3455934599_)))))) + (let () (declare (not safe)) (_g3455934599_))))) + (let () (declare (not safe)) (_g3455934599_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-import-export| - (lambda (_$stx34825_) - (let* ((___stx4261042611_ _$stx34825_) - (_g3483034870_ + (lambda (_$stx34759_) + (let* ((___stx4250042501_ _$stx34759_) + (_g3476434804_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4261042611_)))) - (let ((___kont4261342614_ - (lambda (_L35008_ _L35010_) + ___stx4250042501_)))) + (let ((___kont4250342504_ + (lambda (_L34942_ _L34944_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _L35010_ + (cons _L34944_ (cons (cons (gx#datum->syntax '#f 'make-import-export-expander) - (cons _L35008_ '())) + (cons _L34942_ '())) '()))))) - (___kont4261542616_ - (lambda (_L34937_ _L34939_ _L34940_ _L34941_) - (cons _L34941_ - (cons _L34940_ + (___kont4250542506_ + (lambda (_L34871_ _L34873_ _L34874_ _L34875_) + (cons _L34875_ + (cons _L34874_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _L34939_ - (foldr (lambda (_g3496234965_ - _g3496334968_) - (cons _g3496234965_ - _g3496334968_)) + (cons _L34873_ + (foldr (lambda (_g3489634899_ + _g3489734902_) + (cons _g3489634899_ + _g3489734902_)) '() - _L34937_))) + _L34871_))) '())))))) - (let* ((___match4266542666_ - (lambda (_e3484934877_ - _hd3484834881_ - _tl3484734884_ - _e3485234887_ - _hd3485134891_ - _tl3485034894_ - _e3485534897_ - _hd3485434901_ - _tl3485334904_ - ___splice4261742618_ - _target3485634907_ - _tl3485834910_) - (letrec ((_loop3485934913_ - (lambda (_hd3485734917_ _body3486334920_) - (if (gx#stx-pair? _hd3485734917_) - (let ((_e3486034923_ - (gx#syntax-e _hd3485734917_))) - (let ((_lp-tl3486234930_ + (let* ((___match4255542556_ + (lambda (_e3478334811_ + _hd3478234815_ + _tl3478134818_ + _e3478634821_ + _hd3478534825_ + _tl3478434828_ + _e3478934831_ + _hd3478834835_ + _tl3478734838_ + ___splice4250742508_ + _target3479034841_ + _tl3479234844_) + (letrec ((_loop3479334847_ + (lambda (_hd3479134851_ _body3479734854_) + (if (gx#stx-pair? _hd3479134851_) + (let ((_e3479434857_ + (gx#syntax-e _hd3479134851_))) + (let ((_lp-tl3479634864_ (let () (declare (not safe)) - (##cdr _e3486034923_))) - (_lp-hd3486134927_ + (##cdr _e3479434857_))) + (_lp-hd3479534861_ (let () (declare (not safe)) - (##car _e3486034923_)))) - (_loop3485934913_ - _lp-tl3486234930_ - (cons _lp-hd3486134927_ - _body3486334920_)))) - (let ((_body3486434933_ - (reverse _body3486334920_))) - (let ((_L34937_ _body3486434933_) - (_L34939_ _tl3485334904_) - (_L34940_ _hd3485434901_) - (_L34941_ _hd3484834881_)) - (if (gx#identifier? _L34940_) - (___kont4261542616_ - _L34937_ - _L34939_ - _L34940_ - _L34941_) + (##car _e3479434857_)))) + (_loop3479334847_ + _lp-tl3479634864_ + (cons _lp-hd3479534861_ + _body3479734854_)))) + (let ((_body3479834867_ + (reverse _body3479734854_))) + (let ((_L34871_ _body3479834867_) + (_L34873_ _tl3478734838_) + (_L34874_ _hd3478834835_) + (_L34875_ _hd3478234815_)) + (if (gx#identifier? _L34874_) + (___kont4250542506_ + _L34871_ + _L34873_ + _L34874_ + _L34875_) (let () (declare (not safe)) - (_g3483034870_))))))))) - (_loop3485934913_ _target3485634907_ '())))) - (___match4263942640_ - (lambda (_e3483634978_ - _hd3483534982_ - _tl3483434985_ - _e3483934988_ - _hd3483834992_ - _tl3483734995_ - _e3484234998_ - _hd3484135002_ - _tl3484035005_) - (let ((_L35008_ _hd3484135002_) (_L35010_ _hd3483834992_)) - (if (gx#identifier? _L35010_) - (___kont4261342614_ _L35008_ _L35010_) - (if (gx#stx-pair? _hd3483834992_) - (let ((_e3485534897_ - (gx#syntax-e _hd3483834992_))) - (let ((_tl3485334904_ + (_g3476434804_))))))))) + (_loop3479334847_ _target3479034841_ '())))) + (___match4252942530_ + (lambda (_e3477034912_ + _hd3476934916_ + _tl3476834919_ + _e3477334922_ + _hd3477234926_ + _tl3477134929_ + _e3477634932_ + _hd3477534936_ + _tl3477434939_) + (let ((_L34942_ _hd3477534936_) (_L34944_ _hd3477234926_)) + (if (gx#identifier? _L34944_) + (___kont4250342504_ _L34942_ _L34944_) + (if (gx#stx-pair? _hd3477234926_) + (let ((_e3478934831_ + (gx#syntax-e _hd3477234926_))) + (let ((_tl3478734838_ (let () (declare (not safe)) - (##cdr _e3485534897_))) - (_hd3485434901_ + (##cdr _e3478934831_))) + (_hd3478834835_ (let () (declare (not safe)) - (##car _e3485534897_)))) - (if (gx#stx-pair/null? _tl3483734995_) - (let ((___splice4261742618_ + (##car _e3478934831_)))) + (if (gx#stx-pair/null? _tl3477134929_) + (let ((___splice4250742508_ (gx#syntax-split-splice - _tl3483734995_ + _tl3477134929_ '0))) - (let ((_tl3485834910_ + (let ((_tl3479234844_ (let () (declare (not safe)) (##vector-ref - ___splice4261742618_ + ___splice4250742508_ '1))) - (_target3485634907_ + (_target3479034841_ (let () (declare (not safe)) (##vector-ref - ___splice4261742618_ + ___splice4250742508_ '0)))) - (if (gx#stx-null? _tl3485834910_) - (___match4266542666_ - _e3483634978_ - _hd3483534982_ - _tl3483434985_ - _e3483934988_ - _hd3483834992_ - _tl3483734995_ - _e3485534897_ - _hd3485434901_ - _tl3485334904_ - ___splice4261742618_ - _target3485634907_ - _tl3485834910_) + (if (gx#stx-null? _tl3479234844_) + (___match4255542556_ + _e3477034912_ + _hd3476934916_ + _tl3476834919_ + _e3477334922_ + _hd3477234926_ + _tl3477134929_ + _e3478934831_ + _hd3478834835_ + _tl3478734838_ + ___splice4250742508_ + _target3479034841_ + _tl3479234844_) (let () (declare (not safe)) - (_g3483034870_))))) + (_g3476434804_))))) (let () (declare (not safe)) - (_g3483034870_))))) + (_g3476434804_))))) (let () (declare (not safe)) - (_g3483034870_)))))))) - (if (gx#stx-pair? ___stx4261042611_) - (let ((_e3483634978_ (gx#syntax-e ___stx4261042611_))) - (let ((_tl3483434985_ - (let () (declare (not safe)) (##cdr _e3483634978_))) - (_hd3483534982_ - (let () (declare (not safe)) (##car _e3483634978_)))) - (if (gx#stx-pair? _tl3483434985_) - (let ((_e3483934988_ (gx#syntax-e _tl3483434985_))) - (let ((_tl3483734995_ + (_g3476434804_)))))))) + (if (gx#stx-pair? ___stx4250042501_) + (let ((_e3477034912_ (gx#syntax-e ___stx4250042501_))) + (let ((_tl3476834919_ + (let () (declare (not safe)) (##cdr _e3477034912_))) + (_hd3476934916_ + (let () (declare (not safe)) (##car _e3477034912_)))) + (if (gx#stx-pair? _tl3476834919_) + (let ((_e3477334922_ (gx#syntax-e _tl3476834919_))) + (let ((_tl3477134929_ (let () (declare (not safe)) - (##cdr _e3483934988_))) - (_hd3483834992_ + (##cdr _e3477334922_))) + (_hd3477234926_ (let () (declare (not safe)) - (##car _e3483934988_)))) - (if (gx#stx-pair? _tl3483734995_) - (let ((_e3484234998_ - (gx#syntax-e _tl3483734995_))) - (let ((_tl3484035005_ + (##car _e3477334922_)))) + (if (gx#stx-pair? _tl3477134929_) + (let ((_e3477634932_ + (gx#syntax-e _tl3477134929_))) + (let ((_tl3477434939_ (let () (declare (not safe)) - (##cdr _e3484234998_))) - (_hd3484135002_ + (##cdr _e3477634932_))) + (_hd3477534936_ (let () (declare (not safe)) - (##car _e3484234998_)))) - (if (gx#stx-null? _tl3484035005_) - (___match4263942640_ - _e3483634978_ - _hd3483534982_ - _tl3483434985_ - _e3483934988_ - _hd3483834992_ - _tl3483734995_ - _e3484234998_ - _hd3484135002_ - _tl3484035005_) - (if (gx#stx-pair? _hd3483834992_) - (let ((_e3485534897_ + (##car _e3477634932_)))) + (if (gx#stx-null? _tl3477434939_) + (___match4252942530_ + _e3477034912_ + _hd3476934916_ + _tl3476834919_ + _e3477334922_ + _hd3477234926_ + _tl3477134929_ + _e3477634932_ + _hd3477534936_ + _tl3477434939_) + (if (gx#stx-pair? _hd3477234926_) + (let ((_e3478934831_ (gx#syntax-e - _hd3483834992_))) - (let ((_tl3485334904_ + _hd3477234926_))) + (let ((_tl3478734838_ (let () (declare (not safe)) - (##cdr _e3485534897_))) - (_hd3485434901_ + (##cdr _e3478934831_))) + (_hd3478834835_ (let () (declare (not safe)) - (##car _e3485534897_)))) + (##car _e3478934831_)))) (if (gx#stx-pair/null? - _tl3483734995_) - (let ((___splice4261742618_ + _tl3477134929_) + (let ((___splice4250742508_ (gx#syntax-split-splice - _tl3483734995_ + _tl3477134929_ '0))) - (let ((_tl3485834910_ + (let ((_tl3479234844_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4261742618_ '1))) - (_target3485634907_ + (##vector-ref ___splice4250742508_ '1))) + (_target3479034841_ (let () (declare (not safe)) - (##vector-ref ___splice4261742618_ '0)))) - (if (gx#stx-null? _tl3485834910_) - (___match4266542666_ - _e3483634978_ - _hd3483534982_ - _tl3483434985_ - _e3483934988_ - _hd3483834992_ - _tl3483734995_ - _e3485534897_ - _hd3485434901_ - _tl3485334904_ - ___splice4261742618_ - _target3485634907_ - _tl3485834910_) - (let () (declare (not safe)) (_g3483034870_))))) + (##vector-ref ___splice4250742508_ '0)))) + (if (gx#stx-null? _tl3479234844_) + (___match4255542556_ + _e3477034912_ + _hd3476934916_ + _tl3476834919_ + _e3477334922_ + _hd3477234926_ + _tl3477134929_ + _e3478934831_ + _hd3478834835_ + _tl3478734838_ + ___splice4250742508_ + _target3479034841_ + _tl3479234844_) + (let () (declare (not safe)) (_g3476434804_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3483034870_))))) + (_g3476434804_))))) (let () (declare (not safe)) - (_g3483034870_)))))) - (if (gx#stx-pair? _hd3483834992_) - (let ((_e3485534897_ - (gx#syntax-e _hd3483834992_))) - (let ((_tl3485334904_ + (_g3476434804_)))))) + (if (gx#stx-pair? _hd3477234926_) + (let ((_e3478934831_ + (gx#syntax-e _hd3477234926_))) + (let ((_tl3478734838_ (let () (declare (not safe)) - (##cdr _e3485534897_))) - (_hd3485434901_ + (##cdr _e3478934831_))) + (_hd3478834835_ (let () (declare (not safe)) - (##car _e3485534897_)))) - (if (gx#stx-pair/null? _tl3483734995_) - (let ((___splice4261742618_ + (##car _e3478934831_)))) + (if (gx#stx-pair/null? _tl3477134929_) + (let ((___splice4250742508_ (gx#syntax-split-splice - _tl3483734995_ + _tl3477134929_ '0))) - (let ((_tl3485834910_ + (let ((_tl3479234844_ (let () (declare (not safe)) (##vector-ref - ___splice4261742618_ + ___splice4250742508_ '1))) - (_target3485634907_ + (_target3479034841_ (let () (declare (not safe)) (##vector-ref - ___splice4261742618_ + ___splice4250742508_ '0)))) (if (gx#stx-null? - _tl3485834910_) - (___match4266542666_ - _e3483634978_ - _hd3483534982_ - _tl3483434985_ - _e3483934988_ - _hd3483834992_ - _tl3483734995_ - _e3485534897_ - _hd3485434901_ - _tl3485334904_ - ___splice4261742618_ - _target3485634907_ - _tl3485834910_) + _tl3479234844_) + (___match4255542556_ + _e3477034912_ + _hd3476934916_ + _tl3476834919_ + _e3477334922_ + _hd3477234926_ + _tl3477134929_ + _e3478934831_ + _hd3478834835_ + _tl3478734838_ + ___splice4250742508_ + _target3479034841_ + _tl3479234844_) (let () (declare (not safe)) - (_g3483034870_))))) + (_g3476434804_))))) (let () (declare (not safe)) - (_g3483034870_))))) + (_g3476434804_))))) (let () (declare (not safe)) - (_g3483034870_)))))) - (let () (declare (not safe)) (_g3483034870_))))) - (let () (declare (not safe)) (_g3483034870_)))))))) + (_g3476434804_)))))) + (let () (declare (not safe)) (_g3476434804_))))) + (let () (declare (not safe)) (_g3476434804_)))))))) (define |gerbil/core$[:0:]#for-syntax| (gx#make-import-export-expander - (lambda (_stx35030_) - (let* ((_g3503335053_ - (lambda (_g3503435049_) + (lambda (_stx34964_) + (let* ((_g3496734987_ + (lambda (_g3496834983_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3503435049_))) - (_g3503235124_ - (lambda (_g3503435057_) - (if (gx#stx-pair? _g3503435057_) - (let ((_e3503835060_ (gx#syntax-e _g3503435057_))) - (let ((_hd3503735064_ + _g3496834983_))) + (_g3496635058_ + (lambda (_g3496834991_) + (if (gx#stx-pair? _g3496834991_) + (let ((_e3497234994_ (gx#syntax-e _g3496834991_))) + (let ((_hd3497134998_ (let () (declare (not safe)) - (##car _e3503835060_))) - (_tl3503635067_ + (##car _e3497234994_))) + (_tl3497035001_ (let () (declare (not safe)) - (##cdr _e3503835060_)))) - (if (gx#stx-pair/null? _tl3503635067_) - (let ((_g43101_ + (##cdr _e3497234994_)))) + (if (gx#stx-pair/null? _tl3497035001_) + (let ((_g42912_ (gx#syntax-split-splice - _tl3503635067_ + _tl3497035001_ '0))) (begin - (let ((_g43102_ + (let ((_g42913_ (let () (declare (not safe)) - (if (##values? _g43101_) - (##vector-length _g43101_) + (if (##values? _g42912_) + (##vector-length _g42912_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43102_ 2))) + (##fx= _g42913_ 2))) (error "Context expects 2 values" - _g43102_))) - (let ((_target3503935070_ + _g42913_))) + (let ((_target3497335004_ (let () (declare (not safe)) - (##vector-ref _g43101_ 0))) - (_tl3504135073_ + (##vector-ref _g42912_ 0))) + (_tl3497535007_ (let () (declare (not safe)) - (##vector-ref _g43101_ 1)))) - (if (gx#stx-null? _tl3504135073_) - (letrec ((_loop3504235076_ - (lambda (_hd3504035080_ - _body3504635083_) + (##vector-ref _g42912_ 1)))) + (if (gx#stx-null? _tl3497535007_) + (letrec ((_loop3497635010_ + (lambda (_hd3497435014_ + _body3498035017_) (if (gx#stx-pair? - _hd3504035080_) - (let ((_e3504335086_ + _hd3497435014_) + (let ((_e3497735020_ (gx#syntax-e - _hd3504035080_))) - (let ((_lp-hd3504435090_ + _hd3497435014_))) + (let ((_lp-hd3497835024_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e3504335086_))) - (_lp-tl3504535093_ - (let () (declare (not safe)) (##cdr _e3504335086_)))) - (_loop3504235076_ - _lp-tl3504535093_ - (cons _lp-hd3504435090_ _body3504635083_)))) - (let ((_body3504735096_ (reverse _body3504635083_))) - ((lambda (_L35100_) + (##car _e3497735020_))) + (_lp-tl3497935027_ + (let () (declare (not safe)) (##cdr _e3497735020_)))) + (_loop3497635010_ + _lp-tl3497935027_ + (cons _lp-hd3497835024_ _body3498035017_)))) + (let ((_body3498135030_ (reverse _body3498035017_))) + ((lambda (_L35034_) (cons 'phi: (cons '1 - (foldr (lambda (_g3511535118_ _g3511635121_) - (cons _g3511535118_ _g3511635121_)) + (foldr (lambda (_g3504935052_ _g3505035055_) + (cons _g3504935052_ _g3505035055_)) '() - _L35100_)))) - _body3504735096_)))))) + _L35034_)))) + _body3498135030_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3504235076_ - _target3503935070_ + (_loop3497635010_ + _target3497335004_ '())) - (_g3503335053_ _g3503435057_))))) - (_g3503335053_ _g3503435057_)))) - (_g3503335053_ _g3503435057_))))) - (_g3503235124_ _stx35030_))))) + (_g3496734987_ _g3496834991_))))) + (_g3496734987_ _g3496834991_)))) + (_g3496734987_ _g3496834991_))))) + (_g3496635058_ _stx34964_))))) (define |gerbil/core$[:0:]#for-template| (gx#make-import-export-expander - (lambda (_stx35129_) - (let* ((_g3513235152_ - (lambda (_g3513335148_) + (lambda (_stx35063_) + (let* ((_g3506635086_ + (lambda (_g3506735082_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3513335148_))) - (_g3513135223_ - (lambda (_g3513335156_) - (if (gx#stx-pair? _g3513335156_) - (let ((_e3513735159_ (gx#syntax-e _g3513335156_))) - (let ((_hd3513635163_ + _g3506735082_))) + (_g3506535157_ + (lambda (_g3506735090_) + (if (gx#stx-pair? _g3506735090_) + (let ((_e3507135093_ (gx#syntax-e _g3506735090_))) + (let ((_hd3507035097_ (let () (declare (not safe)) - (##car _e3513735159_))) - (_tl3513535166_ + (##car _e3507135093_))) + (_tl3506935100_ (let () (declare (not safe)) - (##cdr _e3513735159_)))) - (if (gx#stx-pair/null? _tl3513535166_) - (let ((_g43103_ + (##cdr _e3507135093_)))) + (if (gx#stx-pair/null? _tl3506935100_) + (let ((_g42914_ (gx#syntax-split-splice - _tl3513535166_ + _tl3506935100_ '0))) (begin - (let ((_g43104_ + (let ((_g42915_ (let () (declare (not safe)) - (if (##values? _g43103_) - (##vector-length _g43103_) + (if (##values? _g42914_) + (##vector-length _g42914_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43104_ 2))) + (##fx= _g42915_ 2))) (error "Context expects 2 values" - _g43104_))) - (let ((_target3513835169_ + _g42915_))) + (let ((_target3507235103_ (let () (declare (not safe)) - (##vector-ref _g43103_ 0))) - (_tl3514035172_ + (##vector-ref _g42914_ 0))) + (_tl3507435106_ (let () (declare (not safe)) - (##vector-ref _g43103_ 1)))) - (if (gx#stx-null? _tl3514035172_) - (letrec ((_loop3514135175_ - (lambda (_hd3513935179_ - _body3514535182_) + (##vector-ref _g42914_ 1)))) + (if (gx#stx-null? _tl3507435106_) + (letrec ((_loop3507535109_ + (lambda (_hd3507335113_ + _body3507935116_) (if (gx#stx-pair? - _hd3513935179_) - (let ((_e3514235185_ + _hd3507335113_) + (let ((_e3507635119_ (gx#syntax-e - _hd3513935179_))) - (let ((_lp-hd3514335189_ + _hd3507335113_))) + (let ((_lp-hd3507735123_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e3514235185_))) - (_lp-tl3514435192_ - (let () (declare (not safe)) (##cdr _e3514235185_)))) - (_loop3514135175_ - _lp-tl3514435192_ - (cons _lp-hd3514335189_ _body3514535182_)))) - (let ((_body3514635195_ (reverse _body3514535182_))) - ((lambda (_L35199_) + (##car _e3507635119_))) + (_lp-tl3507835126_ + (let () (declare (not safe)) (##cdr _e3507635119_)))) + (_loop3507535109_ + _lp-tl3507835126_ + (cons _lp-hd3507735123_ _body3507935116_)))) + (let ((_body3508035129_ (reverse _body3507935116_))) + ((lambda (_L35133_) (cons 'phi: (cons '-1 - (foldr (lambda (_g3521435217_ _g3521535220_) - (cons _g3521435217_ _g3521535220_)) + (foldr (lambda (_g3514835151_ _g3514935154_) + (cons _g3514835151_ _g3514935154_)) '() - _L35199_)))) - _body3514635195_)))))) + _L35133_)))) + _body3508035129_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3514135175_ - _target3513835169_ + (_loop3507535109_ + _target3507235103_ '())) - (_g3513235152_ _g3513335156_))))) - (_g3513235152_ _g3513335156_)))) - (_g3513235152_ _g3513335156_))))) - (_g3513135223_ _stx35129_))))) + (_g3506635086_ _g3506735090_))))) + (_g3506635086_ _g3506735090_)))) + (_g3506635086_ _g3506735090_))))) + (_g3506535157_ _stx35063_))))) (define |gerbil/core$[:0:]#only-in| (gx#make-import-expander - (lambda (_stx35228_) - (let* ((_g3523135255_ - (lambda (_g3523235251_) + (lambda (_stx35162_) + (let* ((_g3516535189_ + (lambda (_g3516635185_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3523235251_))) - (_g3523035377_ - (lambda (_g3523235259_) - (if (gx#stx-pair? _g3523235259_) - (let ((_e3523735262_ (gx#syntax-e _g3523235259_))) - (let ((_hd3523635266_ + _g3516635185_))) + (_g3516435311_ + (lambda (_g3516635193_) + (if (gx#stx-pair? _g3516635193_) + (let ((_e3517135196_ (gx#syntax-e _g3516635193_))) + (let ((_hd3517035200_ (let () (declare (not safe)) - (##car _e3523735262_))) - (_tl3523535269_ + (##car _e3517135196_))) + (_tl3516935203_ (let () (declare (not safe)) - (##cdr _e3523735262_)))) - (if (gx#stx-pair? _tl3523535269_) - (let ((_e3524035272_ - (gx#syntax-e _tl3523535269_))) - (let ((_hd3523935276_ + (##cdr _e3517135196_)))) + (if (gx#stx-pair? _tl3516935203_) + (let ((_e3517435206_ + (gx#syntax-e _tl3516935203_))) + (let ((_hd3517335210_ (let () (declare (not safe)) - (##car _e3524035272_))) - (_tl3523835279_ + (##car _e3517435206_))) + (_tl3517235213_ (let () (declare (not safe)) - (##cdr _e3524035272_)))) - (if (gx#stx-pair/null? _tl3523835279_) - (let ((_g43105_ + (##cdr _e3517435206_)))) + (if (gx#stx-pair/null? _tl3517235213_) + (let ((_g42916_ (gx#syntax-split-splice - _tl3523835279_ + _tl3517235213_ '0))) (begin - (let ((_g43106_ + (let ((_g42917_ (let () (declare (not safe)) - (if (##values? _g43105_) + (if (##values? _g42916_) (##vector-length - _g43105_) + _g42916_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43106_ 2))) + (##fx= _g42917_ 2))) (error "Context expects 2 values" - _g43106_))) - (let ((_target3524135282_ + _g42917_))) + (let ((_target3517535216_ (let () (declare (not safe)) - (##vector-ref _g43105_ 0))) - (_tl3524335285_ + (##vector-ref _g42916_ 0))) + (_tl3517735219_ (let () (declare (not safe)) - (##vector-ref _g43105_ 1)))) - (if (gx#stx-null? _tl3524335285_) - (letrec ((_loop3524435288_ - (lambda (_hd3524235292_ + (##vector-ref _g42916_ 1)))) + (if (gx#stx-null? _tl3517735219_) + (letrec ((_loop3517835222_ + (lambda (_hd3517635226_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3524835295_) - (if (gx#stx-pair? _hd3524235292_) - (let ((_e3524535298_ (gx#syntax-e _hd3524235292_))) - (let ((_lp-hd3524635302_ + _id3518235229_) + (if (gx#stx-pair? _hd3517635226_) + (let ((_e3517935232_ (gx#syntax-e _hd3517635226_))) + (let ((_lp-hd3518035236_ (let () (declare (not safe)) - (##car _e3524535298_))) - (_lp-tl3524735305_ + (##car _e3517935232_))) + (_lp-tl3518135239_ (let () (declare (not safe)) - (##cdr _e3524535298_)))) - (_loop3524435288_ - _lp-tl3524735305_ - (cons _lp-hd3524635302_ _id3524835295_)))) - (let ((_id3524935308_ (reverse _id3524835295_))) - ((lambda (_L35312_ _L35314_) + (##cdr _e3517935232_)))) + (_loop3517835222_ + _lp-tl3518135239_ + (cons _lp-hd3518035236_ _id3518235229_)))) + (let ((_id3518335242_ (reverse _id3518235229_))) + ((lambda (_L35246_ _L35248_) (if (gx#identifier-list? - (foldr (lambda (_g3533135334_ _g3533235337_) - (cons _g3533135334_ _g3533235337_)) + (foldr (lambda (_g3526535268_ _g3526635271_) + (cons _g3526535268_ _g3526635271_)) '() - _L35312_)) - (let* ((_keys35348_ + _L35246_)) + (let* ((_keys35282_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_g3533935342_ - _g3534035345_) - (cons _g3533935342_ - _g3534035345_)) + (foldr (lambda (_g3527335276_ + _g3527435279_) + (cons _g3527335276_ + _g3527435279_)) '() - _L35312_))) - (_keytab35359_ - (let ((_ht35351_ (make-hash-table))) + _L35246_))) + (_keytab35293_ + (let ((_ht35285_ (make-hash-table))) (for-each - (lambda (_g3535335355_) + (lambda (_g3528735289_) (hash-put! - _ht35351_ - _g3535335355_ + _ht35285_ + _g3528735289_ '#t)) - _keys35348_) - _ht35351_)) - (_imports35362_ + _keys35282_) + _ht35285_)) + (_imports35296_ (gx#core-expand-import-source - _L35314_)) - (_fold-e35372_ - (letrec ((_fold-e35365_ - (lambda (_in35368_ _r35370_) + _L35248_)) + (_fold-e35306_ + (letrec ((_fold-e35299_ + (lambda (_in35302_ _r35304_) (if (gx#module-import? - _in35368_) + _in35302_) (if (hash-get - _keytab35359_ + _keytab35293_ (gx#module-import-name - _in35368_)) - (cons _in35368_ + _in35302_)) + (cons _in35302_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r35370_) - _r35370_) - (if (gx#import-set? _in35368_) - (foldl _fold-e35365_ - _r35370_ - (gx#import-set-imports _in35368_)) - _r35370_))))) + _r35304_) + _r35304_) + (if (gx#import-set? _in35302_) + (foldl _fold-e35299_ + _r35304_ + (gx#import-set-imports _in35302_)) + _r35304_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e35365_))) + _fold-e35299_))) (cons 'begin: - (foldl _fold-e35372_ + (foldl _fold-e35306_ '() - _imports35362_))) - (_g3523135255_ _g3523235259_))) - _id3524935308_ - _hd3523935276_)))))) + _imports35296_))) + (_g3516535189_ _g3516635193_))) + _id3518335242_ + _hd3517335210_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3524435288_ - _target3524135282_ + (_loop3517835222_ + _target3517535216_ '())) - (_g3523135255_ - _g3523235259_))))) - (_g3523135255_ _g3523235259_)))) - (_g3523135255_ _g3523235259_)))) - (_g3523135255_ _g3523235259_))))) - (_g3523035377_ _stx35228_))))) + (_g3516535189_ + _g3516635193_))))) + (_g3516535189_ _g3516635193_)))) + (_g3516535189_ _g3516635193_)))) + (_g3516535189_ _g3516635193_))))) + (_g3516435311_ _stx35162_))))) (define |gerbil/core$[:0:]#except-in| (gx#make-import-expander - (lambda (_stx35382_) - (let* ((_g3538535409_ - (lambda (_g3538635405_) + (lambda (_stx35316_) + (let* ((_g3531935343_ + (lambda (_g3532035339_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3538635405_))) - (_g3538435531_ - (lambda (_g3538635413_) - (if (gx#stx-pair? _g3538635413_) - (let ((_e3539135416_ (gx#syntax-e _g3538635413_))) - (let ((_hd3539035420_ + _g3532035339_))) + (_g3531835465_ + (lambda (_g3532035347_) + (if (gx#stx-pair? _g3532035347_) + (let ((_e3532535350_ (gx#syntax-e _g3532035347_))) + (let ((_hd3532435354_ (let () (declare (not safe)) - (##car _e3539135416_))) - (_tl3538935423_ + (##car _e3532535350_))) + (_tl3532335357_ (let () (declare (not safe)) - (##cdr _e3539135416_)))) - (if (gx#stx-pair? _tl3538935423_) - (let ((_e3539435426_ - (gx#syntax-e _tl3538935423_))) - (let ((_hd3539335430_ + (##cdr _e3532535350_)))) + (if (gx#stx-pair? _tl3532335357_) + (let ((_e3532835360_ + (gx#syntax-e _tl3532335357_))) + (let ((_hd3532735364_ (let () (declare (not safe)) - (##car _e3539435426_))) - (_tl3539235433_ + (##car _e3532835360_))) + (_tl3532635367_ (let () (declare (not safe)) - (##cdr _e3539435426_)))) - (if (gx#stx-pair/null? _tl3539235433_) - (let ((_g43107_ + (##cdr _e3532835360_)))) + (if (gx#stx-pair/null? _tl3532635367_) + (let ((_g42918_ (gx#syntax-split-splice - _tl3539235433_ + _tl3532635367_ '0))) (begin - (let ((_g43108_ + (let ((_g42919_ (let () (declare (not safe)) - (if (##values? _g43107_) + (if (##values? _g42918_) (##vector-length - _g43107_) + _g42918_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43108_ 2))) + (##fx= _g42919_ 2))) (error "Context expects 2 values" - _g43108_))) - (let ((_target3539535436_ + _g42919_))) + (let ((_target3532935370_ (let () (declare (not safe)) - (##vector-ref _g43107_ 0))) - (_tl3539735439_ + (##vector-ref _g42918_ 0))) + (_tl3533135373_ (let () (declare (not safe)) - (##vector-ref _g43107_ 1)))) - (if (gx#stx-null? _tl3539735439_) - (letrec ((_loop3539835442_ - (lambda (_hd3539635446_ + (##vector-ref _g42918_ 1)))) + (if (gx#stx-null? _tl3533135373_) + (letrec ((_loop3533235376_ + (lambda (_hd3533035380_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3540235449_) - (if (gx#stx-pair? _hd3539635446_) - (let ((_e3539935452_ (gx#syntax-e _hd3539635446_))) - (let ((_lp-hd3540035456_ + _id3533635383_) + (if (gx#stx-pair? _hd3533035380_) + (let ((_e3533335386_ (gx#syntax-e _hd3533035380_))) + (let ((_lp-hd3533435390_ (let () (declare (not safe)) - (##car _e3539935452_))) - (_lp-tl3540135459_ + (##car _e3533335386_))) + (_lp-tl3533535393_ (let () (declare (not safe)) - (##cdr _e3539935452_)))) - (_loop3539835442_ - _lp-tl3540135459_ - (cons _lp-hd3540035456_ _id3540235449_)))) - (let ((_id3540335462_ (reverse _id3540235449_))) - ((lambda (_L35466_ _L35468_) + (##cdr _e3533335386_)))) + (_loop3533235376_ + _lp-tl3533535393_ + (cons _lp-hd3533435390_ _id3533635383_)))) + (let ((_id3533735396_ (reverse _id3533635383_))) + ((lambda (_L35400_ _L35402_) (if (gx#identifier-list? - (foldr (lambda (_g3548535488_ _g3548635491_) - (cons _g3548535488_ _g3548635491_)) + (foldr (lambda (_g3541935422_ _g3542035425_) + (cons _g3541935422_ _g3542035425_)) '() - _L35466_)) - (let* ((_keys35502_ + _L35400_)) + (let* ((_keys35436_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_g3549335496_ - _g3549435499_) - (cons _g3549335496_ - _g3549435499_)) + (foldr (lambda (_g3542735430_ + _g3542835433_) + (cons _g3542735430_ + _g3542835433_)) '() - _L35466_))) - (_keytab35513_ - (let ((_ht35505_ (make-hash-table))) + _L35400_))) + (_keytab35447_ + (let ((_ht35439_ (make-hash-table))) (for-each - (lambda (_g3550735509_) + (lambda (_g3544135443_) (hash-put! - _ht35505_ - _g3550735509_ + _ht35439_ + _g3544135443_ '#t)) - _keys35502_) - _ht35505_)) - (_imports35516_ + _keys35436_) + _ht35439_)) + (_imports35450_ (gx#core-expand-import-source - _L35468_)) - (_fold-e35526_ - (letrec ((_fold-e35519_ - (lambda (_in35522_ _r35524_) + _L35402_)) + (_fold-e35460_ + (letrec ((_fold-e35453_ + (lambda (_in35456_ _r35458_) (if (gx#module-import? - _in35522_) + _in35456_) (if (hash-get - _keytab35513_ + _keytab35447_ (gx#module-import-name - _in35522_)) - _r35524_ - (cons _in35522_ + _in35456_)) + _r35458_ + (cons _in35456_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r35524_)) - (if (gx#import-set? _in35522_) - (foldl _fold-e35519_ - _r35524_ - (gx#import-set-imports _in35522_)) - (cons _in35522_ _r35524_)))))) + _r35458_)) + (if (gx#import-set? _in35456_) + (foldl _fold-e35453_ + _r35458_ + (gx#import-set-imports _in35456_)) + (cons _in35456_ _r35458_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e35519_))) + _fold-e35453_))) (cons 'begin: - (foldl _fold-e35526_ + (foldl _fold-e35460_ '() - _imports35516_))) - (_g3538535409_ _g3538635413_))) - _id3540335462_ - _hd3539335430_)))))) + _imports35450_))) + (_g3531935343_ _g3532035347_))) + _id3533735396_ + _hd3532735364_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3539835442_ - _target3539535436_ + (_loop3533235376_ + _target3532935370_ '())) - (_g3538535409_ - _g3538635413_))))) - (_g3538535409_ _g3538635413_)))) - (_g3538535409_ _g3538635413_)))) - (_g3538535409_ _g3538635413_))))) - (_g3538435531_ _stx35382_))))) + (_g3531935343_ + _g3532035347_))))) + (_g3531935343_ _g3532035347_)))) + (_g3531935343_ _g3532035347_)))) + (_g3531935343_ _g3532035347_))))) + (_g3531835465_ _stx35316_))))) (define |gerbil/core$[1]#module-import-rename| - (lambda (_in35583_ _rename35585_) + (lambda (_in35517_ _rename35519_) (gx#make-module-import - (gx#module-import-source _in35583_) - _rename35585_ - (gx#module-import-phi _in35583_) - (gx#module-import-weak? _in35583_)))) + (gx#module-import-source _in35517_) + _rename35519_ + (gx#module-import-phi _in35517_) + (gx#module-import-weak? _in35517_)))) (define |gerbil/core$[1]#prefix-identifier-key| - (lambda (_name35536_ _pre35538_) - (let* ((_name3553935547_ _name35536_) - (_else3554135559_ - (lambda () (make-symbol _pre35538_ _name35536_))) - (_K3554335567_ - (lambda (_mark35563_ _id35565_) - (cons (make-symbol _pre35538_ _id35565_) _mark35563_)))) - (if (let () (declare (not safe)) (##pair? _name3553935547_)) - (let ((_hd3554435571_ - (let () (declare (not safe)) (##car _name3553935547_))) - (_tl3554535574_ - (let () (declare (not safe)) (##cdr _name3553935547_)))) - (let* ((_id35577_ _hd3554435571_) (_mark35580_ _tl3554535574_)) + (lambda (_name35470_ _pre35472_) + (let* ((_name3547335481_ _name35470_) + (_else3547535493_ + (lambda () (make-symbol _pre35472_ _name35470_))) + (_K3547735501_ + (lambda (_mark35497_ _id35499_) + (cons (make-symbol _pre35472_ _id35499_) _mark35497_)))) + (if (let () (declare (not safe)) (##pair? _name3547335481_)) + (let ((_hd3547835505_ + (let () (declare (not safe)) (##car _name3547335481_))) + (_tl3547935508_ + (let () (declare (not safe)) (##cdr _name3547335481_)))) + (let* ((_id35511_ _hd3547835505_) (_mark35514_ _tl3547935508_)) (declare (not safe)) - (_K3554335567_ _mark35580_ _id35577_))) - (let () (declare (not safe)) (_else3554135559_)))))) + (_K3547735501_ _mark35514_ _id35511_))) + (let () (declare (not safe)) (_else3547535493_)))))) (define |gerbil/core$[:0:]#rename-in| (gx#make-import-expander - (lambda (_stx35587_) - (let* ((_g3559035623_ - (lambda (_g3559135619_) + (lambda (_stx35521_) + (let* ((_g3552435557_ + (lambda (_g3552535553_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3559135619_))) - (_g3558935809_ - (lambda (_g3559135627_) - (if (gx#stx-pair? _g3559135627_) - (let ((_e3559735630_ (gx#syntax-e _g3559135627_))) - (let ((_hd3559635634_ + _g3552535553_))) + (_g3552335743_ + (lambda (_g3552535561_) + (if (gx#stx-pair? _g3552535561_) + (let ((_e3553135564_ (gx#syntax-e _g3552535561_))) + (let ((_hd3553035568_ (let () (declare (not safe)) - (##car _e3559735630_))) - (_tl3559535637_ + (##car _e3553135564_))) + (_tl3552935571_ (let () (declare (not safe)) - (##cdr _e3559735630_)))) - (if (gx#stx-pair? _tl3559535637_) - (let ((_e3560035640_ - (gx#syntax-e _tl3559535637_))) - (let ((_hd3559935644_ + (##cdr _e3553135564_)))) + (if (gx#stx-pair? _tl3552935571_) + (let ((_e3553435574_ + (gx#syntax-e _tl3552935571_))) + (let ((_hd3553335578_ (let () (declare (not safe)) - (##car _e3560035640_))) - (_tl3559835647_ + (##car _e3553435574_))) + (_tl3553235581_ (let () (declare (not safe)) - (##cdr _e3560035640_)))) - (if (gx#stx-pair/null? _tl3559835647_) - (let ((_g43109_ + (##cdr _e3553435574_)))) + (if (gx#stx-pair/null? _tl3553235581_) + (let ((_g42920_ (gx#syntax-split-splice - _tl3559835647_ + _tl3553235581_ '0))) (begin - (let ((_g43110_ + (let ((_g42921_ (let () (declare (not safe)) - (if (##values? _g43109_) + (if (##values? _g42920_) (##vector-length - _g43109_) + _g42920_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43110_ 2))) + (##fx= _g42921_ 2))) (error "Context expects 2 values" - _g43110_))) - (let ((_target3560135650_ + _g42921_))) + (let ((_target3553535584_ (let () (declare (not safe)) - (##vector-ref _g43109_ 0))) - (_tl3560335653_ + (##vector-ref _g42920_ 0))) + (_tl3553735587_ (let () (declare (not safe)) - (##vector-ref _g43109_ 1)))) - (if (gx#stx-null? _tl3560335653_) - (letrec ((_loop3560435656_ - (lambda (_hd3560235660_ + (##vector-ref _g42920_ 1)))) + (if (gx#stx-null? _tl3553735587_) + (letrec ((_loop3553835590_ + (lambda (_hd3553635594_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _new-id3560835663_ - _id3560935665_) - (if (gx#stx-pair? _hd3560235660_) - (let ((_e3560535668_ (gx#syntax-e _hd3560235660_))) - (let ((_lp-hd3560635672_ + _new-id3554235597_ + _id3554335599_) + (if (gx#stx-pair? _hd3553635594_) + (let ((_e3553935602_ (gx#syntax-e _hd3553635594_))) + (let ((_lp-hd3554035606_ (let () (declare (not safe)) - (##car _e3560535668_))) - (_lp-tl3560735675_ + (##car _e3553935602_))) + (_lp-tl3554135609_ (let () (declare (not safe)) - (##cdr _e3560535668_)))) - (if (gx#stx-pair? _lp-hd3560635672_) - (let ((_e3561435678_ - (gx#syntax-e _lp-hd3560635672_))) - (let ((_hd3561335682_ + (##cdr _e3553935602_)))) + (if (gx#stx-pair? _lp-hd3554035606_) + (let ((_e3554835612_ + (gx#syntax-e _lp-hd3554035606_))) + (let ((_hd3554735616_ (let () (declare (not safe)) - (##car _e3561435678_))) - (_tl3561235685_ + (##car _e3554835612_))) + (_tl3554635619_ (let () (declare (not safe)) - (##cdr _e3561435678_)))) - (if (gx#stx-pair? _tl3561235685_) - (let ((_e3561735688_ - (gx#syntax-e _tl3561235685_))) - (let ((_hd3561635692_ + (##cdr _e3554835612_)))) + (if (gx#stx-pair? _tl3554635619_) + (let ((_e3555135622_ + (gx#syntax-e _tl3554635619_))) + (let ((_hd3555035626_ (let () (declare (not safe)) - (##car _e3561735688_))) - (_tl3561535695_ + (##car _e3555135622_))) + (_tl3554935629_ (let () (declare (not safe)) - (##cdr _e3561735688_)))) - (if (gx#stx-null? _tl3561535695_) - (_loop3560435656_ - _lp-tl3560735675_ - (cons _hd3561635692_ - _new-id3560835663_) - (cons _hd3561335682_ - _id3560935665_)) - (_g3559035623_ _g3559135627_)))) - (_g3559035623_ _g3559135627_)))) - (_g3559035623_ _g3559135627_)))) - (let ((_new-id3561035698_ (reverse _new-id3560835663_)) - (_id3561135701_ (reverse _id3560935665_))) - ((lambda (_L35704_ _L35706_ _L35707_) + (##cdr _e3555135622_)))) + (if (gx#stx-null? _tl3554935629_) + (_loop3553835590_ + _lp-tl3554135609_ + (cons _hd3555035626_ + _new-id3554235597_) + (cons _hd3554735616_ + _id3554335599_)) + (_g3552435557_ _g3552535561_)))) + (_g3552435557_ _g3552535561_)))) + (_g3552435557_ _g3552535561_)))) + (let ((_new-id3554435632_ (reverse _new-id3554235597_)) + (_id3554535635_ (reverse _id3554335599_))) + ((lambda (_L35638_ _L35640_ _L35641_) (if (and (gx#identifier-list? - (foldr (lambda (_g3572535728_ - _g3572635731_) - (cons _g3572535728_ - _g3572635731_)) + (foldr (lambda (_g3565935662_ + _g3566035665_) + (cons _g3565935662_ + _g3566035665_)) '() - _L35706_)) + _L35640_)) (gx#identifier-list? - (foldr (lambda (_g3573335736_ - _g3573435739_) - (cons _g3573335736_ - _g3573435739_)) + (foldr (lambda (_g3566735670_ + _g3566835673_) + (cons _g3566735670_ + _g3566835673_)) '() - _L35704_))) - (let* ((_keytab35742_ (make-hash-table)) - (_found35745_ (make-hash-table)) - (_g43111_ + _L35638_))) + (let* ((_keytab35676_ (make-hash-table)) + (_found35679_ (make-hash-table)) + (_g42922_ (for-each - (lambda (_id35748_ _new-id35750_) + (lambda (_id35682_ _new-id35684_) (hash-put! - _keytab35742_ - (gx#core-identifier-key _id35748_) + _keytab35676_ + (gx#core-identifier-key _id35682_) (gx#core-identifier-key - _new-id35750_))) - (foldr (lambda (_g3575135754_ - _g3575235757_) - (cons _g3575135754_ - _g3575235757_)) + _new-id35684_))) + (foldr (lambda (_g3568535688_ + _g3568635691_) + (cons _g3568535688_ + _g3568635691_)) '() - _L35706_) - (foldr (lambda (_g3575935762_ - _g3576035765_) - (cons _g3575935762_ - _g3576035765_)) + _L35640_) + (foldr (lambda (_g3569335696_ + _g3569435699_) + (cons _g3569335696_ + _g3569435699_)) '() - _L35704_))) - (_imports35770_ + _L35638_))) + (_imports35704_ (gx#core-expand-import-source - _L35707_)) - (_fold-e35790_ - (letrec ((_fold-e35773_ - (lambda (_in35776_ _r35778_) + _L35641_)) + (_fold-e35724_ + (letrec ((_fold-e35707_ + (lambda (_in35710_ _r35712_) (if (gx#module-import? - _in35776_) - (let* ((_name35780_ + _in35710_) + (let* ((_name35714_ (gx#module-import-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in35776_)) - (_$e35783_ (hash-get _keytab35742_ _name35780_))) - (if _$e35783_ - ((lambda (_rename35787_) - (hash-put! _found35745_ _name35780_ '#t) + _in35710_)) + (_$e35717_ (hash-get _keytab35676_ _name35714_))) + (if _$e35717_ + ((lambda (_rename35721_) + (hash-put! _found35679_ _name35714_ '#t) (cons (let () (declare (not safe)) (|gerbil/core$[1]#module-import-rename| - _in35776_ - _rename35787_)) - _r35778_)) - _$e35783_) - (cons _in35776_ _r35778_))) - (if (gx#import-set? _in35776_) - (foldl _fold-e35773_ - _r35778_ - (gx#import-set-imports _in35776_)) - (cons _in35776_ _r35778_)))))) + _in35710_ + _rename35721_)) + _r35712_)) + _$e35717_) + (cons _in35710_ _r35712_))) + (if (gx#import-set? _in35710_) + (foldl _fold-e35707_ + _r35712_ + (gx#import-set-imports _in35710_)) + (cons _in35710_ _r35712_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e35773_)) - (_new-imports35793_ - (foldl _fold-e35790_ + _fold-e35707_)) + (_new-imports35727_ + (foldl _fold-e35724_ '() - _imports35770_))) + _imports35704_))) (for-each - (lambda (_id35798_) + (lambda (_id35732_) (if (hash-get - _found35745_ - (gx#core-identifier-key _id35798_)) + _found35679_ + (gx#core-identifier-key _id35732_)) '#!void (gx#raise-syntax-error '#f '"Bad syntax; identifier is not in the import set" - _stx35587_ - _id35798_))) - (foldr (lambda (_g3580035803_ _g3580135806_) - (cons _g3580035803_ _g3580135806_)) + _stx35521_ + _id35732_))) + (foldr (lambda (_g3573435737_ _g3573535740_) + (cons _g3573435737_ _g3573535740_)) '() - _L35706_)) - (cons 'begin: _new-imports35793_)) - (_g3559035623_ _g3559135627_))) - _new-id3561035698_ - _id3561135701_ - _hd3559935644_)))))) + _L35640_)) + (cons 'begin: _new-imports35727_)) + (_g3552435557_ _g3552535561_))) + _new-id3554435632_ + _id3554535635_ + _hd3553335578_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3560435656_ - _target3560135650_ + (_loop3553835590_ + _target3553535584_ '() '())) - (_g3559035623_ - _g3559135627_))))) - (_g3559035623_ _g3559135627_)))) - (_g3559035623_ _g3559135627_)))) - (_g3559035623_ _g3559135627_))))) - (_g3558935809_ _stx35587_))))) + (_g3552435557_ + _g3552535561_))))) + (_g3552435557_ _g3552535561_)))) + (_g3552435557_ _g3552535561_)))) + (_g3552435557_ _g3552535561_))))) + (_g3552335743_ _stx35521_))))) (define |gerbil/core$[:0:]#prefix-in| (gx#make-import-expander - (lambda (_stx35815_) - (let* ((_g3581835836_ - (lambda (_g3581935832_) + (lambda (_stx35749_) + (let* ((_g3575235770_ + (lambda (_g3575335766_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3581935832_))) - (_g3581735915_ - (lambda (_g3581935840_) - (if (gx#stx-pair? _g3581935840_) - (let ((_e3582435843_ (gx#syntax-e _g3581935840_))) - (let ((_hd3582335847_ + _g3575335766_))) + (_g3575135849_ + (lambda (_g3575335774_) + (if (gx#stx-pair? _g3575335774_) + (let ((_e3575835777_ (gx#syntax-e _g3575335774_))) + (let ((_hd3575735781_ (let () (declare (not safe)) - (##car _e3582435843_))) - (_tl3582235850_ + (##car _e3575835777_))) + (_tl3575635784_ (let () (declare (not safe)) - (##cdr _e3582435843_)))) - (if (gx#stx-pair? _tl3582235850_) - (let ((_e3582735853_ - (gx#syntax-e _tl3582235850_))) - (let ((_hd3582635857_ + (##cdr _e3575835777_)))) + (if (gx#stx-pair? _tl3575635784_) + (let ((_e3576135787_ + (gx#syntax-e _tl3575635784_))) + (let ((_hd3576035791_ (let () (declare (not safe)) - (##car _e3582735853_))) - (_tl3582535860_ + (##car _e3576135787_))) + (_tl3575935794_ (let () (declare (not safe)) - (##cdr _e3582735853_)))) - (if (gx#stx-pair? _tl3582535860_) - (let ((_e3583035863_ - (gx#syntax-e _tl3582535860_))) - (let ((_hd3582935867_ + (##cdr _e3576135787_)))) + (if (gx#stx-pair? _tl3575935794_) + (let ((_e3576435797_ + (gx#syntax-e _tl3575935794_))) + (let ((_hd3576335801_ (let () (declare (not safe)) - (##car _e3583035863_))) - (_tl3582835870_ + (##car _e3576435797_))) + (_tl3576235804_ (let () (declare (not safe)) - (##cdr _e3583035863_)))) - (if (gx#stx-null? _tl3582835870_) - ((lambda (_L35873_ _L35875_) - (if (gx#identifier? _L35873_) - (let* ((_pre35891_ + (##cdr _e3576435797_)))) + (if (gx#stx-null? _tl3576235804_) + ((lambda (_L35807_ _L35809_) + (if (gx#identifier? _L35807_) + (let* ((_pre35825_ (gx#stx-e - _L35873_)) - (_imports35894_ + _L35807_)) + (_imports35828_ (gx#core-expand-import-source - _L35875_)) - (_rename-e35900_ - (lambda (_name35897_) + _L35809_)) + (_rename-e35834_ + (lambda (_name35831_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core$[1]#prefix-identifier-key| - _name35897_ - _pre35891_)))) - (_fold-e35910_ - (letrec ((_fold-e35903_ - (lambda (_in35906_ _r35908_) - (if (gx#module-import? _in35906_) - (cons (let ((__tmp43112 - (_rename-e35900_ + _name35831_ + _pre35825_)))) + (_fold-e35844_ + (letrec ((_fold-e35837_ + (lambda (_in35840_ _r35842_) + (if (gx#module-import? _in35840_) + (cons (let ((__tmp42923 + (_rename-e35834_ (gx#module-import-name - _in35906_)))) + _in35840_)))) (declare (not safe)) (|gerbil/core$[1]#module-import-rename| - _in35906_ - __tmp43112)) - _r35908_) - (if (gx#import-set? _in35906_) - (foldl _fold-e35903_ - _r35908_ + _in35840_ + __tmp42923)) + _r35842_) + (if (gx#import-set? _in35840_) + (foldl _fold-e35837_ + _r35842_ (gx#import-set-imports - _in35906_)) - (cons _in35906_ _r35908_)))))) - _fold-e35903_))) - (cons 'begin: (foldl _fold-e35910_ '() _imports35894_))) + _in35840_)) + (cons _in35840_ _r35842_)))))) + _fold-e35837_))) + (cons 'begin: (foldl _fold-e35844_ '() _imports35828_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3581835836_ - _g3581935840_))) - _hd3582935867_ - _hd3582635857_) - (_g3581835836_ _g3581935840_)))) - (_g3581835836_ _g3581935840_)))) - (_g3581835836_ _g3581935840_)))) - (_g3581835836_ _g3581935840_))))) - (_g3581735915_ _stx35815_))))) + (_g3575235770_ + _g3575335774_))) + _hd3576335801_ + _hd3576035791_) + (_g3575235770_ _g3575335774_)))) + (_g3575235770_ _g3575335774_)))) + (_g3575235770_ _g3575335774_)))) + (_g3575235770_ _g3575335774_))))) + (_g3575135849_ _stx35749_))))) (define |gerbil/core$[:0:]#group-in| (gx#make-import-expander - (lambda (_stx35919_) - (letrec ((_flatten35922_ - (lambda (_list-of-lists36177_) - (foldr (lambda (_v36180_ _acc36182_) - (if (null? _v36180_) - _acc36182_ - (if (pair? _v36180_) - (append (_flatten35922_ _v36180_) - _acc36182_) - (cons _v36180_ _acc36182_)))) + (lambda (_stx35853_) + (letrec ((_flatten35856_ + (lambda (_list-of-lists36111_) + (foldr (lambda (_v36114_ _acc36116_) + (if (null? _v36114_) + _acc36116_ + (if (pair? _v36114_) + (append (_flatten35856_ _v36114_) + _acc36116_) + (cons _v36114_ _acc36116_)))) '() - _list-of-lists36177_))) - (_expand-path35924_ - (lambda (_top36045_ _mod36047_) - (let* ((___stx4266842669_ _mod36047_) - (_g3605036072_ + _list-of-lists36111_))) + (_expand-path35858_ + (lambda (_top35979_ _mod35981_) + (let* ((___stx4255842559_ _mod35981_) + (_g3598436006_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4266842669_)))) - (let ((___kont4267142672_ - (lambda (_L36140_ _L36142_) - (map (lambda (_mod36157_) + ___stx4255842559_)))) + (let ((___kont4256142562_ + (lambda (_L36074_ _L36076_) + (map (lambda (_mod36091_) (gx#stx-identifier - _top36045_ - _top36045_ + _top35979_ + _top35979_ '"/" - _mod36157_)) - (_flatten35922_ - (map (lambda (_g3615936161_) - (_expand-path35924_ - _L36142_ - _g3615936161_)) - (foldr (lambda (_g3616436167_ - _g3616536170_) - (cons _g3616436167_ - _g3616536170_)) + _mod36091_)) + (_flatten35856_ + (map (lambda (_g3609336095_) + (_expand-path35858_ + _L36076_ + _g3609336095_)) + (foldr (lambda (_g3609836101_ + _g3609936104_) + (cons _g3609836101_ + _g3609936104_)) '() - _L36140_)))))) - (___kont4267542676_ - (lambda (_L36079_) + _L36074_)))))) + (___kont4256542566_ + (lambda (_L36013_) (gx#stx-identifier - _top36045_ - _top36045_ + _top35979_ + _top35979_ '"/" - _L36079_)))) - (let* ((_g3604936093_ + _L36013_)))) + (let* ((_g3598336027_ (lambda () - (let ((_L36079_ ___stx4266842669_)) - (if (or (gx#identifier? _L36079_) - (gx#stx-fixnum? _L36079_)) - (___kont4267542676_ _L36079_) + (let ((_L36013_ ___stx4255842559_)) + (if (or (gx#identifier? _L36013_) + (gx#stx-fixnum? _L36013_)) + (___kont4256542566_ _L36013_) (let () (declare (not safe)) - (_g3605036072_)))))) - (___match4269142692_ - (lambda (_e3605636100_ - _hd3605536104_ - _tl3605436107_ - ___splice4267342674_ - _target3605736110_ - _tl3605936113_) - (letrec ((_loop3606036116_ - (lambda (_hd3605836120_ - _mod3606436123_) - (if (gx#stx-pair? _hd3605836120_) - (let ((_e3606136126_ + (_g3598436006_)))))) + (___match4258142582_ + (lambda (_e3599036034_ + _hd3598936038_ + _tl3598836041_ + ___splice4256342564_ + _target3599136044_ + _tl3599336047_) + (letrec ((_loop3599436050_ + (lambda (_hd3599236054_ + _mod3599836057_) + (if (gx#stx-pair? _hd3599236054_) + (let ((_e3599536060_ (gx#syntax-e - _hd3605836120_))) - (let ((_lp-tl3606336133_ + _hd3599236054_))) + (let ((_lp-tl3599736067_ (let () (declare (not safe)) - (##cdr _e3606136126_))) - (_lp-hd3606236130_ + (##cdr _e3599536060_))) + (_lp-hd3599636064_ (let () (declare (not safe)) - (##car _e3606136126_)))) - (_loop3606036116_ - _lp-tl3606336133_ - (cons _lp-hd3606236130_ - _mod3606436123_)))) - (let ((_mod3606536136_ - (reverse _mod3606436123_))) - (___kont4267142672_ - _mod3606536136_ - _hd3605536104_)))))) - (_loop3606036116_ - _target3605736110_ + (##car _e3599536060_)))) + (_loop3599436050_ + _lp-tl3599736067_ + (cons _lp-hd3599636064_ + _mod3599836057_)))) + (let ((_mod3599936070_ + (reverse _mod3599836057_))) + (___kont4256142562_ + _mod3599936070_ + _hd3598936038_)))))) + (_loop3599436050_ + _target3599136044_ '()))))) - (if (gx#stx-pair? ___stx4266842669_) - (let ((_e3605636100_ - (gx#syntax-e ___stx4266842669_))) - (let ((_tl3605436107_ + (if (gx#stx-pair? ___stx4255842559_) + (let ((_e3599036034_ + (gx#syntax-e ___stx4255842559_))) + (let ((_tl3598836041_ (let () (declare (not safe)) - (##cdr _e3605636100_))) - (_hd3605536104_ + (##cdr _e3599036034_))) + (_hd3598936038_ (let () (declare (not safe)) - (##car _e3605636100_)))) - (if (gx#stx-pair/null? _tl3605436107_) - (let ((___splice4267342674_ + (##car _e3599036034_)))) + (if (gx#stx-pair/null? _tl3598836041_) + (let ((___splice4256342564_ (gx#syntax-split-splice - _tl3605436107_ + _tl3598836041_ '0))) - (let ((_tl3605936113_ + (let ((_tl3599336047_ (let () (declare (not safe)) (##vector-ref - ___splice4267342674_ + ___splice4256342564_ '1))) - (_target3605736110_ + (_target3599136044_ (let () (declare (not safe)) (##vector-ref - ___splice4267342674_ + ___splice4256342564_ '0)))) - (if (gx#stx-null? _tl3605936113_) - (___match4269142692_ - _e3605636100_ - _hd3605536104_ - _tl3605436107_ - ___splice4267342674_ - _target3605736110_ - _tl3605936113_) + (if (gx#stx-null? _tl3599336047_) + (___match4258142582_ + _e3599036034_ + _hd3598936038_ + _tl3598836041_ + ___splice4256342564_ + _target3599136044_ + _tl3599336047_) (let () (declare (not safe)) - (_g3604936093_))))) + (_g3598336027_))))) (let () (declare (not safe)) - (_g3604936093_))))) + (_g3598336027_))))) (let () (declare (not safe)) - (_g3604936093_))))))))) - (let* ((_g3592635950_ - (lambda (_g3592735946_) + (_g3598336027_))))))))) + (let* ((_g3586035884_ + (lambda (_g3586135880_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3592735946_))) - (_g3592536041_ - (lambda (_g3592735954_) - (if (gx#stx-pair? _g3592735954_) - (let ((_e3593235957_ (gx#syntax-e _g3592735954_))) - (let ((_hd3593135961_ + _g3586135880_))) + (_g3585935975_ + (lambda (_g3586135888_) + (if (gx#stx-pair? _g3586135888_) + (let ((_e3586635891_ (gx#syntax-e _g3586135888_))) + (let ((_hd3586535895_ (let () (declare (not safe)) - (##car _e3593235957_))) - (_tl3593035964_ + (##car _e3586635891_))) + (_tl3586435898_ (let () (declare (not safe)) - (##cdr _e3593235957_)))) - (if (gx#stx-pair? _tl3593035964_) - (let ((_e3593535967_ - (gx#syntax-e _tl3593035964_))) - (let ((_hd3593435971_ + (##cdr _e3586635891_)))) + (if (gx#stx-pair? _tl3586435898_) + (let ((_e3586935901_ + (gx#syntax-e _tl3586435898_))) + (let ((_hd3586835905_ (let () (declare (not safe)) - (##car _e3593535967_))) - (_tl3593335974_ + (##car _e3586935901_))) + (_tl3586735908_ (let () (declare (not safe)) - (##cdr _e3593535967_)))) - (if (gx#stx-pair/null? _tl3593335974_) - (let ((_g43113_ + (##cdr _e3586935901_)))) + (if (gx#stx-pair/null? _tl3586735908_) + (let ((_g42924_ (gx#syntax-split-splice - _tl3593335974_ + _tl3586735908_ '0))) (begin - (let ((_g43114_ + (let ((_g42925_ (let () (declare (not safe)) - (if (##values? _g43113_) + (if (##values? _g42924_) (##vector-length - _g43113_) + _g42924_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43114_ 2))) + (##fx= _g42925_ 2))) (error "Context expects 2 values" - _g43114_))) - (let ((_target3593635977_ + _g42925_))) + (let ((_target3587035911_ (let () (declare (not safe)) - (##vector-ref _g43113_ 0))) - (_tl3593835980_ + (##vector-ref _g42924_ 0))) + (_tl3587235914_ (let () (declare (not safe)) (##vector-ref - _g43113_ + _g42924_ 1)))) - (if (gx#stx-null? _tl3593835980_) - (letrec ((_loop3593935983_ - (lambda (_hd3593735987_ + (if (gx#stx-null? _tl3587235914_) + (letrec ((_loop3587335917_ + (lambda (_hd3587135921_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mod3594335990_) - (if (gx#stx-pair? _hd3593735987_) - (let ((_e3594035993_ (gx#syntax-e _hd3593735987_))) - (let ((_lp-hd3594135997_ + _mod3587735924_) + (if (gx#stx-pair? _hd3587135921_) + (let ((_e3587435927_ (gx#syntax-e _hd3587135921_))) + (let ((_lp-hd3587535931_ (let () (declare (not safe)) - (##car _e3594035993_))) - (_lp-tl3594236000_ + (##car _e3587435927_))) + (_lp-tl3587635934_ (let () (declare (not safe)) - (##cdr _e3594035993_)))) - (_loop3593935983_ - _lp-tl3594236000_ - (cons _lp-hd3594135997_ _mod3594335990_)))) - (let ((_mod3594436003_ (reverse _mod3594335990_))) - ((lambda (_L36007_ _L36009_) + (##cdr _e3587435927_)))) + (_loop3587335917_ + _lp-tl3587635934_ + (cons _lp-hd3587535931_ _mod3587735924_)))) + (let ((_mod3587835937_ (reverse _mod3587735924_))) + ((lambda (_L35941_ _L35943_) (cons 'begin: - (_flatten35922_ - (map (lambda (_g3602736029_) - (_expand-path35924_ - _L36009_ - _g3602736029_)) - (foldr (lambda (_g3603236035_ - _g3603336038_) - (cons _g3603236035_ - _g3603336038_)) + (_flatten35856_ + (map (lambda (_g3596135963_) + (_expand-path35858_ + _L35943_ + _g3596135963_)) + (foldr (lambda (_g3596635969_ + _g3596735972_) + (cons _g3596635969_ + _g3596735972_)) '() - _L36007_))))) - _mod3594436003_ - _hd3593435971_)))))) + _L35941_))))) + _mod3587835937_ + _hd3586835905_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3593935983_ - _target3593635977_ + (_loop3587335917_ + _target3587035911_ '())) - (_g3592635950_ - _g3592735954_))))) - (_g3592635950_ _g3592735954_)))) - (_g3592635950_ _g3592735954_)))) - (_g3592635950_ _g3592735954_))))) - (_g3592536041_ _stx35919_)))))) + (_g3586035884_ + _g3586135888_))))) + (_g3586035884_ _g3586135888_)))) + (_g3586035884_ _g3586135888_)))) + (_g3586035884_ _g3586135888_))))) + (_g3585935975_ _stx35853_)))))) (define |gerbil/core$[:0:]#except-out| (gx#make-export-expander - (lambda (_stx36186_) - (let* ((_g3618936213_ - (lambda (_g3619036209_) + (lambda (_stx36120_) + (let* ((_g3612336147_ + (lambda (_g3612436143_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3619036209_))) - (_g3618836335_ - (lambda (_g3619036217_) - (if (gx#stx-pair? _g3619036217_) - (let ((_e3619536220_ (gx#syntax-e _g3619036217_))) - (let ((_hd3619436224_ + _g3612436143_))) + (_g3612236269_ + (lambda (_g3612436151_) + (if (gx#stx-pair? _g3612436151_) + (let ((_e3612936154_ (gx#syntax-e _g3612436151_))) + (let ((_hd3612836158_ (let () (declare (not safe)) - (##car _e3619536220_))) - (_tl3619336227_ + (##car _e3612936154_))) + (_tl3612736161_ (let () (declare (not safe)) - (##cdr _e3619536220_)))) - (if (gx#stx-pair? _tl3619336227_) - (let ((_e3619836230_ - (gx#syntax-e _tl3619336227_))) - (let ((_hd3619736234_ + (##cdr _e3612936154_)))) + (if (gx#stx-pair? _tl3612736161_) + (let ((_e3613236164_ + (gx#syntax-e _tl3612736161_))) + (let ((_hd3613136168_ (let () (declare (not safe)) - (##car _e3619836230_))) - (_tl3619636237_ + (##car _e3613236164_))) + (_tl3613036171_ (let () (declare (not safe)) - (##cdr _e3619836230_)))) - (if (gx#stx-pair/null? _tl3619636237_) - (let ((_g43115_ + (##cdr _e3613236164_)))) + (if (gx#stx-pair/null? _tl3613036171_) + (let ((_g42926_ (gx#syntax-split-splice - _tl3619636237_ + _tl3613036171_ '0))) (begin - (let ((_g43116_ + (let ((_g42927_ (let () (declare (not safe)) - (if (##values? _g43115_) + (if (##values? _g42926_) (##vector-length - _g43115_) + _g42926_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43116_ 2))) + (##fx= _g42927_ 2))) (error "Context expects 2 values" - _g43116_))) - (let ((_target3619936240_ + _g42927_))) + (let ((_target3613336174_ (let () (declare (not safe)) - (##vector-ref _g43115_ 0))) - (_tl3620136243_ + (##vector-ref _g42926_ 0))) + (_tl3613536177_ (let () (declare (not safe)) - (##vector-ref _g43115_ 1)))) - (if (gx#stx-null? _tl3620136243_) - (letrec ((_loop3620236246_ - (lambda (_hd3620036250_ + (##vector-ref _g42926_ 1)))) + (if (gx#stx-null? _tl3613536177_) + (letrec ((_loop3613636180_ + (lambda (_hd3613436184_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3620636253_) - (if (gx#stx-pair? _hd3620036250_) - (let ((_e3620336256_ (gx#syntax-e _hd3620036250_))) - (let ((_lp-hd3620436260_ + _id3614036187_) + (if (gx#stx-pair? _hd3613436184_) + (let ((_e3613736190_ (gx#syntax-e _hd3613436184_))) + (let ((_lp-hd3613836194_ (let () (declare (not safe)) - (##car _e3620336256_))) - (_lp-tl3620536263_ + (##car _e3613736190_))) + (_lp-tl3613936197_ (let () (declare (not safe)) - (##cdr _e3620336256_)))) - (_loop3620236246_ - _lp-tl3620536263_ - (cons _lp-hd3620436260_ _id3620636253_)))) - (let ((_id3620736266_ (reverse _id3620636253_))) - ((lambda (_L36270_ _L36272_) + (##cdr _e3613736190_)))) + (_loop3613636180_ + _lp-tl3613936197_ + (cons _lp-hd3613836194_ _id3614036187_)))) + (let ((_id3614136200_ (reverse _id3614036187_))) + ((lambda (_L36204_ _L36206_) (if (gx#identifier-list? - (foldr (lambda (_g3628936292_ _g3629036295_) - (cons _g3628936292_ _g3629036295_)) + (foldr (lambda (_g3622336226_ _g3622436229_) + (cons _g3622336226_ _g3622436229_)) '() - _L36270_)) - (let* ((_keys36306_ + _L36204_)) + (let* ((_keys36240_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_g3629736300_ - _g3629836303_) - (cons _g3629736300_ - _g3629836303_)) + (foldr (lambda (_g3623136234_ + _g3623236237_) + (cons _g3623136234_ + _g3623236237_)) '() - _L36270_))) - (_keytab36317_ - (let ((_ht36309_ (make-hash-table))) + _L36204_))) + (_keytab36251_ + (let ((_ht36243_ (make-hash-table))) (for-each - (lambda (_g3631136313_) + (lambda (_g3624536247_) (hash-put! - _ht36309_ - _g3631136313_ + _ht36243_ + _g3624536247_ '#t)) - _keys36306_) - _ht36309_)) - (_exports36320_ + _keys36240_) + _ht36243_)) + (_exports36254_ (gx#core-expand-export-source - _L36272_)) - (_fold-e36330_ - (letrec ((_fold-e36323_ - (lambda (_out36326_ _r36328_) + _L36206_)) + (_fold-e36264_ + (letrec ((_fold-e36257_ + (lambda (_out36260_ _r36262_) (if (gx#module-export? - _out36326_) + _out36260_) (if (hash-get - _keytab36317_ + _keytab36251_ (gx#module-export-name - _out36326_)) - _r36328_ - (cons _out36326_ + _out36260_)) + _r36262_ + (cons _out36260_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r36328_)) - (if (gx#export-set? _out36326_) - (foldl _fold-e36323_ - _r36328_ - (gx#export-set-exports _out36326_)) - _r36328_))))) + _r36262_)) + (if (gx#export-set? _out36260_) + (foldl _fold-e36257_ + _r36262_ + (gx#export-set-exports _out36260_)) + _r36262_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e36323_))) + _fold-e36257_))) (cons 'begin: - (foldl _fold-e36330_ + (foldl _fold-e36264_ '() - _exports36320_))) - (_g3618936213_ _g3619036217_))) - _id3620736266_ - _hd3619736234_)))))) + _exports36254_))) + (_g3612336147_ _g3612436151_))) + _id3614136200_ + _hd3613136168_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3620236246_ - _target3619936240_ + (_loop3613636180_ + _target3613336174_ '())) - (_g3618936213_ - _g3619036217_))))) - (_g3618936213_ _g3619036217_)))) - (_g3618936213_ _g3619036217_)))) - (_g3618936213_ _g3619036217_))))) - (_g3618836335_ _stx36186_))))) + (_g3612336147_ + _g3612436151_))))) + (_g3612336147_ _g3612436151_)))) + (_g3612336147_ _g3612436151_)))) + (_g3612336147_ _g3612436151_))))) + (_g3612236269_ _stx36120_))))) (define |gerbil/core$[1]#module-export-rename| - (lambda (_out36340_ _rename36342_) + (lambda (_out36274_ _rename36276_) (gx#make-module-export - (gx#module-export-context _out36340_) - (gx#module-export-key _out36340_) - (gx#module-export-phi _out36340_) - _rename36342_ - (gx#module-export-weak? _out36340_)))) + (gx#module-export-context _out36274_) + (gx#module-export-key _out36274_) + (gx#module-export-phi _out36274_) + _rename36276_ + (gx#module-export-weak? _out36274_)))) (define |gerbil/core$[:0:]#rename-out| (gx#make-export-expander - (lambda (_stx36344_) - (let* ((_g3634736380_ - (lambda (_g3634836376_) + (lambda (_stx36278_) + (let* ((_g3628136314_ + (lambda (_g3628236310_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3634836376_))) - (_g3634636566_ - (lambda (_g3634836384_) - (if (gx#stx-pair? _g3634836384_) - (let ((_e3635436387_ (gx#syntax-e _g3634836384_))) - (let ((_hd3635336391_ + _g3628236310_))) + (_g3628036500_ + (lambda (_g3628236318_) + (if (gx#stx-pair? _g3628236318_) + (let ((_e3628836321_ (gx#syntax-e _g3628236318_))) + (let ((_hd3628736325_ (let () (declare (not safe)) - (##car _e3635436387_))) - (_tl3635236394_ + (##car _e3628836321_))) + (_tl3628636328_ (let () (declare (not safe)) - (##cdr _e3635436387_)))) - (if (gx#stx-pair? _tl3635236394_) - (let ((_e3635736397_ - (gx#syntax-e _tl3635236394_))) - (let ((_hd3635636401_ + (##cdr _e3628836321_)))) + (if (gx#stx-pair? _tl3628636328_) + (let ((_e3629136331_ + (gx#syntax-e _tl3628636328_))) + (let ((_hd3629036335_ (let () (declare (not safe)) - (##car _e3635736397_))) - (_tl3635536404_ + (##car _e3629136331_))) + (_tl3628936338_ (let () (declare (not safe)) - (##cdr _e3635736397_)))) - (if (gx#stx-pair/null? _tl3635536404_) - (let ((_g43117_ + (##cdr _e3629136331_)))) + (if (gx#stx-pair/null? _tl3628936338_) + (let ((_g42928_ (gx#syntax-split-splice - _tl3635536404_ + _tl3628936338_ '0))) (begin - (let ((_g43118_ + (let ((_g42929_ (let () (declare (not safe)) - (if (##values? _g43117_) + (if (##values? _g42928_) (##vector-length - _g43117_) + _g42928_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43118_ 2))) + (##fx= _g42929_ 2))) (error "Context expects 2 values" - _g43118_))) - (let ((_target3635836407_ + _g42929_))) + (let ((_target3629236341_ (let () (declare (not safe)) - (##vector-ref _g43117_ 0))) - (_tl3636036410_ + (##vector-ref _g42928_ 0))) + (_tl3629436344_ (let () (declare (not safe)) - (##vector-ref _g43117_ 1)))) - (if (gx#stx-null? _tl3636036410_) - (letrec ((_loop3636136413_ - (lambda (_hd3635936417_ + (##vector-ref _g42928_ 1)))) + (if (gx#stx-null? _tl3629436344_) + (letrec ((_loop3629536347_ + (lambda (_hd3629336351_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _new-id3636536420_ - _id3636636422_) - (if (gx#stx-pair? _hd3635936417_) - (let ((_e3636236425_ (gx#syntax-e _hd3635936417_))) - (let ((_lp-hd3636336429_ + _new-id3629936354_ + _id3630036356_) + (if (gx#stx-pair? _hd3629336351_) + (let ((_e3629636359_ (gx#syntax-e _hd3629336351_))) + (let ((_lp-hd3629736363_ (let () (declare (not safe)) - (##car _e3636236425_))) - (_lp-tl3636436432_ + (##car _e3629636359_))) + (_lp-tl3629836366_ (let () (declare (not safe)) - (##cdr _e3636236425_)))) - (if (gx#stx-pair? _lp-hd3636336429_) - (let ((_e3637136435_ - (gx#syntax-e _lp-hd3636336429_))) - (let ((_hd3637036439_ + (##cdr _e3629636359_)))) + (if (gx#stx-pair? _lp-hd3629736363_) + (let ((_e3630536369_ + (gx#syntax-e _lp-hd3629736363_))) + (let ((_hd3630436373_ (let () (declare (not safe)) - (##car _e3637136435_))) - (_tl3636936442_ + (##car _e3630536369_))) + (_tl3630336376_ (let () (declare (not safe)) - (##cdr _e3637136435_)))) - (if (gx#stx-pair? _tl3636936442_) - (let ((_e3637436445_ - (gx#syntax-e _tl3636936442_))) - (let ((_hd3637336449_ + (##cdr _e3630536369_)))) + (if (gx#stx-pair? _tl3630336376_) + (let ((_e3630836379_ + (gx#syntax-e _tl3630336376_))) + (let ((_hd3630736383_ (let () (declare (not safe)) - (##car _e3637436445_))) - (_tl3637236452_ + (##car _e3630836379_))) + (_tl3630636386_ (let () (declare (not safe)) - (##cdr _e3637436445_)))) - (if (gx#stx-null? _tl3637236452_) - (_loop3636136413_ - _lp-tl3636436432_ - (cons _hd3637336449_ - _new-id3636536420_) - (cons _hd3637036439_ - _id3636636422_)) - (_g3634736380_ _g3634836384_)))) - (_g3634736380_ _g3634836384_)))) - (_g3634736380_ _g3634836384_)))) - (let ((_new-id3636736455_ (reverse _new-id3636536420_)) - (_id3636836458_ (reverse _id3636636422_))) - ((lambda (_L36461_ _L36463_ _L36464_) + (##cdr _e3630836379_)))) + (if (gx#stx-null? _tl3630636386_) + (_loop3629536347_ + _lp-tl3629836366_ + (cons _hd3630736383_ + _new-id3629936354_) + (cons _hd3630436373_ + _id3630036356_)) + (_g3628136314_ _g3628236318_)))) + (_g3628136314_ _g3628236318_)))) + (_g3628136314_ _g3628236318_)))) + (let ((_new-id3630136389_ (reverse _new-id3629936354_)) + (_id3630236392_ (reverse _id3630036356_))) + ((lambda (_L36395_ _L36397_ _L36398_) (if (and (gx#identifier-list? - (foldr (lambda (_g3648236485_ - _g3648336488_) - (cons _g3648236485_ - _g3648336488_)) + (foldr (lambda (_g3641636419_ + _g3641736422_) + (cons _g3641636419_ + _g3641736422_)) '() - _L36463_)) + _L36397_)) (gx#identifier-list? - (foldr (lambda (_g3649036493_ - _g3649136496_) - (cons _g3649036493_ - _g3649136496_)) + (foldr (lambda (_g3642436427_ + _g3642536430_) + (cons _g3642436427_ + _g3642536430_)) '() - _L36461_))) - (let* ((_keytab36499_ (make-hash-table)) - (_found36502_ (make-hash-table)) - (_g43119_ + _L36395_))) + (let* ((_keytab36433_ (make-hash-table)) + (_found36436_ (make-hash-table)) + (_g42930_ (for-each - (lambda (_id36505_ _new-id36507_) + (lambda (_id36439_ _new-id36441_) (hash-put! - _keytab36499_ - (gx#core-identifier-key _id36505_) + _keytab36433_ + (gx#core-identifier-key _id36439_) (gx#core-identifier-key - _new-id36507_))) - (foldr (lambda (_g3650836511_ - _g3650936514_) - (cons _g3650836511_ - _g3650936514_)) + _new-id36441_))) + (foldr (lambda (_g3644236445_ + _g3644336448_) + (cons _g3644236445_ + _g3644336448_)) '() - _L36463_) - (foldr (lambda (_g3651636519_ - _g3651736522_) - (cons _g3651636519_ - _g3651736522_)) + _L36397_) + (foldr (lambda (_g3645036453_ + _g3645136456_) + (cons _g3645036453_ + _g3645136456_)) '() - _L36461_))) - (_exports36527_ + _L36395_))) + (_exports36461_ (gx#core-expand-export-source - _L36464_)) - (_fold-e36547_ - (letrec ((_fold-e36530_ - (lambda (_out36533_ _r36535_) + _L36398_)) + (_fold-e36481_ + (letrec ((_fold-e36464_ + (lambda (_out36467_ _r36469_) (if (gx#module-export? - _out36533_) - (let* ((_name36537_ + _out36467_) + (let* ((_name36471_ (gx#module-export-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out36533_)) - (_$e36540_ (hash-get _keytab36499_ _name36537_))) - (if _$e36540_ - ((lambda (_rename36544_) - (hash-put! _found36502_ _name36537_ '#t) + _out36467_)) + (_$e36474_ (hash-get _keytab36433_ _name36471_))) + (if _$e36474_ + ((lambda (_rename36478_) + (hash-put! _found36436_ _name36471_ '#t) (cons (let () (declare (not safe)) (|gerbil/core$[1]#module-export-rename| - _out36533_ - _rename36544_)) - _r36535_)) - _$e36540_) - (cons _out36533_ _r36535_))) - (if (gx#export-set? _out36533_) - (foldl _fold-e36530_ - _r36535_ - (gx#export-set-exports _out36533_)) - (cons _out36533_ _r36535_)))))) + _out36467_ + _rename36478_)) + _r36469_)) + _$e36474_) + (cons _out36467_ _r36469_))) + (if (gx#export-set? _out36467_) + (foldl _fold-e36464_ + _r36469_ + (gx#export-set-exports _out36467_)) + (cons _out36467_ _r36469_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e36530_)) - (_new-exports36550_ - (foldl _fold-e36547_ + _fold-e36464_)) + (_new-exports36484_ + (foldl _fold-e36481_ '() - _exports36527_))) + _exports36461_))) (for-each - (lambda (_id36555_) + (lambda (_id36489_) (if (hash-get - _found36502_ - (gx#core-identifier-key _id36555_)) + _found36436_ + (gx#core-identifier-key _id36489_)) '#!void (gx#raise-syntax-error '#f '"Bad syntax; identifier is not in the export set" - _stx36344_ - _id36555_))) - (foldr (lambda (_g3655736560_ _g3655836563_) - (cons _g3655736560_ _g3655836563_)) + _stx36278_ + _id36489_))) + (foldr (lambda (_g3649136494_ _g3649236497_) + (cons _g3649136494_ _g3649236497_)) '() - _L36463_)) - (cons 'begin: _new-exports36550_)) - (_g3634736380_ _g3634836384_))) - _new-id3636736455_ - _id3636836458_ - _hd3635636401_)))))) + _L36397_)) + (cons 'begin: _new-exports36484_)) + (_g3628136314_ _g3628236318_))) + _new-id3630136389_ + _id3630236392_ + _hd3629036335_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3636136413_ - _target3635836407_ + (_loop3629536347_ + _target3629236341_ '() '())) - (_g3634736380_ - _g3634836384_))))) - (_g3634736380_ _g3634836384_)))) - (_g3634736380_ _g3634836384_)))) - (_g3634736380_ _g3634836384_))))) - (_g3634636566_ _stx36344_))))) + (_g3628136314_ + _g3628236318_))))) + (_g3628136314_ _g3628236318_)))) + (_g3628136314_ _g3628236318_)))) + (_g3628136314_ _g3628236318_))))) + (_g3628036500_ _stx36278_))))) (define |gerbil/core$[:0:]#prefix-out| (gx#make-export-expander - (lambda (_stx36572_) - (let* ((_g3657536593_ - (lambda (_g3657636589_) + (lambda (_stx36506_) + (let* ((_g3650936527_ + (lambda (_g3651036523_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3657636589_))) - (_g3657436672_ - (lambda (_g3657636597_) - (if (gx#stx-pair? _g3657636597_) - (let ((_e3658136600_ (gx#syntax-e _g3657636597_))) - (let ((_hd3658036604_ + _g3651036523_))) + (_g3650836606_ + (lambda (_g3651036531_) + (if (gx#stx-pair? _g3651036531_) + (let ((_e3651536534_ (gx#syntax-e _g3651036531_))) + (let ((_hd3651436538_ (let () (declare (not safe)) - (##car _e3658136600_))) - (_tl3657936607_ + (##car _e3651536534_))) + (_tl3651336541_ (let () (declare (not safe)) - (##cdr _e3658136600_)))) - (if (gx#stx-pair? _tl3657936607_) - (let ((_e3658436610_ - (gx#syntax-e _tl3657936607_))) - (let ((_hd3658336614_ + (##cdr _e3651536534_)))) + (if (gx#stx-pair? _tl3651336541_) + (let ((_e3651836544_ + (gx#syntax-e _tl3651336541_))) + (let ((_hd3651736548_ (let () (declare (not safe)) - (##car _e3658436610_))) - (_tl3658236617_ + (##car _e3651836544_))) + (_tl3651636551_ (let () (declare (not safe)) - (##cdr _e3658436610_)))) - (if (gx#stx-pair? _tl3658236617_) - (let ((_e3658736620_ - (gx#syntax-e _tl3658236617_))) - (let ((_hd3658636624_ + (##cdr _e3651836544_)))) + (if (gx#stx-pair? _tl3651636551_) + (let ((_e3652136554_ + (gx#syntax-e _tl3651636551_))) + (let ((_hd3652036558_ (let () (declare (not safe)) - (##car _e3658736620_))) - (_tl3658536627_ + (##car _e3652136554_))) + (_tl3651936561_ (let () (declare (not safe)) - (##cdr _e3658736620_)))) - (if (gx#stx-null? _tl3658536627_) - ((lambda (_L36630_ _L36632_) - (if (gx#identifier? _L36630_) - (let* ((_pre36648_ + (##cdr _e3652136554_)))) + (if (gx#stx-null? _tl3651936561_) + ((lambda (_L36564_ _L36566_) + (if (gx#identifier? _L36564_) + (let* ((_pre36582_ (gx#stx-e - _L36630_)) - (_exports36651_ + _L36564_)) + (_exports36585_ (gx#core-expand-export-source - _L36632_)) - (_rename-e36657_ - (lambda (_name36654_) + _L36566_)) + (_rename-e36591_ + (lambda (_name36588_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core$[1]#prefix-identifier-key| - _name36654_ - _pre36648_)))) - (_fold-e36667_ - (letrec ((_fold-e36660_ - (lambda (_out36663_ _r36665_) - (if (gx#module-export? _out36663_) - (cons (let ((__tmp43120 - (_rename-e36657_ + _name36588_ + _pre36582_)))) + (_fold-e36601_ + (letrec ((_fold-e36594_ + (lambda (_out36597_ _r36599_) + (if (gx#module-export? _out36597_) + (cons (let ((__tmp42931 + (_rename-e36591_ (gx#module-export-name - _out36663_)))) + _out36597_)))) (declare (not safe)) (|gerbil/core$[1]#module-export-rename| - _out36663_ - __tmp43120)) - _r36665_) - (if (gx#export-set? _out36663_) - (foldl _fold-e36660_ - _r36665_ + _out36597_ + __tmp42931)) + _r36599_) + (if (gx#export-set? _out36597_) + (foldl _fold-e36594_ + _r36599_ (gx#export-set-exports - _out36663_)) - (cons _out36663_ _r36665_)))))) - _fold-e36660_))) - (cons 'begin: (foldl _fold-e36667_ '() _exports36651_))) + _out36597_)) + (cons _out36597_ _r36599_)))))) + _fold-e36594_))) + (cons 'begin: (foldl _fold-e36601_ '() _exports36585_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3657536593_ - _g3657636597_))) - _hd3658636624_ - _hd3658336614_) - (_g3657536593_ _g3657636597_)))) - (_g3657536593_ _g3657636597_)))) - (_g3657536593_ _g3657636597_)))) - (_g3657536593_ _g3657636597_))))) - (_g3657436672_ _stx36572_))))) + (_g3650936527_ + _g3651036531_))) + _hd3652036558_ + _hd3651736548_) + (_g3650936527_ _g3651036531_)))) + (_g3650936527_ _g3651036531_)))) + (_g3650936527_ _g3651036531_)))) + (_g3650936527_ _g3651036531_))))) + (_g3650836606_ _stx36506_))))) (define |gerbil/core$[:0:]#struct-out| (gx#make-export-expander - (lambda (_stx36676_) - (let* ((_g3667936699_ - (lambda (_g3668036695_) + (lambda (_stx36610_) + (let* ((_g3661336633_ + (lambda (_g3661436629_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3668036695_))) - (_g3667836934_ - (lambda (_g3668036703_) - (if (gx#stx-pair? _g3668036703_) - (let ((_e3668436706_ (gx#syntax-e _g3668036703_))) - (let ((_hd3668336710_ + _g3661436629_))) + (_g3661236868_ + (lambda (_g3661436637_) + (if (gx#stx-pair? _g3661436637_) + (let ((_e3661836640_ (gx#syntax-e _g3661436637_))) + (let ((_hd3661736644_ (let () (declare (not safe)) - (##car _e3668436706_))) - (_tl3668236713_ + (##car _e3661836640_))) + (_tl3661636647_ (let () (declare (not safe)) - (##cdr _e3668436706_)))) - (if (gx#stx-pair/null? _tl3668236713_) - (let ((_g43121_ + (##cdr _e3661836640_)))) + (if (gx#stx-pair/null? _tl3661636647_) + (let ((_g42932_ (gx#syntax-split-splice - _tl3668236713_ + _tl3661636647_ '0))) (begin - (let ((_g43122_ + (let ((_g42933_ (let () (declare (not safe)) - (if (##values? _g43121_) - (##vector-length _g43121_) + (if (##values? _g42932_) + (##vector-length _g42932_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43122_ 2))) + (##fx= _g42933_ 2))) (error "Context expects 2 values" - _g43122_))) - (let ((_target3668536716_ + _g42933_))) + (let ((_target3661936650_ (let () (declare (not safe)) - (##vector-ref _g43121_ 0))) - (_tl3668736719_ + (##vector-ref _g42932_ 0))) + (_tl3662136653_ (let () (declare (not safe)) - (##vector-ref _g43121_ 1)))) - (if (gx#stx-null? _tl3668736719_) - (letrec ((_loop3668836722_ - (lambda (_hd3668636726_ - _id3669236729_) + (##vector-ref _g42932_ 1)))) + (if (gx#stx-null? _tl3662136653_) + (letrec ((_loop3662236656_ + (lambda (_hd3662036660_ + _id3662636663_) (if (gx#stx-pair? - _hd3668636726_) - (let ((_e3668936732_ + _hd3662036660_) + (let ((_e3662336666_ (gx#syntax-e - _hd3668636726_))) - (let ((_lp-hd3669036736_ + _hd3662036660_))) + (let ((_lp-hd3662436670_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e3668936732_))) - (_lp-tl3669136739_ - (let () (declare (not safe)) (##cdr _e3668936732_)))) - (_loop3668836722_ - _lp-tl3669136739_ - (cons _lp-hd3669036736_ _id3669236729_)))) - (let ((_id3669336742_ (reverse _id3669236729_))) - ((lambda (_L36746_) - (let _lp36762_ ((_rest36765_ - (foldr (lambda (_g3692536928_ - _g3692636931_) - (cons _g3692536928_ - _g3692636931_)) + (##car _e3662336666_))) + (_lp-tl3662536673_ + (let () (declare (not safe)) (##cdr _e3662336666_)))) + (_loop3662236656_ + _lp-tl3662536673_ + (cons _lp-hd3662436670_ _id3662636663_)))) + (let ((_id3662736676_ (reverse _id3662636663_))) + ((lambda (_L36680_) + (let _lp36696_ ((_rest36699_ + (foldr (lambda (_g3685936862_ + _g3686036865_) + (cons _g3685936862_ + _g3686036865_)) '() - _L36746_)) - (_ids36767_ '())) - (let* ((___stx4269442695_ _rest36765_) - (_g3677036782_ + _L36680_)) + (_ids36701_ '())) + (let* ((___stx4258442585_ _rest36699_) + (_g3670436716_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4269442695_)))) - (let ((___kont4269742698_ - (lambda (_L36810_ _L36812_) - (let ((_info36827_ + ___stx4258442585_)))) + (let ((___kont4258742588_ + (lambda (_L36744_ _L36746_) + (let ((_info36761_ (gx#syntax-local-value - _L36812_ + _L36746_ false))) (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#expander-type-info::t| - _info36827_)) - (let* ((_g3682936846_ + _info36761_)) + (let* ((_g3676336780_ (slot-ref - _info36827_ + _info36761_ 'expander-identifiers)) - (_E3683136852_ + (_E3676536786_ (lambda () (error '"No clause matching" - _g3682936846_))) - (_K3683236864_ - (lambda (_setf36856_ - _getf36858_ - _type?36859_ - _make-type36860_ - _type::t36861_ - _super36862_) - (_lp36762_ - _L36810_ - (cons _L36812_ - (cons _type::t36861_ - (cons _make-type36860_ + _g3676336780_))) + (_K3676636798_ + (lambda (_setf36790_ + _getf36792_ + _type?36793_ + _make-type36794_ + _type::t36795_ + _super36796_) + (_lp36696_ + _L36744_ + (cons _L36746_ + (cons _type::t36795_ + (cons _make-type36794_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _type?36859_ + (cons _type?36793_ (foldr cons - (foldr cons _ids36767_ _setf36856_) - _getf36858_))))))))) + (foldr cons _ids36701_ _setf36790_) + _getf36792_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _g3682936846_)) - (let ((_hd3683336868_ + (##pair? _g3676336780_)) + (let ((_hd3676736802_ (let () (declare (not safe)) - (##car _g3682936846_))) - (_tl3683436871_ + (##car _g3676336780_))) + (_tl3676836805_ (let () (declare (not safe)) - (##cdr _g3682936846_)))) - (let ((_super36874_ - _hd3683336868_)) + (##cdr _g3676336780_)))) + (let ((_super36808_ + _hd3676736802_)) (if (let () (declare (not safe)) - (##pair? _tl3683436871_)) - (let ((_hd3683536877_ + (##pair? _tl3676836805_)) + (let ((_hd3676936811_ (let () (declare (not safe)) - (##car _tl3683436871_))) - (_tl3683636880_ + (##car _tl3676836805_))) + (_tl3677036814_ (let () (declare (not safe)) - (##cdr _tl3683436871_)))) - (let ((_type::t36883_ - _hd3683536877_)) + (##cdr _tl3676836805_)))) + (let ((_type::t36817_ + _hd3676936811_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##pair? _tl3683636880_)) - (let ((_hd3683736886_ + (##pair? _tl3677036814_)) + (let ((_hd3677136820_ (let () (declare (not safe)) - (##car _tl3683636880_))) - (_tl3683836889_ + (##car _tl3677036814_))) + (_tl3677236823_ (let () (declare (not safe)) - (##cdr _tl3683636880_)))) - (let ((_make-type36892_ _hd3683736886_)) + (##cdr _tl3677036814_)))) + (let ((_make-type36826_ _hd3677136820_)) (if (let () (declare (not safe)) - (##pair? _tl3683836889_)) - (let ((_hd3683936895_ + (##pair? _tl3677236823_)) + (let ((_hd3677336829_ (let () (declare (not safe)) - (##car _tl3683836889_))) - (_tl3684036898_ + (##car _tl3677236823_))) + (_tl3677436832_ (let () (declare (not safe)) - (##cdr _tl3683836889_)))) - (let ((_type?36901_ _hd3683936895_)) + (##cdr _tl3677236823_)))) + (let ((_type?36835_ _hd3677336829_)) (if (let () (declare (not safe)) - (##pair? _tl3684036898_)) - (let ((_hd3684136904_ + (##pair? _tl3677436832_)) + (let ((_hd3677536838_ (let () (declare (not safe)) - (##car _tl3684036898_))) - (_tl3684236907_ + (##car _tl3677436832_))) + (_tl3677636841_ (let () (declare (not safe)) - (##cdr _tl3684036898_)))) - (let ((_getf36910_ _hd3684136904_)) + (##cdr _tl3677436832_)))) + (let ((_getf36844_ _hd3677536838_)) (if (let () (declare (not safe)) - (##pair? _tl3684236907_)) - (let ((_hd3684336913_ + (##pair? _tl3677636841_)) + (let ((_hd3677736847_ (let () (declare (not safe)) - (##car _tl3684236907_))) - (_tl3684436916_ + (##car _tl3677636841_))) + (_tl3677836850_ (let () (declare (not safe)) - (##cdr _tl3684236907_)))) - (let ((_setf36919_ - _hd3684336913_)) + (##cdr _tl3677636841_)))) + (let ((_setf36853_ + _hd3677736847_)) (if (let () (declare (not safe)) - (##null? _tl3684436916_)) - (_K3683236864_ - _setf36919_ - _getf36910_ - _type?36901_ - _make-type36892_ - _type::t36883_ - _super36874_) - (_E3683136852_)))) - (_E3683136852_)))) - (_E3683136852_)))) - (_E3683136852_)))) - (_E3683136852_)))) + (##null? _tl3677836850_)) + (_K3676636798_ + _setf36853_ + _getf36844_ + _type?36835_ + _make-type36826_ + _type::t36817_ + _super36808_) + (_E3676536786_)))) + (_E3676536786_)))) + (_E3676536786_)))) + (_E3676536786_)))) + (_E3676536786_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E3683136852_)))) - (_E3683136852_))) + (_E3676536786_)))) + (_E3676536786_))) (gx#raise-syntax-error '#f '"Incomplete type info" - _stx36676_ - _L36812_))))) - (___kont4269942700_ - (lambda () (cons 'begin: _ids36767_)))) - (if (gx#stx-pair? ___stx4269442695_) - (let ((_e3677636800_ - (gx#syntax-e ___stx4269442695_))) - (let ((_tl3677436807_ + _stx36610_ + _L36746_))))) + (___kont4258942590_ + (lambda () (cons 'begin: _ids36701_)))) + (if (gx#stx-pair? ___stx4258442585_) + (let ((_e3671036734_ + (gx#syntax-e ___stx4258442585_))) + (let ((_tl3670836741_ (let () (declare (not safe)) - (##cdr _e3677636800_))) - (_hd3677536804_ + (##cdr _e3671036734_))) + (_hd3670936738_ (let () (declare (not safe)) - (##car _e3677636800_)))) - (___kont4269742698_ - _tl3677436807_ - _hd3677536804_))) - (___kont4269942700_)))))) - _id3669336742_)))))) + (##car _e3671036734_)))) + (___kont4258742588_ + _tl3670836741_ + _hd3670936738_))) + (___kont4258942590_)))))) + _id3662736676_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3668836722_ - _target3668536716_ + (_loop3662236656_ + _target3661936650_ '())) - (_g3667936699_ _g3668036703_))))) - (_g3667936699_ _g3668036703_)))) - (_g3667936699_ _g3668036703_))))) - (_g3667836934_ _stx36676_)))))) + (_g3661336633_ _g3661436637_))))) + (_g3661336633_ _g3661436637_)))) + (_g3661336633_ _g3661436637_))))) + (_g3661236868_ _stx36610_)))))) diff --git a/src/bootstrap/gerbil/core__16.scm b/src/bootstrap/gerbil/core__16.scm index 6cb326896..7b58bf8a0 100644 --- a/src/bootstrap/gerbil/core__16.scm +++ b/src/bootstrap/gerbil/core__16.scm @@ -1,40 +1,40 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |gerbil/core$[:0:]#eval-when-compile| - (lambda (_stx36940_) - (let* ((_g3694336957_ - (lambda (_g3694436953_) + (lambda (_stx36874_) + (let* ((_g3687736891_ + (lambda (_g3687836887_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3694436953_))) - (_g3694236999_ - (lambda (_g3694436961_) - (if (gx#stx-pair? _g3694436961_) - (let ((_e3694836964_ (gx#syntax-e _g3694436961_))) - (let ((_hd3694736968_ - (let () (declare (not safe)) (##car _e3694836964_))) - (_tl3694636971_ + _g3687836887_))) + (_g3687636933_ + (lambda (_g3687836895_) + (if (gx#stx-pair? _g3687836895_) + (let ((_e3688236898_ (gx#syntax-e _g3687836895_))) + (let ((_hd3688136902_ + (let () (declare (not safe)) (##car _e3688236898_))) + (_tl3688036905_ (let () (declare (not safe)) - (##cdr _e3694836964_)))) - (if (gx#stx-pair? _tl3694636971_) - (let ((_e3695136974_ (gx#syntax-e _tl3694636971_))) - (let ((_hd3695036978_ + (##cdr _e3688236898_)))) + (if (gx#stx-pair? _tl3688036905_) + (let ((_e3688536908_ (gx#syntax-e _tl3688036905_))) + (let ((_hd3688436912_ (let () (declare (not safe)) - (##car _e3695136974_))) - (_tl3694936981_ + (##car _e3688536908_))) + (_tl3688336915_ (let () (declare (not safe)) - (##cdr _e3695136974_)))) - (if (gx#stx-null? _tl3694936981_) - ((lambda (_L36984_) + (##cdr _e3688536908_)))) + (if (gx#stx-null? _tl3688336915_) + ((lambda (_L36918_) (if (gx#current-expander-compiling?) - (gx#eval-syntax _L36984_) + (gx#eval-syntax _L36918_) '#!void) (cons (gx#datum->syntax '#f 'void) '())) - _hd3695036978_) - (_g3694336957_ _g3694436961_)))) - (_g3694336957_ _g3694436961_)))) - (_g3694336957_ _g3694436961_))))) - (_g3694236999_ _stx36940_)))) + _hd3688436912_) + (_g3687736891_ _g3687836895_)))) + (_g3687736891_ _g3687836895_)))) + (_g3687736891_ _g3687836895_))))) + (_g3687636933_ _stx36874_)))) diff --git a/src/bootstrap/gerbil/core__2.scm b/src/bootstrap/gerbil/core__2.scm index 071256cf0..6620209fc 100644 --- a/src/bootstrap/gerbil/core__2.scm +++ b/src/bootstrap/gerbil/core__2.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[1]#_g42713_| + (define |gerbil/core$[1]#_g42603_| (##structure gx#syntax-quote::t 'values @@ -34,31 +34,31 @@ (declare (not safe)) (##cdr _e5486_)))) (if (gx#stx-pair/null? _tl5293_) - (let ((_g42709_ + (let ((_g42599_ (gx#syntax-split-splice _tl5293_ '0))) (begin - (let ((_g42710_ + (let ((_g42600_ (let () (declare (not safe)) - (if (##values? _g42709_) + (if (##values? _g42599_) (##vector-length - _g42709_) + _g42599_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42710_ 2))) + (##fx= _g42600_ 2))) (error "Context expects 2 values" - _g42710_))) + _g42600_))) (let ((_target5596_ (let () (declare (not safe)) - (##vector-ref _g42709_ 0))) + (##vector-ref _g42599_ 0))) (_tl5799_ (let () (declare (not safe)) - (##vector-ref _g42709_ 1)))) + (##vector-ref _g42599_ 1)))) (if (gx#stx-null? _tl5799_) (letrec ((_loop58102_ (lambda (_hd56106_ @@ -83,15 +83,15 @@ (let* ((_body291_ (gx#stx-map (lambda (_clause148_) - (let* ((___stx3700637007_ + (let* ((___stx3694036941_ _clause148_) (_g152179_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3700637007_)))) - (let ((___kont3700937010_ + ___stx3694036941_)))) + (let ((___kont3694336944_ (lambda (_L264_ _L266_) (cons _L266_ (cons (cons (gx#datum->syntax @@ -101,7 +101,7 @@ (cons _L264_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3701137012_ + (___kont3694536946_ (lambda (_L216_ _L218_ _L219_) @@ -113,10 +113,10 @@ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx3700637007_) + ___stx3694036941_) (let ((_e158244_ (gx#syntax-e - ___stx3700637007_))) + ___stx3694036941_))) (let ((_tl156251_ (let () (declare @@ -132,7 +132,7 @@ (_hd160258_ (let () (declare (not safe)) (##car _e161254_)))) (if (gx#stx-null? _tl159261_) - (___kont3700937010_ _hd160258_ _hd157248_) + (___kont3694336944_ _hd160258_ _hd157248_) (if (gx#stx-pair? _tl159261_) (let ((_e173206_ (gx#syntax-e _tl159261_))) (let ((_tl171213_ @@ -144,7 +144,7 @@ (declare (not safe)) (##car _e173206_)))) (if (gx#stx-null? _tl171213_) - (___kont3701137012_ + (___kont3694536946_ _hd172210_ _hd160258_ _hd157248_) @@ -170,41 +170,41 @@ (_g293370_ (lambda (_g295315_) (if (gx#stx-pair/null? _g295315_) - (let ((_g42711_ + (let ((_g42601_ (gx#syntax-split-splice _g295315_ '0))) (begin - (let ((_g42712_ + (let ((_g42602_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42711_) - (##vector-length _g42711_) + _g42601_) + (##vector-length _g42601_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42712_ 2))) - (error "Context expects 2 values" _g42712_))) + (##fx= _g42602_ 2))) + (error "Context expects 2 values" _g42602_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target297318_ (let () (declare (not safe)) (##vector-ref - _g42711_ + _g42601_ 0))) (_tl299321_ (let () (declare (not safe)) (##vector-ref - _g42711_ + _g42601_ 1)))) (if (gx#stx-null? _tl299321_) @@ -266,14 +266,14 @@ (_g44374_ _stx42_)))) (define |gerbil/core$[:0:]#with-syntax| (lambda (_stx380_) - (let* ((___stx3705037051_ _stx380_) + (let* ((___stx3698436985_ _stx380_) (_g385470_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3705037051_)))) - (let ((___kont3705337054_ + ___stx3698436985_)))) + (let ((___kont3698736988_ (lambda (_L810_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -281,7 +281,7 @@ (cons _g826829_ _g827832_)) '() _L810_))))) - (___kont3705737058_ + (___kont3699136992_ (lambda (_L718_ _L720_ _L721_) (cons (gx#datum->syntax '#f 'syntax-case) (cons _L720_ @@ -299,7 +299,7 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (___kont3706137062_ + (___kont3699536996_ (lambda (_L581_ _L583_ _L584_) (cons (gx#datum->syntax '#f 'syntax-case) (cons (cons (gx#datum->syntax '#f 'list) @@ -327,14 +327,14 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (let* ((___match3715137152_ + (let* ((___match3708537086_ (lambda (_e435477_ _hd434481_ _tl433484_ _e438487_ _hd437491_ _tl436494_ - ___splice3706337064_ + ___splice3699736998_ _target439497_ _tl441500_) (letrec ((_loop442503_ @@ -387,7 +387,7 @@ (let ((_pat449548_ (reverse _pat447512_)) (_e448545_ (reverse _e446510_))) (if (gx#stx-pair/null? _tl436494_) - (let ((___splice3706537066_ + (let ((___splice3699937000_ (gx#syntax-split-splice _tl436494_ '0))) @@ -395,13 +395,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice3706537066_ + ___splice3699937000_ '1))) (_target456551_ (let () (declare (not safe)) (##vector-ref - ___splice3706537066_ + ___splice3699937000_ '0)))) (if (gx#stx-null? _tl458554_) (letrec ((_loop459557_ @@ -422,7 +422,7 @@ _lp-tl462574_ (cons _lp-hd461571_ _body463564_)))) (let ((_body464577_ (reverse _body463564_))) - (___kont3706137062_ + (___kont3699536996_ _body464577_ _e448545_ _pat449548_)))))) @@ -435,7 +435,7 @@ (declare (not safe)) (_g385470_)))))))) (_loop442503_ _target439497_ '() '())))) - (___match3713137132_ + (___match3706537066_ (lambda (_e408638_ _hd407642_ _tl406645_ @@ -451,7 +451,7 @@ _e420678_ _hd419682_ _tl418685_ - ___splice3705937060_ + ___splice3699336994_ _target421688_ _tl423691_) (letrec ((_loop424694_ @@ -472,19 +472,19 @@ (cons _lp-hd426708_ _body428701_)))) (let ((_body429714_ (reverse _body428701_))) - (___kont3705737058_ + (___kont3699136992_ _body429714_ _hd419682_ _hd416672_)))))) (_loop424694_ _target421688_ '())))) - (___match3708937090_ + (___match3702337024_ (lambda (_e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3705537056_ + ___splice3698936990_ _target394780_ _tl396783_) (letrec ((_loop397786_ @@ -505,10 +505,10 @@ (cons _lp-hd399800_ _body401793_)))) (let ((_body402806_ (reverse _body401793_))) - (___kont3705337054_ _body402806_)))))) + (___kont3698736988_ _body402806_)))))) (_loop397786_ _target394780_ '()))))) - (if (gx#stx-pair? ___stx3705037051_) - (let ((_e390760_ (gx#syntax-e ___stx3705037051_))) + (if (gx#stx-pair? ___stx3698436985_) + (let ((_e390760_ (gx#syntax-e ___stx3698436985_))) (let ((_tl388767_ (let () (declare (not safe)) (##cdr _e390760_))) (_hd389764_ @@ -525,7 +525,7 @@ (##car _e393770_)))) (if (gx#stx-null? _hd392774_) (if (gx#stx-pair/null? _tl391777_) - (let ((___splice3705537056_ + (let ((___splice3698936990_ (gx#syntax-split-splice _tl391777_ '0))) @@ -533,28 +533,28 @@ (let () (declare (not safe)) (##vector-ref - ___splice3705537056_ + ___splice3698936990_ '1))) (_target394780_ (let () (declare (not safe)) (##vector-ref - ___splice3705537056_ + ___splice3698936990_ '0)))) (if (gx#stx-null? _tl396783_) - (___match3708937090_ + (___match3702337024_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3705537056_ + ___splice3698936990_ _target394780_ _tl396783_) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) @@ -563,25 +563,25 @@ (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3708537086_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3699736998_ _target439497_ _tl441500_) (let () @@ -592,7 +592,7 @@ (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) @@ -600,23 +600,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3708537086_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3699736998_ _target439497_ _tl441500_) (let () @@ -661,22 +661,22 @@ (if (gx#stx-null? _tl418685_) (if (gx#stx-null? _tl412665_) (if (gx#stx-pair/null? _tl391777_) - (let ((___splice3705937060_ + (let ((___splice3699336994_ (gx#syntax-split-splice _tl391777_ '0))) (let ((_tl423691_ (let () (declare (not safe)) (##vector-ref - ___splice3705937060_ + ___splice3699336994_ '1))) (_target421688_ (let () (declare (not safe)) (##vector-ref - ___splice3705937060_ + ___splice3699336994_ '0)))) (if (gx#stx-null? _tl423691_) - (___match3713137132_ + (___match3706537066_ _e390760_ _hd389764_ _tl388767_ @@ -692,11 +692,11 @@ _e420678_ _hd419682_ _tl418685_ - ___splice3705937060_ + ___splice3699336994_ _target421688_ _tl423691_) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) @@ -704,23 +704,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3708537086_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3699736998_ _target439497_ _tl441500_) (let () @@ -730,7 +730,7 @@ (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) @@ -738,23 +738,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3708537086_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3699736998_ _target439497_ _tl441500_) (let () @@ -762,29 +762,29 @@ (_g385470_))))) (let () (declare (not safe)) (_g385470_)))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) (let ((_tl441500_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3708537086_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3699736998_ _target439497_ _tl441500_) (let () @@ -792,49 +792,49 @@ (_g385470_))))) (let () (declare (not safe)) (_g385470_)))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) (let ((_tl441500_ (let () (declare (not safe)) - (##vector-ref ___splice3706337064_ '1))) + (##vector-ref ___splice3699736998_ '1))) (_target439497_ (let () (declare (not safe)) - (##vector-ref ___splice3706337064_ '0)))) + (##vector-ref ___splice3699736998_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3708537086_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3699736998_ _target439497_ _tl441500_) (let () (declare (not safe)) (_g385470_))))) (let () (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) (let ((_tl441500_ (let () (declare (not safe)) - (##vector-ref ___splice3706337064_ '1))) + (##vector-ref ___splice3699736998_ '1))) (_target439497_ (let () (declare (not safe)) - (##vector-ref ___splice3706337064_ '0)))) + (##vector-ref ___splice3699736998_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3708537086_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3699736998_ _target439497_ _tl441500_) (let () (declare (not safe)) (_g385470_))))) @@ -842,7 +842,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) @@ -851,25 +851,25 @@ (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3708537086_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3699736998_ _target439497_ _tl441500_) (let () @@ -880,7 +880,7 @@ (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) @@ -888,23 +888,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3699736998_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3708537086_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3699736998_ _target439497_ _tl441500_) (let () @@ -917,14 +917,14 @@ (let () (declare (not safe)) (_g385470_)))))))) (define |gerbil/core$[:0:]#with-syntax*| (lambda (_stx843_) - (let* ((___stx3715437155_ _stx843_) + (let* ((___stx3708837089_ _stx843_) (_g848925_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3715437155_)))) - (let ((___kont3715737158_ + ___stx3708837089_)))) + (let ((___kont3709137092_ (lambda (_L1221_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -932,7 +932,7 @@ (cons _g12371240_ _g12381243_)) '() _L1221_))))) - (___kont3716137162_ + (___kont3709537096_ (lambda (_L1123_ _L1125_ _L1126_ _L1127_ _L1128_) (cons (gx#datum->syntax '#f 'let-values) (cons (cons (cons _L1127_ (cons _L1126_ '())) '()) @@ -946,7 +946,7 @@ _L1123_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3716537166_ + (___kont3709937100_ (lambda (_L992_ _L994_ _L995_ _L996_) (cons (gx#datum->syntax '#f 'with-syntax) (cons (cons _L995_ '()) @@ -960,7 +960,7 @@ _L992_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((___match3726737268_ + (let* ((___match3720137202_ (lambda (_e904932_ _hd903936_ _tl902939_ @@ -970,7 +970,7 @@ _e910952_ _hd909956_ _tl908959_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (letrec ((_loop914968_ @@ -991,13 +991,13 @@ (cons _lp-hd916982_ _body918975_)))) (let ((_body919988_ (reverse _body918975_))) - (___kont3716537166_ + (___kont3709937100_ _body919988_ _tl908959_ _hd909956_ _hd903936_)))))) (_loop914968_ _target911962_ '())))) - (___match3724137242_ + (___match3717537176_ (lambda (_e8731033_ _hd8721037_ _tl8711040_ @@ -1016,7 +1016,7 @@ _e8881083_ _hd8871087_ _tl8861090_ - ___splice3716337164_ + ___splice3709737098_ _target8891093_ _tl8911096_) (letrec ((_loop8921099_ @@ -1038,21 +1038,21 @@ _body8961106_)))) (let ((_body8971119_ (reverse _body8961106_))) - (___kont3716137162_ + (___kont3709537096_ _body8971119_ _tl8771060_ _hd8871087_ _tl8831080_ _hd8721037_)))))) (_loop8921099_ _target8891093_ '())))) - (___match3719137192_ + (___match3712537126_ (lambda (_e8531171_ _hd8521175_ _tl8511178_ _e8561181_ _hd8551185_ _tl8541188_ - ___splice3715937160_ + ___splice3709337094_ _target8571191_ _tl8591194_) (letrec ((_loop8601197_ @@ -1074,10 +1074,10 @@ _body8641204_)))) (let ((_body8651217_ (reverse _body8641204_))) - (___kont3715737158_ _body8651217_)))))) + (___kont3709137092_ _body8651217_)))))) (_loop8601197_ _target8571191_ '()))))) - (if (gx#stx-pair? ___stx3715437155_) - (let ((_e8531171_ (gx#syntax-e ___stx3715437155_))) + (if (gx#stx-pair? ___stx3708837089_) + (let ((_e8531171_ (gx#syntax-e ___stx3708837089_))) (let ((_tl8511178_ (let () (declare (not safe)) (##cdr _e8531171_))) (_hd8521175_ @@ -1094,7 +1094,7 @@ (##car _e8561181_)))) (if (gx#stx-null? _hd8551185_) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3715937160_ + (let ((___splice3709337094_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1102,23 +1102,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3715937160_ + ___splice3709337094_ '1))) (_target8571191_ (let () (declare (not safe)) (##vector-ref - ___splice3715937160_ + ___splice3709337094_ '0)))) (if (gx#stx-null? _tl8591194_) - (___match3719137192_ + (___match3712537126_ _e8531171_ _hd8521175_ _tl8511178_ _e8561181_ _hd8551185_ _tl8541188_ - ___splice3715937160_ + ___splice3709337094_ _target8571191_ _tl8591194_) (let () @@ -1164,7 +1164,7 @@ (let () (declare (not safe)) (##car _e8851073_)))) (if (gx#identifier? _hd8841077_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42713_| + |gerbil/core$[1]#_g42603_| _hd8841077_) (if (gx#stx-pair? _tl8801070_) (let ((_e8881083_ (gx#syntax-e _tl8801070_))) @@ -1178,7 +1178,7 @@ (##car _e8881083_)))) (if (gx#stx-null? _tl8861090_) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716337164_ + (let ((___splice3709737098_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1186,16 +1186,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3716337164_ + ___splice3709737098_ '1))) (_target8891093_ (let () (declare (not safe)) (##vector-ref - ___splice3716337164_ + ___splice3709737098_ '0)))) (if (gx#stx-null? _tl8911096_) - (___match3724137242_ + (___match3717537176_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1214,7 +1214,7 @@ _e8881083_ _hd8871087_ _tl8861090_ - ___splice3716337164_ + ___splice3709737098_ _target8891093_ _tl8911096_) (let () @@ -1224,7 +1224,7 @@ (declare (not safe)) (_g848925_))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3710137102_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1232,16 +1232,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3710137102_ '1))) (_target911962_ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3710137102_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3720137202_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1251,7 +1251,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (let () @@ -1261,7 +1261,7 @@ (declare (not safe)) (_g848925_)))))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3710137102_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1269,16 +1269,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3710137102_ '1))) (_target911962_ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3710137102_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3720137202_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1288,7 +1288,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (let () @@ -1296,22 +1296,22 @@ (_g848925_))))) (let () (declare (not safe)) (_g848925_)))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3710137102_ (gx#syntax-split-splice _tl8541188_ '0))) (let ((_tl913965_ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3710137102_ '1))) (_target911962_ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3710137102_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3720137202_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1321,7 +1321,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (let () @@ -1329,18 +1329,18 @@ (_g848925_))))) (let () (declare (not safe)) (_g848925_)))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3710137102_ (gx#syntax-split-splice _tl8541188_ '0))) (let ((_tl913965_ (let () (declare (not safe)) - (##vector-ref ___splice3716737168_ '1))) + (##vector-ref ___splice3710137102_ '1))) (_target911962_ (let () (declare (not safe)) - (##vector-ref ___splice3716737168_ '0)))) + (##vector-ref ___splice3710137102_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3720137202_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1350,24 +1350,24 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (let () (declare (not safe)) (_g848925_))))) (let () (declare (not safe)) (_g848925_)))))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3710137102_ (gx#syntax-split-splice _tl8541188_ '0))) (let ((_tl913965_ (let () (declare (not safe)) - (##vector-ref ___splice3716737168_ '1))) + (##vector-ref ___splice3710137102_ '1))) (_target911962_ (let () (declare (not safe)) - (##vector-ref ___splice3716737168_ '0)))) + (##vector-ref ___splice3710137102_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3720137202_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1377,7 +1377,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (let () (declare (not safe)) (_g848925_))))) @@ -1385,7 +1385,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3710137102_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1394,18 +1394,18 @@ (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3710137102_ '1))) (_target911962_ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3710137102_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3720137202_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1415,7 +1415,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (let () diff --git a/src/bootstrap/gerbil/core__3.scm b/src/bootstrap/gerbil/core__3.scm index cf199d6cd..b0bb4eb66 100644 --- a/src/bootstrap/gerbil/core__3.scm +++ b/src/bootstrap/gerbil/core__3.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g42722_| + (define |gerbil/core$$[1]#_g42612_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42723_| + (define |gerbil/core$$[1]#_g42613_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42726_| + (define |gerbil/core$$[1]#_g42616_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42727_| + (define |gerbil/core$$[1]#_g42617_| (##structure gx#syntax-quote::t 'else @@ -66,37 +66,37 @@ (declare (not safe)) (##cdr _e13521394_)))) (if (gx#stx-pair/null? _tl13501401_) - (let ((_g42714_ + (let ((_g42604_ (gx#syntax-split-splice _tl13501401_ '0))) (begin - (let ((_g42715_ + (let ((_g42605_ (let () (declare (not safe)) (if (##values? - _g42714_) + _g42604_) (##vector-length - _g42714_) + _g42604_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42715_ 2))) - (error "Context expects 2 values" _g42715_))) + (##fx= _g42605_ 2))) + (error "Context expects 2 values" _g42605_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target13531404_ (let () (declare (not safe)) (##vector-ref - _g42714_ + _g42604_ 0))) (_tl13551407_ (let () (declare (not safe)) (##vector-ref - _g42714_ + _g42604_ 1)))) (if (gx#stx-null? _tl13551407_) @@ -150,14 +150,14 @@ (_g13381468_ _$stx1335_)))) (define |gerbil/core$$[:0:]#defsyntax%| (lambda (_$stx1473_) - (let* ((___stx3727037271_ _$stx1473_) + (let* ((___stx3720437205_ _$stx1473_) (_g14781517_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3727037271_)))) - (let ((___kont3727337274_ + ___stx3720437205_)))) + (let ((___kont3720737208_ (lambda (_L1639_ _L1641_ _L1642_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _L1642_ @@ -171,11 +171,11 @@ _L1639_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3727737278_ + (___kont3721137212_ (lambda (_L1554_ _L1556_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _L1556_ (cons _L1554_ '())))))) - (let* ((___match3732537326_ + (let* ((___match3725937260_ (lambda (_e15051524_ _hd15041528_ _tl15031531_ @@ -187,9 +187,9 @@ _tl15091551_) (let ((_L1554_ _hd15101548_) (_L1556_ _hd15071538_)) (if (gx#identifier? _L1556_) - (___kont3727737278_ _L1554_ _L1556_) + (___kont3721137212_ _L1554_ _L1556_) (let () (declare (not safe)) (_g14781517_)))))) - (___match3731737318_ + (___match3725137252_ (lambda (_e15051524_ _hd15041528_ _tl15031531_ @@ -207,7 +207,7 @@ (declare (not safe)) (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3725937260_ _e15051524_ _hd15041528_ _tl15031531_ @@ -221,7 +221,7 @@ (declare (not safe)) (_g14781517_))))) (let () (declare (not safe)) (_g14781517_))))) - (___match3730537306_ + (___match3723937240_ (lambda (_e14851579_ _hd14841583_ _tl14831586_ @@ -231,7 +231,7 @@ _e14911599_ _hd14901603_ _tl14891606_ - ___splice3727537276_ + ___splice3720937210_ _target14921609_ _tl14941612_) (letrec ((_loop14951615_ @@ -257,11 +257,11 @@ (_L1641_ _tl14891606_) (_L1642_ _hd14901603_)) (if (gx#identifier? _L1642_) - (___kont3727337274_ + (___kont3720737208_ _L1639_ _L1641_ _L1642_) - (___match3731737318_ + (___match3725137252_ _e14851579_ _hd14841583_ _tl14831586_ @@ -269,8 +269,8 @@ _hd14871593_ _tl14861596_)))))))) (_loop14951615_ _target14921609_ '()))))) - (if (gx#stx-pair? ___stx3727037271_) - (let ((_e14851579_ (gx#syntax-e ___stx3727037271_))) + (if (gx#stx-pair? ___stx3720437205_) + (let ((_e14851579_ (gx#syntax-e ___stx3720437205_))) (let ((_tl14831586_ (let () (declare (not safe)) (##cdr _e14851579_))) (_hd14841583_ @@ -297,7 +297,7 @@ (declare (not safe)) (##car _e14911599_)))) (if (gx#stx-pair/null? _tl14861596_) - (let ((___splice3727537276_ + (let ((___splice3720937210_ (gx#syntax-split-splice _tl14861596_ '0))) @@ -305,16 +305,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3727537276_ + ___splice3720937210_ '1))) (_target14921609_ (let () (declare (not safe)) (##vector-ref - ___splice3727537276_ + ___splice3720937210_ '0)))) (if (gx#stx-null? _tl14941612_) - (___match3730537306_ + (___match3723937240_ _e14851579_ _hd14841583_ _tl14831586_ @@ -324,7 +324,7 @@ _e14911599_ _hd14901603_ _tl14891606_ - ___splice3727537276_ + ___splice3720937210_ _target14921609_ _tl14941612_) (if (gx#stx-pair? @@ -340,7 +340,7 @@ (_hd15101548_ (let () (declare (not safe)) (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3725937260_ _e14851579_ _hd14841583_ _tl14831586_ @@ -367,7 +367,7 @@ (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3725937260_ _e14851579_ _hd14841583_ _tl14831586_ @@ -395,7 +395,7 @@ (declare (not safe)) (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3725937260_ _e14851579_ _hd14841583_ _tl14831586_ @@ -473,14 +473,14 @@ (_g16781752_ _$stx1675_)))) (define |gerbil/core$$[:0:]#define| (lambda (_$stx1756_) - (let* ((___stx3732837329_ _$stx1756_) + (let* ((___stx3726237263_ _$stx1756_) (_g17611800_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3732837329_)))) - (let ((___kont3733137332_ + ___stx3726237263_)))) + (let ((___kont3726537266_ (lambda (_L1922_ _L1924_ _L1925_) (cons (gx#datum->syntax '#f 'define-values) (cons (cons _L1925_ '()) @@ -494,11 +494,11 @@ _L1922_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3733537336_ + (___kont3726937270_ (lambda (_L1837_ _L1839_) (cons (gx#datum->syntax '#f 'define-values) (cons (cons _L1839_ '()) (cons _L1837_ '())))))) - (let* ((___match3738337384_ + (let* ((___match3731737318_ (lambda (_e17881807_ _hd17871811_ _tl17861814_ @@ -510,9 +510,9 @@ _tl17921834_) (let ((_L1837_ _hd17931831_) (_L1839_ _hd17901821_)) (if (gx#identifier? _L1839_) - (___kont3733537336_ _L1837_ _L1839_) + (___kont3726937270_ _L1837_ _L1839_) (let () (declare (not safe)) (_g17611800_)))))) - (___match3737537376_ + (___match3730937310_ (lambda (_e17881807_ _hd17871811_ _tl17861814_ @@ -530,7 +530,7 @@ (declare (not safe)) (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3731737318_ _e17881807_ _hd17871811_ _tl17861814_ @@ -544,7 +544,7 @@ (declare (not safe)) (_g17611800_))))) (let () (declare (not safe)) (_g17611800_))))) - (___match3736337364_ + (___match3729737298_ (lambda (_e17681862_ _hd17671866_ _tl17661869_ @@ -554,7 +554,7 @@ _e17741882_ _hd17731886_ _tl17721889_ - ___splice3733337334_ + ___splice3726737268_ _target17751892_ _tl17771895_) (letrec ((_loop17781898_ @@ -580,11 +580,11 @@ (_L1924_ _tl17721889_) (_L1925_ _hd17731886_)) (if (gx#identifier? _L1925_) - (___kont3733137332_ + (___kont3726537266_ _L1922_ _L1924_ _L1925_) - (___match3737537376_ + (___match3730937310_ _e17681862_ _hd17671866_ _tl17661869_ @@ -592,8 +592,8 @@ _hd17701876_ _tl17691879_)))))))) (_loop17781898_ _target17751892_ '()))))) - (if (gx#stx-pair? ___stx3732837329_) - (let ((_e17681862_ (gx#syntax-e ___stx3732837329_))) + (if (gx#stx-pair? ___stx3726237263_) + (let ((_e17681862_ (gx#syntax-e ___stx3726237263_))) (let ((_tl17661869_ (let () (declare (not safe)) (##cdr _e17681862_))) (_hd17671866_ @@ -620,7 +620,7 @@ (declare (not safe)) (##car _e17741882_)))) (if (gx#stx-pair/null? _tl17691879_) - (let ((___splice3733337334_ + (let ((___splice3726737268_ (gx#syntax-split-splice _tl17691879_ '0))) @@ -628,16 +628,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3733337334_ + ___splice3726737268_ '1))) (_target17751892_ (let () (declare (not safe)) (##vector-ref - ___splice3733337334_ + ___splice3726737268_ '0)))) (if (gx#stx-null? _tl17771895_) - (___match3736337364_ + (___match3729737298_ _e17681862_ _hd17671866_ _tl17661869_ @@ -647,7 +647,7 @@ _e17741882_ _hd17731886_ _tl17721889_ - ___splice3733337334_ + ___splice3726737268_ _target17751892_ _tl17771895_) (if (gx#stx-pair? @@ -663,7 +663,7 @@ (_hd17931831_ (let () (declare (not safe)) (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3731737318_ _e17681862_ _hd17671866_ _tl17661869_ @@ -690,7 +690,7 @@ (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3731737318_ _e17681862_ _hd17671866_ _tl17661869_ @@ -718,7 +718,7 @@ (declare (not safe)) (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3731737318_ _e17681862_ _hd17671866_ _tl17661869_ @@ -738,14 +738,14 @@ (let () (declare (not safe)) (_g17611800_)))))))) (define |gerbil/core$$[:0:]#let*-values| (lambda (_$stx1958_) - (let* ((___stx3738637387_ _$stx1958_) + (let* ((___stx3732037321_ _$stx1958_) (_g19632008_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3738637387_)))) - (let ((___kont3738937390_ + ___stx3732037321_)))) + (let ((___kont3732337324_ (lambda (_L2166_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -753,7 +753,7 @@ (cons _g21822185_ _g21832188_)) '() _L2166_))))) - (___kont3739337394_ + (___kont3732737328_ (lambda (_L2075_ _L2077_ _L2078_ _L2079_) (cons (gx#datum->syntax '#f 'let-values) (cons (cons _L2078_ '()) @@ -767,7 +767,7 @@ _L2075_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((___match3744537446_ + (let* ((___match3737937380_ (lambda (_e19872015_ _hd19862019_ _tl19852022_ @@ -777,7 +777,7 @@ _e19932035_ _hd19922039_ _tl19912042_ - ___splice3739537396_ + ___splice3732937330_ _target19942045_ _tl19962048_) (letrec ((_loop19972051_ @@ -799,20 +799,20 @@ _body20012058_)))) (let ((_body20022071_ (reverse _body20012058_))) - (___kont3739337394_ + (___kont3732737328_ _body20022071_ _tl19912042_ _hd19922039_ _hd19862019_)))))) (_loop19972051_ _target19942045_ '())))) - (___match3741937420_ + (___match3735337354_ (lambda (_e19682116_ _hd19672120_ _tl19662123_ _e19712126_ _hd19702130_ _tl19692133_ - ___splice3739137392_ + ___splice3732537326_ _target19722136_ _tl19742139_) (letrec ((_loop19752142_ @@ -834,11 +834,11 @@ _body19792149_)))) (let ((_body19802162_ (reverse _body19792149_))) - (___kont3738937390_ + (___kont3732337324_ _body19802162_)))))) (_loop19752142_ _target19722136_ '()))))) - (if (gx#stx-pair? ___stx3738637387_) - (let ((_e19682116_ (gx#syntax-e ___stx3738637387_))) + (if (gx#stx-pair? ___stx3732037321_) + (let ((_e19682116_ (gx#syntax-e ___stx3732037321_))) (let ((_tl19662123_ (let () (declare (not safe)) (##cdr _e19682116_))) (_hd19672120_ @@ -855,7 +855,7 @@ (##car _e19712126_)))) (if (gx#stx-null? _hd19702130_) (if (gx#stx-pair/null? _tl19692133_) - (let ((___splice3739137392_ + (let ((___splice3732537326_ (gx#syntax-split-splice _tl19692133_ '0))) @@ -863,23 +863,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3739137392_ + ___splice3732537326_ '1))) (_target19722136_ (let () (declare (not safe)) (##vector-ref - ___splice3739137392_ + ___splice3732537326_ '0)))) (if (gx#stx-null? _tl19742139_) - (___match3741937420_ + (___match3735337354_ _e19682116_ _hd19672120_ _tl19662123_ _e19712126_ _hd19702130_ _tl19692133_ - ___splice3739137392_ + ___splice3732537326_ _target19722136_ _tl19742139_) (let () @@ -900,7 +900,7 @@ (declare (not safe)) (##car _e19932035_)))) (if (gx#stx-pair/null? _tl19692133_) - (let ((___splice3739537396_ + (let ((___splice3732937330_ (gx#syntax-split-splice _tl19692133_ '0))) @@ -908,17 +908,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice3739537396_ + ___splice3732937330_ '1))) (_target19942045_ (let () (declare (not safe)) (##vector-ref - ___splice3739537396_ + ___splice3732937330_ '0)))) (if (gx#stx-null? _tl19962048_) - (___match3744537446_ + (___match3737937380_ _e19682116_ _hd19672120_ _tl19662123_ @@ -928,7 +928,7 @@ _e19932035_ _hd19922039_ _tl19912042_ - ___splice3739537396_ + ___splice3732937330_ _target19942045_ _tl19962048_) (let () @@ -944,14 +944,14 @@ (let () (declare (not safe)) (_g19632008_)))))))) (define |gerbil/core$$[:0:]#let| (lambda (_$stx2197_) - (let* ((___stx3744837449_ _$stx2197_) + (let* ((___stx3738237383_ _$stx2197_) (_g22022266_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3744837449_)))) - (let ((___kont3745137452_ + ___stx3738237383_)))) + (let ((___kont3738537386_ (lambda (_L2472_ _L2474_ _L2475_ _L2476_ _L2477_) (cons (cons (gx#datum->syntax '#f 'letrec-values) (cons (cons (cons (cons _L2477_ '()) @@ -976,7 +976,7 @@ (cons _g25022521_ _g25032524_)) '() _L2475_)))) - (___kont3745737458_ + (___kont3739137392_ (lambda (_L2323_ _L2325_) (cons (gx#datum->syntax '#f '~let) (cons (gx#datum->syntax '#f 'let-values) @@ -985,14 +985,14 @@ (cons _g23422345_ _g23432348_)) '() _L2323_))))))) - (let* ((___match3750537506_ + (let* ((___match3743937440_ (lambda (_e22482273_ _hd22472277_ _tl22462280_ _e22512283_ _hd22502287_ _tl22492290_ - ___splice3745937460_ + ___splice3739337394_ _target22522293_ _tl22542296_) (letrec ((_loop22552299_ @@ -1014,11 +1014,11 @@ _body22592306_)))) (let ((_body22602319_ (reverse _body22592306_))) - (___kont3745737458_ + (___kont3739137392_ _body22602319_ _hd22502287_)))))) (_loop22552299_ _target22522293_ '())))) - (___match3749737498_ + (___match3743137432_ (lambda (_e22482273_ _hd22472277_ _tl22462280_ @@ -1026,32 +1026,32 @@ _hd22502287_ _tl22492290_) (if (gx#stx-pair/null? _tl22492290_) - (let ((___splice3745937460_ + (let ((___splice3739337394_ (gx#syntax-split-splice _tl22492290_ '0))) (let ((_tl22542296_ (let () (declare (not safe)) - (##vector-ref ___splice3745937460_ '1))) + (##vector-ref ___splice3739337394_ '1))) (_target22522293_ (let () (declare (not safe)) - (##vector-ref ___splice3745937460_ '0)))) + (##vector-ref ___splice3739337394_ '0)))) (if (gx#stx-null? _tl22542296_) - (___match3750537506_ + (___match3743937440_ _e22482273_ _hd22472277_ _tl22462280_ _e22512283_ _hd22502287_ _tl22492290_ - ___splice3745937460_ + ___splice3739337394_ _target22522293_ _tl22542296_) (let () (declare (not safe)) (_g22022266_))))) (let () (declare (not safe)) (_g22022266_))))) - (___match3748537486_ + (___match3741937420_ (lambda (_e22112358_ _hd22102362_ _tl22092365_ @@ -1061,7 +1061,7 @@ _e22172378_ _hd22162382_ _tl22152385_ - ___splice3745337454_ + ___splice3738737388_ _target22182388_ _tl22202391_) (letrec ((_loop22212394_ @@ -1108,14 +1108,14 @@ _lp-tl22242413_ (cons _hd22332430_ _arg22252401_) (cons _hd22302420_ _var22262403_)) - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ _e22142368_ _hd22132372_ _tl22122375_)))) - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1123,7 +1123,7 @@ _hd22132372_ _tl22122375_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1135,7 +1135,7 @@ (_arg22272436_ (reverse _arg22252401_))) (if (gx#stx-pair/null? _tl22152385_) - (let ((___splice3745537456_ + (let ((___splice3738937390_ (gx#syntax-split-splice _tl22152385_ '0))) @@ -1143,13 +1143,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice3745537456_ + ___splice3738937390_ '1))) (_target22352442_ (let () (declare (not safe)) (##vector-ref - ___splice3745537456_ + ___splice3738937390_ '0)))) (if (gx#stx-null? _tl22372445_) (letrec ((_loop22382448_ @@ -1176,13 +1176,13 @@ (_L2476_ _var22282439_) (_L2477_ _hd22132372_)) (if (gx#identifier? _L2477_) - (___kont3745137452_ + (___kont3738537386_ _L2472_ _L2474_ _L2475_ _L2476_ _L2477_) - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1191,14 +1191,14 @@ _tl22122375_)))))))) (_loop22382448_ _target22352442_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ _e22142368_ _hd22132372_ _tl22122375_)))) - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1206,8 +1206,8 @@ _hd22132372_ _tl22122375_))))))) (_loop22212394_ _target22182388_ '() '()))))) - (if (gx#stx-pair? ___stx3744837449_) - (let ((_e22112358_ (gx#syntax-e ___stx3744837449_))) + (if (gx#stx-pair? ___stx3738237383_) + (let ((_e22112358_ (gx#syntax-e ___stx3738237383_))) (let ((_tl22092365_ (let () (declare (not safe)) (##cdr _e22112358_))) (_hd22102362_ @@ -1234,7 +1234,7 @@ (declare (not safe)) (##car _e22172378_)))) (if (gx#stx-pair/null? _hd22162382_) - (let ((___splice3745337454_ + (let ((___splice3738737388_ (gx#syntax-split-splice _hd22162382_ '0))) @@ -1242,15 +1242,15 @@ (let () (declare (not safe)) (##vector-ref - ___splice3745337454_ + ___splice3738737388_ '1))) (_target22182388_ (let () (declare (not safe)) (##vector-ref - ___splice3745337454_ + ___splice3738737388_ '0)))) - (___match3748537486_ + (___match3741937420_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1260,11 +1260,11 @@ _e22172378_ _hd22162382_ _tl22152385_ - ___splice3745337454_ + ___splice3738737388_ _target22182388_ _tl22202391_))) (if (gx#stx-pair/null? _tl22122375_) - (let ((___splice3745937460_ + (let ((___splice3739337394_ (gx#syntax-split-splice _tl22122375_ '0))) @@ -1272,24 +1272,24 @@ (let () (declare (not safe)) (##vector-ref - ___splice3745937460_ + ___splice3739337394_ '1))) (_target22522293_ (let () (declare (not safe)) (##vector-ref - ___splice3745937460_ + ___splice3739337394_ '0)))) (if (gx#stx-null? _tl22542296_) - (___match3750537506_ + (___match3743937440_ _e22112358_ _hd22102362_ _tl22092365_ _e22142368_ _hd22132372_ _tl22122375_ - ___splice3745937460_ + ___splice3739337394_ _target22522293_ _tl22542296_) (let () @@ -1299,7 +1299,7 @@ (declare (not safe)) (_g22022266_)))))) (if (gx#stx-pair/null? _tl22122375_) - (let ((___splice3745937460_ + (let ((___splice3739337394_ (gx#syntax-split-splice _tl22122375_ '0))) @@ -1307,23 +1307,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3745937460_ + ___splice3739337394_ '1))) (_target22522293_ (let () (declare (not safe)) (##vector-ref - ___splice3745937460_ + ___splice3739337394_ '0)))) (if (gx#stx-null? _tl22542296_) - (___match3750537506_ + (___match3743937440_ _e22112358_ _hd22102362_ _tl22092365_ _e22142368_ _hd22132372_ _tl22122375_ - ___splice3745937460_ + ___splice3739337394_ _target22522293_ _tl22542296_) (let () @@ -1365,31 +1365,31 @@ (declare (not safe)) (##cdr _e25472579_)))) (if (gx#stx-pair/null? _tl25452586_) - (let ((_g42716_ + (let ((_g42606_ (gx#syntax-split-splice _tl25452586_ '0))) (begin - (let ((_g42717_ + (let ((_g42607_ (let () (declare (not safe)) - (if (##values? _g42716_) + (if (##values? _g42606_) (##vector-length - _g42716_) + _g42606_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42717_ 2))) + (##fx= _g42607_ 2))) (error "Context expects 2 values" - _g42717_))) + _g42607_))) (let ((_target25482589_ (let () (declare (not safe)) - (##vector-ref _g42716_ 0))) + (##vector-ref _g42606_ 0))) (_tl25502592_ (let () (declare (not safe)) - (##vector-ref _g42716_ 1)))) + (##vector-ref _g42606_ 1)))) (if (gx#stx-null? _tl25502592_) (letrec ((_loop25512595_ (lambda (_hd25492599_ @@ -1461,31 +1461,31 @@ (declare (not safe)) (##cdr _e26652697_)))) (if (gx#stx-pair/null? _tl26632704_) - (let ((_g42718_ + (let ((_g42608_ (gx#syntax-split-splice _tl26632704_ '0))) (begin - (let ((_g42719_ + (let ((_g42609_ (let () (declare (not safe)) - (if (##values? _g42718_) + (if (##values? _g42608_) (##vector-length - _g42718_) + _g42608_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42719_ 2))) + (##fx= _g42609_ 2))) (error "Context expects 2 values" - _g42719_))) + _g42609_))) (let ((_target26662707_ (let () (declare (not safe)) - (##vector-ref _g42718_ 0))) + (##vector-ref _g42608_ 0))) (_tl26682710_ (let () (declare (not safe)) - (##vector-ref _g42718_ 1)))) + (##vector-ref _g42608_ 1)))) (if (gx#stx-null? _tl26682710_) (letrec ((_loop26692713_ (lambda (_hd26672717_ @@ -1557,31 +1557,31 @@ (declare (not safe)) (##cdr _e27832815_)))) (if (gx#stx-pair/null? _tl27812822_) - (let ((_g42720_ + (let ((_g42610_ (gx#syntax-split-splice _tl27812822_ '0))) (begin - (let ((_g42721_ + (let ((_g42611_ (let () (declare (not safe)) - (if (##values? _g42720_) + (if (##values? _g42610_) (##vector-length - _g42720_) + _g42610_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42721_ 2))) + (##fx= _g42611_ 2))) (error "Context expects 2 values" - _g42721_))) + _g42611_))) (let ((_target27842825_ (let () (declare (not safe)) - (##vector-ref _g42720_ 0))) + (##vector-ref _g42610_ 0))) (_tl27862828_ (let () (declare (not safe)) - (##vector-ref _g42720_ 1)))) + (##vector-ref _g42610_ 1)))) (if (gx#stx-null? _tl27862828_) (letrec ((_loop27872831_ (lambda (_hd27852835_ @@ -1626,21 +1626,21 @@ (lambda (_stx2888_) (letrec ((_let-head?2891_ (lambda (_x3371_) - (let* ((___stx3750837509_ _x3371_) + (let* ((___stx3744237443_ _x3371_) (_g33753386_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3750837509_)))) - (let ((___kont3751137512_ + ___stx3744237443_)))) + (let ((___kont3744537446_ (lambda (_L3414_) (gx#stx-andmap gx#identifier? _L3414_))) - (___kont3751337514_ + (___kont3744737448_ (lambda () (gx#identifier? _x3371_)))) - (if (gx#stx-pair? ___stx3750837509_) + (if (gx#stx-pair? ___stx3744237443_) (let ((_e33803404_ - (gx#syntax-e ___stx3750837509_))) + (gx#syntax-e ___stx3744237443_))) (let ((_tl33783411_ (let () (declare (not safe)) @@ -1651,26 +1651,26 @@ (##car _e33803404_)))) (if (gx#identifier? _hd33793408_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42722_| + |gerbil/core$$[1]#_g42612_| _hd33793408_) - (___kont3751137512_ _tl33783411_) - (___kont3751337514_)) - (___kont3751337514_)))) - (___kont3751337514_)))))) + (___kont3744537446_ _tl33783411_) + (___kont3744737448_)) + (___kont3744737448_)))) + (___kont3744737448_)))))) (_let-head2893_ (lambda (_x3311_) - (let* ((___stx3752837529_ _x3311_) + (let* ((___stx3746237463_ _x3311_) (_g33153326_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3752837529_)))) - (let ((___kont3753137532_ (lambda (_L3354_) _L3354_)) - (___kont3753337534_ (lambda () (list _x3311_)))) - (if (gx#stx-pair? ___stx3752837529_) + ___stx3746237463_)))) + (let ((___kont3746537466_ (lambda (_L3354_) _L3354_)) + (___kont3746737468_ (lambda () (list _x3311_)))) + (if (gx#stx-pair? ___stx3746237463_) (let ((_e33203344_ - (gx#syntax-e ___stx3752837529_))) + (gx#syntax-e ___stx3746237463_))) (let ((_tl33183351_ (let () (declare (not safe)) @@ -1681,27 +1681,27 @@ (##car _e33203344_)))) (if (gx#identifier? _hd33193348_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42723_| + |gerbil/core$$[1]#_g42613_| _hd33193348_) - (___kont3753137532_ _tl33183351_) - (___kont3753337534_)) - (___kont3753337534_)))) - (___kont3753337534_))))))) - (let* ((___stx3754837549_ _stx2888_) + (___kont3746537466_ _tl33183351_) + (___kont3746737468_)) + (___kont3746737468_)))) + (___kont3746737468_))))))) + (let* ((___stx3748237483_ _stx2888_) (_g28962962_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3754837549_)))) - (let ((___kont3755137552_ + ___stx3748237483_)))) + (let ((___kont3748537486_ (lambda (_L3280_ _L3282_ _L3283_ _L3284_ _L3285_) (cons _L3285_ (cons _L3284_ (cons (cons (cons _L3283_ (cons _L3282_ '())) '()) _L3280_))))) - (___kont3755337554_ + (___kont3748737488_ (lambda (_L3083_ _L3085_ _L3086_ _L3087_) (let* ((_g31223139_ (lambda (_g31233135_) @@ -1712,30 +1712,30 @@ (_g31213211_ (lambda (_g31233143_) (if (gx#stx-pair/null? _g31233143_) - (let ((_g42724_ + (let ((_g42614_ (gx#syntax-split-splice _g31233143_ '0))) (begin - (let ((_g42725_ + (let ((_g42615_ (let () (declare (not safe)) - (if (##values? _g42724_) - (##vector-length _g42724_) + (if (##values? _g42614_) + (##vector-length _g42614_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42725_ 2))) + (##fx= _g42615_ 2))) (error "Context expects 2 values" - _g42725_))) + _g42615_))) (let ((_target31253146_ (let () (declare (not safe)) - (##vector-ref _g42724_ 0))) + (##vector-ref _g42614_ 0))) (_tl31273149_ (let () (declare (not safe)) - (##vector-ref _g42724_ 1)))) + (##vector-ref _g42614_ 1)))) (if (gx#stx-null? _tl31273149_) (letrec ((_loop31283152_ (lambda (_hd31263156_ @@ -1796,7 +1796,7 @@ (cons _g32143217_ _g32153220_)) '() _L3086_))))))) - (let* ((___match3761737618_ + (let* ((___match3755137552_ (lambda (_e29242969_ _hd29232973_ _tl29222976_ @@ -1806,7 +1806,7 @@ _e29302989_ _hd29292993_ _tl29282996_ - ___splice3755537556_ + ___splice3748937490_ _target29312999_ _tl29333002_) (letrec ((_loop29343005_ @@ -1862,7 +1862,7 @@ (_e29403047_ (reverse _e29383012_))) (if (gx#stx-pair/null? _tl29282996_) - (let ((___splice3755737558_ + (let ((___splice3749137492_ (gx#syntax-split-splice _tl29282996_ '0))) @@ -1870,13 +1870,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice3755737558_ + ___splice3749137492_ '1))) (_target29483053_ (let () (declare (not safe)) (##vector-ref - ___splice3755737558_ + ___splice3749137492_ '0)))) (if (gx#stx-null? _tl29503056_) @@ -1908,7 +1908,7 @@ (cons _g31133116_ _g31143119_)) '() _L3086_)) - (___kont3755337554_ + (___kont3748737488_ _L3083_ _L3085_ _L3086_ @@ -1923,7 +1923,7 @@ (declare (not safe)) (_g28962962_)))))))) (_loop29343005_ _target29312999_ '() '())))) - (___match3759137592_ + (___match3752537526_ (lambda (_e29053230_ _hd29043234_ _tl29033237_ @@ -1945,14 +1945,14 @@ (_L3284_ _hd29073244_) (_L3285_ _hd29043234_)) (if (_let-head?2891_ _L3283_) - (___kont3755137552_ + (___kont3748537486_ _L3280_ _L3282_ _L3283_ _L3284_ _L3285_) (if (gx#stx-pair/null? _hd29103254_) - (let ((___splice3755537556_ + (let ((___splice3748937490_ (gx#syntax-split-splice _hd29103254_ '0))) @@ -1960,16 +1960,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3755537556_ + ___splice3748937490_ '1))) (_target29312999_ (let () (declare (not safe)) (##vector-ref - ___splice3755537556_ + ___splice3748937490_ '0)))) (if (gx#stx-null? _tl29333002_) - (___match3761737618_ + (___match3755137552_ _e29053230_ _hd29043234_ _tl29033237_ @@ -1979,7 +1979,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3748937490_ _target29312999_ _tl29333002_) (let () @@ -1988,8 +1988,8 @@ (let () (declare (not safe)) (_g28962962_)))))))) - (if (gx#stx-pair? ___stx3754837549_) - (let ((_e29053230_ (gx#syntax-e ___stx3754837549_))) + (if (gx#stx-pair? ___stx3748237483_) + (let ((_e29053230_ (gx#syntax-e ___stx3748237483_))) (let ((_tl29033237_ (let () (declare (not safe)) (##cdr _e29053230_))) (_hd29043234_ @@ -2041,7 +2041,7 @@ (_hd29163274_ (let () (declare (not safe)) (##car _e29173270_)))) (if (gx#stx-null? _tl29153277_) - (___match3759137592_ + (___match3752537526_ _e29053230_ _hd29043234_ _tl29033237_ @@ -2058,18 +2058,18 @@ _hd29163274_ _tl29153277_) (if (gx#stx-pair/null? _hd29103254_) - (let ((___splice3755537556_ + (let ((___splice3748937490_ (gx#syntax-split-splice _hd29103254_ '0))) (let ((_tl29333002_ (let () (declare (not safe)) - (##vector-ref ___splice3755537556_ '1))) + (##vector-ref ___splice3748937490_ '1))) (_target29312999_ (let () (declare (not safe)) - (##vector-ref ___splice3755537556_ '0)))) + (##vector-ref ___splice3748937490_ '0)))) (if (gx#stx-null? _tl29333002_) - (___match3761737618_ + (___match3755137552_ _e29053230_ _hd29043234_ _tl29033237_ @@ -2079,7 +2079,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3748937490_ _target29312999_ _tl29333002_) (let () (declare (not safe)) (_g28962962_))))) @@ -2087,7 +2087,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29103254_) - (let ((___splice3755537556_ + (let ((___splice3748937490_ (gx#syntax-split-splice _hd29103254_ '0))) @@ -2095,13 +2095,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice3755537556_ '1))) + (##vector-ref ___splice3748937490_ '1))) (_target29312999_ (let () (declare (not safe)) - (##vector-ref ___splice3755537556_ '0)))) + (##vector-ref ___splice3748937490_ '0)))) (if (gx#stx-null? _tl29333002_) - (___match3761737618_ + (___match3755137552_ _e29053230_ _hd29043234_ _tl29033237_ @@ -2111,7 +2111,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3748937490_ _target29312999_ _tl29333002_) (let () (declare (not safe)) (_g28962962_))))) @@ -2119,7 +2119,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29103254_) - (let ((___splice3755537556_ + (let ((___splice3748937490_ (gx#syntax-split-splice _hd29103254_ '0))) @@ -2127,17 +2127,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice3755537556_ + ___splice3748937490_ '1))) (_target29312999_ (let () (declare (not safe)) (##vector-ref - ___splice3755537556_ + ___splice3748937490_ '0)))) (if (gx#stx-null? _tl29333002_) - (___match3761737618_ + (___match3755137552_ _e29053230_ _hd29043234_ _tl29033237_ @@ -2147,7 +2147,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3748937490_ _target29312999_ _tl29333002_) (let () @@ -2163,29 +2163,29 @@ (let () (declare (not safe)) (_g28962962_))))))))) (define |gerbil/core$$[:0:]#and| (lambda (_$stx3434_) - (let* ((___stx3762037621_ _$stx3434_) + (let* ((___stx3755437555_ _$stx3434_) (_g34403466_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3762037621_)))) - (let ((___kont3762337624_ (lambda () '#t)) - (___kont3762537626_ (lambda (_L3538_) _L3538_)) - (___kont3762737628_ + ___stx3755437555_)))) + (let ((___kont3755737558_ (lambda () '#t)) + (___kont3755937560_ (lambda (_L3538_) _L3538_)) + (___kont3756137562_ (lambda (_L3493_ _L3495_ _L3496_) (cons (gx#datum->syntax '#f 'if) (cons _L3495_ (cons (cons _L3496_ _L3493_) (cons '#f '()))))))) - (if (gx#stx-pair? ___stx3762037621_) - (let ((_e34443558_ (gx#syntax-e ___stx3762037621_))) + (if (gx#stx-pair? ___stx3755437555_) + (let ((_e34443558_ (gx#syntax-e ___stx3755437555_))) (let ((_tl34423565_ (let () (declare (not safe)) (##cdr _e34443558_))) (_hd34433562_ (let () (declare (not safe)) (##car _e34443558_)))) (if (gx#stx-null? _tl34423565_) - (___kont3762337624_) + (___kont3755737558_) (if (gx#stx-pair? _tl34423565_) (let ((_e34513528_ (gx#syntax-e _tl34423565_))) (let ((_tl34493535_ @@ -2197,8 +2197,8 @@ (declare (not safe)) (##car _e34513528_)))) (if (gx#stx-null? _tl34493535_) - (___kont3762537626_ _hd34503532_) - (___kont3762737628_ + (___kont3755937560_ _hd34503532_) + (___kont3756137562_ _tl34493535_ _hd34503532_ _hd34433562_)))) @@ -2206,16 +2206,16 @@ (let () (declare (not safe)) (_g34403466_))))))) (define |gerbil/core$$[:0:]#or| (lambda (_$stx3576_) - (let* ((___stx3766637667_ _$stx3576_) + (let* ((___stx3760037601_ _$stx3576_) (_g35823608_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3766637667_)))) - (let ((___kont3766937670_ (lambda () '#f)) - (___kont3767137672_ (lambda (_L3680_) _L3680_)) - (___kont3767337674_ + ___stx3760037601_)))) + (let ((___kont3760337604_ (lambda () '#f)) + (___kont3760537606_ (lambda (_L3680_) _L3680_)) + (___kont3760737608_ (lambda (_L3635_ _L3637_ _L3638_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2231,14 +2231,14 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (if (gx#stx-pair? ___stx3766637667_) - (let ((_e35863700_ (gx#syntax-e ___stx3766637667_))) + (if (gx#stx-pair? ___stx3760037601_) + (let ((_e35863700_ (gx#syntax-e ___stx3760037601_))) (let ((_tl35843707_ (let () (declare (not safe)) (##cdr _e35863700_))) (_hd35853704_ (let () (declare (not safe)) (##car _e35863700_)))) (if (gx#stx-null? _tl35843707_) - (___kont3766937670_) + (___kont3760337604_) (if (gx#stx-pair? _tl35843707_) (let ((_e35933670_ (gx#syntax-e _tl35843707_))) (let ((_tl35913677_ @@ -2250,8 +2250,8 @@ (declare (not safe)) (##car _e35933670_)))) (if (gx#stx-null? _tl35913677_) - (___kont3767137672_ _hd35923674_) - (___kont3767337674_ + (___kont3760537606_ _hd35923674_) + (___kont3760737608_ _tl35913677_ _hd35923674_ _hd35853704_)))) @@ -2259,15 +2259,15 @@ (let () (declare (not safe)) (_g35823608_))))))) (define |gerbil/core$$[:0:]#cond| (lambda (_$stx3718_) - (let* ((___stx3771237713_ _$stx3718_) + (let* ((___stx3764637647_ _$stx3718_) (_g37273818_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3771237713_)))) - (let ((___kont3771537716_ (lambda () '#!void)) - (___kont3771737718_ + ___stx3764637647_)))) + (let ((___kont3764937650_ (lambda () '#!void)) + (___kont3765137652_ (lambda (_L4165_) (cons (gx#datum->syntax '#f '%#expression) (cons (cons (gx#datum->syntax '#f 'begin) @@ -2276,11 +2276,11 @@ '() _L4165_)) '())))) - (___kont3772137722_ + (___kont3765537656_ (lambda () (cons (gx#datum->syntax '#f 'syntax-error) (cons '"Bad syntax; misplaced else" '())))) - (___kont3772337724_ + (___kont3765737658_ (lambda (_L4038_ _L4040_ _L4041_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2296,7 +2296,7 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3772537726_ + (___kont3765937660_ (lambda (_L3976_ _L3978_ _L3979_ _L3980_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2312,7 +2312,7 @@ (cons (cons _L3980_ _L3976_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3772737728_ + (___kont3766137662_ (lambda (_L3885_ _L3887_ _L3888_ _L3889_) (cons (gx#datum->syntax '#f 'if) (cons _L3888_ @@ -2324,7 +2324,7 @@ '() _L3887_)) (cons (cons _L3889_ _L3885_) '()))))))) - (let* ((___match3787337874_ + (let* ((___match3780737808_ (lambda (_e37973825_ _hd37963829_ _tl37953832_ @@ -2334,7 +2334,7 @@ _e38033845_ _hd38023849_ _tl38013852_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (letrec ((_loop38073861_ @@ -2356,13 +2356,13 @@ _body38113868_)))) (let ((_body38123881_ (reverse _body38113868_))) - (___kont3772737728_ + (___kont3766137662_ _tl37983842_ _body38123881_ _hd38023849_ _hd37963829_)))))) (_loop38073861_ _target38043855_ '())))) - (___match3776937770_ + (___match3770337704_ (lambda (_e37354105_ _hd37344109_ _tl37334112_ @@ -2372,7 +2372,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3771937720_ + ___splice3765337654_ _target37424135_ _tl37444138_) (letrec ((_loop37454141_ @@ -2395,17 +2395,17 @@ (let ((_body37504161_ (reverse _body37494148_))) (if (gx#stx-null? _tl37364122_) - (___kont3771737718_ _body37504161_) - (___kont3772137722_))))))) + (___kont3765137652_ _body37504161_) + (___kont3765537656_))))))) (_loop37454141_ _target37424135_ '()))))) - (if (gx#stx-pair? ___stx3771237713_) - (let ((_e37314200_ (gx#syntax-e ___stx3771237713_))) + (if (gx#stx-pair? ___stx3764637647_) + (let ((_e37314200_ (gx#syntax-e ___stx3764637647_))) (let ((_tl37294207_ (let () (declare (not safe)) (##cdr _e37314200_))) (_hd37304204_ (let () (declare (not safe)) (##car _e37314200_)))) (if (gx#stx-null? _tl37294207_) - (___kont3771537716_) + (___kont3764937650_) (if (gx#stx-pair? _tl37294207_) (let ((_e37384115_ (gx#syntax-e _tl37294207_))) (let ((_tl37364122_ @@ -2429,11 +2429,11 @@ (##car _e37414125_)))) (if (gx#identifier? _hd37404129_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42727_| + |gerbil/core$$[1]#_g42617_| _hd37404129_) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3771937720_ + (let ((___splice3765337654_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2441,13 +2441,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice3771937720_ '1))) + (##vector-ref ___splice3765337654_ '1))) (_target37424135_ (let () (declare (not safe)) - (##vector-ref ___splice3771937720_ '0)))) + (##vector-ref ___splice3765337654_ '0)))) (if (gx#stx-null? _tl37444138_) - (___match3776937770_ + (___match3770337704_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2457,15 +2457,15 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3771937720_ + ___splice3765337654_ _target37424135_ _tl37444138_) - (___kont3772137722_)))) - (___kont3772137722_)) + (___kont3765537656_)))) + (___kont3765537656_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl37394132_) - (___kont3772337724_ + (___kont3765737658_ _tl37364122_ _hd37404129_ _hd37304204_) @@ -2480,7 +2480,7 @@ (let () (declare (not safe)) (##car _e37873956_)))) (if (gx#identifier? _hd37863960_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42726_| + |gerbil/core$$[1]#_g42616_| _hd37863960_) (if (gx#stx-pair? _tl37853963_) (let ((_e37903966_ @@ -2494,13 +2494,13 @@ (declare (not safe)) (##car _e37903966_)))) (if (gx#stx-null? _tl37883973_) - (___kont3772537726_ + (___kont3765937660_ _tl37364122_ _hd37893970_ _hd37404129_ _hd37304204_) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2508,17 +2508,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3780737808_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2528,7 +2528,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2538,7 +2538,7 @@ (declare (not safe)) (_g37273818_)))))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2546,16 +2546,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3780737808_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2565,7 +2565,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2575,7 +2575,7 @@ (declare (not safe)) (_g37273818_)))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2583,16 +2583,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3780737808_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2602,7 +2602,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2610,22 +2610,22 @@ (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3780737808_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2635,7 +2635,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2643,18 +2643,18 @@ (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '1))) + (##vector-ref ___splice3766337664_ '1))) (_target38043855_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '0)))) + (##vector-ref ___splice3766337664_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3780737808_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2664,14 +2664,14 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () (declare (not safe)) (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl37394132_) - (___kont3772337724_ + (___kont3765737658_ _tl37364122_ _hd37404129_ _hd37304204_) @@ -2689,7 +2689,7 @@ (let () (declare (not safe)) (##car _e37873956_)))) (if (gx#identifier? _hd37863960_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42726_| + |gerbil/core$$[1]#_g42616_| _hd37863960_) (if (gx#stx-pair? _tl37853963_) (let ((_e37903966_ (gx#syntax-e _tl37853963_))) @@ -2702,13 +2702,13 @@ (declare (not safe)) (##car _e37903966_)))) (if (gx#stx-null? _tl37883973_) - (___kont3772537726_ + (___kont3765937660_ _tl37364122_ _hd37893970_ _hd37404129_ _hd37304204_) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2716,16 +2716,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3780737808_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2735,7 +2735,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2745,7 +2745,7 @@ (declare (not safe)) (_g37273818_)))))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2753,16 +2753,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3780737808_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2772,7 +2772,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2780,22 +2780,22 @@ (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3766337664_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3780737808_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2805,7 +2805,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2813,18 +2813,18 @@ (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '1))) + (##vector-ref ___splice3766337664_ '1))) (_target38043855_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '0)))) + (##vector-ref ___splice3766337664_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3780737808_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2834,7 +2834,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2842,18 +2842,18 @@ (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '1))) + (##vector-ref ___splice3766337664_ '1))) (_target38043855_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '0)))) + (##vector-ref ___splice3766337664_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3780737808_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2863,7 +2863,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () (declare (not safe)) (_g37273818_))))) @@ -2905,31 +2905,31 @@ (declare (not safe)) (##cdr _e42334265_)))) (if (gx#stx-pair/null? _tl42314272_) - (let ((_g42728_ + (let ((_g42618_ (gx#syntax-split-splice _tl42314272_ '0))) (begin - (let ((_g42729_ + (let ((_g42619_ (let () (declare (not safe)) - (if (##values? _g42728_) + (if (##values? _g42618_) (##vector-length - _g42728_) + _g42618_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42729_ 2))) + (##fx= _g42619_ 2))) (error "Context expects 2 values" - _g42729_))) + _g42619_))) (let ((_target42344275_ (let () (declare (not safe)) - (##vector-ref _g42728_ 0))) + (##vector-ref _g42618_ 0))) (_tl42364278_ (let () (declare (not safe)) - (##vector-ref _g42728_ 1)))) + (##vector-ref _g42618_ 1)))) (if (gx#stx-null? _tl42364278_) (letrec ((_loop42374281_ (lambda (_hd42354285_ @@ -3005,31 +3005,31 @@ (declare (not safe)) (##cdr _e43514383_)))) (if (gx#stx-pair/null? _tl43494390_) - (let ((_g42730_ + (let ((_g42620_ (gx#syntax-split-splice _tl43494390_ '0))) (begin - (let ((_g42731_ + (let ((_g42621_ (let () (declare (not safe)) - (if (##values? _g42730_) + (if (##values? _g42620_) (##vector-length - _g42730_) + _g42620_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42731_ 2))) + (##fx= _g42621_ 2))) (error "Context expects 2 values" - _g42731_))) + _g42621_))) (let ((_target43524393_ (let () (declare (not safe)) - (##vector-ref _g42730_ 0))) + (##vector-ref _g42620_ 0))) (_tl43544396_ (let () (declare (not safe)) - (##vector-ref _g42730_ 1)))) + (##vector-ref _g42620_ 1)))) (if (gx#stx-null? _tl43544396_) (letrec ((_loop43554399_ (lambda (_hd43534403_ @@ -3106,31 +3106,31 @@ (declare (not safe)) (##cdr _e44684500_)))) (if (gx#stx-pair/null? _tl44664507_) - (let ((_g42732_ + (let ((_g42622_ (gx#syntax-split-splice _tl44664507_ '0))) (begin - (let ((_g42733_ + (let ((_g42623_ (let () (declare (not safe)) - (if (##values? _g42732_) + (if (##values? _g42622_) (##vector-length - _g42732_) + _g42622_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42733_ 2))) + (##fx= _g42623_ 2))) (error "Context expects 2 values" - _g42733_))) + _g42623_))) (let ((_target44694510_ (let () (declare (not safe)) - (##vector-ref _g42732_ 0))) + (##vector-ref _g42622_ 0))) (_tl44714513_ (let () (declare (not safe)) - (##vector-ref _g42732_ 1)))) + (##vector-ref _g42622_ 1)))) (if (gx#stx-null? _tl44714513_) (letrec ((_loop44724516_ (lambda (_hd44704520_ @@ -3174,4 +3174,67 @@ (_g44594483_ _g44604487_)))) (_g44594483_ _g44604487_)))) (_g44594483_ _g44604487_))))) - (_g44584568_ _stx4456_)))))) + (_g44584568_ _stx4456_)))) + (define |gerbil/core$$[:0:]#defmutable| + (lambda (_$stx4573_) + (let* ((_g45774595_ + (lambda (_g45784591_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g45784591_))) + (_g45764650_ + (lambda (_g45784599_) + (if (gx#stx-pair? _g45784599_) + (let ((_e45834602_ (gx#syntax-e _g45784599_))) + (let ((_hd45824606_ + (let () + (declare (not safe)) + (##car _e45834602_))) + (_tl45814609_ + (let () + (declare (not safe)) + (##cdr _e45834602_)))) + (if (gx#stx-pair? _tl45814609_) + (let ((_e45864612_ (gx#syntax-e _tl45814609_))) + (let ((_hd45854616_ + (let () + (declare (not safe)) + (##car _e45864612_))) + (_tl45844619_ + (let () + (declare (not safe)) + (##cdr _e45864612_)))) + (if (gx#stx-pair? _tl45844619_) + (let ((_e45894622_ + (gx#syntax-e _tl45844619_))) + (let ((_hd45884626_ + (let () + (declare (not safe)) + (##car _e45894622_))) + (_tl45874629_ + (let () + (declare (not safe)) + (##cdr _e45894622_)))) + (if (gx#stx-null? _tl45874629_) + ((lambda (_L4632_ _L4634_) + (cons (gx#datum->syntax + '#f + 'begin) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'def) + (cons _L4634_ (cons _L4632_ '()))) + (cons (cons (gx#datum->syntax '#f 'set!) + (cons _L4634_ (cons _L4634_ '()))) + (cons (cons (gx#datum->syntax '#f 'void) '()) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd45884626_ + _hd45854616_) + (_g45774595_ _g45784599_)))) + (_g45774595_ _g45784599_)))) + (_g45774595_ _g45784599_)))) + (_g45774595_ _g45784599_))))) + (_g45764650_ _$stx4573_)))))) diff --git a/src/bootstrap/gerbil/core__4.scm b/src/bootstrap/gerbil/core__4.scm index 9fa267195..3c6589e83 100644 --- a/src/bootstrap/gerbil/core__4.scm +++ b/src/bootstrap/gerbil/core__4.scm @@ -1,2183 +1,2183 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g42764_| + (define |gerbil/core$$[1]#_g42654_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42765_| + (define |gerbil/core$$[1]#_g42655_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42766_| + (define |gerbil/core$$[1]#_g42656_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42802_| + (define |gerbil/core$$[1]#_g42961_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42803_| + (define |gerbil/core$$[1]#_g42962_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42804_| + (define |gerbil/core$$[1]#_g42963_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42811_| + (define |gerbil/core$$[1]#_g42995_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42812_| + (define |gerbil/core$$[1]#_g42996_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42813_| + (define |gerbil/core$$[1]#_g42997_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42814_| + (define |gerbil/core$$[1]#_g42998_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42815_| + (define |gerbil/core$$[1]#_g42999_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42816_| + (define |gerbil/core$$[1]#_g43000_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42817_| + (define |gerbil/core$$[1]#_g43001_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42818_| + (define |gerbil/core$$[1]#_g43002_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42819_| + (define |gerbil/core$$[1]#_g43003_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42820_| + (define |gerbil/core$$[1]#_g43004_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) (begin (define |gerbil/core$$[:0:]#lambda| - (lambda (_stx4574_) - (letrec ((_simple-lambda?4577_ - (lambda (_hd7974_) (gx#stx-andmap gx#identifier? _hd7974_))) - (_opt-lambda?4579_ - (lambda (_hd7826_) - (let _lp7829_ ((_rest7832_ _hd7826_) (_opt?7834_ '#f)) - (let* ((___stx3790037901_ _rest7832_) - (_g78377849_ + (lambda (_stx4655_) + (letrec ((_simple-lambda?4658_ + (lambda (_hd8055_) (gx#stx-andmap gx#identifier? _hd8055_))) + (_opt-lambda?4660_ + (lambda (_hd7907_) + (let _lp7910_ ((_rest7913_ _hd7907_) (_opt?7915_ '#f)) + (let* ((___stx3783437835_ _rest7913_) + (_g79187930_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3790037901_)))) - (let ((___kont3790337904_ - (lambda (_L7881_ _L7883_) - (let* ((___stx3787637877_ _L7883_) - (_g78997913_ + ___stx3783437835_)))) + (let ((___kont3783737838_ + (lambda (_L7962_ _L7964_) + (let* ((___stx3781037811_ _L7964_) + (_g79807994_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3787637877_)))) - (let ((___kont3787937880_ - (lambda (_L7951_) - (_lp7829_ _L7881_ '#t))) - (___kont3788137882_ + ___stx3781037811_)))) + (let ((___kont3781337814_ + (lambda (_L8032_) + (_lp7910_ _L7962_ '#t))) + (___kont3781537816_ (lambda () - (if (gx#identifier? _L7883_) - (if (not _opt?7834_) - (_lp7829_ _L7881_ '#f) + (if (gx#identifier? _L7964_) + (if (not _opt?7915_) + (_lp7910_ _L7962_ '#f) '#f) '#f)))) - (let ((___match3789737898_ - (lambda (_e79047931_ - _hd79037935_ - _tl79027938_ - _e79077941_ - _hd79067945_ - _tl79057948_) - (let ((_L7951_ _hd79037935_)) - (if (gx#identifier? _L7951_) - (___kont3787937880_ - _L7951_) - (___kont3788137882_)))))) - (if (gx#stx-pair? ___stx3787637877_) - (let ((_e79047931_ + (let ((___match3783137832_ + (lambda (_e79858012_ + _hd79848016_ + _tl79838019_ + _e79888022_ + _hd79878026_ + _tl79868029_) + (let ((_L8032_ _hd79848016_)) + (if (gx#identifier? _L8032_) + (___kont3781337814_ + _L8032_) + (___kont3781537816_)))))) + (if (gx#stx-pair? ___stx3781037811_) + (let ((_e79858012_ (gx#syntax-e - ___stx3787637877_))) - (let ((_tl79027938_ + ___stx3781037811_))) + (let ((_tl79838019_ (let () (declare (not safe)) - (##cdr _e79047931_))) - (_hd79037935_ + (##cdr _e79858012_))) + (_hd79848016_ (let () (declare (not safe)) - (##car _e79047931_)))) - (if (gx#stx-pair? _tl79027938_) - (let ((_e79077941_ + (##car _e79858012_)))) + (if (gx#stx-pair? _tl79838019_) + (let ((_e79888022_ (gx#syntax-e - _tl79027938_))) - (let ((_tl79057948_ + _tl79838019_))) + (let ((_tl79868029_ (let () (declare (not safe)) - (##cdr _e79077941_))) - (_hd79067945_ + (##cdr _e79888022_))) + (_hd79878026_ (let () (declare (not safe)) - (##car _e79077941_)))) + (##car _e79888022_)))) (if (gx#stx-null? - _tl79057948_) - (___match3789737898_ - _e79047931_ - _hd79037935_ - _tl79027938_ - _e79077941_ - _hd79067945_ - _tl79057948_) - (___kont3788137882_)))) - (___kont3788137882_)))) - (___kont3788137882_))))))) - (___kont3790537906_ + _tl79868029_) + (___match3783137832_ + _e79858012_ + _hd79848016_ + _tl79838019_ + _e79888022_ + _hd79878026_ + _tl79868029_) + (___kont3781537816_)))) + (___kont3781537816_)))) + (___kont3781537816_))))))) + (___kont3783937840_ (lambda () - (if _opt?7834_ - (let ((_$e7860_ - (gx#stx-null? _rest7832_))) - (if _$e7860_ - _$e7860_ - (gx#identifier? _rest7832_))) + (if _opt?7915_ + (let ((_$e7941_ + (gx#stx-null? _rest7913_))) + (if _$e7941_ + _$e7941_ + (gx#identifier? _rest7913_))) '#f)))) - (if (gx#stx-pair? ___stx3790037901_) - (let ((_e78437871_ - (gx#syntax-e ___stx3790037901_))) - (let ((_tl78417878_ + (if (gx#stx-pair? ___stx3783437835_) + (let ((_e79247952_ + (gx#syntax-e ___stx3783437835_))) + (let ((_tl79227959_ (let () (declare (not safe)) - (##cdr _e78437871_))) - (_hd78427875_ + (##cdr _e79247952_))) + (_hd79237956_ (let () (declare (not safe)) - (##car _e78437871_)))) - (___kont3790337904_ - _tl78417878_ - _hd78427875_))) - (___kont3790537906_))))))) - (_opt-lambda-split4580_ - (lambda (_hd7678_) - (let _lp7681_ ((_rest7684_ _hd7678_) - (_pre7686_ '()) - (_opt7687_ '())) - (let* ((___stx3794037941_ _rest7684_) - (_g76907702_ + (##car _e79247952_)))) + (___kont3783737838_ + _tl79227959_ + _hd79237956_))) + (___kont3783937840_))))))) + (_opt-lambda-split4661_ + (lambda (_hd7759_) + (let _lp7762_ ((_rest7765_ _hd7759_) + (_pre7767_ '()) + (_opt7768_ '())) + (let* ((___stx3787437875_ _rest7765_) + (_g77717783_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3794037941_)))) - (let ((___kont3794337944_ - (lambda (_L7730_ _L7732_) - (let* ((___stx3791637917_ _L7732_) - (_g77487763_ + ___stx3787437875_)))) + (let ((___kont3787737878_ + (lambda (_L7811_ _L7813_) + (let* ((___stx3785037851_ _L7813_) + (_g78297844_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3791637917_)))) - (let ((___kont3791937920_ - (lambda (_L7801_ _L7803_) - (_lp7681_ - _L7730_ - _pre7686_ - (cons (cons (_generate-bind4583_ - _L7803_) - _L7801_) - _opt7687_)))) - (___kont3792137922_ + ___stx3785037851_)))) + (let ((___kont3785337854_ + (lambda (_L7882_ _L7884_) + (_lp7762_ + _L7811_ + _pre7767_ + (cons (cons (_generate-bind4664_ + _L7884_) + _L7882_) + _opt7768_)))) + (___kont3785537856_ (lambda () - (_lp7681_ - _L7730_ - (cons (_generate-bind4583_ - _L7732_) - _pre7686_) - _opt7687_)))) - (if (gx#stx-pair? ___stx3791637917_) - (let ((_e77547781_ + (_lp7762_ + _L7811_ + (cons (_generate-bind4664_ + _L7813_) + _pre7767_) + _opt7768_)))) + (if (gx#stx-pair? ___stx3785037851_) + (let ((_e78357862_ (gx#syntax-e - ___stx3791637917_))) - (let ((_tl77527788_ + ___stx3785037851_))) + (let ((_tl78337869_ (let () (declare (not safe)) - (##cdr _e77547781_))) - (_hd77537785_ + (##cdr _e78357862_))) + (_hd78347866_ (let () (declare (not safe)) - (##car _e77547781_)))) - (if (gx#stx-pair? _tl77527788_) - (let ((_e77577791_ + (##car _e78357862_)))) + (if (gx#stx-pair? _tl78337869_) + (let ((_e78387872_ (gx#syntax-e - _tl77527788_))) - (let ((_tl77557798_ + _tl78337869_))) + (let ((_tl78367879_ (let () (declare (not safe)) - (##cdr _e77577791_))) - (_hd77567795_ + (##cdr _e78387872_))) + (_hd78377876_ (let () (declare (not safe)) - (##car _e77577791_)))) + (##car _e78387872_)))) (if (gx#stx-null? - _tl77557798_) - (___kont3791937920_ - _hd77567795_ - _hd77537785_) - (___kont3792137922_)))) - (___kont3792137922_)))) - (___kont3792137922_)))))) - (___kont3794537946_ + _tl78367879_) + (___kont3785337854_ + _hd78377876_ + _hd78347866_) + (___kont3785537856_)))) + (___kont3785537856_)))) + (___kont3785537856_)))))) + (___kont3787937880_ (lambda () - (values (reverse _pre7686_) - (reverse _opt7687_) - (if (gx#identifier? _rest7684_) - (_generate-bind4583_ _rest7684_) - _rest7684_))))) - (if (gx#stx-pair? ___stx3794037941_) - (let ((_e76967720_ - (gx#syntax-e ___stx3794037941_))) - (let ((_tl76947727_ + (values (reverse _pre7767_) + (reverse _opt7768_) + (if (gx#identifier? _rest7765_) + (_generate-bind4664_ _rest7765_) + _rest7765_))))) + (if (gx#stx-pair? ___stx3787437875_) + (let ((_e77777801_ + (gx#syntax-e ___stx3787437875_))) + (let ((_tl77757808_ (let () (declare (not safe)) - (##cdr _e76967720_))) - (_hd76957724_ + (##cdr _e77777801_))) + (_hd77767805_ (let () (declare (not safe)) - (##car _e76967720_)))) - (___kont3794337944_ - _tl76947727_ - _hd76957724_))) - (___kont3794537946_))))))) - (_kw-lambda?4581_ - (lambda (_hd7346_) - (let _lp7349_ ((_rest7352_ _hd7346_) - (_opt?7354_ '#f) - (_key?7355_ '#f)) - (let* ((___stx3800438005_ _rest7352_) - (_g73607390_ + (##car _e77777801_)))) + (___kont3787737878_ + _tl77757808_ + _hd77767805_))) + (___kont3787937880_))))))) + (_kw-lambda?4662_ + (lambda (_hd7427_) + (let _lp7430_ ((_rest7433_ _hd7427_) + (_opt?7435_ '#f) + (_key?7436_ '#f)) + (let* ((___stx3793837939_ _rest7433_) + (_g74417471_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3800438005_)))) - (let ((___kont3800738008_ - (lambda (_L7585_ _L7587_ _L7588_) - (let* ((___stx3798037981_ _L7587_) - (_g76037617_ + ___stx3793837939_)))) + (let ((___kont3794137942_ + (lambda (_L7666_ _L7668_ _L7669_) + (let* ((___stx3791437915_ _L7668_) + (_g76847698_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3798037981_)))) - (let ((___kont3798337984_ - (lambda (_L7655_) - (if (gx#identifier? _L7655_) - (_lp7349_ - _L7585_ - _opt?7354_ + ___stx3791437915_)))) + (let ((___kont3791737918_ + (lambda (_L7736_) + (if (gx#identifier? _L7736_) + (_lp7430_ + _L7666_ + _opt?7435_ '#t) '#f))) - (___kont3798537986_ + (___kont3791937920_ (lambda () - (if (gx#identifier? _L7587_) - (_lp7349_ - _L7585_ - _opt?7354_ + (if (gx#identifier? _L7668_) + (_lp7430_ + _L7666_ + _opt?7435_ '#t) '#f)))) - (if (gx#stx-pair? ___stx3798037981_) - (let ((_e76087635_ + (if (gx#stx-pair? ___stx3791437915_) + (let ((_e76897716_ (gx#syntax-e - ___stx3798037981_))) - (let ((_tl76067642_ + ___stx3791437915_))) + (let ((_tl76877723_ (let () (declare (not safe)) - (##cdr _e76087635_))) - (_hd76077639_ + (##cdr _e76897716_))) + (_hd76887720_ (let () (declare (not safe)) - (##car _e76087635_)))) - (if (gx#stx-pair? _tl76067642_) - (let ((_e76117645_ + (##car _e76897716_)))) + (if (gx#stx-pair? _tl76877723_) + (let ((_e76927726_ (gx#syntax-e - _tl76067642_))) - (let ((_tl76097652_ + _tl76877723_))) + (let ((_tl76907733_ (let () (declare (not safe)) - (##cdr _e76117645_))) - (_hd76107649_ + (##cdr _e76927726_))) + (_hd76917730_ (let () (declare (not safe)) - (##car _e76117645_)))) + (##car _e76927726_)))) (if (gx#stx-null? - _tl76097652_) - (___kont3798337984_ - _hd76077639_) - (___kont3798537986_)))) - (___kont3798537986_)))) - (___kont3798537986_)))))) - (___kont3800938010_ - (lambda (_L7542_ _L7544_) - (if (gx#identifier? _L7544_) - (_lp7349_ _L7542_ _opt?7354_ '#t) + _tl76907733_) + (___kont3791737918_ + _hd76887720_) + (___kont3791937920_)))) + (___kont3791937920_)))) + (___kont3791937920_)))))) + (___kont3794337944_ + (lambda (_L7623_ _L7625_) + (if (gx#identifier? _L7625_) + (_lp7430_ _L7623_ _opt?7435_ '#t) '#f))) - (___kont3801138012_ - (lambda (_L7422_ _L7424_) - (let* ((___stx3795637957_ _L7424_) - (_g74407454_ + (___kont3794537946_ + (lambda (_L7503_ _L7505_) + (let* ((___stx3789037891_ _L7505_) + (_g75217535_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3795637957_)))) - (let ((___kont3795937960_ - (lambda (_L7492_) - (if (gx#identifier? _L7492_) - (_lp7349_ - _L7422_ + ___stx3789037891_)))) + (let ((___kont3789337894_ + (lambda (_L7573_) + (if (gx#identifier? _L7573_) + (_lp7430_ + _L7503_ '#t - _key?7355_) + _key?7436_) '#f))) - (___kont3796137962_ + (___kont3789537896_ (lambda () - (if (gx#identifier? _L7424_) - (if (not _opt?7354_) - (_lp7349_ - _L7422_ + (if (gx#identifier? _L7505_) + (if (not _opt?7435_) + (_lp7430_ + _L7503_ '#f - _key?7355_) + _key?7436_) '#f) '#f)))) - (if (gx#stx-pair? ___stx3795637957_) - (let ((_e74457472_ + (if (gx#stx-pair? ___stx3789037891_) + (let ((_e75267553_ (gx#syntax-e - ___stx3795637957_))) - (let ((_tl74437479_ + ___stx3789037891_))) + (let ((_tl75247560_ (let () (declare (not safe)) - (##cdr _e74457472_))) - (_hd74447476_ + (##cdr _e75267553_))) + (_hd75257557_ (let () (declare (not safe)) - (##car _e74457472_)))) - (if (gx#stx-pair? _tl74437479_) - (let ((_e74487482_ + (##car _e75267553_)))) + (if (gx#stx-pair? _tl75247560_) + (let ((_e75297563_ (gx#syntax-e - _tl74437479_))) - (let ((_tl74467489_ + _tl75247560_))) + (let ((_tl75277570_ (let () (declare (not safe)) - (##cdr _e74487482_))) - (_hd74477486_ + (##cdr _e75297563_))) + (_hd75287567_ (let () (declare (not safe)) - (##car _e74487482_)))) + (##car _e75297563_)))) (if (gx#stx-null? - _tl74467489_) - (___kont3795937960_ - _hd74447476_) - (___kont3796137962_)))) - (___kont3796137962_)))) - (___kont3796137962_)))))) - (___kont3801338014_ + _tl75277570_) + (___kont3789337894_ + _hd75257557_) + (___kont3789537896_)))) + (___kont3789537896_)))) + (___kont3789537896_)))))) + (___kont3794737948_ (lambda () - (if _key?7355_ - (let ((_$e7401_ - (gx#stx-null? _rest7352_))) - (if _$e7401_ - _$e7401_ - (gx#identifier? _rest7352_))) + (if _key?7436_ + (let ((_$e7482_ + (gx#stx-null? _rest7433_))) + (if _$e7482_ + _$e7482_ + (gx#identifier? _rest7433_))) '#f)))) - (let ((___match3802738028_ - (lambda (_e73677565_ - _hd73667569_ - _tl73657572_ - _e73707575_ - _hd73697579_ - _tl73687582_) - (let ((_L7585_ _tl73687582_) - (_L7587_ _hd73697579_) - (_L7588_ _hd73667569_)) - (if (gx#stx-keyword? _L7588_) - (___kont3800738008_ - _L7585_ - _L7587_ - _L7588_) - (if (gx#stx-datum? _hd73667569_) - (let ((_e73767528_ - (gx#stx-e _hd73667569_))) - (if (equal? _e73767528_ '#!key) - (___kont3800938010_ - _tl73687582_ - _hd73697579_) - (___kont3801138012_ - _tl73657572_ - _hd73667569_))) - (___kont3801138012_ - _tl73657572_ - _hd73667569_))))))) - (if (gx#stx-pair? ___stx3800438005_) - (let ((_e73677565_ - (gx#syntax-e ___stx3800438005_))) - (let ((_tl73657572_ + (let ((___match3796137962_ + (lambda (_e74487646_ + _hd74477650_ + _tl74467653_ + _e74517656_ + _hd74507660_ + _tl74497663_) + (let ((_L7666_ _tl74497663_) + (_L7668_ _hd74507660_) + (_L7669_ _hd74477650_)) + (if (gx#stx-keyword? _L7669_) + (___kont3794137942_ + _L7666_ + _L7668_ + _L7669_) + (if (gx#stx-datum? _hd74477650_) + (let ((_e74577609_ + (gx#stx-e _hd74477650_))) + (if (equal? _e74577609_ '#!key) + (___kont3794337944_ + _tl74497663_ + _hd74507660_) + (___kont3794537946_ + _tl74467653_ + _hd74477650_))) + (___kont3794537946_ + _tl74467653_ + _hd74477650_))))))) + (if (gx#stx-pair? ___stx3793837939_) + (let ((_e74487646_ + (gx#syntax-e ___stx3793837939_))) + (let ((_tl74467653_ (let () (declare (not safe)) - (##cdr _e73677565_))) - (_hd73667569_ + (##cdr _e74487646_))) + (_hd74477650_ (let () (declare (not safe)) - (##car _e73677565_)))) - (if (gx#stx-pair? _tl73657572_) - (let ((_e73707575_ - (gx#syntax-e _tl73657572_))) - (let ((_tl73687582_ + (##car _e74487646_)))) + (if (gx#stx-pair? _tl74467653_) + (let ((_e74517656_ + (gx#syntax-e _tl74467653_))) + (let ((_tl74497663_ (let () (declare (not safe)) - (##cdr _e73707575_))) - (_hd73697579_ + (##cdr _e74517656_))) + (_hd74507660_ (let () (declare (not safe)) - (##car _e73707575_)))) - (___match3802738028_ - _e73677565_ - _hd73667569_ - _tl73657572_ - _e73707575_ - _hd73697579_ - _tl73687582_))) - (if (gx#stx-datum? _hd73667569_) - (let ((_e73767528_ - (gx#stx-e _hd73667569_))) - (___kont3801138012_ - _tl73657572_ - _hd73667569_)) - (___kont3801138012_ - _tl73657572_ - _hd73667569_))))) - (___kont3801338014_)))))))) - (_kw-lambda-split4582_ - (lambda (_hd7079_) - (let _lp7082_ ((_rest7085_ _hd7079_) - (_kwvar7087_ '#f) - (_kwargs7088_ '()) - (_args7089_ '())) - (let* ((___stx3807838079_ _rest7085_) - (_g70947124_ + (##car _e74517656_)))) + (___match3796137962_ + _e74487646_ + _hd74477650_ + _tl74467653_ + _e74517656_ + _hd74507660_ + _tl74497663_))) + (if (gx#stx-datum? _hd74477650_) + (let ((_e74577609_ + (gx#stx-e _hd74477650_))) + (___kont3794537946_ + _tl74467653_ + _hd74477650_)) + (___kont3794537946_ + _tl74467653_ + _hd74477650_))))) + (___kont3794737948_)))))))) + (_kw-lambda-split4663_ + (lambda (_hd7160_) + (let _lp7163_ ((_rest7166_ _hd7160_) + (_kwvar7168_ '#f) + (_kwargs7169_ '()) + (_args7170_ '())) + (let* ((___stx3801238013_ _rest7166_) + (_g71757205_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3807838079_)))) - (let ((___kont3808138082_ - (lambda (_L7243_ _L7245_ _L7246_) - (let ((_key7260_ (gx#stx-e _L7246_))) - (if (find (lambda (_kwarg7263_) - (eq? _key7260_ - (car _kwarg7263_))) - _kwargs7088_) + ___stx3801238013_)))) + (let ((___kont3801538016_ + (lambda (_L7324_ _L7326_ _L7327_) + (let ((_key7341_ (gx#stx-e _L7327_))) + (if (find (lambda (_kwarg7344_) + (eq? _key7341_ + (car _kwarg7344_))) + _kwargs7169_) (gx#raise-syntax-error '#f '"Bad syntax; duplicate keyword argument" - _stx4574_ - _hd7079_ - _key7260_) - (let* ((___stx3805438055_ _L7245_) - (_g72677282_ + _stx4655_ + _hd7160_ + _key7341_) + (let* ((___stx3798837989_ _L7326_) + (_g73487363_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3805438055_)))) - (let ((___kont3805738058_ - (lambda (_L7320_ _L7322_) - (_lp7082_ - _L7243_ - _kwvar7087_ - (cons (list _key7260_ - (_generate-bind4583_ - _L7322_) - _L7320_) - _kwargs7088_) - _args7089_))) - (___kont3805938060_ + ___stx3798837989_)))) + (let ((___kont3799137992_ + (lambda (_L7401_ _L7403_) + (_lp7163_ + _L7324_ + _kwvar7168_ + (cons (list _key7341_ + (_generate-bind4664_ + _L7403_) + _L7401_) + _kwargs7169_) + _args7170_))) + (___kont3799337994_ (lambda () - (_lp7082_ - _L7243_ - _kwvar7087_ - (cons (list _key7260_ - (_generate-bind4583_ - _L7245_) + (_lp7163_ + _L7324_ + _kwvar7168_ + (cons (list _key7341_ + (_generate-bind4664_ + _L7326_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) (cons '"Missing required keyword argument" - (cons _L7246_ '())))) - _kwargs7088_) + (cons _L7327_ '())))) + _kwargs7169_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _args7089_)))) - (if (gx#stx-pair? ___stx3805438055_) - (let ((_e72737300_ + _args7170_)))) + (if (gx#stx-pair? ___stx3798837989_) + (let ((_e73547381_ (gx#syntax-e - ___stx3805438055_))) - (let ((_tl72717307_ + ___stx3798837989_))) + (let ((_tl73527388_ (let () (declare (not safe)) - (##cdr _e72737300_))) - (_hd72727304_ + (##cdr _e73547381_))) + (_hd73537385_ (let () (declare (not safe)) - (##car _e72737300_)))) + (##car _e73547381_)))) (if (gx#stx-pair? - _tl72717307_) - (let ((_e72767310_ + _tl73527388_) + (let ((_e73577391_ (gx#syntax-e - _tl72717307_))) - (let ((_tl72747317_ + _tl73527388_))) + (let ((_tl73557398_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e72767310_))) - (_hd72757314_ - (let () (declare (not safe)) (##car _e72767310_)))) - (if (gx#stx-null? _tl72747317_) - (___kont3805738058_ _hd72757314_ _hd72727304_) - (___kont3805938060_)))) - (___kont3805938060_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3805938060_)))))))) - (___kont3808338084_ - (lambda (_L7200_ _L7202_) - (if _kwvar7087_ + (##cdr _e73577391_))) + (_hd73567395_ + (let () (declare (not safe)) (##car _e73577391_)))) + (if (gx#stx-null? _tl73557398_) + (___kont3799137992_ _hd73567395_ _hd73537385_) + (___kont3799337994_)))) + (___kont3799337994_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3799337994_)))))))) + (___kont3801738018_ + (lambda (_L7281_ _L7283_) + (if _kwvar7168_ (gx#raise-syntax-error '#f '"Bad syntax; duplicate #!key argument" - _stx4574_ - _hd7079_ - _L7202_) - (_lp7082_ - _L7200_ - (_generate-bind4583_ _L7202_) - _kwargs7088_ - _args7089_)))) - (___kont3808538086_ - (lambda (_L7152_ _L7154_) - (_lp7082_ - _L7152_ - _kwvar7087_ - _kwargs7088_ - (cons _L7154_ _args7089_)))) - (___kont3808738088_ + _stx4655_ + _hd7160_ + _L7283_) + (_lp7163_ + _L7281_ + (_generate-bind4664_ _L7283_) + _kwargs7169_ + _args7170_)))) + (___kont3801938020_ + (lambda (_L7233_ _L7235_) + (_lp7163_ + _L7233_ + _kwvar7168_ + _kwargs7169_ + (cons _L7235_ _args7170_)))) + (___kont3802138022_ (lambda () - (values _kwvar7087_ - (reverse _kwargs7088_) - (foldl cons _rest7085_ _args7089_))))) - (let ((___match3810138102_ - (lambda (_e71017223_ - _hd71007227_ - _tl70997230_ - _e71047233_ - _hd71037237_ - _tl71027240_) - (let ((_L7243_ _tl71027240_) - (_L7245_ _hd71037237_) - (_L7246_ _hd71007227_)) - (if (gx#stx-keyword? _L7246_) - (___kont3808138082_ - _L7243_ - _L7245_ - _L7246_) - (if (gx#stx-datum? _hd71007227_) - (let ((_e71107186_ - (gx#stx-e _hd71007227_))) - (if (equal? _e71107186_ '#!key) - (___kont3808338084_ - _tl71027240_ - _hd71037237_) - (___kont3808538086_ - _tl70997230_ - _hd71007227_))) - (___kont3808538086_ - _tl70997230_ - _hd71007227_))))))) - (if (gx#stx-pair? ___stx3807838079_) - (let ((_e71017223_ - (gx#syntax-e ___stx3807838079_))) - (let ((_tl70997230_ + (values _kwvar7168_ + (reverse _kwargs7169_) + (foldl cons _rest7166_ _args7170_))))) + (let ((___match3803538036_ + (lambda (_e71827304_ + _hd71817308_ + _tl71807311_ + _e71857314_ + _hd71847318_ + _tl71837321_) + (let ((_L7324_ _tl71837321_) + (_L7326_ _hd71847318_) + (_L7327_ _hd71817308_)) + (if (gx#stx-keyword? _L7327_) + (___kont3801538016_ + _L7324_ + _L7326_ + _L7327_) + (if (gx#stx-datum? _hd71817308_) + (let ((_e71917267_ + (gx#stx-e _hd71817308_))) + (if (equal? _e71917267_ '#!key) + (___kont3801738018_ + _tl71837321_ + _hd71847318_) + (___kont3801938020_ + _tl71807311_ + _hd71817308_))) + (___kont3801938020_ + _tl71807311_ + _hd71817308_))))))) + (if (gx#stx-pair? ___stx3801238013_) + (let ((_e71827304_ + (gx#syntax-e ___stx3801238013_))) + (let ((_tl71807311_ (let () (declare (not safe)) - (##cdr _e71017223_))) - (_hd71007227_ + (##cdr _e71827304_))) + (_hd71817308_ (let () (declare (not safe)) - (##car _e71017223_)))) - (if (gx#stx-pair? _tl70997230_) - (let ((_e71047233_ - (gx#syntax-e _tl70997230_))) - (let ((_tl71027240_ + (##car _e71827304_)))) + (if (gx#stx-pair? _tl71807311_) + (let ((_e71857314_ + (gx#syntax-e _tl71807311_))) + (let ((_tl71837321_ (let () (declare (not safe)) - (##cdr _e71047233_))) - (_hd71037237_ + (##cdr _e71857314_))) + (_hd71847318_ (let () (declare (not safe)) - (##car _e71047233_)))) - (___match3810138102_ - _e71017223_ - _hd71007227_ - _tl70997230_ - _e71047233_ - _hd71037237_ - _tl71027240_))) - (if (gx#stx-datum? _hd71007227_) - (let ((_e71107186_ - (gx#stx-e _hd71007227_))) - (___kont3808538086_ - _tl70997230_ - _hd71007227_)) - (___kont3808538086_ - _tl70997230_ - _hd71007227_))))) - (___kont3808738088_)))))))) - (_generate-bind4583_ - (lambda (_e7076_) - (if (gx#underscore? _e7076_) - (gx#genident _e7076_) - _e7076_))) - (_check-duplicate-bindings4584_ - (lambda (_hd6773_) - (letrec ((_cons-id6776_ - (lambda (_id7072_ _ids7074_) - (if (gx#underscore? _id7072_) - _ids7074_ - (cons _id7072_ _ids7074_))))) - (let _lp6779_ ((_rest6782_ _hd6773_) (_ids6784_ '())) - (let* ((___stx3815238153_ _rest6782_) - (_g67876799_ + (##car _e71857314_)))) + (___match3803538036_ + _e71827304_ + _hd71817308_ + _tl71807311_ + _e71857314_ + _hd71847318_ + _tl71837321_))) + (if (gx#stx-datum? _hd71817308_) + (let ((_e71917267_ + (gx#stx-e _hd71817308_))) + (___kont3801938020_ + _tl71807311_ + _hd71817308_)) + (___kont3801938020_ + _tl71807311_ + _hd71817308_))))) + (___kont3802138022_)))))))) + (_generate-bind4664_ + (lambda (_e7157_) + (if (gx#underscore? _e7157_) + (gx#genident _e7157_) + _e7157_))) + (_check-duplicate-bindings4665_ + (lambda (_hd6854_) + (letrec ((_cons-id6857_ + (lambda (_id7153_ _ids7155_) + (if (gx#underscore? _id7153_) + _ids7155_ + (cons _id7153_ _ids7155_))))) + (let _lp6860_ ((_rest6863_ _hd6854_) (_ids6865_ '())) + (let* ((___stx3808638087_ _rest6863_) + (_g68686880_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3815238153_)))) - (let ((___kont3815538156_ - (lambda (_L6827_ _L6829_) - (if (gx#identifier? _L6829_) - (_lp6779_ - _L6827_ - (_cons-id6776_ _L6829_ _ids6784_)) - (if (gx#stx-pair? _L6829_) - (let* ((_g68456859_ - (lambda (_g68466855_) + ___stx3808638087_)))) + (let ((___kont3808938090_ + (lambda (_L6908_ _L6910_) + (if (gx#identifier? _L6910_) + (_lp6860_ + _L6908_ + (_cons-id6857_ _L6910_ _ids6865_)) + (if (gx#stx-pair? _L6910_) + (let* ((_g69266940_ + (lambda (_g69276936_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g68466855_))) - (_g68446900_ - (lambda (_g68466863_) + _g69276936_))) + (_g69256981_ + (lambda (_g69276944_) (if (gx#stx-pair? - _g68466863_) - (let ((_e68506866_ + _g69276944_) + (let ((_e69316947_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g68466863_))) - (let ((_hd68496870_ - (let () (declare (not safe)) (##car _e68506866_))) - (_tl68486873_ - (let () (declare (not safe)) (##cdr _e68506866_)))) - (if (gx#stx-pair? _tl68486873_) - (let ((_e68536876_ (gx#syntax-e _tl68486873_))) - (let ((_hd68526880_ + _g69276944_))) + (let ((_hd69306951_ + (let () (declare (not safe)) (##car _e69316947_))) + (_tl69296954_ + (let () (declare (not safe)) (##cdr _e69316947_)))) + (if (gx#stx-pair? _tl69296954_) + (let ((_e69346957_ (gx#syntax-e _tl69296954_))) + (let ((_hd69336961_ (let () (declare (not safe)) - (##car _e68536876_))) - (_tl68516883_ + (##car _e69346957_))) + (_tl69326964_ (let () (declare (not safe)) - (##cdr _e68536876_)))) - (if (gx#stx-null? _tl68516883_) - ((lambda (_L6886_) - (_lp6779_ - _L6827_ - (_cons-id6776_ _L6886_ _ids6784_))) - _hd68496870_) - (_g68456859_ _g68466863_)))) - (_g68456859_ _g68466863_)))) - (_g68456859_ _g68466863_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g68446900_ _L6829_)) - (if (gx#stx-keyword? _L6829_) - (let* ((_g69046916_ - (lambda (_g69056912_) + (##cdr _e69346957_)))) + (if (gx#stx-null? _tl69326964_) + ((lambda (_L6967_) + (_lp6860_ + _L6908_ + (_cons-id6857_ _L6967_ _ids6865_))) + _hd69306951_) + (_g69266940_ _g69276944_)))) + (_g69266940_ _g69276944_)))) + (_g69266940_ _g69276944_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g69256981_ _L6910_)) + (if (gx#stx-keyword? _L6910_) + (let* ((_g69856997_ + (lambda (_g69866993_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g69056912_))) - (_g69037018_ - (lambda (_g69056920_) + _g69866993_))) + (_g69847099_ + (lambda (_g69867001_) (if (gx#stx-pair? - _g69056920_) - (let ((_e69106923_ + _g69867001_) + (let ((_e69917004_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g69056920_))) - (let ((_hd69096927_ + (gx#syntax-e _g69867001_))) + (let ((_hd69907008_ (let () (declare (not safe)) - (##car _e69106923_))) - (_tl69086930_ + (##car _e69917004_))) + (_tl69897011_ (let () (declare (not safe)) - (##cdr _e69106923_)))) - ((lambda (_L6933_ _L6935_) - (let* ((___stx3812838129_ _L6935_) - (_g69476961_ + (##cdr _e69917004_)))) + ((lambda (_L7014_ _L7016_) + (let* ((___stx3806238063_ _L7016_) + (_g70287042_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3812838129_)))) - (let ((___kont3813138132_ - (lambda (_L6999_) - (_lp6779_ - _L6933_ - (_cons-id6776_ _L6999_ _ids6784_)))) - (___kont3813338134_ + ___stx3806238063_)))) + (let ((___kont3806538066_ + (lambda (_L7080_) + (_lp6860_ + _L7014_ + (_cons-id6857_ _L7080_ _ids6865_)))) + (___kont3806738068_ (lambda () - (_lp6779_ - _L6933_ - (_cons-id6776_ _L6935_ _ids6784_))))) - (if (gx#stx-pair? ___stx3812838129_) - (let ((_e69526979_ - (gx#syntax-e ___stx3812838129_))) - (let ((_tl69506986_ + (_lp6860_ + _L7014_ + (_cons-id6857_ _L7016_ _ids6865_))))) + (if (gx#stx-pair? ___stx3806238063_) + (let ((_e70337060_ + (gx#syntax-e ___stx3806238063_))) + (let ((_tl70317067_ (let () (declare (not safe)) - (##cdr _e69526979_))) - (_hd69516983_ + (##cdr _e70337060_))) + (_hd70327064_ (let () (declare (not safe)) - (##car _e69526979_)))) - (if (gx#stx-pair? _tl69506986_) - (let ((_e69556989_ - (gx#syntax-e _tl69506986_))) - (let ((_tl69536996_ + (##car _e70337060_)))) + (if (gx#stx-pair? _tl70317067_) + (let ((_e70367070_ + (gx#syntax-e _tl70317067_))) + (let ((_tl70347077_ (let () (declare (not safe)) - (##cdr _e69556989_))) - (_hd69546993_ + (##cdr _e70367070_))) + (_hd70357074_ (let () (declare (not safe)) - (##car _e69556989_)))) - (if (gx#stx-null? _tl69536996_) - (___kont3813138132_ - _hd69516983_) - (___kont3813338134_)))) - (___kont3813338134_)))) - (___kont3813338134_))))) - _tl69086930_ - _hd69096927_))) - (_g69046916_ _g69056920_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g69037018_ _L6827_)) - (if (eq? (gx#stx-e _L6829_) + (##car _e70367070_)))) + (if (gx#stx-null? _tl70347077_) + (___kont3806538066_ + _hd70327064_) + (___kont3806738068_)))) + (___kont3806738068_)))) + (___kont3806738068_))))) + _tl69897011_ + _hd69907008_))) + (_g69856997_ _g69867001_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g69847099_ _L6908_)) + (if (eq? (gx#stx-e _L6910_) '#!key) - (let* ((_g70227034_ - (lambda (_g70237030_) + (let* ((_g71037115_ + (lambda (_g71047111_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g70237030_))) - (_g70217064_ - (lambda (_g70237038_) + _g71047111_))) + (_g71027145_ + (lambda (_g71047119_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g70237038_) - (let ((_e70287041_ (gx#syntax-e _g70237038_))) - (let ((_hd70277045_ + _g71047119_) + (let ((_e71097122_ (gx#syntax-e _g71047119_))) + (let ((_hd71087126_ (let () (declare (not safe)) - (##car _e70287041_))) - (_tl70267048_ + (##car _e71097122_))) + (_tl71077129_ (let () (declare (not safe)) - (##cdr _e70287041_)))) - ((lambda (_L7051_ _L7053_) - (_lp6779_ - _L7051_ - (_cons-id6776_ _L7053_ _ids6784_))) - _tl70267048_ - _hd70277045_))) - (_g70227034_ _g70237038_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g70217064_ _L6827_)) + (##cdr _e71097122_)))) + ((lambda (_L7132_ _L7134_) + (_lp6860_ + _L7132_ + (_cons-id6857_ _L7134_ _ids6865_))) + _tl71077129_ + _hd71087126_))) + (_g71037115_ _g71047119_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g71027145_ _L6908_)) (error '"BUG: check-duplicate-bindings" - _stx4574_ - _rest6782_))))))) - (___kont3815738158_ + _stx4655_ + _rest6863_))))))) + (___kont3809138092_ (lambda () (gx#check-duplicate-identifiers - (if (gx#stx-null? _rest6782_) - _ids6784_ - (_cons-id6776_ _rest6782_ _ids6784_)) - _stx4574_)))) - (if (gx#stx-pair? ___stx3815238153_) - (let ((_e67936817_ - (gx#syntax-e ___stx3815238153_))) - (let ((_tl67916824_ + (if (gx#stx-null? _rest6863_) + _ids6865_ + (_cons-id6857_ _rest6863_ _ids6865_)) + _stx4655_)))) + (if (gx#stx-pair? ___stx3808638087_) + (let ((_e68746898_ + (gx#syntax-e ___stx3808638087_))) + (let ((_tl68726905_ (let () (declare (not safe)) - (##cdr _e67936817_))) - (_hd67926821_ + (##cdr _e68746898_))) + (_hd68736902_ (let () (declare (not safe)) - (##car _e67936817_)))) - (___kont3815538156_ - _tl67916824_ - _hd67926821_))) - (___kont3815738158_)))))))) - (_generate-opt-primary4585_ - (lambda (_pre6565_ _opt6567_ _tail6568_ _body6569_) - (let* ((_g65716612_ - (lambda (_g65726608_) + (##car _e68746898_)))) + (___kont3808938090_ + _tl68726905_ + _hd68736902_))) + (___kont3809138092_)))))))) + (_generate-opt-primary4666_ + (lambda (_pre6646_ _opt6648_ _tail6649_ _body6650_) + (let* ((_g66526693_ + (lambda (_g66536689_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g65726608_))) - (_g65706769_ - (lambda (_g65726616_) - (if (gx#stx-pair? _g65726616_) - (let ((_e65796619_ - (gx#syntax-e _g65726616_))) - (let ((_hd65786623_ + _g66536689_))) + (_g66516850_ + (lambda (_g66536697_) + (if (gx#stx-pair? _g66536697_) + (let ((_e66606700_ + (gx#syntax-e _g66536697_))) + (let ((_hd66596704_ (let () (declare (not safe)) - (##car _e65796619_))) - (_tl65776626_ + (##car _e66606700_))) + (_tl66586707_ (let () (declare (not safe)) - (##cdr _e65796619_)))) - (if (gx#stx-pair/null? _hd65786623_) - (let ((_g42734_ + (##cdr _e66606700_)))) + (if (gx#stx-pair/null? _hd66596704_) + (let ((_g42624_ (gx#syntax-split-splice - _hd65786623_ + _hd66596704_ '0))) (begin - (let ((_g42735_ + (let ((_g42625_ (let () (declare (not safe)) - (if (##values? _g42734_) + (if (##values? _g42624_) (##vector-length - _g42734_) + _g42624_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42735_ 2))) + (##fx= _g42625_ 2))) (error "Context expects 2 values" - _g42735_))) - (let ((_target65806629_ + _g42625_))) + (let ((_target66616710_ (let () (declare (not safe)) (##vector-ref - _g42734_ + _g42624_ 0))) - (_tl65826632_ + (_tl66636713_ (let () (declare (not safe)) (##vector-ref - _g42734_ + _g42624_ 1)))) - (if (gx#stx-null? _tl65826632_) - (letrec ((_loop65836635_ - (lambda (_hd65816639_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pre65876642_) - (if (gx#stx-pair? _hd65816639_) - (let ((_e65846645_ (gx#syntax-e _hd65816639_))) - (let ((_lp-hd65856649_ + (if (gx#stx-null? _tl66636713_) + (letrec ((_loop66646716_ + (lambda (_hd66626720_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _pre66686723_) + (if (gx#stx-pair? _hd66626720_) + (let ((_e66656726_ (gx#syntax-e _hd66626720_))) + (let ((_lp-hd66666730_ (let () (declare (not safe)) - (##car _e65846645_))) - (_lp-tl65866652_ + (##car _e66656726_))) + (_lp-tl66676733_ (let () (declare (not safe)) - (##cdr _e65846645_)))) - (_loop65836635_ - _lp-tl65866652_ - (cons _lp-hd65856649_ _pre65876642_)))) - (let ((_pre65886655_ (reverse _pre65876642_))) - (if (gx#stx-pair? _tl65776626_) - (let ((_e65916659_ - (gx#syntax-e _tl65776626_))) - (let ((_hd65906663_ + (##cdr _e66656726_)))) + (_loop66646716_ + _lp-tl66676733_ + (cons _lp-hd66666730_ _pre66686723_)))) + (let ((_pre66696736_ (reverse _pre66686723_))) + (if (gx#stx-pair? _tl66586707_) + (let ((_e66726740_ + (gx#syntax-e _tl66586707_))) + (let ((_hd66716744_ (let () (declare (not safe)) - (##car _e65916659_))) - (_tl65896666_ + (##car _e66726740_))) + (_tl66706747_ (let () (declare (not safe)) - (##cdr _e65916659_)))) - (if (gx#stx-pair/null? _hd65906663_) - (let ((_g42736_ + (##cdr _e66726740_)))) + (if (gx#stx-pair/null? _hd66716744_) + (let ((_g42626_ (gx#syntax-split-splice - _hd65906663_ + _hd66716744_ '0))) (begin - (let ((_g42737_ + (let ((_g42627_ (let () (declare (not safe)) - (if (##values? _g42736_) + (if (##values? _g42626_) (##vector-length - _g42736_) + _g42626_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42737_ 2))) + (##fx= _g42627_ 2))) (error "Context expects 2 values" - _g42737_))) - (let ((_target65926669_ + _g42627_))) + (let ((_target66736750_ (let () (declare (not safe)) (##vector-ref - _g42736_ + _g42626_ 0))) - (_tl65946672_ + (_tl66756753_ (let () (declare (not safe)) (##vector-ref - _g42736_ + _g42626_ 1)))) - (if (gx#stx-null? _tl65946672_) - (letrec ((_loop65956675_ - (lambda (_hd65936679_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _opt65996682_) - (if (gx#stx-pair? _hd65936679_) - (let ((_e65966685_ (gx#syntax-e _hd65936679_))) - (let ((_lp-hd65976689_ + (if (gx#stx-null? _tl66756753_) + (letrec ((_loop66766756_ + (lambda (_hd66746760_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _opt66806763_) + (if (gx#stx-pair? _hd66746760_) + (let ((_e66776766_ (gx#syntax-e _hd66746760_))) + (let ((_lp-hd66786770_ (let () (declare (not safe)) - (##car _e65966685_))) - (_lp-tl65986692_ + (##car _e66776766_))) + (_lp-tl66796773_ (let () (declare (not safe)) - (##cdr _e65966685_)))) - (_loop65956675_ - _lp-tl65986692_ - (cons _lp-hd65976689_ _opt65996682_)))) - (let ((_opt66006695_ (reverse _opt65996682_))) - (if (gx#stx-pair? _tl65896666_) - (let ((_e66036699_ - (gx#syntax-e _tl65896666_))) - (let ((_hd66026703_ + (##cdr _e66776766_)))) + (_loop66766756_ + _lp-tl66796773_ + (cons _lp-hd66786770_ _opt66806763_)))) + (let ((_opt66816776_ (reverse _opt66806763_))) + (if (gx#stx-pair? _tl66706747_) + (let ((_e66846780_ + (gx#syntax-e _tl66706747_))) + (let ((_hd66836784_ (let () (declare (not safe)) - (##car _e66036699_))) - (_tl66016706_ + (##car _e66846780_))) + (_tl66826787_ (let () (declare (not safe)) - (##cdr _e66036699_)))) - (if (gx#stx-pair? _tl66016706_) - (let ((_e66066709_ - (gx#syntax-e _tl66016706_))) - (let ((_hd66056713_ + (##cdr _e66846780_)))) + (if (gx#stx-pair? _tl66826787_) + (let ((_e66876790_ + (gx#syntax-e _tl66826787_))) + (let ((_hd66866794_ (let () (declare (not safe)) - (##car _e66066709_))) - (_tl66046716_ + (##car _e66876790_))) + (_tl66856797_ (let () (declare (not safe)) - (##cdr _e66066709_)))) - (if (gx#stx-null? _tl66046716_) - ((lambda (_L6719_ - _L6721_ - _L6722_ - _L6723_) + (##cdr _e66876790_)))) + (if (gx#stx-null? _tl66856797_) + ((lambda (_L6800_ + _L6802_ + _L6803_ + _L6804_) (let () (cons (gx#datum->syntax '#f 'lambda%) - (cons (foldr (lambda (_g67526757_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g67536760_) - (cons _g67526757_ _g67536760_)) - (foldr (lambda (_g67546763_ _g67556766_) - (cons _g67546763_ _g67556766_)) - _L6721_ - _L6722_) - _L6723_) - _L6719_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd66056713_ - _hd66026703_ - _opt66006695_ - _pre65886655_) - (_g65716612_ _g65726616_)))) - (_g65716612_ _g65726616_)))) - (_g65716612_ _g65726616_))))))) - (_loop65956675_ _target65926669_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g65716612_ - _g65726616_))))) - (_g65716612_ _g65726616_)))) - (_g65716612_ _g65726616_))))))) - (_loop65836635_ _target65806629_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g65716612_ - _g65726616_))))) - (_g65716612_ _g65726616_)))) - (_g65716612_ _g65726616_))))) - (_g65706769_ - (list _pre6565_ - (map car _opt6567_) - _tail6568_ - _body6569_))))) - (_generate-opt-dispatch4586_ - (lambda (_primary6559_ _pre6561_ _opt6562_ _tail6563_) - (cons (list _pre6561_ - (_generate-opt-clause4588_ - _primary6559_ - _pre6561_ - _opt6562_)) - (_generate-opt-dispatch*4587_ - _primary6559_ - _pre6561_ - _opt6562_ - _tail6563_)))) - (_generate-opt-dispatch*4587_ - (lambda (_primary6116_ _pre6118_ _opt6119_ _tail6120_) - (let _recur6122_ ((_opt-rest6125_ _opt6119_) - (_right6127_ '())) - (if (pair? _opt-rest6125_) - (let* ((_hd6129_ (caar _opt-rest6125_)) - (_rest6132_ (cdr _opt-rest6125_)) - (_right*6135_ (cons _hd6129_ _right6127_)) - (_g61386155_ - (lambda (_g61396151_) + (cons (foldr (lambda (_g68336838_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g68346841_) + (cons _g68336838_ _g68346841_)) + (foldr (lambda (_g68356844_ _g68366847_) + (cons _g68356844_ _g68366847_)) + _L6802_ + _L6803_) + _L6804_) + _L6800_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd66866794_ + _hd66836784_ + _opt66816776_ + _pre66696736_) + (_g66526693_ _g66536697_)))) + (_g66526693_ _g66536697_)))) + (_g66526693_ _g66536697_))))))) + (_loop66766756_ _target66736750_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g66526693_ + _g66536697_))))) + (_g66526693_ _g66536697_)))) + (_g66526693_ _g66536697_))))))) + (_loop66646716_ _target66616710_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g66526693_ + _g66536697_))))) + (_g66526693_ _g66536697_)))) + (_g66526693_ _g66536697_))))) + (_g66516850_ + (list _pre6646_ + (map car _opt6648_) + _tail6649_ + _body6650_))))) + (_generate-opt-dispatch4667_ + (lambda (_primary6640_ _pre6642_ _opt6643_ _tail6644_) + (cons (list _pre6642_ + (_generate-opt-clause4669_ + _primary6640_ + _pre6642_ + _opt6643_)) + (_generate-opt-dispatch*4668_ + _primary6640_ + _pre6642_ + _opt6643_ + _tail6644_)))) + (_generate-opt-dispatch*4668_ + (lambda (_primary6197_ _pre6199_ _opt6200_ _tail6201_) + (let _recur6203_ ((_opt-rest6206_ _opt6200_) + (_right6208_ '())) + (if (pair? _opt-rest6206_) + (let* ((_hd6210_ (caar _opt-rest6206_)) + (_rest6213_ (cdr _opt-rest6206_)) + (_right*6216_ (cons _hd6210_ _right6208_)) + (_g62196236_ + (lambda (_g62206232_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g61396151_))) - (_g61376338_ - (lambda (_g61396159_) - (if (gx#stx-pair/null? _g61396159_) - (let ((_g42742_ + _g62206232_))) + (_g62186419_ + (lambda (_g62206240_) + (if (gx#stx-pair/null? _g62206240_) + (let ((_g42632_ (gx#syntax-split-splice - _g61396159_ + _g62206240_ '0))) (begin - (let ((_g42743_ + (let ((_g42633_ (let () (declare (not safe)) - (if (##values? _g42742_) + (if (##values? _g42632_) (##vector-length - _g42742_) + _g42632_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42743_ 2))) + (##fx= _g42633_ 2))) (error "Context expects 2 values" - _g42743_))) - (let ((_target61416162_ + _g42633_))) + (let ((_target62226243_ (let () (declare (not safe)) (##vector-ref - _g42742_ + _g42632_ 0))) - (_tl61436165_ + (_tl62246246_ (let () (declare (not safe)) (##vector-ref - _g42742_ + _g42632_ 1)))) - (if (gx#stx-null? _tl61436165_) - (letrec ((_loop61446168_ - (lambda (_hd61426172_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pre-bind61486175_) - (if (gx#stx-pair? _hd61426172_) - (let ((_e61456178_ (gx#syntax-e _hd61426172_))) - (let ((_lp-hd61466182_ + (if (gx#stx-null? _tl62246246_) + (letrec ((_loop62256249_ + (lambda (_hd62236253_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _pre-bind62296256_) + (if (gx#stx-pair? _hd62236253_) + (let ((_e62266259_ (gx#syntax-e _hd62236253_))) + (let ((_lp-hd62276263_ (let () (declare (not safe)) - (##car _e61456178_))) - (_lp-tl61476185_ + (##car _e62266259_))) + (_lp-tl62286266_ (let () (declare (not safe)) - (##cdr _e61456178_)))) - (_loop61446168_ - _lp-tl61476185_ - (cons _lp-hd61466182_ _pre-bind61486175_)))) - (let ((_pre-bind61496188_ - (reverse _pre-bind61486175_))) - ((lambda (_L6192_) + (##cdr _e62266259_)))) + (_loop62256249_ + _lp-tl62286266_ + (cons _lp-hd62276263_ _pre-bind62296256_)))) + (let ((_pre-bind62306269_ + (reverse _pre-bind62296256_))) + ((lambda (_L6273_) (let () - (let* ((_g62136230_ - (lambda (_g62146226_) + (let* ((_g62946311_ + (lambda (_g62956307_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g62146226_))) - (_g62126334_ - (lambda (_g62146234_) - (if (gx#stx-pair/null? _g62146234_) - (let ((_g42744_ + _g62956307_))) + (_g62936415_ + (lambda (_g62956315_) + (if (gx#stx-pair/null? _g62956315_) + (let ((_g42634_ (gx#syntax-split-splice - _g62146234_ + _g62956315_ '0))) (begin - (let ((_g42745_ + (let ((_g42635_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42744_) - (##vector-length _g42744_) + _g42634_) + (##vector-length _g42634_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42745_ 2))) - (error "Context expects 2 values" _g42745_))) + (##fx= _g42635_ 2))) + (error "Context expects 2 values" _g42635_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target62166237_ + (let ((_target62976318_ (let () (declare (not safe)) (##vector-ref - _g42744_ + _g42634_ 0))) - (_tl62186240_ + (_tl62996321_ (let () (declare (not safe)) (##vector-ref - _g42744_ + _g42634_ 1)))) (if (gx#stx-null? - _tl62186240_) - (letrec ((_loop62196243_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd62176247_ _opt-bind62236250_) - (if (gx#stx-pair? _hd62176247_) - (let ((_e62206253_ - (gx#syntax-e _hd62176247_))) - (let ((_lp-hd62216257_ + _tl62996321_) + (letrec ((_loop63006324_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd62986328_ _opt-bind63046331_) + (if (gx#stx-pair? _hd62986328_) + (let ((_e63016334_ + (gx#syntax-e _hd62986328_))) + (let ((_lp-hd63026338_ (let () (declare (not safe)) - (##car _e62206253_))) - (_lp-tl62226260_ + (##car _e63016334_))) + (_lp-tl63036341_ (let () (declare (not safe)) - (##cdr _e62206253_)))) - (_loop62196243_ - _lp-tl62226260_ - (cons _lp-hd62216257_ - _opt-bind62236250_)))) - (let ((_opt-bind62246263_ - (reverse _opt-bind62236250_))) - ((lambda (_L6267_) + (##cdr _e63016334_)))) + (_loop63006324_ + _lp-tl63036341_ + (cons _lp-hd63026338_ + _opt-bind63046331_)))) + (let ((_opt-bind63056344_ + (reverse _opt-bind63046331_))) + ((lambda (_L6348_) (let () - (let* ((_g62846292_ - (lambda (_g62856288_) + (let* ((_g63656373_ + (lambda (_g63666369_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g62856288_))) - (_g62836330_ - (lambda (_g62856296_) - ((lambda (_L6299_) + _g63666369_))) + (_g63646411_ + (lambda (_g63666377_) + ((lambda (_L6380_) (let () (let () - (cons (list (foldr (lambda (_g63136318_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g63146321_) - (cons _g63136318_ _g63146321_)) - (foldr (lambda (_g63156324_ _g63166327_) - (cons _g63156324_ _g63166327_)) - (cons _L6299_ '()) - _L6267_) - _L6192_) - (_generate-opt-clause4588_ - _primary6116_ - (foldr cons (reverse _right*6135_) _pre6118_) - _rest6132_)) - (_recur6122_ _rest6132_ _right*6135_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g62856296_)))) - (_g62836330_ _hd6129_)))) - _opt-bind62246263_)))))) - (_loop62196243_ _target62166237_ '())) - (_g62136230_ _g62146234_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g62136230_ _g62146234_))))) - (_g62126334_ (reverse _right6127_))))) - _pre-bind61496188_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop61446168_ - _target61416162_ + (cons (list (foldr (lambda (_g63946399_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g63956402_) + (cons _g63946399_ _g63956402_)) + (foldr (lambda (_g63966405_ _g63976408_) + (cons _g63966405_ _g63976408_)) + (cons _L6380_ '()) + _L6348_) + _L6273_) + (_generate-opt-clause4669_ + _primary6197_ + (foldr cons (reverse _right*6216_) _pre6199_) + _rest6213_)) + (_recur6203_ _rest6213_ _right*6216_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g63666377_)))) + (_g63646411_ _hd6210_)))) + _opt-bind63056344_)))))) + (_loop63006324_ _target62976318_ '())) + (_g62946311_ _g62956315_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g62946311_ _g62956315_))))) + (_g62936415_ (reverse _right6208_))))) + _pre-bind62306269_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop62256249_ + _target62226243_ '())) - (_g61386155_ _g61396159_))))) - (_g61386155_ _g61396159_))))) - (_g61376338_ _pre6118_)) - (if (gx#stx-null? _tail6120_) + (_g62196236_ _g62206240_))))) + (_g62196236_ _g62206240_))))) + (_g62186419_ _pre6199_)) + (if (gx#stx-null? _tail6201_) '() - (let* ((_g63426383_ - (lambda (_g63436379_) + (let* ((_g64236464_ + (lambda (_g64246460_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g63436379_))) - (_g63416555_ - (lambda (_g63436387_) - (if (gx#stx-pair? _g63436387_) - (let ((_e63506390_ - (gx#syntax-e _g63436387_))) - (let ((_hd63496394_ + _g64246460_))) + (_g64226636_ + (lambda (_g64246468_) + (if (gx#stx-pair? _g64246468_) + (let ((_e64316471_ + (gx#syntax-e _g64246468_))) + (let ((_hd64306475_ (let () (declare (not safe)) - (##car _e63506390_))) - (_tl63486397_ + (##car _e64316471_))) + (_tl64296478_ (let () (declare (not safe)) - (##cdr _e63506390_)))) + (##cdr _e64316471_)))) (if (gx#stx-pair/null? - _hd63496394_) - (let ((_g42738_ + _hd64306475_) + (let ((_g42628_ (gx#syntax-split-splice - _hd63496394_ + _hd64306475_ '0))) (begin - (let ((_g42739_ + (let ((_g42629_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g42738_) - (##vector-length _g42738_) + (if (##values? _g42628_) + (##vector-length _g42628_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42739_ 2))) - (error "Context expects 2 values" _g42739_))) - (let ((_target63516400_ - (let () (declare (not safe)) (##vector-ref _g42738_ 0))) - (_tl63536403_ + (if (not (let () (declare (not safe)) (##fx= _g42629_ 2))) + (error "Context expects 2 values" _g42629_))) + (let ((_target64326481_ + (let () (declare (not safe)) (##vector-ref _g42628_ 0))) + (_tl64346484_ (let () (declare (not safe)) - (##vector-ref _g42738_ 1)))) - (if (gx#stx-null? _tl63536403_) - (letrec ((_loop63546406_ - (lambda (_hd63526410_ _pre63586413_) - (if (gx#stx-pair? _hd63526410_) - (let ((_e63556416_ - (gx#syntax-e _hd63526410_))) - (let ((_lp-hd63566420_ + (##vector-ref _g42628_ 1)))) + (if (gx#stx-null? _tl64346484_) + (letrec ((_loop64356487_ + (lambda (_hd64336491_ _pre64396494_) + (if (gx#stx-pair? _hd64336491_) + (let ((_e64366497_ + (gx#syntax-e _hd64336491_))) + (let ((_lp-hd64376501_ (let () (declare (not safe)) - (##car _e63556416_))) - (_lp-tl63576423_ + (##car _e64366497_))) + (_lp-tl64386504_ (let () (declare (not safe)) - (##cdr _e63556416_)))) - (_loop63546406_ - _lp-tl63576423_ - (cons _lp-hd63566420_ - _pre63586413_)))) - (let ((_pre63596426_ - (reverse _pre63586413_))) - (if (gx#stx-pair? _tl63486397_) - (let ((_e63626430_ - (gx#syntax-e _tl63486397_))) - (let ((_hd63616434_ + (##cdr _e64366497_)))) + (_loop64356487_ + _lp-tl64386504_ + (cons _lp-hd64376501_ + _pre64396494_)))) + (let ((_pre64406507_ + (reverse _pre64396494_))) + (if (gx#stx-pair? _tl64296478_) + (let ((_e64436511_ + (gx#syntax-e _tl64296478_))) + (let ((_hd64426515_ (let () (declare (not safe)) - (##car _e63626430_))) - (_tl63606437_ + (##car _e64436511_))) + (_tl64416518_ (let () (declare (not safe)) - (##cdr _e63626430_)))) + (##cdr _e64436511_)))) (if (gx#stx-pair/null? - _hd63616434_) - (let ((_g42740_ + _hd64426515_) + (let ((_g42630_ (gx#syntax-split-splice - _hd63616434_ + _hd64426515_ '0))) (begin - (let ((_g42741_ + (let ((_g42631_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g42740_) - (##vector-length _g42740_) + (if (##values? _g42630_) + (##vector-length _g42630_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42741_ 2))) - (error "Context expects 2 values" _g42741_))) - (let ((_target63636440_ - (let () (declare (not safe)) (##vector-ref _g42740_ 0))) - (_tl63656443_ + (if (not (let () (declare (not safe)) (##fx= _g42631_ 2))) + (error "Context expects 2 values" _g42631_))) + (let ((_target64446521_ + (let () (declare (not safe)) (##vector-ref _g42630_ 0))) + (_tl64466524_ (let () (declare (not safe)) - (##vector-ref _g42740_ 1)))) - (if (gx#stx-null? _tl63656443_) - (letrec ((_loop63666446_ - (lambda (_hd63646450_ _opt63706453_) - (if (gx#stx-pair? _hd63646450_) - (let ((_e63676456_ - (gx#syntax-e _hd63646450_))) - (let ((_lp-hd63686460_ + (##vector-ref _g42630_ 1)))) + (if (gx#stx-null? _tl64466524_) + (letrec ((_loop64476527_ + (lambda (_hd64456531_ _opt64516534_) + (if (gx#stx-pair? _hd64456531_) + (let ((_e64486537_ + (gx#syntax-e _hd64456531_))) + (let ((_lp-hd64496541_ (let () (declare (not safe)) - (##car _e63676456_))) - (_lp-tl63696463_ + (##car _e64486537_))) + (_lp-tl64506544_ (let () (declare (not safe)) - (##cdr _e63676456_)))) - (_loop63666446_ - _lp-tl63696463_ - (cons _lp-hd63686460_ - _opt63706453_)))) - (let ((_opt63716466_ - (reverse _opt63706453_))) - (if (gx#stx-pair? _tl63606437_) - (let ((_e63746470_ - (gx#syntax-e _tl63606437_))) - (let ((_hd63736474_ + (##cdr _e64486537_)))) + (_loop64476527_ + _lp-tl64506544_ + (cons _lp-hd64496541_ + _opt64516534_)))) + (let ((_opt64526547_ + (reverse _opt64516534_))) + (if (gx#stx-pair? _tl64416518_) + (let ((_e64556551_ + (gx#syntax-e _tl64416518_))) + (let ((_hd64546555_ (let () (declare (not safe)) - (##car _e63746470_))) - (_tl63726477_ + (##car _e64556551_))) + (_tl64536558_ (let () (declare (not safe)) - (##cdr _e63746470_)))) - (if (gx#stx-pair? _tl63726477_) - (let ((_e63776480_ + (##cdr _e64556551_)))) + (if (gx#stx-pair? _tl64536558_) + (let ((_e64586561_ (gx#syntax-e - _tl63726477_))) - (let ((_hd63766484_ + _tl64536558_))) + (let ((_hd64576565_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e63776480_))) - (_tl63756487_ - (let () (declare (not safe)) (##cdr _e63776480_)))) - (if (gx#stx-null? _tl63756487_) - ((lambda (_L6490_ _L6492_ _L6493_ _L6494_) + (##car _e64586561_))) + (_tl64566568_ + (let () (declare (not safe)) (##cdr _e64586561_)))) + (if (gx#stx-null? _tl64566568_) + ((lambda (_L6571_ _L6573_ _L6574_ _L6575_) (let () - (list (list (foldr (lambda (_g65226527_ _g65236530_) - (cons _g65226527_ _g65236530_)) - (foldr (lambda (_g65246533_ - _g65256536_) - (cons _g65246533_ - _g65256536_)) - _L6492_ - _L6493_) - _L6494_) + (list (list (foldr (lambda (_g66036608_ _g66046611_) + (cons _g66036608_ _g66046611_)) + (foldr (lambda (_g66056614_ + _g66066617_) + (cons _g66056614_ + _g66066617_)) + _L6573_ + _L6574_) + _L6575_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'apply) - (cons _L6490_ - (foldr (lambda (_g65386543_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g65396546_) - (cons _g65386543_ _g65396546_)) - (foldr (lambda (_g65406549_ _g65416552_) - (cons _g65406549_ _g65416552_)) - (cons _L6492_ '()) - _L6493_) - _L6494_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx4574_)))))) - _hd63766484_ - _hd63736474_ - _opt63716466_ - _pre63596426_) - (_g63426383_ _g63436387_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g63426383_ - _g63436387_)))) - (_g63426383_ _g63436387_))))))) - (_loop63666446_ _target63636440_ '())) - (_g63426383_ _g63436387_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g63426383_ - _g63436387_)))) - (_g63426383_ _g63436387_))))))) - (_loop63546406_ _target63516400_ '())) - (_g63426383_ _g63436387_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g63426383_ - _g63436387_)))) - (_g63426383_ _g63436387_))))) - (_g63416555_ - (list _pre6118_ - (reverse _right6127_) - _tail6120_ - _primary6116_)))))))) - (_generate-opt-clause4588_ - (lambda (_primary5814_ _pre5816_ _opt5817_) - (let _recur5819_ ((_opt-rest5822_ _opt5817_) - (_right5824_ '())) - (if (pair? _opt-rest5822_) - (let* ((_hd5826_ (car _opt-rest5822_)) - (_rest5829_ (cdr _opt-rest5822_)) - (_g58325840_ - (lambda (_g58335836_) + (cons _L6571_ + (foldr (lambda (_g66196624_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g66206627_) + (cons _g66196624_ _g66206627_)) + (foldr (lambda (_g66216630_ _g66226633_) + (cons _g66216630_ _g66226633_)) + (cons _L6573_ '()) + _L6574_) + _L6575_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source _stx4655_)))))) + _hd64576565_ + _hd64546555_ + _opt64526547_ + _pre64406507_) + (_g64236464_ _g64246468_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g64236464_ + _g64246468_)))) + (_g64236464_ _g64246468_))))))) + (_loop64476527_ _target64446521_ '())) + (_g64236464_ _g64246468_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g64236464_ + _g64246468_)))) + (_g64236464_ _g64246468_))))))) + (_loop64356487_ _target64326481_ '())) + (_g64236464_ _g64246468_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g64236464_ + _g64246468_)))) + (_g64236464_ _g64246468_))))) + (_g64226636_ + (list _pre6199_ + (reverse _right6208_) + _tail6201_ + _primary6197_)))))))) + (_generate-opt-clause4669_ + (lambda (_primary5895_ _pre5897_ _opt5898_) + (let _recur5900_ ((_opt-rest5903_ _opt5898_) + (_right5905_ '())) + (if (pair? _opt-rest5903_) + (let* ((_hd5907_ (car _opt-rest5903_)) + (_rest5910_ (cdr _opt-rest5903_)) + (_g59135921_ + (lambda (_g59145917_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g58335836_))) - (_g58315929_ - (lambda (_g58335844_) - ((lambda (_L5847_) + _g59145917_))) + (_g59126010_ + (lambda (_g59145925_) + ((lambda (_L5928_) (let () - (let* ((_g58635871_ - (lambda (_g58645867_) + (let* ((_g59445952_ + (lambda (_g59455948_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g58645867_))) - (_g58625925_ - (lambda (_g58645875_) - ((lambda (_L5878_) + _g59455948_))) + (_g59436006_ + (lambda (_g59455956_) + ((lambda (_L5959_) (let () - (let* ((_g58915899_ - (lambda (_g58925895_) + (let* ((_g59725980_ + (lambda (_g59735976_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g58925895_))) - (_g58905921_ - (lambda (_g58925903_) - ((lambda (_L5906_) + _g59735976_))) + (_g59716002_ + (lambda (_g59735984_) + ((lambda (_L5987_) (let () (let () (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _L5847_ '()) - (cons _L5878_ '())) + (cons (cons (cons (cons _L5928_ '()) + (cons _L5959_ '())) '()) - (cons _L5906_ '())))))) - _g58925903_)))) - (_g58905921_ - (_recur5819_ _rest5829_ (cons _L5847_ _right5824_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g58645875_)))) - (_g58625925_ (cdr _hd5826_))))) - _g58335844_)))) - (_g58315929_ (car _hd5826_))) - (let* ((_g59335970_ - (lambda (_g59345966_) + (cons _L5987_ '())))))) + _g59735984_)))) + (_g59716002_ + (_recur5900_ _rest5910_ (cons _L5928_ _right5905_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g59455956_)))) + (_g59436006_ (cdr _hd5907_))))) + _g59145925_)))) + (_g59126010_ (car _hd5907_))) + (let* ((_g60146051_ + (lambda (_g60156047_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g59345966_))) - (_g59326112_ - (lambda (_g59345974_) - (if (gx#stx-pair? _g59345974_) - (let ((_e59405977_ - (gx#syntax-e _g59345974_))) - (let ((_hd59395981_ + _g60156047_))) + (_g60136193_ + (lambda (_g60156055_) + (if (gx#stx-pair? _g60156055_) + (let ((_e60216058_ + (gx#syntax-e _g60156055_))) + (let ((_hd60206062_ (let () (declare (not safe)) - (##car _e59405977_))) - (_tl59385984_ + (##car _e60216058_))) + (_tl60196065_ (let () (declare (not safe)) - (##cdr _e59405977_)))) + (##cdr _e60216058_)))) (if (gx#stx-pair/null? - _hd59395981_) - (let ((_g42746_ + _hd60206062_) + (let ((_g42636_ (gx#syntax-split-splice - _hd59395981_ + _hd60206062_ '0))) (begin - (let ((_g42747_ + (let ((_g42637_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42746_) - (##vector-length _g42746_) + _g42636_) + (##vector-length _g42636_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42747_ 2))) - (error "Context expects 2 values" _g42747_))) + (if (not (let () (declare (not safe)) (##fx= _g42637_ 2))) + (error "Context expects 2 values" _g42637_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target59415987_ + (let ((_target60226068_ (let () (declare (not safe)) (##vector-ref - _g42746_ + _g42636_ 0))) - (_tl59435990_ + (_tl60246071_ (let () (declare (not safe)) (##vector-ref - _g42746_ + _g42636_ 1)))) (if (gx#stx-null? - _tl59435990_) - (letrec ((_loop59445993_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd59425997_ _pre59486000_) - (if (gx#stx-pair? _hd59425997_) - (let ((_e59456003_ - (gx#syntax-e _hd59425997_))) - (let ((_lp-hd59466007_ + _tl60246071_) + (letrec ((_loop60256074_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd60236078_ _pre60296081_) + (if (gx#stx-pair? _hd60236078_) + (let ((_e60266084_ + (gx#syntax-e _hd60236078_))) + (let ((_lp-hd60276088_ (let () (declare (not safe)) - (##car _e59456003_))) - (_lp-tl59476010_ + (##car _e60266084_))) + (_lp-tl60286091_ (let () (declare (not safe)) - (##cdr _e59456003_)))) - (_loop59445993_ - _lp-tl59476010_ - (cons _lp-hd59466007_ _pre59486000_)))) - (let ((_pre59496013_ - (reverse _pre59486000_))) - (if (gx#stx-pair? _tl59385984_) - (let ((_e59526017_ - (gx#syntax-e _tl59385984_))) - (let ((_hd59516021_ + (##cdr _e60266084_)))) + (_loop60256074_ + _lp-tl60286091_ + (cons _lp-hd60276088_ _pre60296081_)))) + (let ((_pre60306094_ + (reverse _pre60296081_))) + (if (gx#stx-pair? _tl60196065_) + (let ((_e60336098_ + (gx#syntax-e _tl60196065_))) + (let ((_hd60326102_ (let () (declare (not safe)) - (##car _e59526017_))) - (_tl59506024_ + (##car _e60336098_))) + (_tl60316105_ (let () (declare (not safe)) - (##cdr _e59526017_)))) + (##cdr _e60336098_)))) (if (gx#stx-pair/null? - _hd59516021_) - (let ((_g42748_ + _hd60326102_) + (let ((_g42638_ (gx#syntax-split-splice - _hd59516021_ + _hd60326102_ '0))) (begin - (let ((_g42749_ + (let ((_g42639_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42748_) - (##vector-length _g42748_) + _g42638_) + (##vector-length _g42638_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42749_ 2))) - (error "Context expects 2 values" _g42749_))) + (if (not (let () (declare (not safe)) (##fx= _g42639_ 2))) + (error "Context expects 2 values" _g42639_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target59536027_ + (let ((_target60346108_ (let () (declare (not safe)) (##vector-ref - _g42748_ + _g42638_ 0))) - (_tl59556030_ + (_tl60366111_ (let () (declare (not safe)) (##vector-ref - _g42748_ + _g42638_ 1)))) (if (gx#stx-null? - _tl59556030_) - (letrec ((_loop59566033_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd59546037_ _opt59606040_) - (if (gx#stx-pair? _hd59546037_) - (let ((_e59576043_ - (gx#syntax-e _hd59546037_))) - (let ((_lp-hd59586047_ + _tl60366111_) + (letrec ((_loop60376114_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd60356118_ _opt60416121_) + (if (gx#stx-pair? _hd60356118_) + (let ((_e60386124_ + (gx#syntax-e _hd60356118_))) + (let ((_lp-hd60396128_ (let () (declare (not safe)) - (##car _e59576043_))) - (_lp-tl59596050_ + (##car _e60386124_))) + (_lp-tl60406131_ (let () (declare (not safe)) - (##cdr _e59576043_)))) - (_loop59566033_ - _lp-tl59596050_ - (cons _lp-hd59586047_ _opt59606040_)))) - (let ((_opt59616053_ - (reverse _opt59606040_))) - (if (gx#stx-pair? _tl59506024_) - (let ((_e59646057_ - (gx#syntax-e _tl59506024_))) - (let ((_hd59636061_ + (##cdr _e60386124_)))) + (_loop60376114_ + _lp-tl60406131_ + (cons _lp-hd60396128_ _opt60416121_)))) + (let ((_opt60426134_ + (reverse _opt60416121_))) + (if (gx#stx-pair? _tl60316105_) + (let ((_e60456138_ + (gx#syntax-e _tl60316105_))) + (let ((_hd60446142_ (let () (declare (not safe)) - (##car _e59646057_))) - (_tl59626064_ + (##car _e60456138_))) + (_tl60436145_ (let () (declare (not safe)) - (##cdr _e59646057_)))) - (if (gx#stx-null? _tl59626064_) - ((lambda (_L6067_ - _L6069_ - _L6070_) + (##cdr _e60456138_)))) + (if (gx#stx-null? _tl60436145_) + ((lambda (_L6148_ + _L6150_ + _L6151_) (let () (gx#stx-wrap-source - (cons _L6067_ - (foldr (lambda (_g60956100_ + (cons _L6148_ + (foldr (lambda (_g61766181_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g60966103_) - (cons _g60956100_ _g60966103_)) - (foldr (lambda (_g60976106_ _g60986109_) - (cons _g60976106_ _g60986109_)) + _g61776184_) + (cons _g61766181_ _g61776184_)) + (foldr (lambda (_g61786187_ _g61796190_) + (cons _g61786187_ _g61796190_)) '() - _L6069_) - _L6070_)) - (gx#stx-source _stx4574_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd59636061_ - _opt59616053_ - _pre59496013_) - (_g59335970_ _g59345974_)))) - (_g59335970_ _g59345974_))))))) - (_loop59566033_ _target59536027_ '())) - (_g59335970_ _g59345974_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g59335970_ _g59345974_)))) - (_g59335970_ _g59345974_))))))) - (_loop59445993_ _target59415987_ '())) - (_g59335970_ _g59345974_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g59335970_ _g59345974_)))) - (_g59335970_ _g59345974_))))) - (_g59326112_ - (list _pre5816_ - (reverse _right5824_) - _primary5814_))))))) - (_generate-kw-primary4589_ - (lambda (_key5190_ _kwargs5192_ _args5193_ _body5194_) - (letrec ((_make-body5196_ - (lambda (_kwargs5683_ _kwvals5685_) - (if (pair? _kwargs5683_) - (let* ((_kwarg5687_ (car _kwargs5683_)) - (_var5690_ (cadr _kwarg5687_)) - (_default5693_ (caddr _kwarg5687_)) - (_kwval5696_ (car _kwvals5685_)) - (_rest-kwargs5699_ - (cdr _kwargs5683_)) - (_rest-kwvals5702_ - (cdr _kwvals5685_))) - (let* ((_g57075730_ - (lambda (_g57085726_) + _L6150_) + _L6151_)) + (gx#stx-source _stx4655_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd60446142_ + _opt60426134_ + _pre60306094_) + (_g60146051_ _g60156055_)))) + (_g60146051_ _g60156055_))))))) + (_loop60376114_ _target60346108_ '())) + (_g60146051_ _g60156055_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g60146051_ _g60156055_)))) + (_g60146051_ _g60156055_))))))) + (_loop60256074_ _target60226068_ '())) + (_g60146051_ _g60156055_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g60146051_ _g60156055_)))) + (_g60146051_ _g60156055_))))) + (_g60136193_ + (list _pre5897_ + (reverse _right5905_) + _primary5895_))))))) + (_generate-kw-primary4670_ + (lambda (_key5271_ _kwargs5273_ _args5274_ _body5275_) + (letrec ((_make-body5277_ + (lambda (_kwargs5764_ _kwvals5766_) + (if (pair? _kwargs5764_) + (let* ((_kwarg5768_ (car _kwargs5764_)) + (_var5771_ (cadr _kwarg5768_)) + (_default5774_ (caddr _kwarg5768_)) + (_kwval5777_ (car _kwvals5766_)) + (_rest-kwargs5780_ + (cdr _kwargs5764_)) + (_rest-kwvals5783_ + (cdr _kwvals5766_))) + (let* ((_g57885811_ + (lambda (_g57895807_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g57085726_))) - (_g57065810_ - (lambda (_g57085734_) - (if (gx#stx-pair? _g57085734_) - (let ((_e57155737_ + _g57895807_))) + (_g57875891_ + (lambda (_g57895815_) + (if (gx#stx-pair? _g57895815_) + (let ((_e57965818_ (gx#syntax-e - _g57085734_))) - (let ((_hd57145741_ + _g57895815_))) + (let ((_hd57955822_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e57155737_))) - (_tl57135744_ - (let () (declare (not safe)) (##cdr _e57155737_)))) - (if (gx#stx-pair? _tl57135744_) - (let ((_e57185747_ (gx#syntax-e _tl57135744_))) - (let ((_hd57175751_ - (let () (declare (not safe)) (##car _e57185747_))) - (_tl57165754_ + (##car _e57965818_))) + (_tl57945825_ + (let () (declare (not safe)) (##cdr _e57965818_)))) + (if (gx#stx-pair? _tl57945825_) + (let ((_e57995828_ (gx#syntax-e _tl57945825_))) + (let ((_hd57985832_ + (let () (declare (not safe)) (##car _e57995828_))) + (_tl57975835_ (let () (declare (not safe)) - (##cdr _e57185747_)))) - (if (gx#stx-pair? _tl57165754_) - (let ((_e57215757_ (gx#syntax-e _tl57165754_))) - (let ((_hd57205761_ + (##cdr _e57995828_)))) + (if (gx#stx-pair? _tl57975835_) + (let ((_e58025838_ (gx#syntax-e _tl57975835_))) + (let ((_hd58015842_ (let () (declare (not safe)) - (##car _e57215757_))) - (_tl57195764_ + (##car _e58025838_))) + (_tl58005845_ (let () (declare (not safe)) - (##cdr _e57215757_)))) - (if (gx#stx-pair? _tl57195764_) - (let ((_e57245767_ - (gx#syntax-e _tl57195764_))) - (let ((_hd57235771_ + (##cdr _e58025838_)))) + (if (gx#stx-pair? _tl58005845_) + (let ((_e58055848_ + (gx#syntax-e _tl58005845_))) + (let ((_hd58045852_ (let () (declare (not safe)) - (##car _e57245767_))) - (_tl57225774_ + (##car _e58055848_))) + (_tl58035855_ (let () (declare (not safe)) - (##cdr _e57245767_)))) - (if (gx#stx-null? _tl57225774_) - ((lambda (_L5777_ - _L5779_ - _L5780_ - _L5781_) + (##cdr _e58055848_)))) + (if (gx#stx-null? _tl58035855_) + ((lambda (_L5858_ + _L5860_ + _L5861_ + _L5862_) (let () (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _L5781_ + (cons (cons (cons (cons _L5862_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'eq?) - (cons _L5780_ + (cons _L5861_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'absent-value) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L5779_ - (cons _L5780_ '())))) + (cons _L5860_ + (cons _L5861_ '())))) '())) '()) - (cons _L5777_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd57235771_ - _hd57205761_ - _hd57175751_ - _hd57145741_) - (_g57075730_ _g57085734_)))) - (_g57075730_ _g57085734_)))) - (_g57075730_ _g57085734_)))) - (_g57075730_ _g57085734_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g57075730_ - _g57085734_))))) - (_g57065810_ - (list _var5690_ - _kwval5696_ - _default5693_ - (_make-body5196_ - _rest-kwargs5699_ - _rest-kwvals5702_))))) - (cons 'begin _body5194_)))) - (_make-main5198_ + (cons _L5858_ '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd58045852_ + _hd58015842_ + _hd57985832_ + _hd57955822_) + (_g57885811_ _g57895815_)))) + (_g57885811_ _g57895815_)))) + (_g57885811_ _g57895815_)))) + (_g57885811_ _g57895815_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g57885811_ + _g57895815_))))) + (_g57875891_ + (list _var5771_ + _kwval5777_ + _default5774_ + (_make-body5277_ + _rest-kwargs5780_ + _rest-kwvals5783_))))) + (cons 'begin _body5275_)))) + (_make-main5279_ (lambda () - (let* ((_g54915499_ - (lambda (_g54925495_) + (let* ((_g55725580_ + (lambda (_g55735576_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g54925495_))) - (_g54905675_ - (lambda (_g54925503_) - ((lambda (_L5506_) + _g55735576_))) + (_g55715756_ + (lambda (_g55735584_) + ((lambda (_L5587_) (let () - (let* ((_g55185535_ - (lambda (_g55195531_) + (let* ((_g55995616_ + (lambda (_g56005612_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g55195531_))) - (_g55175671_ - (lambda (_g55195539_) + _g56005612_))) + (_g55985752_ + (lambda (_g56005620_) (if (gx#stx-pair/null? - _g55195539_) - (let ((_g42750_ + _g56005620_) + (let ((_g42640_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _g55195539_ '0))) + (gx#syntax-split-splice _g56005620_ '0))) (begin - (let ((_g42751_ + (let ((_g42641_ (let () (declare (not safe)) - (if (##values? _g42750_) - (##vector-length _g42750_) + (if (##values? _g42640_) + (##vector-length _g42640_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42751_ 2))) - (error "Context expects 2 values" _g42751_))) - (let ((_target55215542_ + (##fx= _g42641_ 2))) + (error "Context expects 2 values" _g42641_))) + (let ((_target56025623_ (let () (declare (not safe)) - (##vector-ref _g42750_ 0))) - (_tl55235545_ + (##vector-ref _g42640_ 0))) + (_tl56045626_ (let () (declare (not safe)) - (##vector-ref _g42750_ 1)))) - (if (gx#stx-null? _tl55235545_) - (letrec ((_loop55245548_ - (lambda (_hd55225552_ _kwval55285555_) - (if (gx#stx-pair? _hd55225552_) - (let ((_e55255558_ + (##vector-ref _g42640_ 1)))) + (if (gx#stx-null? _tl56045626_) + (letrec ((_loop56055629_ + (lambda (_hd56035633_ _kwval56095636_) + (if (gx#stx-pair? _hd56035633_) + (let ((_e56065639_ (gx#syntax-e - _hd55225552_))) - (let ((_lp-hd55265562_ + _hd56035633_))) + (let ((_lp-hd56075643_ (let () (declare (not safe)) - (##car _e55255558_))) - (_lp-tl55275565_ + (##car _e56065639_))) + (_lp-tl56085646_ (let () (declare (not safe)) - (##cdr _e55255558_)))) - (_loop55245548_ - _lp-tl55275565_ - (cons _lp-hd55265562_ - _kwval55285555_)))) - (let ((_kwval55295568_ - (reverse _kwval55285555_))) - ((lambda (_L5572_) + (##cdr _e56065639_)))) + (_loop56055629_ + _lp-tl56085646_ + (cons _lp-hd56075643_ + _kwval56095636_)))) + (let ((_kwval56105649_ + (reverse _kwval56095636_))) + ((lambda (_L5653_) (let () - (let* ((_g55895597_ - (lambda (_g55905593_) + (let* ((_g56705678_ + (lambda (_g56715674_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g55905593_))) - (_g55885667_ - (lambda (_g55905601_) - ((lambda (_L5604_) + _g56715674_))) + (_g56695748_ + (lambda (_g56715682_) + ((lambda (_L5685_) (let () - (let* ((_g56175625_ - (lambda (_g56185621_) + (let* ((_g56985706_ + (lambda (_g56995702_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g56185621_))) - (_g56165655_ - (lambda (_g56185629_) - ((lambda (_L5632_) + _g56995702_))) + (_g56975736_ + (lambda (_g56995710_) + ((lambda (_L5713_) (let () (let () (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _L5506_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_g56465649_ _g56475652_) - (cons _g56465649_ _g56475652_)) - _L5604_ - _L5572_)) - (cons _L5632_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx4574_))))) - _g56185629_)))) - (_g56165655_ - (_make-body5196_ - _kwargs5192_ - (foldr (lambda (_g56585661_ _g56595664_) - (cons _g56585661_ _g56595664_)) + (cons (cons _L5587_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr (lambda (_g57275730_ _g57285733_) + (cons _g57275730_ _g57285733_)) + _L5685_ + _L5653_)) + (cons _L5713_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source _stx4655_))))) + _g56995710_)))) + (_g56975736_ + (_make-body5277_ + _kwargs5273_ + (foldr (lambda (_g57395742_ _g57405745_) + (cons _g57395742_ _g57405745_)) '() - _L5572_)))))) - _g55905601_)))) - (_g55885667_ _args5193_)))) + _L5653_)))))) + _g56715682_)))) + (_g56695748_ _args5274_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwval55295568_)))))) - (_loop55245548_ _target55215542_ '())) - (_g55185535_ _g55195539_))))) - (_g55185535_ _g55195539_))))) + _kwval56105649_)))))) + (_loop56055629_ _target56025623_ '())) + (_g55995616_ _g56005620_))))) + (_g55995616_ _g56005620_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g55175671_ + (_g55985752_ (gx#gentemps - (map cadr _kwargs5192_)))))) - _g54925503_)))) - (_g54905675_ - (let ((_$e5679_ _key5190_)) - (if _$e5679_ _$e5679_ '_)))))) - (_make-dispatch5199_ - (lambda (_main5299_) - (let* ((_g53025310_ - (lambda (_g53035306_) + (map cadr _kwargs5273_)))))) + _g55735584_)))) + (_g55715756_ + (let ((_$e5760_ _key5271_)) + (if _$e5760_ _$e5760_ '_)))))) + (_make-dispatch5280_ + (lambda (_main5380_) + (let* ((_g53835391_ + (lambda (_g53845387_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g53035306_))) - (_g53015481_ - (lambda (_g53035314_) - ((lambda (_L5317_) + _g53845387_))) + (_g53825562_ + (lambda (_g53845395_) + ((lambda (_L5398_) (let () - (let* ((_g53295346_ - (lambda (_g53305342_) + (let* ((_g54105427_ + (lambda (_g54115423_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g53305342_))) - (_g53285442_ - (lambda (_g53305350_) + _g54115423_))) + (_g54095523_ + (lambda (_g54115431_) (if (gx#stx-pair/null? - _g53305350_) - (let ((_g42752_ + _g54115431_) + (let ((_g42642_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _g53305350_ '0))) + (gx#syntax-split-splice _g54115431_ '0))) (begin - (let ((_g42753_ + (let ((_g42643_ (let () (declare (not safe)) - (if (##values? _g42752_) - (##vector-length _g42752_) + (if (##values? _g42642_) + (##vector-length _g42642_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42753_ 2))) - (error "Context expects 2 values" _g42753_))) - (let ((_target53325353_ + (##fx= _g42643_ 2))) + (error "Context expects 2 values" _g42643_))) + (let ((_target54135434_ (let () (declare (not safe)) - (##vector-ref _g42752_ 0))) - (_tl53345356_ + (##vector-ref _g42642_ 0))) + (_tl54155437_ (let () (declare (not safe)) - (##vector-ref _g42752_ 1)))) - (if (gx#stx-null? _tl53345356_) - (letrec ((_loop53355359_ - (lambda (_hd53335363_ - _get-kw53395366_) - (if (gx#stx-pair? _hd53335363_) - (let ((_e53365369_ + (##vector-ref _g42642_ 1)))) + (if (gx#stx-null? _tl54155437_) + (letrec ((_loop54165440_ + (lambda (_hd54145444_ + _get-kw54205447_) + (if (gx#stx-pair? _hd54145444_) + (let ((_e54175450_ (gx#syntax-e - _hd53335363_))) - (let ((_lp-hd53375373_ + _hd54145444_))) + (let ((_lp-hd54185454_ (let () (declare (not safe)) - (##car _e53365369_))) - (_lp-tl53385376_ + (##car _e54175450_))) + (_lp-tl54195457_ (let () (declare (not safe)) - (##cdr _e53365369_)))) - (_loop53355359_ - _lp-tl53385376_ - (cons _lp-hd53375373_ - _get-kw53395366_)))) - (let ((_get-kw53405379_ - (reverse _get-kw53395366_))) - ((lambda (_L5383_) + (##cdr _e54175450_)))) + (_loop54165440_ + _lp-tl54195457_ + (cons _lp-hd54185454_ + _get-kw54205447_)))) + (let ((_get-kw54215460_ + (reverse _get-kw54205447_))) + ((lambda (_L5464_) (let () - (let* ((_g54005408_ - (lambda (_g54015404_) + (let* ((_g54815489_ + (lambda (_g54825485_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g54015404_))) - (_g53995438_ - (lambda (_g54015412_) - ((lambda (_L5415_) + _g54825485_))) + (_g54805519_ + (lambda (_g54825493_) + ((lambda (_L5496_) (let () (let () (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _L5317_ + (cons (cons _L5398_ (gx#datum->syntax '#f 'args)) (cons (cons (gx#datum->syntax '#f 'apply) - (cons _L5415_ - (cons _L5317_ + (cons _L5496_ + (cons _L5398_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_g54295432_ _g54305435_) - (cons _g54295432_ _g54305435_)) + (foldr (lambda (_g55105513_ _g55115516_) + (cons _g55105513_ _g55115516_)) (cons (gx#datum->syntax '#f 'args) '()) - _L5383_)))) + _L5464_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _stx4574_))))) - _g54015412_)))) - (_g53995438_ _main5299_)))) + (gx#stx-source _stx4655_))))) + _g54825493_)))) + (_g54805519_ _main5380_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _get-kw53405379_)))))) - (_loop53355359_ _target53325353_ '())) - (_g53295346_ _g53305350_))))) - (_g53295346_ _g53305350_))))) + _get-kw54215460_)))))) + (_loop54165440_ _target54135434_ '())) + (_g54105427_ _g54115431_))))) + (_g54105427_ _g54115431_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g53285442_ - (map (lambda (_kwarg5446_) - (let* ((_g54495457_ + (_g54095523_ + (map (lambda (_kwarg5527_) + (let* ((_g55305538_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g54505453_) + (lambda (_g55315534_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g54505453_))) - (_g54485477_ - (lambda (_g54505461_) - ((lambda (_L5464_) + _g55315534_))) + (_g55295558_ + (lambda (_g55315542_) + ((lambda (_L5545_) (let () (cons (gx#datum->syntax '#f 'hash-ref) - (cons _L5317_ + (cons _L5398_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L5464_ '())) + (cons _L5545_ '())) (cons (gx#datum->syntax '#f 'absent-value) '())))))) - _g54505461_)))) - (_g54485477_ (car _kwarg5446_)))) - _kwargs5192_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g53035314_)))) - (_g53015481_ - (let ((_$e5485_ _key5190_)) - (if _$e5485_ - _$e5485_ + _g55315542_)))) + (_g55295558_ (car _kwarg5527_)))) + _kwargs5273_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g53845395_)))) + (_g53825562_ + (let ((_$e5566_ _key5271_)) + (if _$e5566_ + _$e5566_ (gx#genident 'keys)))))))) - (let* ((_g52015209_ - (lambda (_g52025205_) + (let* ((_g52825290_ + (lambda (_g52835286_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g52025205_))) - (_g52005295_ - (lambda (_g52025213_) - ((lambda (_L5216_) + _g52835286_))) + (_g52815376_ + (lambda (_g52835294_) + ((lambda (_L5297_) (let () - (let* ((_g52295237_ - (lambda (_g52305233_) + (let* ((_g53105318_ + (lambda (_g53115314_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g52305233_))) - (_g52285291_ - (lambda (_g52305241_) - ((lambda (_L5244_) + _g53115314_))) + (_g53095372_ + (lambda (_g53115322_) + ((lambda (_L5325_) (let () - (let* ((_g52575265_ - (lambda (_g52585261_) + (let* ((_g53385346_ + (lambda (_g53395342_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g52585261_))) - (_g52565287_ - (lambda (_g52585269_) - ((lambda (_L5272_) + _g53395342_))) + (_g53375368_ + (lambda (_g53395350_) + ((lambda (_L5353_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (let () (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _L5216_ '()) - (cons _L5272_ '())) + (cons (cons (cons (cons _L5297_ '()) + (cons _L5353_ '())) '()) - (cons _L5244_ '())))))) - _g52585269_)))) - (_g52565287_ (_make-main5198_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g52305241_)))) - (_g52285291_ - (_make-dispatch5199_ _L5216_))))) - _g52025213_)))) - (_g52005295_ (gx#genident 'kw-lambda-main)))))) - (_generate-kw-dispatch4590_ - (lambda (_primary5103_ _kwargs5105_ _strict?5106_) - (let* ((_g51085127_ - (lambda (_g51095123_) + (cons _L5325_ '())))))) + _g53395350_)))) + (_g53375368_ (_make-main5279_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g53115322_)))) + (_g53095372_ + (_make-dispatch5280_ _L5297_))))) + _g52835294_)))) + (_g52815376_ (gx#genident 'kw-lambda-main)))))) + (_generate-kw-dispatch4671_ + (lambda (_primary5184_ _kwargs5186_ _strict?5187_) + (let* ((_g51895208_ + (lambda (_g51905204_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g51095123_))) - (_g51075186_ - (lambda (_g51095131_) - (if (gx#stx-pair? _g51095131_) - (let ((_e51155134_ - (gx#syntax-e _g51095131_))) - (let ((_hd51145138_ + _g51905204_))) + (_g51885267_ + (lambda (_g51905212_) + (if (gx#stx-pair? _g51905212_) + (let ((_e51965215_ + (gx#syntax-e _g51905212_))) + (let ((_hd51955219_ (let () (declare (not safe)) - (##car _e51155134_))) - (_tl51135141_ + (##car _e51965215_))) + (_tl51945222_ (let () (declare (not safe)) - (##cdr _e51155134_)))) - (if (gx#stx-pair? _tl51135141_) - (let ((_e51185144_ - (gx#syntax-e _tl51135141_))) - (let ((_hd51175148_ + (##cdr _e51965215_)))) + (if (gx#stx-pair? _tl51945222_) + (let ((_e51995225_ + (gx#syntax-e _tl51945222_))) + (let ((_hd51985229_ (let () (declare (not safe)) - (##car _e51185144_))) - (_tl51165151_ + (##car _e51995225_))) + (_tl51975232_ (let () (declare (not safe)) - (##cdr _e51185144_)))) - (if (gx#stx-pair? _tl51165151_) - (let ((_e51215154_ + (##cdr _e51995225_)))) + (if (gx#stx-pair? _tl51975232_) + (let ((_e52025235_ (gx#syntax-e - _tl51165151_))) - (let ((_hd51205158_ + _tl51975232_))) + (let ((_hd52015239_ (let () (declare (not safe)) - (##car _e51215154_))) - (_tl51195161_ + (##car _e52025235_))) + (_tl52005242_ (let () (declare (not safe)) - (##cdr _e51215154_)))) + (##cdr _e52025235_)))) (if (gx#stx-null? - _tl51195161_) - ((lambda (_L5164_ + _tl52005242_) + ((lambda (_L5245_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L5166_ - _L5167_) + _L5247_ + _L5248_) (let () (cons (gx#datum->syntax '#f 'lambda%) - (cons _L5164_ + (cons _L5245_ (cons (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f @@ -2186,2493 +2186,2493 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L5167_ '())) - (cons _L5166_ (cons _L5164_ '()))))) + (cons _L5248_ '())) + (cons _L5247_ (cons _L5245_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _hd51205158_ - _hd51175148_ - _hd51145138_) - (_g51085127_ _g51095131_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g51085127_ _g51095131_)))) - (_g51085127_ _g51095131_)))) - (_g51085127_ _g51095131_))))) - (_g51075186_ - (list (if _strict?5106_ - (_generate-kw-table4591_ - (map car _kwargs5105_)) + _hd52015239_ + _hd51985229_ + _hd51955219_) + (_g51895208_ _g51905212_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g51895208_ _g51905212_)))) + (_g51895208_ _g51905212_)))) + (_g51895208_ _g51905212_))))) + (_g51885267_ + (list (if _strict?5187_ + (_generate-kw-table4672_ + (map car _kwargs5186_)) '#f) - _primary5103_ + _primary5184_ (gx#genident 'args)))))) - (_generate-kw-table4591_ - (lambda (_kws5077_) - (let _rehash5080_ ((_pht5083_ - (make-vector (length _kws5077_) '#f))) - (let _lp5086_ ((_rest5089_ _kws5077_)) - (if (pair? _rest5089_) - (let* ((_key5092_ (car _rest5089_)) - (_rest5095_ (cdr _rest5089_)) - (_pos5098_ + (_generate-kw-table4672_ + (lambda (_kws5158_) + (let _rehash5161_ ((_pht5164_ + (make-vector (length _kws5158_) '#f))) + (let _lp5167_ ((_rest5170_ _kws5158_)) + (if (pair? _rest5170_) + (let* ((_key5173_ (car _rest5170_)) + (_rest5176_ (cdr _rest5170_)) + (_pos5179_ (fxmodulo - (keyword-hash _key5092_) - (vector-length _pht5083_)))) - (if (vector-ref _pht5083_ _pos5098_) - (if (fx< (vector-length _pht5083_) '8192) - (_rehash5080_ + (keyword-hash _key5173_) + (vector-length _pht5164_)))) + (if (vector-ref _pht5164_ _pos5179_) + (if (fx< (vector-length _pht5164_) '8192) + (_rehash5161_ (make-vector (quotient - (fx* '3 (vector-length _pht5083_)) + (fx* '3 (vector-length _pht5164_)) '2) '#f)) (error '"Unresolvable keyword collision" - _kws5077_)) + _kws5158_)) (begin - (vector-set! _pht5083_ _pos5098_ _key5092_) - (_lp5086_ _rest5095_)))) - _pht5083_)))))) - (let* ((___stx3816838169_ _stx4574_) - (_g45954626_ + (vector-set! _pht5164_ _pos5179_ _key5173_) + (_lp5167_ _rest5176_)))) + _pht5164_)))))) + (let* ((___stx3810238103_ _stx4655_) + (_g46764707_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3816838169_)))) - (let ((___kont3817138172_ - (lambda (_L5058_ _L5060_) + ___stx3810238103_)))) + (let ((___kont3810538106_ + (lambda (_L5139_ _L5141_) (cons (gx#datum->syntax '#f 'lambda%) - (cons _L5060_ _L5058_)))) - (___kont3817338174_ - (lambda (_L4830_ _L4832_) - (let ((_g42754_ (_opt-lambda-split4580_ _L4832_))) + (cons _L5141_ _L5139_)))) + (___kont3810738108_ + (lambda (_L4911_ _L4913_) + (let ((_g42644_ (_opt-lambda-split4661_ _L4913_))) (begin - (let ((_g42755_ + (let ((_g42645_ (let () (declare (not safe)) - (if (##values? _g42754_) - (##vector-length _g42754_) + (if (##values? _g42644_) + (##vector-length _g42644_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42755_ 3))) - (error "Context expects 3 values" _g42755_))) - (let ((_pre4845_ + (##fx= _g42645_ 3))) + (error "Context expects 3 values" _g42645_))) + (let ((_pre4926_ (let () (declare (not safe)) - (##vector-ref _g42754_ 0))) - (_opt4847_ + (##vector-ref _g42644_ 0))) + (_opt4928_ (let () (declare (not safe)) - (##vector-ref _g42754_ 1))) - (_tail4848_ + (##vector-ref _g42644_ 1))) + (_tail4929_ (let () (declare (not safe)) - (##vector-ref _g42754_ 2)))) - (let* ((_g48504858_ - (lambda (_g48514854_) + (##vector-ref _g42644_ 2)))) + (let* ((_g49314939_ + (lambda (_g49324935_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g48514854_))) - (_g48495027_ - (lambda (_g48514862_) - ((lambda (_L4865_) + _g49324935_))) + (_g49305108_ + (lambda (_g49324943_) + ((lambda (_L4946_) (let () - (let* ((_g48784886_ - (lambda (_g48794882_) + (let* ((_g49594967_ + (lambda (_g49604963_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g48794882_))) - (_g48775023_ - (lambda (_g48794890_) - ((lambda (_L4893_) + _g49604963_))) + (_g49585104_ + (lambda (_g49604971_) + ((lambda (_L4974_) (let () - (let* ((_g49064923_ + (let* ((_g49875004_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g49074919_) + (lambda (_g49885000_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g49074919_))) - (_g49055019_ - (lambda (_g49074927_) - (if (gx#stx-pair/null? _g49074927_) - (let ((_g42756_ - (gx#syntax-split-splice _g49074927_ '0))) + _g49885000_))) + (_g49865100_ + (lambda (_g49885008_) + (if (gx#stx-pair/null? _g49885008_) + (let ((_g42646_ + (gx#syntax-split-splice _g49885008_ '0))) (begin - (let ((_g42757_ + (let ((_g42647_ (let () (declare (not safe)) - (if (##values? _g42756_) - (##vector-length _g42756_) + (if (##values? _g42646_) + (##vector-length _g42646_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42757_ 2))) + (##fx= _g42647_ 2))) (error "Context expects 2 values" - _g42757_))) - (let ((_target49094930_ + _g42647_))) + (let ((_target49905011_ (let () (declare (not safe)) - (##vector-ref _g42756_ 0))) - (_tl49114933_ + (##vector-ref _g42646_ 0))) + (_tl49925014_ (let () (declare (not safe)) - (##vector-ref _g42756_ 1)))) - (if (gx#stx-null? _tl49114933_) - (letrec ((_loop49124936_ - (lambda (_hd49104940_ - _clause49164943_) + (##vector-ref _g42646_ 1)))) + (if (gx#stx-null? _tl49925014_) + (letrec ((_loop49935017_ + (lambda (_hd49915021_ + _clause49975024_) (if (gx#stx-pair? - _hd49104940_) - (let ((_e49134946_ + _hd49915021_) + (let ((_e49945027_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd49104940_))) - (let ((_lp-hd49144950_ - (let () (declare (not safe)) (##car _e49134946_))) - (_lp-tl49154953_ - (let () (declare (not safe)) (##cdr _e49134946_)))) - (_loop49124936_ - _lp-tl49154953_ - (cons _lp-hd49144950_ _clause49164943_)))) - (let ((_clause49174956_ (reverse _clause49164943_))) - ((lambda (_L4960_) + _hd49915021_))) + (let ((_lp-hd49955031_ + (let () (declare (not safe)) (##car _e49945027_))) + (_lp-tl49965034_ + (let () (declare (not safe)) (##cdr _e49945027_)))) + (_loop49935017_ + _lp-tl49965034_ + (cons _lp-hd49955031_ _clause49975024_)))) + (let ((_clause49985037_ (reverse _clause49975024_))) + ((lambda (_L5041_) (let () - (let* ((_g49774985_ - (lambda (_g49784981_) + (let* ((_g50585066_ + (lambda (_g50595062_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g49784981_))) - (_g49765007_ - (lambda (_g49784989_) - ((lambda (_L4992_) + _g50595062_))) + (_g50575088_ + (lambda (_g50595070_) + ((lambda (_L5073_) (let () (let () (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _L4865_ + (cons (cons (cons (cons _L4946_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _L4893_ '())) + (cons _L4974_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L4992_ '())))))) - _g49784989_)))) - (_g49765007_ + (cons _L5073_ '())))))) + _g50595070_)))) + (_g50575088_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_g50105013_ _g50115016_) - (cons _g50105013_ _g50115016_)) + (foldr (lambda (_g50915094_ _g50925097_) + (cons _g50915094_ _g50925097_)) '() - _L4960_)) - (gx#stx-source _stx4574_)))))) - _clause49174956_)))))) + _L5041_)) + (gx#stx-source _stx4655_)))))) + _clause49985037_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop49124936_ - _target49094930_ + (_loop49935017_ + _target49905011_ '())) - (_g49064923_ _g49074927_))))) - (_g49064923_ _g49074927_))))) - (_g49055019_ - (_generate-opt-dispatch4586_ - _L4865_ - _pre4845_ - _opt4847_ - _tail4848_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g48794890_)))) - (_g48775023_ + (_g49875004_ _g49885008_))))) + (_g49875004_ _g49885008_))))) + (_g49865100_ + (_generate-opt-dispatch4667_ + _L4946_ + _pre4926_ + _opt4928_ + _tail4929_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g49604971_)))) + (_g49585104_ (gx#stx-wrap-source - (_generate-opt-primary4585_ - _pre4845_ - _opt4847_ - _tail4848_ - _L4830_) - (gx#stx-source _stx4574_)))))) - _g48514862_)))) - (_g48495027_ (gx#genident 'opt-lambda)))))))) - (___kont3817538176_ - (lambda (_L4653_ _L4655_) - (let* ((_g46714678_ - (lambda (_g46724674_) + (_generate-opt-primary4666_ + _pre4926_ + _opt4928_ + _tail4929_ + _L4911_) + (gx#stx-source _stx4655_)))))) + _g49324943_)))) + (_g49305108_ (gx#genident 'opt-lambda)))))))) + (___kont3810938110_ + (lambda (_L4734_ _L4736_) + (let* ((_g47524759_ + (lambda (_g47534755_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g46724674_))) - (_g46704799_ - (lambda (_g46724682_) + _g47534755_))) + (_g47514880_ + (lambda (_g47534763_) ((lambda () (let () - (let ((_g42758_ - (_kw-lambda-split4582_ _L4655_))) + (let ((_g42648_ + (_kw-lambda-split4663_ _L4736_))) (begin - (let ((_g42759_ + (let ((_g42649_ (let () (declare (not safe)) - (if (##values? _g42758_) - (##vector-length _g42758_) + (if (##values? _g42648_) + (##vector-length _g42648_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42759_ 3))) + (##fx= _g42649_ 3))) (error "Context expects 3 values" - _g42759_))) - (let ((_key4691_ + _g42649_))) + (let ((_key4772_ (let () (declare (not safe)) - (##vector-ref _g42758_ 0))) - (_kwargs4693_ + (##vector-ref _g42648_ 0))) + (_kwargs4774_ (let () (declare (not safe)) - (##vector-ref _g42758_ 1))) - (_args4694_ + (##vector-ref _g42648_ 1))) + (_args4775_ (let () (declare (not safe)) - (##vector-ref _g42758_ 2)))) - (let* ((_g46964704_ - (lambda (_g46974700_) + (##vector-ref _g42648_ 2)))) + (let* ((_g47774785_ + (lambda (_g47784781_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g46974700_))) - (_g46954795_ - (lambda (_g46974708_) - ((lambda (_L4711_) + _g47784781_))) + (_g47764876_ + (lambda (_g47784789_) + ((lambda (_L4792_) (let () - (let* ((_g47294737_ + (let* ((_g48104818_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g47304733_) + (lambda (_g48114814_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g47304733_))) - (_g47284791_ - (lambda (_g47304741_) - ((lambda (_L4744_) + _g48114814_))) + (_g48094872_ + (lambda (_g48114822_) + ((lambda (_L4825_) (let () - (let* ((_g47574765_ - (lambda (_g47584761_) + (let* ((_g48384846_ + (lambda (_g48394842_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g47584761_))) - (_g47564787_ - (lambda (_g47584769_) - ((lambda (_L4772_) + _g48394842_))) + (_g48374868_ + (lambda (_g48394850_) + ((lambda (_L4853_) (let () (let () (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _L4711_ + (cons (cons (cons (cons _L4792_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _L4744_ '())) + (cons _L4825_ '())) '()) - (cons _L4772_ '())))))) + (cons _L4853_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g47584769_)))) - (_g47564787_ + _g48394850_)))) + (_g48374868_ (gx#stx-wrap-source - (_generate-kw-dispatch4590_ - _L4711_ - _kwargs4693_ - (not _key4691_)) - (gx#stx-source _stx4574_)))))) - _g47304741_)))) - (_g47284791_ + (_generate-kw-dispatch4671_ + _L4792_ + _kwargs4774_ + (not _key4772_)) + (gx#stx-source _stx4655_)))))) + _g48114822_)))) + (_g48094872_ (gx#stx-wrap-source - (_generate-kw-primary4589_ - _key4691_ - _kwargs4693_ - _args4694_ - _L4653_) - (gx#stx-source _stx4574_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g46974708_)))) - (_g46954795_ + (_generate-kw-primary4670_ + _key4772_ + _kwargs4774_ + _args4775_ + _L4734_) + (gx#stx-source _stx4655_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g47784789_)))) + (_g47764876_ (gx#genident 'kw-lambda)))))))))))) - (_g46704799_ - (_check-duplicate-bindings4584_ _L4655_)))))) - (let* ((___match3821338214_ - (lambda (_e46174633_ - _hd46164637_ - _tl46154640_ - _e46204643_ - _hd46194647_ - _tl46184650_) - (let ((_L4653_ _tl46184650_) (_L4655_ _hd46194647_)) - (if (_kw-lambda?4581_ _L4655_) - (___kont3817538176_ _L4653_ _L4655_) - (let () (declare (not safe)) (_g45954626_)))))) - (___match3820138202_ - (lambda (_e46094810_ - _hd46084814_ - _tl46074817_ - _e46124820_ - _hd46114824_ - _tl46104827_) - (let ((_L4830_ _tl46104827_) (_L4832_ _hd46114824_)) - (if (_opt-lambda?4579_ _L4832_) - (___kont3817338174_ _L4830_ _L4832_) - (___match3821338214_ - _e46094810_ - _hd46084814_ - _tl46074817_ - _e46124820_ - _hd46114824_ - _tl46104827_))))) - (___match3818938190_ - (lambda (_e46015038_ - _hd46005042_ - _tl45995045_ - _e46045048_ - _hd46035052_ - _tl46025055_) - (let ((_L5058_ _tl46025055_) (_L5060_ _hd46035052_)) - (if (_simple-lambda?4577_ _L5060_) - (___kont3817138172_ _L5058_ _L5060_) - (___match3820138202_ - _e46015038_ - _hd46005042_ - _tl45995045_ - _e46045048_ - _hd46035052_ - _tl46025055_)))))) - (if (gx#stx-pair? ___stx3816838169_) - (let ((_e46015038_ (gx#syntax-e ___stx3816838169_))) - (let ((_tl45995045_ - (let () (declare (not safe)) (##cdr _e46015038_))) - (_hd46005042_ + (_g47514880_ + (_check-duplicate-bindings4665_ _L4736_)))))) + (let* ((___match3814738148_ + (lambda (_e46984714_ + _hd46974718_ + _tl46964721_ + _e47014724_ + _hd47004728_ + _tl46994731_) + (let ((_L4734_ _tl46994731_) (_L4736_ _hd47004728_)) + (if (_kw-lambda?4662_ _L4736_) + (___kont3810938110_ _L4734_ _L4736_) + (let () (declare (not safe)) (_g46764707_)))))) + (___match3813538136_ + (lambda (_e46904891_ + _hd46894895_ + _tl46884898_ + _e46934901_ + _hd46924905_ + _tl46914908_) + (let ((_L4911_ _tl46914908_) (_L4913_ _hd46924905_)) + (if (_opt-lambda?4660_ _L4913_) + (___kont3810738108_ _L4911_ _L4913_) + (___match3814738148_ + _e46904891_ + _hd46894895_ + _tl46884898_ + _e46934901_ + _hd46924905_ + _tl46914908_))))) + (___match3812338124_ + (lambda (_e46825119_ + _hd46815123_ + _tl46805126_ + _e46855129_ + _hd46845133_ + _tl46835136_) + (let ((_L5139_ _tl46835136_) (_L5141_ _hd46845133_)) + (if (_simple-lambda?4658_ _L5141_) + (___kont3810538106_ _L5139_ _L5141_) + (___match3813538136_ + _e46825119_ + _hd46815123_ + _tl46805126_ + _e46855129_ + _hd46845133_ + _tl46835136_)))))) + (if (gx#stx-pair? ___stx3810238103_) + (let ((_e46825119_ (gx#syntax-e ___stx3810238103_))) + (let ((_tl46805126_ + (let () (declare (not safe)) (##cdr _e46825119_))) + (_hd46815123_ (let () (declare (not safe)) - (##car _e46015038_)))) - (if (gx#stx-pair? _tl45995045_) - (let ((_e46045048_ (gx#syntax-e _tl45995045_))) - (let ((_tl46025055_ + (##car _e46825119_)))) + (if (gx#stx-pair? _tl46805126_) + (let ((_e46855129_ (gx#syntax-e _tl46805126_))) + (let ((_tl46835136_ (let () (declare (not safe)) - (##cdr _e46045048_))) - (_hd46035052_ + (##cdr _e46855129_))) + (_hd46845133_ (let () (declare (not safe)) - (##car _e46045048_)))) - (___match3818938190_ - _e46015038_ - _hd46005042_ - _tl45995045_ - _e46045048_ - _hd46035052_ - _tl46025055_))) - (let () (declare (not safe)) (_g45954626_))))) - (let () (declare (not safe)) (_g45954626_))))))))) + (##car _e46855129_)))) + (___match3812338124_ + _e46825119_ + _hd46815123_ + _tl46805126_ + _e46855129_ + _hd46845133_ + _tl46835136_))) + (let () (declare (not safe)) (_g46764707_))))) + (let () (declare (not safe)) (_g46764707_))))))))) (define |gerbil/core$$[:0:]#def| - (lambda (_$stx7990_) - (let* ((___stx3821638217_ _$stx7990_) - (_g79968060_ + (lambda (_$stx8071_) + (let* ((___stx3815038151_ _$stx8071_) + (_g80778141_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3821638217_)))) - (let ((___kont3821938220_ - (lambda (_L8290_ _L8292_ _L8293_ _L8294_) + ___stx3815038151_)))) + (let ((___kont3815338154_ + (lambda (_L8371_ _L8373_ _L8374_ _L8375_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _L8294_ _L8293_) + (cons (cons _L8375_ _L8374_) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _L8292_ - (foldr (lambda (_g83168319_ + (cons _L8373_ + (foldr (lambda (_g83978400_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g83178322_) - (cons _g83168319_ _g83178322_)) + _g83988403_) + (cons _g83978400_ _g83988403_)) '() - _L8290_))) + _L8371_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3822338224_ - (lambda (_L8182_ _L8184_ _L8185_) + (___kont3815738158_ + (lambda (_L8263_ _L8265_ _L8266_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _L8185_ '()) + (cons (cons _L8266_ '()) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _L8184_ - (foldr (lambda (_g82048207_ + (cons _L8265_ + (foldr (lambda (_g82858288_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g82058210_) - (cons _g82048207_ _g82058210_)) + _g82868291_) + (cons _g82858288_ _g82868291_)) '() - _L8182_))) + _L8263_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3822738228_ - (lambda (_L8097_ _L8099_) + (___kont3816138162_ + (lambda (_L8178_ _L8180_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _L8099_ '()) (cons _L8097_ '())))))) - (let* ((___match3830738308_ - (lambda (_e80488067_ - _hd80478071_ - _tl80468074_ - _e80518077_ - _hd80508081_ - _tl80498084_ - _e80548087_ - _hd80538091_ - _tl80528094_) - (let ((_L8097_ _hd80538091_) (_L8099_ _hd80508081_)) - (if (gx#identifier? _L8099_) - (___kont3822738228_ _L8097_ _L8099_) - (let () (declare (not safe)) (_g79968060_)))))) - (___match3829938300_ - (lambda (_e80488067_ - _hd80478071_ - _tl80468074_ - _e80518077_ - _hd80508081_ - _tl80498084_) - (if (gx#stx-pair? _tl80498084_) - (let ((_e80548087_ (gx#syntax-e _tl80498084_))) - (let ((_tl80528094_ + (cons (cons _L8180_ '()) (cons _L8178_ '())))))) + (let* ((___match3824138242_ + (lambda (_e81298148_ + _hd81288152_ + _tl81278155_ + _e81328158_ + _hd81318162_ + _tl81308165_ + _e81358168_ + _hd81348172_ + _tl81338175_) + (let ((_L8178_ _hd81348172_) (_L8180_ _hd81318162_)) + (if (gx#identifier? _L8180_) + (___kont3816138162_ _L8178_ _L8180_) + (let () (declare (not safe)) (_g80778141_)))))) + (___match3823338234_ + (lambda (_e81298148_ + _hd81288152_ + _tl81278155_ + _e81328158_ + _hd81318162_ + _tl81308165_) + (if (gx#stx-pair? _tl81308165_) + (let ((_e81358168_ (gx#syntax-e _tl81308165_))) + (let ((_tl81338175_ (let () (declare (not safe)) - (##cdr _e80548087_))) - (_hd80538091_ + (##cdr _e81358168_))) + (_hd81348172_ (let () (declare (not safe)) - (##car _e80548087_)))) - (if (gx#stx-null? _tl80528094_) - (___match3830738308_ - _e80488067_ - _hd80478071_ - _tl80468074_ - _e80518077_ - _hd80508081_ - _tl80498084_ - _e80548087_ - _hd80538091_ - _tl80528094_) + (##car _e81358168_)))) + (if (gx#stx-null? _tl81338175_) + (___match3824138242_ + _e81298148_ + _hd81288152_ + _tl81278155_ + _e81328158_ + _hd81318162_ + _tl81308165_ + _e81358168_ + _hd81348172_ + _tl81338175_) (let () (declare (not safe)) - (_g79968060_))))) - (let () (declare (not safe)) (_g79968060_))))) - (___match3828738288_ - (lambda (_e80288122_ - _hd80278126_ - _tl80268129_ - _e80318132_ - _hd80308136_ - _tl80298139_ - _e80348142_ - _hd80338146_ - _tl80328149_ - ___splice3822538226_ - _target80358152_ - _tl80378155_) - (letrec ((_loop80388158_ - (lambda (_hd80368162_ _body80428165_) - (if (gx#stx-pair? _hd80368162_) - (let ((_e80398168_ - (gx#syntax-e _hd80368162_))) - (let ((_lp-tl80418175_ + (_g80778141_))))) + (let () (declare (not safe)) (_g80778141_))))) + (___match3822138222_ + (lambda (_e81098203_ + _hd81088207_ + _tl81078210_ + _e81128213_ + _hd81118217_ + _tl81108220_ + _e81158223_ + _hd81148227_ + _tl81138230_ + ___splice3815938160_ + _target81168233_ + _tl81188236_) + (letrec ((_loop81198239_ + (lambda (_hd81178243_ _body81238246_) + (if (gx#stx-pair? _hd81178243_) + (let ((_e81208249_ + (gx#syntax-e _hd81178243_))) + (let ((_lp-tl81228256_ (let () (declare (not safe)) - (##cdr _e80398168_))) - (_lp-hd80408172_ + (##cdr _e81208249_))) + (_lp-hd81218253_ (let () (declare (not safe)) - (##car _e80398168_)))) - (_loop80388158_ - _lp-tl80418175_ - (cons _lp-hd80408172_ - _body80428165_)))) - (let ((_body80438178_ - (reverse _body80428165_))) - (let ((_L8182_ _body80438178_) - (_L8184_ _tl80328149_) - (_L8185_ _hd80338146_)) - (if (gx#identifier? _L8185_) - (___kont3822338224_ - _L8182_ - _L8184_ - _L8185_) - (___match3829938300_ - _e80288122_ - _hd80278126_ - _tl80268129_ - _e80318132_ - _hd80308136_ - _tl80298139_)))))))) - (_loop80388158_ _target80358152_ '())))) - (___match3826138262_ - (lambda (_e80048220_ - _hd80038224_ - _tl80028227_ - _e80078230_ - _hd80068234_ - _tl80058237_ - _e80108240_ - _hd80098244_ - _tl80088247_ - _e80138250_ - _hd80128254_ - _tl80118257_ - ___splice3822138222_ - _target80148260_ - _tl80168263_) - (letrec ((_loop80178266_ - (lambda (_hd80158270_ _body80218273_) - (if (gx#stx-pair? _hd80158270_) - (let ((_e80188276_ - (gx#syntax-e _hd80158270_))) - (let ((_lp-tl80208283_ + (##car _e81208249_)))) + (_loop81198239_ + _lp-tl81228256_ + (cons _lp-hd81218253_ + _body81238246_)))) + (let ((_body81248259_ + (reverse _body81238246_))) + (let ((_L8263_ _body81248259_) + (_L8265_ _tl81138230_) + (_L8266_ _hd81148227_)) + (if (gx#identifier? _L8266_) + (___kont3815738158_ + _L8263_ + _L8265_ + _L8266_) + (___match3823338234_ + _e81098203_ + _hd81088207_ + _tl81078210_ + _e81128213_ + _hd81118217_ + _tl81108220_)))))))) + (_loop81198239_ _target81168233_ '())))) + (___match3819538196_ + (lambda (_e80858301_ + _hd80848305_ + _tl80838308_ + _e80888311_ + _hd80878315_ + _tl80868318_ + _e80918321_ + _hd80908325_ + _tl80898328_ + _e80948331_ + _hd80938335_ + _tl80928338_ + ___splice3815538156_ + _target80958341_ + _tl80978344_) + (letrec ((_loop80988347_ + (lambda (_hd80968351_ _body81028354_) + (if (gx#stx-pair? _hd80968351_) + (let ((_e80998357_ + (gx#syntax-e _hd80968351_))) + (let ((_lp-tl81018364_ (let () (declare (not safe)) - (##cdr _e80188276_))) - (_lp-hd80198280_ + (##cdr _e80998357_))) + (_lp-hd81008361_ (let () (declare (not safe)) - (##car _e80188276_)))) - (_loop80178266_ - _lp-tl80208283_ - (cons _lp-hd80198280_ - _body80218273_)))) - (let ((_body80228286_ - (reverse _body80218273_))) - (___kont3821938220_ - _body80228286_ - _tl80088247_ - _tl80118257_ - _hd80128254_)))))) - (_loop80178266_ _target80148260_ '()))))) - (if (gx#stx-pair? ___stx3821638217_) - (let ((_e80048220_ (gx#syntax-e ___stx3821638217_))) - (let ((_tl80028227_ - (let () (declare (not safe)) (##cdr _e80048220_))) - (_hd80038224_ - (let () (declare (not safe)) (##car _e80048220_)))) - (if (gx#stx-pair? _tl80028227_) - (let ((_e80078230_ (gx#syntax-e _tl80028227_))) - (let ((_tl80058237_ + (##car _e80998357_)))) + (_loop80988347_ + _lp-tl81018364_ + (cons _lp-hd81008361_ + _body81028354_)))) + (let ((_body81038367_ + (reverse _body81028354_))) + (___kont3815338154_ + _body81038367_ + _tl80898328_ + _tl80928338_ + _hd80938335_)))))) + (_loop80988347_ _target80958341_ '()))))) + (if (gx#stx-pair? ___stx3815038151_) + (let ((_e80858301_ (gx#syntax-e ___stx3815038151_))) + (let ((_tl80838308_ + (let () (declare (not safe)) (##cdr _e80858301_))) + (_hd80848305_ + (let () (declare (not safe)) (##car _e80858301_)))) + (if (gx#stx-pair? _tl80838308_) + (let ((_e80888311_ (gx#syntax-e _tl80838308_))) + (let ((_tl80868318_ (let () (declare (not safe)) - (##cdr _e80078230_))) - (_hd80068234_ + (##cdr _e80888311_))) + (_hd80878315_ (let () (declare (not safe)) - (##car _e80078230_)))) - (if (gx#stx-pair? _hd80068234_) - (let ((_e80108240_ - (gx#syntax-e _hd80068234_))) - (let ((_tl80088247_ + (##car _e80888311_)))) + (if (gx#stx-pair? _hd80878315_) + (let ((_e80918321_ + (gx#syntax-e _hd80878315_))) + (let ((_tl80898328_ (let () (declare (not safe)) - (##cdr _e80108240_))) - (_hd80098244_ + (##cdr _e80918321_))) + (_hd80908325_ (let () (declare (not safe)) - (##car _e80108240_)))) - (if (gx#stx-pair? _hd80098244_) - (let ((_e80138250_ - (gx#syntax-e _hd80098244_))) - (let ((_tl80118257_ + (##car _e80918321_)))) + (if (gx#stx-pair? _hd80908325_) + (let ((_e80948331_ + (gx#syntax-e _hd80908325_))) + (let ((_tl80928338_ (let () (declare (not safe)) - (##cdr _e80138250_))) - (_hd80128254_ + (##cdr _e80948331_))) + (_hd80938335_ (let () (declare (not safe)) - (##car _e80138250_)))) + (##car _e80948331_)))) (if (gx#stx-pair/null? - _tl80058237_) - (let ((___splice3822138222_ + _tl80868318_) + (let ((___splice3815538156_ (gx#syntax-split-splice - _tl80058237_ + _tl80868318_ '0))) - (let ((_tl80168263_ + (let ((_tl80978344_ (let () (declare (not safe)) (##vector-ref - ___splice3822138222_ + ___splice3815538156_ '1))) - (_target80148260_ + (_target80958341_ (let () (declare (not safe)) (##vector-ref - ___splice3822138222_ + ___splice3815538156_ '0)))) (if (gx#stx-null? - _tl80168263_) - (___match3826138262_ - _e80048220_ - _hd80038224_ - _tl80028227_ - _e80078230_ - _hd80068234_ - _tl80058237_ - _e80108240_ - _hd80098244_ - _tl80088247_ - _e80138250_ - _hd80128254_ - _tl80118257_ - ___splice3822138222_ - _target80148260_ - _tl80168263_) + _tl80978344_) + (___match3819538196_ + _e80858301_ + _hd80848305_ + _tl80838308_ + _e80888311_ + _hd80878315_ + _tl80868318_ + _e80918321_ + _hd80908325_ + _tl80898328_ + _e80948331_ + _hd80938335_ + _tl80928338_ + ___splice3815538156_ + _target80958341_ + _tl80978344_) (if (gx#stx-pair? - _tl80058237_) - (let ((_e80548087_ + _tl80868318_) + (let ((_e81358168_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl80058237_))) - (let ((_tl80528094_ + (gx#syntax-e _tl80868318_))) + (let ((_tl81338175_ (let () (declare (not safe)) - (##cdr _e80548087_))) - (_hd80538091_ + (##cdr _e81358168_))) + (_hd81348172_ (let () (declare (not safe)) - (##car _e80548087_)))) - (if (gx#stx-null? _tl80528094_) - (___match3830738308_ - _e80048220_ - _hd80038224_ - _tl80028227_ - _e80078230_ - _hd80068234_ - _tl80058237_ - _e80548087_ - _hd80538091_ - _tl80528094_) - (let () (declare (not safe)) (_g79968060_))))) - (let () (declare (not safe)) (_g79968060_)))))) + (##car _e81358168_)))) + (if (gx#stx-null? _tl81338175_) + (___match3824138242_ + _e80858301_ + _hd80848305_ + _tl80838308_ + _e80888311_ + _hd80878315_ + _tl80868318_ + _e81358168_ + _hd81348172_ + _tl81338175_) + (let () (declare (not safe)) (_g80778141_))))) + (let () (declare (not safe)) (_g80778141_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _tl80058237_) - (let ((_e80548087_ + _tl80868318_) + (let ((_e81358168_ (gx#syntax-e - _tl80058237_))) - (let ((_tl80528094_ + _tl80868318_))) + (let ((_tl81338175_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e80548087_))) - (_hd80538091_ - (let () (declare (not safe)) (##car _e80548087_)))) - (if (gx#stx-null? _tl80528094_) - (___match3830738308_ - _e80048220_ - _hd80038224_ - _tl80028227_ - _e80078230_ - _hd80068234_ - _tl80058237_ - _e80548087_ - _hd80538091_ - _tl80528094_) - (let () (declare (not safe)) (_g79968060_))))) - (let () (declare (not safe)) (_g79968060_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? _tl80058237_) - (let ((___splice3822538226_ + (##cdr _e81358168_))) + (_hd81348172_ + (let () (declare (not safe)) (##car _e81358168_)))) + (if (gx#stx-null? _tl81338175_) + (___match3824138242_ + _e80858301_ + _hd80848305_ + _tl80838308_ + _e80888311_ + _hd80878315_ + _tl80868318_ + _e81358168_ + _hd81348172_ + _tl81338175_) + (let () (declare (not safe)) (_g80778141_))))) + (let () (declare (not safe)) (_g80778141_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair/null? _tl80868318_) + (let ((___splice3815938160_ (gx#syntax-split-splice - _tl80058237_ + _tl80868318_ '0))) - (let ((_tl80378155_ + (let ((_tl81188236_ (let () (declare (not safe)) (##vector-ref - ___splice3822538226_ + ___splice3815938160_ '1))) - (_target80358152_ + (_target81168233_ (let () (declare (not safe)) (##vector-ref - ___splice3822538226_ + ___splice3815938160_ '0)))) (if (gx#stx-null? - _tl80378155_) - (___match3828738288_ - _e80048220_ - _hd80038224_ - _tl80028227_ - _e80078230_ - _hd80068234_ - _tl80058237_ - _e80108240_ - _hd80098244_ - _tl80088247_ - ___splice3822538226_ - _target80358152_ - _tl80378155_) + _tl81188236_) + (___match3822138222_ + _e80858301_ + _hd80848305_ + _tl80838308_ + _e80888311_ + _hd80878315_ + _tl80868318_ + _e80918321_ + _hd80908325_ + _tl80898328_ + ___splice3815938160_ + _target81168233_ + _tl81188236_) (if (gx#stx-pair? - _tl80058237_) - (let ((_e80548087_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl80058237_))) - (let ((_tl80528094_ - (let () (declare (not safe)) (##cdr _e80548087_))) - (_hd80538091_ - (let () (declare (not safe)) (##car _e80548087_)))) - (if (gx#stx-null? _tl80528094_) - (___match3830738308_ - _e80048220_ - _hd80038224_ - _tl80028227_ - _e80078230_ - _hd80068234_ - _tl80058237_ - _e80548087_ - _hd80538091_ - _tl80528094_) - (let () (declare (not safe)) (_g79968060_))))) - (let () (declare (not safe)) (_g79968060_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl80058237_) - (let ((_e80548087_ + _tl80868318_) + (let ((_e81358168_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _tl80868318_))) + (let ((_tl81338175_ + (let () (declare (not safe)) (##cdr _e81358168_))) + (_hd81348172_ + (let () (declare (not safe)) (##car _e81358168_)))) + (if (gx#stx-null? _tl81338175_) + (___match3824138242_ + _e80858301_ + _hd80848305_ + _tl80838308_ + _e80888311_ + _hd80878315_ + _tl80868318_ + _e81358168_ + _hd81348172_ + _tl81338175_) + (let () (declare (not safe)) (_g80778141_))))) + (let () (declare (not safe)) (_g80778141_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _tl80868318_) + (let ((_e81358168_ (gx#syntax-e - _tl80058237_))) - (let ((_tl80528094_ + _tl80868318_))) + (let ((_tl81338175_ (let () (declare (not safe)) - (##cdr _e80548087_))) - (_hd80538091_ + (##cdr _e81358168_))) + (_hd81348172_ (let () (declare (not safe)) - (##car _e80548087_)))) + (##car _e81358168_)))) (if (gx#stx-null? - _tl80528094_) - (___match3830738308_ - _e80048220_ - _hd80038224_ - _tl80028227_ - _e80078230_ - _hd80068234_ - _tl80058237_ - _e80548087_ - _hd80538091_ - _tl80528094_) + _tl81338175_) + (___match3824138242_ + _e80858301_ + _hd80848305_ + _tl80838308_ + _e80888311_ + _hd80878315_ + _tl80868318_ + _e81358168_ + _hd81348172_ + _tl81338175_) (let () (declare (not safe)) - (_g79968060_))))) + (_g80778141_))))) (let () (declare (not safe)) - (_g79968060_))))))) - (if (gx#stx-pair? _tl80058237_) - (let ((_e80548087_ - (gx#syntax-e _tl80058237_))) - (let ((_tl80528094_ + (_g80778141_))))))) + (if (gx#stx-pair? _tl80868318_) + (let ((_e81358168_ + (gx#syntax-e _tl80868318_))) + (let ((_tl81338175_ (let () (declare (not safe)) - (##cdr _e80548087_))) - (_hd80538091_ + (##cdr _e81358168_))) + (_hd81348172_ (let () (declare (not safe)) - (##car _e80548087_)))) - (if (gx#stx-null? _tl80528094_) - (___match3830738308_ - _e80048220_ - _hd80038224_ - _tl80028227_ - _e80078230_ - _hd80068234_ - _tl80058237_ - _e80548087_ - _hd80538091_ - _tl80528094_) + (##car _e81358168_)))) + (if (gx#stx-null? _tl81338175_) + (___match3824138242_ + _e80858301_ + _hd80848305_ + _tl80838308_ + _e80888311_ + _hd80878315_ + _tl80868318_ + _e81358168_ + _hd81348172_ + _tl81338175_) (let () (declare (not safe)) - (_g79968060_))))) + (_g80778141_))))) (let () (declare (not safe)) - (_g79968060_)))))) - (let () (declare (not safe)) (_g79968060_))))) - (let () (declare (not safe)) (_g79968060_)))))))) + (_g80778141_)))))) + (let () (declare (not safe)) (_g80778141_))))) + (let () (declare (not safe)) (_g80778141_)))))))) (define |gerbil/core$$[:0:]#def*| - (lambda (_$stx8331_) - (let* ((_g83358359_ - (lambda (_g83368355_) + (lambda (_$stx8412_) + (let* ((_g84168440_ + (lambda (_g84178436_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g83368355_))) - (_g83348444_ - (lambda (_g83368363_) - (if (gx#stx-pair? _g83368363_) - (let ((_e83418366_ (gx#syntax-e _g83368363_))) - (let ((_hd83408370_ + _g84178436_))) + (_g84158525_ + (lambda (_g84178444_) + (if (gx#stx-pair? _g84178444_) + (let ((_e84228447_ (gx#syntax-e _g84178444_))) + (let ((_hd84218451_ (let () (declare (not safe)) - (##car _e83418366_))) - (_tl83398373_ + (##car _e84228447_))) + (_tl84208454_ (let () (declare (not safe)) - (##cdr _e83418366_)))) - (if (gx#stx-pair? _tl83398373_) - (let ((_e83448376_ (gx#syntax-e _tl83398373_))) - (let ((_hd83438380_ + (##cdr _e84228447_)))) + (if (gx#stx-pair? _tl84208454_) + (let ((_e84258457_ (gx#syntax-e _tl84208454_))) + (let ((_hd84248461_ (let () (declare (not safe)) - (##car _e83448376_))) - (_tl83428383_ + (##car _e84258457_))) + (_tl84238464_ (let () (declare (not safe)) - (##cdr _e83448376_)))) - (if (gx#stx-pair/null? _tl83428383_) - (let ((_g42760_ + (##cdr _e84258457_)))) + (if (gx#stx-pair/null? _tl84238464_) + (let ((_g42650_ (gx#syntax-split-splice - _tl83428383_ + _tl84238464_ '0))) (begin - (let ((_g42761_ + (let ((_g42651_ (let () (declare (not safe)) - (if (##values? _g42760_) + (if (##values? _g42650_) (##vector-length - _g42760_) + _g42650_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42761_ 2))) + (##fx= _g42651_ 2))) (error "Context expects 2 values" - _g42761_))) - (let ((_target83458386_ + _g42651_))) + (let ((_target84268467_ (let () (declare (not safe)) - (##vector-ref _g42760_ 0))) - (_tl83478389_ + (##vector-ref _g42650_ 0))) + (_tl84288470_ (let () (declare (not safe)) - (##vector-ref _g42760_ 1)))) - (if (gx#stx-null? _tl83478389_) - (letrec ((_loop83488392_ - (lambda (_hd83468396_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clauses83528399_) - (if (gx#stx-pair? _hd83468396_) - (let ((_e83498402_ (gx#syntax-e _hd83468396_))) - (let ((_lp-hd83508406_ + (##vector-ref _g42650_ 1)))) + (if (gx#stx-null? _tl84288470_) + (letrec ((_loop84298473_ + (lambda (_hd84278477_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _clauses84338480_) + (if (gx#stx-pair? _hd84278477_) + (let ((_e84308483_ (gx#syntax-e _hd84278477_))) + (let ((_lp-hd84318487_ (let () (declare (not safe)) - (##car _e83498402_))) - (_lp-tl83518409_ + (##car _e84308483_))) + (_lp-tl84328490_ (let () (declare (not safe)) - (##cdr _e83498402_)))) - (_loop83488392_ - _lp-tl83518409_ - (cons _lp-hd83508406_ _clauses83528399_)))) - (let ((_clauses83538412_ (reverse _clauses83528399_))) - ((lambda (_L8416_ _L8418_) - (if (gx#identifier? _L8418_) + (##cdr _e84308483_)))) + (_loop84298473_ + _lp-tl84328490_ + (cons _lp-hd84318487_ _clauses84338480_)))) + (let ((_clauses84348493_ (reverse _clauses84338480_))) + ((lambda (_L8497_ _L8499_) + (if (gx#identifier? _L8499_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _L8418_ '()) + (cons (cons _L8499_ '()) (cons (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_g84358438_ + (foldr (lambda (_g85168519_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84368441_) - (cons _g84358438_ _g84368441_)) + _g85178522_) + (cons _g85168519_ _g85178522_)) '() - _L8416_)) + _L8497_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (_g83358359_ _g83368363_))) - _clauses83538412_ - _hd83438380_)))))) + (_g84168440_ _g84178444_))) + _clauses84348493_ + _hd84248461_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop83488392_ - _target83458386_ + (_loop84298473_ + _target84268467_ '())) - (_g83358359_ _g83368363_))))) - (_g83358359_ _g83368363_)))) - (_g83358359_ _g83368363_)))) - (_g83358359_ _g83368363_))))) - (_g83348444_ _$stx8331_)))) + (_g84168440_ _g84178444_))))) + (_g84168440_ _g84178444_)))) + (_g84168440_ _g84178444_)))) + (_g84168440_ _g84178444_))))) + (_g84158525_ _$stx8412_)))) (define |gerbil/core$$[:0:]#defvalues| - (lambda (_$stx8449_) - (let* ((_g84538471_ - (lambda (_g84548467_) + (lambda (_$stx8530_) + (let* ((_g85348552_ + (lambda (_g85358548_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g84548467_))) - (_g84528526_ - (lambda (_g84548475_) - (if (gx#stx-pair? _g84548475_) - (let ((_e84598478_ (gx#syntax-e _g84548475_))) - (let ((_hd84588482_ + _g85358548_))) + (_g85338607_ + (lambda (_g85358556_) + (if (gx#stx-pair? _g85358556_) + (let ((_e85408559_ (gx#syntax-e _g85358556_))) + (let ((_hd85398563_ (let () (declare (not safe)) - (##car _e84598478_))) - (_tl84578485_ + (##car _e85408559_))) + (_tl85388566_ (let () (declare (not safe)) - (##cdr _e84598478_)))) - (if (gx#stx-pair? _tl84578485_) - (let ((_e84628488_ (gx#syntax-e _tl84578485_))) - (let ((_hd84618492_ + (##cdr _e85408559_)))) + (if (gx#stx-pair? _tl85388566_) + (let ((_e85438569_ (gx#syntax-e _tl85388566_))) + (let ((_hd85428573_ (let () (declare (not safe)) - (##car _e84628488_))) - (_tl84608495_ + (##car _e85438569_))) + (_tl85418576_ (let () (declare (not safe)) - (##cdr _e84628488_)))) - (if (gx#stx-pair? _tl84608495_) - (let ((_e84658498_ - (gx#syntax-e _tl84608495_))) - (let ((_hd84648502_ + (##cdr _e85438569_)))) + (if (gx#stx-pair? _tl85418576_) + (let ((_e85468579_ + (gx#syntax-e _tl85418576_))) + (let ((_hd85458583_ (let () (declare (not safe)) - (##car _e84658498_))) - (_tl84638505_ + (##car _e85468579_))) + (_tl85448586_ (let () (declare (not safe)) - (##cdr _e84658498_)))) - (if (gx#stx-null? _tl84638505_) - ((lambda (_L8508_ _L8510_) + (##cdr _e85468579_)))) + (if (gx#stx-null? _tl85448586_) + ((lambda (_L8589_ _L8591_) (if (gx#identifier-list? - _L8510_) + _L8591_) (cons (gx#datum->syntax '#f 'define-values) - (cons _L8510_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L8508_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g84538471_ - _g84548475_))) - _hd84648502_ - _hd84618492_) - (_g84538471_ _g84548475_)))) - (_g84538471_ _g84548475_)))) - (_g84538471_ _g84548475_)))) - (_g84538471_ _g84548475_))))) - (_g84528526_ _$stx8449_)))) + (cons _L8591_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _L8589_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g85348552_ + _g85358556_))) + _hd85458583_ + _hd85428573_) + (_g85348552_ _g85358556_)))) + (_g85348552_ _g85358556_)))) + (_g85348552_ _g85358556_)))) + (_g85348552_ _g85358556_))))) + (_g85338607_ _$stx8530_)))) (define |gerbil/core$$[:0:]#case| - (lambda (_$stx8530_) - (let* ((_g85348558_ - (lambda (_g85358554_) + (lambda (_$stx8611_) + (let* ((_g86158639_ + (lambda (_g86168635_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g85358554_))) - (_g85338643_ - (lambda (_g85358562_) - (if (gx#stx-pair? _g85358562_) - (let ((_e85408565_ (gx#syntax-e _g85358562_))) - (let ((_hd85398569_ + _g86168635_))) + (_g86148724_ + (lambda (_g86168643_) + (if (gx#stx-pair? _g86168643_) + (let ((_e86218646_ (gx#syntax-e _g86168643_))) + (let ((_hd86208650_ (let () (declare (not safe)) - (##car _e85408565_))) - (_tl85388572_ + (##car _e86218646_))) + (_tl86198653_ (let () (declare (not safe)) - (##cdr _e85408565_)))) - (if (gx#stx-pair? _tl85388572_) - (let ((_e85438575_ (gx#syntax-e _tl85388572_))) - (let ((_hd85428579_ + (##cdr _e86218646_)))) + (if (gx#stx-pair? _tl86198653_) + (let ((_e86248656_ (gx#syntax-e _tl86198653_))) + (let ((_hd86238660_ (let () (declare (not safe)) - (##car _e85438575_))) - (_tl85418582_ + (##car _e86248656_))) + (_tl86228663_ (let () (declare (not safe)) - (##cdr _e85438575_)))) - (if (gx#stx-pair/null? _tl85418582_) - (let ((_g42762_ + (##cdr _e86248656_)))) + (if (gx#stx-pair/null? _tl86228663_) + (let ((_g42652_ (gx#syntax-split-splice - _tl85418582_ + _tl86228663_ '0))) (begin - (let ((_g42763_ + (let ((_g42653_ (let () (declare (not safe)) - (if (##values? _g42762_) + (if (##values? _g42652_) (##vector-length - _g42762_) + _g42652_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42763_ 2))) + (##fx= _g42653_ 2))) (error "Context expects 2 values" - _g42763_))) - (let ((_target85448585_ + _g42653_))) + (let ((_target86258666_ (let () (declare (not safe)) - (##vector-ref _g42762_ 0))) - (_tl85468588_ + (##vector-ref _g42652_ 0))) + (_tl86278669_ (let () (declare (not safe)) - (##vector-ref _g42762_ 1)))) - (if (gx#stx-null? _tl85468588_) - (letrec ((_loop85478591_ - (lambda (_hd85458595_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause85518598_) - (if (gx#stx-pair? _hd85458595_) - (let ((_e85488601_ (gx#syntax-e _hd85458595_))) - (let ((_lp-hd85498605_ + (##vector-ref _g42652_ 1)))) + (if (gx#stx-null? _tl86278669_) + (letrec ((_loop86288672_ + (lambda (_hd86268676_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _clause86328679_) + (if (gx#stx-pair? _hd86268676_) + (let ((_e86298682_ (gx#syntax-e _hd86268676_))) + (let ((_lp-hd86308686_ (let () (declare (not safe)) - (##car _e85488601_))) - (_lp-tl85508608_ + (##car _e86298682_))) + (_lp-tl86318689_ (let () (declare (not safe)) - (##cdr _e85488601_)))) - (_loop85478591_ - _lp-tl85508608_ - (cons _lp-hd85498605_ _clause85518598_)))) - (let ((_clause85528611_ (reverse _clause85518598_))) - ((lambda (_L8615_ _L8617_) + (##cdr _e86298682_)))) + (_loop86288672_ + _lp-tl86318689_ + (cons _lp-hd86308686_ _clause86328679_)))) + (let ((_clause86338692_ (reverse _clause86328679_))) + ((lambda (_L8696_ _L8698_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _L8617_ '())) + (cons _L8698_ '())) (cons (cons (gx#datum->syntax '#f '~case) (cons (gx#datum->syntax '#f '$e) - (foldr (lambda (_g86348637_ + (foldr (lambda (_g87158718_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g86358640_) - (cons _g86348637_ _g86358640_)) + _g87168721_) + (cons _g87158718_ _g87168721_)) '() - _L8615_))) + _L8696_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _clause85528611_ - _hd85428579_)))))) + _clause86338692_ + _hd86238660_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop85478591_ - _target85448585_ + (_loop86288672_ + _target86258666_ '())) - (_g85348558_ _g85358562_))))) - (_g85348558_ _g85358562_)))) - (_g85348558_ _g85358562_)))) - (_g85348558_ _g85358562_))))) - (_g85338643_ _$stx8530_)))) + (_g86158639_ _g86168643_))))) + (_g86158639_ _g86168643_)))) + (_g86158639_ _g86168643_)))) + (_g86158639_ _g86168643_))))) + (_g86148724_ _$stx8611_)))) (define |gerbil/core$$[:0:]#~case| - (lambda (_stx8648_) - (letrec ((_parse-clauses8651_ - (lambda (_e11114_ _clauses11116_) - (let _lp11118_ ((_rest11121_ _clauses11116_) - (_datums11123_ '()) - (_dispatch11124_ '()) - (_default11125_ '#f)) - (let* ((___stx3840638407_ _rest11121_) - (_g1112811140_ + (lambda (_stx8729_) + (letrec ((_parse-clauses8732_ + (lambda (_e11195_ _clauses11197_) + (let _lp11199_ ((_rest11202_ _clauses11197_) + (_datums11204_ '()) + (_dispatch11205_ '()) + (_default11206_ '#f)) + (let* ((___stx3834038341_ _rest11202_) + (_g1120911221_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3840638407_)))) - (let ((___kont3840938410_ - (lambda (_L11172_ _L11174_) - (let* ((___stx3831038311_ _L11174_) - (_g1119211265_ + ___stx3834038341_)))) + (let ((___kont3834338344_ + (lambda (_L11253_ _L11255_) + (let* ((___stx3824438245_ _L11255_) + (_g1127311346_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3831038311_)))) - (let ((___kont3831338314_ - (lambda (_L11630_) - (if (gx#stx-null? _L11172_) - (let* ((_g1164511653_ - (lambda (_g1164611649_) + ___stx3824438245_)))) + (let ((___kont3824738248_ + (lambda (_L11711_) + (if (gx#stx-null? _L11253_) + (let* ((_g1172611734_ + (lambda (_g1172711730_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1164611649_))) - (_g1164411672_ - (lambda (_g1164611657_) - ((lambda (_L11660_) + _g1172711730_))) + (_g1172511753_ + (lambda (_g1172711738_) + ((lambda (_L11741_) (let () - (_lp11118_ + (_lp11199_ '() - _datums11123_ - _dispatch11124_ - (cons _L11630_ + _datums11204_ + _dispatch11205_ + (cons _L11711_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L11660_ '()))))) - _g1164611657_)))) + (cons _L11741_ '()))))) + _g1172711738_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1164411672_ _e11114_)) + (_g1172511753_ _e11195_)) (gx#raise-syntax-error '#f '"Misplaced else clause" - _stx8648_ - _L11174_)))) - (___kont3831538316_ - (lambda (_L11570_) - (if (gx#stx-null? _L11172_) - (_lp11118_ + _stx8729_ + _L11255_)))) + (___kont3824938250_ + (lambda (_L11651_) + (if (gx#stx-null? _L11253_) + (_lp11199_ '() - _datums11123_ - _dispatch11124_ + _datums11204_ + _dispatch11205_ (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_g1158411587_ + (foldr (lambda (_g1166511668_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1158511590_) - (cons _g1158411587_ _g1158511590_)) + _g1166611671_) + (cons _g1166511668_ _g1166611671_)) '() - _L11570_))) + _L11651_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"Misplaced else clause" - _stx8648_ - _L11174_)))) - (___kont3831938320_ - (lambda (_L11455_ _L11457_) - (if (null? (foldr (lambda (_g1147511478_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1147611481_) - (cons _g1147511478_ _g1147611481_)) + _stx8729_ + _L11255_)))) + (___kont3825338254_ + (lambda (_L11536_ _L11538_) + (if (null? (foldr (lambda (_g1155611559_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1155711562_) + (cons _g1155611559_ _g1155711562_)) '() - _L11457_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp11118_ - _L11172_ - _datums11123_ - _dispatch11124_ - _default11125_) - (let* ((_g1148411492_ - (lambda (_g1148511488_) + _L11538_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_lp11199_ + _L11253_ + _datums11204_ + _dispatch11205_ + _default11206_) + (let* ((_g1156511573_ + (lambda (_g1156611569_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1148511488_))) - (_g1148311519_ - (lambda (_g1148511496_) - ((lambda (_L11499_) + _g1156611569_))) + (_g1156411600_ + (lambda (_g1156611577_) + ((lambda (_L11580_) (let () - (_lp11118_ - _L11172_ + (_lp11199_ + _L11253_ (cons (map gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_g1151011513_ _g1151111516_) - (cons _g1151011513_ _g1151111516_)) + (foldr (lambda (_g1159111594_ _g1159211597_) + (cons _g1159111594_ _g1159211597_)) '() - _L11457_)) - _datums11123_) - (cons (cons _L11455_ (cons _L11499_ '())) - _dispatch11124_) - _default11125_))) - _g1148511496_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1148311519_ _e11114_))))) - (___kont3832338324_ - (lambda (_L11342_ _L11344_) - (if (null? (foldr (lambda (_g1136311366_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1136411369_) - (cons _g1136311366_ _g1136411369_)) + _L11538_)) + _datums11204_) + (cons (cons _L11536_ (cons _L11580_ '())) + _dispatch11205_) + _default11206_))) + _g1156611577_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1156411600_ _e11195_))))) + (___kont3825738258_ + (lambda (_L11423_ _L11425_) + (if (null? (foldr (lambda (_g1144411447_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1144511450_) + (cons _g1144411447_ _g1144511450_)) '() - _L11344_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp11118_ - _L11172_ - _datums11123_ - _dispatch11124_ - _default11125_) - (_lp11118_ - _L11172_ + _L11425_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_lp11199_ + _L11253_ + _datums11204_ + _dispatch11205_ + _default11206_) + (_lp11199_ + _L11253_ (cons (map gx#stx-e - (foldr (lambda (_g1137111374_ + (foldr (lambda (_g1145211455_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1137211377_) - (cons _g1137111374_ _g1137211377_)) + _g1145311458_) + (cons _g1145211455_ _g1145311458_)) '() - _L11344_)) - _datums11123_) + _L11425_)) + _datums11204_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_g1137911382_ + (foldr (lambda (_g1146011463_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1138011385_) - (cons _g1137911382_ _g1138011385_)) + _g1146111466_) + (cons _g1146011463_ _g1146111466_)) '() - _L11342_)) - _dispatch11124_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _default11125_))))) - (let* ((___match3840338404_ - (lambda (_e1124111272_ - _hd1124011276_ - _tl1123911279_ - ___splice3832538326_ - _target1124211282_ - _tl1124411285_) - (letrec ((_loop1124511288_ - (lambda (_hd1124311292_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _datum1124911295_) - (if (gx#stx-pair? _hd1124311292_) - (let ((_e1124611298_ (gx#syntax-e _hd1124311292_))) - (let ((_lp-tl1124811305_ + _L11423_)) + _dispatch11205_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _default11206_))))) + (let* ((___match3833738338_ + (lambda (_e1132211353_ + _hd1132111357_ + _tl1132011360_ + ___splice3825938260_ + _target1132311363_ + _tl1132511366_) + (letrec ((_loop1132611369_ + (lambda (_hd1132411373_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _datum1133011376_) + (if (gx#stx-pair? _hd1132411373_) + (let ((_e1132711379_ (gx#syntax-e _hd1132411373_))) + (let ((_lp-tl1132911386_ (let () (declare (not safe)) - (##cdr _e1124611298_))) - (_lp-hd1124711302_ + (##cdr _e1132711379_))) + (_lp-hd1132811383_ (let () (declare (not safe)) - (##car _e1124611298_)))) - (_loop1124511288_ - _lp-tl1124811305_ - (cons _lp-hd1124711302_ _datum1124911295_)))) - (let ((_datum1125011308_ (reverse _datum1124911295_))) - (if (gx#stx-pair/null? _tl1123911279_) - (let ((___splice3832738328_ + (##car _e1132711379_)))) + (_loop1132611369_ + _lp-tl1132911386_ + (cons _lp-hd1132811383_ _datum1133011376_)))) + (let ((_datum1133111389_ (reverse _datum1133011376_))) + (if (gx#stx-pair/null? _tl1132011360_) + (let ((___splice3826138262_ (gx#syntax-split-splice - _tl1123911279_ + _tl1132011360_ '0))) - (let ((_tl1125311315_ + (let ((_tl1133411396_ (let () (declare (not safe)) (##vector-ref - ___splice3832738328_ + ___splice3826138262_ '1))) - (_target1125111312_ + (_target1133211393_ (let () (declare (not safe)) (##vector-ref - ___splice3832738328_ + ___splice3826138262_ '0)))) - (if (gx#stx-null? _tl1125311315_) - (letrec ((_loop1125411318_ - (lambda (_hd1125211322_ - _body1125811325_) + (if (gx#stx-null? _tl1133411396_) + (letrec ((_loop1133511399_ + (lambda (_hd1133311403_ + _body1133911406_) (if (gx#stx-pair? - _hd1125211322_) - (let ((_e1125511328_ + _hd1133311403_) + (let ((_e1133611409_ (gx#syntax-e - _hd1125211322_))) - (let ((_lp-tl1125711335_ + _hd1133311403_))) + (let ((_lp-tl1133811416_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e1125511328_))) - (_lp-hd1125611332_ - (let () (declare (not safe)) (##car _e1125511328_)))) - (_loop1125411318_ - _lp-tl1125711335_ - (cons _lp-hd1125611332_ _body1125811325_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body1125911338_ - (reverse _body1125811325_))) - (___kont3832338324_ - _body1125911338_ - _datum1125011308_)))))) - (_loop1125411318_ - _target1125111312_ + (##cdr _e1133611409_))) + (_lp-hd1133711413_ + (let () (declare (not safe)) (##car _e1133611409_)))) + (_loop1133511399_ + _lp-tl1133811416_ + (cons _lp-hd1133711413_ _body1133911406_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_body1134011419_ + (reverse _body1133911406_))) + (___kont3825738258_ + _body1134011419_ + _datum1133111389_)))))) + (_loop1133511399_ + _target1133211393_ '())) (let () (declare (not safe)) - (_g1119211265_))))) + (_g1127311346_))))) (let () (declare (not safe)) - (_g1119211265_)))))))) + (_g1127311346_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1124511288_ - _target1124211282_ + (_loop1132611369_ + _target1132311363_ '())))) - (___match3838938390_ - (lambda (_e1122111395_ - _hd1122011399_ - _tl1121911402_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) - (letrec ((_loop1122511411_ - (lambda (_hd1122311415_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _datum1122911418_) - (if (gx#stx-pair? _hd1122311415_) - (let ((_e1122611421_ (gx#syntax-e _hd1122311415_))) - (let ((_lp-tl1122811428_ + (___match3832338324_ + (lambda (_e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) + (letrec ((_loop1130611492_ + (lambda (_hd1130411496_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _datum1131011499_) + (if (gx#stx-pair? _hd1130411496_) + (let ((_e1130711502_ (gx#syntax-e _hd1130411496_))) + (let ((_lp-tl1130911509_ (let () (declare (not safe)) - (##cdr _e1122611421_))) - (_lp-hd1122711425_ + (##cdr _e1130711502_))) + (_lp-hd1130811506_ (let () (declare (not safe)) - (##car _e1122611421_)))) - (_loop1122511411_ - _lp-tl1122811428_ - (cons _lp-hd1122711425_ _datum1122911418_)))) - (let ((_datum1123011431_ (reverse _datum1122911418_))) - (if (gx#stx-pair? _tl1121911402_) - (let ((_e1123311435_ - (gx#syntax-e _tl1121911402_))) - (let ((_tl1123111442_ + (##car _e1130711502_)))) + (_loop1130611492_ + _lp-tl1130911509_ + (cons _lp-hd1130811506_ _datum1131011499_)))) + (let ((_datum1131111512_ (reverse _datum1131011499_))) + (if (gx#stx-pair? _tl1130011483_) + (let ((_e1131411516_ + (gx#syntax-e _tl1130011483_))) + (let ((_tl1131211523_ (let () (declare (not safe)) - (##cdr _e1123311435_))) - (_hd1123211439_ + (##cdr _e1131411516_))) + (_hd1131311520_ (let () (declare (not safe)) - (##car _e1123311435_)))) - (if (gx#identifier? _hd1123211439_) + (##car _e1131411516_)))) + (if (gx#identifier? _hd1131311520_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42764_| - _hd1123211439_) - (if (gx#stx-pair? _tl1123111442_) - (let ((_e1123611445_ + |gerbil/core$$[1]#_g42654_| + _hd1131311520_) + (if (gx#stx-pair? _tl1131211523_) + (let ((_e1131711526_ (gx#syntax-e - _tl1123111442_))) - (let ((_tl1123411452_ + _tl1131211523_))) + (let ((_tl1131511533_ (let () (declare (not safe)) - (##cdr _e1123611445_))) - (_hd1123511449_ + (##cdr _e1131711526_))) + (_hd1131611530_ (let () (declare (not safe)) - (##car _e1123611445_)))) + (##car _e1131711526_)))) (if (gx#stx-null? - _tl1123411452_) - (___kont3831938320_ - _hd1123511449_ - _datum1123011431_) - (___match3840338404_ - _e1122111395_ - _hd1122011399_ - _tl1121911402_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_)))) - (___match3840338404_ - _e1122111395_ - _hd1122011399_ - _tl1121911402_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_)) - (___match3840338404_ - _e1122111395_ - _hd1122011399_ - _tl1121911402_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_)) - (___match3840338404_ - _e1122111395_ - _hd1122011399_ - _tl1121911402_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_)))) - (___match3840338404_ - _e1122111395_ - _hd1122011399_ - _tl1121911402_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1122511411_ - _target1122211405_ + _tl1131511533_) + (___kont3825338254_ + _hd1131611530_ + _datum1131111512_) + (___match3833738338_ + _e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_)))) + (___match3833738338_ + _e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_)) + (___match3833738338_ + _e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_)) + (___match3833738338_ + _e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_)))) + (___match3833738338_ + _e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1130611492_ + _target1130311486_ '())))) - (___match3837538376_ - (lambda (_e1120711530_ - _hd1120611534_ - _tl1120511537_ - ___splice3831738318_ - _target1120811540_ - _tl1121011543_) - (letrec ((_loop1121111546_ - (lambda (_hd1120911550_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body1121511553_) - (if (gx#stx-pair? _hd1120911550_) - (let ((_e1121211556_ (gx#syntax-e _hd1120911550_))) - (let ((_lp-tl1121411563_ + (___match3830938310_ + (lambda (_e1128811611_ + _hd1128711615_ + _tl1128611618_ + ___splice3825138252_ + _target1128911621_ + _tl1129111624_) + (letrec ((_loop1129211627_ + (lambda (_hd1129011631_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _body1129611634_) + (if (gx#stx-pair? _hd1129011631_) + (let ((_e1129311637_ (gx#syntax-e _hd1129011631_))) + (let ((_lp-tl1129511644_ (let () (declare (not safe)) - (##cdr _e1121211556_))) - (_lp-hd1121311560_ + (##cdr _e1129311637_))) + (_lp-hd1129411641_ (let () (declare (not safe)) - (##car _e1121211556_)))) - (_loop1121111546_ - _lp-tl1121411563_ - (cons _lp-hd1121311560_ _body1121511553_)))) - (let ((_body1121611566_ (reverse _body1121511553_))) - (___kont3831538316_ _body1121611566_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1121111546_ - _target1120811540_ + (##car _e1129311637_)))) + (_loop1129211627_ + _lp-tl1129511644_ + (cons _lp-hd1129411641_ _body1129611634_)))) + (let ((_body1129711647_ (reverse _body1129611634_))) + (___kont3824938250_ _body1129711647_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1129211627_ + _target1128911621_ '()))))) - (if (gx#stx-pair? ___stx3831038311_) - (let ((_e1119711600_ + (if (gx#stx-pair? ___stx3824438245_) + (let ((_e1127811681_ (gx#syntax-e - ___stx3831038311_))) - (let ((_tl1119511607_ + ___stx3824438245_))) + (let ((_tl1127611688_ (let () (declare (not safe)) - (##cdr _e1119711600_))) - (_hd1119611604_ + (##cdr _e1127811681_))) + (_hd1127711685_ (let () (declare (not safe)) - (##car _e1119711600_)))) + (##car _e1127811681_)))) (if (gx#identifier? - _hd1119611604_) + _hd1127711685_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42766_| - _hd1119611604_) + |gerbil/core$$[1]#_g42656_| + _hd1127711685_) (if (gx#stx-pair? - _tl1119511607_) - (let ((_e1120011610_ + _tl1127611688_) + (let ((_e1128111691_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1119511607_))) - (let ((_tl1119811617_ + (gx#syntax-e _tl1127611688_))) + (let ((_tl1127911698_ (let () (declare (not safe)) - (##cdr _e1120011610_))) - (_hd1119911614_ + (##cdr _e1128111691_))) + (_hd1128011695_ (let () (declare (not safe)) - (##car _e1120011610_)))) - (if (gx#identifier? _hd1119911614_) + (##car _e1128111691_)))) + (if (gx#identifier? _hd1128011695_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42765_| - _hd1119911614_) - (if (gx#stx-pair? _tl1119811617_) - (let ((_e1120311620_ - (gx#syntax-e _tl1119811617_))) - (let ((_tl1120111627_ + |gerbil/core$$[1]#_g42655_| + _hd1128011695_) + (if (gx#stx-pair? _tl1127911698_) + (let ((_e1128411701_ + (gx#syntax-e _tl1127911698_))) + (let ((_tl1128211708_ (let () (declare (not safe)) - (##cdr _e1120311620_))) - (_hd1120211624_ + (##cdr _e1128411701_))) + (_hd1128311705_ (let () (declare (not safe)) - (##car _e1120311620_)))) - (if (gx#stx-null? _tl1120111627_) - (___kont3831338314_ _hd1120211624_) + (##car _e1128411701_)))) + (if (gx#stx-null? _tl1128211708_) + (___kont3824738248_ _hd1128311705_) (if (gx#stx-pair/null? - _tl1119511607_) - (let ((___splice3831738318_ + _tl1127611688_) + (let ((___splice3825138252_ (gx#syntax-split-splice - _tl1119511607_ + _tl1127611688_ '0))) - (let ((_tl1121011543_ + (let ((_tl1129111624_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3825138252_ '1))) - (_target1120811540_ + (_target1128911621_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3825138252_ '0)))) (if (gx#stx-null? - _tl1121011543_) - (___match3837538376_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3831738318_ - _target1120811540_ - _tl1121011543_) + _tl1129111624_) + (___match3830938310_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825138252_ + _target1128911621_ + _tl1129111624_) (if (gx#stx-pair/null? - _hd1119611604_) - (let ((___splice3832138322_ + _hd1127711685_) + (let ((___splice3825538256_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _hd1119611604_ '0))) - (let ((_tl1122411408_ + (gx#syntax-split-splice _hd1127711685_ '0))) + (let ((_tl1130511489_ (let () (declare (not safe)) - (##vector-ref ___splice3832138322_ '1))) - (_target1122211405_ + (##vector-ref ___splice3825538256_ '1))) + (_target1130311486_ (let () (declare (not safe)) - (##vector-ref ___splice3832138322_ '0)))) - (if (gx#stx-null? _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) - (let () (declare (not safe)) (_g1119211265_))))) - (let () (declare (not safe)) (_g1119211265_)))))) + (##vector-ref ___splice3825538256_ '0)))) + (if (gx#stx-null? _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) + (let () (declare (not safe)) (_g1127311346_))))) + (let () (declare (not safe)) (_g1127311346_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _hd1119611604_) - (let ((___splice3832138322_ + _hd1127711685_) + (let ((___splice3825538256_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '0)))) (if (gx#stx-null? - _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) (let () (declare (not safe)) - (_g1119211265_))))) + (_g1127311346_))))) (let () (declare (not safe)) - (_g1119211265_))))))) - (if (gx#stx-pair/null? _tl1119511607_) - (let ((___splice3831738318_ + (_g1127311346_))))))) + (if (gx#stx-pair/null? _tl1127611688_) + (let ((___splice3825138252_ (gx#syntax-split-splice - _tl1119511607_ + _tl1127611688_ '0))) - (let ((_tl1121011543_ + (let ((_tl1129111624_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3825138252_ '1))) - (_target1120811540_ + (_target1128911621_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3825138252_ '0)))) - (if (gx#stx-null? _tl1121011543_) - (___match3837538376_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3831738318_ - _target1120811540_ - _tl1121011543_) + (if (gx#stx-null? _tl1129111624_) + (___match3830938310_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825138252_ + _target1128911621_ + _tl1129111624_) (if (gx#stx-pair/null? - _hd1119611604_) - (let ((___splice3832138322_ + _hd1127711685_) + (let ((___splice3825538256_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '0)))) (if (gx#stx-null? - _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) (let () (declare (not safe)) - (_g1119211265_))))) + (_g1127311346_))))) (let () (declare (not safe)) - (_g1119211265_)))))) - (if (gx#stx-pair/null? _hd1119611604_) - (let ((___splice3832138322_ + (_g1127311346_)))))) + (if (gx#stx-pair/null? _hd1127711685_) + (let ((___splice3825538256_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '0)))) (if (gx#stx-null? - _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) (let () (declare (not safe)) - (_g1119211265_))))) + (_g1127311346_))))) (let () (declare (not safe)) - (_g1119211265_))))) - (if (gx#stx-pair/null? _tl1119511607_) - (let ((___splice3831738318_ + (_g1127311346_))))) + (if (gx#stx-pair/null? _tl1127611688_) + (let ((___splice3825138252_ (gx#syntax-split-splice - _tl1119511607_ + _tl1127611688_ '0))) - (let ((_tl1121011543_ + (let ((_tl1129111624_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3825138252_ '1))) - (_target1120811540_ + (_target1128911621_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3825138252_ '0)))) - (if (gx#stx-null? _tl1121011543_) - (___match3837538376_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3831738318_ - _target1120811540_ - _tl1121011543_) + (if (gx#stx-null? _tl1129111624_) + (___match3830938310_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825138252_ + _target1128911621_ + _tl1129111624_) (if (gx#stx-pair/null? - _hd1119611604_) - (let ((___splice3832138322_ + _hd1127711685_) + (let ((___splice3825538256_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '0)))) (if (gx#stx-null? - _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) (let () (declare (not safe)) - (_g1119211265_))))) + (_g1127311346_))))) (let () (declare (not safe)) - (_g1119211265_)))))) - (if (gx#stx-pair/null? _hd1119611604_) - (let ((___splice3832138322_ + (_g1127311346_)))))) + (if (gx#stx-pair/null? _hd1127711685_) + (let ((___splice3825538256_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '0)))) - (if (gx#stx-null? _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + (if (gx#stx-null? _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) (let () (declare (not safe)) - (_g1119211265_))))) + (_g1127311346_))))) (let () (declare (not safe)) - (_g1119211265_))))) - (if (gx#stx-pair/null? _tl1119511607_) - (let ((___splice3831738318_ + (_g1127311346_))))) + (if (gx#stx-pair/null? _tl1127611688_) + (let ((___splice3825138252_ (gx#syntax-split-splice - _tl1119511607_ + _tl1127611688_ '0))) - (let ((_tl1121011543_ + (let ((_tl1129111624_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3825138252_ '1))) - (_target1120811540_ + (_target1128911621_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3825138252_ '0)))) - (if (gx#stx-null? _tl1121011543_) - (___match3837538376_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3831738318_ - _target1120811540_ - _tl1121011543_) - (if (gx#stx-pair/null? _hd1119611604_) - (let ((___splice3832138322_ + (if (gx#stx-null? _tl1129111624_) + (___match3830938310_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825138252_ + _target1128911621_ + _tl1129111624_) + (if (gx#stx-pair/null? _hd1127711685_) + (let ((___splice3825538256_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '0)))) (if (gx#stx-null? - _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) (let () (declare (not safe)) - (_g1119211265_))))) + (_g1127311346_))))) (let () (declare (not safe)) - (_g1119211265_)))))) - (if (gx#stx-pair/null? _hd1119611604_) - (let ((___splice3832138322_ + (_g1127311346_)))))) + (if (gx#stx-pair/null? _hd1127711685_) + (let ((___splice3825538256_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '0)))) - (if (gx#stx-null? _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + (if (gx#stx-null? _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) (let () (declare (not safe)) - (_g1119211265_))))) + (_g1127311346_))))) (let () (declare (not safe)) - (_g1119211265_))))))) - (if (gx#stx-pair/null? _tl1119511607_) - (let ((___splice3831738318_ - (gx#syntax-split-splice _tl1119511607_ '0))) - (let ((_tl1121011543_ + (_g1127311346_))))))) + (if (gx#stx-pair/null? _tl1127611688_) + (let ((___splice3825138252_ + (gx#syntax-split-splice _tl1127611688_ '0))) + (let ((_tl1129111624_ (let () (declare (not safe)) - (##vector-ref ___splice3831738318_ '1))) - (_target1120811540_ + (##vector-ref ___splice3825138252_ '1))) + (_target1128911621_ (let () (declare (not safe)) - (##vector-ref ___splice3831738318_ '0)))) - (if (gx#stx-null? _tl1121011543_) - (___match3837538376_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3831738318_ - _target1120811540_ - _tl1121011543_) - (if (gx#stx-pair/null? _hd1119611604_) - (let ((___splice3832138322_ + (##vector-ref ___splice3825138252_ '0)))) + (if (gx#stx-null? _tl1129111624_) + (___match3830938310_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825138252_ + _target1128911621_ + _tl1129111624_) + (if (gx#stx-pair/null? _hd1127711685_) + (let ((___splice3825538256_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3825538256_ '0)))) - (if (gx#stx-null? _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + (if (gx#stx-null? _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) (let () (declare (not safe)) - (_g1119211265_))))) + (_g1127311346_))))) (let () (declare (not safe)) - (_g1119211265_)))))) - (if (gx#stx-pair/null? _hd1119611604_) - (let ((___splice3832138322_ - (gx#syntax-split-splice _hd1119611604_ '0))) - (let ((_tl1122411408_ + (_g1127311346_)))))) + (if (gx#stx-pair/null? _hd1127711685_) + (let ((___splice3825538256_ + (gx#syntax-split-splice _hd1127711685_ '0))) + (let ((_tl1130511489_ (let () (declare (not safe)) - (##vector-ref ___splice3832138322_ '1))) - (_target1122211405_ + (##vector-ref ___splice3825538256_ '1))) + (_target1130311486_ (let () (declare (not safe)) - (##vector-ref ___splice3832138322_ '0)))) - (if (gx#stx-null? _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + (##vector-ref ___splice3825538256_ '0)))) + (if (gx#stx-null? _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) (let () (declare (not safe)) - (_g1119211265_))))) - (let () (declare (not safe)) (_g1119211265_))))) - (if (gx#stx-pair/null? _hd1119611604_) - (let ((___splice3832138322_ - (gx#syntax-split-splice _hd1119611604_ '0))) - (let ((_tl1122411408_ + (_g1127311346_))))) + (let () (declare (not safe)) (_g1127311346_))))) + (if (gx#stx-pair/null? _hd1127711685_) + (let ((___splice3825538256_ + (gx#syntax-split-splice _hd1127711685_ '0))) + (let ((_tl1130511489_ (let () (declare (not safe)) - (##vector-ref ___splice3832138322_ '1))) - (_target1122211405_ + (##vector-ref ___splice3825538256_ '1))) + (_target1130311486_ (let () (declare (not safe)) - (##vector-ref ___splice3832138322_ '0)))) - (if (gx#stx-null? _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) - (let () (declare (not safe)) (_g1119211265_))))) - (let () (declare (not safe)) (_g1119211265_)))) + (##vector-ref ___splice3825538256_ '0)))) + (if (gx#stx-null? _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) + (let () (declare (not safe)) (_g1127311346_))))) + (let () (declare (not safe)) (_g1127311346_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _hd1119611604_) - (let ((___splice3832138322_ + _hd1127711685_) + (let ((___splice3825538256_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice3832138322_ '1))) - (_target1122211405_ + (##vector-ref ___splice3825538256_ '1))) + (_target1130311486_ (let () (declare (not safe)) - (##vector-ref ___splice3832138322_ '0)))) - (if (gx#stx-null? _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) - (let () (declare (not safe)) (_g1119211265_))))) - (let () (declare (not safe)) (_g1119211265_)))))) + (##vector-ref ___splice3825538256_ '0)))) + (if (gx#stx-null? _tl1130511489_) + (___match3832338324_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3825538256_ + _target1130311486_ + _tl1130511489_) + (let () (declare (not safe)) (_g1127311346_))))) + (let () (declare (not safe)) (_g1127311346_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1119211265_)))))))) - (___kont3841138412_ + (_g1127311346_)))))))) + (___kont3834538346_ (lambda () - (_check-duplicate-datums8653_ _datums11123_) - (values (reverse _datums11123_) - (reverse _dispatch11124_) - (let ((_$e11151_ _default11125_)) - (if _$e11151_ - _$e11151_ + (_check-duplicate-datums8734_ _datums11204_) + (values (reverse _datums11204_) + (reverse _dispatch11205_) + (let ((_$e11232_ _default11206_)) + (if _$e11232_ + _$e11232_ '#!void)))))) - (let ((_g1112711155_ + (let ((_g1120811236_ (lambda () - (if (gx#stx-null? ___stx3840638407_) - (___kont3841138412_) + (if (gx#stx-null? ___stx3834038341_) + (___kont3834538346_) (let () (declare (not safe)) - (_g1112811140_)))))) - (if (gx#stx-pair? ___stx3840638407_) - (let ((_e1113411162_ - (gx#syntax-e ___stx3840638407_))) - (let ((_tl1113211169_ + (_g1120911221_)))))) + (if (gx#stx-pair? ___stx3834038341_) + (let ((_e1121511243_ + (gx#syntax-e ___stx3834038341_))) + (let ((_tl1121311250_ (let () (declare (not safe)) - (##cdr _e1113411162_))) - (_hd1113311166_ + (##cdr _e1121511243_))) + (_hd1121411247_ (let () (declare (not safe)) - (##car _e1113411162_)))) - (___kont3840938410_ - _tl1113211169_ - _hd1113311166_))) + (##car _e1121511243_)))) + (___kont3834338344_ + _tl1121311250_ + _hd1121411247_))) (let () (declare (not safe)) - (_g1112711155_))))))))) - (_check-duplicate-datums8653_ - (lambda (_datums11102_) - (let ((_ht11105_ (make-hash-table))) + (_g1120811236_))))))))) + (_check-duplicate-datums8734_ + (lambda (_datums11183_) + (let ((_ht11186_ (make-hash-table))) (for-each - (lambda (_lst11108_) + (lambda (_lst11189_) (for-each - (lambda (_datum11111_) - (if (hash-get _ht11105_ _datum11111_) + (lambda (_datum11192_) + (if (hash-get _ht11186_ _datum11192_) (gx#raise-syntax-error '#f '"Duplicate datum" - _stx8648_ - _datum11111_) - (hash-put! _ht11105_ _datum11111_ '#t))) - _lst11108_)) - _datums11102_)))) - (_count-datums8654_ - (lambda (_datums11095_) - (foldl (lambda (_lst11098_ _r11100_) - (+ (length _lst11098_) _r11100_)) + _stx8729_ + _datum11192_) + (hash-put! _ht11186_ _datum11192_ '#t))) + _lst11189_)) + _datums11183_)))) + (_count-datums8735_ + (lambda (_datums11176_) + (foldl (lambda (_lst11179_ _r11181_) + (+ (length _lst11179_) _r11181_)) '0 - _datums11095_))) - (_symbolic-datums?8655_ - (lambda (_datums11089_) - (andmap (lambda (_lst11092_) (andmap symbol? _lst11092_)) - _datums11089_))) - (_char-datums?8656_ - (lambda (_datums11083_) - (andmap (lambda (_lst11086_) (andmap char? _lst11086_)) - _datums11083_))) - (_fixnum-datums?8657_ - (lambda (_datums11077_) - (andmap (lambda (_lst11080_) (andmap fixnum? _lst11080_)) - _datums11077_))) - (_eq-datums?8658_ - (lambda (_datums11060_) - (andmap (lambda (_lst11063_) - (andmap (lambda (_x11066_) - (let ((_$e11069_ (symbol? _x11066_))) - (if _$e11069_ - _$e11069_ - (let ((_$e11073_ - (keyword? _x11066_))) - (if _$e11073_ - _$e11073_ - (immediate? _x11066_)))))) - _lst11063_)) - _datums11060_))) - (_generate-simple-case8659_ - (lambda (_e10824_ - _datums10826_ - _dispatch10827_ - _default10828_) - (let* ((_g1083010838_ - (lambda (_g1083110834_) + _datums11176_))) + (_symbolic-datums?8736_ + (lambda (_datums11170_) + (andmap (lambda (_lst11173_) (andmap symbol? _lst11173_)) + _datums11170_))) + (_char-datums?8737_ + (lambda (_datums11164_) + (andmap (lambda (_lst11167_) (andmap char? _lst11167_)) + _datums11164_))) + (_fixnum-datums?8738_ + (lambda (_datums11158_) + (andmap (lambda (_lst11161_) (andmap fixnum? _lst11161_)) + _datums11158_))) + (_eq-datums?8739_ + (lambda (_datums11141_) + (andmap (lambda (_lst11144_) + (andmap (lambda (_x11147_) + (let ((_$e11150_ (symbol? _x11147_))) + (if _$e11150_ + _$e11150_ + (let ((_$e11154_ + (keyword? _x11147_))) + (if _$e11154_ + _$e11154_ + (immediate? _x11147_)))))) + _lst11144_)) + _datums11141_))) + (_generate-simple-case8740_ + (lambda (_e10905_ + _datums10907_ + _dispatch10908_ + _default10909_) + (let* ((_g1091110919_ + (lambda (_g1091210915_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1083110834_))) - (_g1082911056_ - (lambda (_g1083110842_) - ((lambda (_L10845_) + _g1091210915_))) + (_g1091011137_ + (lambda (_g1091210923_) + ((lambda (_L10926_) (let () - (let _recur10857_ ((_datums10860_ - _datums10826_) - (_dispatch10862_ - _dispatch10827_)) - (let* ((___stx3842438425_ _datums10860_) - (_g1086510886_ + (let _recur10938_ ((_datums10941_ + _datums10907_) + (_dispatch10943_ + _dispatch10908_)) + (let* ((___stx3835838359_ _datums10941_) + (_g1094610967_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3842438425_)))) - (let ((___kont3842738428_ - (lambda (_L10944_ _L10946_) - (let* ((_g1096610978_ - (lambda (_g1096710974_) + ___stx3835838359_)))) + (let ((___kont3836138362_ + (lambda (_L11025_ _L11027_) + (let* ((_g1104711059_ + (lambda (_g1104811055_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1096710974_))) - (_g1096511048_ - (lambda (_g1096710982_) + _g1104811055_))) + (_g1104611129_ + (lambda (_g1104811063_) (if (gx#stx-pair? - _g1096710982_) - (let ((_e1097210985_ + _g1104811063_) + (let ((_e1105311066_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1096710982_))) - (let ((_hd1097110989_ + (gx#syntax-e _g1104811063_))) + (let ((_hd1105211070_ (let () (declare (not safe)) - (##car _e1097210985_))) - (_tl1097010992_ + (##car _e1105311066_))) + (_tl1105111073_ (let () (declare (not safe)) - (##cdr _e1097210985_)))) - ((lambda (_L10995_ _L10997_) - (let* ((_g1100911017_ - (lambda (_g1101011013_) + (##cdr _e1105311066_)))) + ((lambda (_L11076_ _L11078_) + (let* ((_g1109011098_ + (lambda (_g1109111094_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1101011013_))) - (_g1100811044_ - (lambda (_g1101011021_) - ((lambda (_L11024_) + _g1109111094_))) + (_g1108911125_ + (lambda (_g1109111102_) + ((lambda (_L11105_) (let () (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_g1103511038_ + (foldr (lambda (_g1111611119_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1103611041_) + _g1111711122_) (cons (cons (gx#datum->syntax '#f '~case-test) - (cons _g1103511038_ - (cons _L10845_ '()))) - _g1103611041_)) + (cons _g1111611119_ + (cons _L10926_ '()))) + _g1111711122_)) '() - _L10946_)) - (cons _L10997_ (cons _L11024_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1101011021_)))) - (_g1100811044_ - (_recur10857_ _L10944_ _L10995_)))) - _tl1097010992_ - _hd1097110989_))) - (_g1096610978_ _g1096710982_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1096511048_ - _dispatch10862_)))) - (___kont3843138432_ - (lambda () _default10828_))) - (let ((___match3844738448_ - (lambda (_e1087110904_ - _hd1087010908_ - _tl1086910911_ - ___splice3842938430_ - _target1087210914_ - _tl1087410917_) - (letrec ((_loop1087510920_ - (lambda (_hd1087310924_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _datum1087910927_) - (if (gx#stx-pair? _hd1087310924_) - (let ((_e1087610930_ (gx#syntax-e _hd1087310924_))) - (let ((_lp-tl1087810937_ + _L11027_)) + (cons _L11078_ (cons _L11105_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1109111102_)))) + (_g1108911125_ + (_recur10938_ _L11025_ _L11076_)))) + _tl1105111073_ + _hd1105211070_))) + (_g1104711059_ _g1104811063_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1104611129_ + _dispatch10943_)))) + (___kont3836538366_ + (lambda () _default10909_))) + (let ((___match3838138382_ + (lambda (_e1095210985_ + _hd1095110989_ + _tl1095010992_ + ___splice3836338364_ + _target1095310995_ + _tl1095510998_) + (letrec ((_loop1095611001_ + (lambda (_hd1095411005_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _datum1096011008_) + (if (gx#stx-pair? _hd1095411005_) + (let ((_e1095711011_ (gx#syntax-e _hd1095411005_))) + (let ((_lp-tl1095911018_ (let () (declare (not safe)) - (##cdr _e1087610930_))) - (_lp-hd1087710934_ + (##cdr _e1095711011_))) + (_lp-hd1095811015_ (let () (declare (not safe)) - (##car _e1087610930_)))) - (_loop1087510920_ - _lp-tl1087810937_ - (cons _lp-hd1087710934_ _datum1087910927_)))) - (let ((_datum1088010940_ - (reverse _datum1087910927_))) - (___kont3842738428_ - _tl1086910911_ - _datum1088010940_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1087510920_ - _target1087210914_ + (##car _e1095711011_)))) + (_loop1095611001_ + _lp-tl1095911018_ + (cons _lp-hd1095811015_ _datum1096011008_)))) + (let ((_datum1096111021_ + (reverse _datum1096011008_))) + (___kont3836138362_ + _tl1095010992_ + _datum1096111021_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1095611001_ + _target1095310995_ '()))))) - (if (gx#stx-pair? ___stx3842438425_) - (let ((_e1087110904_ + (if (gx#stx-pair? ___stx3835838359_) + (let ((_e1095210985_ (gx#syntax-e - ___stx3842438425_))) - (let ((_tl1086910911_ + ___stx3835838359_))) + (let ((_tl1095010992_ (let () (declare (not safe)) - (##cdr _e1087110904_))) - (_hd1087010908_ + (##cdr _e1095210985_))) + (_hd1095110989_ (let () (declare (not safe)) - (##car _e1087110904_)))) + (##car _e1095210985_)))) (if (gx#stx-pair/null? - _hd1087010908_) - (let ((___splice3842938430_ + _hd1095110989_) + (let ((___splice3836338364_ (gx#syntax-split-splice - _hd1087010908_ + _hd1095110989_ '0))) - (let ((_tl1087410917_ + (let ((_tl1095510998_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice3842938430_ '1))) - (_target1087210914_ + (##vector-ref ___splice3836338364_ '1))) + (_target1095310995_ (let () (declare (not safe)) - (##vector-ref ___splice3842938430_ '0)))) - (if (gx#stx-null? _tl1087410917_) - (___match3844738448_ - _e1087110904_ - _hd1087010908_ - _tl1086910911_ - ___splice3842938430_ - _target1087210914_ - _tl1087410917_) - (___kont3843138432_)))) - (___kont3843138432_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3843138432_)))))))) - _g1083110842_)))) - (_g1082911056_ _e10824_)))) - (_datum-dispatch-index8660_ - (lambda (_datums10696_) - (let _lp10699_ ((_rest10702_ _datums10696_) - (_ix10704_ '0) - (_r10705_ '())) - (let* ((___stx3845038451_ _rest10702_) - (_g1070810729_ + (##vector-ref ___splice3836338364_ '0)))) + (if (gx#stx-null? _tl1095510998_) + (___match3838138382_ + _e1095210985_ + _hd1095110989_ + _tl1095010992_ + ___splice3836338364_ + _target1095310995_ + _tl1095510998_) + (___kont3836538366_)))) + (___kont3836538366_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3836538366_)))))))) + _g1091210923_)))) + (_g1091011137_ _e10905_)))) + (_datum-dispatch-index8741_ + (lambda (_datums10777_) + (let _lp10780_ ((_rest10783_ _datums10777_) + (_ix10785_ '0) + (_r10786_ '())) + (let* ((___stx3838438385_ _rest10783_) + (_g1078910810_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3845038451_)))) - (let ((___kont3845338454_ - (lambda (_L10787_ _L10789_) - (_lp10699_ - _L10787_ - (fx1+ _ix10704_) - (foldl (lambda (_x10808_ _r10810_) - (cons (cons _x10808_ _ix10704_) - _r10810_)) - _r10705_ - (foldr (lambda (_g1081110814_ - _g1081210817_) - (cons _g1081110814_ - _g1081210817_)) + ___stx3838438385_)))) + (let ((___kont3838738388_ + (lambda (_L10868_ _L10870_) + (_lp10780_ + _L10868_ + (fx1+ _ix10785_) + (foldl (lambda (_x10889_ _r10891_) + (cons (cons _x10889_ _ix10785_) + _r10891_)) + _r10786_ + (foldr (lambda (_g1089210895_ + _g1089310898_) + (cons _g1089210895_ + _g1089310898_)) '() - _L10789_))))) - (___kont3845738458_ (lambda () _r10705_))) - (let ((___match3847338474_ - (lambda (_e1071410747_ - _hd1071310751_ - _tl1071210754_ - ___splice3845538456_ - _target1071510757_ - _tl1071710760_) - (letrec ((_loop1071810763_ - (lambda (_hd1071610767_ - _datum1072210770_) + _L10870_))))) + (___kont3839138392_ (lambda () _r10786_))) + (let ((___match3840738408_ + (lambda (_e1079510828_ + _hd1079410832_ + _tl1079310835_ + ___splice3838938390_ + _target1079610838_ + _tl1079810841_) + (letrec ((_loop1079910844_ + (lambda (_hd1079710848_ + _datum1080310851_) (if (gx#stx-pair? - _hd1071610767_) - (let ((_e1071910773_ + _hd1079710848_) + (let ((_e1080010854_ (gx#syntax-e - _hd1071610767_))) - (let ((_lp-tl1072110780_ + _hd1079710848_))) + (let ((_lp-tl1080210861_ (let () (declare (not safe)) - (##cdr _e1071910773_))) - (_lp-hd1072010777_ + (##cdr _e1080010854_))) + (_lp-hd1080110858_ (let () (declare (not safe)) - (##car _e1071910773_)))) - (_loop1071810763_ - _lp-tl1072110780_ - (cons _lp-hd1072010777_ - _datum1072210770_)))) - (let ((_datum1072310783_ - (reverse _datum1072210770_))) - (___kont3845338454_ - _tl1071210754_ - _datum1072310783_)))))) - (_loop1071810763_ - _target1071510757_ + (##car _e1080010854_)))) + (_loop1079910844_ + _lp-tl1080210861_ + (cons _lp-hd1080110858_ + _datum1080310851_)))) + (let ((_datum1080410864_ + (reverse _datum1080310851_))) + (___kont3838738388_ + _tl1079310835_ + _datum1080410864_)))))) + (_loop1079910844_ + _target1079610838_ '()))))) - (if (gx#stx-pair? ___stx3845038451_) - (let ((_e1071410747_ - (gx#syntax-e ___stx3845038451_))) - (let ((_tl1071210754_ + (if (gx#stx-pair? ___stx3838438385_) + (let ((_e1079510828_ + (gx#syntax-e ___stx3838438385_))) + (let ((_tl1079310835_ (let () (declare (not safe)) - (##cdr _e1071410747_))) - (_hd1071310751_ + (##cdr _e1079510828_))) + (_hd1079410832_ (let () (declare (not safe)) - (##car _e1071410747_)))) - (if (gx#stx-pair/null? _hd1071310751_) - (let ((___splice3845538456_ + (##car _e1079510828_)))) + (if (gx#stx-pair/null? _hd1079410832_) + (let ((___splice3838938390_ (gx#syntax-split-splice - _hd1071310751_ + _hd1079410832_ '0))) - (let ((_tl1071710760_ + (let ((_tl1079810841_ (let () (declare (not safe)) (##vector-ref - ___splice3845538456_ + ___splice3838938390_ '1))) - (_target1071510757_ + (_target1079610838_ (let () (declare (not safe)) (##vector-ref - ___splice3845538456_ + ___splice3838938390_ '0)))) - (if (gx#stx-null? _tl1071710760_) - (___match3847338474_ - _e1071410747_ - _hd1071310751_ - _tl1071210754_ - ___splice3845538456_ - _target1071510757_ - _tl1071710760_) - (___kont3845738458_)))) - (___kont3845738458_)))) - (___kont3845738458_)))))))) - (_duplicate-indexes?8661_ - (lambda (_xs10677_) - (let ((_ht10680_ (make-hash-table-eq))) - (let _lp10683_ ((_rest10686_ _xs10677_)) - (if (pair? _rest10686_) - (let* ((_ix10689_ (car _rest10686_)) - (_$e10692_ (hash-get _ht10680_ _ix10689_))) - (if _$e10692_ - _$e10692_ + (if (gx#stx-null? _tl1079810841_) + (___match3840738408_ + _e1079510828_ + _hd1079410832_ + _tl1079310835_ + ___splice3838938390_ + _target1079610838_ + _tl1079810841_) + (___kont3839138392_)))) + (___kont3839138392_)))) + (___kont3839138392_)))))))) + (_duplicate-indexes?8742_ + (lambda (_xs10758_) + (let ((_ht10761_ (make-hash-table-eq))) + (let _lp10764_ ((_rest10767_ _xs10758_)) + (if (pair? _rest10767_) + (let* ((_ix10770_ (car _rest10767_)) + (_$e10773_ (hash-get _ht10761_ _ix10770_))) + (if _$e10773_ + _$e10773_ (begin - (hash-put! _ht10680_ _ix10689_ '#t) - (_lp10683_ (cdr _rest10686_))))) + (hash-put! _ht10761_ _ix10770_ '#t) + (_lp10764_ (cdr _rest10767_))))) '#f))))) - (_generate-hash-dispatch-table8662_ - (lambda (_indexes10646_ _hash-e10648_) - (let _lp10650_ ((_len10653_ - (* '2 (length _indexes10646_)))) - (let* ((_hs10659_ - (map (lambda (_x10656_) - (_hash-e10648_ (car _x10656_))) - _indexes10646_)) - (_xs10665_ - (map (lambda (_h10662_) - (fxmodulo _h10662_ _len10653_)) - _hs10659_))) - (if (_duplicate-indexes?8661_ _xs10665_) - (if (< _len10653_ '131072) - (_lp10650_ (quotient (fx* _len10653_ '3) '2)) + (_generate-hash-dispatch-table8743_ + (lambda (_indexes10727_ _hash-e10729_) + (let _lp10731_ ((_len10734_ + (* '2 (length _indexes10727_)))) + (let* ((_hs10740_ + (map (lambda (_x10737_) + (_hash-e10729_ (car _x10737_))) + _indexes10727_)) + (_xs10746_ + (map (lambda (_h10743_) + (fxmodulo _h10743_ _len10734_)) + _hs10740_))) + (if (_duplicate-indexes?8742_ _xs10746_) + (if (< _len10734_ '131072) + (_lp10731_ (quotient (fx* _len10734_ '3) '2)) (gx#raise-syntax-error '#f '"Cannot create perfect dispatch table" - _stx8648_ - _indexes10646_)) - (let ((_tab10670_ (make-vector _len10653_ '#f))) + _stx8729_ + _indexes10727_)) + (let ((_tab10751_ (make-vector _len10734_ '#f))) (for-each - (lambda (_entry10673_ _x10675_) + (lambda (_entry10754_ _x10756_) (vector-set! - _tab10670_ - _x10675_ - _entry10673_)) - _indexes10646_ - _xs10665_) - _tab10670_)))))) - (_generate-symbolic-dispatch8663_ - (lambda (_e10249_ - _datums10251_ - _dispatch10252_ - _default10253_) - (let* ((_indexes10255_ - (_datum-dispatch-index8660_ _datums10251_)) - (_tab10258_ - (_generate-hash-dispatch-table8662_ - _indexes10255_ + _tab10751_ + _x10756_ + _entry10754_)) + _indexes10727_ + _xs10746_) + _tab10751_)))))) + (_generate-symbolic-dispatch8744_ + (lambda (_e10330_ + _datums10332_ + _dispatch10333_ + _default10334_) + (let* ((_indexes10336_ + (_datum-dispatch-index8741_ _datums10332_)) + (_tab10339_ + (_generate-hash-dispatch-table8743_ + _indexes10336_ symbol-hash))) - (if (= (length _dispatch10252_) '1) - (let* ((_tab10266_ + (if (= (length _dispatch10333_) '1) + (let* ((_tab10347_ (vector-map - (lambda (_x10263_) - (if _x10263_ (car _x10263_) '#f)) - _tab10258_)) - (_g1026910307_ - (lambda (_g1027010303_) + (lambda (_x10344_) + (if _x10344_ (car _x10344_) '#f)) + _tab10339_)) + (_g1035010388_ + (lambda (_g1035110384_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1027010303_))) - (_g1026810438_ - (lambda (_g1027010311_) - (if (gx#stx-pair? _g1027010311_) - (let ((_e1028010314_ - (gx#syntax-e _g1027010311_))) - (let ((_hd1027910318_ + _g1035110384_))) + (_g1034910519_ + (lambda (_g1035110392_) + (if (gx#stx-pair? _g1035110392_) + (let ((_e1036110395_ + (gx#syntax-e _g1035110392_))) + (let ((_hd1036010399_ (let () (declare (not safe)) - (##car _e1028010314_))) - (_tl1027810321_ + (##car _e1036110395_))) + (_tl1035910402_ (let () (declare (not safe)) - (##cdr _e1028010314_)))) - (if (gx#stx-pair? _tl1027810321_) - (let ((_e1028310324_ + (##cdr _e1036110395_)))) + (if (gx#stx-pair? _tl1035910402_) + (let ((_e1036410405_ (gx#syntax-e - _tl1027810321_))) - (let ((_hd1028210328_ + _tl1035910402_))) + (let ((_hd1036310409_ (let () (declare (not safe)) - (##car _e1028310324_))) - (_tl1028110331_ + (##car _e1036410405_))) + (_tl1036210412_ (let () (declare (not safe)) - (##cdr _e1028310324_)))) + (##cdr _e1036410405_)))) (if (gx#stx-pair? - _tl1028110331_) - (let ((_e1028610334_ + _tl1036210412_) + (let ((_e1036710415_ (gx#syntax-e - _tl1028110331_))) - (let ((_hd1028510338_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1028610334_))) - (_tl1028410341_ - (let () (declare (not safe)) (##cdr _e1028610334_)))) - (if (gx#stx-pair? _tl1028410341_) - (let ((_e1028910344_ (gx#syntax-e _tl1028410341_))) - (let ((_hd1028810348_ + _tl1036210412_))) + (let ((_hd1036610419_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _e1036710415_))) + (_tl1036510422_ + (let () (declare (not safe)) (##cdr _e1036710415_)))) + (if (gx#stx-pair? _tl1036510422_) + (let ((_e1037010425_ (gx#syntax-e _tl1036510422_))) + (let ((_hd1036910429_ (let () (declare (not safe)) - (##car _e1028910344_))) - (_tl1028710351_ + (##car _e1037010425_))) + (_tl1036810432_ (let () (declare (not safe)) - (##cdr _e1028910344_)))) - (if (gx#stx-pair? _hd1028810348_) - (let ((_e1029210354_ - (gx#syntax-e _hd1028810348_))) - (let ((_hd1029110358_ + (##cdr _e1037010425_)))) + (if (gx#stx-pair? _hd1036910429_) + (let ((_e1037310435_ + (gx#syntax-e _hd1036910429_))) + (let ((_hd1037210439_ (let () (declare (not safe)) - (##car _e1029210354_))) - (_tl1029010361_ + (##car _e1037310435_))) + (_tl1037110442_ (let () (declare (not safe)) - (##cdr _e1029210354_)))) - (if (gx#stx-null? _tl1029010361_) - (if (gx#stx-pair? _tl1028710351_) - (let ((_e1029510364_ + (##cdr _e1037310435_)))) + (if (gx#stx-null? _tl1037110442_) + (if (gx#stx-pair? _tl1036810432_) + (let ((_e1037610445_ (gx#syntax-e - _tl1028710351_))) - (let ((_hd1029410368_ + _tl1036810432_))) + (let ((_hd1037510449_ (let () (declare (not safe)) - (##car _e1029510364_))) - (_tl1029310371_ + (##car _e1037610445_))) + (_tl1037410452_ (let () (declare (not safe)) - (##cdr _e1029510364_)))) + (##cdr _e1037610445_)))) (if (gx#stx-pair? - _tl1029310371_) - (let ((_e1029810374_ + _tl1037410452_) + (let ((_e1037910455_ (gx#syntax-e - _tl1029310371_))) - (let ((_hd1029710378_ + _tl1037410452_))) + (let ((_hd1037810459_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e1029810374_))) - (_tl1029610381_ - (let () (declare (not safe)) (##cdr _e1029810374_)))) - (if (gx#stx-pair? _tl1029610381_) - (let ((_e1030110384_ (gx#syntax-e _tl1029610381_))) - (let ((_hd1030010388_ + (##car _e1037910455_))) + (_tl1037710462_ + (let () (declare (not safe)) (##cdr _e1037910455_)))) + (if (gx#stx-pair? _tl1037710462_) + (let ((_e1038210465_ (gx#syntax-e _tl1037710462_))) + (let ((_hd1038110469_ (let () (declare (not safe)) - (##car _e1030110384_))) - (_tl1029910391_ + (##car _e1038210465_))) + (_tl1038010472_ (let () (declare (not safe)) - (##cdr _e1030110384_)))) - (if (gx#stx-null? _tl1029910391_) - ((lambda (_L10394_ - _L10396_ - _L10397_ - _L10398_ - _L10399_ - _L10400_ - _L10401_) + (##cdr _e1038210465_)))) + (if (gx#stx-null? _tl1038010472_) + ((lambda (_L10475_ + _L10477_ + _L10478_ + _L10479_ + _L10480_ + _L10481_ + _L10482_) (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L10400_ + (cons (cons (cons _L10481_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _L10397_ '()))) + (cons '() (cons _L10478_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L10399_ + (cons (cons _L10480_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L10396_ '())) + (cons _L10477_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -4683,14 +4683,14 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'symbol?) - (cons _L10401_ '())) + (cons _L10482_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##symbol-hash) - (cons _L10401_ '())) + (cons _L10482_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -4701,7 +4701,7 @@ '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _L10394_ '()))) + (cons _L10475_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -4709,7 +4709,7 @@ '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _L10399_ + (cons _L10480_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -4720,199 +4720,199 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'eq?) - (cons (gx#datum->syntax '#f 'q) (cons _L10401_ '()))) - (cons _L10398_ (cons (cons _L10400_ '()) '())))) + (cons (gx#datum->syntax '#f 'q) (cons _L10482_ '()))) + (cons _L10479_ (cons (cons _L10481_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _L10400_ '()) '())))) + (cons (cons _L10481_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _hd1030010388_ - _hd1029710378_ - _hd1029410368_ - _hd1029110358_ - _hd1028510338_ - _hd1028210328_ - _hd1027910318_) - (_g1026910307_ _g1027010311_)))) - (_g1026910307_ _g1027010311_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1026910307_ - _g1027010311_)))) - (_g1026910307_ _g1027010311_)) - (_g1026910307_ _g1027010311_)))) - (_g1026910307_ _g1027010311_)))) - (_g1026910307_ _g1027010311_)))) - (_g1026910307_ _g1027010311_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1026910307_ - _g1027010311_)))) - (_g1026910307_ _g1027010311_))))) - (_g1026810438_ - (list _e10249_ + _hd1038110469_ + _hd1037810459_ + _hd1037510449_ + _hd1037210439_ + _hd1036610419_ + _hd1036310409_ + _hd1036010399_) + (_g1035010388_ _g1035110392_)))) + (_g1035010388_ _g1035110392_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1035010388_ + _g1035110392_)))) + (_g1035010388_ _g1035110392_)) + (_g1035010388_ _g1035110392_)))) + (_g1035010388_ _g1035110392_)))) + (_g1035010388_ _g1035110392_)))) + (_g1035010388_ _g1035110392_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1035010388_ + _g1035110392_)))) + (_g1035010388_ _g1035110392_))))) + (_g1034910519_ + (list _e10330_ (gx#genident 'default) (gx#genident 'table) - _dispatch10252_ - _default10253_ - _tab10266_ - (vector-length _tab10266_)))) - (let* ((_g1044210486_ - (lambda (_g1044310482_) + _dispatch10333_ + _default10334_ + _tab10347_ + (vector-length _tab10347_)))) + (let* ((_g1052310567_ + (lambda (_g1052410563_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1044310482_))) - (_g1044110642_ - (lambda (_g1044310490_) - (if (gx#stx-pair? _g1044310490_) - (let ((_e1045310493_ - (gx#syntax-e _g1044310490_))) - (let ((_hd1045210497_ + _g1052410563_))) + (_g1052210723_ + (lambda (_g1052410571_) + (if (gx#stx-pair? _g1052410571_) + (let ((_e1053410574_ + (gx#syntax-e _g1052410571_))) + (let ((_hd1053310578_ (let () (declare (not safe)) - (##car _e1045310493_))) - (_tl1045110500_ + (##car _e1053410574_))) + (_tl1053210581_ (let () (declare (not safe)) - (##cdr _e1045310493_)))) - (if (gx#stx-pair? _tl1045110500_) - (let ((_e1045610503_ + (##cdr _e1053410574_)))) + (if (gx#stx-pair? _tl1053210581_) + (let ((_e1053710584_ (gx#syntax-e - _tl1045110500_))) - (let ((_hd1045510507_ + _tl1053210581_))) + (let ((_hd1053610588_ (let () (declare (not safe)) - (##car _e1045610503_))) - (_tl1045410510_ + (##car _e1053710584_))) + (_tl1053510591_ (let () (declare (not safe)) - (##cdr _e1045610503_)))) + (##cdr _e1053710584_)))) (if (gx#stx-pair? - _tl1045410510_) - (let ((_e1045910513_ + _tl1053510591_) + (let ((_e1054010594_ (gx#syntax-e - _tl1045410510_))) - (let ((_hd1045810517_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1045910513_))) - (_tl1045710520_ - (let () (declare (not safe)) (##cdr _e1045910513_)))) - (if (gx#stx-pair? _tl1045710520_) - (let ((_e1046210523_ (gx#syntax-e _tl1045710520_))) - (let ((_hd1046110527_ + _tl1053510591_))) + (let ((_hd1053910598_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _e1054010594_))) + (_tl1053810601_ + (let () (declare (not safe)) (##cdr _e1054010594_)))) + (if (gx#stx-pair? _tl1053810601_) + (let ((_e1054310604_ (gx#syntax-e _tl1053810601_))) + (let ((_hd1054210608_ (let () (declare (not safe)) - (##car _e1046210523_))) - (_tl1046010530_ + (##car _e1054310604_))) + (_tl1054110611_ (let () (declare (not safe)) - (##cdr _e1046210523_)))) - (if (gx#stx-pair/null? _hd1046110527_) - (let ((_g42767_ + (##cdr _e1054310604_)))) + (if (gx#stx-pair/null? _hd1054210608_) + (let ((_g42657_ (gx#syntax-split-splice - _hd1046110527_ + _hd1054210608_ '0))) (begin - (let ((_g42768_ + (let ((_g42658_ (let () (declare (not safe)) - (if (##values? _g42767_) - (##vector-length _g42767_) + (if (##values? _g42657_) + (##vector-length _g42657_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42768_ 2))) + (##fx= _g42658_ 2))) (error "Context expects 2 values" - _g42768_))) - (let ((_target1046310533_ + _g42658_))) + (let ((_target1054410614_ (let () (declare (not safe)) - (##vector-ref _g42767_ 0))) - (_tl1046510536_ + (##vector-ref _g42657_ 0))) + (_tl1054610617_ (let () (declare (not safe)) - (##vector-ref _g42767_ 1)))) - (if (gx#stx-null? _tl1046510536_) - (letrec ((_loop1046610539_ - (lambda (_hd1046410543_ - _dispatch1047010546_) + (##vector-ref _g42657_ 1)))) + (if (gx#stx-null? _tl1054610617_) + (letrec ((_loop1054710620_ + (lambda (_hd1054510624_ + _dispatch1055110627_) (if (gx#stx-pair? - _hd1046410543_) - (let ((_e1046710549_ + _hd1054510624_) + (let ((_e1054810630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1046410543_))) - (let ((_lp-hd1046810553_ - (let () (declare (not safe)) (##car _e1046710549_))) - (_lp-tl1046910556_ + (gx#syntax-e _hd1054510624_))) + (let ((_lp-hd1054910634_ + (let () (declare (not safe)) (##car _e1054810630_))) + (_lp-tl1055010637_ (let () (declare (not safe)) - (##cdr _e1046710549_)))) - (_loop1046610539_ - _lp-tl1046910556_ - (cons _lp-hd1046810553_ _dispatch1047010546_)))) - (let ((_dispatch1047110559_ (reverse _dispatch1047010546_))) - (if (gx#stx-pair? _tl1046010530_) - (let ((_e1047410563_ (gx#syntax-e _tl1046010530_))) - (let ((_hd1047310567_ + (##cdr _e1054810630_)))) + (_loop1054710620_ + _lp-tl1055010637_ + (cons _lp-hd1054910634_ _dispatch1055110627_)))) + (let ((_dispatch1055210640_ (reverse _dispatch1055110627_))) + (if (gx#stx-pair? _tl1054110611_) + (let ((_e1055510644_ (gx#syntax-e _tl1054110611_))) + (let ((_hd1055410648_ (let () (declare (not safe)) - (##car _e1047410563_))) - (_tl1047210570_ + (##car _e1055510644_))) + (_tl1055310651_ (let () (declare (not safe)) - (##cdr _e1047410563_)))) - (if (gx#stx-pair? _tl1047210570_) - (let ((_e1047710573_ - (gx#syntax-e _tl1047210570_))) - (let ((_hd1047610577_ + (##cdr _e1055510644_)))) + (if (gx#stx-pair? _tl1055310651_) + (let ((_e1055810654_ + (gx#syntax-e _tl1055310651_))) + (let ((_hd1055710658_ (let () (declare (not safe)) - (##car _e1047710573_))) - (_tl1047510580_ + (##car _e1055810654_))) + (_tl1055610661_ (let () (declare (not safe)) - (##cdr _e1047710573_)))) - (if (gx#stx-pair? _tl1047510580_) - (let ((_e1048010583_ - (gx#syntax-e _tl1047510580_))) - (let ((_hd1047910587_ + (##cdr _e1055810654_)))) + (if (gx#stx-pair? _tl1055610661_) + (let ((_e1056110664_ + (gx#syntax-e _tl1055610661_))) + (let ((_hd1056010668_ (let () (declare (not safe)) - (##car _e1048010583_))) - (_tl1047810590_ + (##car _e1056110664_))) + (_tl1055910671_ (let () (declare (not safe)) - (##cdr _e1048010583_)))) - (if (gx#stx-null? _tl1047810590_) - ((lambda (_L10593_ - _L10595_ - _L10596_ - _L10597_ - _L10598_ - _L10599_ - _L10600_) + (##cdr _e1056110664_)))) + (if (gx#stx-null? _tl1055910671_) + ((lambda (_L10674_ + _L10676_ + _L10677_ + _L10678_ + _L10679_ + _L10680_ + _L10681_) (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L10599_ + (cons (cons (cons _L10680_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _L10596_ '()))) + (cons _L10677_ '()))) '())) - (cons (cons _L10598_ + (cons (cons _L10679_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L10595_ '())) + (cons _L10676_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'symbol?) - (cons _L10600_ '())) + (cons _L10681_ '())) (cons (cons (gx#datum->syntax '#f 'let*) @@ -4923,7 +4923,7 @@ (cons (cons (gx#datum->syntax '#f '##symbol-hash) - (cons _L10600_ '())) + (cons _L10681_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax @@ -4932,13 +4932,13 @@ (cons (gx#datum->syntax '#f 'h) - (cons _L10593_ '()))) + (cons _L10674_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _L10598_ + (cons _L10679_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -4958,7 +4958,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _L10600_ '()))) + (cons _L10681_ '()))) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax @@ -4973,215 +4973,215 @@ '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_g1063310636_ + (foldr (lambda (_g1071410717_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1063410639_) - (cons _g1063310636_ _g1063410639_)) + _g1071510720_) + (cons _g1071410717_ _g1071510720_)) '() - _L10597_))) + _L10678_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _L10599_ '()) '())))) + (cons (cons _L10680_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L10599_ '()) '())))) + (cons (cons _L10680_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L10599_ '()) + (cons (cons _L10680_ '()) '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1047910587_ - _hd1047610577_ - _hd1047310567_ - _dispatch1047110559_ - _hd1045810517_ - _hd1045510507_ - _hd1045210497_) - (_g1044210486_ - _g1044310490_)))) - (_g1044210486_ _g1044310490_)))) - (_g1044210486_ _g1044310490_)))) - (_g1044210486_ _g1044310490_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1046610539_ - _target1046310533_ + _hd1056010668_ + _hd1055710658_ + _hd1055410648_ + _dispatch1055210640_ + _hd1053910598_ + _hd1053610588_ + _hd1053310578_) + (_g1052310567_ + _g1052410571_)))) + (_g1052310567_ _g1052410571_)))) + (_g1052310567_ _g1052410571_)))) + (_g1052310567_ _g1052410571_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1054710620_ + _target1054410614_ '())) - (_g1044210486_ _g1044310490_))))) - (_g1044210486_ _g1044310490_)))) - (_g1044210486_ _g1044310490_)))) - (_g1044210486_ _g1044310490_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1044210486_ - _g1044310490_)))) - (_g1044210486_ _g1044310490_))))) - (_g1044110642_ - (list _e10249_ + (_g1052310567_ _g1052410571_))))) + (_g1052310567_ _g1052410571_)))) + (_g1052310567_ _g1052410571_)))) + (_g1052310567_ _g1052410571_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1052310567_ + _g1052410571_)))) + (_g1052310567_ _g1052410571_))))) + (_g1052210723_ + (list _e10330_ (gx#genident 'default) (gx#genident 'table) - _dispatch10252_ - _default10253_ - _tab10258_ - (vector-length _tab10258_)))))))) - (_max-char8664_ - (lambda (_datums10238_) - (foldl (lambda (_lst10241_ _r10243_) - (foldl (lambda (_char10245_ _r10247_) - (max (char->integer _char10245_) - _r10247_)) - _r10243_ - _lst10241_)) + _dispatch10333_ + _default10334_ + _tab10339_ + (vector-length _tab10339_)))))))) + (_max-char8745_ + (lambda (_datums10319_) + (foldl (lambda (_lst10322_ _r10324_) + (foldl (lambda (_char10326_ _r10328_) + (max (char->integer _char10326_) + _r10328_)) + _r10324_ + _lst10322_)) '0 - _datums10238_))) - (_generate-char-dispatch-table8665_ - (lambda (_indexes10217_) - (let* ((_ixs10223_ - (map (lambda (_x10220_) - (char->integer (car _x10220_))) - _indexes10217_)) - (_len10226_ (fx1+ (foldl max '0 _ixs10223_))) - (_vec10229_ (make-vector _len10226_ '#f))) + _datums10319_))) + (_generate-char-dispatch-table8746_ + (lambda (_indexes10298_) + (let* ((_ixs10304_ + (map (lambda (_x10301_) + (char->integer (car _x10301_))) + _indexes10298_)) + (_len10307_ (fx1+ (foldl max '0 _ixs10304_))) + (_vec10310_ (make-vector _len10307_ '#f))) (for-each - (lambda (_entry10234_ _x10236_) - (vector-set! _vec10229_ _x10236_ (cdr _entry10234_))) - _indexes10217_ - _ixs10223_) - _vec10229_))) - (_simple-char-range?8666_ - (lambda (_tab10193_) - (let ((_end10196_ (vector-length _tab10193_))) - (let _lp10199_ ((_i10202_ '0)) - (let ((_ix10205_ (vector-ref _tab10193_ _i10202_))) - (if _ix10205_ - (let _lp210208_ ((_i10211_ (fx1+ _i10202_))) - (if (fx< _i10211_ _end10196_) - (let ((_ix*10214_ - (vector-ref _tab10193_ _i10211_))) - (if (eq? _ix10205_ _ix*10214_) - (_lp210208_ (fx1+ _i10211_)) + (lambda (_entry10315_ _x10317_) + (vector-set! _vec10310_ _x10317_ (cdr _entry10315_))) + _indexes10298_ + _ixs10304_) + _vec10310_))) + (_simple-char-range?8747_ + (lambda (_tab10274_) + (let ((_end10277_ (vector-length _tab10274_))) + (let _lp10280_ ((_i10283_ '0)) + (let ((_ix10286_ (vector-ref _tab10274_ _i10283_))) + (if _ix10286_ + (let _lp210289_ ((_i10292_ (fx1+ _i10283_))) + (if (fx< _i10292_ _end10277_) + (let ((_ix*10295_ + (vector-ref _tab10274_ _i10292_))) + (if (eq? _ix10286_ _ix*10295_) + (_lp210289_ (fx1+ _i10292_)) '#f)) '#t)) - (_lp10199_ (fx1+ _i10202_)))))))) - (_char-range-start8667_ - (lambda (_tab10184_) - (let _lp10187_ ((_i10190_ '0)) - (if (vector-ref _tab10184_ _i10190_) - _i10190_ - (_lp10187_ (fx1+ _i10190_)))))) - (_generate-char-dispatch8668_ - (lambda (_e9807_ _datums9809_ _dispatch9810_ _default9811_) - (if (< (_max-char8664_ _datums9809_) '128) - (let* ((_indexes9813_ - (_datum-dispatch-index8660_ _datums9809_)) - (_tab9816_ - (_generate-char-dispatch-table8665_ - _indexes9813_))) - (if (_simple-char-range?8666_ _tab9816_) - (let ((_start9821_ - (_char-range-start8667_ _tab9816_)) - (_end9823_ (vector-length _tab9816_))) - (let* ((_g98259859_ - (lambda (_g98269855_) + (_lp10280_ (fx1+ _i10283_)))))))) + (_char-range-start8748_ + (lambda (_tab10265_) + (let _lp10268_ ((_i10271_ '0)) + (if (vector-ref _tab10265_ _i10271_) + _i10271_ + (_lp10268_ (fx1+ _i10271_)))))) + (_generate-char-dispatch8749_ + (lambda (_e9888_ _datums9890_ _dispatch9891_ _default9892_) + (if (< (_max-char8745_ _datums9890_) '128) + (let* ((_indexes9894_ + (_datum-dispatch-index8741_ _datums9890_)) + (_tab9897_ + (_generate-char-dispatch-table8746_ + _indexes9894_))) + (if (_simple-char-range?8747_ _tab9897_) + (let ((_start9902_ + (_char-range-start8748_ _tab9897_)) + (_end9904_ (vector-length _tab9897_))) + (let* ((_g99069940_ + (lambda (_g99079936_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g98269855_))) - (_g98249976_ - (lambda (_g98269863_) - (if (gx#stx-pair? _g98269863_) - (let ((_e98359866_ + _g99079936_))) + (_g990510057_ + (lambda (_g99079944_) + (if (gx#stx-pair? _g99079944_) + (let ((_e99169947_ (gx#syntax-e - _g98269863_))) - (let ((_hd98349870_ + _g99079944_))) + (let ((_hd99159951_ (let () (declare (not safe)) - (##car _e98359866_))) - (_tl98339873_ + (##car _e99169947_))) + (_tl99149954_ (let () (declare (not safe)) - (##cdr _e98359866_)))) + (##cdr _e99169947_)))) (if (gx#stx-pair? - _tl98339873_) - (let ((_e98389876_ + _tl99149954_) + (let ((_e99199957_ (gx#syntax-e - _tl98339873_))) - (let ((_hd98379880_ + _tl99149954_))) + (let ((_hd99189961_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e98389876_))) - (_tl98369883_ - (let () (declare (not safe)) (##cdr _e98389876_)))) - (if (gx#stx-pair? _tl98369883_) - (let ((_e98419886_ (gx#syntax-e _tl98369883_))) - (let ((_hd98409890_ + (##car _e99199957_))) + (_tl99179964_ + (let () (declare (not safe)) (##cdr _e99199957_)))) + (if (gx#stx-pair? _tl99179964_) + (let ((_e99229967_ (gx#syntax-e _tl99179964_))) + (let ((_hd99219971_ (let () (declare (not safe)) - (##car _e98419886_))) - (_tl98399893_ + (##car _e99229967_))) + (_tl99209974_ (let () (declare (not safe)) - (##cdr _e98419886_)))) - (if (gx#stx-pair? _hd98409890_) - (let ((_e98449896_ (gx#syntax-e _hd98409890_))) - (let ((_hd98439900_ + (##cdr _e99229967_)))) + (if (gx#stx-pair? _hd99219971_) + (let ((_e99259977_ (gx#syntax-e _hd99219971_))) + (let ((_hd99249981_ (let () (declare (not safe)) - (##car _e98449896_))) - (_tl98429903_ + (##car _e99259977_))) + (_tl99239984_ (let () (declare (not safe)) - (##cdr _e98449896_)))) - (if (gx#stx-null? _tl98429903_) - (if (gx#stx-pair? _tl98399893_) - (let ((_e98479906_ - (gx#syntax-e _tl98399893_))) - (let ((_hd98469910_ + (##cdr _e99259977_)))) + (if (gx#stx-null? _tl99239984_) + (if (gx#stx-pair? _tl99209974_) + (let ((_e99289987_ + (gx#syntax-e _tl99209974_))) + (let ((_hd99279991_ (let () (declare (not safe)) - (##car _e98479906_))) - (_tl98459913_ + (##car _e99289987_))) + (_tl99269994_ (let () (declare (not safe)) - (##cdr _e98479906_)))) - (if (gx#stx-pair? _tl98459913_) - (let ((_e98509916_ + (##cdr _e99289987_)))) + (if (gx#stx-pair? _tl99269994_) + (let ((_e99319997_ (gx#syntax-e - _tl98459913_))) - (let ((_hd98499920_ + _tl99269994_))) + (let ((_hd993010001_ (let () (declare (not safe)) - (##car _e98509916_))) - (_tl98489923_ + (##car _e99319997_))) + (_tl992910004_ (let () (declare (not safe)) - (##cdr _e98509916_)))) + (##cdr _e99319997_)))) (if (gx#stx-pair? - _tl98489923_) - (let ((_e98539926_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl98489923_))) - (let ((_hd98529930_ - (let () (declare (not safe)) (##car _e98539926_))) - (_tl98519933_ - (let () (declare (not safe)) (##cdr _e98539926_)))) - (if (gx#stx-null? _tl98519933_) - ((lambda (_L9936_ - _L9938_ - _L9939_ - _L9940_ - _L9941_ - _L9942_) + _tl992910004_) + (let ((_e993410007_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _tl992910004_))) + (let ((_hd993310011_ + (let () (declare (not safe)) (##car _e993410007_))) + (_tl993210014_ + (let () (declare (not safe)) (##cdr _e993410007_)))) + (if (gx#stx-null? _tl993210014_) + ((lambda (_L10017_ + _L10019_ + _L10020_ + _L10021_ + _L10022_ + _L10023_) (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons _L9941_ + (cons (cons _L10022_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L9939_ '()))) + (cons _L10020_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -5191,13 +5191,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'char?) - (cons _L9942_ '())) + (cons _L10023_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _L9942_ '())) + (cons _L10023_ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax @@ -5208,207 +5208,208 @@ '#f '##fx>=) (cons (gx#datum->syntax '#f 'ix) - (cons _L9938_ '()))) + (cons _L10019_ '()))) (cons (cons (gx#datum->syntax '#f '##fx<) (cons (gx#datum->syntax '#f 'ix) - (cons _L9936_ '()))) + (cons _L10017_ '()))) '()))) - (cons _L9940_ (cons (cons _L9941_ '()) '())))) + (cons _L10021_ (cons (cons _L10022_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _L9941_ '()) '())))) + (cons (cons _L10022_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _hd98529930_ - _hd98499920_ - _hd98469910_ - _hd98439900_ - _hd98379880_ - _hd98349870_) - (_g98259859_ _g98269863_)))) - (_g98259859_ _g98269863_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g98259859_ _g98269863_)))) - (_g98259859_ _g98269863_)) - (_g98259859_ _g98269863_)))) - (_g98259859_ _g98269863_)))) - (_g98259859_ _g98269863_)))) - (_g98259859_ _g98269863_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g98259859_ _g98269863_))))) - (_g98249976_ - (list _e9807_ + _hd993310011_ + _hd993010001_ + _hd99279991_ + _hd99249981_ + _hd99189961_ + _hd99159951_) + (_g99069940_ _g99079944_)))) + (_g99069940_ _g99079944_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g99069940_ _g99079944_)))) + (_g99069940_ _g99079944_)) + (_g99069940_ _g99079944_)))) + (_g99069940_ _g99079944_)))) + (_g99069940_ _g99079944_)))) + (_g99069940_ _g99079944_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g99069940_ _g99079944_))))) + (_g990510057_ + (list _e9888_ (gx#genident 'default) - _dispatch9810_ - _default9811_ - _start9821_ - _end9823_)))) - (let* ((_g998010024_ - (lambda (_g998110020_) + _dispatch9891_ + _default9892_ + _start9902_ + _end9904_)))) + (let* ((_g1006110105_ + (lambda (_g1006210101_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g998110020_))) - (_g997910180_ - (lambda (_g998110028_) - (if (gx#stx-pair? _g998110028_) - (let ((_e999110031_ - (gx#syntax-e _g998110028_))) - (let ((_hd999010035_ + _g1006210101_))) + (_g1006010261_ + (lambda (_g1006210109_) + (if (gx#stx-pair? _g1006210109_) + (let ((_e1007210112_ + (gx#syntax-e + _g1006210109_))) + (let ((_hd1007110116_ (let () (declare (not safe)) - (##car _e999110031_))) - (_tl998910038_ + (##car _e1007210112_))) + (_tl1007010119_ (let () (declare (not safe)) - (##cdr _e999110031_)))) + (##cdr _e1007210112_)))) (if (gx#stx-pair? - _tl998910038_) - (let ((_e999410041_ + _tl1007010119_) + (let ((_e1007510122_ (gx#syntax-e - _tl998910038_))) - (let ((_hd999310045_ + _tl1007010119_))) + (let ((_hd1007410126_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e999410041_))) - (_tl999210048_ - (let () (declare (not safe)) (##cdr _e999410041_)))) - (if (gx#stx-pair? _tl999210048_) - (let ((_e999710051_ (gx#syntax-e _tl999210048_))) - (let ((_hd999610055_ + (##car _e1007510122_))) + (_tl1007310129_ + (let () (declare (not safe)) (##cdr _e1007510122_)))) + (if (gx#stx-pair? _tl1007310129_) + (let ((_e1007810132_ (gx#syntax-e _tl1007310129_))) + (let ((_hd1007710136_ (let () (declare (not safe)) - (##car _e999710051_))) - (_tl999510058_ + (##car _e1007810132_))) + (_tl1007610139_ (let () (declare (not safe)) - (##cdr _e999710051_)))) - (if (gx#stx-pair? _tl999510058_) - (let ((_e1000010061_ (gx#syntax-e _tl999510058_))) - (let ((_hd999910065_ + (##cdr _e1007810132_)))) + (if (gx#stx-pair? _tl1007610139_) + (let ((_e1008110142_ (gx#syntax-e _tl1007610139_))) + (let ((_hd1008010146_ (let () (declare (not safe)) - (##car _e1000010061_))) - (_tl999810068_ + (##car _e1008110142_))) + (_tl1007910149_ (let () (declare (not safe)) - (##cdr _e1000010061_)))) - (if (gx#stx-pair/null? _hd999910065_) - (let ((_g42769_ + (##cdr _e1008110142_)))) + (if (gx#stx-pair/null? _hd1008010146_) + (let ((_g42659_ (gx#syntax-split-splice - _hd999910065_ + _hd1008010146_ '0))) (begin - (let ((_g42770_ + (let ((_g42660_ (let () (declare (not safe)) - (if (##values? _g42769_) - (##vector-length _g42769_) + (if (##values? _g42659_) + (##vector-length _g42659_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42770_ 2))) + (##fx= _g42660_ 2))) (error "Context expects 2 values" - _g42770_))) - (let ((_target1000110071_ + _g42660_))) + (let ((_target1008210152_ (let () (declare (not safe)) - (##vector-ref _g42769_ 0))) - (_tl1000310074_ + (##vector-ref _g42659_ 0))) + (_tl1008410155_ (let () (declare (not safe)) - (##vector-ref _g42769_ 1)))) - (if (gx#stx-null? _tl1000310074_) - (letrec ((_loop1000410077_ - (lambda (_hd1000210081_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _dispatch1000810084_) - (if (gx#stx-pair? _hd1000210081_) - (let ((_e1000510087_ (gx#syntax-e _hd1000210081_))) - (let ((_lp-hd1000610091_ + (##vector-ref _g42659_ 1)))) + (if (gx#stx-null? _tl1008410155_) + (letrec ((_loop1008510158_ + (lambda (_hd1008310162_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _dispatch1008910165_) + (if (gx#stx-pair? _hd1008310162_) + (let ((_e1008610168_ (gx#syntax-e _hd1008310162_))) + (let ((_lp-hd1008710172_ (let () (declare (not safe)) - (##car _e1000510087_))) - (_lp-tl1000710094_ + (##car _e1008610168_))) + (_lp-tl1008810175_ (let () (declare (not safe)) - (##cdr _e1000510087_)))) - (_loop1000410077_ - _lp-tl1000710094_ - (cons _lp-hd1000610091_ _dispatch1000810084_)))) - (let ((_dispatch1000910097_ - (reverse _dispatch1000810084_))) - (if (gx#stx-pair? _tl999810068_) - (let ((_e1001210101_ (gx#syntax-e _tl999810068_))) - (let ((_hd1001110105_ + (##cdr _e1008610168_)))) + (_loop1008510158_ + _lp-tl1008810175_ + (cons _lp-hd1008710172_ _dispatch1008910165_)))) + (let ((_dispatch1009010178_ + (reverse _dispatch1008910165_))) + (if (gx#stx-pair? _tl1007910149_) + (let ((_e1009310182_ (gx#syntax-e _tl1007910149_))) + (let ((_hd1009210186_ (let () (declare (not safe)) - (##car _e1001210101_))) - (_tl1001010108_ + (##car _e1009310182_))) + (_tl1009110189_ (let () (declare (not safe)) - (##cdr _e1001210101_)))) - (if (gx#stx-pair? _tl1001010108_) - (let ((_e1001510111_ - (gx#syntax-e _tl1001010108_))) - (let ((_hd1001410115_ + (##cdr _e1009310182_)))) + (if (gx#stx-pair? _tl1009110189_) + (let ((_e1009610192_ + (gx#syntax-e _tl1009110189_))) + (let ((_hd1009510196_ (let () (declare (not safe)) - (##car _e1001510111_))) - (_tl1001310118_ + (##car _e1009610192_))) + (_tl1009410199_ (let () (declare (not safe)) - (##cdr _e1001510111_)))) - (if (gx#stx-pair? _tl1001310118_) - (let ((_e1001810121_ + (##cdr _e1009610192_)))) + (if (gx#stx-pair? _tl1009410199_) + (let ((_e1009910202_ (gx#syntax-e - _tl1001310118_))) - (let ((_hd1001710125_ + _tl1009410199_))) + (let ((_hd1009810206_ (let () (declare (not safe)) - (##car _e1001810121_))) - (_tl1001610128_ + (##car _e1009910202_))) + (_tl1009710209_ (let () (declare (not safe)) - (##cdr _e1001810121_)))) + (##cdr _e1009910202_)))) (if (gx#stx-null? - _tl1001610128_) - ((lambda (_L10131_ - _L10133_ - _L10134_ - _L10135_ - _L10136_ - _L10137_ - _L10138_) + _tl1009710209_) + ((lambda (_L10212_ + _L10214_ + _L10215_ + _L10216_ + _L10217_ + _L10218_ + _L10219_) (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L10137_ + (cons (cons (cons _L10218_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _L10134_ + (cons _L10215_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons _L10136_ + (cons (cons _L10217_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L10133_ '())) + (cons _L10214_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'char?) - (cons _L10138_ '())) + (cons _L10219_ '())) (cons (cons (gx#datum->syntax '#f 'let) @@ -5419,14 +5420,14 @@ (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _L10138_ '())) + (cons _L10219_ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx<) (cons (gx#datum->syntax '#f 'ix) - (cons _L10131_ '()))) + (cons _L10212_ '()))) (cons (cons (gx#datum->syntax '#f 'let) @@ -5435,7 +5436,7 @@ '#f 'x) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _L10136_ + (cons _L10217_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -5447,218 +5448,218 @@ (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_g1017110174_ + (foldr (lambda (_g1025210255_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1017210177_) - (cons _g1017110174_ _g1017210177_)) + _g1025310258_) + (cons _g1025210255_ _g1025310258_)) '() - _L10135_))) + _L10216_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L10137_ '()) '())))) + (cons (cons _L10218_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L10137_ '()) + (cons (cons _L10218_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L10137_ '()) + (cons (cons _L10218_ '()) '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1001710125_ - _hd1001410115_ - _hd1001110105_ - _dispatch1000910097_ - _hd999610055_ - _hd999310045_ - _hd999010035_) - (_g998010024_ - _g998110028_)))) - (_g998010024_ _g998110028_)))) - (_g998010024_ _g998110028_)))) - (_g998010024_ _g998110028_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1000410077_ - _target1000110071_ + _hd1009810206_ + _hd1009510196_ + _hd1009210186_ + _dispatch1009010178_ + _hd1007710136_ + _hd1007410126_ + _hd1007110116_) + (_g1006110105_ + _g1006210109_)))) + (_g1006110105_ _g1006210109_)))) + (_g1006110105_ _g1006210109_)))) + (_g1006110105_ _g1006210109_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1008510158_ + _target1008210152_ '())) - (_g998010024_ _g998110028_))))) - (_g998010024_ _g998110028_)))) - (_g998010024_ _g998110028_)))) - (_g998010024_ _g998110028_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g998010024_ - _g998110028_)))) - (_g998010024_ _g998110028_))))) - (_g997910180_ - (list _e9807_ + (_g1006110105_ _g1006210109_))))) + (_g1006110105_ _g1006210109_)))) + (_g1006110105_ _g1006210109_)))) + (_g1006110105_ _g1006210109_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1006110105_ + _g1006210109_)))) + (_g1006110105_ _g1006210109_))))) + (_g1006010261_ + (list _e9888_ (gx#genident 'default) (gx#genident 'table) - _dispatch9810_ - _default9811_ - _tab9816_ - (vector-length _tab9816_)))))) - (_generate-char-dispatch/hash8669_ - _e9807_ - _datums9809_ - _dispatch9810_ - _default9811_)))) - (_generate-char-dispatch/hash8669_ - (lambda (_e9585_ _datums9587_ _dispatch9588_ _default9589_) - (let* ((_indexes9591_ - (_datum-dispatch-index8660_ _datums9587_)) - (_tab9594_ - (_generate-hash-dispatch-table8662_ - _indexes9591_ + _dispatch9891_ + _default9892_ + _tab9897_ + (vector-length _tab9897_)))))) + (_generate-char-dispatch/hash8750_ + _e9888_ + _datums9890_ + _dispatch9891_ + _default9892_)))) + (_generate-char-dispatch/hash8750_ + (lambda (_e9666_ _datums9668_ _dispatch9669_ _default9670_) + (let* ((_indexes9672_ + (_datum-dispatch-index8741_ _datums9668_)) + (_tab9675_ + (_generate-hash-dispatch-table8743_ + _indexes9672_ char->integer))) - (let* ((_g95999643_ - (lambda (_g96009639_) + (let* ((_g96809724_ + (lambda (_g96819720_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g96009639_))) - (_g95989803_ - (lambda (_g96009647_) - (if (gx#stx-pair? _g96009647_) - (let ((_e96109650_ - (gx#syntax-e _g96009647_))) - (let ((_hd96099654_ + _g96819720_))) + (_g96799884_ + (lambda (_g96819728_) + (if (gx#stx-pair? _g96819728_) + (let ((_e96919731_ + (gx#syntax-e _g96819728_))) + (let ((_hd96909735_ (let () (declare (not safe)) - (##car _e96109650_))) - (_tl96089657_ + (##car _e96919731_))) + (_tl96899738_ (let () (declare (not safe)) - (##cdr _e96109650_)))) - (if (gx#stx-pair? _tl96089657_) - (let ((_e96139660_ - (gx#syntax-e _tl96089657_))) - (let ((_hd96129664_ + (##cdr _e96919731_)))) + (if (gx#stx-pair? _tl96899738_) + (let ((_e96949741_ + (gx#syntax-e _tl96899738_))) + (let ((_hd96939745_ (let () (declare (not safe)) - (##car _e96139660_))) - (_tl96119667_ + (##car _e96949741_))) + (_tl96929748_ (let () (declare (not safe)) - (##cdr _e96139660_)))) - (if (gx#stx-pair? _tl96119667_) - (let ((_e96169670_ + (##cdr _e96949741_)))) + (if (gx#stx-pair? _tl96929748_) + (let ((_e96979751_ (gx#syntax-e - _tl96119667_))) - (let ((_hd96159674_ + _tl96929748_))) + (let ((_hd96969755_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e96169670_))) - (_tl96149677_ - (let () (declare (not safe)) (##cdr _e96169670_)))) - (if (gx#stx-pair? _tl96149677_) - (let ((_e96199680_ (gx#syntax-e _tl96149677_))) - (let ((_hd96189684_ - (let () (declare (not safe)) (##car _e96199680_))) - (_tl96179687_ + (##car _e96979751_))) + (_tl96959758_ + (let () (declare (not safe)) (##cdr _e96979751_)))) + (if (gx#stx-pair? _tl96959758_) + (let ((_e97009761_ (gx#syntax-e _tl96959758_))) + (let ((_hd96999765_ + (let () (declare (not safe)) (##car _e97009761_))) + (_tl96989768_ (let () (declare (not safe)) - (##cdr _e96199680_)))) - (if (gx#stx-pair/null? _hd96189684_) - (let ((_g42771_ - (gx#syntax-split-splice _hd96189684_ '0))) + (##cdr _e97009761_)))) + (if (gx#stx-pair/null? _hd96999765_) + (let ((_g42661_ + (gx#syntax-split-splice _hd96999765_ '0))) (begin - (let ((_g42772_ + (let ((_g42662_ (let () (declare (not safe)) - (if (##values? _g42771_) - (##vector-length _g42771_) + (if (##values? _g42661_) + (##vector-length _g42661_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42772_ 2))) + (##fx= _g42662_ 2))) (error "Context expects 2 values" - _g42772_))) - (let ((_target96209690_ + _g42662_))) + (let ((_target97019771_ (let () (declare (not safe)) - (##vector-ref _g42771_ 0))) - (_tl96229693_ + (##vector-ref _g42661_ 0))) + (_tl97039774_ (let () (declare (not safe)) - (##vector-ref _g42771_ 1)))) - (if (gx#stx-null? _tl96229693_) - (letrec ((_loop96239696_ - (lambda (_hd96219700_ - _dispatch96279703_) + (##vector-ref _g42661_ 1)))) + (if (gx#stx-null? _tl97039774_) + (letrec ((_loop97049777_ + (lambda (_hd97029781_ + _dispatch97089784_) (if (gx#stx-pair? - _hd96219700_) - (let ((_e96249706_ + _hd97029781_) + (let ((_e97059787_ (gx#syntax-e - _hd96219700_))) - (let ((_lp-hd96259710_ + _hd97029781_))) + (let ((_lp-hd97069791_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e96249706_))) - (_lp-tl96269713_ - (let () (declare (not safe)) (##cdr _e96249706_)))) - (_loop96239696_ - _lp-tl96269713_ - (cons _lp-hd96259710_ _dispatch96279703_)))) - (let ((_dispatch96289716_ (reverse _dispatch96279703_))) - (if (gx#stx-pair? _tl96179687_) - (let ((_e96319720_ (gx#syntax-e _tl96179687_))) - (let ((_hd96309724_ - (let () (declare (not safe)) (##car _e96319720_))) - (_tl96299727_ + (##car _e97059787_))) + (_lp-tl97079794_ + (let () (declare (not safe)) (##cdr _e97059787_)))) + (_loop97049777_ + _lp-tl97079794_ + (cons _lp-hd97069791_ _dispatch97089784_)))) + (let ((_dispatch97099797_ (reverse _dispatch97089784_))) + (if (gx#stx-pair? _tl96989768_) + (let ((_e97129801_ (gx#syntax-e _tl96989768_))) + (let ((_hd97119805_ + (let () (declare (not safe)) (##car _e97129801_))) + (_tl97109808_ (let () (declare (not safe)) - (##cdr _e96319720_)))) - (if (gx#stx-pair? _tl96299727_) - (let ((_e96349730_ (gx#syntax-e _tl96299727_))) - (let ((_hd96339734_ + (##cdr _e97129801_)))) + (if (gx#stx-pair? _tl97109808_) + (let ((_e97159811_ (gx#syntax-e _tl97109808_))) + (let ((_hd97149815_ (let () (declare (not safe)) - (##car _e96349730_))) - (_tl96329737_ + (##car _e97159811_))) + (_tl97139818_ (let () (declare (not safe)) - (##cdr _e96349730_)))) - (if (gx#stx-pair? _tl96329737_) - (let ((_e96379740_ - (gx#syntax-e _tl96329737_))) - (let ((_hd96369744_ + (##cdr _e97159811_)))) + (if (gx#stx-pair? _tl97139818_) + (let ((_e97189821_ + (gx#syntax-e _tl97139818_))) + (let ((_hd97179825_ (let () (declare (not safe)) - (##car _e96379740_))) - (_tl96359747_ + (##car _e97189821_))) + (_tl97169828_ (let () (declare (not safe)) - (##cdr _e96379740_)))) - (if (gx#stx-null? _tl96359747_) - ((lambda (_L9750_ - _L9752_ - _L9753_ - _L9754_ - _L9755_ - _L9756_ - _L9757_) + (##cdr _e97189821_)))) + (if (gx#stx-null? _tl97169828_) + ((lambda (_L9831_ + _L9833_ + _L9834_ + _L9835_ + _L9836_ + _L9837_ + _L9838_) (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L9756_ + (cons (cons (cons _L9837_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _L9753_ '()))) + (cons '() (cons _L9834_ '()))) '())) - (cons (cons _L9755_ + (cons (cons _L9836_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L9752_ '())) + (cons _L9833_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'char?) - (cons _L9757_ '())) + (cons _L9838_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5667,20 +5668,20 @@ (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _L9757_ '())) + (cons _L9838_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _L9750_ '()))) + (cons _L9831_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _L9755_ + (cons _L9836_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -5700,7 +5701,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _L9757_ '()))) + (cons _L9838_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5717,244 +5718,244 @@ '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_g97949797_ + (foldr (lambda (_g98759878_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g97959800_) - (cons _g97949797_ _g97959800_)) + _g98769881_) + (cons _g98759878_ _g98769881_)) '() - _L9754_))) + _L9835_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _L9756_ '()) '())))) + (cons (cons _L9837_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L9756_ '()) '())))) + (cons (cons _L9837_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L9756_ '()) '())))) + (cons (cons _L9837_ '()) '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd96369744_ - _hd96339734_ - _hd96309724_ - _dispatch96289716_ - _hd96159674_ - _hd96129664_ - _hd96099654_) - (_g95999643_ _g96009647_)))) - (_g95999643_ _g96009647_)))) - (_g95999643_ _g96009647_)))) - (_g95999643_ _g96009647_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop96239696_ _target96209690_ '())) - (_g95999643_ _g96009647_))))) - (_g95999643_ _g96009647_)))) - (_g95999643_ _g96009647_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g95999643_ - _g96009647_)))) - (_g95999643_ _g96009647_)))) - (_g95999643_ _g96009647_))))) - (_g95989803_ - (list _e9585_ + _hd97179825_ + _hd97149815_ + _hd97119805_ + _dispatch97099797_ + _hd96969755_ + _hd96939745_ + _hd96909735_) + (_g96809724_ _g96819728_)))) + (_g96809724_ _g96819728_)))) + (_g96809724_ _g96819728_)))) + (_g96809724_ _g96819728_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop97049777_ _target97019771_ '())) + (_g96809724_ _g96819728_))))) + (_g96809724_ _g96819728_)))) + (_g96809724_ _g96819728_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g96809724_ + _g96819728_)))) + (_g96809724_ _g96819728_)))) + (_g96809724_ _g96819728_))))) + (_g96799884_ + (list _e9666_ (gx#genident 'default) (gx#genident 'table) - _dispatch9588_ - _default9589_ - _tab9594_ - (vector-length _tab9594_))))))) - (_min-fixnum8670_ - (lambda (_datums9578_) - (foldl (lambda (_lst9581_ _r9583_) - (foldl min _r9583_ _lst9581_)) + _dispatch9669_ + _default9670_ + _tab9675_ + (vector-length _tab9675_))))))) + (_min-fixnum8751_ + (lambda (_datums9659_) + (foldl (lambda (_lst9662_ _r9664_) + (foldl min _r9664_ _lst9662_)) ##max-fixnum - _datums9578_))) - (_max-fixnum8671_ - (lambda (_datums9571_) - (foldl (lambda (_lst9574_ _r9576_) - (foldl max _r9576_ _lst9574_)) + _datums9659_))) + (_max-fixnum8752_ + (lambda (_datums9652_) + (foldl (lambda (_lst9655_ _r9657_) + (foldl max _r9657_ _lst9655_)) ##min-fixnum - _datums9571_))) - (_generate-fixnum-dispatch-table8672_ - (lambda (_indexes9553_) - (let* ((_ixs9556_ (map car _indexes9553_)) - (_len9559_ (fx1+ (foldl max '0 _ixs9556_))) - (_vec9562_ (make-vector _len9559_ '#f))) + _datums9652_))) + (_generate-fixnum-dispatch-table8753_ + (lambda (_indexes9634_) + (let* ((_ixs9637_ (map car _indexes9634_)) + (_len9640_ (fx1+ (foldl max '0 _ixs9637_))) + (_vec9643_ (make-vector _len9640_ '#f))) (for-each - (lambda (_entry9567_ _x9569_) - (vector-set! _vec9562_ _x9569_ (cdr _entry9567_))) - _indexes9553_ - _ixs9556_) - _vec9562_))) - (_generate-fixnum-dispatch8673_ - (lambda (_e9287_ _datums9289_ _dispatch9290_ _default9291_) - (if (and (>= (_min-fixnum8670_ _datums9289_) '0) - (< (_max-fixnum8671_ _datums9289_) '1024)) - (let* ((_indexes9293_ - (_datum-dispatch-index8660_ _datums9289_)) - (_tab9296_ - (_generate-fixnum-dispatch-table8672_ - _indexes9293_)) - (_dense?9299_ - (andmap values (vector->list _tab9296_)))) - (let* ((_g93049348_ - (lambda (_g93059344_) + (lambda (_entry9648_ _x9650_) + (vector-set! _vec9643_ _x9650_ (cdr _entry9648_))) + _indexes9634_ + _ixs9637_) + _vec9643_))) + (_generate-fixnum-dispatch8754_ + (lambda (_e9368_ _datums9370_ _dispatch9371_ _default9372_) + (if (and (>= (_min-fixnum8751_ _datums9370_) '0) + (< (_max-fixnum8752_ _datums9370_) '1024)) + (let* ((_indexes9374_ + (_datum-dispatch-index8741_ _datums9370_)) + (_tab9377_ + (_generate-fixnum-dispatch-table8753_ + _indexes9374_)) + (_dense?9380_ + (andmap values (vector->list _tab9377_)))) + (let* ((_g93859429_ + (lambda (_g93869425_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g93059344_))) - (_g93039549_ - (lambda (_g93059352_) - (if (gx#stx-pair? _g93059352_) - (let ((_e93159355_ - (gx#syntax-e _g93059352_))) - (let ((_hd93149359_ + _g93869425_))) + (_g93849630_ + (lambda (_g93869433_) + (if (gx#stx-pair? _g93869433_) + (let ((_e93969436_ + (gx#syntax-e _g93869433_))) + (let ((_hd93959440_ (let () (declare (not safe)) - (##car _e93159355_))) - (_tl93139362_ + (##car _e93969436_))) + (_tl93949443_ (let () (declare (not safe)) - (##cdr _e93159355_)))) - (if (gx#stx-pair? _tl93139362_) - (let ((_e93189365_ + (##cdr _e93969436_)))) + (if (gx#stx-pair? _tl93949443_) + (let ((_e93999446_ (gx#syntax-e - _tl93139362_))) - (let ((_hd93179369_ + _tl93949443_))) + (let ((_hd93989450_ (let () (declare (not safe)) - (##car _e93189365_))) - (_tl93169372_ + (##car _e93999446_))) + (_tl93979453_ (let () (declare (not safe)) - (##cdr _e93189365_)))) + (##cdr _e93999446_)))) (if (gx#stx-pair? - _tl93169372_) - (let ((_e93219375_ + _tl93979453_) + (let ((_e94029456_ (gx#syntax-e - _tl93169372_))) - (let ((_hd93209379_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e93219375_))) - (_tl93199382_ - (let () (declare (not safe)) (##cdr _e93219375_)))) - (if (gx#stx-pair? _tl93199382_) - (let ((_e93249385_ (gx#syntax-e _tl93199382_))) - (let ((_hd93239389_ + _tl93979453_))) + (let ((_hd94019460_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _e94029456_))) + (_tl94009463_ + (let () (declare (not safe)) (##cdr _e94029456_)))) + (if (gx#stx-pair? _tl94009463_) + (let ((_e94059466_ (gx#syntax-e _tl94009463_))) + (let ((_hd94049470_ (let () (declare (not safe)) - (##car _e93249385_))) - (_tl93229392_ + (##car _e94059466_))) + (_tl94039473_ (let () (declare (not safe)) - (##cdr _e93249385_)))) - (if (gx#stx-pair/null? _hd93239389_) - (let ((_g42773_ + (##cdr _e94059466_)))) + (if (gx#stx-pair/null? _hd94049470_) + (let ((_g42663_ (gx#syntax-split-splice - _hd93239389_ + _hd94049470_ '0))) (begin - (let ((_g42774_ + (let ((_g42664_ (let () (declare (not safe)) - (if (##values? _g42773_) - (##vector-length _g42773_) + (if (##values? _g42663_) + (##vector-length _g42663_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42774_ 2))) + (##fx= _g42664_ 2))) (error "Context expects 2 values" - _g42774_))) - (let ((_target93259395_ + _g42664_))) + (let ((_target94069476_ (let () (declare (not safe)) - (##vector-ref _g42773_ 0))) - (_tl93279398_ + (##vector-ref _g42663_ 0))) + (_tl94089479_ (let () (declare (not safe)) - (##vector-ref _g42773_ 1)))) - (if (gx#stx-null? _tl93279398_) - (letrec ((_loop93289401_ - (lambda (_hd93269405_ - _dispatch93329408_) + (##vector-ref _g42663_ 1)))) + (if (gx#stx-null? _tl94089479_) + (letrec ((_loop94099482_ + (lambda (_hd94079486_ + _dispatch94139489_) (if (gx#stx-pair? - _hd93269405_) - (let ((_e93299411_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd93269405_))) - (let ((_lp-hd93309415_ - (let () (declare (not safe)) (##car _e93299411_))) - (_lp-tl93319418_ - (let () (declare (not safe)) (##cdr _e93299411_)))) - (_loop93289401_ - _lp-tl93319418_ - (cons _lp-hd93309415_ _dispatch93329408_)))) - (let ((_dispatch93339421_ (reverse _dispatch93329408_))) - (if (gx#stx-pair? _tl93229392_) - (let ((_e93369425_ (gx#syntax-e _tl93229392_))) - (let ((_hd93359429_ + _hd94079486_) + (let ((_e94109492_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _hd94079486_))) + (let ((_lp-hd94119496_ + (let () (declare (not safe)) (##car _e94109492_))) + (_lp-tl94129499_ + (let () (declare (not safe)) (##cdr _e94109492_)))) + (_loop94099482_ + _lp-tl94129499_ + (cons _lp-hd94119496_ _dispatch94139489_)))) + (let ((_dispatch94149502_ (reverse _dispatch94139489_))) + (if (gx#stx-pair? _tl94039473_) + (let ((_e94179506_ (gx#syntax-e _tl94039473_))) + (let ((_hd94169510_ (let () (declare (not safe)) - (##car _e93369425_))) - (_tl93349432_ + (##car _e94179506_))) + (_tl94159513_ (let () (declare (not safe)) - (##cdr _e93369425_)))) - (if (gx#stx-pair? _tl93349432_) - (let ((_e93399435_ (gx#syntax-e _tl93349432_))) - (let ((_hd93389439_ + (##cdr _e94179506_)))) + (if (gx#stx-pair? _tl94159513_) + (let ((_e94209516_ (gx#syntax-e _tl94159513_))) + (let ((_hd94199520_ (let () (declare (not safe)) - (##car _e93399435_))) - (_tl93379442_ + (##car _e94209516_))) + (_tl94189523_ (let () (declare (not safe)) - (##cdr _e93399435_)))) - (if (gx#stx-pair? _tl93379442_) - (let ((_e93429445_ - (gx#syntax-e _tl93379442_))) - (let ((_hd93419449_ + (##cdr _e94209516_)))) + (if (gx#stx-pair? _tl94189523_) + (let ((_e94239526_ + (gx#syntax-e _tl94189523_))) + (let ((_hd94229530_ (let () (declare (not safe)) - (##car _e93429445_))) - (_tl93409452_ + (##car _e94239526_))) + (_tl94219533_ (let () (declare (not safe)) - (##cdr _e93429445_)))) - (if (gx#stx-null? _tl93409452_) - ((lambda (_L9455_ - _L9457_ - _L9458_ - _L9459_ - _L9460_ - _L9461_ - _L9462_) + (##cdr _e94239526_)))) + (if (gx#stx-null? _tl94219533_) + ((lambda (_L9536_ + _L9538_ + _L9539_ + _L9540_ + _L9541_ + _L9542_ + _L9543_) (let () - (let* ((_g95019509_ - (lambda (_g95029505_) + (let* ((_g95829590_ + (lambda (_g95839586_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g95029505_))) - (_g95009529_ - (lambda (_g95029513_) - ((lambda (_L9516_) + _g95839586_))) + (_g95819610_ + (lambda (_g95839594_) + ((lambda (_L9597_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L9461_ + (cons (cons (cons _L9542_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _L9458_ '()))) + (cons '() (cons _L9539_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L9460_ + (cons (cons _L9541_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L9457_ '())) + (cons _L9538_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -5963,20 +5964,20 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fixnum?) - (cons _L9462_ '())) + (cons _L9543_ '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f '##fx>=) - (cons _L9462_ + (cons _L9543_ (cons '0 '()))) (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _L9462_ + (cons _L9543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L9455_ '()))) + (cons _L9536_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'let) @@ -5987,243 +5988,243 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _L9460_ (cons _L9462_ '()))) + (cons _L9541_ (cons _L9543_ '()))) '())) - (cons _L9516_ '()))) + (cons _L9597_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L9461_ '()) '())))) - (cons (cons _L9461_ '()) '())))) + (cons (cons _L9542_ '()) '())))) + (cons (cons _L9542_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _g95029513_)))) - (_g95009529_ - (if _dense?9299_ + _g95839594_)))) + (_g95819610_ + (if _dense?9380_ (cons (gx#datum->syntax '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_g95329535_ _g95339538_) - (cons _g95329535_ _g95339538_)) + (foldr (lambda (_g96139616_ _g96149619_) + (cons _g96139616_ _g96149619_)) '() - _L9459_))) + _L9540_))) (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 (_g95409543_ + (foldr (lambda (_g96219624_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g95419546_) - (cons _g95409543_ _g95419546_)) + _g96229627_) + (cons _g96219624_ _g96229627_)) '() - _L9459_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L9461_ '()) '()))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd93419449_ - _hd93389439_ - _hd93359429_ - _dispatch93339421_ - _hd93209379_ - _hd93179369_ - _hd93149359_) - (_g93049348_ _g93059352_)))) - (_g93049348_ _g93059352_)))) - (_g93049348_ _g93059352_)))) - (_g93049348_ _g93059352_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop93289401_ - _target93259395_ + _L9540_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons _L9542_ '()) '()))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd94229530_ + _hd94199520_ + _hd94169510_ + _dispatch94149502_ + _hd94019460_ + _hd93989450_ + _hd93959440_) + (_g93859429_ _g93869433_)))) + (_g93859429_ _g93869433_)))) + (_g93859429_ _g93869433_)))) + (_g93859429_ _g93869433_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop94099482_ + _target94069476_ '())) - (_g93049348_ _g93059352_))))) - (_g93049348_ _g93059352_)))) - (_g93049348_ _g93059352_)))) - (_g93049348_ _g93059352_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g93049348_ _g93059352_)))) - (_g93049348_ _g93059352_))))) - (_g93039549_ - (list _e9287_ + (_g93859429_ _g93869433_))))) + (_g93859429_ _g93869433_)))) + (_g93859429_ _g93869433_)))) + (_g93859429_ _g93869433_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g93859429_ _g93869433_)))) + (_g93859429_ _g93869433_))))) + (_g93849630_ + (list _e9368_ (gx#genident 'default) (gx#genident 'table) - _dispatch9290_ - _default9291_ - _tab9296_ - (vector-length _tab9296_))))) - (_generate-fixnum-dispatch/hash8674_ - _e9287_ - _datums9289_ - _dispatch9290_ - _default9291_)))) - (_generate-fixnum-dispatch/hash8674_ - (lambda (_e9065_ _datums9067_ _dispatch9068_ _default9069_) - (let* ((_indexes9071_ - (_datum-dispatch-index8660_ _datums9067_)) - (_tab9074_ - (_generate-hash-dispatch-table8662_ - _indexes9071_ + _dispatch9371_ + _default9372_ + _tab9377_ + (vector-length _tab9377_))))) + (_generate-fixnum-dispatch/hash8755_ + _e9368_ + _datums9370_ + _dispatch9371_ + _default9372_)))) + (_generate-fixnum-dispatch/hash8755_ + (lambda (_e9146_ _datums9148_ _dispatch9149_ _default9150_) + (let* ((_indexes9152_ + (_datum-dispatch-index8741_ _datums9148_)) + (_tab9155_ + (_generate-hash-dispatch-table8743_ + _indexes9152_ values))) - (let* ((_g90799123_ - (lambda (_g90809119_) + (let* ((_g91609204_ + (lambda (_g91619200_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g90809119_))) - (_g90789283_ - (lambda (_g90809127_) - (if (gx#stx-pair? _g90809127_) - (let ((_e90909130_ - (gx#syntax-e _g90809127_))) - (let ((_hd90899134_ + _g91619200_))) + (_g91599364_ + (lambda (_g91619208_) + (if (gx#stx-pair? _g91619208_) + (let ((_e91719211_ + (gx#syntax-e _g91619208_))) + (let ((_hd91709215_ (let () (declare (not safe)) - (##car _e90909130_))) - (_tl90889137_ + (##car _e91719211_))) + (_tl91699218_ (let () (declare (not safe)) - (##cdr _e90909130_)))) - (if (gx#stx-pair? _tl90889137_) - (let ((_e90939140_ - (gx#syntax-e _tl90889137_))) - (let ((_hd90929144_ + (##cdr _e91719211_)))) + (if (gx#stx-pair? _tl91699218_) + (let ((_e91749221_ + (gx#syntax-e _tl91699218_))) + (let ((_hd91739225_ (let () (declare (not safe)) - (##car _e90939140_))) - (_tl90919147_ + (##car _e91749221_))) + (_tl91729228_ (let () (declare (not safe)) - (##cdr _e90939140_)))) - (if (gx#stx-pair? _tl90919147_) - (let ((_e90969150_ + (##cdr _e91749221_)))) + (if (gx#stx-pair? _tl91729228_) + (let ((_e91779231_ (gx#syntax-e - _tl90919147_))) - (let ((_hd90959154_ + _tl91729228_))) + (let ((_hd91769235_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e90969150_))) - (_tl90949157_ - (let () (declare (not safe)) (##cdr _e90969150_)))) - (if (gx#stx-pair? _tl90949157_) - (let ((_e90999160_ (gx#syntax-e _tl90949157_))) - (let ((_hd90989164_ - (let () (declare (not safe)) (##car _e90999160_))) - (_tl90979167_ + (##car _e91779231_))) + (_tl91759238_ + (let () (declare (not safe)) (##cdr _e91779231_)))) + (if (gx#stx-pair? _tl91759238_) + (let ((_e91809241_ (gx#syntax-e _tl91759238_))) + (let ((_hd91799245_ + (let () (declare (not safe)) (##car _e91809241_))) + (_tl91789248_ (let () (declare (not safe)) - (##cdr _e90999160_)))) - (if (gx#stx-pair/null? _hd90989164_) - (let ((_g42775_ - (gx#syntax-split-splice _hd90989164_ '0))) + (##cdr _e91809241_)))) + (if (gx#stx-pair/null? _hd91799245_) + (let ((_g42934_ + (gx#syntax-split-splice _hd91799245_ '0))) (begin - (let ((_g42776_ + (let ((_g42935_ (let () (declare (not safe)) - (if (##values? _g42775_) - (##vector-length _g42775_) + (if (##values? _g42934_) + (##vector-length _g42934_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42776_ 2))) + (##fx= _g42935_ 2))) (error "Context expects 2 values" - _g42776_))) - (let ((_target91009170_ + _g42935_))) + (let ((_target91819251_ (let () (declare (not safe)) - (##vector-ref _g42775_ 0))) - (_tl91029173_ + (##vector-ref _g42934_ 0))) + (_tl91839254_ (let () (declare (not safe)) - (##vector-ref _g42775_ 1)))) - (if (gx#stx-null? _tl91029173_) - (letrec ((_loop91039176_ - (lambda (_hd91019180_ - _dispatch91079183_) + (##vector-ref _g42934_ 1)))) + (if (gx#stx-null? _tl91839254_) + (letrec ((_loop91849257_ + (lambda (_hd91829261_ + _dispatch91889264_) (if (gx#stx-pair? - _hd91019180_) - (let ((_e91049186_ + _hd91829261_) + (let ((_e91859267_ (gx#syntax-e - _hd91019180_))) - (let ((_lp-hd91059190_ + _hd91829261_))) + (let ((_lp-hd91869271_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e91049186_))) - (_lp-tl91069193_ - (let () (declare (not safe)) (##cdr _e91049186_)))) - (_loop91039176_ - _lp-tl91069193_ - (cons _lp-hd91059190_ _dispatch91079183_)))) - (let ((_dispatch91089196_ (reverse _dispatch91079183_))) - (if (gx#stx-pair? _tl90979167_) - (let ((_e91119200_ (gx#syntax-e _tl90979167_))) - (let ((_hd91109204_ - (let () (declare (not safe)) (##car _e91119200_))) - (_tl91099207_ + (##car _e91859267_))) + (_lp-tl91879274_ + (let () (declare (not safe)) (##cdr _e91859267_)))) + (_loop91849257_ + _lp-tl91879274_ + (cons _lp-hd91869271_ _dispatch91889264_)))) + (let ((_dispatch91899277_ (reverse _dispatch91889264_))) + (if (gx#stx-pair? _tl91789248_) + (let ((_e91929281_ (gx#syntax-e _tl91789248_))) + (let ((_hd91919285_ + (let () (declare (not safe)) (##car _e91929281_))) + (_tl91909288_ (let () (declare (not safe)) - (##cdr _e91119200_)))) - (if (gx#stx-pair? _tl91099207_) - (let ((_e91149210_ (gx#syntax-e _tl91099207_))) - (let ((_hd91139214_ + (##cdr _e91929281_)))) + (if (gx#stx-pair? _tl91909288_) + (let ((_e91959291_ (gx#syntax-e _tl91909288_))) + (let ((_hd91949295_ (let () (declare (not safe)) - (##car _e91149210_))) - (_tl91129217_ + (##car _e91959291_))) + (_tl91939298_ (let () (declare (not safe)) - (##cdr _e91149210_)))) - (if (gx#stx-pair? _tl91129217_) - (let ((_e91179220_ - (gx#syntax-e _tl91129217_))) - (let ((_hd91169224_ + (##cdr _e91959291_)))) + (if (gx#stx-pair? _tl91939298_) + (let ((_e91989301_ + (gx#syntax-e _tl91939298_))) + (let ((_hd91979305_ (let () (declare (not safe)) - (##car _e91179220_))) - (_tl91159227_ + (##car _e91989301_))) + (_tl91969308_ (let () (declare (not safe)) - (##cdr _e91179220_)))) - (if (gx#stx-null? _tl91159227_) - ((lambda (_L9230_ - _L9232_ - _L9233_ - _L9234_ - _L9235_ - _L9236_ - _L9237_) + (##cdr _e91989301_)))) + (if (gx#stx-null? _tl91969308_) + ((lambda (_L9311_ + _L9313_ + _L9314_ + _L9315_ + _L9316_ + _L9317_ + _L9318_) (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L9236_ + (cons (cons (cons _L9317_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _L9233_ '()))) + (cons '() (cons _L9314_ '()))) '())) - (cons (cons _L9235_ + (cons (cons _L9316_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L9232_ '())) + (cons _L9313_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'fixnum?) - (cons _L9237_ '())) + (cons _L9318_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) - (cons _L9237_ (cons _L9230_ '()))) + (cons _L9318_ (cons _L9311_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _L9235_ + (cons _L9316_ (cons (gx#datum->syntax '#f 'ix) @@ -6241,7 +6242,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _L9237_ '()))) + (cons _L9318_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6258,254 +6259,254 @@ '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_g92749277_ + (foldr (lambda (_g93559358_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g92759280_) - (cons _g92749277_ _g92759280_)) + _g93569361_) + (cons _g93559358_ _g93569361_)) '() - _L9234_))) + _L9315_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _L9236_ '()) '())))) + (cons (cons _L9317_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L9236_ '()) '())))) + (cons (cons _L9317_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L9236_ '()) '())))) + (cons (cons _L9317_ '()) '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd91169224_ - _hd91139214_ - _hd91109204_ - _dispatch91089196_ - _hd90959154_ - _hd90929144_ - _hd90899134_) - (_g90799123_ _g90809127_)))) - (_g90799123_ _g90809127_)))) - (_g90799123_ _g90809127_)))) - (_g90799123_ _g90809127_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop91039176_ _target91009170_ '())) - (_g90799123_ _g90809127_))))) - (_g90799123_ _g90809127_)))) - (_g90799123_ _g90809127_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g90799123_ - _g90809127_)))) - (_g90799123_ _g90809127_)))) - (_g90799123_ _g90809127_))))) - (_g90789283_ - (list _e9065_ + _hd91979305_ + _hd91949295_ + _hd91919285_ + _dispatch91899277_ + _hd91769235_ + _hd91739225_ + _hd91709215_) + (_g91609204_ _g91619208_)))) + (_g91609204_ _g91619208_)))) + (_g91609204_ _g91619208_)))) + (_g91609204_ _g91619208_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop91849257_ _target91819251_ '())) + (_g91609204_ _g91619208_))))) + (_g91609204_ _g91619208_)))) + (_g91609204_ _g91619208_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g91609204_ + _g91619208_)))) + (_g91609204_ _g91619208_)))) + (_g91609204_ _g91619208_))))) + (_g91599364_ + (list _e9146_ (gx#genident 'default) (gx#genident 'table) - _dispatch9068_ - _default9069_ - _tab9074_ - (vector-length _tab9074_))))))) - (_generate-generic-dispatch8675_ - (lambda (_e8801_ _datums8803_ _dispatch8804_ _default8805_) - (let ((_g42777_ - (if (_eq-datums?8658_ _datums8803_) + _dispatch9149_ + _default9150_ + _tab9155_ + (vector-length _tab9155_))))))) + (_generate-generic-dispatch8756_ + (lambda (_e8882_ _datums8884_ _dispatch8885_ _default8886_) + (let ((_g42936_ + (if (_eq-datums?8739_ _datums8884_) (values eq?-hash 'eq?-hash 'eq?) (values equal?-hash 'equal?-hash 'equal?)))) (begin #!void - (let ((_hash-e8807_ + (let ((_hash-e8888_ (let () (declare (not safe)) - (##vector-ref _g42777_ 0))) - (_hashf8809_ + (##vector-ref _g42936_ 0))) + (_hashf8890_ (let () (declare (not safe)) - (##vector-ref _g42777_ 1))) - (_eqf8810_ + (##vector-ref _g42936_ 1))) + (_eqf8891_ (let () (declare (not safe)) - (##vector-ref _g42777_ 2)))) - (let* ((_indexes8812_ - (_datum-dispatch-index8660_ _datums8803_)) - (_tab8815_ - (_generate-hash-dispatch-table8662_ - _indexes8812_ - _hash-e8807_))) - (let* ((_g88208872_ - (lambda (_g88218868_) + (##vector-ref _g42936_ 2)))) + (let* ((_indexes8893_ + (_datum-dispatch-index8741_ _datums8884_)) + (_tab8896_ + (_generate-hash-dispatch-table8743_ + _indexes8893_ + _hash-e8888_))) + (let* ((_g89018953_ + (lambda (_g89028949_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g88218868_))) - (_g88199061_ - (lambda (_g88218876_) - (if (gx#stx-pair? _g88218876_) - (let ((_e88338879_ - (gx#syntax-e _g88218876_))) - (let ((_hd88328883_ + _g89028949_))) + (_g89009142_ + (lambda (_g89028957_) + (if (gx#stx-pair? _g89028957_) + (let ((_e89148960_ + (gx#syntax-e _g89028957_))) + (let ((_hd89138964_ (let () (declare (not safe)) - (##car _e88338879_))) - (_tl88318886_ + (##car _e89148960_))) + (_tl89128967_ (let () (declare (not safe)) - (##cdr _e88338879_)))) - (if (gx#stx-pair? _tl88318886_) - (let ((_e88368889_ + (##cdr _e89148960_)))) + (if (gx#stx-pair? _tl89128967_) + (let ((_e89178970_ (gx#syntax-e - _tl88318886_))) - (let ((_hd88358893_ + _tl89128967_))) + (let ((_hd89168974_ (let () (declare (not safe)) - (##car _e88368889_))) - (_tl88348896_ + (##car _e89178970_))) + (_tl89158977_ (let () (declare (not safe)) - (##cdr _e88368889_)))) + (##cdr _e89178970_)))) (if (gx#stx-pair? - _tl88348896_) - (let ((_e88398899_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl88348896_))) - (let ((_hd88388903_ - (let () (declare (not safe)) (##car _e88398899_))) - (_tl88378906_ - (let () (declare (not safe)) (##cdr _e88398899_)))) - (if (gx#stx-pair? _tl88378906_) - (let ((_e88428909_ (gx#syntax-e _tl88378906_))) - (let ((_hd88418913_ + _tl89158977_) + (let ((_e89208980_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _tl89158977_))) + (let ((_hd89198984_ + (let () (declare (not safe)) (##car _e89208980_))) + (_tl89188987_ + (let () (declare (not safe)) (##cdr _e89208980_)))) + (if (gx#stx-pair? _tl89188987_) + (let ((_e89238990_ (gx#syntax-e _tl89188987_))) + (let ((_hd89228994_ (let () (declare (not safe)) - (##car _e88428909_))) - (_tl88408916_ + (##car _e89238990_))) + (_tl89218997_ (let () (declare (not safe)) - (##cdr _e88428909_)))) - (if (gx#stx-pair/null? _hd88418913_) - (let ((_g42778_ + (##cdr _e89238990_)))) + (if (gx#stx-pair/null? _hd89228994_) + (let ((_g42937_ (gx#syntax-split-splice - _hd88418913_ + _hd89228994_ '0))) (begin - (let ((_g42779_ + (let ((_g42938_ (let () (declare (not safe)) - (if (##values? _g42778_) - (##vector-length _g42778_) + (if (##values? _g42937_) + (##vector-length _g42937_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42779_ 2))) + (##fx= _g42938_ 2))) (error "Context expects 2 values" - _g42779_))) - (let ((_target88438919_ + _g42938_))) + (let ((_target89249000_ (let () (declare (not safe)) - (##vector-ref _g42778_ 0))) - (_tl88458922_ + (##vector-ref _g42937_ 0))) + (_tl89269003_ (let () (declare (not safe)) - (##vector-ref _g42778_ 1)))) - (if (gx#stx-null? _tl88458922_) - (letrec ((_loop88468925_ - (lambda (_hd88448929_ - _dispatch88508932_) + (##vector-ref _g42937_ 1)))) + (if (gx#stx-null? _tl89269003_) + (letrec ((_loop89279006_ + (lambda (_hd89259010_ + _dispatch89319013_) (if (gx#stx-pair? - _hd88448929_) - (let ((_e88478935_ + _hd89259010_) + (let ((_e89289016_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd88448929_))) - (let ((_lp-hd88488939_ - (let () (declare (not safe)) (##car _e88478935_))) - (_lp-tl88498942_ + (gx#syntax-e _hd89259010_))) + (let ((_lp-hd89299020_ + (let () (declare (not safe)) (##car _e89289016_))) + (_lp-tl89309023_ (let () (declare (not safe)) - (##cdr _e88478935_)))) - (_loop88468925_ - _lp-tl88498942_ - (cons _lp-hd88488939_ _dispatch88508932_)))) - (let ((_dispatch88518945_ (reverse _dispatch88508932_))) - (if (gx#stx-pair? _tl88408916_) - (let ((_e88548949_ (gx#syntax-e _tl88408916_))) - (let ((_hd88538953_ + (##cdr _e89289016_)))) + (_loop89279006_ + _lp-tl89309023_ + (cons _lp-hd89299020_ _dispatch89319013_)))) + (let ((_dispatch89329026_ (reverse _dispatch89319013_))) + (if (gx#stx-pair? _tl89218997_) + (let ((_e89359030_ (gx#syntax-e _tl89218997_))) + (let ((_hd89349034_ (let () (declare (not safe)) - (##car _e88548949_))) - (_tl88528956_ + (##car _e89359030_))) + (_tl89339037_ (let () (declare (not safe)) - (##cdr _e88548949_)))) - (if (gx#stx-pair? _tl88528956_) - (let ((_e88578959_ - (gx#syntax-e _tl88528956_))) - (let ((_hd88568963_ + (##cdr _e89359030_)))) + (if (gx#stx-pair? _tl89339037_) + (let ((_e89389040_ + (gx#syntax-e _tl89339037_))) + (let ((_hd89379044_ (let () (declare (not safe)) - (##car _e88578959_))) - (_tl88558966_ + (##car _e89389040_))) + (_tl89369047_ (let () (declare (not safe)) - (##cdr _e88578959_)))) - (if (gx#stx-pair? _tl88558966_) - (let ((_e88608969_ - (gx#syntax-e _tl88558966_))) - (let ((_hd88598973_ + (##cdr _e89389040_)))) + (if (gx#stx-pair? _tl89369047_) + (let ((_e89419050_ + (gx#syntax-e _tl89369047_))) + (let ((_hd89409054_ (let () (declare (not safe)) - (##car _e88608969_))) - (_tl88588976_ + (##car _e89419050_))) + (_tl89399057_ (let () (declare (not safe)) - (##cdr _e88608969_)))) - (if (gx#stx-pair? _tl88588976_) - (let ((_e88638979_ + (##cdr _e89419050_)))) + (if (gx#stx-pair? _tl89399057_) + (let ((_e89449060_ (gx#syntax-e - _tl88588976_))) - (let ((_hd88628983_ + _tl89399057_))) + (let ((_hd89439064_ (let () (declare (not safe)) - (##car _e88638979_))) - (_tl88618986_ + (##car _e89449060_))) + (_tl89429067_ (let () (declare (not safe)) - (##cdr _e88638979_)))) + (##cdr _e89449060_)))) (if (gx#stx-pair? - _tl88618986_) - (let ((_e88668989_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl88618986_))) - (let ((_hd88658993_ - (let () (declare (not safe)) (##car _e88668989_))) - (_tl88648996_ - (let () (declare (not safe)) (##cdr _e88668989_)))) - (if (gx#stx-null? _tl88648996_) - ((lambda (_L8999_ - _L9001_ - _L9002_ - _L9003_ - _L9004_ - _L9005_ - _L9006_ - _L9007_ - _L9008_) + _tl89429067_) + (let ((_e89479070_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _tl89429067_))) + (let ((_hd89469074_ + (let () (declare (not safe)) (##car _e89479070_))) + (_tl89459077_ + (let () (declare (not safe)) (##cdr _e89479070_)))) + (if (gx#stx-null? _tl89459077_) + ((lambda (_L9080_ + _L9082_ + _L9083_ + _L9084_ + _L9085_ + _L9086_ + _L9087_ + _L9088_ + _L9089_) (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L9007_ + (cons (cons (cons _L9088_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _L9004_ '()))) + (cons '() (cons _L9085_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L9006_ + (cons (cons _L9087_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L9003_ '())) + (cons _L9084_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6516,7 +6517,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'h) - (cons (cons _L9001_ (cons _L9008_ '())) '())) + (cons (cons _L9082_ (cons _L9089_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f @@ -6524,13 +6525,13 @@ (cons (gx#datum->syntax '#f 'h) - (cons _L9002_ '()))) + (cons _L9083_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _L9006_ + (cons _L9087_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6542,13 +6543,13 @@ (cons (cons (gx#datum->syntax '#f 'if) (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _L8999_ + (cons (cons _L9080_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _L9008_ '()))) + (cons _L9089_ '()))) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax @@ -6563,269 +6564,269 @@ '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_g90529055_ + (foldr (lambda (_g91339136_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g90539058_) - (cons _g90529055_ _g90539058_)) + _g91349139_) + (cons _g91339136_ _g91349139_)) '() - _L9005_))) + _L9086_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _L9007_ '()) '())))) + (cons (cons _L9088_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L9007_ '()) '())))) + (cons (cons _L9088_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _hd88658993_ - _hd88628983_ - _hd88598973_ - _hd88568963_ - _hd88538953_ - _dispatch88518945_ - _hd88388903_ - _hd88358893_ - _hd88328883_) - (_g88208872_ _g88218876_)))) - (_g88208872_ _g88218876_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g88208872_ _g88218876_)))) - (_g88208872_ _g88218876_)))) - (_g88208872_ _g88218876_)))) - (_g88208872_ _g88218876_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop88468925_ - _target88438919_ + _hd89469074_ + _hd89439064_ + _hd89409054_ + _hd89379044_ + _hd89349034_ + _dispatch89329026_ + _hd89198984_ + _hd89168974_ + _hd89138964_) + (_g89018953_ _g89028957_)))) + (_g89018953_ _g89028957_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g89018953_ _g89028957_)))) + (_g89018953_ _g89028957_)))) + (_g89018953_ _g89028957_)))) + (_g89018953_ _g89028957_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop89279006_ + _target89249000_ '())) - (_g88208872_ _g88218876_))))) - (_g88208872_ _g88218876_)))) - (_g88208872_ _g88218876_)))) - (_g88208872_ _g88218876_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g88208872_ _g88218876_)))) - (_g88208872_ _g88218876_))))) - (_g88199061_ - (list _e8801_ + (_g89018953_ _g89028957_))))) + (_g89018953_ _g89028957_)))) + (_g89018953_ _g89028957_)))) + (_g89018953_ _g89028957_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g89018953_ _g89028957_)))) + (_g89018953_ _g89028957_))))) + (_g89009142_ + (list _e8882_ (gx#genident 'default) (gx#genident 'table) - _dispatch8804_ - _default8805_ - _tab8815_ - (vector-length _tab8815_) - _hashf8809_ - _eqf8810_)))))))))) - (let* ((_g86778701_ - (lambda (_g86788697_) + _dispatch8885_ + _default8886_ + _tab8896_ + (vector-length _tab8896_) + _hashf8890_ + _eqf8891_)))))))))) + (let* ((_g87588782_ + (lambda (_g87598778_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g86788697_))) - (_g86768797_ - (lambda (_g86788705_) - (if (gx#stx-pair? _g86788705_) - (let ((_e86838708_ (gx#syntax-e _g86788705_))) - (let ((_hd86828712_ + _g87598778_))) + (_g87578878_ + (lambda (_g87598786_) + (if (gx#stx-pair? _g87598786_) + (let ((_e87648789_ (gx#syntax-e _g87598786_))) + (let ((_hd87638793_ (let () (declare (not safe)) - (##car _e86838708_))) - (_tl86818715_ + (##car _e87648789_))) + (_tl87628796_ (let () (declare (not safe)) - (##cdr _e86838708_)))) - (if (gx#stx-pair? _tl86818715_) - (let ((_e86868718_ (gx#syntax-e _tl86818715_))) - (let ((_hd86858722_ + (##cdr _e87648789_)))) + (if (gx#stx-pair? _tl87628796_) + (let ((_e87678799_ (gx#syntax-e _tl87628796_))) + (let ((_hd87668803_ (let () (declare (not safe)) - (##car _e86868718_))) - (_tl86848725_ + (##car _e87678799_))) + (_tl87658806_ (let () (declare (not safe)) - (##cdr _e86868718_)))) - (if (gx#stx-pair/null? _tl86848725_) - (let ((_g42780_ + (##cdr _e87678799_)))) + (if (gx#stx-pair/null? _tl87658806_) + (let ((_g42939_ (gx#syntax-split-splice - _tl86848725_ + _tl87658806_ '0))) (begin - (let ((_g42781_ + (let ((_g42940_ (let () (declare (not safe)) - (if (##values? _g42780_) + (if (##values? _g42939_) (##vector-length - _g42780_) + _g42939_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42781_ 2))) + (##fx= _g42940_ 2))) (error "Context expects 2 values" - _g42781_))) - (let ((_target86878728_ + _g42940_))) + (let ((_target87688809_ (let () (declare (not safe)) (##vector-ref - _g42780_ + _g42939_ 0))) - (_tl86898731_ + (_tl87708812_ (let () (declare (not safe)) (##vector-ref - _g42780_ + _g42939_ 1)))) - (if (gx#stx-null? _tl86898731_) - (letrec ((_loop86908734_ - (lambda (_hd86888738_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause86948741_) - (if (gx#stx-pair? _hd86888738_) - (let ((_e86918744_ (gx#syntax-e _hd86888738_))) - (let ((_lp-hd86928748_ + (if (gx#stx-null? _tl87708812_) + (letrec ((_loop87718815_ + (lambda (_hd87698819_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _clause87758822_) + (if (gx#stx-pair? _hd87698819_) + (let ((_e87728825_ (gx#syntax-e _hd87698819_))) + (let ((_lp-hd87738829_ (let () (declare (not safe)) - (##car _e86918744_))) - (_lp-tl86938751_ + (##car _e87728825_))) + (_lp-tl87748832_ (let () (declare (not safe)) - (##cdr _e86918744_)))) - (_loop86908734_ - _lp-tl86938751_ - (cons _lp-hd86928748_ _clause86948741_)))) - (let ((_clause86958754_ (reverse _clause86948741_))) - ((lambda (_L8758_ _L8760_) - (let ((_g42782_ - (_parse-clauses8651_ - _L8760_ - (foldr (lambda (_g87788781_ _g87798784_) - (cons _g87788781_ _g87798784_)) + (##cdr _e87728825_)))) + (_loop87718815_ + _lp-tl87748832_ + (cons _lp-hd87738829_ _clause87758822_)))) + (let ((_clause87768835_ (reverse _clause87758822_))) + ((lambda (_L8839_ _L8841_) + (let ((_g42941_ + (_parse-clauses8732_ + _L8841_ + (foldr (lambda (_g88598862_ _g88608865_) + (cons _g88598862_ _g88608865_)) '() - _L8758_)))) + _L8839_)))) (begin - (let ((_g42783_ + (let ((_g42942_ (let () (declare (not safe)) - (if (##values? _g42782_) - (##vector-length _g42782_) + (if (##values? _g42941_) + (##vector-length _g42941_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42783_ 3))) + (##fx= _g42942_ 3))) (error "Context expects 3 values" - _g42783_))) - (let ((_datums8787_ + _g42942_))) + (let ((_datums8868_ (let () (declare (not safe)) - (##vector-ref _g42782_ 0))) - (_dispatch8789_ + (##vector-ref _g42941_ 0))) + (_dispatch8870_ (let () (declare (not safe)) - (##vector-ref _g42782_ 1))) - (_default8790_ + (##vector-ref _g42941_ 1))) + (_default8871_ (let () (declare (not safe)) - (##vector-ref _g42782_ 2)))) - (let ((_datum-count8792_ - (_count-datums8654_ _datums8787_))) - (if (< _datum-count8792_ '6) - (_generate-simple-case8659_ - _L8760_ - _datums8787_ - _dispatch8789_ - _default8790_) - (if (_char-datums?8656_ - _datums8787_) - (_generate-char-dispatch8668_ - _L8760_ - _datums8787_ - _dispatch8789_ - _default8790_) - (if (_fixnum-datums?8657_ - _datums8787_) - (_generate-fixnum-dispatch8673_ - _L8760_ - _datums8787_ - _dispatch8789_ - _default8790_) - (if (< _datum-count8792_ + (##vector-ref _g42941_ 2)))) + (let ((_datum-count8873_ + (_count-datums8735_ _datums8868_))) + (if (< _datum-count8873_ '6) + (_generate-simple-case8740_ + _L8841_ + _datums8868_ + _dispatch8870_ + _default8871_) + (if (_char-datums?8737_ + _datums8868_) + (_generate-char-dispatch8749_ + _L8841_ + _datums8868_ + _dispatch8870_ + _default8871_) + (if (_fixnum-datums?8738_ + _datums8868_) + (_generate-fixnum-dispatch8754_ + _L8841_ + _datums8868_ + _dispatch8870_ + _default8871_) + (if (< _datum-count8873_ '12) - (_generate-simple-case8659_ - _L8760_ - _datums8787_ - _dispatch8789_ - _default8790_) - (if (_symbolic-datums?8655_ - _datums8787_) - (_generate-symbolic-dispatch8663_ - _L8760_ - _datums8787_ - _dispatch8789_ - _default8790_) - (_generate-generic-dispatch8675_ - _L8760_ - _datums8787_ - _dispatch8789_ - _default8790_))))))))))) - _clause86958754_ - _hd86858722_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop86908734_ - _target86878728_ + (_generate-simple-case8740_ + _L8841_ + _datums8868_ + _dispatch8870_ + _default8871_) + (if (_symbolic-datums?8736_ + _datums8868_) + (_generate-symbolic-dispatch8744_ + _L8841_ + _datums8868_ + _dispatch8870_ + _default8871_) + (_generate-generic-dispatch8756_ + _L8841_ + _datums8868_ + _dispatch8870_ + _default8871_))))))))))) + _clause87768835_ + _hd87668803_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop87718815_ + _target87688809_ '())) - (_g86778701_ _g86788705_))))) - (_g86778701_ _g86788705_)))) - (_g86778701_ _g86788705_)))) - (_g86778701_ _g86788705_))))) - (_g86768797_ _stx8648_))))) + (_g87588782_ _g87598786_))))) + (_g87588782_ _g87598786_)))) + (_g87588782_ _g87598786_)))) + (_g87588782_ _g87598786_))))) + (_g87578878_ _stx8729_))))) (define |gerbil/core$$[:0:]#~case-test| - (lambda (_stx11699_) - (let* ((_g1170211720_ - (lambda (_g1170311716_) + (lambda (_stx11780_) + (let* ((_g1178311801_ + (lambda (_g1178411797_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1170311716_))) - (_g1170111786_ - (lambda (_g1170311724_) - (if (gx#stx-pair? _g1170311724_) - (let ((_e1170811727_ (gx#syntax-e _g1170311724_))) - (let ((_hd1170711731_ + _g1178411797_))) + (_g1178211867_ + (lambda (_g1178411805_) + (if (gx#stx-pair? _g1178411805_) + (let ((_e1178911808_ (gx#syntax-e _g1178411805_))) + (let ((_hd1178811812_ (let () (declare (not safe)) - (##car _e1170811727_))) - (_tl1170611734_ + (##car _e1178911808_))) + (_tl1178711815_ (let () (declare (not safe)) - (##cdr _e1170811727_)))) - (if (gx#stx-pair? _tl1170611734_) - (let ((_e1171111737_ - (gx#syntax-e _tl1170611734_))) - (let ((_hd1171011741_ + (##cdr _e1178911808_)))) + (if (gx#stx-pair? _tl1178711815_) + (let ((_e1179211818_ + (gx#syntax-e _tl1178711815_))) + (let ((_hd1179111822_ (let () (declare (not safe)) - (##car _e1171111737_))) - (_tl1170911744_ + (##car _e1179211818_))) + (_tl1179011825_ (let () (declare (not safe)) - (##cdr _e1171111737_)))) - (if (gx#stx-pair? _tl1170911744_) - (let ((_e1171411747_ - (gx#syntax-e _tl1170911744_))) - (let ((_hd1171311751_ + (##cdr _e1179211818_)))) + (if (gx#stx-pair? _tl1179011825_) + (let ((_e1179511828_ + (gx#syntax-e _tl1179011825_))) + (let ((_hd1179411832_ (let () (declare (not safe)) - (##car _e1171411747_))) - (_tl1171211754_ + (##car _e1179511828_))) + (_tl1179311835_ (let () (declare (not safe)) - (##cdr _e1171411747_)))) - (if (gx#stx-null? _tl1171211754_) - ((lambda (_L11757_ _L11759_) - (let ((_datum-e11775_ - (gx#stx-e _L11759_))) - (if (or (symbol? _datum-e11775_) + (##cdr _e1179511828_)))) + (if (gx#stx-null? _tl1179311835_) + ((lambda (_L11838_ _L11840_) + (let ((_datum-e11856_ + (gx#stx-e _L11840_))) + (if (or (symbol? _datum-e11856_) (keyword? - _datum-e11775_) + _datum-e11856_) (immediate? - _datum-e11775_)) + _datum-e11856_)) (cons (gx#datum->syntax '#f 'eq?) @@ -6833,193 +6834,193 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L11759_ '())) - (cons _L11757_ '()))) - (if (number? _datum-e11775_) + (cons _L11840_ '())) + (cons _L11838_ '()))) + (if (number? _datum-e11856_) (cons (gx#datum->syntax '#f 'eqv?) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L11759_ '())) - (cons _L11757_ '()))) + (cons _L11840_ '())) + (cons _L11838_ '()))) (cons (gx#datum->syntax '#f 'equal?) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L11759_ '())) - (cons _L11757_ '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1171311751_ - _hd1171011741_) - (_g1170211720_ _g1170311724_)))) - (_g1170211720_ _g1170311724_)))) - (_g1170211720_ _g1170311724_)))) - (_g1170211720_ _g1170311724_))))) - (_g1170111786_ _stx11699_)))) + (cons _L11840_ '())) + (cons _L11838_ '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd1179411832_ + _hd1179111822_) + (_g1178311801_ _g1178411805_)))) + (_g1178311801_ _g1178411805_)))) + (_g1178311801_ _g1178411805_)))) + (_g1178311801_ _g1178411805_))))) + (_g1178211867_ _stx11780_)))) (define |gerbil/core$$[:0:]#~case-dispatch| - (lambda (_$stx11790_) - (let* ((_g1179411818_ - (lambda (_g1179511814_) + (lambda (_$stx11871_) + (let* ((_g1187511899_ + (lambda (_g1187611895_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1179511814_))) - (_g1179311903_ - (lambda (_g1179511822_) - (if (gx#stx-pair? _g1179511822_) - (let ((_e1180011825_ (gx#syntax-e _g1179511822_))) - (let ((_hd1179911829_ + _g1187611895_))) + (_g1187411984_ + (lambda (_g1187611903_) + (if (gx#stx-pair? _g1187611903_) + (let ((_e1188111906_ (gx#syntax-e _g1187611903_))) + (let ((_hd1188011910_ (let () (declare (not safe)) - (##car _e1180011825_))) - (_tl1179811832_ + (##car _e1188111906_))) + (_tl1187911913_ (let () (declare (not safe)) - (##cdr _e1180011825_)))) - (if (gx#stx-pair? _tl1179811832_) - (let ((_e1180311835_ - (gx#syntax-e _tl1179811832_))) - (let ((_hd1180211839_ + (##cdr _e1188111906_)))) + (if (gx#stx-pair? _tl1187911913_) + (let ((_e1188411916_ + (gx#syntax-e _tl1187911913_))) + (let ((_hd1188311920_ (let () (declare (not safe)) - (##car _e1180311835_))) - (_tl1180111842_ + (##car _e1188411916_))) + (_tl1188211923_ (let () (declare (not safe)) - (##cdr _e1180311835_)))) - (if (gx#stx-pair/null? _tl1180111842_) - (let ((_g42784_ + (##cdr _e1188411916_)))) + (if (gx#stx-pair/null? _tl1188211923_) + (let ((_g42943_ (gx#syntax-split-splice - _tl1180111842_ + _tl1188211923_ '0))) (begin - (let ((_g42785_ + (let ((_g42944_ (let () (declare (not safe)) - (if (##values? _g42784_) + (if (##values? _g42943_) (##vector-length - _g42784_) + _g42943_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42785_ 2))) + (##fx= _g42944_ 2))) (error "Context expects 2 values" - _g42785_))) - (let ((_target1180411845_ + _g42944_))) + (let ((_target1188511926_ (let () (declare (not safe)) - (##vector-ref _g42784_ 0))) - (_tl1180611848_ + (##vector-ref _g42943_ 0))) + (_tl1188711929_ (let () (declare (not safe)) - (##vector-ref _g42784_ 1)))) - (if (gx#stx-null? _tl1180611848_) - (letrec ((_loop1180711851_ - (lambda (_hd1180511855_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _K1181111858_) - (if (gx#stx-pair? _hd1180511855_) - (let ((_e1180811861_ (gx#syntax-e _hd1180511855_))) - (let ((_lp-hd1180911865_ + (##vector-ref _g42943_ 1)))) + (if (gx#stx-null? _tl1188711929_) + (letrec ((_loop1188811932_ + (lambda (_hd1188611936_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _K1189211939_) + (if (gx#stx-pair? _hd1188611936_) + (let ((_e1188911942_ (gx#syntax-e _hd1188611936_))) + (let ((_lp-hd1189011946_ (let () (declare (not safe)) - (##car _e1180811861_))) - (_lp-tl1181011868_ + (##car _e1188911942_))) + (_lp-tl1189111949_ (let () (declare (not safe)) - (##cdr _e1180811861_)))) - (_loop1180711851_ - _lp-tl1181011868_ - (cons _lp-hd1180911865_ _K1181111858_)))) - (let ((_K1181211871_ (reverse _K1181111858_))) - ((lambda (_L11875_ _L11877_) + (##cdr _e1188911942_)))) + (_loop1188811932_ + _lp-tl1189111949_ + (cons _lp-hd1189011946_ _K1189211939_)))) + (let ((_K1189311952_ (reverse _K1189211939_))) + ((lambda (_L11956_ _L11958_) (cons (gx#datum->syntax '#f '~case-dispatch*) (cons '0 - (cons _L11877_ - (foldr (lambda (_g1189411897_ - _g1189511900_) - (cons _g1189411897_ - _g1189511900_)) + (cons _L11958_ + (foldr (lambda (_g1197511978_ + _g1197611981_) + (cons _g1197511978_ + _g1197611981_)) '() - _L11875_))))) - _K1181211871_ - _hd1180211839_)))))) + _L11956_))))) + _K1189311952_ + _hd1188311920_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1180711851_ - _target1180411845_ + (_loop1188811932_ + _target1188511926_ '())) - (_g1179411818_ - _g1179511822_))))) - (_g1179411818_ _g1179511822_)))) - (_g1179411818_ _g1179511822_)))) - (_g1179411818_ _g1179511822_))))) - (_g1179311903_ _$stx11790_)))) + (_g1187511899_ + _g1187611903_))))) + (_g1187511899_ _g1187611903_)))) + (_g1187511899_ _g1187611903_)))) + (_g1187511899_ _g1187611903_))))) + (_g1187411984_ _$stx11871_)))) (define |gerbil/core$$[:0:]#~case-dispatch*| - (lambda (_stx11908_) - (let* ((___stx3847638477_ _stx11908_) - (_g1191512011_ + (lambda (_stx11989_) + (let* ((___stx3841038411_ _stx11989_) + (_g1199612092_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3847638477_)))) - (let ((___kont3847938480_ - (lambda (_L12488_ _L12490_) + ___stx3841038411_)))) + (let ((___kont3841338414_ + (lambda (_L12569_ _L12571_) (cons (gx#datum->syntax '#f 'quote) (cons '#!void '())))) - (___kont3848138482_ - (lambda (_L12430_ _L12432_ _L12433_) _L12430_)) - (___kont3848338484_ - (lambda (_L12327_ _L12329_ _L12330_ _L12331_) - (let* ((_g1235212360_ - (lambda (_g1235312356_) + (___kont3841538416_ + (lambda (_L12511_ _L12513_ _L12514_) _L12511_)) + (___kont3841738418_ + (lambda (_L12408_ _L12410_ _L12411_ _L12412_) + (let* ((_g1243312441_ + (lambda (_g1243412437_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1235312356_))) - (_g1235112379_ - (lambda (_g1235312364_) - ((lambda (_L12367_) + _g1243412437_))) + (_g1243212460_ + (lambda (_g1243412445_) + ((lambda (_L12448_) (let () (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx=) - (cons _L12330_ - (cons _L12367_ '()))) - (cons _L12329_ - (cons _L12327_ '())))))) - _g1235312364_)))) - (_g1235112379_ (gx#stx-e _L12331_))))) - (___kont3848538486_ - (lambda (_L12177_ _L12179_ _L12180_ _L12181_ _L12182_) - (let* ((_g1220612221_ - (lambda (_g1220712217_) + (cons _L12411_ + (cons _L12448_ '()))) + (cons _L12410_ + (cons _L12408_ '())))))) + _g1243412445_)))) + (_g1243212460_ (gx#stx-e _L12412_))))) + (___kont3841938420_ + (lambda (_L12258_ _L12260_ _L12261_ _L12262_ _L12263_) + (let* ((_g1228712302_ + (lambda (_g1228812298_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1220712217_))) - (_g1220512266_ - (lambda (_g1220712225_) - (if (gx#stx-pair? _g1220712225_) - (let ((_e1221212228_ - (gx#syntax-e _g1220712225_))) - (let ((_hd1221112232_ + _g1228812298_))) + (_g1228612347_ + (lambda (_g1228812306_) + (if (gx#stx-pair? _g1228812306_) + (let ((_e1229312309_ + (gx#syntax-e _g1228812306_))) + (let ((_hd1229212313_ (let () (declare (not safe)) - (##car _e1221212228_))) - (_tl1221012235_ + (##car _e1229312309_))) + (_tl1229112316_ (let () (declare (not safe)) - (##cdr _e1221212228_)))) - (if (gx#stx-pair? _tl1221012235_) - (let ((_e1221512238_ - (gx#syntax-e _tl1221012235_))) - (let ((_hd1221412242_ + (##cdr _e1229312309_)))) + (if (gx#stx-pair? _tl1229112316_) + (let ((_e1229612319_ + (gx#syntax-e _tl1229112316_))) + (let ((_hd1229512323_ (let () (declare (not safe)) - (##car _e1221512238_))) - (_tl1221312245_ + (##car _e1229612319_))) + (_tl1229412326_ (let () (declare (not safe)) - (##cdr _e1221512238_)))) - (if (gx#stx-null? _tl1221312245_) - ((lambda (_L12248_ _L12250_) + (##cdr _e1229612319_)))) + (if (gx#stx-null? _tl1229412326_) + ((lambda (_L12329_ _L12331_) (let () (cons (gx#datum->syntax '#f @@ -7028,2076 +7029,2076 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fx=) - (cons _L12181_ (cons _L12250_ '()))) - (cons _L12180_ + (cons _L12262_ (cons _L12331_ '()))) + (cons _L12261_ (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx=) - (cons _L12181_ - (cons _L12248_ + (cons _L12262_ + (cons _L12329_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L12179_ - (cons _L12177_ '())))) + (cons _L12260_ + (cons _L12258_ '())))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1221412242_ - _hd1221112232_) - (_g1220612221_ - _g1220712225_)))) - (_g1220612221_ _g1220712225_)))) - (_g1220612221_ _g1220712225_))))) - (_g1220512266_ - (list (gx#stx-e _L12182_) (fx1+ (gx#stx-e _L12182_))))))) - (___kont3848738488_ - (lambda (_L12078_ _L12080_ _L12081_) + _hd1229512323_ + _hd1229212313_) + (_g1228712302_ + _g1228812306_)))) + (_g1228712302_ _g1228812306_)))) + (_g1228712302_ _g1228812306_))))) + (_g1228612347_ + (list (gx#stx-e _L12263_) (fx1+ (gx#stx-e _L12263_))))))) + (___kont3842138422_ + (lambda (_L12159_ _L12161_ _L12162_) (cons (gx#datum->syntax '#f '~case-dispatch-bsearch) - (cons _L12081_ - (cons _L12080_ - (foldr (lambda (_g1210112104_ - _g1210212107_) - (cons _g1210112104_ - _g1210212107_)) + (cons _L12162_ + (cons _L12161_ + (foldr (lambda (_g1218212185_ + _g1218312188_) + (cons _g1218212185_ + _g1218312188_)) '() - _L12078_))))))) - (let ((___match3863338634_ - (lambda (_e1199012018_ - _hd1198912022_ - _tl1198812025_ - _e1199312028_ - _hd1199212032_ - _tl1199112035_ - _e1199612038_ - _hd1199512042_ - _tl1199412045_ - ___splice3848938490_ - _target1199712048_ - _tl1199912051_) - (letrec ((_loop1200012054_ - (lambda (_hd1199812058_ _K1200412061_) - (if (gx#stx-pair? _hd1199812058_) - (let ((_e1200112064_ - (gx#syntax-e _hd1199812058_))) - (let ((_lp-tl1200312071_ + _L12159_))))))) + (let ((___match3856738568_ + (lambda (_e1207112099_ + _hd1207012103_ + _tl1206912106_ + _e1207412109_ + _hd1207312113_ + _tl1207212116_ + _e1207712119_ + _hd1207612123_ + _tl1207512126_ + ___splice3842338424_ + _target1207812129_ + _tl1208012132_) + (letrec ((_loop1208112135_ + (lambda (_hd1207912139_ _K1208512142_) + (if (gx#stx-pair? _hd1207912139_) + (let ((_e1208212145_ + (gx#syntax-e _hd1207912139_))) + (let ((_lp-tl1208412152_ (let () (declare (not safe)) - (##cdr _e1200112064_))) - (_lp-hd1200212068_ + (##cdr _e1208212145_))) + (_lp-hd1208312149_ (let () (declare (not safe)) - (##car _e1200112064_)))) - (_loop1200012054_ - _lp-tl1200312071_ - (cons _lp-hd1200212068_ - _K1200412061_)))) - (let ((_K1200512074_ - (reverse _K1200412061_))) - (___kont3848738488_ - _K1200512074_ - _hd1199512042_ - _hd1199212032_)))))) - (_loop1200012054_ _target1199712048_ '()))))) - (if (gx#stx-pair? ___stx3847638477_) - (let ((_e1192112458_ (gx#syntax-e ___stx3847638477_))) - (let ((_tl1191912465_ - (let () (declare (not safe)) (##cdr _e1192112458_))) - (_hd1192012462_ + (##car _e1208212145_)))) + (_loop1208112135_ + _lp-tl1208412152_ + (cons _lp-hd1208312149_ + _K1208512142_)))) + (let ((_K1208612155_ + (reverse _K1208512142_))) + (___kont3842138422_ + _K1208612155_ + _hd1207612123_ + _hd1207312113_)))))) + (_loop1208112135_ _target1207812129_ '()))))) + (if (gx#stx-pair? ___stx3841038411_) + (let ((_e1200212539_ (gx#syntax-e ___stx3841038411_))) + (let ((_tl1200012546_ + (let () (declare (not safe)) (##cdr _e1200212539_))) + (_hd1200112543_ (let () (declare (not safe)) - (##car _e1192112458_)))) - (if (gx#stx-pair? _tl1191912465_) - (let ((_e1192412468_ (gx#syntax-e _tl1191912465_))) - (let ((_tl1192212475_ + (##car _e1200212539_)))) + (if (gx#stx-pair? _tl1200012546_) + (let ((_e1200512549_ (gx#syntax-e _tl1200012546_))) + (let ((_tl1200312556_ (let () (declare (not safe)) - (##cdr _e1192412468_))) - (_hd1192312472_ + (##cdr _e1200512549_))) + (_hd1200412553_ (let () (declare (not safe)) - (##car _e1192412468_)))) - (if (gx#stx-pair? _tl1192212475_) - (let ((_e1192712478_ - (gx#syntax-e _tl1192212475_))) - (let ((_tl1192512485_ + (##car _e1200512549_)))) + (if (gx#stx-pair? _tl1200312556_) + (let ((_e1200812559_ + (gx#syntax-e _tl1200312556_))) + (let ((_tl1200612566_ (let () (declare (not safe)) - (##cdr _e1192712478_))) - (_hd1192612482_ + (##cdr _e1200812559_))) + (_hd1200712563_ (let () (declare (not safe)) - (##car _e1192712478_)))) - (if (gx#stx-null? _tl1192512485_) - (___kont3847938480_ - _hd1192612482_ - _hd1192312472_) - (if (gx#stx-pair? _tl1192512485_) - (let ((_e1194212420_ + (##car _e1200812559_)))) + (if (gx#stx-null? _tl1200612566_) + (___kont3841338414_ + _hd1200712563_ + _hd1200412553_) + (if (gx#stx-pair? _tl1200612566_) + (let ((_e1202312501_ (gx#syntax-e - _tl1192512485_))) - (let ((_tl1194012427_ + _tl1200612566_))) + (let ((_tl1202112508_ (let () (declare (not safe)) - (##cdr _e1194212420_))) - (_hd1194112424_ + (##cdr _e1202312501_))) + (_hd1202212505_ (let () (declare (not safe)) - (##car _e1194212420_)))) + (##car _e1202312501_)))) (if (gx#stx-null? - _tl1194012427_) - (___kont3848138482_ - _hd1194112424_ - _hd1192612482_ - _hd1192312472_) + _tl1202112508_) + (___kont3841538416_ + _hd1202212505_ + _hd1200712563_ + _hd1200412553_) (if (gx#stx-pair? - _tl1194012427_) - (let ((_e1196112317_ + _tl1202112508_) + (let ((_e1204212398_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1194012427_))) - (let ((_tl1195912324_ - (let () (declare (not safe)) (##cdr _e1196112317_))) - (_hd1196012321_ + (gx#syntax-e _tl1202112508_))) + (let ((_tl1204012405_ + (let () (declare (not safe)) (##cdr _e1204212398_))) + (_hd1204112402_ (let () (declare (not safe)) - (##car _e1196112317_)))) - (if (gx#stx-null? _tl1195912324_) - (___kont3848338484_ - _hd1196012321_ - _hd1194112424_ - _hd1192612482_ - _hd1192312472_) - (if (gx#stx-pair? _tl1195912324_) - (let ((_e1198412167_ - (gx#syntax-e _tl1195912324_))) - (let ((_tl1198212174_ + (##car _e1204212398_)))) + (if (gx#stx-null? _tl1204012405_) + (___kont3841738418_ + _hd1204112402_ + _hd1202212505_ + _hd1200712563_ + _hd1200412553_) + (if (gx#stx-pair? _tl1204012405_) + (let ((_e1206512248_ + (gx#syntax-e _tl1204012405_))) + (let ((_tl1206312255_ (let () (declare (not safe)) - (##cdr _e1198412167_))) - (_hd1198312171_ + (##cdr _e1206512248_))) + (_hd1206412252_ (let () (declare (not safe)) - (##car _e1198412167_)))) - (if (gx#stx-null? _tl1198212174_) - (___kont3848538486_ - _hd1198312171_ - _hd1196012321_ - _hd1194112424_ - _hd1192612482_ - _hd1192312472_) - (if (gx#stx-pair/null? _tl1192512485_) - (let ((___splice3848938490_ + (##car _e1206512248_)))) + (if (gx#stx-null? _tl1206312255_) + (___kont3841938420_ + _hd1206412252_ + _hd1204112402_ + _hd1202212505_ + _hd1200712563_ + _hd1200412553_) + (if (gx#stx-pair/null? _tl1200612566_) + (let ((___splice3842338424_ (gx#syntax-split-splice - _tl1192512485_ + _tl1200612566_ '0))) - (let ((_tl1199912051_ + (let ((_tl1208012132_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3842338424_ '1))) - (_target1199712048_ + (_target1207812129_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3842338424_ '0)))) - (if (gx#stx-null? _tl1199912051_) - (___match3863338634_ - _e1192112458_ - _hd1192012462_ - _tl1191912465_ - _e1192412468_ - _hd1192312472_ - _tl1192212475_ - _e1192712478_ - _hd1192612482_ - _tl1192512485_ - ___splice3848938490_ - _target1199712048_ - _tl1199912051_) + (if (gx#stx-null? _tl1208012132_) + (___match3856738568_ + _e1200212539_ + _hd1200112543_ + _tl1200012546_ + _e1200512549_ + _hd1200412553_ + _tl1200312556_ + _e1200812559_ + _hd1200712563_ + _tl1200612566_ + ___splice3842338424_ + _target1207812129_ + _tl1208012132_) (let () (declare (not safe)) - (_g1191512011_))))) + (_g1199612092_))))) (let () (declare (not safe)) - (_g1191512011_)))))) - (if (gx#stx-pair/null? _tl1192512485_) - (let ((___splice3848938490_ + (_g1199612092_)))))) + (if (gx#stx-pair/null? _tl1200612566_) + (let ((___splice3842338424_ (gx#syntax-split-splice - _tl1192512485_ + _tl1200612566_ '0))) - (let ((_tl1199912051_ + (let ((_tl1208012132_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3842338424_ '1))) - (_target1199712048_ + (_target1207812129_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3842338424_ '0)))) - (if (gx#stx-null? _tl1199912051_) - (___match3863338634_ - _e1192112458_ - _hd1192012462_ - _tl1191912465_ - _e1192412468_ - _hd1192312472_ - _tl1192212475_ - _e1192712478_ - _hd1192612482_ - _tl1192512485_ - ___splice3848938490_ - _target1199712048_ - _tl1199912051_) + (if (gx#stx-null? _tl1208012132_) + (___match3856738568_ + _e1200212539_ + _hd1200112543_ + _tl1200012546_ + _e1200512549_ + _hd1200412553_ + _tl1200312556_ + _e1200812559_ + _hd1200712563_ + _tl1200612566_ + ___splice3842338424_ + _target1207812129_ + _tl1208012132_) (let () (declare (not safe)) - (_g1191512011_))))) + (_g1199612092_))))) (let () (declare (not safe)) - (_g1191512011_))))))) - (if (gx#stx-pair/null? _tl1192512485_) - (let ((___splice3848938490_ - (gx#syntax-split-splice _tl1192512485_ '0))) - (let ((_tl1199912051_ + (_g1199612092_))))))) + (if (gx#stx-pair/null? _tl1200612566_) + (let ((___splice3842338424_ + (gx#syntax-split-splice _tl1200612566_ '0))) + (let ((_tl1208012132_ (let () (declare (not safe)) - (##vector-ref ___splice3848938490_ '1))) - (_target1199712048_ + (##vector-ref ___splice3842338424_ '1))) + (_target1207812129_ (let () (declare (not safe)) - (##vector-ref ___splice3848938490_ '0)))) - (if (gx#stx-null? _tl1199912051_) - (___match3863338634_ - _e1192112458_ - _hd1192012462_ - _tl1191912465_ - _e1192412468_ - _hd1192312472_ - _tl1192212475_ - _e1192712478_ - _hd1192612482_ - _tl1192512485_ - ___splice3848938490_ - _target1199712048_ - _tl1199912051_) - (let () (declare (not safe)) (_g1191512011_))))) - (let () (declare (not safe)) (_g1191512011_))))))) + (##vector-ref ___splice3842338424_ '0)))) + (if (gx#stx-null? _tl1208012132_) + (___match3856738568_ + _e1200212539_ + _hd1200112543_ + _tl1200012546_ + _e1200512549_ + _hd1200412553_ + _tl1200312556_ + _e1200812559_ + _hd1200712563_ + _tl1200612566_ + ___splice3842338424_ + _target1207812129_ + _tl1208012132_) + (let () (declare (not safe)) (_g1199612092_))))) + (let () (declare (not safe)) (_g1199612092_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl1192512485_) - (let ((___splice3848938490_ + _tl1200612566_) + (let ((___splice3842338424_ (gx#syntax-split-splice - _tl1192512485_ + _tl1200612566_ '0))) - (let ((_tl1199912051_ + (let ((_tl1208012132_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3842338424_ '1))) - (_target1199712048_ + (_target1207812129_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3842338424_ '0)))) (if (gx#stx-null? - _tl1199912051_) - (___match3863338634_ - _e1192112458_ - _hd1192012462_ - _tl1191912465_ - _e1192412468_ - _hd1192312472_ - _tl1192212475_ - _e1192712478_ - _hd1192612482_ - _tl1192512485_ - ___splice3848938490_ - _target1199712048_ - _tl1199912051_) + _tl1208012132_) + (___match3856738568_ + _e1200212539_ + _hd1200112543_ + _tl1200012546_ + _e1200512549_ + _hd1200412553_ + _tl1200312556_ + _e1200812559_ + _hd1200712563_ + _tl1200612566_ + ___splice3842338424_ + _target1207812129_ + _tl1208012132_) (let () (declare (not safe)) - (_g1191512011_))))) + (_g1199612092_))))) (let () (declare (not safe)) - (_g1191512011_))))))) + (_g1199612092_))))))) (let () (declare (not safe)) - (_g1191512011_))))) - (let () (declare (not safe)) (_g1191512011_))))) - (let () (declare (not safe)) (_g1191512011_)))))))) + (_g1199612092_))))) + (let () (declare (not safe)) (_g1199612092_))))) + (let () (declare (not safe)) (_g1199612092_)))))))) (define |gerbil/core$$[:0:]#~case-dispatch-bsearch| - (lambda (_stx12510_) - (letrec ((_split12513_ - (lambda (_lst12874_ _mid12876_) - (let _lp12878_ ((_i12881_ '0) - (_rest12883_ _lst12874_) - (_left12884_ '())) - (if (fx< _i12881_ _mid12876_) - (_lp12878_ - (fx1+ _i12881_) - (cdr _rest12883_) - (cons (car _rest12883_) _left12884_)) - (values (reverse _left12884_) _rest12883_)))))) - (let* ((_g1251612544_ - (lambda (_g1251712540_) + (lambda (_stx12591_) + (letrec ((_split12594_ + (lambda (_lst12955_ _mid12957_) + (let _lp12959_ ((_i12962_ '0) + (_rest12964_ _lst12955_) + (_left12965_ '())) + (if (fx< _i12962_ _mid12957_) + (_lp12959_ + (fx1+ _i12962_) + (cdr _rest12964_) + (cons (car _rest12964_) _left12965_)) + (values (reverse _left12965_) _rest12964_)))))) + (let* ((_g1259712625_ + (lambda (_g1259812621_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1251712540_))) - (_g1251512870_ - (lambda (_g1251712548_) - (if (gx#stx-pair? _g1251712548_) - (let ((_e1252312551_ (gx#syntax-e _g1251712548_))) - (let ((_hd1252212555_ + _g1259812621_))) + (_g1259612951_ + (lambda (_g1259812629_) + (if (gx#stx-pair? _g1259812629_) + (let ((_e1260412632_ (gx#syntax-e _g1259812629_))) + (let ((_hd1260312636_ (let () (declare (not safe)) - (##car _e1252312551_))) - (_tl1252112558_ + (##car _e1260412632_))) + (_tl1260212639_ (let () (declare (not safe)) - (##cdr _e1252312551_)))) - (if (gx#stx-pair? _tl1252112558_) - (let ((_e1252612561_ - (gx#syntax-e _tl1252112558_))) - (let ((_hd1252512565_ + (##cdr _e1260412632_)))) + (if (gx#stx-pair? _tl1260212639_) + (let ((_e1260712642_ + (gx#syntax-e _tl1260212639_))) + (let ((_hd1260612646_ (let () (declare (not safe)) - (##car _e1252612561_))) - (_tl1252412568_ + (##car _e1260712642_))) + (_tl1260512649_ (let () (declare (not safe)) - (##cdr _e1252612561_)))) - (if (gx#stx-pair? _tl1252412568_) - (let ((_e1252912571_ - (gx#syntax-e _tl1252412568_))) - (let ((_hd1252812575_ + (##cdr _e1260712642_)))) + (if (gx#stx-pair? _tl1260512649_) + (let ((_e1261012652_ + (gx#syntax-e _tl1260512649_))) + (let ((_hd1260912656_ (let () (declare (not safe)) - (##car _e1252912571_))) - (_tl1252712578_ + (##car _e1261012652_))) + (_tl1260812659_ (let () (declare (not safe)) - (##cdr _e1252912571_)))) + (##cdr _e1261012652_)))) (if (gx#stx-pair/null? - _tl1252712578_) - (let ((_g42786_ + _tl1260812659_) + (let ((_g42945_ (gx#syntax-split-splice - _tl1252712578_ + _tl1260812659_ '0))) (begin - (let ((_g42787_ + (let ((_g42946_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42786_) - (##vector-length _g42786_) + _g42945_) + (##vector-length _g42945_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42787_ 2))) - (error "Context expects 2 values" _g42787_))) + (if (not (let () (declare (not safe)) (##fx= _g42946_ 2))) + (error "Context expects 2 values" _g42946_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1253012581_ + (let ((_target1261112662_ (let () (declare (not safe)) (##vector-ref - _g42786_ + _g42945_ 0))) - (_tl1253212584_ + (_tl1261312665_ (let () (declare (not safe)) (##vector-ref - _g42786_ + _g42945_ 1)))) (if (gx#stx-null? - _tl1253212584_) - (letrec ((_loop1253312587_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1253112591_ _K1253712594_) - (if (gx#stx-pair? _hd1253112591_) - (let ((_e1253412597_ - (gx#syntax-e _hd1253112591_))) - (let ((_lp-hd1253512601_ + _tl1261312665_) + (letrec ((_loop1261412668_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd1261212672_ _K1261812675_) + (if (gx#stx-pair? _hd1261212672_) + (let ((_e1261512678_ + (gx#syntax-e _hd1261212672_))) + (let ((_lp-hd1261612682_ (let () (declare (not safe)) - (##car _e1253412597_))) - (_lp-tl1253612604_ + (##car _e1261512678_))) + (_lp-tl1261712685_ (let () (declare (not safe)) - (##cdr _e1253412597_)))) - (_loop1253312587_ - _lp-tl1253612604_ - (cons _lp-hd1253512601_ - _K1253712594_)))) - (let ((_K1253812607_ - (reverse _K1253712594_))) - ((lambda (_L12611_ _L12613_ _L12614_) - (let* ((_len12644_ - (length (foldr (lambda (_g1263512638_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1263612641_) - (cons _g1263512638_ _g1263612641_)) + (##cdr _e1261512678_)))) + (_loop1261412668_ + _lp-tl1261712685_ + (cons _lp-hd1261612682_ + _K1261812675_)))) + (let ((_K1261912688_ + (reverse _K1261812675_))) + ((lambda (_L12692_ _L12694_ _L12695_) + (let* ((_len12725_ + (length (foldr (lambda (_g1271612719_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1271712722_) + (cons _g1271612719_ _g1271712722_)) '() - _L12611_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_mid12647_ - (quotient _len12644_ '2)) - (_g42788_ - (_split12513_ - (foldr (lambda (_g1264912652_ - _g1265012655_) - (cons _g1264912652_ - _g1265012655_)) + _L12692_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_mid12728_ + (quotient _len12725_ '2)) + (_g42947_ + (_split12594_ + (foldr (lambda (_g1273012733_ + _g1273112736_) + (cons _g1273012733_ + _g1273112736_)) '() - _L12611_) - _mid12647_))) + _L12692_) + _mid12728_))) (begin - (let ((_g42789_ + (let ((_g42948_ (let () (declare (not safe)) - (if (##values? _g42788_) + (if (##values? _g42947_) (##vector-length - _g42788_) + _g42947_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42789_ 2))) + (##fx= _g42948_ 2))) (error "Context expects 2 values" - _g42789_))) - (let ((_left12658_ + _g42948_))) + (let ((_left12739_ (let () (declare (not safe)) - (##vector-ref _g42788_ 0))) - (_right12660_ + (##vector-ref _g42947_ 0))) + (_right12741_ (let () (declare (not safe)) (##vector-ref - _g42788_ + _g42947_ 1)))) (let () - (let* ((_g1266412705_ - (lambda (_g1266512701_) + (let* ((_g1274512786_ + (lambda (_g1274612782_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1266512701_))) - (_g1266312866_ - (lambda (_g1266512709_) + _g1274612782_))) + (_g1274412947_ + (lambda (_g1274612790_) (if (gx#stx-pair? - _g1266512709_) - (let ((_e1267212712_ + _g1274612790_) + (let ((_e1275312793_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1266512709_))) - (let ((_hd1267112716_ + (gx#syntax-e _g1274612790_))) + (let ((_hd1275212797_ (let () (declare (not safe)) - (##car _e1267212712_))) - (_tl1267012719_ + (##car _e1275312793_))) + (_tl1275112800_ (let () (declare (not safe)) - (##cdr _e1267212712_)))) - (if (gx#stx-pair? _tl1267012719_) - (let ((_e1267512722_ - (gx#syntax-e _tl1267012719_))) - (let ((_hd1267412726_ + (##cdr _e1275312793_)))) + (if (gx#stx-pair? _tl1275112800_) + (let ((_e1275612803_ + (gx#syntax-e _tl1275112800_))) + (let ((_hd1275512807_ (let () (declare (not safe)) - (##car _e1267512722_))) - (_tl1267312729_ + (##car _e1275612803_))) + (_tl1275412810_ (let () (declare (not safe)) - (##cdr _e1267512722_)))) - (if (gx#stx-pair/null? _hd1267412726_) - (let ((_g42790_ + (##cdr _e1275612803_)))) + (if (gx#stx-pair/null? _hd1275512807_) + (let ((_g42949_ (gx#syntax-split-splice - _hd1267412726_ + _hd1275512807_ '0))) (begin - (let ((_g42791_ + (let ((_g42950_ (let () (declare (not safe)) - (if (##values? _g42790_) + (if (##values? _g42949_) (##vector-length - _g42790_) + _g42949_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42791_ 2))) + (##fx= _g42950_ 2))) (error "Context expects 2 values" - _g42791_))) - (let ((_target1267612732_ + _g42950_))) + (let ((_target1275712813_ (let () (declare (not safe)) - (##vector-ref _g42790_ 0))) - (_tl1267812735_ + (##vector-ref _g42949_ 0))) + (_tl1275912816_ (let () (declare (not safe)) - (##vector-ref _g42790_ 1)))) - (if (gx#stx-null? _tl1267812735_) - (letrec ((_loop1267912738_ - (lambda (_hd1267712742_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _K-left1268312745_) - (if (gx#stx-pair? _hd1267712742_) - (let ((_e1268012748_ (gx#syntax-e _hd1267712742_))) - (let ((_lp-hd1268112752_ + (##vector-ref _g42949_ 1)))) + (if (gx#stx-null? _tl1275912816_) + (letrec ((_loop1276012819_ + (lambda (_hd1275812823_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _K-left1276412826_) + (if (gx#stx-pair? _hd1275812823_) + (let ((_e1276112829_ (gx#syntax-e _hd1275812823_))) + (let ((_lp-hd1276212833_ (let () (declare (not safe)) - (##car _e1268012748_))) - (_lp-tl1268212755_ + (##car _e1276112829_))) + (_lp-tl1276312836_ (let () (declare (not safe)) - (##cdr _e1268012748_)))) - (_loop1267912738_ - _lp-tl1268212755_ - (cons _lp-hd1268112752_ _K-left1268312745_)))) - (let ((_K-left1268412758_ (reverse _K-left1268312745_))) - (if (gx#stx-pair? _tl1267312729_) - (let ((_e1268712762_ - (gx#syntax-e _tl1267312729_))) - (let ((_hd1268612766_ + (##cdr _e1276112829_)))) + (_loop1276012819_ + _lp-tl1276312836_ + (cons _lp-hd1276212833_ _K-left1276412826_)))) + (let ((_K-left1276512839_ (reverse _K-left1276412826_))) + (if (gx#stx-pair? _tl1275412810_) + (let ((_e1276812843_ + (gx#syntax-e _tl1275412810_))) + (let ((_hd1276712847_ (let () (declare (not safe)) - (##car _e1268712762_))) - (_tl1268512769_ + (##car _e1276812843_))) + (_tl1276612850_ (let () (declare (not safe)) - (##cdr _e1268712762_)))) - (if (gx#stx-pair/null? _hd1268612766_) - (let ((_g42792_ + (##cdr _e1276812843_)))) + (if (gx#stx-pair/null? _hd1276712847_) + (let ((_g42951_ (gx#syntax-split-splice - _hd1268612766_ + _hd1276712847_ '0))) (begin - (let ((_g42793_ + (let ((_g42952_ (let () (declare (not safe)) - (if (##values? _g42792_) + (if (##values? _g42951_) (##vector-length - _g42792_) + _g42951_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42793_ 2))) + (##fx= _g42952_ 2))) (error "Context expects 2 values" - _g42793_))) - (let ((_target1268812772_ + _g42952_))) + (let ((_target1276912853_ (let () (declare (not safe)) - (##vector-ref _g42792_ 0))) - (_tl1269012775_ + (##vector-ref _g42951_ 0))) + (_tl1277112856_ (let () (declare (not safe)) - (##vector-ref _g42792_ 1)))) - (if (gx#stx-null? _tl1269012775_) - (letrec ((_loop1269112778_ - (lambda (_hd1268912782_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _K-right1269512785_) - (if (gx#stx-pair? _hd1268912782_) - (let ((_e1269212788_ (gx#syntax-e _hd1268912782_))) - (let ((_lp-hd1269312792_ + (##vector-ref _g42951_ 1)))) + (if (gx#stx-null? _tl1277112856_) + (letrec ((_loop1277212859_ + (lambda (_hd1277012863_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _K-right1277612866_) + (if (gx#stx-pair? _hd1277012863_) + (let ((_e1277312869_ (gx#syntax-e _hd1277012863_))) + (let ((_lp-hd1277412873_ (let () (declare (not safe)) - (##car _e1269212788_))) - (_lp-tl1269412795_ + (##car _e1277312869_))) + (_lp-tl1277512876_ (let () (declare (not safe)) - (##cdr _e1269212788_)))) - (_loop1269112778_ - _lp-tl1269412795_ - (cons _lp-hd1269312792_ _K-right1269512785_)))) - (let ((_K-right1269612798_ - (reverse _K-right1269512785_))) - (if (gx#stx-pair? _tl1268512769_) - (let ((_e1269912802_ - (gx#syntax-e _tl1268512769_))) - (let ((_hd1269812806_ + (##cdr _e1277312869_)))) + (_loop1277212859_ + _lp-tl1277512876_ + (cons _lp-hd1277412873_ _K-right1277612866_)))) + (let ((_K-right1277712879_ + (reverse _K-right1277612866_))) + (if (gx#stx-pair? _tl1276612850_) + (let ((_e1278012883_ + (gx#syntax-e _tl1276612850_))) + (let ((_hd1277912887_ (let () (declare (not safe)) - (##car _e1269912802_))) - (_tl1269712809_ + (##car _e1278012883_))) + (_tl1277812890_ (let () (declare (not safe)) - (##cdr _e1269912802_)))) - (if (gx#stx-null? _tl1269712809_) - ((lambda (_L12812_ - _L12814_ - _L12815_ - _L12816_) + (##cdr _e1278012883_)))) + (if (gx#stx-null? _tl1277812890_) + ((lambda (_L12893_ + _L12895_ + _L12896_ + _L12897_) (let () (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _L12613_ + (cons _L12694_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L12812_ '()))) + (cons _L12893_ '()))) (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _L12614_ - (cons _L12613_ - (foldr (lambda (_g1285112854_ - _g1285212857_) - (cons _g1285112854_ - _g1285212857_)) + (cons _L12695_ + (cons _L12694_ + (foldr (lambda (_g1293212935_ + _g1293312938_) + (cons _g1293212935_ + _g1293312938_)) '() - _L12815_)))) + _L12896_)))) (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _L12812_ - (cons _L12613_ - (foldr (lambda (_g1284912860_ - _g1285012863_) - (cons _g1284912860_ - _g1285012863_)) + (cons _L12893_ + (cons _L12694_ + (foldr (lambda (_g1293012941_ + _g1293112944_) + (cons _g1293012941_ + _g1293112944_)) '() - _L12814_)))) + _L12895_)))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1269812806_ - _K-right1269612798_ - _K-left1268412758_ - _hd1267112716_) - (_g1266412705_ _g1266512709_)))) - (_g1266412705_ _g1266512709_))))))) + _hd1277912887_ + _K-right1277712879_ + _K-left1276512839_ + _hd1275212797_) + (_g1274512786_ _g1274612790_)))) + (_g1274512786_ _g1274612790_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1269112778_ - _target1268812772_ + (_loop1277212859_ + _target1276912853_ '())) - (_g1266412705_ - _g1266512709_))))) - (_g1266412705_ _g1266512709_)))) - (_g1266412705_ _g1266512709_))))))) + (_g1274512786_ + _g1274612790_))))) + (_g1274512786_ _g1274612790_)))) + (_g1274512786_ _g1274612790_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1267912738_ - _target1267612732_ + (_loop1276012819_ + _target1275712813_ '())) - (_g1266412705_ - _g1266512709_))))) - (_g1266412705_ _g1266512709_)))) - (_g1266412705_ _g1266512709_)))) - (_g1266412705_ _g1266512709_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1266312866_ - (list _mid12647_ - _left12658_ - _right12660_ - (fx+ _mid12647_ + (_g1274512786_ + _g1274612790_))))) + (_g1274512786_ _g1274612790_)))) + (_g1274512786_ _g1274612790_)))) + (_g1274512786_ _g1274612790_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1274412947_ + (list _mid12728_ + _left12739_ + _right12741_ + (fx+ _mid12728_ (gx#stx-e - _L12614_)))))))))) - _K1253812607_ - _hd1252812575_ - _hd1252512565_)))))) - (_loop1253312587_ _target1253012581_ '())) - (_g1251612544_ _g1251712548_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1251612544_ - _g1251712548_)))) - (_g1251612544_ _g1251712548_)))) - (_g1251612544_ _g1251712548_)))) - (_g1251612544_ _g1251712548_))))) - (_g1251512870_ _stx12510_))))) + _L12695_)))))))))) + _K1261912688_ + _hd1260912656_ + _hd1260612646_)))))) + (_loop1261412668_ _target1261112662_ '())) + (_g1259712625_ _g1259812629_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1259712625_ + _g1259812629_)))) + (_g1259712625_ _g1259812629_)))) + (_g1259712625_ _g1259812629_)))) + (_g1259712625_ _g1259812629_))))) + (_g1259612951_ _stx12591_))))) (define |gerbil/core$$[:0:]#do| - (lambda (_$stx12890_) - (let* ((_g1289412965_ - (lambda (_g1289512961_) + (lambda (_$stx12971_) + (let* ((_g1297513046_ + (lambda (_g1297613042_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1289512961_))) - (_g1289313254_ - (lambda (_g1289512969_) - (if (gx#stx-pair? _g1289512969_) - (let ((_e1290412972_ (gx#syntax-e _g1289512969_))) - (let ((_hd1290312976_ + _g1297613042_))) + (_g1297413335_ + (lambda (_g1297613050_) + (if (gx#stx-pair? _g1297613050_) + (let ((_e1298513053_ (gx#syntax-e _g1297613050_))) + (let ((_hd1298413057_ (let () (declare (not safe)) - (##car _e1290412972_))) - (_tl1290212979_ + (##car _e1298513053_))) + (_tl1298313060_ (let () (declare (not safe)) - (##cdr _e1290412972_)))) - (if (gx#stx-pair? _tl1290212979_) - (let ((_e1290712982_ - (gx#syntax-e _tl1290212979_))) - (let ((_hd1290612986_ + (##cdr _e1298513053_)))) + (if (gx#stx-pair? _tl1298313060_) + (let ((_e1298813063_ + (gx#syntax-e _tl1298313060_))) + (let ((_hd1298713067_ (let () (declare (not safe)) - (##car _e1290712982_))) - (_tl1290512989_ + (##car _e1298813063_))) + (_tl1298613070_ (let () (declare (not safe)) - (##cdr _e1290712982_)))) - (if (gx#stx-pair/null? _hd1290612986_) - (let ((_g42794_ + (##cdr _e1298813063_)))) + (if (gx#stx-pair/null? _hd1298713067_) + (let ((_g42953_ (gx#syntax-split-splice - _hd1290612986_ + _hd1298713067_ '0))) (begin - (let ((_g42795_ + (let ((_g42954_ (let () (declare (not safe)) - (if (##values? _g42794_) + (if (##values? _g42953_) (##vector-length - _g42794_) + _g42953_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42795_ 2))) + (##fx= _g42954_ 2))) (error "Context expects 2 values" - _g42795_))) - (let ((_target1290812992_ + _g42954_))) + (let ((_target1298913073_ (let () (declare (not safe)) - (##vector-ref _g42794_ 0))) - (_tl1291012995_ + (##vector-ref _g42953_ 0))) + (_tl1299113076_ (let () (declare (not safe)) - (##vector-ref _g42794_ 1)))) - (if (gx#stx-null? _tl1291012995_) - (letrec ((_loop1291112998_ - (lambda (_hd1290913002_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _step1291513005_ - _init1291613007_ - _var1291713009_) - (if (gx#stx-pair? _hd1290913002_) - (let ((_e1291213012_ (gx#syntax-e _hd1290913002_))) - (let ((_lp-hd1291313016_ + (##vector-ref _g42953_ 1)))) + (if (gx#stx-null? _tl1299113076_) + (letrec ((_loop1299213079_ + (lambda (_hd1299013083_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _step1299613086_ + _init1299713088_ + _var1299813090_) + (if (gx#stx-pair? _hd1299013083_) + (let ((_e1299313093_ (gx#syntax-e _hd1299013083_))) + (let ((_lp-hd1299413097_ (let () (declare (not safe)) - (##car _e1291213012_))) - (_lp-tl1291413019_ + (##car _e1299313093_))) + (_lp-tl1299513100_ (let () (declare (not safe)) - (##cdr _e1291213012_)))) - (if (gx#stx-pair? _lp-hd1291313016_) - (let ((_e1292313022_ - (gx#syntax-e _lp-hd1291313016_))) - (let ((_hd1292213026_ + (##cdr _e1299313093_)))) + (if (gx#stx-pair? _lp-hd1299413097_) + (let ((_e1300413103_ + (gx#syntax-e _lp-hd1299413097_))) + (let ((_hd1300313107_ (let () (declare (not safe)) - (##car _e1292313022_))) - (_tl1292113029_ + (##car _e1300413103_))) + (_tl1300213110_ (let () (declare (not safe)) - (##cdr _e1292313022_)))) - (if (gx#stx-pair? _tl1292113029_) - (let ((_e1292613032_ - (gx#syntax-e _tl1292113029_))) - (let ((_hd1292513036_ + (##cdr _e1300413103_)))) + (if (gx#stx-pair? _tl1300213110_) + (let ((_e1300713113_ + (gx#syntax-e _tl1300213110_))) + (let ((_hd1300613117_ (let () (declare (not safe)) - (##car _e1292613032_))) - (_tl1292413039_ + (##car _e1300713113_))) + (_tl1300513120_ (let () (declare (not safe)) - (##cdr _e1292613032_)))) + (##cdr _e1300713113_)))) (if (gx#stx-pair/null? - _tl1292413039_) - (let ((_g42800_ + _tl1300513120_) + (let ((_g42959_ (gx#syntax-split-splice - _tl1292413039_ + _tl1300513120_ '0))) (begin - (let ((_g42801_ + (let ((_g42960_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42800_) - (##vector-length _g42800_) + _g42959_) + (##vector-length _g42959_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42801_ 2))) - (error "Context expects 2 values" _g42801_))) + (if (not (let () (declare (not safe)) (##fx= _g42960_ 2))) + (error "Context expects 2 values" _g42960_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1292713042_ + (let ((_target1300813123_ (let () (declare (not safe)) (##vector-ref - _g42800_ + _g42959_ 0))) - (_tl1292913045_ + (_tl1301013126_ (let () (declare (not safe)) (##vector-ref - _g42800_ + _g42959_ 1)))) (if (gx#stx-null? - _tl1292913045_) - (letrec ((_loop1293013048_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1292813052_ _step1293413055_) - (if (gx#stx-pair? _hd1292813052_) - (let ((_e1293113058_ - (gx#syntax-e _hd1292813052_))) - (let ((_lp-hd1293213062_ + _tl1301013126_) + (letrec ((_loop1301113129_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd1300913133_ _step1301513136_) + (if (gx#stx-pair? _hd1300913133_) + (let ((_e1301213139_ + (gx#syntax-e _hd1300913133_))) + (let ((_lp-hd1301313143_ (let () (declare (not safe)) - (##car _e1293113058_))) - (_lp-tl1293313065_ + (##car _e1301213139_))) + (_lp-tl1301413146_ (let () (declare (not safe)) - (##cdr _e1293113058_)))) - (_loop1293013048_ - _lp-tl1293313065_ - (cons _lp-hd1293213062_ - _step1293413055_)))) - (let ((_step1293513068_ - (reverse _step1293413055_))) - (_loop1291112998_ - _lp-tl1291413019_ - (cons _step1293513068_ _step1291513005_) - (cons _hd1292513036_ _init1291613007_) - (cons _hd1292213026_ - _var1291713009_))))))) - (_loop1293013048_ _target1292713042_ '())) - (_g1289412965_ _g1289512969_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1289412965_ - _g1289512969_)))) - (_g1289412965_ _g1289512969_)))) - (_g1289412965_ _g1289512969_)))) - (let ((_step1291813072_ (reverse _step1291513005_)) - (_init1291913075_ (reverse _init1291613007_)) - (_var1292013077_ (reverse _var1291713009_))) - (if (gx#stx-pair? _tl1290512989_) - (let ((_e1293813080_ - (gx#syntax-e _tl1290512989_))) - (let ((_hd1293713084_ + (##cdr _e1301213139_)))) + (_loop1301113129_ + _lp-tl1301413146_ + (cons _lp-hd1301313143_ + _step1301513136_)))) + (let ((_step1301613149_ + (reverse _step1301513136_))) + (_loop1299213079_ + _lp-tl1299513100_ + (cons _step1301613149_ _step1299613086_) + (cons _hd1300613117_ _init1299713088_) + (cons _hd1300313107_ + _var1299813090_))))))) + (_loop1301113129_ _target1300813123_ '())) + (_g1297513046_ _g1297613050_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1297513046_ + _g1297613050_)))) + (_g1297513046_ _g1297613050_)))) + (_g1297513046_ _g1297613050_)))) + (let ((_step1299913153_ (reverse _step1299613086_)) + (_init1300013156_ (reverse _init1299713088_)) + (_var1300113158_ (reverse _var1299813090_))) + (if (gx#stx-pair? _tl1298613070_) + (let ((_e1301913161_ + (gx#syntax-e _tl1298613070_))) + (let ((_hd1301813165_ (let () (declare (not safe)) - (##car _e1293813080_))) - (_tl1293613087_ + (##car _e1301913161_))) + (_tl1301713168_ (let () (declare (not safe)) - (##cdr _e1293813080_)))) - (if (gx#stx-pair? _hd1293713084_) - (let ((_e1294113090_ - (gx#syntax-e _hd1293713084_))) - (let ((_hd1294013094_ + (##cdr _e1301913161_)))) + (if (gx#stx-pair? _hd1301813165_) + (let ((_e1302213171_ + (gx#syntax-e _hd1301813165_))) + (let ((_hd1302113175_ (let () (declare (not safe)) - (##car _e1294113090_))) - (_tl1293913097_ + (##car _e1302213171_))) + (_tl1302013178_ (let () (declare (not safe)) - (##cdr _e1294113090_)))) + (##cdr _e1302213171_)))) (if (gx#stx-pair/null? - _tl1293913097_) - (let ((_g42796_ + _tl1302013178_) + (let ((_g42955_ (gx#syntax-split-splice - _tl1293913097_ + _tl1302013178_ '0))) (begin - (let ((_g42797_ + (let ((_g42956_ (let () (declare (not safe)) (if (##values? - _g42796_) + _g42955_) (##vector-length - _g42796_) + _g42955_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42797_ 2))) - (error "Context expects 2 values" _g42797_))) + (##fx= _g42956_ 2))) + (error "Context expects 2 values" _g42956_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1294213100_ + (let ((_target1302313181_ (let () (declare (not safe)) (##vector-ref - _g42796_ + _g42955_ 0))) - (_tl1294413103_ + (_tl1302513184_ (let () (declare (not safe)) (##vector-ref - _g42796_ + _g42955_ 1)))) (if (gx#stx-null? - _tl1294413103_) - (letrec ((_loop1294513106_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1294313110_ _fini1294913113_) - (if (gx#stx-pair? _hd1294313110_) - (let ((_e1294613116_ - (gx#syntax-e _hd1294313110_))) - (let ((_lp-hd1294713120_ + _tl1302513184_) + (letrec ((_loop1302613187_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd1302413191_ _fini1303013194_) + (if (gx#stx-pair? _hd1302413191_) + (let ((_e1302713197_ + (gx#syntax-e _hd1302413191_))) + (let ((_lp-hd1302813201_ (let () (declare (not safe)) - (##car _e1294613116_))) - (_lp-tl1294813123_ + (##car _e1302713197_))) + (_lp-tl1302913204_ (let () (declare (not safe)) - (##cdr _e1294613116_)))) - (_loop1294513106_ - _lp-tl1294813123_ - (cons _lp-hd1294713120_ - _fini1294913113_)))) - (let ((_fini1295013126_ - (reverse _fini1294913113_))) - (if (gx#stx-pair/null? _tl1293613087_) - (let ((_g42798_ + (##cdr _e1302713197_)))) + (_loop1302613187_ + _lp-tl1302913204_ + (cons _lp-hd1302813201_ + _fini1303013194_)))) + (let ((_fini1303113207_ + (reverse _fini1303013194_))) + (if (gx#stx-pair/null? _tl1301713168_) + (let ((_g42957_ (gx#syntax-split-splice - _tl1293613087_ + _tl1301713168_ '0))) (begin - (let ((_g42799_ + (let ((_g42958_ (let () (declare (not safe)) - (if (##values? _g42798_) + (if (##values? _g42957_) (##vector-length - _g42798_) + _g42957_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42799_ 2))) + (##fx= _g42958_ 2))) (error "Context expects 2 values" - _g42799_))) - (let ((_target1295113130_ + _g42958_))) + (let ((_target1303213211_ (let () (declare (not safe)) - (##vector-ref _g42798_ 0))) - (_tl1295313133_ + (##vector-ref _g42957_ 0))) + (_tl1303413214_ (let () (declare (not safe)) - (##vector-ref _g42798_ 1)))) - (if (gx#stx-null? _tl1295313133_) - (letrec ((_loop1295413136_ - (lambda (_hd1295213140_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body1295813143_) - (if (gx#stx-pair? _hd1295213140_) - (let ((_e1295513146_ (gx#syntax-e _hd1295213140_))) - (let ((_lp-hd1295613150_ + (##vector-ref _g42957_ 1)))) + (if (gx#stx-null? _tl1303413214_) + (letrec ((_loop1303513217_ + (lambda (_hd1303313221_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _body1303913224_) + (if (gx#stx-pair? _hd1303313221_) + (let ((_e1303613227_ (gx#syntax-e _hd1303313221_))) + (let ((_lp-hd1303713231_ (let () (declare (not safe)) - (##car _e1295513146_))) - (_lp-tl1295713153_ + (##car _e1303613227_))) + (_lp-tl1303813234_ (let () (declare (not safe)) - (##cdr _e1295513146_)))) - (_loop1295413136_ - _lp-tl1295713153_ - (cons _lp-hd1295613150_ _body1295813143_)))) - (let ((_body1295913156_ (reverse _body1295813143_))) - ((lambda (_L13160_ - _L13162_ - _L13163_ - _L13164_ - _L13165_ - _L13166_) + (##cdr _e1303613227_)))) + (_loop1303513217_ + _lp-tl1303813234_ + (cons _lp-hd1303713231_ _body1303913224_)))) + (let ((_body1304013237_ (reverse _body1303913224_))) + ((lambda (_L13241_ + _L13243_ + _L13244_ + _L13245_ + _L13246_ + _L13247_) (if (gx#stx-andmap gx#identifier? - (foldr (lambda (_g1319913202_ _g1320013205_) - (cons _g1319913202_ _g1320013205_)) + (foldr (lambda (_g1328013283_ _g1328113286_) + (cons _g1328013283_ _g1328113286_)) '() - _L13166_)) + _L13247_)) (cons (gx#datum->syntax '#f 'let) (cons (gx#datum->syntax '#f '$loop) (cons (begin (gx#syntax-check-splice-targets - _L13165_ - _L13166_) - (foldr (lambda (_g1321613220_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1321713223_ - _g1321813225_) - (cons (cons _g1321713223_ (cons _g1321613220_ '())) - _g1321813225_)) + _L13246_ + _L13247_) + (foldr (lambda (_g1329713301_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1329813304_ + _g1329913306_) + (cons (cons _g1329813304_ (cons _g1329713301_ '())) + _g1329913306_)) '() - _L13165_ - _L13166_)) + _L13246_ + _L13247_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'if) - (cons _L13163_ + (cons _L13244_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'begin) (cons '#!void - (foldr (lambda (_g1321413228_ - _g1321513231_) - (cons _g1321413228_ - _g1321513231_)) + (foldr (lambda (_g1329513309_ + _g1329613312_) + (cons _g1329513309_ + _g1329613312_)) '() - _L13162_))) + _L13243_))) (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_g1320713234_ - _g1320813237_) - (cons _g1320713234_ - _g1320813237_)) + (foldr (lambda (_g1328813315_ + _g1328913318_) + (cons _g1328813315_ + _g1328913318_)) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$loop) (begin - (gx#syntax-check-splice-targets _L13164_ _L13166_) - (foldr (lambda (_g1320913240_ - _g1321013243_ - _g1321113245_) + (gx#syntax-check-splice-targets _L13245_ _L13247_) + (foldr (lambda (_g1329013321_ + _g1329113324_ + _g1329213326_) (cons (cons (gx#datum->syntax '#f 'begin) - (cons _g1321013243_ - (foldr (lambda (_g1321213248_ + (cons _g1329113324_ + (foldr (lambda (_g1329313329_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1321313251_) - (cons _g1321213248_ _g1321313251_)) + _g1329413332_) + (cons _g1329313329_ _g1329413332_)) '() - _g1320913240_))) + _g1329013321_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1321113245_)) + _g1329213326_)) '() - _L13164_ - _L13166_))) + _L13245_ + _L13247_))) '()) - _L13160_)) + _L13241_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1289412965_ _g1289512969_))) - _body1295913156_ - _fini1295013126_ - _hd1294013094_ - _step1291813072_ - _init1291913075_ - _var1292013077_)))))) + (_g1297513046_ _g1297613050_))) + _body1304013237_ + _fini1303113207_ + _hd1302113175_ + _step1299913153_ + _init1300013156_ + _var1300113158_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1295413136_ - _target1295113130_ + (_loop1303513217_ + _target1303213211_ '())) - (_g1289412965_ - _g1289512969_))))) - (_g1289412965_ _g1289512969_))))))) - (_loop1294513106_ _target1294213100_ '())) - (_g1289412965_ _g1289512969_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1289412965_ _g1289512969_)))) - (_g1289412965_ _g1289512969_)))) - (_g1289412965_ _g1289512969_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1291112998_ - _target1290812992_ + (_g1297513046_ + _g1297613050_))))) + (_g1297513046_ _g1297613050_))))))) + (_loop1302613187_ _target1302313181_ '())) + (_g1297513046_ _g1297613050_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1297513046_ _g1297613050_)))) + (_g1297513046_ _g1297613050_)))) + (_g1297513046_ _g1297613050_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1299213079_ + _target1298913073_ '() '() '())) - (_g1289412965_ - _g1289512969_))))) - (_g1289412965_ _g1289512969_)))) - (_g1289412965_ _g1289512969_)))) - (_g1289412965_ _g1289512969_))))) - (_g1289313254_ _$stx12890_)))) + (_g1297513046_ + _g1297613050_))))) + (_g1297513046_ _g1297613050_)))) + (_g1297513046_ _g1297613050_)))) + (_g1297513046_ _g1297613050_))))) + (_g1297413335_ _$stx12971_)))) (define |gerbil/core$$[:0:]#do-while| - (lambda (_$stx13262_) - (let* ((_g1326613289_ - (lambda (_g1326713285_) + (lambda (_$stx13343_) + (let* ((_g1334713370_ + (lambda (_g1334813366_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1326713285_))) - (_g1326513360_ - (lambda (_g1326713293_) - (if (gx#stx-pair? _g1326713293_) - (let ((_e1327413296_ (gx#syntax-e _g1326713293_))) - (let ((_hd1327313300_ + _g1334813366_))) + (_g1334613441_ + (lambda (_g1334813374_) + (if (gx#stx-pair? _g1334813374_) + (let ((_e1335513377_ (gx#syntax-e _g1334813374_))) + (let ((_hd1335413381_ (let () (declare (not safe)) - (##car _e1327413296_))) - (_tl1327213303_ + (##car _e1335513377_))) + (_tl1335313384_ (let () (declare (not safe)) - (##cdr _e1327413296_)))) - (if (gx#stx-pair? _tl1327213303_) - (let ((_e1327713306_ - (gx#syntax-e _tl1327213303_))) - (let ((_hd1327613310_ + (##cdr _e1335513377_)))) + (if (gx#stx-pair? _tl1335313384_) + (let ((_e1335813387_ + (gx#syntax-e _tl1335313384_))) + (let ((_hd1335713391_ (let () (declare (not safe)) - (##car _e1327713306_))) - (_tl1327513313_ + (##car _e1335813387_))) + (_tl1335613394_ (let () (declare (not safe)) - (##cdr _e1327713306_)))) - (if (gx#stx-pair? _tl1327513313_) - (let ((_e1328013316_ - (gx#syntax-e _tl1327513313_))) - (let ((_hd1327913320_ + (##cdr _e1335813387_)))) + (if (gx#stx-pair? _tl1335613394_) + (let ((_e1336113397_ + (gx#syntax-e _tl1335613394_))) + (let ((_hd1336013401_ (let () (declare (not safe)) - (##car _e1328013316_))) - (_tl1327813323_ + (##car _e1336113397_))) + (_tl1335913404_ (let () (declare (not safe)) - (##cdr _e1328013316_)))) - (if (gx#stx-pair? _hd1327913320_) - (let ((_e1328313326_ + (##cdr _e1336113397_)))) + (if (gx#stx-pair? _hd1336013401_) + (let ((_e1336413407_ (gx#syntax-e - _hd1327913320_))) - (let ((_hd1328213330_ + _hd1336013401_))) + (let ((_hd1336313411_ (let () (declare (not safe)) - (##car _e1328313326_))) - (_tl1328113333_ + (##car _e1336413407_))) + (_tl1336213414_ (let () (declare (not safe)) - (##cdr _e1328313326_)))) - ((lambda (_L13336_ - _L13338_ - _L13339_ - _L13340_) + (##cdr _e1336413407_)))) + ((lambda (_L13417_ + _L13419_ + _L13420_ + _L13421_) (cons (gx#datum->syntax '#f 'do) - (cons _L13340_ + (cons _L13421_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (cons (gx#datum->syntax '#f 'not) - (cons _L13339_ '())) - _L13338_) - _L13336_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl1327813323_ - _tl1328113333_ - _hd1328213330_ - _hd1327613310_))) - (_g1326613289_ _g1326713293_)))) - (_g1326613289_ _g1326713293_)))) - (_g1326613289_ _g1326713293_)))) - (_g1326613289_ _g1326713293_))))) - (_g1326513360_ _$stx13262_)))) + (cons _L13420_ '())) + _L13419_) + _L13417_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _tl1335913404_ + _tl1336213414_ + _hd1336313411_ + _hd1335713391_))) + (_g1334713370_ _g1334813374_)))) + (_g1334713370_ _g1334813374_)))) + (_g1334713370_ _g1334813374_)))) + (_g1334713370_ _g1334813374_))))) + (_g1334613441_ _$stx13343_)))) (define |gerbil/core$$[:0:]#begin0| - (lambda (_$stx13364_) - (let* ((___stx3863638637_ _$stx13364_) - (_g1336913400_ + (lambda (_$stx13445_) + (let* ((___stx3857038571_ _$stx13445_) + (_g1345013481_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3863638637_)))) - (let ((___kont3863938640_ (lambda (_L13512_) _L13512_)) - (___kont3864138642_ - (lambda (_L13457_ _L13459_) + ___stx3857038571_)))) + (let ((___kont3857338574_ (lambda (_L13593_) _L13593_)) + (___kont3857538576_ + (lambda (_L13538_ _L13540_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$r) - (cons _L13459_ '())) + (cons _L13540_ '())) (cons (cons (gx#datum->syntax '#f '%#expression) (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_g1347613479_ + (foldr (lambda (_g1355713560_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1347713482_) - (cons _g1347613479_ _g1347713482_)) + _g1355813563_) + (cons _g1355713560_ _g1355813563_)) '() - _L13457_)) + _L13538_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (gx#datum->syntax '#f '$r) '()))))))) - (let ((___match3867938680_ - (lambda (_e1338213407_ - _hd1338113411_ - _tl1338013414_ - _e1338513417_ - _hd1338413421_ - _tl1338313424_ - ___splice3864338644_ - _target1338613427_ - _tl1338813430_) - (letrec ((_loop1338913433_ - (lambda (_hd1338713437_ _rest1339313440_) - (if (gx#stx-pair? _hd1338713437_) - (let ((_e1339013443_ - (gx#syntax-e _hd1338713437_))) - (let ((_lp-tl1339213450_ + (let ((___match3861338614_ + (lambda (_e1346313488_ + _hd1346213492_ + _tl1346113495_ + _e1346613498_ + _hd1346513502_ + _tl1346413505_ + ___splice3857738578_ + _target1346713508_ + _tl1346913511_) + (letrec ((_loop1347013514_ + (lambda (_hd1346813518_ _rest1347413521_) + (if (gx#stx-pair? _hd1346813518_) + (let ((_e1347113524_ + (gx#syntax-e _hd1346813518_))) + (let ((_lp-tl1347313531_ (let () (declare (not safe)) - (##cdr _e1339013443_))) - (_lp-hd1339113447_ + (##cdr _e1347113524_))) + (_lp-hd1347213528_ (let () (declare (not safe)) - (##car _e1339013443_)))) - (_loop1338913433_ - _lp-tl1339213450_ - (cons _lp-hd1339113447_ - _rest1339313440_)))) - (let ((_rest1339413453_ - (reverse _rest1339313440_))) - (___kont3864138642_ - _rest1339413453_ - _hd1338413421_)))))) - (_loop1338913433_ _target1338613427_ '()))))) - (if (gx#stx-pair? ___stx3863638637_) - (let ((_e1337413492_ (gx#syntax-e ___stx3863638637_))) - (let ((_tl1337213499_ - (let () (declare (not safe)) (##cdr _e1337413492_))) - (_hd1337313496_ + (##car _e1347113524_)))) + (_loop1347013514_ + _lp-tl1347313531_ + (cons _lp-hd1347213528_ + _rest1347413521_)))) + (let ((_rest1347513534_ + (reverse _rest1347413521_))) + (___kont3857538576_ + _rest1347513534_ + _hd1346513502_)))))) + (_loop1347013514_ _target1346713508_ '()))))) + (if (gx#stx-pair? ___stx3857038571_) + (let ((_e1345513573_ (gx#syntax-e ___stx3857038571_))) + (let ((_tl1345313580_ + (let () (declare (not safe)) (##cdr _e1345513573_))) + (_hd1345413577_ (let () (declare (not safe)) - (##car _e1337413492_)))) - (if (gx#stx-pair? _tl1337213499_) - (let ((_e1337713502_ (gx#syntax-e _tl1337213499_))) - (let ((_tl1337513509_ + (##car _e1345513573_)))) + (if (gx#stx-pair? _tl1345313580_) + (let ((_e1345813583_ (gx#syntax-e _tl1345313580_))) + (let ((_tl1345613590_ (let () (declare (not safe)) - (##cdr _e1337713502_))) - (_hd1337613506_ + (##cdr _e1345813583_))) + (_hd1345713587_ (let () (declare (not safe)) - (##car _e1337713502_)))) - (if (gx#stx-null? _tl1337513509_) - (___kont3863938640_ _hd1337613506_) - (if (gx#stx-pair/null? _tl1337513509_) - (let ((___splice3864338644_ + (##car _e1345813583_)))) + (if (gx#stx-null? _tl1345613590_) + (___kont3857338574_ _hd1345713587_) + (if (gx#stx-pair/null? _tl1345613590_) + (let ((___splice3857738578_ (gx#syntax-split-splice - _tl1337513509_ + _tl1345613590_ '0))) - (let ((_tl1338813430_ + (let ((_tl1346913511_ (let () (declare (not safe)) (##vector-ref - ___splice3864338644_ + ___splice3857738578_ '1))) - (_target1338613427_ + (_target1346713508_ (let () (declare (not safe)) (##vector-ref - ___splice3864338644_ + ___splice3857738578_ '0)))) - (if (gx#stx-null? _tl1338813430_) - (___match3867938680_ - _e1337413492_ - _hd1337313496_ - _tl1337213499_ - _e1337713502_ - _hd1337613506_ - _tl1337513509_ - ___splice3864338644_ - _target1338613427_ - _tl1338813430_) + (if (gx#stx-null? _tl1346913511_) + (___match3861338614_ + _e1345513573_ + _hd1345413577_ + _tl1345313580_ + _e1345813583_ + _hd1345713587_ + _tl1345613590_ + ___splice3857738578_ + _target1346713508_ + _tl1346913511_) (let () (declare (not safe)) - (_g1336913400_))))) + (_g1345013481_))))) (let () (declare (not safe)) - (_g1336913400_)))))) - (let () (declare (not safe)) (_g1336913400_))))) - (let () (declare (not safe)) (_g1336913400_)))))))) + (_g1345013481_)))))) + (let () (declare (not safe)) (_g1345013481_))))) + (let () (declare (not safe)) (_g1345013481_)))))))) (define |gerbil/core$$[:0:]#rec| - (lambda (_$stx13530_) - (let* ((___stx3868238683_ _$stx13530_) - (_g1353613589_ + (lambda (_$stx13611_) + (let* ((___stx3861638617_ _$stx13611_) + (_g1361713670_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3868238683_)))) - (let ((___kont3868538686_ - (lambda (_L13791_ _L13793_) + ___stx3861638617_)))) + (let ((___kont3861938620_ + (lambda (_L13872_ _L13874_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _L13793_ (cons _L13791_ '())) '()) - (cons _L13793_ '()))))) - (___kont3868738688_ - (lambda (_L13735_ _L13737_) + (cons (cons (cons _L13874_ (cons _L13872_ '())) '()) + (cons _L13874_ '()))))) + (___kont3862138622_ + (lambda (_L13816_ _L13818_) (cons (gx#datum->syntax '#f 'letrec-values) - (cons (cons (cons _L13737_ (cons _L13735_ '())) '()) + (cons (cons (cons _L13818_ (cons _L13816_ '())) '()) (cons (cons (gx#datum->syntax '#f 'values) - _L13737_) + _L13818_) '()))))) - (___kont3868938690_ - (lambda (_L13656_ _L13658_ _L13659_) + (___kont3862338624_ + (lambda (_L13737_ _L13739_ _L13740_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _L13659_ + (cons (cons (cons _L13740_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _L13658_ - (foldr (lambda (_g1367913682_ + (cons _L13739_ + (foldr (lambda (_g1376013763_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1368013685_) - (cons _g1367913682_ _g1368013685_)) + _g1376113766_) + (cons _g1376013763_ _g1376113766_)) '() - _L13656_))) + _L13737_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _L13659_ '())))))) - (let* ((___match3876938770_ - (lambda (_e1356813596_ - _hd1356713600_ - _tl1356613603_ - _e1357113606_ - _hd1357013610_ - _tl1356913613_ - _e1357413616_ - _hd1357313620_ - _tl1357213623_ - ___splice3869138692_ - _target1357513626_ - _tl1357713629_) - (letrec ((_loop1357813632_ - (lambda (_hd1357613636_ _body1358213639_) - (if (gx#stx-pair? _hd1357613636_) - (let ((_e1357913642_ - (gx#syntax-e _hd1357613636_))) - (let ((_lp-tl1358113649_ + (cons _L13740_ '())))))) + (let* ((___match3870338704_ + (lambda (_e1364913677_ + _hd1364813681_ + _tl1364713684_ + _e1365213687_ + _hd1365113691_ + _tl1365013694_ + _e1365513697_ + _hd1365413701_ + _tl1365313704_ + ___splice3862538626_ + _target1365613707_ + _tl1365813710_) + (letrec ((_loop1365913713_ + (lambda (_hd1365713717_ _body1366313720_) + (if (gx#stx-pair? _hd1365713717_) + (let ((_e1366013723_ + (gx#syntax-e _hd1365713717_))) + (let ((_lp-tl1366213730_ (let () (declare (not safe)) - (##cdr _e1357913642_))) - (_lp-hd1358013646_ + (##cdr _e1366013723_))) + (_lp-hd1366113727_ (let () (declare (not safe)) - (##car _e1357913642_)))) - (_loop1357813632_ - _lp-tl1358113649_ - (cons _lp-hd1358013646_ - _body1358213639_)))) - (let ((_body1358313652_ - (reverse _body1358213639_))) - (let ((_L13656_ _body1358313652_) - (_L13658_ _tl1357213623_) - (_L13659_ _hd1357313620_)) - (if (gx#identifier? _L13659_) - (___kont3868938690_ - _L13656_ - _L13658_ - _L13659_) + (##car _e1366013723_)))) + (_loop1365913713_ + _lp-tl1366213730_ + (cons _lp-hd1366113727_ + _body1366313720_)))) + (let ((_body1366413733_ + (reverse _body1366313720_))) + (let ((_L13737_ _body1366413733_) + (_L13739_ _tl1365313704_) + (_L13740_ _hd1365413701_)) + (if (gx#identifier? _L13740_) + (___kont3862338624_ + _L13737_ + _L13739_ + _L13740_) (let () (declare (not safe)) - (_g1353613589_))))))))) - (_loop1357813632_ _target1357513626_ '())))) - (___match3874338744_ - (lambda (_e1355313695_ - _hd1355213699_ - _tl1355113702_ - _e1355613705_ - _hd1355513709_ - _tl1355413712_ - _e1355913715_ - _hd1355813719_ - _tl1355713722_ - _e1356213725_ - _hd1356113729_ - _tl1356013732_) - (let ((_L13735_ _hd1356113729_) - (_L13737_ _tl1355713722_)) - (if (gx#identifier-list? _L13737_) - (___kont3868738688_ _L13735_ _L13737_) - (if (gx#stx-pair/null? _tl1355413712_) - (let ((___splice3869138692_ + (_g1361713670_))))))))) + (_loop1365913713_ _target1365613707_ '())))) + (___match3867738678_ + (lambda (_e1363413776_ + _hd1363313780_ + _tl1363213783_ + _e1363713786_ + _hd1363613790_ + _tl1363513793_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + _e1364313806_ + _hd1364213810_ + _tl1364113813_) + (let ((_L13816_ _hd1364213810_) + (_L13818_ _tl1363813803_)) + (if (gx#identifier-list? _L13818_) + (___kont3862138622_ _L13816_ _L13818_) + (if (gx#stx-pair/null? _tl1363513793_) + (let ((___splice3862538626_ (gx#syntax-split-splice - _tl1355413712_ + _tl1363513793_ '0))) - (let ((_tl1357713629_ + (let ((_tl1365813710_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3862538626_ '1))) - (_target1357513626_ + (_target1365613707_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3862538626_ '0)))) - (if (gx#stx-null? _tl1357713629_) - (___match3876938770_ - _e1355313695_ - _hd1355213699_ - _tl1355113702_ - _e1355613705_ - _hd1355513709_ - _tl1355413712_ - _e1355913715_ - _hd1355813719_ - _tl1355713722_ - ___splice3869138692_ - _target1357513626_ - _tl1357713629_) + (if (gx#stx-null? _tl1365813710_) + (___match3870338704_ + _e1363413776_ + _hd1363313780_ + _tl1363213783_ + _e1363713786_ + _hd1363613790_ + _tl1363513793_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + ___splice3862538626_ + _target1365613707_ + _tl1365813710_) (let () (declare (not safe)) - (_g1353613589_))))) + (_g1361713670_))))) (let () (declare (not safe)) - (_g1353613589_))))))) - (___match3871338714_ - (lambda (_e1354213761_ - _hd1354113765_ - _tl1354013768_ - _e1354513771_ - _hd1354413775_ - _tl1354313778_ - _e1354813781_ - _hd1354713785_ - _tl1354613788_) - (let ((_L13791_ _hd1354713785_) - (_L13793_ _hd1354413775_)) - (if (gx#identifier? _L13793_) - (___kont3868538686_ _L13791_ _L13793_) - (if (gx#stx-pair? _hd1354413775_) - (let ((_e1355913715_ - (gx#syntax-e _hd1354413775_))) - (let ((_tl1355713722_ + (_g1361713670_))))))) + (___match3864738648_ + (lambda (_e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1362913862_ + _hd1362813866_ + _tl1362713869_) + (let ((_L13872_ _hd1362813866_) + (_L13874_ _hd1362513856_)) + (if (gx#identifier? _L13874_) + (___kont3861938620_ _L13872_ _L13874_) + (if (gx#stx-pair? _hd1362513856_) + (let ((_e1364013796_ + (gx#syntax-e _hd1362513856_))) + (let ((_tl1363813803_ (let () (declare (not safe)) - (##cdr _e1355913715_))) - (_hd1355813719_ + (##cdr _e1364013796_))) + (_hd1363913800_ (let () (declare (not safe)) - (##car _e1355913715_)))) - (if (gx#identifier? _hd1355813719_) + (##car _e1364013796_)))) + (if (gx#identifier? _hd1363913800_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42802_| - _hd1355813719_) - (___match3874338744_ - _e1354213761_ - _hd1354113765_ - _tl1354013768_ - _e1354513771_ - _hd1354413775_ - _tl1354313778_ - _e1355913715_ - _hd1355813719_ - _tl1355713722_ - _e1354813781_ - _hd1354713785_ - _tl1354613788_) + |gerbil/core$$[1]#_g42961_| + _hd1363913800_) + (___match3867738678_ + _e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + _e1362913862_ + _hd1362813866_ + _tl1362713869_) (if (gx#stx-pair/null? - _tl1354313778_) - (let ((___splice3869138692_ + _tl1362413859_) + (let ((___splice3862538626_ (gx#syntax-split-splice - _tl1354313778_ + _tl1362413859_ '0))) - (let ((_tl1357713629_ + (let ((_tl1365813710_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3862538626_ '1))) - (_target1357513626_ + (_target1365613707_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3862538626_ '0)))) (if (gx#stx-null? - _tl1357713629_) - (___match3876938770_ - _e1354213761_ - _hd1354113765_ - _tl1354013768_ - _e1354513771_ - _hd1354413775_ - _tl1354313778_ - _e1355913715_ - _hd1355813719_ - _tl1355713722_ - ___splice3869138692_ - _target1357513626_ - _tl1357713629_) + _tl1365813710_) + (___match3870338704_ + _e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + ___splice3862538626_ + _target1365613707_ + _tl1365813710_) (let () (declare (not safe)) - (_g1353613589_))))) + (_g1361713670_))))) (let () (declare (not safe)) - (_g1353613589_)))) - (if (gx#stx-pair/null? _tl1354313778_) - (let ((___splice3869138692_ + (_g1361713670_)))) + (if (gx#stx-pair/null? _tl1362413859_) + (let ((___splice3862538626_ (gx#syntax-split-splice - _tl1354313778_ + _tl1362413859_ '0))) - (let ((_tl1357713629_ + (let ((_tl1365813710_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3862538626_ '1))) - (_target1357513626_ + (_target1365613707_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3862538626_ '0)))) (if (gx#stx-null? - _tl1357713629_) - (___match3876938770_ - _e1354213761_ - _hd1354113765_ - _tl1354013768_ - _e1354513771_ - _hd1354413775_ - _tl1354313778_ - _e1355913715_ - _hd1355813719_ - _tl1355713722_ - ___splice3869138692_ - _target1357513626_ - _tl1357713629_) + _tl1365813710_) + (___match3870338704_ + _e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + ___splice3862538626_ + _target1365613707_ + _tl1365813710_) (let () (declare (not safe)) - (_g1353613589_))))) + (_g1361713670_))))) (let () (declare (not safe)) - (_g1353613589_)))))) + (_g1361713670_)))))) (let () (declare (not safe)) - (_g1353613589_)))))))) - (if (gx#stx-pair? ___stx3868238683_) - (let ((_e1354213761_ (gx#syntax-e ___stx3868238683_))) - (let ((_tl1354013768_ - (let () (declare (not safe)) (##cdr _e1354213761_))) - (_hd1354113765_ + (_g1361713670_)))))))) + (if (gx#stx-pair? ___stx3861638617_) + (let ((_e1362313842_ (gx#syntax-e ___stx3861638617_))) + (let ((_tl1362113849_ + (let () (declare (not safe)) (##cdr _e1362313842_))) + (_hd1362213846_ (let () (declare (not safe)) - (##car _e1354213761_)))) - (if (gx#stx-pair? _tl1354013768_) - (let ((_e1354513771_ (gx#syntax-e _tl1354013768_))) - (let ((_tl1354313778_ + (##car _e1362313842_)))) + (if (gx#stx-pair? _tl1362113849_) + (let ((_e1362613852_ (gx#syntax-e _tl1362113849_))) + (let ((_tl1362413859_ (let () (declare (not safe)) - (##cdr _e1354513771_))) - (_hd1354413775_ + (##cdr _e1362613852_))) + (_hd1362513856_ (let () (declare (not safe)) - (##car _e1354513771_)))) - (if (gx#stx-pair? _tl1354313778_) - (let ((_e1354813781_ - (gx#syntax-e _tl1354313778_))) - (let ((_tl1354613788_ + (##car _e1362613852_)))) + (if (gx#stx-pair? _tl1362413859_) + (let ((_e1362913862_ + (gx#syntax-e _tl1362413859_))) + (let ((_tl1362713869_ (let () (declare (not safe)) - (##cdr _e1354813781_))) - (_hd1354713785_ + (##cdr _e1362913862_))) + (_hd1362813866_ (let () (declare (not safe)) - (##car _e1354813781_)))) - (if (gx#stx-null? _tl1354613788_) - (___match3871338714_ - _e1354213761_ - _hd1354113765_ - _tl1354013768_ - _e1354513771_ - _hd1354413775_ - _tl1354313778_ - _e1354813781_ - _hd1354713785_ - _tl1354613788_) - (if (gx#stx-pair? _hd1354413775_) - (let ((_e1355913715_ + (##car _e1362913862_)))) + (if (gx#stx-null? _tl1362713869_) + (___match3864738648_ + _e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1362913862_ + _hd1362813866_ + _tl1362713869_) + (if (gx#stx-pair? _hd1362513856_) + (let ((_e1364013796_ (gx#syntax-e - _hd1354413775_))) - (let ((_tl1355713722_ + _hd1362513856_))) + (let ((_tl1363813803_ (let () (declare (not safe)) - (##cdr _e1355913715_))) - (_hd1355813719_ + (##cdr _e1364013796_))) + (_hd1363913800_ (let () (declare (not safe)) - (##car _e1355913715_)))) + (##car _e1364013796_)))) (if (gx#stx-pair/null? - _tl1354313778_) - (let ((___splice3869138692_ + _tl1362413859_) + (let ((___splice3862538626_ (gx#syntax-split-splice - _tl1354313778_ + _tl1362413859_ '0))) - (let ((_tl1357713629_ + (let ((_tl1365813710_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice3869138692_ '1))) - (_target1357513626_ + (##vector-ref ___splice3862538626_ '1))) + (_target1365613707_ (let () (declare (not safe)) - (##vector-ref ___splice3869138692_ '0)))) - (if (gx#stx-null? _tl1357713629_) - (___match3876938770_ - _e1354213761_ - _hd1354113765_ - _tl1354013768_ - _e1354513771_ - _hd1354413775_ - _tl1354313778_ - _e1355913715_ - _hd1355813719_ - _tl1355713722_ - ___splice3869138692_ - _target1357513626_ - _tl1357713629_) - (let () (declare (not safe)) (_g1353613589_))))) - (let () (declare (not safe)) (_g1353613589_))))) + (##vector-ref ___splice3862538626_ '0)))) + (if (gx#stx-null? _tl1365813710_) + (___match3870338704_ + _e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + ___splice3862538626_ + _target1365613707_ + _tl1365813710_) + (let () (declare (not safe)) (_g1361713670_))))) + (let () (declare (not safe)) (_g1361713670_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1353613589_)))))) - (if (gx#stx-pair? _hd1354413775_) - (let ((_e1355913715_ - (gx#syntax-e _hd1354413775_))) - (let ((_tl1355713722_ + (_g1361713670_)))))) + (if (gx#stx-pair? _hd1362513856_) + (let ((_e1364013796_ + (gx#syntax-e _hd1362513856_))) + (let ((_tl1363813803_ (let () (declare (not safe)) - (##cdr _e1355913715_))) - (_hd1355813719_ + (##cdr _e1364013796_))) + (_hd1363913800_ (let () (declare (not safe)) - (##car _e1355913715_)))) + (##car _e1364013796_)))) (if (gx#stx-pair/null? - _tl1354313778_) - (let ((___splice3869138692_ + _tl1362413859_) + (let ((___splice3862538626_ (gx#syntax-split-splice - _tl1354313778_ + _tl1362413859_ '0))) - (let ((_tl1357713629_ + (let ((_tl1365813710_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3862538626_ '1))) - (_target1357513626_ + (_target1365613707_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3862538626_ '0)))) (if (gx#stx-null? - _tl1357713629_) - (___match3876938770_ - _e1354213761_ - _hd1354113765_ - _tl1354013768_ - _e1354513771_ - _hd1354413775_ - _tl1354313778_ - _e1355913715_ - _hd1355813719_ - _tl1355713722_ - ___splice3869138692_ - _target1357513626_ - _tl1357713629_) + _tl1365813710_) + (___match3870338704_ + _e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + ___splice3862538626_ + _target1365613707_ + _tl1365813710_) (let () (declare (not safe)) - (_g1353613589_))))) + (_g1361713670_))))) (let () (declare (not safe)) - (_g1353613589_))))) + (_g1361713670_))))) (let () (declare (not safe)) - (_g1353613589_)))))) - (let () (declare (not safe)) (_g1353613589_))))) - (let () (declare (not safe)) (_g1353613589_)))))))) + (_g1361713670_)))))) + (let () (declare (not safe)) (_g1361713670_))))) + (let () (declare (not safe)) (_g1361713670_)))))))) (define |gerbil/core$$[:0:]#alet| - (lambda (_stx13813_) - (letrec ((_let-bind?13816_ - (lambda (_x14739_) - (let* ((___stx3877238773_ _x14739_) - (_g1474414763_ + (lambda (_stx13894_) + (letrec ((_let-bind?13897_ + (lambda (_x14820_) + (let* ((___stx3870638707_ _x14820_) + (_g1482514844_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3877238773_)))) - (let ((___kont3877538776_ - (lambda (_L14831_ _L14833_) - (_let-head?13819_ _L14833_))) - (___kont3877738778_ (lambda (_L14791_) '#t)) - (___kont3877938780_ (lambda () '#f))) - (if (gx#stx-pair? ___stx3877238773_) - (let ((_e1475014811_ - (gx#syntax-e ___stx3877238773_))) - (let ((_tl1474814818_ + ___stx3870638707_)))) + (let ((___kont3870938710_ + (lambda (_L14912_ _L14914_) + (_let-head?13900_ _L14914_))) + (___kont3871138712_ (lambda (_L14872_) '#t)) + (___kont3871338714_ (lambda () '#f))) + (if (gx#stx-pair? ___stx3870638707_) + (let ((_e1483114892_ + (gx#syntax-e ___stx3870638707_))) + (let ((_tl1482914899_ (let () (declare (not safe)) - (##cdr _e1475014811_))) - (_hd1474914815_ + (##cdr _e1483114892_))) + (_hd1483014896_ (let () (declare (not safe)) - (##car _e1475014811_)))) - (if (gx#stx-pair? _tl1474814818_) - (let ((_e1475314821_ - (gx#syntax-e _tl1474814818_))) - (let ((_tl1475114828_ + (##car _e1483114892_)))) + (if (gx#stx-pair? _tl1482914899_) + (let ((_e1483414902_ + (gx#syntax-e _tl1482914899_))) + (let ((_tl1483214909_ (let () (declare (not safe)) - (##cdr _e1475314821_))) - (_hd1475214825_ + (##cdr _e1483414902_))) + (_hd1483314906_ (let () (declare (not safe)) - (##car _e1475314821_)))) - (if (gx#stx-null? _tl1475114828_) - (___kont3877538776_ - _hd1475214825_ - _hd1474914815_) - (___kont3877938780_)))) - (if (gx#stx-null? _tl1474814818_) - (___kont3877738778_ _hd1474914815_) - (___kont3877938780_))))) - (___kont3877938780_)))))) - (_let-bind13818_ - (lambda (_x14641_) - (let* ((___stx3880638807_ _x14641_) - (_g1464514664_ + (##car _e1483414902_)))) + (if (gx#stx-null? _tl1483214909_) + (___kont3870938710_ + _hd1483314906_ + _hd1483014896_) + (___kont3871338714_)))) + (if (gx#stx-null? _tl1482914899_) + (___kont3871138712_ _hd1483014896_) + (___kont3871338714_))))) + (___kont3871338714_)))))) + (_let-bind13899_ + (lambda (_x14722_) + (let* ((___stx3874038741_ _x14722_) + (_g1472614745_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3880638807_)))) - (let ((___kont3880938810_ - (lambda (_L14720_ _L14722_) _x14641_)) - (___kont3881138812_ - (lambda (_L14681_) + ___stx3874038741_)))) + (let ((___kont3874338744_ + (lambda (_L14801_ _L14803_) _x14722_)) + (___kont3874538746_ + (lambda (_L14762_) (cons (gx#datum->syntax '#f '_) - (cons _L14681_ '()))))) - (if (gx#stx-pair? ___stx3880638807_) - (let ((_e1465114700_ - (gx#syntax-e ___stx3880638807_))) - (let ((_tl1464914707_ + (cons _L14762_ '()))))) + (if (gx#stx-pair? ___stx3874038741_) + (let ((_e1473214781_ + (gx#syntax-e ___stx3874038741_))) + (let ((_tl1473014788_ (let () (declare (not safe)) - (##cdr _e1465114700_))) - (_hd1465014704_ + (##cdr _e1473214781_))) + (_hd1473114785_ (let () (declare (not safe)) - (##car _e1465114700_)))) - (if (gx#stx-pair? _tl1464914707_) - (let ((_e1465414710_ - (gx#syntax-e _tl1464914707_))) - (let ((_tl1465214717_ + (##car _e1473214781_)))) + (if (gx#stx-pair? _tl1473014788_) + (let ((_e1473514791_ + (gx#syntax-e _tl1473014788_))) + (let ((_tl1473314798_ (let () (declare (not safe)) - (##cdr _e1465414710_))) - (_hd1465314714_ + (##cdr _e1473514791_))) + (_hd1473414795_ (let () (declare (not safe)) - (##car _e1465414710_)))) - (if (gx#stx-null? _tl1465214717_) - (___kont3880938810_ - _hd1465314714_ - _hd1465014704_) + (##car _e1473514791_)))) + (if (gx#stx-null? _tl1473314798_) + (___kont3874338744_ + _hd1473414795_ + _hd1473114785_) (let () (declare (not safe)) - (_g1464514664_))))) - (if (gx#stx-null? _tl1464914707_) - (___kont3881138812_ _hd1465014704_) + (_g1472614745_))))) + (if (gx#stx-null? _tl1473014788_) + (___kont3874538746_ _hd1473114785_) (let () (declare (not safe)) - (_g1464514664_)))))) - (let () (declare (not safe)) (_g1464514664_))))))) - (_let-head?13819_ - (lambda (_x14581_) - (let* ((___stx3883838839_ _x14581_) - (_g1458514596_ + (_g1472614745_)))))) + (let () (declare (not safe)) (_g1472614745_))))))) + (_let-head?13900_ + (lambda (_x14662_) + (let* ((___stx3877238773_ _x14662_) + (_g1466614677_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3883838839_)))) - (let ((___kont3884138842_ - (lambda (_L14624_) - (gx#stx-andmap gx#identifier? _L14624_))) - (___kont3884338844_ - (lambda () (gx#identifier? _x14581_)))) - (if (gx#stx-pair? ___stx3883838839_) - (let ((_e1459014614_ - (gx#syntax-e ___stx3883838839_))) - (let ((_tl1458814621_ + ___stx3877238773_)))) + (let ((___kont3877538776_ + (lambda (_L14705_) + (gx#stx-andmap gx#identifier? _L14705_))) + (___kont3877738778_ + (lambda () (gx#identifier? _x14662_)))) + (if (gx#stx-pair? ___stx3877238773_) + (let ((_e1467114695_ + (gx#syntax-e ___stx3877238773_))) + (let ((_tl1466914702_ (let () (declare (not safe)) - (##cdr _e1459014614_))) - (_hd1458914618_ + (##cdr _e1467114695_))) + (_hd1467014699_ (let () (declare (not safe)) - (##car _e1459014614_)))) - (if (gx#identifier? _hd1458914618_) + (##car _e1467114695_)))) + (if (gx#identifier? _hd1467014699_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42803_| - _hd1458914618_) - (___kont3884138842_ _tl1458814621_) - (___kont3884338844_)) - (___kont3884338844_)))) - (___kont3884338844_)))))) - (_let-head13820_ - (lambda (_x14521_) - (let* ((___stx3885838859_ _x14521_) - (_g1452514536_ + |gerbil/core$$[1]#_g42962_| + _hd1467014699_) + (___kont3877538776_ _tl1466914702_) + (___kont3877738778_)) + (___kont3877738778_)))) + (___kont3877738778_)))))) + (_let-head13901_ + (lambda (_x14602_) + (let* ((___stx3879238793_ _x14602_) + (_g1460614617_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3885838859_)))) - (let ((___kont3886138862_ (lambda (_L14564_) _L14564_)) - (___kont3886338864_ (lambda () (list _x14521_)))) - (if (gx#stx-pair? ___stx3885838859_) - (let ((_e1453014554_ - (gx#syntax-e ___stx3885838859_))) - (let ((_tl1452814561_ + ___stx3879238793_)))) + (let ((___kont3879538796_ (lambda (_L14645_) _L14645_)) + (___kont3879738798_ (lambda () (list _x14602_)))) + (if (gx#stx-pair? ___stx3879238793_) + (let ((_e1461114635_ + (gx#syntax-e ___stx3879238793_))) + (let ((_tl1460914642_ (let () (declare (not safe)) - (##cdr _e1453014554_))) - (_hd1452914558_ + (##cdr _e1461114635_))) + (_hd1461014639_ (let () (declare (not safe)) - (##car _e1453014554_)))) - (if (gx#identifier? _hd1452914558_) + (##car _e1461114635_)))) + (if (gx#identifier? _hd1461014639_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42804_| - _hd1452914558_) - (___kont3886138862_ _tl1452814561_) - (___kont3886338864_)) - (___kont3886338864_)))) - (___kont3886338864_))))))) - (let* ((___stx3887838879_ _stx13813_) - (_g1382413896_ + |gerbil/core$$[1]#_g42963_| + _hd1461014639_) + (___kont3879538796_ _tl1460914642_) + (___kont3879738798_)) + (___kont3879738798_)))) + (___kont3879738798_))))))) + (let* ((___stx3881238813_ _stx13894_) + (_g1390513977_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3887838879_)))) - (let ((___kont3888138882_ - (lambda (_L14494_ _L14496_ _L14497_ _L14498_) - (cons _L14498_ - (cons (cons (cons _L14497_ (cons _L14496_ '())) '()) - _L14494_)))) - (___kont3888338884_ - (lambda (_L14416_ _L14418_) + ___stx3881238813_)))) + (let ((___kont3881538816_ + (lambda (_L14575_ _L14577_ _L14578_ _L14579_) + (cons _L14579_ + (cons (cons (cons _L14578_ (cons _L14577_ '())) '()) + _L14575_)))) + (___kont3881738818_ + (lambda (_L14497_ _L14499_) (cons (gx#datum->syntax '#f 'and) - (cons _L14418_ + (cons _L14499_ (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_g1443814441_ + (foldr (lambda (_g1451914522_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1443914444_) - (cons _g1443814441_ _g1443914444_)) + _g1452014525_) + (cons _g1451914522_ _g1452014525_)) '() - _L14416_))) + _L14497_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3888738888_ - (lambda (_L13983_ _L13985_) - (let* ((_g1401614042_ - (lambda (_g1401714038_) + (___kont3882138822_ + (lambda (_L14064_ _L14066_) + (let* ((_g1409714123_ + (lambda (_g1409814119_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1401714038_))) - (_g1401514327_ - (lambda (_g1401714046_) - (if (gx#stx-pair/null? _g1401714046_) - (let ((_g42805_ + _g1409814119_))) + (_g1409614408_ + (lambda (_g1409814127_) + (if (gx#stx-pair/null? _g1409814127_) + (let ((_g42964_ (gx#syntax-split-splice - _g1401714046_ + _g1409814127_ '0))) (begin - (let ((_g42806_ + (let ((_g42965_ (let () (declare (not safe)) - (if (##values? _g42805_) - (##vector-length _g42805_) + (if (##values? _g42964_) + (##vector-length _g42964_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42806_ 2))) + (##fx= _g42965_ 2))) (error "Context expects 2 values" - _g42806_))) - (let ((_target1402014049_ + _g42965_))) + (let ((_target1410114130_ (let () (declare (not safe)) - (##vector-ref _g42805_ 0))) - (_tl1402214052_ + (##vector-ref _g42964_ 0))) + (_tl1410314133_ (let () (declare (not safe)) - (##vector-ref _g42805_ 1)))) - (if (gx#stx-null? _tl1402214052_) - (letrec ((_loop1402314055_ - (lambda (_hd1402114059_ - _e1402714062_ - _hd1402814064_) + (##vector-ref _g42964_ 1)))) + (if (gx#stx-null? _tl1410314133_) + (letrec ((_loop1410414136_ + (lambda (_hd1410214140_ + _e1410814143_ + _hd1410914145_) (if (gx#stx-pair? - _hd1402114059_) - (let ((_e1402414067_ + _hd1410214140_) + (let ((_e1410514148_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1402114059_))) - (let ((_lp-hd1402514071_ + (gx#syntax-e _hd1410214140_))) + (let ((_lp-hd1410614152_ (let () (declare (not safe)) - (##car _e1402414067_))) - (_lp-tl1402614074_ + (##car _e1410514148_))) + (_lp-tl1410714155_ (let () (declare (not safe)) - (##cdr _e1402414067_)))) - (if (gx#stx-pair? _lp-hd1402514071_) - (let ((_e1403314077_ - (gx#syntax-e _lp-hd1402514071_))) - (let ((_hd1403214081_ + (##cdr _e1410514148_)))) + (if (gx#stx-pair? _lp-hd1410614152_) + (let ((_e1411414158_ + (gx#syntax-e _lp-hd1410614152_))) + (let ((_hd1411314162_ (let () (declare (not safe)) - (##car _e1403314077_))) - (_tl1403114084_ + (##car _e1411414158_))) + (_tl1411214165_ (let () (declare (not safe)) - (##cdr _e1403314077_)))) - (if (gx#stx-pair? _tl1403114084_) - (let ((_e1403614087_ - (gx#syntax-e _tl1403114084_))) - (let ((_hd1403514091_ + (##cdr _e1411414158_)))) + (if (gx#stx-pair? _tl1411214165_) + (let ((_e1411714168_ + (gx#syntax-e _tl1411214165_))) + (let ((_hd1411614172_ (let () (declare (not safe)) - (##car _e1403614087_))) - (_tl1403414094_ + (##car _e1411714168_))) + (_tl1411514175_ (let () (declare (not safe)) - (##cdr _e1403614087_)))) - (if (gx#stx-null? _tl1403414094_) - (_loop1402314055_ - _lp-tl1402614074_ - (cons _hd1403514091_ - _e1402714062_) - (cons _hd1403214081_ - _hd1402814064_)) - (_g1401614042_ _g1401714046_)))) - (_g1401614042_ _g1401714046_)))) - (_g1401614042_ _g1401714046_)))) - (let ((_e1402914097_ (reverse _e1402714062_)) - (_hd1403014100_ (reverse _hd1402814064_))) - ((lambda (_L14103_ _L14105_) + (##cdr _e1411714168_)))) + (if (gx#stx-null? _tl1411514175_) + (_loop1410414136_ + _lp-tl1410714155_ + (cons _hd1411614172_ + _e1410814143_) + (cons _hd1411314162_ + _hd1410914145_)) + (_g1409714123_ _g1409814127_)))) + (_g1409714123_ _g1409814127_)))) + (_g1409714123_ _g1409814127_)))) + (let ((_e1411014178_ (reverse _e1410814143_)) + (_hd1411114181_ (reverse _hd1410914145_))) + ((lambda (_L14184_ _L14186_) (let () - (let* ((_g1412114138_ - (lambda (_g1412214134_) + (let* ((_g1420214219_ + (lambda (_g1420314215_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1412214134_))) - (_g1412014315_ - (lambda (_g1412214142_) - (if (gx#stx-pair/null? _g1412214142_) - (let ((_g42807_ + _g1420314215_))) + (_g1420114396_ + (lambda (_g1420314223_) + (if (gx#stx-pair/null? _g1420314223_) + (let ((_g42966_ (gx#syntax-split-splice - _g1412214142_ + _g1420314223_ '0))) (begin - (let ((_g42808_ + (let ((_g42967_ (let () (declare (not safe)) - (if (##values? _g42807_) + (if (##values? _g42966_) (##vector-length - _g42807_) + _g42966_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42808_ 2))) + (##fx= _g42967_ 2))) (error "Context expects 2 values" - _g42808_))) - (let ((_target1412414145_ + _g42967_))) + (let ((_target1420514226_ (let () (declare (not safe)) (##vector-ref - _g42807_ + _g42966_ 0))) - (_tl1412614148_ + (_tl1420714229_ (let () (declare (not safe)) (##vector-ref - _g42807_ + _g42966_ 1)))) (if (gx#stx-null? - _tl1412614148_) - (letrec ((_loop1412714151_ - (lambda (_hd1412514155_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e1413114158_) - (if (gx#stx-pair? _hd1412514155_) - (let ((_e1412814161_ (gx#syntax-e _hd1412514155_))) - (let ((_lp-hd1412914165_ + _tl1420714229_) + (letrec ((_loop1420814232_ + (lambda (_hd1420614236_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _$e1421214239_) + (if (gx#stx-pair? _hd1420614236_) + (let ((_e1420914242_ (gx#syntax-e _hd1420614236_))) + (let ((_lp-hd1421014246_ (let () (declare (not safe)) - (##car _e1412814161_))) - (_lp-tl1413014168_ + (##car _e1420914242_))) + (_lp-tl1421114249_ (let () (declare (not safe)) - (##cdr _e1412814161_)))) - (_loop1412714151_ - _lp-tl1413014168_ - (cons _lp-hd1412914165_ _$e1413114158_)))) - (let ((_$e1413214171_ (reverse _$e1413114158_))) - ((lambda (_L14175_) + (##cdr _e1420914242_)))) + (_loop1420814232_ + _lp-tl1421114249_ + (cons _lp-hd1421014246_ _$e1421214239_)))) + (let ((_$e1421314252_ (reverse _$e1421214239_))) + ((lambda (_L14256_) (let () - (let* ((_g1419214209_ - (lambda (_g1419314205_) + (let* ((_g1427314290_ + (lambda (_g1427414286_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1419314205_))) - (_g1419114303_ - (lambda (_g1419314213_) + _g1427414286_))) + (_g1427214384_ + (lambda (_g1427414294_) (if (gx#stx-pair/null? - _g1419314213_) - (let ((_g42809_ + _g1427414294_) + (let ((_g42968_ (gx#syntax-split-splice - _g1419314213_ + _g1427414294_ '0))) (begin - (let ((_g42810_ + (let ((_g42969_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42809_) - (##vector-length _g42809_) + _g42968_) + (##vector-length _g42968_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42810_ 2))) - (error "Context expects 2 values" _g42810_))) + (if (not (let () (declare (not safe)) (##fx= _g42969_ 2))) + (error "Context expects 2 values" _g42969_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1419514216_ + (let ((_target1427614297_ (let () (declare (not safe)) (##vector-ref - _g42809_ + _g42968_ 0))) - (_tl1419714219_ + (_tl1427814300_ (let () (declare (not safe)) (##vector-ref - _g42809_ + _g42968_ 1)))) (if (gx#stx-null? - _tl1419714219_) - (letrec ((_loop1419814222_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1419614226_ _hd-bind1420214229_) - (if (gx#stx-pair? _hd1419614226_) - (let ((_e1419914232_ - (gx#syntax-e _hd1419614226_))) - (let ((_lp-hd1420014236_ + _tl1427814300_) + (letrec ((_loop1427914303_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd1427714307_ _hd-bind1428314310_) + (if (gx#stx-pair? _hd1427714307_) + (let ((_e1428014313_ + (gx#syntax-e _hd1427714307_))) + (let ((_lp-hd1428114317_ (let () (declare (not safe)) - (##car _e1419914232_))) - (_lp-tl1420114239_ + (##car _e1428014313_))) + (_lp-tl1428214320_ (let () (declare (not safe)) - (##cdr _e1419914232_)))) - (_loop1419814222_ - _lp-tl1420114239_ - (cons _lp-hd1420014236_ - _hd-bind1420214229_)))) - (let ((_hd-bind1420314242_ - (reverse _hd-bind1420214229_))) - ((lambda (_L14246_) + (##cdr _e1428014313_)))) + (_loop1427914303_ + _lp-tl1428214320_ + (cons _lp-hd1428114317_ + _hd-bind1428314310_)))) + (let ((_hd-bind1428414323_ + (reverse _hd-bind1428314310_))) + ((lambda (_L14327_) (let () (let () (cons (gx#datum->syntax @@ -9105,1401 +9106,1401 @@ 'let-values) (cons (begin (gx#syntax-check-splice-targets - _L14103_ - _L14175_) - (foldr (lambda (_g1427114275_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1427214278_ - _g1427314280_) - (cons (cons (cons _g1427214278_ '()) - (cons _g1427114275_ '())) - _g1427314280_)) + _L14184_ + _L14256_) + (foldr (lambda (_g1435214356_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1435314359_ + _g1435414361_) + (cons (cons (cons _g1435314359_ '()) + (cons _g1435214356_ '())) + _g1435414361_)) '() - _L14103_ - _L14175_)) + _L14184_ + _L14256_)) (cons (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_g1426414283_ _g1426514286_) - (cons _g1426414283_ _g1426514286_)) + (foldr (lambda (_g1434514364_ _g1434614367_) + (cons _g1434514364_ _g1434614367_)) (cons (cons (gx#datum->syntax '#f 'let-values) (cons (begin (gx#syntax-check-splice-targets - _L14175_ - _L14246_) - (foldr (lambda (_g1426814289_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1426914292_ - _g1427014294_) - (cons (cons _g1426914292_ (cons _g1426814289_ '())) - _g1427014294_)) + _L14256_ + _L14327_) + (foldr (lambda (_g1434914370_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1435014373_ + _g1435114375_) + (cons (cons _g1435014373_ (cons _g1434914370_ '())) + _g1435114375_)) '() - _L14175_ - _L14246_)) + _L14256_ + _L14327_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_g1426614297_ + (foldr (lambda (_g1434714378_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1426714300_) - (cons _g1426614297_ _g1426714300_)) + _g1434814381_) + (cons _g1434714378_ _g1434814381_)) '() - _L13983_))) + _L14064_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - _L14175_)) + _L14256_)) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd-bind1420314242_)))))) - (_loop1419814222_ _target1419514216_ '())) - (_g1419214209_ _g1419314213_))))) + _hd-bind1428414323_)))))) + (_loop1427914303_ _target1427614297_ '())) + (_g1427314290_ _g1427414294_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1419214209_ - _g1419314213_))))) - (_g1419114303_ + (_g1427314290_ + _g1427414294_))))) + (_g1427214384_ (gx#stx-map - _let-head13820_ - (foldr (lambda (_g1430614309_ - _g1430714312_) - (cons _g1430614309_ - _g1430714312_)) + _let-head13901_ + (foldr (lambda (_g1438714390_ + _g1438814393_) + (cons _g1438714390_ + _g1438814393_)) '() - _L14105_)))))) - _$e1413214171_)))))) - (_loop1412714151_ _target1412414145_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1412114138_ - _g1412214142_))))) - (_g1412114138_ _g1412214142_))))) - (_g1412014315_ + _L14186_)))))) + _$e1421314252_)))))) + (_loop1420814232_ _target1420514226_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1420214219_ + _g1420314223_))))) + (_g1420214219_ _g1420314223_))))) + (_g1420114396_ (gx#gentemps - (foldr (lambda (_g1431814321_ _g1431914324_) - (cons _g1431814321_ _g1431914324_)) + (foldr (lambda (_g1439914402_ _g1440014405_) + (cons _g1439914402_ _g1440014405_)) '() - _L14105_)))))) - _e1402914097_ - _hd1403014100_)))))) + _L14186_)))))) + _e1411014178_ + _hd1411114181_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1402314055_ - _target1402014049_ + (_loop1410414136_ + _target1410114130_ '() '())) - (_g1401614042_ _g1401714046_))))) - (_g1401614042_ _g1401714046_))))) - (_g1401514327_ + (_g1409714123_ _g1409814127_))))) + (_g1409714123_ _g1409814127_))))) + (_g1409614408_ (gx#stx-map - _let-bind13818_ - (foldr (lambda (_g1433014333_ _g1433114336_) - (cons _g1433014333_ _g1433114336_)) + _let-bind13899_ + (foldr (lambda (_g1441114414_ _g1441214417_) + (cons _g1441114414_ _g1441214417_)) '() - _L13985_))))))) - (let* ((___match3897538976_ - (lambda (_e1386913903_ - _hd1386813907_ - _tl1386713910_ - _e1387213913_ - _hd1387113917_ - _tl1387013920_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) - (letrec ((_loop1387613929_ - (lambda (_hd1387413933_ _bind1388013936_) - (if (gx#stx-pair? _hd1387413933_) - (let ((_e1387713939_ - (gx#syntax-e _hd1387413933_))) - (let ((_lp-tl1387913946_ + _L14066_))))))) + (let* ((___match3890938910_ + (lambda (_e1395013984_ + _hd1394913988_ + _tl1394813991_ + _e1395313994_ + _hd1395213998_ + _tl1395114001_ + ___splice3882338824_ + _target1395414004_ + _tl1395614007_) + (letrec ((_loop1395714010_ + (lambda (_hd1395514014_ _bind1396114017_) + (if (gx#stx-pair? _hd1395514014_) + (let ((_e1395814020_ + (gx#syntax-e _hd1395514014_))) + (let ((_lp-tl1396014027_ (let () (declare (not safe)) - (##cdr _e1387713939_))) - (_lp-hd1387813943_ + (##cdr _e1395814020_))) + (_lp-hd1395914024_ (let () (declare (not safe)) - (##car _e1387713939_)))) - (_loop1387613929_ - _lp-tl1387913946_ - (cons _lp-hd1387813943_ - _bind1388013936_)))) - (let ((_bind1388113949_ - (reverse _bind1388013936_))) + (##car _e1395814020_)))) + (_loop1395714010_ + _lp-tl1396014027_ + (cons _lp-hd1395914024_ + _bind1396114017_)))) + (let ((_bind1396214030_ + (reverse _bind1396114017_))) (if (gx#stx-pair/null? - _tl1387013920_) - (let ((___splice3889138892_ + _tl1395114001_) + (let ((___splice3882538826_ (gx#syntax-split-splice - _tl1387013920_ + _tl1395114001_ '0))) - (let ((_tl1388413956_ + (let ((_tl1396514037_ (let () (declare (not safe)) (##vector-ref - ___splice3889138892_ + ___splice3882538826_ '1))) - (_target1388213953_ + (_target1396314034_ (let () (declare (not safe)) (##vector-ref - ___splice3889138892_ + ___splice3882538826_ '0)))) (if (gx#stx-null? - _tl1388413956_) - (letrec ((_loop1388513959_ - (lambda (_hd1388313963_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body1388913966_) - (if (gx#stx-pair? _hd1388313963_) - (let ((_e1388613969_ - (gx#syntax-e _hd1388313963_))) - (let ((_lp-tl1388813976_ + _tl1396514037_) + (letrec ((_loop1396614040_ + (lambda (_hd1396414044_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _body1397014047_) + (if (gx#stx-pair? _hd1396414044_) + (let ((_e1396714050_ + (gx#syntax-e _hd1396414044_))) + (let ((_lp-tl1396914057_ (let () (declare (not safe)) - (##cdr _e1388613969_))) - (_lp-hd1388713973_ + (##cdr _e1396714050_))) + (_lp-hd1396814054_ (let () (declare (not safe)) - (##car _e1388613969_)))) - (_loop1388513959_ - _lp-tl1388813976_ - (cons _lp-hd1388713973_ _body1388913966_)))) - (let ((_body1389013979_ - (reverse _body1388913966_))) - (let ((_L13983_ _body1389013979_) - (_L13985_ _bind1388113949_)) + (##car _e1396714050_)))) + (_loop1396614040_ + _lp-tl1396914057_ + (cons _lp-hd1396814054_ _body1397014047_)))) + (let ((_body1397114060_ + (reverse _body1397014047_))) + (let ((_L14064_ _body1397114060_) + (_L14066_ _bind1396214030_)) (if (gx#stx-andmap - _let-bind?13816_ - (foldr (lambda (_g1400714010_ - _g1400814013_) - (cons _g1400714010_ - _g1400814013_)) + _let-bind?13897_ + (foldr (lambda (_g1408814091_ + _g1408914094_) + (cons _g1408814091_ + _g1408914094_)) '() - _L13985_)) - (___kont3888738888_ _L13983_ _L13985_) + _L14066_)) + (___kont3882138822_ _L14064_ _L14066_) (let () (declare (not safe)) - (_g1382413896_))))))))) - (_loop1388513959_ _target1388213953_ '())) - (let () (declare (not safe)) (_g1382413896_))))) + (_g1390513977_))))))))) + (_loop1396614040_ _target1396314034_ '())) + (let () (declare (not safe)) (_g1390513977_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1382413896_)))))))) - (_loop1387613929_ _target1387313923_ '())))) - (___match3895538956_ - (lambda (_e1384614346_ - _hd1384514350_ - _tl1384414353_ - _e1384914356_ - _hd1384814360_ - _tl1384714363_ - _e1385214366_ - _hd1385114370_ - _tl1385014373_ - _e1385514376_ - _hd1385414380_ - _tl1385314383_ - ___splice3888538886_ - _target1385614386_ - _tl1385814389_) - (letrec ((_loop1385914392_ - (lambda (_hd1385714396_ _body1386314399_) - (if (gx#stx-pair? _hd1385714396_) - (let ((_e1386014402_ - (gx#syntax-e _hd1385714396_))) - (let ((_lp-tl1386214409_ + (_g1390513977_)))))))) + (_loop1395714010_ _target1395414004_ '())))) + (___match3888938890_ + (lambda (_e1392714427_ + _hd1392614431_ + _tl1392514434_ + _e1393014437_ + _hd1392914441_ + _tl1392814444_ + _e1393314447_ + _hd1393214451_ + _tl1393114454_ + _e1393614457_ + _hd1393514461_ + _tl1393414464_ + ___splice3881938820_ + _target1393714467_ + _tl1393914470_) + (letrec ((_loop1394014473_ + (lambda (_hd1393814477_ _body1394414480_) + (if (gx#stx-pair? _hd1393814477_) + (let ((_e1394114483_ + (gx#syntax-e _hd1393814477_))) + (let ((_lp-tl1394314490_ (let () (declare (not safe)) - (##cdr _e1386014402_))) - (_lp-hd1386114406_ + (##cdr _e1394114483_))) + (_lp-hd1394214487_ (let () (declare (not safe)) - (##car _e1386014402_)))) - (_loop1385914392_ - _lp-tl1386214409_ - (cons _lp-hd1386114406_ - _body1386314399_)))) - (let ((_body1386414412_ - (reverse _body1386314399_))) - (___kont3888338884_ - _body1386414412_ - _hd1385414380_)))))) - (_loop1385914392_ _target1385614386_ '())))) - (___match3891938920_ - (lambda (_e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - _e1383814474_ - _hd1383714478_ - _tl1383614481_ - _e1384114484_ - _hd1384014488_ - _tl1383914491_) - (let ((_L14494_ _tl1383314471_) - (_L14496_ _hd1384014488_) - (_L14497_ _hd1383714478_) - (_L14498_ _hd1383114458_)) - (if (_let-head?13819_ _L14497_) - (___kont3888138882_ - _L14494_ - _L14496_ - _L14497_ - _L14498_) - (if (gx#stx-pair? _hd1383714478_) - (let ((_e1385514376_ - (gx#syntax-e _hd1383714478_))) - (let ((_tl1385314383_ + (##car _e1394114483_)))) + (_loop1394014473_ + _lp-tl1394314490_ + (cons _lp-hd1394214487_ + _body1394414480_)))) + (let ((_body1394514493_ + (reverse _body1394414480_))) + (___kont3881738818_ + _body1394514493_ + _hd1393514461_)))))) + (_loop1394014473_ _target1393714467_ '())))) + (___match3885338854_ + (lambda (_e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + _e1391914555_ + _hd1391814559_ + _tl1391714562_ + _e1392214565_ + _hd1392114569_ + _tl1392014572_) + (let ((_L14575_ _tl1391414552_) + (_L14577_ _hd1392114569_) + (_L14578_ _hd1391814559_) + (_L14579_ _hd1391214539_)) + (if (_let-head?13900_ _L14578_) + (___kont3881538816_ + _L14575_ + _L14577_ + _L14578_ + _L14579_) + (if (gx#stx-pair? _hd1391814559_) + (let ((_e1393614457_ + (gx#syntax-e _hd1391814559_))) + (let ((_tl1393414464_ (let () (declare (not safe)) - (##cdr _e1385514376_))) - (_hd1385414380_ + (##cdr _e1393614457_))) + (_hd1393514461_ (let () (declare (not safe)) - (##car _e1385514376_)))) - (if (gx#stx-pair/null? _hd1383414468_) - (let ((___splice3888938890_ + (##car _e1393614457_)))) + (if (gx#stx-pair/null? _hd1391514549_) + (let ((___splice3882338824_ (gx#syntax-split-splice - _hd1383414468_ + _hd1391514549_ '0))) - (let ((_tl1387513926_ + (let ((_tl1395614007_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3882338824_ '1))) - (_target1387313923_ + (_target1395414004_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3882338824_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (if (gx#stx-null? _tl1395614007_) + (___match3890938910_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3882338824_ + _target1395414004_ + _tl1395614007_) (let () (declare (not safe)) - (_g1382413896_))))) + (_g1390513977_))))) (let () (declare (not safe)) - (_g1382413896_))))) - (if (gx#stx-pair/null? _hd1383414468_) - (let ((___splice3888938890_ + (_g1390513977_))))) + (if (gx#stx-pair/null? _hd1391514549_) + (let ((___splice3882338824_ (gx#syntax-split-splice - _hd1383414468_ + _hd1391514549_ '0))) - (let ((_tl1387513926_ + (let ((_tl1395614007_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3882338824_ '1))) - (_target1387313923_ + (_target1395414004_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3882338824_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (if (gx#stx-null? _tl1395614007_) + (___match3890938910_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3882338824_ + _target1395414004_ + _tl1395614007_) (let () (declare (not safe)) - (_g1382413896_))))) + (_g1390513977_))))) (let () (declare (not safe)) - (_g1382413896_))))))))) - (if (gx#stx-pair? ___stx3887838879_) - (let ((_e1383214454_ (gx#syntax-e ___stx3887838879_))) - (let ((_tl1383014461_ + (_g1390513977_))))))))) + (if (gx#stx-pair? ___stx3881238813_) + (let ((_e1391314535_ (gx#syntax-e ___stx3881238813_))) + (let ((_tl1391114542_ (let () (declare (not safe)) - (##cdr _e1383214454_))) - (_hd1383114458_ + (##cdr _e1391314535_))) + (_hd1391214539_ (let () (declare (not safe)) - (##car _e1383214454_)))) - (if (gx#stx-pair? _tl1383014461_) - (let ((_e1383514464_ (gx#syntax-e _tl1383014461_))) - (let ((_tl1383314471_ + (##car _e1391314535_)))) + (if (gx#stx-pair? _tl1391114542_) + (let ((_e1391614545_ (gx#syntax-e _tl1391114542_))) + (let ((_tl1391414552_ (let () (declare (not safe)) - (##cdr _e1383514464_))) - (_hd1383414468_ + (##cdr _e1391614545_))) + (_hd1391514549_ (let () (declare (not safe)) - (##car _e1383514464_)))) - (if (gx#stx-pair? _hd1383414468_) - (let ((_e1383814474_ - (gx#syntax-e _hd1383414468_))) - (let ((_tl1383614481_ + (##car _e1391614545_)))) + (if (gx#stx-pair? _hd1391514549_) + (let ((_e1391914555_ + (gx#syntax-e _hd1391514549_))) + (let ((_tl1391714562_ (let () (declare (not safe)) - (##cdr _e1383814474_))) - (_hd1383714478_ + (##cdr _e1391914555_))) + (_hd1391814559_ (let () (declare (not safe)) - (##car _e1383814474_)))) - (if (gx#stx-pair? _tl1383614481_) - (let ((_e1384114484_ + (##car _e1391914555_)))) + (if (gx#stx-pair? _tl1391714562_) + (let ((_e1392214565_ (gx#syntax-e - _tl1383614481_))) - (let ((_tl1383914491_ + _tl1391714562_))) + (let ((_tl1392014572_ (let () (declare (not safe)) - (##cdr _e1384114484_))) - (_hd1384014488_ + (##cdr _e1392214565_))) + (_hd1392114569_ (let () (declare (not safe)) - (##car _e1384114484_)))) + (##car _e1392214565_)))) (if (gx#stx-null? - _tl1383914491_) - (___match3891938920_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - _e1383814474_ - _hd1383714478_ - _tl1383614481_ - _e1384114484_ - _hd1384014488_ - _tl1383914491_) + _tl1392014572_) + (___match3885338854_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + _e1391914555_ + _hd1391814559_ + _tl1391714562_ + _e1392214565_ + _hd1392114569_ + _tl1392014572_) (if (gx#stx-pair? - _hd1383714478_) - (let ((_e1385514376_ + _hd1391814559_) + (let ((_e1393614457_ (gx#syntax-e - _hd1383714478_))) - (let ((_tl1385314383_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e1385514376_))) - (_hd1385414380_ - (let () (declare (not safe)) (##car _e1385514376_)))) - (if (gx#stx-pair/null? _hd1383414468_) - (let ((___splice3888938890_ - (gx#syntax-split-splice _hd1383414468_ '0))) - (let ((_tl1387513926_ + _hd1391814559_))) + (let ((_tl1393414464_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e1393614457_))) + (_hd1393514461_ + (let () (declare (not safe)) (##car _e1393614457_)))) + (if (gx#stx-pair/null? _hd1391514549_) + (let ((___splice3882338824_ + (gx#syntax-split-splice _hd1391514549_ '0))) + (let ((_tl1395614007_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3882338824_ '1))) + (_target1395414004_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (##vector-ref ___splice3882338824_ '0)))) + (if (gx#stx-null? _tl1395614007_) + (___match3890938910_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3882338824_ + _target1395414004_ + _tl1395614007_) (let () (declare (not safe)) - (_g1382413896_))))) - (let () (declare (not safe)) (_g1382413896_))))) - (if (gx#stx-pair/null? _hd1383414468_) - (let ((___splice3888938890_ - (gx#syntax-split-splice _hd1383414468_ '0))) - (let ((_tl1387513926_ + (_g1390513977_))))) + (let () (declare (not safe)) (_g1390513977_))))) + (if (gx#stx-pair/null? _hd1391514549_) + (let ((___splice3882338824_ + (gx#syntax-split-splice _hd1391514549_ '0))) + (let ((_tl1395614007_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3882338824_ '1))) + (_target1395414004_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) - (let () (declare (not safe)) (_g1382413896_))))) - (let () (declare (not safe)) (_g1382413896_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _hd1383714478_) - (let ((_e1385514376_ + (##vector-ref ___splice3882338824_ '0)))) + (if (gx#stx-null? _tl1395614007_) + (___match3890938910_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3882338824_ + _target1395414004_ + _tl1395614007_) + (let () (declare (not safe)) (_g1390513977_))))) + (let () (declare (not safe)) (_g1390513977_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _hd1391814559_) + (let ((_e1393614457_ (gx#syntax-e - _hd1383714478_))) - (let ((_tl1385314383_ + _hd1391814559_))) + (let ((_tl1393414464_ (let () (declare (not safe)) - (##cdr _e1385514376_))) - (_hd1385414380_ + (##cdr _e1393614457_))) + (_hd1393514461_ (let () (declare (not safe)) - (##car _e1385514376_)))) + (##car _e1393614457_)))) (if (gx#stx-null? - _tl1385314383_) + _tl1393414464_) (if (gx#stx-null? - _tl1383614481_) + _tl1391714562_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1383314471_) - (let ((___splice3888538886_ - (gx#syntax-split-splice _tl1383314471_ '0))) - (let ((_tl1385814389_ + _tl1391414552_) + (let ((___splice3881938820_ + (gx#syntax-split-splice _tl1391414552_ '0))) + (let ((_tl1393914470_ (let () (declare (not safe)) - (##vector-ref ___splice3888538886_ '1))) - (_target1385614386_ + (##vector-ref ___splice3881938820_ '1))) + (_target1393714467_ (let () (declare (not safe)) - (##vector-ref ___splice3888538886_ '0)))) - (if (gx#stx-null? _tl1385814389_) - (___match3895538956_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - _e1383814474_ - _hd1383714478_ - _tl1383614481_ - _e1385514376_ - _hd1385414380_ - _tl1385314383_ - ___splice3888538886_ - _target1385614386_ - _tl1385814389_) - (if (gx#stx-pair/null? _hd1383414468_) - (let ((___splice3888938890_ + (##vector-ref ___splice3881938820_ '0)))) + (if (gx#stx-null? _tl1393914470_) + (___match3888938890_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + _e1391914555_ + _hd1391814559_ + _tl1391714562_ + _e1393614457_ + _hd1393514461_ + _tl1393414464_ + ___splice3881938820_ + _target1393714467_ + _tl1393914470_) + (if (gx#stx-pair/null? _hd1391514549_) + (let ((___splice3882338824_ (gx#syntax-split-splice - _hd1383414468_ + _hd1391514549_ '0))) - (let ((_tl1387513926_ + (let ((_tl1395614007_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3882338824_ '1))) - (_target1387313923_ + (_target1395414004_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3882338824_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (if (gx#stx-null? _tl1395614007_) + (___match3890938910_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3882338824_ + _target1395414004_ + _tl1395614007_) (let () (declare (not safe)) - (_g1382413896_))))) + (_g1390513977_))))) (let () (declare (not safe)) - (_g1382413896_)))))) - (if (gx#stx-pair/null? _hd1383414468_) - (let ((___splice3888938890_ - (gx#syntax-split-splice _hd1383414468_ '0))) - (let ((_tl1387513926_ + (_g1390513977_)))))) + (if (gx#stx-pair/null? _hd1391514549_) + (let ((___splice3882338824_ + (gx#syntax-split-splice _hd1391514549_ '0))) + (let ((_tl1395614007_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3882338824_ '1))) + (_target1395414004_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3882338824_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (if (gx#stx-null? _tl1395614007_) + (___match3890938910_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3882338824_ + _target1395414004_ + _tl1395614007_) (let () (declare (not safe)) - (_g1382413896_))))) - (let () (declare (not safe)) (_g1382413896_)))) - (if (gx#stx-pair/null? _hd1383414468_) - (let ((___splice3888938890_ - (gx#syntax-split-splice _hd1383414468_ '0))) - (let ((_tl1387513926_ + (_g1390513977_))))) + (let () (declare (not safe)) (_g1390513977_)))) + (if (gx#stx-pair/null? _hd1391514549_) + (let ((___splice3882338824_ + (gx#syntax-split-splice _hd1391514549_ '0))) + (let ((_tl1395614007_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3882338824_ '1))) + (_target1395414004_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (##vector-ref ___splice3882338824_ '0)))) + (if (gx#stx-null? _tl1395614007_) + (___match3890938910_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3882338824_ + _target1395414004_ + _tl1395614007_) (let () (declare (not safe)) - (_g1382413896_))))) - (let () (declare (not safe)) (_g1382413896_)))) - (if (gx#stx-pair/null? _hd1383414468_) - (let ((___splice3888938890_ - (gx#syntax-split-splice _hd1383414468_ '0))) - (let ((_tl1387513926_ + (_g1390513977_))))) + (let () (declare (not safe)) (_g1390513977_)))) + (if (gx#stx-pair/null? _hd1391514549_) + (let ((___splice3882338824_ + (gx#syntax-split-splice _hd1391514549_ '0))) + (let ((_tl1395614007_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3882338824_ '1))) + (_target1395414004_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) - (let () (declare (not safe)) (_g1382413896_))))) - (let () (declare (not safe)) (_g1382413896_)))))) + (##vector-ref ___splice3882338824_ '0)))) + (if (gx#stx-null? _tl1395614007_) + (___match3890938910_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3882338824_ + _target1395414004_ + _tl1395614007_) + (let () (declare (not safe)) (_g1390513977_))))) + (let () (declare (not safe)) (_g1390513977_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _hd1383414468_) - (let ((___splice3888938890_ + _hd1391514549_) + (let ((___splice3882338824_ (gx#syntax-split-splice - _hd1383414468_ + _hd1391514549_ '0))) - (let ((_tl1387513926_ + (let ((_tl1395614007_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3882338824_ '1))) + (_target1395414004_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) - (let () (declare (not safe)) (_g1382413896_))))) + (##vector-ref ___splice3882338824_ '0)))) + (if (gx#stx-null? _tl1395614007_) + (___match3890938910_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3882338824_ + _target1395414004_ + _tl1395614007_) + (let () (declare (not safe)) (_g1390513977_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1382413896_))))))) - (if (gx#stx-pair/null? _hd1383414468_) - (let ((___splice3888938890_ + (_g1390513977_))))))) + (if (gx#stx-pair/null? _hd1391514549_) + (let ((___splice3882338824_ (gx#syntax-split-splice - _hd1383414468_ + _hd1391514549_ '0))) - (let ((_tl1387513926_ + (let ((_tl1395614007_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3882338824_ '1))) - (_target1387313923_ + (_target1395414004_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3882338824_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (if (gx#stx-null? _tl1395614007_) + (___match3890938910_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3882338824_ + _target1395414004_ + _tl1395614007_) (let () (declare (not safe)) - (_g1382413896_))))) + (_g1390513977_))))) (let () (declare (not safe)) - (_g1382413896_)))))) - (let () (declare (not safe)) (_g1382413896_))))) - (let () (declare (not safe)) (_g1382413896_))))))))) + (_g1390513977_)))))) + (let () (declare (not safe)) (_g1390513977_))))) + (let () (declare (not safe)) (_g1390513977_))))))))) (define |gerbil/core$$[:0:]#alet*| - (lambda (_$stx14856_) - (let* ((___stx3897838979_ _$stx14856_) - (_g1486214913_ + (lambda (_$stx14937_) + (let* ((___stx3891238913_ _$stx14937_) + (_g1494314994_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3897838979_)))) - (let ((___kont3898138982_ (lambda () '#t)) - (___kont3898338984_ - (lambda (_L15071_) + ___stx3891238913_)))) + (let ((___kont3891538916_ (lambda () '#t)) + (___kont3891738918_ + (lambda (_L15152_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_g1508715090_ _g1508815093_) - (cons _g1508715090_ _g1508815093_)) + (foldr (lambda (_g1516815171_ _g1516915174_) + (cons _g1516815171_ _g1516915174_)) '() - _L15071_))))) - (___kont3898738988_ - (lambda (_L14980_ _L14982_ _L14983_ _L14984_) + _L15152_))))) + (___kont3892138922_ + (lambda (_L15061_ _L15063_ _L15064_ _L15065_) (cons (gx#datum->syntax '#f 'alet) - (cons (cons _L14983_ '()) - (cons (cons _L14984_ - (cons _L14982_ - (foldr (lambda (_g1500515008_ + (cons (cons _L15064_ '()) + (cons (cons _L15065_ + (cons _L15063_ + (foldr (lambda (_g1508615089_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1500615011_) - (cons _g1500515008_ _g1500615011_)) + _g1508715092_) + (cons _g1508615089_ _g1508715092_)) '() - _L14980_))) + _L15061_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((___match3905539056_ - (lambda (_e1489214920_ - _hd1489114924_ - _tl1489014927_ - _e1489514930_ - _hd1489414934_ - _tl1489314937_ - _e1489814940_ - _hd1489714944_ - _tl1489614947_ - ___splice3898938990_ - _target1489914950_ - _tl1490114953_) - (letrec ((_loop1490214956_ - (lambda (_hd1490014960_ _body1490614963_) - (if (gx#stx-pair? _hd1490014960_) - (let ((_e1490314966_ - (gx#syntax-e _hd1490014960_))) - (let ((_lp-tl1490514973_ + (let* ((___match3898938990_ + (lambda (_e1497315001_ + _hd1497215005_ + _tl1497115008_ + _e1497615011_ + _hd1497515015_ + _tl1497415018_ + _e1497915021_ + _hd1497815025_ + _tl1497715028_ + ___splice3892338924_ + _target1498015031_ + _tl1498215034_) + (letrec ((_loop1498315037_ + (lambda (_hd1498115041_ _body1498715044_) + (if (gx#stx-pair? _hd1498115041_) + (let ((_e1498415047_ + (gx#syntax-e _hd1498115041_))) + (let ((_lp-tl1498615054_ (let () (declare (not safe)) - (##cdr _e1490314966_))) - (_lp-hd1490414970_ + (##cdr _e1498415047_))) + (_lp-hd1498515051_ (let () (declare (not safe)) - (##car _e1490314966_)))) - (_loop1490214956_ - _lp-tl1490514973_ - (cons _lp-hd1490414970_ - _body1490614963_)))) - (let ((_body1490714976_ - (reverse _body1490614963_))) - (___kont3898738988_ - _body1490714976_ - _tl1489614947_ - _hd1489714944_ - _hd1489114924_)))))) - (_loop1490214956_ _target1489914950_ '())))) - (___match3902939030_ - (lambda (_e1487315021_ - _hd1487215025_ - _tl1487115028_ - _e1487615031_ - _hd1487515035_ - _tl1487415038_ - ___splice3898538986_ - _target1487715041_ - _tl1487915044_) - (letrec ((_loop1488015047_ - (lambda (_hd1487815051_ _body1488415054_) - (if (gx#stx-pair? _hd1487815051_) - (let ((_e1488115057_ - (gx#syntax-e _hd1487815051_))) - (let ((_lp-tl1488315064_ + (##car _e1498415047_)))) + (_loop1498315037_ + _lp-tl1498615054_ + (cons _lp-hd1498515051_ + _body1498715044_)))) + (let ((_body1498815057_ + (reverse _body1498715044_))) + (___kont3892138922_ + _body1498815057_ + _tl1497715028_ + _hd1497815025_ + _hd1497215005_)))))) + (_loop1498315037_ _target1498015031_ '())))) + (___match3896338964_ + (lambda (_e1495415102_ + _hd1495315106_ + _tl1495215109_ + _e1495715112_ + _hd1495615116_ + _tl1495515119_ + ___splice3891938920_ + _target1495815122_ + _tl1496015125_) + (letrec ((_loop1496115128_ + (lambda (_hd1495915132_ _body1496515135_) + (if (gx#stx-pair? _hd1495915132_) + (let ((_e1496215138_ + (gx#syntax-e _hd1495915132_))) + (let ((_lp-tl1496415145_ (let () (declare (not safe)) - (##cdr _e1488115057_))) - (_lp-hd1488215061_ + (##cdr _e1496215138_))) + (_lp-hd1496315142_ (let () (declare (not safe)) - (##car _e1488115057_)))) - (_loop1488015047_ - _lp-tl1488315064_ - (cons _lp-hd1488215061_ - _body1488415054_)))) - (let ((_body1488515067_ - (reverse _body1488415054_))) - (___kont3898338984_ - _body1488515067_)))))) - (_loop1488015047_ _target1487715041_ '()))))) - (if (gx#stx-pair? ___stx3897838979_) - (let ((_e1486615103_ (gx#syntax-e ___stx3897838979_))) - (let ((_tl1486415110_ - (let () (declare (not safe)) (##cdr _e1486615103_))) - (_hd1486515107_ + (##car _e1496215138_)))) + (_loop1496115128_ + _lp-tl1496415145_ + (cons _lp-hd1496315142_ + _body1496515135_)))) + (let ((_body1496615148_ + (reverse _body1496515135_))) + (___kont3891738918_ + _body1496615148_)))))) + (_loop1496115128_ _target1495815122_ '()))))) + (if (gx#stx-pair? ___stx3891238913_) + (let ((_e1494715184_ (gx#syntax-e ___stx3891238913_))) + (let ((_tl1494515191_ + (let () (declare (not safe)) (##cdr _e1494715184_))) + (_hd1494615188_ (let () (declare (not safe)) - (##car _e1486615103_)))) - (if (gx#stx-pair? _tl1486415110_) - (let ((_e1486915113_ (gx#syntax-e _tl1486415110_))) - (let ((_tl1486715120_ + (##car _e1494715184_)))) + (if (gx#stx-pair? _tl1494515191_) + (let ((_e1495015194_ (gx#syntax-e _tl1494515191_))) + (let ((_tl1494815201_ (let () (declare (not safe)) - (##cdr _e1486915113_))) - (_hd1486815117_ + (##cdr _e1495015194_))) + (_hd1494915198_ (let () (declare (not safe)) - (##car _e1486915113_)))) - (if (gx#stx-null? _hd1486815117_) - (if (gx#stx-null? _tl1486715120_) - (___kont3898138982_) - (if (gx#stx-pair/null? _tl1486715120_) - (let ((___splice3898538986_ + (##car _e1495015194_)))) + (if (gx#stx-null? _hd1494915198_) + (if (gx#stx-null? _tl1494815201_) + (___kont3891538916_) + (if (gx#stx-pair/null? _tl1494815201_) + (let ((___splice3891938920_ (gx#syntax-split-splice - _tl1486715120_ + _tl1494815201_ '0))) - (let ((_tl1487915044_ + (let ((_tl1496015125_ (let () (declare (not safe)) (##vector-ref - ___splice3898538986_ + ___splice3891938920_ '1))) - (_target1487715041_ + (_target1495815122_ (let () (declare (not safe)) (##vector-ref - ___splice3898538986_ + ___splice3891938920_ '0)))) - (if (gx#stx-null? _tl1487915044_) - (___match3902939030_ - _e1486615103_ - _hd1486515107_ - _tl1486415110_ - _e1486915113_ - _hd1486815117_ - _tl1486715120_ - ___splice3898538986_ - _target1487715041_ - _tl1487915044_) + (if (gx#stx-null? _tl1496015125_) + (___match3896338964_ + _e1494715184_ + _hd1494615188_ + _tl1494515191_ + _e1495015194_ + _hd1494915198_ + _tl1494815201_ + ___splice3891938920_ + _target1495815122_ + _tl1496015125_) (let () (declare (not safe)) - (_g1486214913_))))) + (_g1494314994_))))) (let () (declare (not safe)) - (_g1486214913_)))) - (if (gx#stx-pair? _hd1486815117_) - (let ((_e1489814940_ - (gx#syntax-e _hd1486815117_))) - (let ((_tl1489614947_ + (_g1494314994_)))) + (if (gx#stx-pair? _hd1494915198_) + (let ((_e1497915021_ + (gx#syntax-e _hd1494915198_))) + (let ((_tl1497715028_ (let () (declare (not safe)) - (##cdr _e1489814940_))) - (_hd1489714944_ + (##cdr _e1497915021_))) + (_hd1497815025_ (let () (declare (not safe)) - (##car _e1489814940_)))) + (##car _e1497915021_)))) (if (gx#stx-pair/null? - _tl1486715120_) - (let ((___splice3898938990_ + _tl1494815201_) + (let ((___splice3892338924_ (gx#syntax-split-splice - _tl1486715120_ + _tl1494815201_ '0))) - (let ((_tl1490114953_ + (let ((_tl1498215034_ (let () (declare (not safe)) (##vector-ref - ___splice3898938990_ + ___splice3892338924_ '1))) - (_target1489914950_ + (_target1498015031_ (let () (declare (not safe)) (##vector-ref - ___splice3898938990_ + ___splice3892338924_ '0)))) (if (gx#stx-null? - _tl1490114953_) - (___match3905539056_ - _e1486615103_ - _hd1486515107_ - _tl1486415110_ - _e1486915113_ - _hd1486815117_ - _tl1486715120_ - _e1489814940_ - _hd1489714944_ - _tl1489614947_ - ___splice3898938990_ - _target1489914950_ - _tl1490114953_) + _tl1498215034_) + (___match3898938990_ + _e1494715184_ + _hd1494615188_ + _tl1494515191_ + _e1495015194_ + _hd1494915198_ + _tl1494815201_ + _e1497915021_ + _hd1497815025_ + _tl1497715028_ + ___splice3892338924_ + _target1498015031_ + _tl1498215034_) (let () (declare (not safe)) - (_g1486214913_))))) + (_g1494314994_))))) (let () (declare (not safe)) - (_g1486214913_))))) + (_g1494314994_))))) (let () (declare (not safe)) - (_g1486214913_)))))) - (let () (declare (not safe)) (_g1486214913_))))) - (let () (declare (not safe)) (_g1486214913_)))))))) + (_g1494314994_)))))) + (let () (declare (not safe)) (_g1494314994_))))) + (let () (declare (not safe)) (_g1494314994_)))))))) (define |gerbil/core$$[:0:]#@list| - (lambda (_$stx15133_) - (let* ((___stx3905839059_ _$stx15133_) - (_g1514415222_ + (lambda (_$stx15214_) + (let* ((___stx3899238993_ _$stx15214_) + (_g1522515303_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3905839059_)))) - (let ((___kont3906139062_ + ___stx3899238993_)))) + (let ((___kont3899538996_ (lambda () (cons (gx#datum->syntax '#f 'quote) (cons '() '())))) - (___kont3906339064_ - (lambda (_L15553_) - (cons (gx#datum->syntax '#f 'quote) (cons _L15553_ '())))) - (___kont3906539066_ - (lambda (_L15501_) + (___kont3899738998_ + (lambda (_L15634_) + (cons (gx#datum->syntax '#f 'quote) (cons _L15634_ '())))) + (___kont3899939000_ + (lambda (_L15582_) (cons (gx#datum->syntax '#f 'quasiquote) - (cons _L15501_ '())))) - (___kont3906739068_ (lambda (_L15448_) _L15448_)) - (___kont3906939070_ (lambda (_L15390_ _L15392_) _L15392_)) - (___kont3907139072_ - (lambda (_L15332_ _L15334_ _L15335_ _L15336_) + (cons _L15582_ '())))) + (___kont3900139002_ (lambda (_L15529_) _L15529_)) + (___kont3900339004_ (lambda (_L15471_ _L15473_) _L15473_)) + (___kont3900539006_ + (lambda (_L15413_ _L15415_ _L15416_ _L15417_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) - (cons (cons _L15336_ _L15332_) - (cons _L15335_ '())))))) - (___kont3907339074_ - (lambda (_L15278_ _L15280_ _L15281_) + (cons (cons _L15417_ _L15413_) + (cons _L15416_ '())))))) + (___kont3900739008_ + (lambda (_L15359_ _L15361_ _L15362_) (cons (gx#datum->syntax '#f 'cons) - (cons _L15280_ (cons (cons _L15281_ _L15278_) '()))))) - (___kont3907539076_ (lambda (_L15239_) _L15239_))) - (let* ((___match3919739198_ - (lambda (_e1519715302_ - _hd1519615306_ - _tl1519515309_ - _e1520015312_ - _hd1519915316_ - _tl1519815319_ - _e1520315322_ - _hd1520215326_ - _tl1520115329_) - (let ((_L15332_ _tl1520115329_) - (_L15334_ _hd1520215326_) - (_L15335_ _hd1519915316_) - (_L15336_ _hd1519615306_)) - (if (gx#ellipsis? _L15334_) - (___kont3907139072_ - _L15332_ - _L15334_ - _L15335_ - _L15336_) - (___kont3907339074_ - _tl1519815319_ - _hd1519915316_ - _hd1519615306_))))) - (___match3917939180_ - (lambda (_e1518415360_ - _hd1518315364_ - _tl1518215367_ - _e1518715370_ - _hd1518615374_ - _tl1518515377_ - _e1519015380_ - _hd1518915384_ - _tl1518815387_) - (let ((_L15390_ _hd1518915384_) - (_L15392_ _hd1518615374_)) - (if (gx#ellipsis? _L15390_) - (___kont3906939070_ _L15390_ _L15392_) - (___match3919739198_ - _e1518415360_ - _hd1518315364_ - _tl1518215367_ - _e1518715370_ - _hd1518615374_ - _tl1518515377_ - _e1519015380_ - _hd1518915384_ - _tl1518815387_)))))) - (if (gx#stx-pair? ___stx3905839059_) - (let ((_e1514815575_ (gx#syntax-e ___stx3905839059_))) - (let ((_tl1514615582_ - (let () (declare (not safe)) (##cdr _e1514815575_))) - (_hd1514715579_ + (cons _L15361_ (cons (cons _L15362_ _L15359_) '()))))) + (___kont3900939010_ (lambda (_L15320_) _L15320_))) + (let* ((___match3913139132_ + (lambda (_e1527815383_ + _hd1527715387_ + _tl1527615390_ + _e1528115393_ + _hd1528015397_ + _tl1527915400_ + _e1528415403_ + _hd1528315407_ + _tl1528215410_) + (let ((_L15413_ _tl1528215410_) + (_L15415_ _hd1528315407_) + (_L15416_ _hd1528015397_) + (_L15417_ _hd1527715387_)) + (if (gx#ellipsis? _L15415_) + (___kont3900539006_ + _L15413_ + _L15415_ + _L15416_ + _L15417_) + (___kont3900739008_ + _tl1527915400_ + _hd1528015397_ + _hd1527715387_))))) + (___match3911339114_ + (lambda (_e1526515441_ + _hd1526415445_ + _tl1526315448_ + _e1526815451_ + _hd1526715455_ + _tl1526615458_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_) + (let ((_L15471_ _hd1527015465_) + (_L15473_ _hd1526715455_)) + (if (gx#ellipsis? _L15471_) + (___kont3900339004_ _L15471_ _L15473_) + (___match3913139132_ + _e1526515441_ + _hd1526415445_ + _tl1526315448_ + _e1526815451_ + _hd1526715455_ + _tl1526615458_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_)))))) + (if (gx#stx-pair? ___stx3899238993_) + (let ((_e1522915656_ (gx#syntax-e ___stx3899238993_))) + (let ((_tl1522715663_ + (let () (declare (not safe)) (##cdr _e1522915656_))) + (_hd1522815660_ (let () (declare (not safe)) - (##car _e1514815575_)))) - (if (gx#stx-null? _tl1514615582_) - (___kont3906139062_) - (if (gx#stx-pair? _tl1514615582_) - (let ((_e1515515533_ - (gx#syntax-e _tl1514615582_))) - (let ((_tl1515315540_ + (##car _e1522915656_)))) + (if (gx#stx-null? _tl1522715663_) + (___kont3899538996_) + (if (gx#stx-pair? _tl1522715663_) + (let ((_e1523615614_ + (gx#syntax-e _tl1522715663_))) + (let ((_tl1523415621_ (let () (declare (not safe)) - (##cdr _e1515515533_))) - (_hd1515415537_ + (##cdr _e1523615614_))) + (_hd1523515618_ (let () (declare (not safe)) - (##car _e1515515533_)))) - (if (gx#identifier? _hd1515415537_) + (##car _e1523615614_)))) + (if (gx#identifier? _hd1523515618_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42812_| - _hd1515415537_) - (if (gx#stx-pair? _tl1515315540_) - (let ((_e1515815543_ + |gerbil/core$$[1]#_g42996_| + _hd1523515618_) + (if (gx#stx-pair? _tl1523415621_) + (let ((_e1523915624_ (gx#syntax-e - _tl1515315540_))) - (let ((_tl1515615550_ + _tl1523415621_))) + (let ((_tl1523715631_ (let () (declare (not safe)) - (##cdr _e1515815543_))) - (_hd1515715547_ + (##cdr _e1523915624_))) + (_hd1523815628_ (let () (declare (not safe)) - (##car _e1515815543_)))) + (##car _e1523915624_)))) (if (gx#stx-null? - _tl1515615550_) - (___kont3906339064_ - _hd1515715547_) - (___match3919739198_ - _e1514815575_ - _hd1514715579_ - _tl1514615582_ - _e1515515533_ - _hd1515415537_ - _tl1515315540_ - _e1515815543_ - _hd1515715547_ - _tl1515615550_)))) - (___kont3907339074_ - _tl1515315540_ - _hd1515415537_ - _hd1514715579_)) + _tl1523715631_) + (___kont3899738998_ + _hd1523815628_) + (___match3913139132_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1523915624_ + _hd1523815628_ + _tl1523715631_)))) + (___kont3900739008_ + _tl1523415621_ + _hd1523515618_ + _hd1522815660_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42811_| - _hd1515415537_) - (if (gx#stx-pair? _tl1515315540_) - (let ((_e1516815491_ + |gerbil/core$$[1]#_g42995_| + _hd1523515618_) + (if (gx#stx-pair? _tl1523415621_) + (let ((_e1524915572_ (gx#syntax-e - _tl1515315540_))) - (let ((_tl1516615498_ + _tl1523415621_))) + (let ((_tl1524715579_ (let () (declare (not safe)) - (##cdr _e1516815491_))) - (_hd1516715495_ + (##cdr _e1524915572_))) + (_hd1524815576_ (let () (declare (not safe)) - (##car _e1516815491_)))) + (##car _e1524915572_)))) (if (gx#stx-null? - _tl1516615498_) - (___kont3906539066_ - _hd1516715495_) - (___match3919739198_ - _e1514815575_ - _hd1514715579_ - _tl1514615582_ - _e1515515533_ - _hd1515415537_ - _tl1515315540_ - _e1516815491_ - _hd1516715495_ - _tl1516615498_)))) - (___kont3907339074_ - _tl1515315540_ - _hd1515415537_ - _hd1514715579_)) - (if (gx#stx-pair? _tl1515315540_) - (let ((_e1519015380_ + _tl1524715579_) + (___kont3899939000_ + _hd1524815576_) + (___match3913139132_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1524915572_ + _hd1524815576_ + _tl1524715579_)))) + (___kont3900739008_ + _tl1523415621_ + _hd1523515618_ + _hd1522815660_)) + (if (gx#stx-pair? _tl1523415621_) + (let ((_e1527115461_ (gx#syntax-e - _tl1515315540_))) - (let ((_tl1518815387_ + _tl1523415621_))) + (let ((_tl1526915468_ (let () (declare (not safe)) - (##cdr _e1519015380_))) - (_hd1518915384_ + (##cdr _e1527115461_))) + (_hd1527015465_ (let () (declare (not safe)) - (##car _e1519015380_)))) + (##car _e1527115461_)))) (if (gx#stx-null? - _tl1518815387_) - (___match3917939180_ - _e1514815575_ - _hd1514715579_ - _tl1514615582_ - _e1515515533_ - _hd1515415537_ - _tl1515315540_ - _e1519015380_ - _hd1518915384_ - _tl1518815387_) - (___match3919739198_ - _e1514815575_ - _hd1514715579_ - _tl1514615582_ - _e1515515533_ - _hd1515415537_ - _tl1515315540_ - _e1519015380_ - _hd1518915384_ - _tl1518815387_)))) - (___kont3907339074_ - _tl1515315540_ - _hd1515415537_ - _hd1514715579_)))) - (if (gx#stx-datum? _hd1515415537_) - (let ((_e1517615434_ - (gx#stx-e _hd1515415537_))) - (if (equal? _e1517615434_ '::) + _tl1526915468_) + (___match3911339114_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_) + (___match3913139132_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_)))) + (___kont3900739008_ + _tl1523415621_ + _hd1523515618_ + _hd1522815660_)))) + (if (gx#stx-datum? _hd1523515618_) + (let ((_e1525715515_ + (gx#stx-e _hd1523515618_))) + (if (equal? _e1525715515_ '::) (if (gx#stx-pair? - _tl1515315540_) - (let ((_e1517915438_ + _tl1523415621_) + (let ((_e1526015519_ (gx#syntax-e - _tl1515315540_))) - (let ((_tl1517715445_ + _tl1523415621_))) + (let ((_tl1525815526_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e1517915438_))) - (_hd1517815442_ - (let () (declare (not safe)) (##car _e1517915438_)))) - (if (gx#stx-null? _tl1517715445_) - (___kont3906739068_ _hd1517815442_) - (___match3919739198_ - _e1514815575_ - _hd1514715579_ - _tl1514615582_ - _e1515515533_ - _hd1515415537_ - _tl1515315540_ - _e1517915438_ - _hd1517815442_ - _tl1517715445_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3907339074_ - _tl1515315540_ - _hd1515415537_ - _hd1514715579_)) + (##cdr _e1526015519_))) + (_hd1525915523_ + (let () (declare (not safe)) (##car _e1526015519_)))) + (if (gx#stx-null? _tl1525815526_) + (___kont3900139002_ _hd1525915523_) + (___match3913139132_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1526015519_ + _hd1525915523_ + _tl1525815526_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3900739008_ + _tl1523415621_ + _hd1523515618_ + _hd1522815660_)) (if (gx#stx-pair? - _tl1515315540_) - (let ((_e1519015380_ + _tl1523415621_) + (let ((_e1527115461_ (gx#syntax-e - _tl1515315540_))) - (let ((_tl1518815387_ + _tl1523415621_))) + (let ((_tl1526915468_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e1519015380_))) - (_hd1518915384_ - (let () (declare (not safe)) (##car _e1519015380_)))) - (if (gx#stx-null? _tl1518815387_) - (___match3917939180_ - _e1514815575_ - _hd1514715579_ - _tl1514615582_ - _e1515515533_ - _hd1515415537_ - _tl1515315540_ - _e1519015380_ - _hd1518915384_ - _tl1518815387_) - (___match3919739198_ - _e1514815575_ - _hd1514715579_ - _tl1514615582_ - _e1515515533_ - _hd1515415537_ - _tl1515315540_ - _e1519015380_ - _hd1518915384_ - _tl1518815387_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3907339074_ - _tl1515315540_ - _hd1515415537_ - _hd1514715579_)))) - (if (gx#stx-pair? _tl1515315540_) - (let ((_e1519015380_ + (##cdr _e1527115461_))) + (_hd1527015465_ + (let () (declare (not safe)) (##car _e1527115461_)))) + (if (gx#stx-null? _tl1526915468_) + (___match3911339114_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_) + (___match3913139132_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3900739008_ + _tl1523415621_ + _hd1523515618_ + _hd1522815660_)))) + (if (gx#stx-pair? _tl1523415621_) + (let ((_e1527115461_ (gx#syntax-e - _tl1515315540_))) - (let ((_tl1518815387_ + _tl1523415621_))) + (let ((_tl1526915468_ (let () (declare (not safe)) - (##cdr _e1519015380_))) - (_hd1518915384_ + (##cdr _e1527115461_))) + (_hd1527015465_ (let () (declare (not safe)) - (##car _e1519015380_)))) + (##car _e1527115461_)))) (if (gx#stx-null? - _tl1518815387_) - (___match3917939180_ - _e1514815575_ - _hd1514715579_ - _tl1514615582_ - _e1515515533_ - _hd1515415537_ - _tl1515315540_ - _e1519015380_ - _hd1518915384_ - _tl1518815387_) - (___match3919739198_ - _e1514815575_ - _hd1514715579_ - _tl1514615582_ - _e1515515533_ - _hd1515415537_ - _tl1515315540_ - _e1519015380_ - _hd1518915384_ - _tl1518815387_)))) - (___kont3907339074_ - _tl1515315540_ - _hd1515415537_ - _hd1514715579_)))))) - (___kont3907539076_ _tl1514615582_))))) - (let () (declare (not safe)) (_g1514415222_)))))))) + _tl1526915468_) + (___match3911339114_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_) + (___match3913139132_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_)))) + (___kont3900739008_ + _tl1523415621_ + _hd1523515618_ + _hd1522815660_)))))) + (___kont3900939010_ _tl1522715663_))))) + (let () (declare (not safe)) (_g1522515303_)))))))) (define |gerbil/core$$[:0:]#quasiquote| - (lambda (_stx15593_) - (letrec ((_simple-quote?15596_ - (lambda (_e16288_) - (let* ((___stx3921839219_ _e16288_) - (_g1629616333_ + (lambda (_stx15674_) + (letrec ((_simple-quote?15677_ + (lambda (_e16369_) + (let* ((___stx3915239153_ _e16369_) + (_g1637716414_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3921839219_)))) - (let ((___kont3922139222_ (lambda () '#f)) - (___kont3922339224_ (lambda () '#f)) - (___kont3922539226_ - (lambda (_L16447_ _L16449_) - (if (_simple-quote?15596_ _L16449_) - (_simple-quote?15596_ _L16447_) + ___stx3915239153_)))) + (let ((___kont3915539156_ (lambda () '#f)) + (___kont3915739158_ (lambda () '#f)) + (___kont3915939160_ + (lambda (_L16528_ _L16530_) + (if (_simple-quote?15677_ _L16530_) + (_simple-quote?15677_ _L16528_) '#f))) - (___kont3922739228_ - (lambda (_L16408_) - (_simple-quote?15596_ - (foldr (lambda (_g1642116424_ _g1642216427_) - (cons _g1642116424_ _g1642216427_)) + (___kont3916139162_ + (lambda (_L16489_) + (_simple-quote?15677_ + (foldr (lambda (_g1650216505_ _g1650316508_) + (cons _g1650216505_ _g1650316508_)) '() - _L16408_)))) - (___kont3923139232_ - (lambda (_L16355_) - (_simple-quote?15596_ _L16355_))) - (___kont3923339234_ (lambda () '#t))) - (let* ((_g1629416367_ + _L16489_)))) + (___kont3916539166_ + (lambda (_L16436_) + (_simple-quote?15677_ _L16436_))) + (___kont3916739168_ (lambda () '#t))) + (let* ((_g1637516448_ (lambda () - (if (gx#stx-box? ___stx3921839219_) - (let ((_e1632716351_ + (if (gx#stx-box? ___stx3915239153_) + (let ((_e1640816432_ (unbox (gx#syntax-e - ___stx3921839219_)))) - (___kont3923139232_ _e1632716351_)) - (___kont3923339234_)))) - (___match3928939290_ - (lambda (_e1631616374_ - ___splice3922939230_ - _target1631716378_ - _tl1631916381_) - (letrec ((_loop1632016384_ - (lambda (_hd1631816388_ - _e1632416391_) - (if (gx#stx-pair? _hd1631816388_) - (let ((_e1632116394_ + ___stx3915239153_)))) + (___kont3916539166_ _e1640816432_)) + (___kont3916739168_)))) + (___match3922339224_ + (lambda (_e1639716455_ + ___splice3916339164_ + _target1639816459_ + _tl1640016462_) + (letrec ((_loop1640116465_ + (lambda (_hd1639916469_ + _e1640516472_) + (if (gx#stx-pair? _hd1639916469_) + (let ((_e1640216475_ (gx#syntax-e - _hd1631816388_))) - (let ((_lp-tl1632316401_ + _hd1639916469_))) + (let ((_lp-tl1640416482_ (let () (declare (not safe)) - (##cdr _e1632116394_))) - (_lp-hd1632216398_ + (##cdr _e1640216475_))) + (_lp-hd1640316479_ (let () (declare (not safe)) - (##car _e1632116394_)))) - (_loop1632016384_ - _lp-tl1632316401_ - (cons _lp-hd1632216398_ - _e1632416391_)))) - (let ((_e1632516404_ - (reverse _e1632416391_))) - (___kont3922739228_ - _e1632516404_)))))) - (_loop1632016384_ - _target1631716378_ + (##car _e1640216475_)))) + (_loop1640116465_ + _lp-tl1640416482_ + (cons _lp-hd1640316479_ + _e1640516472_)))) + (let ((_e1640616485_ + (reverse _e1640516472_))) + (___kont3916139162_ + _e1640616485_)))))) + (_loop1640116465_ + _target1639816459_ '())))) - (_g1629316430_ + (_g1637416511_ (lambda () - (if (gx#stx-vector? ___stx3921839219_) - (let ((_e1631616374_ + (if (gx#stx-vector? ___stx3915239153_) + (let ((_e1639716455_ (vector->list (gx#syntax-e - ___stx3921839219_)))) - (if (gx#stx-pair/null? _e1631616374_) - (let ((___splice3922939230_ + ___stx3915239153_)))) + (if (gx#stx-pair/null? _e1639716455_) + (let ((___splice3916339164_ (gx#syntax-split-splice - _e1631616374_ + _e1639716455_ '0))) - (let ((_tl1631916381_ + (let ((_tl1640016462_ (let () (declare (not safe)) (##vector-ref - ___splice3922939230_ + ___splice3916339164_ '1))) - (_target1631716378_ + (_target1639816459_ (let () (declare (not safe)) (##vector-ref - ___splice3922939230_ + ___splice3916339164_ '0)))) (if (gx#stx-null? - _tl1631916381_) - (___match3928939290_ - _e1631616374_ - ___splice3922939230_ - _target1631716378_ - _tl1631916381_) - (___kont3923339234_)))) - (___kont3923339234_))) + _tl1640016462_) + (___match3922339224_ + _e1639716455_ + ___splice3916339164_ + _target1639816459_ + _tl1640016462_) + (___kont3916739168_)))) + (___kont3916739168_))) (let () (declare (not safe)) - (_g1629416367_)))))) - (if (gx#stx-pair? ___stx3921839219_) - (let ((_e1630016498_ - (gx#syntax-e ___stx3921839219_))) - (let ((_tl1629816505_ + (_g1637516448_)))))) + (if (gx#stx-pair? ___stx3915239153_) + (let ((_e1638116579_ + (gx#syntax-e ___stx3915239153_))) + (let ((_tl1637916586_ (let () (declare (not safe)) - (##cdr _e1630016498_))) - (_hd1629916502_ + (##cdr _e1638116579_))) + (_hd1638016583_ (let () (declare (not safe)) - (##car _e1630016498_)))) - (if (gx#identifier? _hd1629916502_) + (##car _e1638116579_)))) + (if (gx#identifier? _hd1638016583_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42814_| - _hd1629916502_) - (if (gx#stx-pair? _tl1629816505_) - (let ((_e1630316508_ + |gerbil/core$$[1]#_g42998_| + _hd1638016583_) + (if (gx#stx-pair? _tl1637916586_) + (let ((_e1638416589_ (gx#syntax-e - _tl1629816505_))) - (let ((_tl1630116515_ + _tl1637916586_))) + (let ((_tl1638216596_ (let () (declare (not safe)) - (##cdr _e1630316508_))) - (_hd1630216512_ + (##cdr _e1638416589_))) + (_hd1638316593_ (let () (declare (not safe)) - (##car _e1630316508_)))) + (##car _e1638416589_)))) (if (gx#stx-null? - _tl1630116515_) - (___kont3922139222_) - (___kont3922539226_ - _tl1629816505_ - _hd1629916502_)))) - (___kont3922539226_ - _tl1629816505_ - _hd1629916502_)) + _tl1638216596_) + (___kont3915539156_) + (___kont3915939160_ + _tl1637916586_ + _hd1638016583_)))) + (___kont3915939160_ + _tl1637916586_ + _hd1638016583_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42813_| - _hd1629916502_) - (if (gx#stx-pair? _tl1629816505_) - (let ((_e1630916477_ + |gerbil/core$$[1]#_g42997_| + _hd1638016583_) + (if (gx#stx-pair? _tl1637916586_) + (let ((_e1639016558_ (gx#syntax-e - _tl1629816505_))) - (let ((_tl1630716484_ + _tl1637916586_))) + (let ((_tl1638816565_ (let () (declare (not safe)) - (##cdr _e1630916477_))) - (_hd1630816481_ + (##cdr _e1639016558_))) + (_hd1638916562_ (let () (declare (not safe)) - (##car _e1630916477_)))) + (##car _e1639016558_)))) (if (gx#stx-null? - _tl1630716484_) - (___kont3922339224_) - (___kont3922539226_ - _tl1629816505_ - _hd1629916502_)))) - (___kont3922539226_ - _tl1629816505_ - _hd1629916502_)) - (___kont3922539226_ - _tl1629816505_ - _hd1629916502_))) - (___kont3922539226_ - _tl1629816505_ - _hd1629916502_)))) + _tl1638816565_) + (___kont3915739158_) + (___kont3915939160_ + _tl1637916586_ + _hd1638016583_)))) + (___kont3915939160_ + _tl1637916586_ + _hd1638016583_)) + (___kont3915939160_ + _tl1637916586_ + _hd1638016583_))) + (___kont3915939160_ + _tl1637916586_ + _hd1638016583_)))) (let () (declare (not safe)) - (_g1629316430_)))))))) - (_generate15598_ - (lambda (_e15660_ _d15662_) - (let* ((___stx3929639297_ _e15660_) - (_g1567115729_ + (_g1637416511_)))))))) + (_generate15679_ + (lambda (_e15741_ _d15743_) + (let* ((___stx3923039231_ _e15741_) + (_g1575215810_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3929639297_)))) - (let ((___kont3929939300_ - (lambda (_L16240_) - (let* ((_g1625316261_ - (lambda (_g1625416257_) + ___stx3923039231_)))) + (let ((___kont3923339234_ + (lambda (_L16321_) + (let* ((_g1633416342_ + (lambda (_g1633516338_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1625416257_))) - (_g1625216280_ - (lambda (_g1625416265_) - ((lambda (_L16268_) + _g1633516338_))) + (_g1633316361_ + (lambda (_g1633516346_) + ((lambda (_L16349_) (let () (cons (gx#datum->syntax '#f @@ -10509,26 +10510,26 @@ '#f 'quote) (cons (gx#datum->syntax '#f 'quasiquote) '())) - (cons _L16268_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1625416265_)))) - (_g1625216280_ - (_generate15598_ - _L16240_ - (fx1+ _d15662_)))))) - (___kont3930139302_ - (lambda (_L16169_) - (if (fxzero? _d15662_) - _L16169_ - (let* ((_g1618216190_ - (lambda (_g1618316186_) + (cons _L16349_ '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1633516346_)))) + (_g1633316361_ + (_generate15679_ + _L16321_ + (fx1+ _d15743_)))))) + (___kont3923539236_ + (lambda (_L16250_) + (if (fxzero? _d15743_) + _L16250_ + (let* ((_g1626316271_ + (lambda (_g1626416267_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1618316186_))) - (_g1618116209_ - (lambda (_g1618316194_) - ((lambda (_L16197_) + _g1626416267_))) + (_g1626216290_ + (lambda (_g1626416275_) + ((lambda (_L16278_) (let () (cons (gx#datum->syntax '#f @@ -10538,32 +10539,32 @@ '#f 'quote) (cons (gx#datum->syntax '#f 'unquote) '())) - (cons _L16197_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1618316194_)))) - (_g1618116209_ - (_generate15598_ - _L16169_ - (fx1- _d15662_))))))) - (___kont3930339304_ - (lambda (_L16098_) - (if (fxzero? _d15662_) + (cons _L16278_ '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1626416275_)))) + (_g1626216290_ + (_generate15679_ + _L16250_ + (fx1- _d15743_))))))) + (___kont3923739238_ + (lambda (_L16179_) + (if (fxzero? _d15743_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) - (cons _L16098_ '())))) - (let* ((_g1611116119_ - (lambda (_g1611216115_) + (cons _L16179_ '())))) + (let* ((_g1619216200_ + (lambda (_g1619316196_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1611216115_))) - (_g1611016138_ - (lambda (_g1611216123_) - ((lambda (_L16126_) + _g1619316196_))) + (_g1619116219_ + (lambda (_g1619316204_) + ((lambda (_L16207_) (let () (cons (gx#datum->syntax '#f @@ -10574,24 +10575,24 @@ 'quote) (cons (gx#datum->syntax '#f 'unquote-splicing) '())) - (cons _L16126_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1611216123_)))) - (_g1611016138_ - (_generate15598_ - _L16098_ - (fx1- _d15662_))))))) - (___kont3930539306_ - (lambda (_L16023_ _L16025_) - (let* ((_g1604016048_ - (lambda (_g1604116044_) + (cons _L16207_ '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1619316204_)))) + (_g1619116219_ + (_generate15679_ + _L16179_ + (fx1- _d15743_))))))) + (___kont3923939240_ + (lambda (_L16104_ _L16106_) + (let* ((_g1612116129_ + (lambda (_g1612216125_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1604116044_))) - (_g1603916067_ - (lambda (_g1604116052_) - ((lambda (_L16055_) + _g1612216125_))) + (_g1612016148_ + (lambda (_g1612216133_) + ((lambda (_L16136_) (let () (cons (gx#datum->syntax '#f @@ -10599,615 +10600,615 @@ (cons (gx#datum->syntax '#f 'cons) - (cons _L16055_ - (cons _L16025_ + (cons _L16136_ + (cons _L16106_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1604116052_)))) - (_g1603916067_ - (_generate15598_ _L16023_ _d15662_))))) - (___kont3930739308_ - (lambda (_L15909_ _L15911_) - (let* ((_g1592215937_ - (lambda (_g1592315933_) + _g1612216133_)))) + (_g1612016148_ + (_generate15679_ _L16104_ _d15743_))))) + (___kont3924139242_ + (lambda (_L15990_ _L15992_) + (let* ((_g1600316018_ + (lambda (_g1600416014_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1592315933_))) - (_g1592115982_ - (lambda (_g1592315941_) - (if (gx#stx-pair? _g1592315941_) - (let ((_e1592815944_ + _g1600416014_))) + (_g1600216063_ + (lambda (_g1600416022_) + (if (gx#stx-pair? _g1600416022_) + (let ((_e1600916025_ (gx#syntax-e - _g1592315941_))) - (let ((_hd1592715948_ + _g1600416022_))) + (let ((_hd1600816029_ (let () (declare (not safe)) - (##car _e1592815944_))) - (_tl1592615951_ + (##car _e1600916025_))) + (_tl1600716032_ (let () (declare (not safe)) - (##cdr _e1592815944_)))) + (##cdr _e1600916025_)))) (if (gx#stx-pair? - _tl1592615951_) - (let ((_e1593115954_ + _tl1600716032_) + (let ((_e1601216035_ (gx#syntax-e - _tl1592615951_))) - (let ((_hd1593015958_ + _tl1600716032_))) + (let ((_hd1601116039_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e1593115954_))) - (_tl1592915961_ - (let () (declare (not safe)) (##cdr _e1593115954_)))) - (if (gx#stx-null? _tl1592915961_) - ((lambda (_L15964_ _L15966_) + (##car _e1601216035_))) + (_tl1601016042_ + (let () (declare (not safe)) (##cdr _e1601216035_)))) + (if (gx#stx-null? _tl1601016042_) + ((lambda (_L16045_ _L16047_) (let () (cons (gx#datum->syntax '#f 'cons) - (cons _L15966_ (cons _L15964_ '()))))) - _hd1593015958_ - _hd1592715948_) - (_g1592215937_ _g1592315941_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1592215937_ - _g1592315941_)))) - (_g1592215937_ _g1592315941_))))) - (_g1592115982_ - (list (_generate15598_ _L15911_ _d15662_) - (_generate15598_ - _L15909_ - _d15662_)))))) - (___kont3930939310_ - (lambda (_L15839_) - (let* ((_g1585315861_ - (lambda (_g1585415857_) + (cons _L16047_ (cons _L16045_ '()))))) + _hd1601116039_ + _hd1600816029_) + (_g1600316018_ _g1600416022_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1600316018_ + _g1600416022_)))) + (_g1600316018_ _g1600416022_))))) + (_g1600216063_ + (list (_generate15679_ _L15992_ _d15743_) + (_generate15679_ + _L15990_ + _d15743_)))))) + (___kont3924339244_ + (lambda (_L15920_) + (let* ((_g1593415942_ + (lambda (_g1593515938_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1585415857_))) - (_g1585215880_ - (lambda (_g1585415865_) - ((lambda (_L15868_) + _g1593515938_))) + (_g1593315961_ + (lambda (_g1593515946_) + ((lambda (_L15949_) (let () (cons (gx#datum->syntax '#f 'list->vector) - (cons _L15868_ '())))) - _g1585415865_)))) - (_g1585215880_ - (_generate15598_ - (foldr (lambda (_g1588315886_ _g1588415889_) - (cons _g1588315886_ _g1588415889_)) + (cons _L15949_ '())))) + _g1593515946_)))) + (_g1593315961_ + (_generate15679_ + (foldr (lambda (_g1596415967_ _g1596515970_) + (cons _g1596415967_ _g1596515970_)) '() - _L15839_) - _d15662_))))) - (___kont3931339314_ - (lambda (_L15757_) - (let* ((_g1576715775_ - (lambda (_g1576815771_) + _L15920_) + _d15743_))))) + (___kont3924739248_ + (lambda (_L15838_) + (let* ((_g1584815856_ + (lambda (_g1584915852_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1576815771_))) - (_g1576615794_ - (lambda (_g1576815779_) - ((lambda (_L15782_) + _g1584915852_))) + (_g1584715875_ + (lambda (_g1584915860_) + ((lambda (_L15863_) (let () (cons (gx#datum->syntax '#f 'box) - (cons _L15782_ '())))) - _g1576815779_)))) - (_g1576615794_ - (_generate15598_ _L15757_ _d15662_))))) - (___kont3931539316_ - (lambda (_L15736_) + (cons _L15863_ '())))) + _g1584915860_)))) + (_g1584715875_ + (_generate15679_ _L15838_ _d15743_))))) + (___kont3924939250_ + (lambda (_L15817_) (cons (gx#datum->syntax '#f 'quote) - (cons _L15736_ '()))))) - (let* ((_g1566915798_ + (cons _L15817_ '()))))) + (let* ((_g1575015879_ (lambda () - (if (gx#stx-box? ___stx3929639297_) - (let ((_e1572215753_ + (if (gx#stx-box? ___stx3923039231_) + (let ((_e1580315834_ (unbox (gx#syntax-e - ___stx3929639297_)))) - (___kont3931339314_ _e1572215753_)) - (___kont3931539316_ ___stx3929639297_)))) - (___match3941539416_ - (lambda (_e1571115805_ - ___splice3931139312_ - _target1571215809_ - _tl1571415812_) - (letrec ((_loop1571515815_ - (lambda (_hd1571315819_ - _e1571915822_) - (if (gx#stx-pair? _hd1571315819_) - (let ((_e1571615825_ + ___stx3923039231_)))) + (___kont3924739248_ _e1580315834_)) + (___kont3924939250_ ___stx3923039231_)))) + (___match3934939350_ + (lambda (_e1579215886_ + ___splice3924539246_ + _target1579315890_ + _tl1579515893_) + (letrec ((_loop1579615896_ + (lambda (_hd1579415900_ + _e1580015903_) + (if (gx#stx-pair? _hd1579415900_) + (let ((_e1579715906_ (gx#syntax-e - _hd1571315819_))) - (let ((_lp-tl1571815832_ + _hd1579415900_))) + (let ((_lp-tl1579915913_ (let () (declare (not safe)) - (##cdr _e1571615825_))) - (_lp-hd1571715829_ + (##cdr _e1579715906_))) + (_lp-hd1579815910_ (let () (declare (not safe)) - (##car _e1571615825_)))) - (_loop1571515815_ - _lp-tl1571815832_ - (cons _lp-hd1571715829_ - _e1571915822_)))) - (let ((_e1572015835_ - (reverse _e1571915822_))) - (___kont3930939310_ - _e1572015835_)))))) - (_loop1571515815_ - _target1571215809_ + (##car _e1579715906_)))) + (_loop1579615896_ + _lp-tl1579915913_ + (cons _lp-hd1579815910_ + _e1580015903_)))) + (let ((_e1580115916_ + (reverse _e1580015903_))) + (___kont3924339244_ + _e1580115916_)))))) + (_loop1579615896_ + _target1579315890_ '())))) - (_g1566815892_ + (_g1574915973_ (lambda () - (if (gx#stx-vector? ___stx3929639297_) - (let ((_e1571115805_ + (if (gx#stx-vector? ___stx3923039231_) + (let ((_e1579215886_ (vector->list (gx#syntax-e - ___stx3929639297_)))) - (if (gx#stx-pair/null? _e1571115805_) - (let ((___splice3931139312_ + ___stx3923039231_)))) + (if (gx#stx-pair/null? _e1579215886_) + (let ((___splice3924539246_ (gx#syntax-split-splice - _e1571115805_ + _e1579215886_ '0))) - (let ((_tl1571415812_ + (let ((_tl1579515893_ (let () (declare (not safe)) (##vector-ref - ___splice3931139312_ + ___splice3924539246_ '1))) - (_target1571215809_ + (_target1579315890_ (let () (declare (not safe)) (##vector-ref - ___splice3931139312_ + ___splice3924539246_ '0)))) (if (gx#stx-null? - _tl1571415812_) - (___match3941539416_ - _e1571115805_ - ___splice3931139312_ - _target1571215809_ - _tl1571415812_) - (___kont3931539316_ - ___stx3929639297_)))) - (___kont3931539316_ - ___stx3929639297_))) + _tl1579515893_) + (___match3934939350_ + _e1579215886_ + ___splice3924539246_ + _target1579315890_ + _tl1579515893_) + (___kont3924939250_ + ___stx3923039231_)))) + (___kont3924939250_ + ___stx3923039231_))) (let () (declare (not safe)) - (_g1566915798_)))))) - (if (gx#stx-pair? ___stx3929639297_) - (let ((_e1567616220_ - (gx#syntax-e ___stx3929639297_))) - (let ((_tl1567416227_ + (_g1575015879_)))))) + (if (gx#stx-pair? ___stx3923039231_) + (let ((_e1575716301_ + (gx#syntax-e ___stx3923039231_))) + (let ((_tl1575516308_ (let () (declare (not safe)) - (##cdr _e1567616220_))) - (_hd1567516224_ + (##cdr _e1575716301_))) + (_hd1575616305_ (let () (declare (not safe)) - (##car _e1567616220_)))) - (if (gx#identifier? _hd1567516224_) + (##car _e1575716301_)))) + (if (gx#identifier? _hd1575616305_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42818_| - _hd1567516224_) - (if (gx#stx-pair? _tl1567416227_) - (let ((_e1567916230_ + |gerbil/core$$[1]#_g43002_| + _hd1575616305_) + (if (gx#stx-pair? _tl1575516308_) + (let ((_e1576016311_ (gx#syntax-e - _tl1567416227_))) - (let ((_tl1567716237_ + _tl1575516308_))) + (let ((_tl1575816318_ (let () (declare (not safe)) - (##cdr _e1567916230_))) - (_hd1567816234_ + (##cdr _e1576016311_))) + (_hd1575916315_ (let () (declare (not safe)) - (##car _e1567916230_)))) + (##car _e1576016311_)))) (if (gx#stx-null? - _tl1567716237_) - (___kont3929939300_ - _hd1567816234_) - (___kont3930739308_ - _tl1567416227_ - _hd1567516224_)))) - (___kont3930739308_ - _tl1567416227_ - _hd1567516224_)) + _tl1575816318_) + (___kont3923339234_ + _hd1575916315_) + (___kont3924139242_ + _tl1575516308_ + _hd1575616305_)))) + (___kont3924139242_ + _tl1575516308_ + _hd1575616305_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42817_| - _hd1567516224_) - (if (gx#stx-pair? _tl1567416227_) - (let ((_e1568616159_ + |gerbil/core$$[1]#_g43001_| + _hd1575616305_) + (if (gx#stx-pair? _tl1575516308_) + (let ((_e1576716240_ (gx#syntax-e - _tl1567416227_))) - (let ((_tl1568416166_ + _tl1575516308_))) + (let ((_tl1576516247_ (let () (declare (not safe)) - (##cdr _e1568616159_))) - (_hd1568516163_ + (##cdr _e1576716240_))) + (_hd1576616244_ (let () (declare (not safe)) - (##car _e1568616159_)))) + (##car _e1576716240_)))) (if (gx#stx-null? - _tl1568416166_) - (___kont3930139302_ - _hd1568516163_) - (___kont3930739308_ - _tl1567416227_ - _hd1567516224_)))) - (___kont3930739308_ - _tl1567416227_ - _hd1567516224_)) + _tl1576516247_) + (___kont3923539236_ + _hd1576616244_) + (___kont3924139242_ + _tl1575516308_ + _hd1575616305_)))) + (___kont3924139242_ + _tl1575516308_ + _hd1575616305_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42816_| - _hd1567516224_) + |gerbil/core$$[1]#_g43000_| + _hd1575616305_) (if (gx#stx-pair? - _tl1567416227_) - (let ((_e1569316088_ + _tl1575516308_) + (let ((_e1577416169_ (gx#syntax-e - _tl1567416227_))) - (let ((_tl1569116095_ + _tl1575516308_))) + (let ((_tl1577216176_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e1569316088_))) - (_hd1569216092_ - (let () (declare (not safe)) (##car _e1569316088_)))) - (if (gx#stx-null? _tl1569116095_) - (___kont3930339304_ _hd1569216092_) - (___kont3930739308_ _tl1567416227_ _hd1567516224_)))) - (___kont3930739308_ _tl1567416227_ _hd1567516224_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3930739308_ - _tl1567416227_ - _hd1567516224_)))) - (if (gx#stx-pair? _hd1567516224_) - (let ((_e1570116003_ - (gx#syntax-e _hd1567516224_))) - (let ((_tl1569916010_ + (##cdr _e1577416169_))) + (_hd1577316173_ + (let () (declare (not safe)) (##car _e1577416169_)))) + (if (gx#stx-null? _tl1577216176_) + (___kont3923739238_ _hd1577316173_) + (___kont3924139242_ _tl1575516308_ _hd1575616305_)))) + (___kont3924139242_ _tl1575516308_ _hd1575616305_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3924139242_ + _tl1575516308_ + _hd1575616305_)))) + (if (gx#stx-pair? _hd1575616305_) + (let ((_e1578216084_ + (gx#syntax-e _hd1575616305_))) + (let ((_tl1578016091_ (let () (declare (not safe)) - (##cdr _e1570116003_))) - (_hd1570016007_ + (##cdr _e1578216084_))) + (_hd1578116088_ (let () (declare (not safe)) - (##car _e1570116003_)))) + (##car _e1578216084_)))) (if (gx#identifier? - _hd1570016007_) + _hd1578116088_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42815_| - _hd1570016007_) + |gerbil/core$$[1]#_g42999_| + _hd1578116088_) (if (gx#stx-pair? - _tl1569916010_) - (let ((_e1570416013_ + _tl1578016091_) + (let ((_e1578516094_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1569916010_))) - (let ((_tl1570216020_ - (let () (declare (not safe)) (##cdr _e1570416013_))) - (_hd1570316017_ + (gx#syntax-e _tl1578016091_))) + (let ((_tl1578316101_ + (let () (declare (not safe)) (##cdr _e1578516094_))) + (_hd1578416098_ (let () (declare (not safe)) - (##car _e1570416013_)))) - (if (gx#stx-null? _tl1570216020_) - (if (fxzero? _d15662_) - (let ((_L16023_ _tl1567416227_) - (_L16025_ _hd1570316017_)) - (___kont3930539306_ _L16023_ _L16025_)) - (___kont3930739308_ - _tl1567416227_ - _hd1567516224_)) - (___kont3930739308_ _tl1567416227_ _hd1567516224_)))) - (___kont3930739308_ _tl1567416227_ _hd1567516224_)) - (___kont3930739308_ _tl1567416227_ _hd1567516224_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3930739308_ - _tl1567416227_ - _hd1567516224_)))) - (___kont3930739308_ - _tl1567416227_ - _hd1567516224_))))) + (##car _e1578516094_)))) + (if (gx#stx-null? _tl1578316101_) + (if (fxzero? _d15743_) + (let ((_L16104_ _tl1575516308_) + (_L16106_ _hd1578416098_)) + (___kont3923939240_ _L16104_ _L16106_)) + (___kont3924139242_ + _tl1575516308_ + _hd1575616305_)) + (___kont3924139242_ _tl1575516308_ _hd1575616305_)))) + (___kont3924139242_ _tl1575516308_ _hd1575616305_)) + (___kont3924139242_ _tl1575516308_ _hd1575616305_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3924139242_ + _tl1575516308_ + _hd1575616305_)))) + (___kont3924139242_ + _tl1575516308_ + _hd1575616305_))))) (let () (declare (not safe)) - (_g1566815892_))))))))) - (let* ((_g1560015614_ - (lambda (_g1560115610_) + (_g1574915973_))))))))) + (let* ((_g1568115695_ + (lambda (_g1568215691_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1560115610_))) - (_g1559915656_ - (lambda (_g1560115618_) - (if (gx#stx-pair? _g1560115618_) - (let ((_e1560515621_ (gx#syntax-e _g1560115618_))) - (let ((_hd1560415625_ + _g1568215691_))) + (_g1568015737_ + (lambda (_g1568215699_) + (if (gx#stx-pair? _g1568215699_) + (let ((_e1568615702_ (gx#syntax-e _g1568215699_))) + (let ((_hd1568515706_ (let () (declare (not safe)) - (##car _e1560515621_))) - (_tl1560315628_ + (##car _e1568615702_))) + (_tl1568415709_ (let () (declare (not safe)) - (##cdr _e1560515621_)))) - (if (gx#stx-pair? _tl1560315628_) - (let ((_e1560815631_ - (gx#syntax-e _tl1560315628_))) - (let ((_hd1560715635_ + (##cdr _e1568615702_)))) + (if (gx#stx-pair? _tl1568415709_) + (let ((_e1568915712_ + (gx#syntax-e _tl1568415709_))) + (let ((_hd1568815716_ (let () (declare (not safe)) - (##car _e1560815631_))) - (_tl1560615638_ + (##car _e1568915712_))) + (_tl1568715719_ (let () (declare (not safe)) - (##cdr _e1560815631_)))) - (if (gx#stx-null? _tl1560615638_) - ((lambda (_L15641_) - (if (_simple-quote?15596_ _L15641_) + (##cdr _e1568915712_)))) + (if (gx#stx-null? _tl1568715719_) + ((lambda (_L15722_) + (if (_simple-quote?15677_ _L15722_) (cons (gx#datum->syntax '#f 'quote) - (cons _L15641_ '())) - (_generate15598_ _L15641_ '0))) - _hd1560715635_) - (_g1560015614_ _g1560115618_)))) - (_g1560015614_ _g1560115618_)))) - (_g1560015614_ _g1560115618_))))) - (_g1559915656_ _stx15593_))))) + (cons _L15722_ '())) + (_generate15679_ _L15722_ '0))) + _hd1568815716_) + (_g1568115695_ _g1568215699_)))) + (_g1568115695_ _g1568215699_)))) + (_g1568115695_ _g1568215699_))))) + (_g1568015737_ _stx15674_))))) (define |gerbil/core$$[:0:]#delay| - (lambda (_$stx16528_) - (let* ((___stx3942239423_ _$stx16528_) - (_g1653316554_ + (lambda (_$stx16609_) + (let* ((___stx3935639357_ _$stx16609_) + (_g1661416635_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3942239423_)))) - (let ((___kont3942539426_ - (lambda (_L16622_) - (cons (gx#datum->syntax '#f 'quote) (cons _L16622_ '())))) - (___kont3942739428_ - (lambda (_L16581_) + ___stx3935639357_)))) + (let ((___kont3935939360_ + (lambda (_L16703_) + (cons (gx#datum->syntax '#f 'quote) (cons _L16703_ '())))) + (___kont3936139362_ + (lambda (_L16662_) (cons (gx#datum->syntax '#f 'make-promise) (cons (cons (gx#datum->syntax '#f 'lambda%) - (cons '() (cons _L16581_ '()))) + (cons '() (cons _L16662_ '()))) '()))))) - (let ((___match3944339444_ - (lambda (_e1653816602_ - _hd1653716606_ - _tl1653616609_ - _e1654116612_ - _hd1654016616_ - _tl1653916619_) - (let ((_L16622_ _hd1654016616_)) - (if (gx#stx-datum? _L16622_) - (___kont3942539426_ _L16622_) - (___kont3942739428_ _hd1654016616_)))))) - (if (gx#stx-pair? ___stx3942239423_) - (let ((_e1653816602_ (gx#syntax-e ___stx3942239423_))) - (let ((_tl1653616609_ - (let () (declare (not safe)) (##cdr _e1653816602_))) - (_hd1653716606_ + (let ((___match3937739378_ + (lambda (_e1661916683_ + _hd1661816687_ + _tl1661716690_ + _e1662216693_ + _hd1662116697_ + _tl1662016700_) + (let ((_L16703_ _hd1662116697_)) + (if (gx#stx-datum? _L16703_) + (___kont3935939360_ _L16703_) + (___kont3936139362_ _hd1662116697_)))))) + (if (gx#stx-pair? ___stx3935639357_) + (let ((_e1661916683_ (gx#syntax-e ___stx3935639357_))) + (let ((_tl1661716690_ + (let () (declare (not safe)) (##cdr _e1661916683_))) + (_hd1661816687_ (let () (declare (not safe)) - (##car _e1653816602_)))) - (if (gx#stx-pair? _tl1653616609_) - (let ((_e1654116612_ (gx#syntax-e _tl1653616609_))) - (let ((_tl1653916619_ + (##car _e1661916683_)))) + (if (gx#stx-pair? _tl1661716690_) + (let ((_e1662216693_ (gx#syntax-e _tl1661716690_))) + (let ((_tl1662016700_ (let () (declare (not safe)) - (##cdr _e1654116612_))) - (_hd1654016616_ + (##cdr _e1662216693_))) + (_hd1662116697_ (let () (declare (not safe)) - (##car _e1654116612_)))) - (if (gx#stx-null? _tl1653916619_) - (___match3944339444_ - _e1653816602_ - _hd1653716606_ - _tl1653616609_ - _e1654116612_ - _hd1654016616_ - _tl1653916619_) + (##car _e1662216693_)))) + (if (gx#stx-null? _tl1662016700_) + (___match3937739378_ + _e1661916683_ + _hd1661816687_ + _tl1661716690_ + _e1662216693_ + _hd1662116697_ + _tl1662016700_) (let () (declare (not safe)) - (_g1653316554_))))) - (let () (declare (not safe)) (_g1653316554_))))) - (let () (declare (not safe)) (_g1653316554_)))))))) + (_g1661416635_))))) + (let () (declare (not safe)) (_g1661416635_))))) + (let () (declare (not safe)) (_g1661416635_)))))))) (define |gerbil/core$$[:0:]#cut| - (lambda (_stx16639_) - (letrec ((_generate16642_ - (lambda (_rest16761_) - (let _lp16764_ ((_rest16767_ _rest16761_) - (_hd16769_ '()) - (_body16770_ '())) - (let* ((___stx3948039481_ _rest16767_) - (_g1677316785_ + (lambda (_stx16720_) + (letrec ((_generate16723_ + (lambda (_rest16842_) + (let _lp16845_ ((_rest16848_ _rest16842_) + (_hd16850_ '()) + (_body16851_ '())) + (let* ((___stx3941439415_ _rest16848_) + (_g1685416866_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3948039481_)))) - (let ((___kont3948339484_ - (lambda (_L16813_ _L16815_) - (let* ((___stx3946039461_ _L16815_) - (_g1683216839_ + ___stx3941439415_)))) + (let ((___kont3941739418_ + (lambda (_L16894_ _L16896_) + (let* ((___stx3939439395_ _L16896_) + (_g1691316920_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3946039461_)))) - (let ((___kont3946339464_ + ___stx3939439395_)))) + (let ((___kont3939739398_ (lambda () - (let ((_arg16875_ (gx#genident))) - (_lp16764_ - _L16813_ - (cons _arg16875_ _hd16769_) - (cons _arg16875_ - _body16770_))))) - (___kont3946539466_ + (let ((_arg16956_ (gx#genident))) + (_lp16845_ + _L16894_ + (cons _arg16956_ _hd16850_) + (cons _arg16956_ + _body16851_))))) + (___kont3939939400_ (lambda () - (if (gx#stx-null? _L16813_) - (let ((_tail16861_ + (if (gx#stx-null? _L16894_) + (let ((_tail16942_ (gx#genident))) (values (foldl cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tail16861_ - _hd16769_) - (foldl cons (list _tail16861_) _body16770_) + _tail16942_ + _hd16850_) + (foldl cons (list _tail16942_) _body16851_) '#t)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"Bad syntax; cut ellipsis <...> not in tail position" - _stx16639_ - _L16815_)))) - (___kont3946739468_ + _stx16720_ + _L16896_)))) + (___kont3940139402_ (lambda () - (_lp16764_ - _L16813_ - _hd16769_ - (cons _L16815_ _body16770_))))) - (if (gx#identifier? ___stx3946039461_) + (_lp16845_ + _L16894_ + _hd16850_ + (cons _L16896_ _body16851_))))) + (if (gx#identifier? ___stx3939439395_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42820_| - ___stx3946039461_) - (___kont3946339464_) + |gerbil/core$$[1]#_g43004_| + ___stx3939439395_) + (___kont3939739398_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42819_| - ___stx3946039461_) - (___kont3946539466_) - (___kont3946739468_))) - (___kont3946739468_)))))) - (___kont3948539486_ + |gerbil/core$$[1]#_g43003_| + ___stx3939439395_) + (___kont3939939400_) + (___kont3940139402_))) + (___kont3940139402_)))))) + (___kont3941939420_ (lambda () - (values (reverse _hd16769_) - (reverse _body16770_) + (values (reverse _hd16850_) + (reverse _body16851_) '#f)))) - (if (gx#stx-pair? ___stx3948039481_) - (let ((_e1677916803_ - (gx#syntax-e ___stx3948039481_))) - (let ((_tl1677716810_ + (if (gx#stx-pair? ___stx3941439415_) + (let ((_e1686016884_ + (gx#syntax-e ___stx3941439415_))) + (let ((_tl1685816891_ (let () (declare (not safe)) - (##cdr _e1677916803_))) - (_hd1677816807_ + (##cdr _e1686016884_))) + (_hd1685916888_ (let () (declare (not safe)) - (##car _e1677916803_)))) - (___kont3948339484_ - _tl1677716810_ - _hd1677816807_))) - (___kont3948539486_)))))))) - (let* ((_g1664516656_ - (lambda (_g1664616652_) + (##car _e1686016884_)))) + (___kont3941739418_ + _tl1685816891_ + _hd1685916888_))) + (___kont3941939420_)))))))) + (let* ((_g1672616737_ + (lambda (_g1672716733_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1664616652_))) - (_g1664416757_ - (lambda (_g1664616660_) - (if (gx#stx-pair? _g1664616660_) - (let ((_e1665016663_ (gx#syntax-e _g1664616660_))) - (let ((_hd1664916667_ + _g1672716733_))) + (_g1672516838_ + (lambda (_g1672716741_) + (if (gx#stx-pair? _g1672716741_) + (let ((_e1673116744_ (gx#syntax-e _g1672716741_))) + (let ((_hd1673016748_ (let () (declare (not safe)) - (##car _e1665016663_))) - (_tl1664816670_ + (##car _e1673116744_))) + (_tl1672916751_ (let () (declare (not safe)) - (##cdr _e1665016663_)))) - ((lambda (_L16673_) - (if (and (gx#stx-list? _L16673_) - (not (gx#stx-null? _L16673_))) - (let ((_g42821_ (_generate16642_ _L16673_))) + (##cdr _e1673116744_)))) + ((lambda (_L16754_) + (if (and (gx#stx-list? _L16754_) + (not (gx#stx-null? _L16754_))) + (let ((_g43005_ (_generate16723_ _L16754_))) (begin - (let ((_g42822_ + (let ((_g43006_ (let () (declare (not safe)) - (if (##values? _g42821_) - (##vector-length _g42821_) + (if (##values? _g43005_) + (##vector-length _g43005_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42822_ 3))) + (##fx= _g43006_ 3))) (error "Context expects 3 values" - _g42822_))) - (let ((_hd16686_ + _g43006_))) + (let ((_hd16767_ (let () (declare (not safe)) - (##vector-ref _g42821_ 0))) - (_body16688_ + (##vector-ref _g43005_ 0))) + (_body16769_ (let () (declare (not safe)) - (##vector-ref _g42821_ 1))) - (_tail?16689_ + (##vector-ref _g43005_ 1))) + (_tail?16770_ (let () (declare (not safe)) - (##vector-ref _g42821_ 2)))) - (let* ((_g1669116699_ - (lambda (_g1669216695_) + (##vector-ref _g43005_ 2)))) + (let* ((_g1677216780_ + (lambda (_g1677316776_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1669216695_))) - (_g1669016753_ - (lambda (_g1669216703_) - ((lambda (_L16706_) + _g1677316776_))) + (_g1677116834_ + (lambda (_g1677316784_) + ((lambda (_L16787_) (let () - (let* ((_g1671916727_ - (lambda (_g1672016723_) + (let* ((_g1680016808_ + (lambda (_g1680116804_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1672016723_))) - (_g1671816749_ - (lambda (_g1672016731_) - ((lambda (_L16734_) + _g1680116804_))) + (_g1679916830_ + (lambda (_g1680116812_) + ((lambda (_L16815_) (let () (let () - (if _tail?16689_ + (if _tail?16770_ (cons (gx#datum->syntax '#f 'lambda%) - (cons _L16706_ + (cons _L16787_ (cons (cons (gx#datum->syntax '#f 'apply) - _L16734_) + _L16815_) '()))) (cons (gx#datum->syntax '#f 'lambda%) - (cons _L16706_ - (cons _L16734_ '()))))))) - _g1672016731_)))) - (_g1671816749_ _body16688_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1669216703_)))) - (_g1669016753_ _hd16686_))))) - (_g1664516656_ _g1664616660_))) - _tl1664816670_))) - (_g1664516656_ _g1664616660_))))) - (_g1664416757_ _stx16639_))))) + (cons _L16787_ + (cons _L16815_ '()))))))) + _g1680116812_)))) + (_g1679916830_ _body16769_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1677316784_)))) + (_g1677116834_ _hd16767_))))) + (_g1672616737_ _g1672716741_))) + _tl1672916751_))) + (_g1672616737_ _g1672716741_))))) + (_g1672516838_ _stx16720_))))) (define |gerbil/core$$[:0:]#<>| - (lambda (_$stx16887_) - (let ((_g1689016897_ - (lambda (_g1689116893_) + (lambda (_$stx16968_) + (let ((_g1697116978_ + (lambda (_g1697216974_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1689116893_)))) - (_g1689016897_ _$stx16887_)))) + _g1697216974_)))) + (_g1697116978_ _$stx16968_)))) (define |gerbil/core$$[:0:]#<...>| - (lambda (_$stx16901_) - (let ((_g1690416911_ - (lambda (_g1690516907_) + (lambda (_$stx16982_) + (let ((_g1698516992_ + (lambda (_g1698616988_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1690516907_)))) - (_g1690416911_ _$stx16901_)))))) + _g1698616988_)))) + (_g1698516992_ _$stx16982_)))))) diff --git a/src/bootstrap/gerbil/core__5.scm b/src/bootstrap/gerbil/core__5.scm index 8ea857624..2e884be33 100644 --- a/src/bootstrap/gerbil/core__5.scm +++ b/src/bootstrap/gerbil/core__5.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g42829_| + (define |gerbil/core$$[1]#_g42671_| (##structure gx#syntax-quote::t 'quote @@ -9,574 +9,574 @@ '())) (begin (define |gerbil/core$$[:0:]#defsyntax| - (lambda (_$stx16916_) - (let* ((___stx3949639497_ _$stx16916_) - (_g1692116960_ + (lambda (_$stx16997_) + (let* ((___stx3943039431_ _$stx16997_) + (_g1700217041_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3949639497_)))) - (let ((___kont3949939500_ - (lambda (_L17083_ _L17085_ _L17086_) + ___stx3943039431_)))) + (let ((___kont3943339434_ + (lambda (_L17164_ _L17166_ _L17167_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _L17086_ + (cons _L17167_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _L17085_ - (foldr (lambda (_g1710517108_ + (cons _L17166_ + (foldr (lambda (_g1718617189_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1710617111_) - (cons _g1710517108_ _g1710617111_)) + _g1718717192_) + (cons _g1718617189_ _g1718717192_)) '() - _L17083_))) + _L17164_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3950339504_ - (lambda (_L16997_ _L16999_) + (___kont3943739438_ + (lambda (_L17078_ _L17080_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _L16999_ (cons _L16997_ '())))))) - (let* ((___match3955139552_ - (lambda (_e1694816967_ - _hd1694716971_ - _tl1694616974_ - _e1695116977_ - _hd1695016981_ - _tl1694916984_ - _e1695416987_ - _hd1695316991_ - _tl1695216994_) - (let ((_L16997_ _hd1695316991_) - (_L16999_ _hd1695016981_)) - (if (gx#identifier? _L16999_) - (___kont3950339504_ _L16997_ _L16999_) - (let () (declare (not safe)) (_g1692116960_)))))) - (___match3954339544_ - (lambda (_e1694816967_ - _hd1694716971_ - _tl1694616974_ - _e1695116977_ - _hd1695016981_ - _tl1694916984_) - (if (gx#stx-pair? _tl1694916984_) - (let ((_e1695416987_ (gx#syntax-e _tl1694916984_))) - (let ((_tl1695216994_ + (cons _L17080_ (cons _L17078_ '())))))) + (let* ((___match3948539486_ + (lambda (_e1702917048_ + _hd1702817052_ + _tl1702717055_ + _e1703217058_ + _hd1703117062_ + _tl1703017065_ + _e1703517068_ + _hd1703417072_ + _tl1703317075_) + (let ((_L17078_ _hd1703417072_) + (_L17080_ _hd1703117062_)) + (if (gx#identifier? _L17080_) + (___kont3943739438_ _L17078_ _L17080_) + (let () (declare (not safe)) (_g1700217041_)))))) + (___match3947739478_ + (lambda (_e1702917048_ + _hd1702817052_ + _tl1702717055_ + _e1703217058_ + _hd1703117062_ + _tl1703017065_) + (if (gx#stx-pair? _tl1703017065_) + (let ((_e1703517068_ (gx#syntax-e _tl1703017065_))) + (let ((_tl1703317075_ (let () (declare (not safe)) - (##cdr _e1695416987_))) - (_hd1695316991_ + (##cdr _e1703517068_))) + (_hd1703417072_ (let () (declare (not safe)) - (##car _e1695416987_)))) - (if (gx#stx-null? _tl1695216994_) - (___match3955139552_ - _e1694816967_ - _hd1694716971_ - _tl1694616974_ - _e1695116977_ - _hd1695016981_ - _tl1694916984_ - _e1695416987_ - _hd1695316991_ - _tl1695216994_) + (##car _e1703517068_)))) + (if (gx#stx-null? _tl1703317075_) + (___match3948539486_ + _e1702917048_ + _hd1702817052_ + _tl1702717055_ + _e1703217058_ + _hd1703117062_ + _tl1703017065_ + _e1703517068_ + _hd1703417072_ + _tl1703317075_) (let () (declare (not safe)) - (_g1692116960_))))) - (let () (declare (not safe)) (_g1692116960_))))) - (___match3953139532_ - (lambda (_e1692817023_ - _hd1692717027_ - _tl1692617030_ - _e1693117033_ - _hd1693017037_ - _tl1692917040_ - _e1693417043_ - _hd1693317047_ - _tl1693217050_ - ___splice3950139502_ - _target1693517053_ - _tl1693717056_) - (letrec ((_loop1693817059_ - (lambda (_hd1693617063_ _body1694217066_) - (if (gx#stx-pair? _hd1693617063_) - (let ((_e1693917069_ - (gx#syntax-e _hd1693617063_))) - (let ((_lp-tl1694117076_ + (_g1700217041_))))) + (let () (declare (not safe)) (_g1700217041_))))) + (___match3946539466_ + (lambda (_e1700917104_ + _hd1700817108_ + _tl1700717111_ + _e1701217114_ + _hd1701117118_ + _tl1701017121_ + _e1701517124_ + _hd1701417128_ + _tl1701317131_ + ___splice3943539436_ + _target1701617134_ + _tl1701817137_) + (letrec ((_loop1701917140_ + (lambda (_hd1701717144_ _body1702317147_) + (if (gx#stx-pair? _hd1701717144_) + (let ((_e1702017150_ + (gx#syntax-e _hd1701717144_))) + (let ((_lp-tl1702217157_ (let () (declare (not safe)) - (##cdr _e1693917069_))) - (_lp-hd1694017073_ + (##cdr _e1702017150_))) + (_lp-hd1702117154_ (let () (declare (not safe)) - (##car _e1693917069_)))) - (_loop1693817059_ - _lp-tl1694117076_ - (cons _lp-hd1694017073_ - _body1694217066_)))) - (let ((_body1694317079_ - (reverse _body1694217066_))) - (let ((_L17083_ _body1694317079_) - (_L17085_ _tl1693217050_) - (_L17086_ _hd1693317047_)) - (if (gx#identifier? _L17086_) - (___kont3949939500_ - _L17083_ - _L17085_ - _L17086_) - (___match3954339544_ - _e1692817023_ - _hd1692717027_ - _tl1692617030_ - _e1693117033_ - _hd1693017037_ - _tl1692917040_)))))))) - (_loop1693817059_ _target1693517053_ '()))))) - (if (gx#stx-pair? ___stx3949639497_) - (let ((_e1692817023_ (gx#syntax-e ___stx3949639497_))) - (let ((_tl1692617030_ - (let () (declare (not safe)) (##cdr _e1692817023_))) - (_hd1692717027_ + (##car _e1702017150_)))) + (_loop1701917140_ + _lp-tl1702217157_ + (cons _lp-hd1702117154_ + _body1702317147_)))) + (let ((_body1702417160_ + (reverse _body1702317147_))) + (let ((_L17164_ _body1702417160_) + (_L17166_ _tl1701317131_) + (_L17167_ _hd1701417128_)) + (if (gx#identifier? _L17167_) + (___kont3943339434_ + _L17164_ + _L17166_ + _L17167_) + (___match3947739478_ + _e1700917104_ + _hd1700817108_ + _tl1700717111_ + _e1701217114_ + _hd1701117118_ + _tl1701017121_)))))))) + (_loop1701917140_ _target1701617134_ '()))))) + (if (gx#stx-pair? ___stx3943039431_) + (let ((_e1700917104_ (gx#syntax-e ___stx3943039431_))) + (let ((_tl1700717111_ + (let () (declare (not safe)) (##cdr _e1700917104_))) + (_hd1700817108_ (let () (declare (not safe)) - (##car _e1692817023_)))) - (if (gx#stx-pair? _tl1692617030_) - (let ((_e1693117033_ (gx#syntax-e _tl1692617030_))) - (let ((_tl1692917040_ + (##car _e1700917104_)))) + (if (gx#stx-pair? _tl1700717111_) + (let ((_e1701217114_ (gx#syntax-e _tl1700717111_))) + (let ((_tl1701017121_ (let () (declare (not safe)) - (##cdr _e1693117033_))) - (_hd1693017037_ + (##cdr _e1701217114_))) + (_hd1701117118_ (let () (declare (not safe)) - (##car _e1693117033_)))) - (if (gx#stx-pair? _hd1693017037_) - (let ((_e1693417043_ - (gx#syntax-e _hd1693017037_))) - (let ((_tl1693217050_ + (##car _e1701217114_)))) + (if (gx#stx-pair? _hd1701117118_) + (let ((_e1701517124_ + (gx#syntax-e _hd1701117118_))) + (let ((_tl1701317131_ (let () (declare (not safe)) - (##cdr _e1693417043_))) - (_hd1693317047_ + (##cdr _e1701517124_))) + (_hd1701417128_ (let () (declare (not safe)) - (##car _e1693417043_)))) - (if (gx#stx-pair/null? _tl1692917040_) - (let ((___splice3950139502_ + (##car _e1701517124_)))) + (if (gx#stx-pair/null? _tl1701017121_) + (let ((___splice3943539436_ (gx#syntax-split-splice - _tl1692917040_ + _tl1701017121_ '0))) - (let ((_tl1693717056_ + (let ((_tl1701817137_ (let () (declare (not safe)) (##vector-ref - ___splice3950139502_ + ___splice3943539436_ '1))) - (_target1693517053_ + (_target1701617134_ (let () (declare (not safe)) (##vector-ref - ___splice3950139502_ + ___splice3943539436_ '0)))) - (if (gx#stx-null? _tl1693717056_) - (___match3953139532_ - _e1692817023_ - _hd1692717027_ - _tl1692617030_ - _e1693117033_ - _hd1693017037_ - _tl1692917040_ - _e1693417043_ - _hd1693317047_ - _tl1693217050_ - ___splice3950139502_ - _target1693517053_ - _tl1693717056_) + (if (gx#stx-null? _tl1701817137_) + (___match3946539466_ + _e1700917104_ + _hd1700817108_ + _tl1700717111_ + _e1701217114_ + _hd1701117118_ + _tl1701017121_ + _e1701517124_ + _hd1701417128_ + _tl1701317131_ + ___splice3943539436_ + _target1701617134_ + _tl1701817137_) (if (gx#stx-pair? - _tl1692917040_) - (let ((_e1695416987_ + _tl1701017121_) + (let ((_e1703517068_ (gx#syntax-e - _tl1692917040_))) - (let ((_tl1695216994_ + _tl1701017121_))) + (let ((_tl1703317075_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e1695416987_))) - (_hd1695316991_ - (let () (declare (not safe)) (##car _e1695416987_)))) - (if (gx#stx-null? _tl1695216994_) - (___match3955139552_ - _e1692817023_ - _hd1692717027_ - _tl1692617030_ - _e1693117033_ - _hd1693017037_ - _tl1692917040_ - _e1695416987_ - _hd1695316991_ - _tl1695216994_) - (let () (declare (not safe)) (_g1692116960_))))) - (let () (declare (not safe)) (_g1692116960_)))))) + (##cdr _e1703517068_))) + (_hd1703417072_ + (let () (declare (not safe)) (##car _e1703517068_)))) + (if (gx#stx-null? _tl1703317075_) + (___match3948539486_ + _e1700917104_ + _hd1700817108_ + _tl1700717111_ + _e1701217114_ + _hd1701117118_ + _tl1701017121_ + _e1703517068_ + _hd1703417072_ + _tl1703317075_) + (let () (declare (not safe)) (_g1700217041_))))) + (let () (declare (not safe)) (_g1700217041_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl1692917040_) - (let ((_e1695416987_ + (if (gx#stx-pair? _tl1701017121_) + (let ((_e1703517068_ (gx#syntax-e - _tl1692917040_))) - (let ((_tl1695216994_ + _tl1701017121_))) + (let ((_tl1703317075_ (let () (declare (not safe)) - (##cdr _e1695416987_))) - (_hd1695316991_ + (##cdr _e1703517068_))) + (_hd1703417072_ (let () (declare (not safe)) - (##car _e1695416987_)))) + (##car _e1703517068_)))) (if (gx#stx-null? - _tl1695216994_) - (___match3955139552_ - _e1692817023_ - _hd1692717027_ - _tl1692617030_ - _e1693117033_ - _hd1693017037_ - _tl1692917040_ - _e1695416987_ - _hd1695316991_ - _tl1695216994_) + _tl1703317075_) + (___match3948539486_ + _e1700917104_ + _hd1700817108_ + _tl1700717111_ + _e1701217114_ + _hd1701117118_ + _tl1701017121_ + _e1703517068_ + _hd1703417072_ + _tl1703317075_) (let () (declare (not safe)) - (_g1692116960_))))) + (_g1700217041_))))) (let () (declare (not safe)) - (_g1692116960_)))))) - (if (gx#stx-pair? _tl1692917040_) - (let ((_e1695416987_ - (gx#syntax-e _tl1692917040_))) - (let ((_tl1695216994_ + (_g1700217041_)))))) + (if (gx#stx-pair? _tl1701017121_) + (let ((_e1703517068_ + (gx#syntax-e _tl1701017121_))) + (let ((_tl1703317075_ (let () (declare (not safe)) - (##cdr _e1695416987_))) - (_hd1695316991_ + (##cdr _e1703517068_))) + (_hd1703417072_ (let () (declare (not safe)) - (##car _e1695416987_)))) - (if (gx#stx-null? _tl1695216994_) - (___match3955139552_ - _e1692817023_ - _hd1692717027_ - _tl1692617030_ - _e1693117033_ - _hd1693017037_ - _tl1692917040_ - _e1695416987_ - _hd1695316991_ - _tl1695216994_) + (##car _e1703517068_)))) + (if (gx#stx-null? _tl1703317075_) + (___match3948539486_ + _e1700917104_ + _hd1700817108_ + _tl1700717111_ + _e1701217114_ + _hd1701117118_ + _tl1701017121_ + _e1703517068_ + _hd1703417072_ + _tl1703317075_) (let () (declare (not safe)) - (_g1692116960_))))) + (_g1700217041_))))) (let () (declare (not safe)) - (_g1692116960_)))))) - (let () (declare (not safe)) (_g1692116960_))))) - (let () (declare (not safe)) (_g1692116960_)))))))) + (_g1700217041_)))))) + (let () (declare (not safe)) (_g1700217041_))))) + (let () (declare (not safe)) (_g1700217041_)))))))) (define |gerbil/core$$[:0:]#definline| - (lambda (_stx17119_) - (let* ((_g1712217159_ - (lambda (_g1712317155_) + (lambda (_stx17200_) + (let* ((_g1720317240_ + (lambda (_g1720417236_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1712317155_))) - (_g1712117520_ - (lambda (_g1712317163_) - (if (gx#stx-pair? _g1712317163_) - (let ((_e1712917166_ (gx#syntax-e _g1712317163_))) - (let ((_hd1712817170_ + _g1720417236_))) + (_g1720217601_ + (lambda (_g1720417244_) + (if (gx#stx-pair? _g1720417244_) + (let ((_e1721017247_ (gx#syntax-e _g1720417244_))) + (let ((_hd1720917251_ (let () (declare (not safe)) - (##car _e1712917166_))) - (_tl1712717173_ + (##car _e1721017247_))) + (_tl1720817254_ (let () (declare (not safe)) - (##cdr _e1712917166_)))) - (if (gx#stx-pair? _tl1712717173_) - (let ((_e1713217176_ - (gx#syntax-e _tl1712717173_))) - (let ((_hd1713117180_ + (##cdr _e1721017247_)))) + (if (gx#stx-pair? _tl1720817254_) + (let ((_e1721317257_ + (gx#syntax-e _tl1720817254_))) + (let ((_hd1721217261_ (let () (declare (not safe)) - (##car _e1713217176_))) - (_tl1713017183_ + (##car _e1721317257_))) + (_tl1721117264_ (let () (declare (not safe)) - (##cdr _e1713217176_)))) - (if (gx#stx-pair? _hd1713117180_) - (let ((_e1713517186_ - (gx#syntax-e _hd1713117180_))) - (let ((_hd1713417190_ + (##cdr _e1721317257_)))) + (if (gx#stx-pair? _hd1721217261_) + (let ((_e1721617267_ + (gx#syntax-e _hd1721217261_))) + (let ((_hd1721517271_ (let () (declare (not safe)) - (##car _e1713517186_))) - (_tl1713317193_ + (##car _e1721617267_))) + (_tl1721417274_ (let () (declare (not safe)) - (##cdr _e1713517186_)))) + (##cdr _e1721617267_)))) (if (gx#stx-pair/null? - _tl1713317193_) - (let ((_g42823_ + _tl1721417274_) + (let ((_g42665_ (gx#syntax-split-splice - _tl1713317193_ + _tl1721417274_ '0))) (begin - (let ((_g42824_ + (let ((_g42666_ (let () (declare (not safe)) (if (##values? - _g42823_) + _g42665_) (##vector-length - _g42823_) + _g42665_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42824_ 2))) - (error "Context expects 2 values" _g42824_))) + (##fx= _g42666_ 2))) + (error "Context expects 2 values" _g42666_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1713617196_ + (let ((_target1721717277_ (let () (declare (not safe)) (##vector-ref - _g42823_ + _g42665_ 0))) - (_tl1713817199_ + (_tl1721917280_ (let () (declare (not safe)) (##vector-ref - _g42823_ + _g42665_ 1)))) (if (gx#stx-null? - _tl1713817199_) - (letrec ((_loop1713917202_ + _tl1721917280_) + (letrec ((_loop1722017283_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1713717206_ _arg1714317209_) - (if (gx#stx-pair? _hd1713717206_) - (let ((_e1714017212_ - (gx#syntax-e _hd1713717206_))) - (let ((_lp-hd1714117216_ + (lambda (_hd1721817287_ _arg1722417290_) + (if (gx#stx-pair? _hd1721817287_) + (let ((_e1722117293_ + (gx#syntax-e _hd1721817287_))) + (let ((_lp-hd1722217297_ (let () (declare (not safe)) - (##car _e1714017212_))) - (_lp-tl1714217219_ + (##car _e1722117293_))) + (_lp-tl1722317300_ (let () (declare (not safe)) - (##cdr _e1714017212_)))) - (_loop1713917202_ - _lp-tl1714217219_ - (cons _lp-hd1714117216_ - _arg1714317209_)))) - (let ((_arg1714417222_ - (reverse _arg1714317209_))) - (if (gx#stx-pair/null? _tl1713017183_) - (let ((_g42825_ + (##cdr _e1722117293_)))) + (_loop1722017283_ + _lp-tl1722317300_ + (cons _lp-hd1722217297_ + _arg1722417290_)))) + (let ((_arg1722517303_ + (reverse _arg1722417290_))) + (if (gx#stx-pair/null? _tl1721117264_) + (let ((_g42667_ (gx#syntax-split-splice - _tl1713017183_ + _tl1721117264_ '0))) (begin - (let ((_g42826_ + (let ((_g42668_ (let () (declare (not safe)) - (if (##values? _g42825_) + (if (##values? _g42667_) (##vector-length - _g42825_) + _g42667_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42826_ 2))) + (##fx= _g42668_ 2))) (error "Context expects 2 values" - _g42826_))) - (let ((_target1714517226_ + _g42668_))) + (let ((_target1722617307_ (let () (declare (not safe)) - (##vector-ref _g42825_ 0))) - (_tl1714717229_ + (##vector-ref _g42667_ 0))) + (_tl1722817310_ (let () (declare (not safe)) - (##vector-ref _g42825_ 1)))) - (if (gx#stx-null? _tl1714717229_) - (letrec ((_loop1714817232_ - (lambda (_hd1714617236_ + (##vector-ref _g42667_ 1)))) + (if (gx#stx-null? _tl1722817310_) + (letrec ((_loop1722917313_ + (lambda (_hd1722717317_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body1715217239_) - (if (gx#stx-pair? _hd1714617236_) - (let ((_e1714917242_ (gx#syntax-e _hd1714617236_))) - (let ((_lp-hd1715017246_ + _body1723317320_) + (if (gx#stx-pair? _hd1722717317_) + (let ((_e1723017323_ (gx#syntax-e _hd1722717317_))) + (let ((_lp-hd1723117327_ (let () (declare (not safe)) - (##car _e1714917242_))) - (_lp-tl1715117249_ + (##car _e1723017323_))) + (_lp-tl1723217330_ (let () (declare (not safe)) - (##cdr _e1714917242_)))) - (_loop1714817232_ - _lp-tl1715117249_ - (cons _lp-hd1715017246_ _body1715217239_)))) - (let ((_body1715317252_ (reverse _body1715217239_))) - ((lambda (_L17256_ _L17258_ _L17259_) - (if (and (gx#identifier? _L17259_) + (##cdr _e1723017323_)))) + (_loop1722917313_ + _lp-tl1723217330_ + (cons _lp-hd1723117327_ _body1723317320_)))) + (let ((_body1723417333_ (reverse _body1723317320_))) + ((lambda (_L17337_ _L17339_ _L17340_) + (if (and (gx#identifier? _L17340_) (gx#identifier-list? - (foldr (lambda (_g1728317286_ - _g1728417289_) - (cons _g1728317286_ - _g1728417289_)) + (foldr (lambda (_g1736417367_ + _g1736517370_) + (cons _g1736417367_ + _g1736517370_)) '() - _L17258_))) - (let* ((_g1729217300_ - (lambda (_g1729317296_) + _L17339_))) + (let* ((_g1737317381_ + (lambda (_g1737417377_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1729317296_))) - (_g1729117516_ - (lambda (_g1729317304_) - ((lambda (_L17307_) + _g1737417377_))) + (_g1737217597_ + (lambda (_g1737417385_) + ((lambda (_L17388_) (let () - (let* ((_g1731917336_ - (lambda (_g1732017332_) + (let* ((_g1740017417_ + (lambda (_g1740117413_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1732017332_))) - (_g1731817504_ - (lambda (_g1732017340_) + _g1740117413_))) + (_g1739917585_ + (lambda (_g1740117421_) (if (gx#stx-pair/null? - _g1732017340_) - (let ((_g42827_ + _g1740117421_) + (let ((_g42669_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _g1732017340_ '0))) + (gx#syntax-split-splice _g1740117421_ '0))) (begin - (let ((_g42828_ + (let ((_g42670_ (let () (declare (not safe)) - (if (##values? _g42827_) - (##vector-length _g42827_) + (if (##values? _g42669_) + (##vector-length _g42669_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42828_ 2))) - (error "Context expects 2 values" _g42828_))) - (let ((_target1732217343_ + (##fx= _g42670_ 2))) + (error "Context expects 2 values" _g42670_))) + (let ((_target1740317424_ (let () (declare (not safe)) - (##vector-ref _g42827_ 0))) - (_tl1732417346_ + (##vector-ref _g42669_ 0))) + (_tl1740517427_ (let () (declare (not safe)) - (##vector-ref _g42827_ 1)))) - (if (gx#stx-null? _tl1732417346_) - (letrec ((_loop1732517349_ - (lambda (_hd1732317353_ - _xarg1732917356_) - (if (gx#stx-pair? _hd1732317353_) - (let ((_e1732617359_ + (##vector-ref _g42669_ 1)))) + (if (gx#stx-null? _tl1740517427_) + (letrec ((_loop1740617430_ + (lambda (_hd1740417434_ + _xarg1741017437_) + (if (gx#stx-pair? _hd1740417434_) + (let ((_e1740717440_ (gx#syntax-e - _hd1732317353_))) - (let ((_lp-hd1732717363_ + _hd1740417434_))) + (let ((_lp-hd1740817444_ (let () (declare (not safe)) - (##car _e1732617359_))) - (_lp-tl1732817366_ + (##car _e1740717440_))) + (_lp-tl1740917447_ (let () (declare (not safe)) - (##cdr _e1732617359_)))) - (_loop1732517349_ - _lp-tl1732817366_ - (cons _lp-hd1732717363_ - _xarg1732917356_)))) - (let ((_xarg1733017369_ - (reverse _xarg1732917356_))) - ((lambda (_L17373_) + (##cdr _e1740717440_)))) + (_loop1740617430_ + _lp-tl1740917447_ + (cons _lp-hd1740817444_ + _xarg1741017437_)))) + (let ((_xarg1741117450_ + (reverse _xarg1741017437_))) + ((lambda (_L17454_) (let () - (let* ((_g1739017398_ - (lambda (_g1739117394_) + (let* ((_g1747117479_ + (lambda (_g1747217475_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1739117394_))) - (_g1738917468_ - (lambda (_g1739117402_) - ((lambda (_L17405_) + _g1747217475_))) + (_g1747017549_ + (lambda (_g1747217483_) + ((lambda (_L17486_) (let () - (let* ((_g1741817426_ - (lambda (_g1741917422_) + (let* ((_g1749917507_ + (lambda (_g1750017503_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1741917422_))) - (_g1741717448_ - (lambda (_g1741917430_) - ((lambda (_L17433_) + _g1750017503_))) + (_g1749817529_ + (lambda (_g1750017511_) + ((lambda (_L17514_) (let () (let () (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'begin) - (cons _L17433_ - (cons _L17405_ + (cons _L17514_ + (cons _L17486_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx17119_))))) - _g1741917430_)))) - (_g1741717448_ + (gx#stx-source _stx17200_))))) + _g1750017511_)))) + (_g1749817529_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _L17307_ - (foldr (lambda (_g1745317456_ + (cons (cons _L17388_ + (foldr (lambda (_g1753417537_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1745417459_) - (cons _g1745317456_ _g1745417459_)) + _g1753517540_) + (cons _g1753417537_ _g1753517540_)) '() - _L17258_)) + _L17339_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_g1745117462_ - _g1745217465_) - (cons _g1745117462_ - _g1745217465_)) + (foldr (lambda (_g1753217543_ + _g1753317546_) + (cons _g1753217543_ + _g1753317546_)) '() - _L17256_))) - (gx#stx-source _stx17119_)))))) - _g1739117402_)))) - (_g1738917468_ + _L17337_))) + (gx#stx-source _stx17200_)))))) + _g1747217483_)))) + (_g1747017549_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'defrules) - (cons _L17259_ + (cons _L17340_ (cons '() (cons (cons (cons (gx#datum->syntax '#f '_) - (foldr (lambda (_g1747717480_ + (foldr (lambda (_g1755817561_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1747817483_) - (cons _g1747717480_ _g1747817483_)) + _g1755917564_) + (cons _g1755817561_ _g1755917564_)) '() - _L17373_)) + _L17454_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons (foldr (lambda (_g1747517486_ _g1747617489_) - (cons _g1747517486_ _g1747617489_)) + (cons (foldr (lambda (_g1755617567_ _g1755717570_) + (cons _g1755617567_ _g1755717570_)) '() - _L17258_) - (foldr (lambda (_g1747317492_ _g1747417495_) - (cons _g1747317492_ _g1747417495_)) + _L17339_) + (foldr (lambda (_g1755417573_ _g1755517576_) + (cons _g1755417573_ _g1755517576_)) '() - _L17256_))) - (foldr (lambda (_g1747117498_ _g1747217501_) - (cons _g1747117498_ _g1747217501_)) + _L17337_))) + (foldr (lambda (_g1755217579_ _g1755317582_) + (cons _g1755217579_ _g1755317582_)) '() - _L17373_)) + _L17454_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -589,63 +589,63 @@ (cons (cons (gx#datum->syntax '#f 'syntax) (cons (gx#datum->syntax '#f 'ref) '())) '())) - (cons _L17307_ '()))) + (cons _L17388_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (gx#stx-source _stx17119_)))))) + (gx#stx-source _stx17200_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _xarg1733017369_)))))) - (_loop1732517349_ _target1732217343_ '())) - (_g1731917336_ _g1732017340_))))) - (_g1731917336_ _g1732017340_))))) + _xarg1741117450_)))))) + (_loop1740617430_ _target1740317424_ '())) + (_g1740017417_ _g1740117421_))))) + (_g1740017417_ _g1740117421_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1731817504_ + (_g1739917585_ (gx#gentemps - (foldr (lambda (_g1750717510_ + (foldr (lambda (_g1758817591_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1750817513_) - (cons _g1750717510_ _g1750817513_)) + _g1758917594_) + (cons _g1758817591_ _g1758917594_)) '() - _L17258_)))))) + _L17339_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1729317304_)))) - (_g1729117516_ + _g1737417385_)))) + (_g1737217597_ (gx#stx-identifier - _L17259_ - _L17259_ + _L17340_ + _L17340_ '"__impl"))) - (_g1712217159_ _g1712317163_))) - _body1715317252_ - _arg1714417222_ - _hd1713417190_)))))) + (_g1720317240_ _g1720417244_))) + _body1723417333_ + _arg1722517303_ + _hd1721517271_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1714817232_ - _target1714517226_ + (_loop1722917313_ + _target1722617307_ '())) - (_g1712217159_ - _g1712317163_))))) - (_g1712217159_ _g1712317163_))))))) - (_loop1713917202_ _target1713617196_ '())) - (_g1712217159_ _g1712317163_))))) + (_g1720317240_ + _g1720417244_))))) + (_g1720317240_ _g1720417244_))))))) + (_loop1722017283_ _target1721717277_ '())) + (_g1720317240_ _g1720417244_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1712217159_ _g1712317163_)))) - (_g1712217159_ _g1712317163_)))) - (_g1712217159_ _g1712317163_)))) - (_g1712217159_ _g1712317163_))))) - (_g1712117520_ _stx17119_)))) + (_g1720317240_ _g1720417244_)))) + (_g1720317240_ _g1720417244_)))) + (_g1720317240_ _g1720417244_)))) + (_g1720317240_ _g1720417244_))))) + (_g1720217601_ _stx17200_)))) (define |gerbil/core$$[:0:]#defconst| - (lambda (_$stx17527_) - (let* ((___stx3955439555_ _$stx17527_) - (_g1753217568_ + (lambda (_$stx17608_) + (let* ((___stx3948839489_ _$stx17608_) + (_g1761317649_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3955439555_)))) - (let ((___kont3955739558_ - (lambda (_L17682_ _L17684_) + ___stx3948839489_)))) + (let ((___kont3949139492_ + (lambda (_L17763_ _L17765_) (cons (gx#datum->syntax '#f 'defrules) - (cons _L17684_ + (cons _L17765_ (cons '() (cons (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax @@ -657,207 +657,207 @@ 'syntax) (cons (gx#datum->syntax '#f 'x) '())) '())) - (cons (cons (gx#datum->syntax '#f 'quote) (cons _L17682_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) (cons _L17763_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (___kont3955939560_ - (lambda (_L17605_ _L17607_ _L17608_) - (cons _L17608_ - (cons _L17607_ + (___kont3949339494_ + (lambda (_L17686_ _L17688_ _L17689_) + (cons _L17689_ + (cons _L17688_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L17605_ '())) + (cons _L17686_ '())) '())))))) - (let* ((___match3961939620_ - (lambda (_e1755617575_ - _hd1755517579_ - _tl1755417582_ - _e1755917585_ - _hd1755817589_ - _tl1755717592_ - _e1756217595_ - _hd1756117599_ - _tl1756017602_) - (let ((_L17605_ _hd1756117599_) - (_L17607_ _hd1755817589_) - (_L17608_ _hd1755517579_)) - (if (and (gx#identifier? _L17607_) - (gx#stx-datum? _L17605_)) - (___kont3955939560_ _L17605_ _L17607_ _L17608_) - (let () (declare (not safe)) (_g1753217568_)))))) - (___match3959939600_ - (lambda (_e1753817632_ - _hd1753717636_ - _tl1753617639_ - _e1754117642_ - _hd1754017646_ - _tl1753917649_ - _e1754417652_ - _hd1754317656_ - _tl1754217659_ - _e1754717662_ - _hd1754617666_ - _tl1754517669_ - _e1755017672_ - _hd1754917676_ - _tl1754817679_) - (let ((_L17682_ _hd1754917676_) - (_L17684_ _hd1754017646_)) - (if (gx#identifier? _L17684_) - (___kont3955739558_ _L17682_ _L17684_) - (___match3961939620_ - _e1753817632_ - _hd1753717636_ - _tl1753617639_ - _e1754117642_ - _hd1754017646_ - _tl1753917649_ - _e1754417652_ - _hd1754317656_ - _tl1754217659_)))))) - (if (gx#stx-pair? ___stx3955439555_) - (let ((_e1753817632_ (gx#syntax-e ___stx3955439555_))) - (let ((_tl1753617639_ - (let () (declare (not safe)) (##cdr _e1753817632_))) - (_hd1753717636_ + (let* ((___match3955339554_ + (lambda (_e1763717656_ + _hd1763617660_ + _tl1763517663_ + _e1764017666_ + _hd1763917670_ + _tl1763817673_ + _e1764317676_ + _hd1764217680_ + _tl1764117683_) + (let ((_L17686_ _hd1764217680_) + (_L17688_ _hd1763917670_) + (_L17689_ _hd1763617660_)) + (if (and (gx#identifier? _L17688_) + (gx#stx-datum? _L17686_)) + (___kont3949339494_ _L17686_ _L17688_ _L17689_) + (let () (declare (not safe)) (_g1761317649_)))))) + (___match3953339534_ + (lambda (_e1761917713_ + _hd1761817717_ + _tl1761717720_ + _e1762217723_ + _hd1762117727_ + _tl1762017730_ + _e1762517733_ + _hd1762417737_ + _tl1762317740_ + _e1762817743_ + _hd1762717747_ + _tl1762617750_ + _e1763117753_ + _hd1763017757_ + _tl1762917760_) + (let ((_L17763_ _hd1763017757_) + (_L17765_ _hd1762117727_)) + (if (gx#identifier? _L17765_) + (___kont3949139492_ _L17763_ _L17765_) + (___match3955339554_ + _e1761917713_ + _hd1761817717_ + _tl1761717720_ + _e1762217723_ + _hd1762117727_ + _tl1762017730_ + _e1762517733_ + _hd1762417737_ + _tl1762317740_)))))) + (if (gx#stx-pair? ___stx3948839489_) + (let ((_e1761917713_ (gx#syntax-e ___stx3948839489_))) + (let ((_tl1761717720_ + (let () (declare (not safe)) (##cdr _e1761917713_))) + (_hd1761817717_ (let () (declare (not safe)) - (##car _e1753817632_)))) - (if (gx#stx-pair? _tl1753617639_) - (let ((_e1754117642_ (gx#syntax-e _tl1753617639_))) - (let ((_tl1753917649_ + (##car _e1761917713_)))) + (if (gx#stx-pair? _tl1761717720_) + (let ((_e1762217723_ (gx#syntax-e _tl1761717720_))) + (let ((_tl1762017730_ (let () (declare (not safe)) - (##cdr _e1754117642_))) - (_hd1754017646_ + (##cdr _e1762217723_))) + (_hd1762117727_ (let () (declare (not safe)) - (##car _e1754117642_)))) - (if (gx#stx-pair? _tl1753917649_) - (let ((_e1754417652_ - (gx#syntax-e _tl1753917649_))) - (let ((_tl1754217659_ + (##car _e1762217723_)))) + (if (gx#stx-pair? _tl1762017730_) + (let ((_e1762517733_ + (gx#syntax-e _tl1762017730_))) + (let ((_tl1762317740_ (let () (declare (not safe)) - (##cdr _e1754417652_))) - (_hd1754317656_ + (##cdr _e1762517733_))) + (_hd1762417737_ (let () (declare (not safe)) - (##car _e1754417652_)))) - (if (gx#stx-pair? _hd1754317656_) - (let ((_e1754717662_ - (gx#syntax-e _hd1754317656_))) - (let ((_tl1754517669_ + (##car _e1762517733_)))) + (if (gx#stx-pair? _hd1762417737_) + (let ((_e1762817743_ + (gx#syntax-e _hd1762417737_))) + (let ((_tl1762617750_ (let () (declare (not safe)) - (##cdr _e1754717662_))) - (_hd1754617666_ + (##cdr _e1762817743_))) + (_hd1762717747_ (let () (declare (not safe)) - (##car _e1754717662_)))) + (##car _e1762817743_)))) (if (gx#identifier? - _hd1754617666_) + _hd1762717747_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42829_| - _hd1754617666_) + |gerbil/core$$[1]#_g42671_| + _hd1762717747_) (if (gx#stx-pair? - _tl1754517669_) - (let ((_e1755017672_ + _tl1762617750_) + (let ((_e1763117753_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1754517669_))) - (let ((_tl1754817679_ - (let () (declare (not safe)) (##cdr _e1755017672_))) - (_hd1754917676_ + (gx#syntax-e _tl1762617750_))) + (let ((_tl1762917760_ + (let () (declare (not safe)) (##cdr _e1763117753_))) + (_hd1763017757_ (let () (declare (not safe)) - (##car _e1755017672_)))) - (if (gx#stx-null? _tl1754817679_) - (if (gx#stx-null? _tl1754217659_) - (___match3959939600_ - _e1753817632_ - _hd1753717636_ - _tl1753617639_ - _e1754117642_ - _hd1754017646_ - _tl1753917649_ - _e1754417652_ - _hd1754317656_ - _tl1754217659_ - _e1754717662_ - _hd1754617666_ - _tl1754517669_ - _e1755017672_ - _hd1754917676_ - _tl1754817679_) - (let () (declare (not safe)) (_g1753217568_))) - (if (gx#stx-null? _tl1754217659_) - (___match3961939620_ - _e1753817632_ - _hd1753717636_ - _tl1753617639_ - _e1754117642_ - _hd1754017646_ - _tl1753917649_ - _e1754417652_ - _hd1754317656_ - _tl1754217659_) - (let () (declare (not safe)) (_g1753217568_)))))) - (if (gx#stx-null? _tl1754217659_) - (___match3961939620_ - _e1753817632_ - _hd1753717636_ - _tl1753617639_ - _e1754117642_ - _hd1754017646_ - _tl1753917649_ - _e1754417652_ - _hd1754317656_ - _tl1754217659_) - (let () (declare (not safe)) (_g1753217568_)))) - (if (gx#stx-null? _tl1754217659_) - (___match3961939620_ - _e1753817632_ - _hd1753717636_ - _tl1753617639_ - _e1754117642_ - _hd1754017646_ - _tl1753917649_ - _e1754417652_ - _hd1754317656_ - _tl1754217659_) - (let () (declare (not safe)) (_g1753217568_)))) + (##car _e1763117753_)))) + (if (gx#stx-null? _tl1762917760_) + (if (gx#stx-null? _tl1762317740_) + (___match3953339534_ + _e1761917713_ + _hd1761817717_ + _tl1761717720_ + _e1762217723_ + _hd1762117727_ + _tl1762017730_ + _e1762517733_ + _hd1762417737_ + _tl1762317740_ + _e1762817743_ + _hd1762717747_ + _tl1762617750_ + _e1763117753_ + _hd1763017757_ + _tl1762917760_) + (let () (declare (not safe)) (_g1761317649_))) + (if (gx#stx-null? _tl1762317740_) + (___match3955339554_ + _e1761917713_ + _hd1761817717_ + _tl1761717720_ + _e1762217723_ + _hd1762117727_ + _tl1762017730_ + _e1762517733_ + _hd1762417737_ + _tl1762317740_) + (let () (declare (not safe)) (_g1761317649_)))))) + (if (gx#stx-null? _tl1762317740_) + (___match3955339554_ + _e1761917713_ + _hd1761817717_ + _tl1761717720_ + _e1762217723_ + _hd1762117727_ + _tl1762017730_ + _e1762517733_ + _hd1762417737_ + _tl1762317740_) + (let () (declare (not safe)) (_g1761317649_)))) + (if (gx#stx-null? _tl1762317740_) + (___match3955339554_ + _e1761917713_ + _hd1761817717_ + _tl1761717720_ + _e1762217723_ + _hd1762117727_ + _tl1762017730_ + _e1762517733_ + _hd1762417737_ + _tl1762317740_) + (let () (declare (not safe)) (_g1761317649_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl1754217659_) - (___match3961939620_ - _e1753817632_ - _hd1753717636_ - _tl1753617639_ - _e1754117642_ - _hd1754017646_ - _tl1753917649_ - _e1754417652_ - _hd1754317656_ - _tl1754217659_) + _tl1762317740_) + (___match3955339554_ + _e1761917713_ + _hd1761817717_ + _tl1761717720_ + _e1762217723_ + _hd1762117727_ + _tl1762017730_ + _e1762517733_ + _hd1762417737_ + _tl1762317740_) (let () (declare (not safe)) - (_g1753217568_)))))) - (if (gx#stx-null? _tl1754217659_) - (___match3961939620_ - _e1753817632_ - _hd1753717636_ - _tl1753617639_ - _e1754117642_ - _hd1754017646_ - _tl1753917649_ - _e1754417652_ - _hd1754317656_ - _tl1754217659_) + (_g1761317649_)))))) + (if (gx#stx-null? _tl1762317740_) + (___match3955339554_ + _e1761917713_ + _hd1761817717_ + _tl1761717720_ + _e1762217723_ + _hd1762117727_ + _tl1762017730_ + _e1762517733_ + _hd1762417737_ + _tl1762317740_) (let () (declare (not safe)) - (_g1753217568_)))))) + (_g1761317649_)))))) (let () (declare (not safe)) - (_g1753217568_))))) - (let () (declare (not safe)) (_g1753217568_))))) - (let () (declare (not safe)) (_g1753217568_)))))))))) + (_g1761317649_))))) + (let () (declare (not safe)) (_g1761317649_))))) + (let () (declare (not safe)) (_g1761317649_)))))))))) diff --git a/src/bootstrap/gerbil/core__6.scm b/src/bootstrap/gerbil/core__6.scm index 478103f90..f4b9a8bb8 100644 --- a/src/bootstrap/gerbil/core__6.scm +++ b/src/bootstrap/gerbil/core__6.scm @@ -1,1407 +1,1308 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$$[1]#generate-typedef| - (lambda (_stx17709_ _struct?17711_) - (letrec ((_wrap17713_ - (lambda (_e-stx19314_) + (lambda (_stx17790_ _struct?17792_) + (letrec ((_wrap17794_ + (lambda (_e-stx19263_) (gx#stx-wrap-source - _e-stx19314_ - (gx#stx-source _stx17709_)))) - (_slotify17715_ - (lambda (_field19179_ _off19181_) - (let* ((___stx3962239623_ _field19179_) - (_g1918419211_ + _e-stx19263_ + (gx#stx-source _stx17790_)))) + (_slotify17796_ + (lambda (_field19128_ _off19130_) + (let* ((___stx3955639557_ _field19128_) + (_g1913319160_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3962239623_)))) - (let ((___kont3962539626_ - (lambda (_L19295_ _L19297_) - (cons _off19181_ - (cons _L19297_ (cons _L19295_ '()))))) - (___kont3962739628_ - (lambda (_L19248_ _L19250_ _L19251_) - (cons _off19181_ - (cons _L19250_ (cons _L19248_ '())))))) - (if (gx#stx-pair? ___stx3962239623_) - (let ((_e1919019275_ - (gx#syntax-e ___stx3962239623_))) - (let ((_tl1918819282_ + ___stx3955639557_)))) + (let ((___kont3955939560_ + (lambda (_L19244_ _L19246_) + (cons _off19130_ + (cons _L19246_ (cons _L19244_ '()))))) + (___kont3956139562_ + (lambda (_L19197_ _L19199_ _L19200_) + (cons _off19130_ + (cons _L19199_ (cons _L19197_ '())))))) + (if (gx#stx-pair? ___stx3955639557_) + (let ((_e1913919224_ + (gx#syntax-e ___stx3955639557_))) + (let ((_tl1913719231_ (let () (declare (not safe)) - (##cdr _e1919019275_))) - (_hd1918919279_ + (##cdr _e1913919224_))) + (_hd1913819228_ (let () (declare (not safe)) - (##car _e1919019275_)))) - (if (gx#stx-pair? _tl1918819282_) - (let ((_e1919319285_ - (gx#syntax-e _tl1918819282_))) - (let ((_tl1919119292_ + (##car _e1913919224_)))) + (if (gx#stx-pair? _tl1913719231_) + (let ((_e1914219234_ + (gx#syntax-e _tl1913719231_))) + (let ((_tl1914019241_ (let () (declare (not safe)) - (##cdr _e1919319285_))) - (_hd1919219289_ + (##cdr _e1914219234_))) + (_hd1914119238_ (let () (declare (not safe)) - (##car _e1919319285_)))) - (if (gx#stx-null? _tl1919119292_) - (___kont3962539626_ - _hd1919219289_ - _hd1918919279_) - (if (gx#stx-pair? _tl1919119292_) - (let ((_e1920519238_ + (##car _e1914219234_)))) + (if (gx#stx-null? _tl1914019241_) + (___kont3955939560_ + _hd1914119238_ + _hd1913819228_) + (if (gx#stx-pair? _tl1914019241_) + (let ((_e1915419187_ (gx#syntax-e - _tl1919119292_))) - (let ((_tl1920319245_ + _tl1914019241_))) + (let ((_tl1915219194_ (let () (declare (not safe)) - (##cdr _e1920519238_))) - (_hd1920419242_ + (##cdr _e1915419187_))) + (_hd1915319191_ (let () (declare (not safe)) - (##car _e1920519238_)))) + (##car _e1915419187_)))) (if (gx#stx-null? - _tl1920319245_) - (___kont3962739628_ - _hd1920419242_ - _hd1919219289_ - _hd1918919279_) + _tl1915219194_) + (___kont3956139562_ + _hd1915319191_ + _hd1914119238_ + _hd1913819228_) (let () (declare (not safe)) - (_g1918419211_))))) + (_g1913319160_))))) (let () (declare (not safe)) - (_g1918419211_)))))) + (_g1913319160_)))))) (let () (declare (not safe)) - (_g1918419211_))))) - (let () (declare (not safe)) (_g1918419211_))))))) - (_field-id17716_ - (lambda (_field19045_) - (let* ((___stx3966639667_ _field19045_) - (_g1904919076_ - (lambda () + (_g1913319160_))))) + (let () (declare (not safe)) (_g1913319160_))))))) + (_slot-name17797_ + (lambda (_slot-spec19045_) + (let* ((_g1904819067_ + (lambda (_g1904919063_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3966639667_)))) - (let ((___kont3966939670_ (lambda (_L19160_ _L19162_) ':)) - (___kont3967139672_ - (lambda (_L19113_ _L19115_ _L19116_) _L19116_))) - (if (gx#stx-pair? ___stx3966639667_) - (let ((_e1905519140_ - (gx#syntax-e ___stx3966639667_))) - (let ((_tl1905319147_ - (let () - (declare (not safe)) - (##cdr _e1905519140_))) - (_hd1905419144_ - (let () - (declare (not safe)) - (##car _e1905519140_)))) - (if (gx#stx-pair? _tl1905319147_) - (let ((_e1905819150_ - (gx#syntax-e _tl1905319147_))) - (let ((_tl1905619157_ - (let () - (declare (not safe)) - (##cdr _e1905819150_))) - (_hd1905719154_ - (let () - (declare (not safe)) - (##car _e1905819150_)))) - (if (gx#stx-null? _tl1905619157_) - (___kont3966939670_ - _hd1905719154_ - _hd1905419144_) - (if (gx#stx-pair? _tl1905619157_) - (let ((_e1907019103_ - (gx#syntax-e - _tl1905619157_))) - (let ((_tl1906819110_ - (let () - (declare (not safe)) - (##cdr _e1907019103_))) - (_hd1906919107_ - (let () - (declare (not safe)) - (##car _e1907019103_)))) - (if (gx#stx-null? - _tl1906819110_) - (___kont3967139672_ - _hd1906919107_ - _hd1905719154_ - _hd1905419144_) - (let () - (declare (not safe)) - (_g1904919076_))))) - (let () - (declare (not safe)) - (_g1904919076_)))))) - (let () - (declare (not safe)) - (_g1904919076_))))) - (let () (declare (not safe)) (_g1904919076_))))))) - (_struct-opt?17717_ + _g1904919063_))) + (_g1904719124_ + (lambda (_g1904919071_) + (if (gx#stx-pair? _g1904919071_) + (let ((_e1905519074_ + (gx#syntax-e _g1904919071_))) + (let ((_hd1905419078_ + (let () + (declare (not safe)) + (##car _e1905519074_))) + (_tl1905319081_ + (let () + (declare (not safe)) + (##cdr _e1905519074_)))) + (if (gx#stx-pair? _tl1905319081_) + (let ((_e1905819084_ + (gx#syntax-e _tl1905319081_))) + (let ((_hd1905719088_ + (let () + (declare (not safe)) + (##car _e1905819084_))) + (_tl1905619091_ + (let () + (declare (not safe)) + (##cdr _e1905819084_)))) + (if (gx#stx-pair? _tl1905619091_) + (let ((_e1906119094_ + (gx#syntax-e + _tl1905619091_))) + (let ((_hd1906019098_ + (let () + (declare (not safe)) + (##car _e1906119094_))) + (_tl1905919101_ + (let () + (declare (not safe)) + (##cdr _e1906119094_)))) + (if (gx#stx-null? + _tl1905919101_) + ((lambda (_L19104_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L19106_ + _L19107_) + _L19107_) + _hd1906019098_ + _hd1905719088_ + _hd1905419078_) + (let () (declare (not safe)) (_g1904819067_ _g1904919071_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g1904819067_ + _g1904919071_))))) + (let () + (declare (not safe)) + (_g1904819067_ _g1904919071_))))) + (let () + (declare (not safe)) + (_g1904819067_ _g1904919071_)))))) + (declare (not safe)) + (_g1904719124_ _slot-spec19045_)))) + (_class-opt?17798_ (lambda (_key19042_) (memq (gx#stx-e _key19042_) - '(fields: id: name: plist: constructor: unchecked:)))) - (_class-opt?17718_ - (lambda (_key19039_) - (memq (gx#stx-e _key19039_) - '(slots: id: name: plist: constructor: unchecked:)))) - (_module-type-id17719_ - (lambda (_type-t19026_) - (let ((_$e19029_ + '(slots: + id: + name: + properties: + constructor: + unchecked:)))) + (_module-type-id17799_ + (lambda (_type-t19029_) + (let ((_$e19032_ (gx#module-context-ns (gx#current-expander-context)))) - (if _$e19029_ - ((lambda (_ns19033_) + (if _$e19032_ + ((lambda (_ns19036_) (gx#stx-identifier - _type-t19026_ - _ns19033_ + _type-t19029_ + _ns19036_ '"#" - _type-t19026_)) - _$e19029_) - (let ((_mid19036_ + _type-t19029_)) + _$e19032_) + (let ((_mid19039_ (gx#expander-context-id (gx#current-expander-context)))) (gx#stx-identifier - _type-t19026_ - _mid19036_ + _type-t19029_ + _mid19039_ '"#" - _type-t19026_))))))) - (let* ((_g1772117748_ - (lambda (_g1772217744_) + _type-t19029_))))))) + (let* ((_g1780117828_ + (lambda (_g1780217824_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1772217744_))) - (_g1772019022_ - (lambda (_g1772217752_) - (if (gx#stx-pair? _g1772217752_) - (let ((_e1773017755_ (gx#syntax-e _g1772217752_))) - (let ((_hd1772917759_ + _g1780217824_))) + (_g1780019025_ + (lambda (_g1780217832_) + (if (gx#stx-pair? _g1780217832_) + (let ((_e1781017835_ (gx#syntax-e _g1780217832_))) + (let ((_hd1780917839_ (let () (declare (not safe)) - (##car _e1773017755_))) - (_tl1772817762_ + (##car _e1781017835_))) + (_tl1780817842_ (let () (declare (not safe)) - (##cdr _e1773017755_)))) - (if (gx#stx-pair? _tl1772817762_) - (let ((_e1773317765_ - (gx#syntax-e _tl1772817762_))) - (let ((_hd1773217769_ + (##cdr _e1781017835_)))) + (if (gx#stx-pair? _tl1780817842_) + (let ((_e1781317845_ + (gx#syntax-e _tl1780817842_))) + (let ((_hd1781217849_ (let () (declare (not safe)) - (##car _e1773317765_))) - (_tl1773117772_ + (##car _e1781317845_))) + (_tl1781117852_ (let () (declare (not safe)) - (##cdr _e1773317765_)))) - (if (gx#stx-pair? _tl1773117772_) - (let ((_e1773617775_ - (gx#syntax-e _tl1773117772_))) - (let ((_hd1773517779_ + (##cdr _e1781317845_)))) + (if (gx#stx-pair? _tl1781117852_) + (let ((_e1781617855_ + (gx#syntax-e _tl1781117852_))) + (let ((_hd1781517859_ (let () (declare (not safe)) - (##car _e1773617775_))) - (_tl1773417782_ + (##car _e1781617855_))) + (_tl1781417862_ (let () (declare (not safe)) - (##cdr _e1773617775_)))) - (if (gx#stx-pair? _tl1773417782_) - (let ((_e1773917785_ + (##cdr _e1781617855_)))) + (if (gx#stx-pair? _tl1781417862_) + (let ((_e1781917865_ (gx#syntax-e - _tl1773417782_))) - (let ((_hd1773817789_ + _tl1781417862_))) + (let ((_hd1781817869_ (let () (declare (not safe)) - (##car _e1773917785_))) - (_tl1773717792_ + (##car _e1781917865_))) + (_tl1781717872_ (let () (declare (not safe)) - (##cdr _e1773917785_)))) + (##cdr _e1781917865_)))) (if (gx#stx-pair? - _tl1773717792_) - (let ((_e1774217795_ + _tl1781717872_) + (let ((_e1782217875_ (gx#syntax-e - _tl1773717792_))) - (let ((_hd1774117799_ + _tl1781717872_))) + (let ((_hd1782117879_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e1774217795_))) - (_tl1774017802_ - (let () (declare (not safe)) (##cdr _e1774217795_)))) - ((lambda (_L17805_ _L17807_ _L17808_ _L17809_ _L17810_) - (if (and (gx#identifier? _L17810_) - (or (gx#identifier? _L17808_) - (gx#stx-false? _L17808_)) - (gx#identifier? _L17807_) - (gx#stx-plist? - _L17805_ - (if _struct?17711_ - _struct-opt?17717_ - _class-opt?17718_))) - (let* ((_els17844_ - (let ((_$e17840_ - (gx#stx-getq - (if _struct?17711_ 'fields: 'slots:) - _L17805_))) - (if _$e17840_ _$e17840_ '()))) - (_g1784717878_ - (lambda (_g1784817874_) + (##car _e1782217875_))) + (_tl1782017882_ + (let () (declare (not safe)) (##cdr _e1782217875_)))) + ((lambda (_L17885_ _L17887_ _L17888_ _L17889_ _L17890_) + (if (and (gx#identifier? _L17890_) + (or (gx#identifier? _L17888_) + (gx#stx-false? _L17888_)) + (gx#identifier? _L17887_) + (gx#stx-plist? _L17885_ _class-opt?17798_)) + (let* ((_slots17924_ + (let ((_$e17920_ + (gx#stx-getq 'slots: _L17885_))) + (if _$e17920_ _$e17920_ '()))) + (_g1792717958_ + (lambda (_g1792817954_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1784817874_))) - (_g1784619018_ - (lambda (_g1784817882_) - (if (gx#stx-pair? _g1784817882_) - (let ((_e1785717885_ - (gx#syntax-e _g1784817882_))) - (let ((_hd1785617889_ + _g1792817954_))) + (_g1792619021_ + (lambda (_g1792817962_) + (if (gx#stx-pair? _g1792817962_) + (let ((_e1793717965_ + (gx#syntax-e _g1792817962_))) + (let ((_hd1793617969_ (let () (declare (not safe)) - (##car _e1785717885_))) - (_tl1785517892_ + (##car _e1793717965_))) + (_tl1793517972_ (let () (declare (not safe)) - (##cdr _e1785717885_)))) - (if (gx#stx-pair? _tl1785517892_) - (let ((_e1786017895_ + (##cdr _e1793717965_)))) + (if (gx#stx-pair? _tl1793517972_) + (let ((_e1794017975_ (gx#syntax-e - _tl1785517892_))) - (let ((_hd1785917899_ + _tl1793517972_))) + (let ((_hd1793917979_ (let () (declare (not safe)) - (##car _e1786017895_))) - (_tl1785817902_ + (##car _e1794017975_))) + (_tl1793817982_ (let () (declare (not safe)) - (##cdr _e1786017895_)))) + (##cdr _e1794017975_)))) (if (gx#stx-pair? - _tl1785817902_) - (let ((_e1786317905_ + _tl1793817982_) + (let ((_e1794317985_ (gx#syntax-e - _tl1785817902_))) - (let ((_hd1786217909_ + _tl1793817982_))) + (let ((_hd1794217989_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e1786317905_))) - (_tl1786117912_ - (let () (declare (not safe)) (##cdr _e1786317905_)))) - (if (gx#stx-pair? _tl1786117912_) - (let ((_e1786617915_ (gx#syntax-e _tl1786117912_))) - (let ((_hd1786517919_ + (##car _e1794317985_))) + (_tl1794117992_ + (let () (declare (not safe)) (##cdr _e1794317985_)))) + (if (gx#stx-pair? _tl1794117992_) + (let ((_e1794617995_ (gx#syntax-e _tl1794117992_))) + (let ((_hd1794517999_ (let () (declare (not safe)) - (##car _e1786617915_))) - (_tl1786417922_ + (##car _e1794617995_))) + (_tl1794418002_ (let () (declare (not safe)) - (##cdr _e1786617915_)))) - (if (gx#stx-pair? _tl1786417922_) - (let ((_e1786917925_ - (gx#syntax-e _tl1786417922_))) - (let ((_hd1786817929_ + (##cdr _e1794617995_)))) + (if (gx#stx-pair? _tl1794418002_) + (let ((_e1794918005_ + (gx#syntax-e _tl1794418002_))) + (let ((_hd1794818009_ (let () (declare (not safe)) - (##car _e1786917925_))) - (_tl1786717932_ + (##car _e1794918005_))) + (_tl1794718012_ (let () (declare (not safe)) - (##cdr _e1786917925_)))) - (if (gx#stx-pair? _tl1786717932_) - (let ((_e1787217935_ - (gx#syntax-e _tl1786717932_))) - (let ((_hd1787117939_ + (##cdr _e1794918005_)))) + (if (gx#stx-pair? _tl1794718012_) + (let ((_e1795218015_ + (gx#syntax-e _tl1794718012_))) + (let ((_hd1795118019_ (let () (declare (not safe)) - (##car _e1787217935_))) - (_tl1787017942_ + (##car _e1795218015_))) + (_tl1795018022_ (let () (declare (not safe)) - (##cdr _e1787217935_)))) - (if (gx#stx-null? _tl1787017942_) - ((lambda (_L17945_ - _L17947_ - _L17948_ - _L17949_ - _L17950_ - _L17951_) + (##cdr _e1795218015_)))) + (if (gx#stx-null? _tl1795018022_) + ((lambda (_L18025_ + _L18027_ + _L18028_ + _L18029_ + _L18030_ + _L18031_) (let () - (let* ((_g1798017988_ - (lambda (_g1798117984_) + (let* ((_g1806018068_ + (lambda (_g1806118064_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1798117984_))) - (_g1797919010_ - (lambda (_g1798117992_) - ((lambda (_L17995_) + _g1806118064_))) + (_g1805919013_ + (lambda (_g1806118072_) + ((lambda (_L18075_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g1800818016_ - (lambda (_g1800918012_) + (let* ((_g1808818096_ + (lambda (_g1808918092_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1800918012_))) - (_g1800719002_ - (lambda (_g1800918020_) - ((lambda (_L18023_) + _g1808918092_))) + (_g1808719005_ + (lambda (_g1808918100_) + ((lambda (_L18103_) (let () - (let* ((_g1803618044_ - (lambda (_g1803718040_) + (let* ((_g1811618124_ + (lambda (_g1811718120_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1803718040_))) - (_g1803518994_ - (lambda (_g1803718048_) - ((lambda (_L18051_) + _g1811718120_))) + (_g1811518997_ + (lambda (_g1811718128_) + ((lambda (_L18131_) (let () - (let* ((_g1806418072_ + (let* ((_g1814418152_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1806518068_) + (lambda (_g1814518148_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1806518068_))) - (_g1806318990_ - (lambda (_g1806518076_) - ((lambda (_L18079_) + _g1814518148_))) + (_g1814318993_ + (lambda (_g1814518156_) + ((lambda (_L18159_) (let () - (let* ((_g1809218100_ - (lambda (_g1809318096_) + (let* ((_g1817218189_ + (lambda (_g1817318185_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1809318096_))) - (_g1809118706_ - (lambda (_g1809318104_) - ((lambda (_L18107_) - (let () - (let* ((_g1812018128_ - (lambda (_g1812118124_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1812118124_))) - (_g1811918702_ - (lambda (_g1812118132_) - ((lambda (_L18135_) - (let () - (let* ((_g1814818156_ + _g1817318185_))) + (_g1817118989_ + (lambda (_g1817318193_) + (if (gx#stx-pair/null? _g1817318193_) + (let ((_g42672_ + (gx#syntax-split-splice + _g1817318193_ + '0))) + (begin + (let ((_g42673_ + (let () + (declare (not safe)) + (if (##values? + _g42672_) + (##vector-length + _g42672_) + 1)))) + (if (not (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1814918152_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1814918152_))) - (_g1814718698_ - (lambda (_g1814918160_) - ((lambda (_L18163_) - (let () - (let* ((_g1817618184_ - (lambda (_g1817718180_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1817718180_))) - (_g1817518694_ - (lambda (_g1817718188_) - ((lambda (_L18191_) - (let () - (let* ((_attrs18204_ - (if _struct?17711_ - (gx#stx-map + (not safe)) + (##fx= _g42673_ 2))) + (error "Context expects 2 values" _g42673_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_target1817518196_ + (let () + (declare (not safe)) + (##vector-ref + _g42672_ + 0))) + (_tl1817718199_ + (let () + (declare (not safe)) + (##vector-ref + _g42672_ + 1)))) + (if (gx#stx-null? + _tl1817718199_) + (letrec ((_loop1817818202_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _slotify17715_ - _els17844_ - (iota (gx#stx-length _els17844_))) - _els17844_)) - (_g1820718233_ - (lambda (_g1820818229_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1820818229_))) - (_g1820618606_ - (lambda (_g1820818237_) - (if (gx#stx-pair/null? _g1820818237_) - (let ((_g42830_ - (gx#syntax-split-splice _g1820818237_ '0))) - (begin - (let ((_g42831_ - (let () - (declare (not safe)) - (if (##values? _g42830_) - (##vector-length _g42830_) - 1)))) - (if (not (let () + (lambda (_hd1817618206_ _slot1818218209_) + (if (gx#stx-pair? _hd1817618206_) + (let ((_e1817918212_ + (gx#syntax-e _hd1817618206_))) + (let ((_lp-hd1818018216_ + (let () (declare (not safe)) - (##fx= _g42831_ 2))) - (error "Context expects 2 values" - _g42831_))) - (let ((_target1821118240_ - (let () - (declare (not safe)) - (##vector-ref _g42830_ 0))) - (_tl1821318243_ + (##car _e1817918212_))) + (_lp-tl1818118219_ + (let () + (declare (not safe)) + (##cdr _e1817918212_)))) + (let ((__tmp42701 + (cons _lp-hd1818018216_ + _slot1818218209_))) + (declare (not safe)) + (_loop1817818202_ + _lp-tl1818118219_ + __tmp42701)))) + (let ((_slot1818318222_ + (reverse _slot1818218209_))) + ((lambda (_L18226_) (let () - (declare (not safe)) - (##vector-ref _g42830_ 1)))) - (if (gx#stx-null? _tl1821318243_) - (letrec ((_loop1821418246_ - (lambda (_hd1821218250_ - _def-setf1821818253_ - _def-getf1821918255_) - (if (gx#stx-pair? - _hd1821218250_) - (let ((_e1821518258_ - (gx#syntax-e - _hd1821218250_))) - (let ((_lp-hd1821618262_ - (let () - (declare + (let* ((_g1824318251_ + (lambda (_g1824418247_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1824418247_))) + (_g1824218857_ + (lambda (_g1824418255_) + ((lambda (_L18258_) + (let () + (let* ((_g1827118279_ + (lambda (_g1827218275_) + (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1821518258_))) - (_lp-tl1821718265_ - (let () (declare (not safe)) (##cdr _e1821518258_)))) - (if (gx#stx-pair? _lp-hd1821618262_) - (let ((_e1822418268_ (gx#syntax-e _lp-hd1821618262_))) - (let ((_hd1822318272_ - (let () - (declare (not safe)) - (##car _e1822418268_))) - (_tl1822218275_ - (let () - (declare (not safe)) - (##cdr _e1822418268_)))) - (if (gx#stx-pair? _tl1822218275_) - (let ((_e1822718278_ (gx#syntax-e _tl1822218275_))) - (let ((_hd1822618282_ - (let () - (declare (not safe)) - (##car _e1822718278_))) - (_tl1822518285_ - (let () - (declare (not safe)) - (##cdr _e1822718278_)))) - (if (gx#stx-null? _tl1822518285_) - (let ((__tmp42842 - (cons _hd1822618282_ - _def-setf1821818253_)) - (__tmp42841 - (cons _hd1822318272_ - _def-getf1821918255_))) - (declare (not safe)) - (_loop1821418246_ - _lp-tl1821718265_ - __tmp42842 - __tmp42841)) - (let () - (declare (not safe)) - (_g1820718233_ _g1820818237_))))) - (let () - (declare (not safe)) - (_g1820718233_ _g1820818237_))))) - (let () - (declare (not safe)) - (_g1820718233_ _g1820818237_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_def-setf1822018288_ - (reverse _def-setf1821818253_)) - (_def-getf1822118291_ - (reverse _def-getf1821918255_))) - ((lambda (_L18294_ - _L18296_) + '#f + '"Bad syntax; invalid match target" + _g1827218275_))) + (_g1827018853_ + (lambda (_g1827218283_) + ((lambda (_L18286_) + (let () + (let* ((_g1829918307_ + (lambda (_g1830018303_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1830018303_))) + (_g1829818849_ + (lambda (_g1830018311_) + ((lambda (_L18314_) + (let () + (let* ((_g1832718335_ + (lambda (_g1832818331_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1832818331_))) + (_g1832618845_ + (lambda (_g1832818339_) + ((lambda (_L18342_) (let () - (let* ((_g1831418340_ + (let* ((_attrs18355_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1831518336_) + (if _struct?17792_ + (gx#stx-map + _slotify17796_ + _slots17924_ + (iota (gx#stx-length _slots17924_))) + _slots17924_)) + (_g1835818384_ + (lambda (_g1835918380_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1831518336_))) - (_g1831318454_ - (lambda (_g1831518344_) - (if (gx#stx-pair/null? _g1831518344_) - (let ((_g42832_ + _g1835918380_))) + (_g1835718757_ + (lambda (_g1835918388_) + (if (gx#stx-pair/null? _g1835918388_) + (let ((_g42674_ (gx#syntax-split-splice - _g1831518344_ + _g1835918388_ '0))) (begin - (let ((_g42833_ + (let ((_g42675_ (let () (declare (not safe)) - (if (##values? _g42832_) - (##vector-length _g42832_) + (if (##values? _g42674_) + (##vector-length _g42674_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42833_ 2))) + (##fx= _g42675_ 2))) (error "Context expects 2 values" - _g42833_))) - (let ((_target1831818347_ + _g42675_))) + (let ((_target1836218391_ (let () (declare (not safe)) - (##vector-ref _g42832_ 0))) - (_tl1832018350_ + (##vector-ref _g42674_ 0))) + (_tl1836418394_ (let () (declare (not safe)) - (##vector-ref _g42832_ 1)))) - (if (gx#stx-null? _tl1832018350_) - (letrec ((_loop1832118353_ - (lambda (_hd1831918357_ - _def-usetf1832518360_ - _def-ugetf1832618362_) + (##vector-ref _g42674_ 1)))) + (if (gx#stx-null? _tl1836418394_) + (letrec ((_loop1836518397_ + (lambda (_hd1836318401_ + _def-setf1836918404_ + _def-getf1837018406_) (if (gx#stx-pair? - _hd1831918357_) - (let ((_e1832218365_ + _hd1836318401_) + (let ((_e1836618409_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1831918357_))) - (let ((_lp-hd1832318369_ + (gx#syntax-e _hd1836318401_))) + (let ((_lp-hd1836718413_ (let () (declare (not safe)) - (##car _e1832218365_))) - (_lp-tl1832418372_ + (##car _e1836618409_))) + (_lp-tl1836818416_ (let () (declare (not safe)) - (##cdr _e1832218365_)))) - (if (gx#stx-pair? _lp-hd1832318369_) - (let ((_e1833118375_ - (gx#syntax-e _lp-hd1832318369_))) - (let ((_hd1833018379_ + (##cdr _e1836618409_)))) + (if (gx#stx-pair? _lp-hd1836718413_) + (let ((_e1837518419_ + (gx#syntax-e _lp-hd1836718413_))) + (let ((_hd1837418423_ (let () (declare (not safe)) - (##car _e1833118375_))) - (_tl1832918382_ + (##car _e1837518419_))) + (_tl1837318426_ (let () (declare (not safe)) - (##cdr _e1833118375_)))) - (if (gx#stx-pair? _tl1832918382_) - (let ((_e1833418385_ - (gx#syntax-e _tl1832918382_))) - (let ((_hd1833318389_ + (##cdr _e1837518419_)))) + (if (gx#stx-pair? _tl1837318426_) + (let ((_e1837818429_ + (gx#syntax-e _tl1837318426_))) + (let ((_hd1837718433_ (let () (declare (not safe)) - (##car _e1833418385_))) - (_tl1833218392_ + (##car _e1837818429_))) + (_tl1837618436_ (let () (declare (not safe)) - (##cdr _e1833418385_)))) - (if (gx#stx-null? _tl1833218392_) - (let ((__tmp42836 - (cons _hd1833318389_ - _def-usetf1832518360_)) - (__tmp42835 - (cons _hd1833018379_ - _def-ugetf1832618362_))) + (##cdr _e1837818429_)))) + (if (gx#stx-null? _tl1837618436_) + (let ((__tmp42686 + (cons _hd1837718433_ + _def-setf1836918404_)) + (__tmp42685 + (cons _hd1837418423_ + _def-getf1837018406_))) (declare (not safe)) - (_loop1832118353_ - _lp-tl1832418372_ - __tmp42836 - __tmp42835)) + (_loop1836518397_ + _lp-tl1836818416_ + __tmp42686 + __tmp42685)) (let () (declare (not safe)) - (_g1831418340_ _g1831518344_))))) + (_g1835818384_ _g1835918388_))))) (let () (declare (not safe)) - (_g1831418340_ _g1831518344_))))) + (_g1835818384_ _g1835918388_))))) (let () (declare (not safe)) - (_g1831418340_ _g1831518344_))))) - (let ((_def-usetf1832718395_ - (reverse _def-usetf1832518360_)) - (_def-ugetf1832818398_ - (reverse _def-ugetf1832618362_))) - ((lambda (_L18401_ _L18403_) + (_g1835818384_ _g1835918388_))))) + (let ((_def-setf1837118439_ (reverse _def-setf1836918404_)) + (_def-getf1837218442_ (reverse _def-getf1837018406_))) + ((lambda (_L18445_ _L18447_) (let () - (let () - (let ((__tmp42834 - (cons (gx#datum->syntax '#f 'begin) - (cons _L18135_ - (cons _L18191_ - (cons _L18163_ - (foldr (lambda (_g1842118430_ + (let* ((_g1846518491_ + (lambda (_g1846618487_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1846618487_))) + (_g1846418605_ + (lambda (_g1846618495_) + (if (gx#stx-pair/null? _g1846618495_) + (let ((_g42676_ + (gx#syntax-split-splice + _g1846618495_ + '0))) + (begin + (let ((_g42677_ + (let () + (declare (not safe)) + (if (##values? _g42676_) + (##vector-length + _g42676_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g42677_ 2))) + (error "Context expects 2 values" + _g42677_))) + (let ((_target1846918498_ + (let () + (declare (not safe)) + (##vector-ref + _g42676_ + 0))) + (_tl1847118501_ + (let () + (declare (not safe)) + (##vector-ref + _g42676_ + 1)))) + (if (gx#stx-null? _tl1847118501_) + (letrec ((_loop1847218504_ + (lambda (_hd1847018508_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1842218433_) - (cons _g1842118430_ _g1842218433_)) - (foldr (lambda (_g1842318436_ _g1842418439_) - (cons _g1842318436_ _g1842418439_)) - (foldr (lambda (_g1842518442_ _g1842618445_) - (cons _g1842518442_ _g1842618445_)) - (foldr (lambda (_g1842718448_ - _g1842818451_) - (cons _g1842718448_ - _g1842818451_)) - '() - _L18401_) - _L18403_) - _L18294_) - _L18296_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_wrap17713_ __tmp42834))))) - _def-usetf1832718395_ - _def-ugetf1832818398_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop1832118353_ - _target1831818347_ - '() - '()))) + _def-usetf1847618511_ + _def-ugetf1847718513_) + (if (gx#stx-pair? _hd1847018508_) + (let ((_e1847318516_ (gx#syntax-e _hd1847018508_))) + (let ((_lp-hd1847418520_ + (let () + (declare (not safe)) + (##car _e1847318516_))) + (_lp-tl1847518523_ + (let () + (declare (not safe)) + (##cdr _e1847318516_)))) + (if (gx#stx-pair? _lp-hd1847418520_) + (let ((_e1848218526_ + (gx#syntax-e _lp-hd1847418520_))) + (let ((_hd1848118530_ (let () (declare (not safe)) - (_g1831418340_ _g1831518344_)))))) + (##car _e1848218526_))) + (_tl1848018533_ + (let () + (declare (not safe)) + (##cdr _e1848218526_)))) + (if (gx#stx-pair? _tl1848018533_) + (let ((_e1848518536_ + (gx#syntax-e _tl1848018533_))) + (let ((_hd1848418540_ + (let () + (declare (not safe)) + (##car _e1848518536_))) + (_tl1848318543_ + (let () + (declare (not safe)) + (##cdr _e1848518536_)))) + (if (gx#stx-null? _tl1848318543_) + (let ((__tmp42680 + (cons _hd1848418540_ + _def-usetf1847618511_)) + (__tmp42679 + (cons _hd1848118530_ + _def-ugetf1847718513_))) + (declare (not safe)) + (_loop1847218504_ + _lp-tl1847518523_ + __tmp42680 + __tmp42679)) + (let () + (declare (not safe)) + (_g1846518491_ + _g1846618495_))))) + (let () + (declare (not safe)) + (_g1846518491_ _g1846618495_))))) + (let () + (declare (not safe)) + (_g1846518491_ _g1846618495_))))) + (let ((_def-usetf1847818546_ + (reverse _def-usetf1847618511_)) + (_def-ugetf1847918549_ + (reverse _def-ugetf1847718513_))) + ((lambda (_L18552_ _L18554_) + (let () (let () - (declare (not safe)) - (_g1831418340_ _g1831518344_))))) - (__tmp42837 - (if (gx#stx-e (gx#stx-getq 'unchecked: _L17805_)) - (gx#stx-map - (lambda (_ref18458_) - (let* ((_g1846118480_ - (lambda (_g1846218476_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1846218476_))) - (_g1846018602_ - (lambda (_g1846218484_) - (if (gx#stx-pair? _g1846218484_) - (let ((_e1846818487_ - (gx#syntax-e - _g1846218484_))) - (let ((_hd1846718491_ - (let () - (declare (not safe)) - (##car _e1846818487_))) - (_tl1846618494_ - (let () - (declare (not safe)) - (##cdr _e1846818487_)))) + (let ((__tmp42678 + (cons (gx#datum->syntax '#f 'begin) + (cons _L18286_ + (cons _L18342_ + (cons _L18314_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr (lambda (_g1857218581_ _g1857318584_) + (cons _g1857218581_ _g1857318584_)) + (foldr (lambda (_g1857418587_ _g1857518590_) + (cons _g1857418587_ _g1857518590_)) + (foldr (lambda (_g1857618593_ + _g1857718596_) + (cons _g1857618593_ + _g1857718596_)) + (foldr (lambda (_g1857818599_ + _g1857918602_) + (cons _g1857818599_ + _g1857918602_)) + '() + _L18552_) + _L18554_) + _L18445_) + _L18447_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_wrap17794_ __tmp42678))))) + _def-usetf1847818546_ + _def-ugetf1847918549_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1847218504_ + _target1846918498_ + '() + '()))) + (let () + (declare (not safe)) + (_g1846518491_ + _g1846618495_)))))) + (let () + (declare (not safe)) + (_g1846518491_ _g1846618495_))))) + (__tmp42681 + (if (gx#stx-e + (gx#stx-getq 'unchecked: _L17885_)) + (gx#stx-map + (lambda (_ref18609_) + (let* ((_g1861218631_ + (lambda (_g1861318627_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1861318627_))) + (_g1861118753_ + (lambda (_g1861318635_) + (if (gx#stx-pair? + _g1861318635_) + (let ((_e1861918638_ + (gx#syntax-e + _g1861318635_))) + (let ((_hd1861818642_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _e1861918638_))) + (_tl1861718645_ + (let () (declare (not safe)) (##cdr _e1861918638_)))) + (if (gx#stx-pair? _tl1861718645_) + (let ((_e1862218648_ (gx#syntax-e _tl1861718645_))) + (let ((_hd1862118652_ + (let () + (declare (not safe)) + (##car _e1862218648_))) + (_tl1862018655_ + (let () + (declare (not safe)) + (##cdr _e1862218648_)))) + (if (gx#stx-pair? _tl1862018655_) + (let ((_e1862518658_ + (gx#syntax-e _tl1862018655_))) + (let ((_hd1862418662_ + (let () + (declare (not safe)) + (##car _e1862518658_))) + (_tl1862318665_ + (let () + (declare (not safe)) + (##cdr _e1862518658_)))) + (if (gx#stx-null? _tl1862318665_) + ((lambda (_L18668_ _L18670_ _L18671_) + (let* ((_g1868918704_ + (lambda (_g1869018700_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1869018700_))) + (_g1868818749_ + (lambda (_g1869018708_) (if (gx#stx-pair? - _tl1846618494_) - (let ((_e1847118497_ + _g1869018708_) + (let ((_e1869518711_ (gx#syntax-e - _tl1846618494_))) - (let ((_hd1847018501_ + _g1869018708_))) + (let ((_hd1869418715_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1847118497_))) - (_tl1846918504_ - (let () (declare (not safe)) (##cdr _e1847118497_)))) - (if (gx#stx-pair? _tl1846918504_) - (let ((_e1847418507_ (gx#syntax-e _tl1846918504_))) - (let ((_hd1847318511_ + (let () (declare (not safe)) (##car _e1869518711_))) + (_tl1869318718_ + (let () (declare (not safe)) (##cdr _e1869518711_)))) + (if (gx#stx-pair? _tl1869318718_) + (let ((_e1869818721_ (gx#syntax-e _tl1869318718_))) + (let ((_hd1869718725_ (let () (declare (not safe)) - (##car _e1847418507_))) - (_tl1847218514_ + (##car _e1869818721_))) + (_tl1869618728_ (let () (declare (not safe)) - (##cdr _e1847418507_)))) - (if (gx#stx-null? _tl1847218514_) - ((lambda (_L18517_ _L18519_ _L18520_) - (let* ((_g1853818553_ - (lambda (_g1853918549_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1853918549_))) - (_g1853718598_ - (lambda (_g1853918557_) - (if (gx#stx-pair? _g1853918557_) - (let ((_e1854418560_ - (gx#syntax-e - _g1853918557_))) - (let ((_hd1854318564_ - (let () - (declare - (not safe)) - (##car _e1854418560_))) - (_tl1854218567_ - (let () - (declare - (not safe)) - (##cdr _e1854418560_)))) - (if (gx#stx-pair? - _tl1854218567_) - (let ((_e1854718570_ - (gx#syntax-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1854218567_))) - (let ((_hd1854618574_ - (let () (declare (not safe)) (##car _e1854718570_))) - (_tl1854518577_ - (let () (declare (not safe)) (##cdr _e1854718570_)))) - (if (gx#stx-null? _tl1854518577_) - ((lambda (_L18580_ _L18582_) - (let () - (cons (let ((__tmp42838 - (cons (gx#datum->syntax '#f 'def) - (cons _L18582_ - (cons (cons _L17947_ + (##cdr _e1869818721_)))) + (if (gx#stx-null? _tl1869618728_) + ((lambda (_L18731_ _L18733_) + (let () + (cons (let ((__tmp42682 + (cons (gx#datum->syntax + '#f + 'def) + (cons _L18733_ + (cons (cons _L18027_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L17810_ - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18520_ '())) - '()))) - '()))))) + (cons _L17890_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _L18671_ '())) + '()))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_wrap17713_ __tmp42838)) - (cons (let ((__tmp42839 - (cons (gx#datum->syntax - '#f - 'def) - (cons _L18580_ - (cons (cons _L17945_ + (declare (not safe)) + (_wrap17794_ __tmp42682)) + (cons (let ((__tmp42683 + (cons (gx#datum->syntax + '#f + 'def) + (cons _L18731_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L17810_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _L18520_ '())) - '()))) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_wrap17713_ __tmp42839)) - '())))) - _hd1854618574_ - _hd1854318564_) - (let () - (declare (not safe)) - (_g1853818553_ _g1853918557_))))) - (let () (declare (not safe)) (_g1853818553_ _g1853918557_))))) + (cons (cons _L18025_ + (cons _L17890_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _L18671_ '())) + '()))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () (declare (not safe)) - (_g1853818553_ - _g1853918557_))))) - (__tmp42840 - (list (gx#stx-identifier - _L18519_ - '"&" - _L18519_) - (gx#stx-identifier - _L18517_ - '"&" - _L18517_)))) - (declare (not safe)) - (_g1853718598_ __tmp42840))) - _hd1847318511_ - _hd1847018501_ - _hd1846718491_) + (_wrap17794_ __tmp42683)) + '())))) + _hd1869718725_ + _hd1869418715_) (let () (declare (not safe)) - (_g1846118480_ _g1846218484_))))) + (_g1868918704_ _g1869018708_))))) (let () (declare (not safe)) - (_g1846118480_ _g1846218484_))))) - (let () (declare (not safe)) (_g1846118480_ _g1846218484_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g1846118480_ - _g1846218484_)))))) - (declare (not safe)) - (_g1846018602_ _ref18458_))) - _attrs18204_) - '()))) - (declare (not safe)) - (_g1831318454_ __tmp42837)))) - _def-setf1822018288_ - _def-getf1822118291_)))))) + (_g1868918704_ _g1869018708_))))) + (let () (declare (not safe)) (_g1868918704_ _g1869018708_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop1821418246_ - _target1821118240_ - '() - '()))) - (let () - (declare (not safe)) - (_g1820718233_ _g1820818237_)))))) - (let () - (declare (not safe)) - (_g1820718233_ _g1820818237_))))) - (__tmp42843 - (gx#stx-map - (lambda (_ref18610_) - (let* ((_g1861318632_ - (lambda (_g1861418628_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1861418628_))) - (_g1861218690_ - (lambda (_g1861418636_) - (if (gx#stx-pair? _g1861418636_) - (let ((_e1862018639_ - (gx#syntax-e _g1861418636_))) - (let ((_hd1861918643_ - (let () - (declare (not safe)) - (##car _e1862018639_))) - (_tl1861818646_ - (let () - (declare (not safe)) - (##cdr _e1862018639_)))) - (if (gx#stx-pair? _tl1861818646_) - (let ((_e1862318649_ - (gx#syntax-e - _tl1861818646_))) - (let ((_hd1862218653_ - (let () - (declare (not safe)) - (##car _e1862318649_))) - (_tl1862118656_ - (let () - (declare (not safe)) - (##cdr _e1862318649_)))) - (if (gx#stx-pair? - _tl1862118656_) - (let ((_e1862618659_ - (gx#syntax-e - _tl1862118656_))) - (let ((_hd1862518663_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1862618659_))) - (_tl1862418666_ - (let () (declare (not safe)) (##cdr _e1862618659_)))) - (if (gx#stx-null? _tl1862418666_) - ((lambda (_L18669_ _L18671_ _L18672_) - (cons (let ((__tmp42844 - (cons (gx#datum->syntax '#f 'def) - (cons _L18671_ - (cons (cons _L17949_ - (cons _L17810_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18672_ '())) - '()))) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_wrap17713_ __tmp42844)) - (cons (let ((__tmp42845 - (cons (gx#datum->syntax '#f 'def) - (cons _L18669_ - (cons (cons _L17948_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L17810_ - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18672_ '())) - '()))) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_wrap17713_ __tmp42845)) - '()))) - _hd1862518663_ - _hd1862218653_ - _hd1861918643_) - (let () - (declare (not safe)) - (_g1861318632_ _g1861418636_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g1861318632_ - _g1861418636_))))) - (let () - (declare (not safe)) - (_g1861318632_ - _g1861418636_))))) - (let () - (declare (not safe)) - (_g1861318632_ _g1861418636_)))))) + (__tmp42684 + (list (gx#stx-identifier + _L18670_ + '"&" + _L18670_) + (gx#stx-identifier + _L18668_ + '"&" + _L18668_)))) + (declare (not safe)) + (_g1868818749_ __tmp42684))) + _hd1862418662_ + _hd1862118652_ + _hd1861818642_) + (let () + (declare (not safe)) + (_g1861218631_ _g1861318635_))))) + (let () + (declare (not safe)) + (_g1861218631_ _g1861318635_))))) + (let () (declare (not safe)) - (_g1861218690_ _ref18610_))) - _attrs18204_))) - (declare (not safe)) - (_g1820618606_ __tmp42843)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1817718188_))) - (__tmp42846 - (let ((__tmp42847 - (cons (gx#datum->syntax - '#f - 'def) - (cons _L17807_ - (cons (cons _L17950_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L17810_ '())) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_wrap17713_ __tmp42847)))) - (declare (not safe)) - (_g1817518694_ __tmp42846)))) - _g1814918160_))) - (__tmp42848 - (if (gx#stx-false? _L17808_) - (cons (gx#datum->syntax '#f 'begin) '()) - (let ((__tmp42849 - (cons (gx#datum->syntax '#f 'def) - (cons (cons _L17808_ - (gx#datum->syntax - '#f - '$args)) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'apply) - (cons _L17951_ - (cons _L17810_ - (cons (gx#datum->syntax '#f '$args) - '())))) - '()))))) + (_g1861218631_ _g1861318635_))))) + (let () (declare (not safe)) (_g1861218631_ _g1861318635_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_wrap17713_ __tmp42849))))) - (declare (not safe)) - (_g1814718698_ __tmp42848)))) - _g1812118132_))) - (__tmp42850 - (let ((__tmp42851 - (cons (gx#datum->syntax '#f 'def) - (cons _L17810_ (cons _L18107_ '()))))) - (declare (not safe)) - (_wrap17713_ __tmp42851)))) + (declare (not safe)) + (_g1861118753_ _ref18609_))) + _attrs18355_) + '()))) + (declare (not safe)) + (_g1846418605_ __tmp42681)))) + _def-setf1837118439_ + _def-getf1837218442_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_g1811918702_ __tmp42850)))) - _g1809318104_))) - (__tmp42852 - (if _struct?17711_ - (let* ((_g1871018734_ - (lambda (_g1871118730_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1871118730_))) - (_g1870918821_ - (lambda (_g1871118738_) - (if (gx#stx-pair? - _g1871118738_) - (let ((_e1871618741_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1871118738_))) - (let ((_hd1871518745_ - (let () (declare (not safe)) (##car _e1871618741_))) - (_tl1871418748_ - (let () - (declare (not safe)) - (##cdr _e1871618741_)))) - (if (gx#stx-pair? _tl1871418748_) - (let ((_e1871918751_ (gx#syntax-e _tl1871418748_))) - (let ((_hd1871818755_ - (let () - (declare (not safe)) - (##car _e1871918751_))) - (_tl1871718758_ - (let () - (declare (not safe)) - (##cdr _e1871918751_)))) - (if (gx#stx-pair/null? _hd1871818755_) - (let ((_g42860_ - (gx#syntax-split-splice - _hd1871818755_ - '0))) - (begin - (let ((_g42861_ - (let () - (declare (not safe)) - (if (##values? _g42860_) - (##vector-length _g42860_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g42861_ 2))) - (error "Context expects 2 values" - _g42861_))) - (let ((_target1872018761_ - (let () - (declare (not safe)) - (##vector-ref _g42860_ 0))) - (_tl1872218764_ (let () (declare (not safe)) - (##vector-ref _g42860_ 1)))) - (if (gx#stx-null? _tl1872218764_) - (letrec ((_loop1872318767_ - (lambda (_hd1872118771_ - _field-id1872718774_) - (if (gx#stx-pair? - _hd1872118771_) - (let ((_e1872418777_ + (_loop1836518397_ + _target1836218391_ + '() + '()))) + (let () + (declare (not safe)) + (_g1835818384_ _g1835918388_)))))) + (let () + (declare (not safe)) + (_g1835818384_ _g1835918388_))))) + (__tmp42687 + (gx#stx-map + (lambda (_ref18761_) + (let* ((_g1876418783_ + (lambda (_g1876518779_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1876518779_))) + (_g1876318841_ + (lambda (_g1876518787_) + (if (gx#stx-pair? _g1876518787_) + (let ((_e1877118790_ + (gx#syntax-e + _g1876518787_))) + (let ((_hd1877018794_ + (let () + (declare (not safe)) + (##car _e1877118790_))) + (_tl1876918797_ + (let () + (declare (not safe)) + (##cdr _e1877118790_)))) + (if (gx#stx-pair? + _tl1876918797_) + (let ((_e1877418800_ + (gx#syntax-e + _tl1876918797_))) + (let ((_hd1877318804_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1872118771_))) - (let ((_lp-hd1872518781_ + (not safe)) + (##car _e1877418800_))) + (_tl1877218807_ + (let () (declare (not safe)) (##cdr _e1877418800_)))) + (if (gx#stx-pair? _tl1877218807_) + (let ((_e1877718810_ (gx#syntax-e _tl1877218807_))) + (let ((_hd1877618814_ (let () (declare (not safe)) - (##car _e1872418777_))) - (_lp-tl1872618784_ + (##car _e1877718810_))) + (_tl1877518817_ (let () (declare (not safe)) - (##cdr _e1872418777_)))) - (let ((__tmp42862 - (cons _lp-hd1872518781_ _field-id1872718774_))) - (declare (not safe)) - (_loop1872318767_ _lp-tl1872618784_ __tmp42862)))) - (let ((_field-id1872818787_ - (reverse _field-id1872718774_))) - (if (gx#stx-null? _tl1871718758_) - ((lambda (_L18791_ _L18793_) - (let () - (cons (gx#datum->syntax '#f 'make-struct-type) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L17995_ '())) - (cons _L17809_ - (cons _L18793_ - (cons (cons (gx#datum->syntax + (##cdr _e1877718810_)))) + (if (gx#stx-null? _tl1877518817_) + ((lambda (_L18820_ _L18822_ _L18823_) + (cons (let ((__tmp42688 + (cons (gx#datum->syntax '#f 'def) + (cons _L18822_ + (cons (cons _L18029_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L18023_ '())) - (cons _L18051_ - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18079_ '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_g1881218815_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1881318818_) - (cons _g1881218815_ _g1881318818_)) - '() - _L18791_) + (cons _L17890_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _L18823_ '())) + '()))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - '())))))))))) + (declare (not safe)) + (_wrap17794_ __tmp42688)) + (cons (let ((__tmp42689 + (cons (gx#datum->syntax + '#f + 'def) + (cons _L18820_ + (cons (cons _L18028_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _L17890_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _L18823_ '())) + '()))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _field-id1872818787_ - _hd1871518745_) - (let () - (declare (not safe)) - (_g1871018734_ _g1871118738_)))))))) + (declare (not safe)) + (_wrap17794_ __tmp42689)) + '()))) + _hd1877618814_ + _hd1877318804_ + _hd1877018794_) + (let () + (declare (not safe)) + (_g1876418783_ _g1876518787_))))) + (let () + (declare (not safe)) + (_g1876418783_ _g1876518787_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop1872318767_ - _target1872018761_ - '()))) + (let () + (declare (not safe)) + (_g1876418783_ + _g1876518787_))))) (let () (declare (not safe)) - (_g1871018734_ - _g1871118738_)))))) - (let () - (declare (not safe)) - (_g1871018734_ _g1871118738_))))) - (let () - (declare (not safe)) - (_g1871018734_ _g1871118738_))))) - (let () - (declare (not safe)) - (_g1871018734_ _g1871118738_))))) + (_g1876418783_ + _g1876518787_)))))) + (declare (not safe)) + (_g1876318841_ _ref18761_))) + _attrs18355_))) + (declare (not safe)) + (_g1835718757_ __tmp42687)))) + _g1832818339_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp42690 + (let ((__tmp42691 + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'def) + (cons _L17887_ + (cons (cons _L18030_ (cons _L17890_ '())) + '()))))) + (declare (not safe)) + (_wrap17794_ __tmp42691)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42863 - (list (gx#stx-length - _els17844_) - (gx#stx-map - _field-id17716_ - _els17844_)))) (declare (not safe)) - (_g1870918821_ __tmp42863)) - (let* ((_g1882518858_ - (lambda (_g1882618854_) - (gx#raise-syntax-error + (_g1832618845_ __tmp42690)))) + _g1830018311_))) + (__tmp42692 + (if (gx#stx-false? _L17888_) + (cons (gx#datum->syntax '#f 'begin) + '()) + (let ((__tmp42693 + (cons (gx#datum->syntax '#f - '"Bad syntax; invalid match target" - _g1882618854_))) - (_g1882418986_ - (lambda (_g1882618862_) - (if (gx#stx-pair? - _g1882618862_) - (let ((_e1883118865_ + 'def) + (cons (cons _L17888_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1882618862_))) - (let ((_hd1883018869_ - (let () (declare (not safe)) (##car _e1883118865_))) - (_tl1882918872_ - (let () - (declare (not safe)) - (##cdr _e1883118865_)))) - (if (gx#stx-pair/null? _hd1883018869_) - (let ((_g42853_ - (gx#syntax-split-splice _hd1883018869_ '0))) - (begin - (let ((_g42854_ - (let () - (declare (not safe)) - (if (##values? _g42853_) - (##vector-length _g42853_) - 1)))) - (if (not (let () + (gx#datum->syntax '#f '$args)) + (cons (cons (gx#datum->syntax '#f 'apply) + (cons _L18031_ + (cons _L17890_ + (cons (gx#datum->syntax '#f '$args) + '())))) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= _g42854_ 2))) - (error "Context expects 2 values" - _g42854_))) - (let ((_target1883218875_ - (let () - (declare (not safe)) - (##vector-ref _g42853_ 0))) - (_tl1883418878_ - (let () - (declare (not safe)) - (##vector-ref _g42853_ 1)))) - (if (gx#stx-null? _tl1883418878_) - (letrec ((_loop1883518881_ - (lambda (_hd1883318885_ - _super1883918888_) - (if (gx#stx-pair? - _hd1883318885_) - (let ((_e1883618891_ - (gx#syntax-e - _hd1883318885_))) - (let ((_lp-hd1883718895_ - (let () - (declare + (_wrap17794_ __tmp42693))))) + (declare (not safe)) + (_g1829818849_ __tmp42692)))) + _g1827218283_))) + (__tmp42694 + (let ((__tmp42695 + (cons (gx#datum->syntax '#f 'def) + (cons _L17890_ (cons _L18258_ '()))))) + (declare (not safe)) + (_wrap17794_ __tmp42695)))) + (declare (not safe)) + (_g1827018853_ __tmp42694)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1824418255_))) + (__tmp42696 + (if _struct?17792_ + (let* ((_g1886118869_ + (lambda (_g1886218865_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1886218865_))) + (_g1886018896_ + (lambda (_g1886218873_) + ((lambda (_L18876_) + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1883618891_))) - (_lp-tl1883818898_ - (let () (declare (not safe)) (##cdr _e1883618891_)))) - (let ((__tmp42858 (cons _lp-hd1883718895_ _super1883918888_))) - (declare (not safe)) - (_loop1883518881_ _lp-tl1883818898_ __tmp42858)))) + (cons (gx#datum->syntax '#f 'make-struct-type) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _L18075_ '())) + (cons _L17889_ + (cons _L18876_ + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _L18103_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + (cons _L18131_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _L18159_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons (foldr (lambda (_g1888718890_ + _g1888818893_) + (cons _g1888718890_ + _g1888818893_)) + '() + _L18226_) + '())) + '())))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1886218873_))) + (__tmp42700 (gx#stx-length _slots17924_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_super1884018901_ - (reverse _super1883918888_))) - (if (gx#stx-pair? - _tl1882918872_) - (let ((_e1884318905_ + (declare (not safe)) + (_g1886018896_ + __tmp42700)) + (let* ((_g1890018917_ + (lambda (_g1890118913_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1890118913_))) + (_g1889918985_ + (lambda (_g1890118921_) + (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1882918872_))) - (let ((_hd1884218909_ - (let () (declare (not safe)) (##car _e1884318905_))) - (_tl1884118912_ - (let () - (declare (not safe)) - (##cdr _e1884318905_)))) - (if (gx#stx-pair/null? _hd1884218909_) - (let ((_g42855_ - (gx#syntax-split-splice _hd1884218909_ '0))) - (begin - (let ((_g42856_ - (let () - (declare (not safe)) - (if (##values? _g42855_) - (##vector-length _g42855_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g42856_ 2))) - (error "Context expects 2 values" - _g42856_))) - (let ((_target1884418915_ - (let () - (declare (not safe)) - (##vector-ref _g42855_ 0))) - (_tl1884618918_ - (let () - (declare (not safe)) - (##vector-ref _g42855_ 1)))) - (if (gx#stx-null? _tl1884618918_) - (letrec ((_loop1884718921_ - (lambda (_hd1884518925_ - _slot1885118928_) - (if (gx#stx-pair? - _hd1884518925_) - (let ((_e1884818931_ - (gx#syntax-e - _hd1884518925_))) - (let ((_lp-hd1884918935_ - (let () - (declare + _g1890118921_) + (let ((_g42697_ + (gx#syntax-split-splice _g1890118921_ '0))) + (begin + (let ((_g42698_ + (let () + (declare (not safe)) + (if (##values? _g42697_) + (##vector-length _g42697_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g42698_ 2))) + (error "Context expects 2 values" + _g42698_))) + (let ((_target1890318924_ + (let () + (declare (not safe)) + (##vector-ref _g42697_ 0))) + (_tl1890518927_ + (let () + (declare (not safe)) + (##vector-ref _g42697_ 1)))) + (if (gx#stx-null? _tl1890518927_) + (letrec ((_loop1890618930_ + (lambda (_hd1890418934_ + _super1891018937_) + (if (gx#stx-pair? + _hd1890418934_) + (let ((_e1890718940_ + (gx#syntax-e + _hd1890418934_))) + (let ((_lp-hd1890818944_ + (let () + (declare + (not safe)) + (##car _e1890718940_))) + (_lp-tl1890918947_ + (let () + (declare + (not safe)) + (##cdr _e1890718940_)))) + (let ((__tmp42699 + (cons _lp-hd1890818944_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1884818931_))) - (_lp-tl1885018938_ - (let () (declare (not safe)) (##cdr _e1884818931_)))) - (let ((__tmp42857 (cons _lp-hd1884918935_ _slot1885118928_))) - (declare (not safe)) - (_loop1884718921_ _lp-tl1885018938_ __tmp42857)))) + _super1891018937_))) + (declare (not safe)) + (_loop1890618930_ _lp-tl1890918947_ __tmp42699)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_slot1885218941_ - (reverse _slot1885118928_))) - (if (gx#stx-null? - _tl1884118912_) - ((lambda (_L18945_ + (let ((_super1891118950_ + (reverse _super1891018937_))) + ((lambda (_L18954_) + (let () + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L18947_) - (let () - (cons (gx#datum->syntax '#f 'make-class-type) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L17995_ '())) - (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g1897118974_ - _g1897218977_) - (cons _g1897118974_ - _g1897218977_)) - '() - _L18947_)) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons (foldr (lambda (_g1896918980_ + '#f + 'make-class-type) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _L18075_ '())) + (cons (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_g1897018973_ + _g1897118976_) + (cons _g1897018973_ + _g1897118976_)) + '() + _L18954_)) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons (foldr (lambda (_g1896818979_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1897018983_) - (cons _g1896918980_ _g1897018983_)) - '() - _L18945_) - '())) + _g1896918982_) + (cons _g1896818979_ _g1896918982_)) + '() + _L18226_) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _L18023_ '())) - (cons _L18051_ - (cons (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _L18103_ '())) + (cons _L18131_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _L18079_ '())) - '()))))))))) + '#f + 'quote) + (cons _L18159_ '())) + '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _slot1885218941_ - _super1884018901_) - (let () - (declare (not safe)) - (_g1882518858_ _g1882618862_)))))))) + _super1891118950_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop1884718921_ - _target1884418915_ - '()))) - (let () - (declare (not safe)) - (_g1882518858_ _g1882618862_)))))) - (let () - (declare (not safe)) - (_g1882518858_ _g1882618862_))))) - (let () - (declare (not safe)) - (_g1882518858_ _g1882618862_)))))))) + (let () + (declare (not safe)) + (_loop1890618930_ + _target1890318924_ + '()))) + (let () + (declare (not safe)) + (_g1890018917_ _g1890118921_)))))) + (let () + (declare (not safe)) + (_g1890018917_ _g1890118921_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop1883518881_ - _target1883218875_ - '()))) - (let () - (declare (not safe)) - (_g1882518858_ _g1882618862_)))))) - (let () - (declare (not safe)) - (_g1882518858_ _g1882618862_))))) + (declare (not safe)) + (_g1889918985_ + _L17889_))))) + (declare (not safe)) + (_g1824218857_ __tmp42696)))) + _slot1818318222_)))))) (let () (declare (not safe)) - (_g1882518858_ _g1882618862_))))) + (_loop1817818202_ _target1817518196_ '()))) + (let () (declare (not safe)) (_g1817218189_ _g1817318193_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42859 - (list _L17809_ - (gx#stx-map - gx#stx-car - _els17844_)))) - (declare (not safe)) - (_g1882418986_ __tmp42859))))) + (let () + (declare (not safe)) + (_g1817218189_ + _g1817318193_))))) + (__tmp42702 + (gx#stx-map + _slot-name17797_ + _slots17924_))) (declare (not safe)) - (_g1809118706_ __tmp42852)))) - _g1806518076_))) - (__tmp42864 (gx#stx-getq 'constructor: _L17805_))) + (_g1817118989_ __tmp42702)))) + _g1814518156_))) + (__tmp42703 (gx#stx-getq 'constructor: _L17885_))) (declare (not safe)) - (_g1806318990_ __tmp42864)))) + (_g1814318993_ __tmp42703)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1803718048_))) - (__tmp42865 - (let ((_$e18998_ + _g1811718128_))) + (__tmp42704 + (let ((_$e19001_ (gx#stx-getq - 'plist: - _L17805_))) - (if _$e18998_ - _$e18998_ + 'properties: + _L17885_))) + (if _$e19001_ + _$e19001_ (cons (gx#datum->syntax '#f '@list) '()))))) (declare (not safe)) - (_g1803518994_ __tmp42865)))) - _g1800918020_))) - (__tmp42866 - (let ((_$e19006_ - (gx#stx-getq 'name: _L17805_))) - (if _$e19006_ _$e19006_ _L17810_)))) + (_g1811518997_ __tmp42704)))) + _g1808918100_))) + (__tmp42705 + (let ((_$e19009_ + (gx#stx-getq 'name: _L17885_))) + (if _$e19009_ _$e19009_ _L17890_)))) (declare (not safe)) - (_g1800719002_ __tmp42866)))) - _g1798117992_))) - (__tmp42867 - (let ((_$e19014_ (gx#stx-getq 'id: _L17805_))) - (if _$e19014_ - _$e19014_ + (_g1808719005_ __tmp42705)))) + _g1806118072_))) + (__tmp42706 + (let ((_$e19017_ (gx#stx-getq 'id: _L17885_))) + (if _$e19017_ + _$e19017_ (if (gx#module-context? (gx#current-expander-context)) (let () (declare (not safe)) - (_module-type-id17719_ _L17810_)) - (gx#genident _L17810_)))))) + (_module-type-id17799_ _L17890_)) + (gx#genident _L17890_)))))) (declare (not safe)) - (_g1797919010_ __tmp42867)))) + (_g1805919013_ __tmp42706)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1787117939_ - _hd1786817929_ - _hd1786517919_ - _hd1786217909_ - _hd1785917899_ - _hd1785617889_) + _hd1795118019_ + _hd1794818009_ + _hd1794517999_ + _hd1794217989_ + _hd1793917979_ + _hd1793617969_) (let () (declare (not safe)) - (_g1784717878_ - _g1784817882_))))) + (_g1792717958_ + _g1792817962_))))) (let () (declare (not safe)) - (_g1784717878_ _g1784817882_))))) + (_g1792717958_ _g1792817962_))))) (let () (declare (not safe)) - (_g1784717878_ _g1784817882_))))) + (_g1792717958_ _g1792817962_))))) (let () (declare (not safe)) - (_g1784717878_ _g1784817882_))))) - (let () (declare (not safe)) (_g1784717878_ _g1784817882_))))) + (_g1792717958_ _g1792817962_))))) + (let () (declare (not safe)) (_g1792717958_ _g1792817962_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1784717878_ - _g1784817882_))))) + (_g1792717958_ + _g1792817962_))))) (let () (declare (not safe)) - (_g1784717878_ _g1784817882_))))) - (__tmp42868 - (if _struct?17711_ + (_g1792717958_ _g1792817962_))))) + (__tmp42707 + (if _struct?17792_ (cons (gx#datum->syntax '#f 'make-struct-instance) @@ -1445,39 +1346,39 @@ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1784619018_ __tmp42868)) + (_g1792619021_ __tmp42707)) (let () (declare (not safe)) - (_g1772117748_ _g1772217752_)))) - _tl1774017802_ - _hd1774117799_ - _hd1773817789_ - _hd1773517779_ - _hd1773217769_))) - (let () (declare (not safe)) (_g1772117748_ _g1772217752_))))) + (_g1780117828_ _g1780217832_)))) + _tl1782017882_ + _hd1782117879_ + _hd1781817869_ + _hd1781517859_ + _hd1781217849_))) + (let () (declare (not safe)) (_g1780117828_ _g1780217832_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1772117748_ - _g1772217752_))))) + (_g1780117828_ + _g1780217832_))))) (let () (declare (not safe)) - (_g1772117748_ _g1772217752_))))) + (_g1780117828_ _g1780217832_))))) (let () (declare (not safe)) - (_g1772117748_ _g1772217752_))))) + (_g1780117828_ _g1780217832_))))) (let () (declare (not safe)) - (_g1772117748_ _g1772217752_)))))) + (_g1780117828_ _g1780217832_)))))) (declare (not safe)) - (_g1772019022_ _stx17709_))))) + (_g1780019025_ _stx17790_))))) (define |gerbil/core$$[:0:]#defstruct-type| - (lambda (_stx19322_) + (lambda (_stx19270_) (let () (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| _stx19322_ '#t)))) + (|gerbil/core$$[1]#generate-typedef| _stx19270_ '#t)))) (define |gerbil/core$$[:0:]#defclass-type| - (lambda (_stx19325_) + (lambda (_stx19273_) (let () (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| _stx19325_ '#f))))) + (|gerbil/core$$[1]#generate-typedef| _stx19273_ '#f))))) diff --git a/src/bootstrap/gerbil/core__7.scm b/src/bootstrap/gerbil/core__7.scm index 454f73194..1d2b83ea8 100644 --- a/src/bootstrap/gerbil/core__7.scm +++ b/src/bootstrap/gerbil/core__7.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g42912_| + (define |gerbil/core$$[1]#_g42751_| (##structure gx#syntax-quote::t '@method @@ -39,10 +39,10 @@ (make-class-predicate |gerbil/core$$[1]#runtime-struct-info::t|)) (define |gerbil/core$$[1]#make-runtime-struct-info| - (lambda _$args20804_ + (lambda _$args20738_ (apply make-class-instance |gerbil/core$$[1]#runtime-struct-info::t| - _$args20804_))) + _$args20738_))) (define |gerbil/core$$[1]#runtime-class-info::t| (make-class-type 'gerbil.core#runtime-class-info::t @@ -55,10 +55,10 @@ (make-class-predicate |gerbil/core$$[1]#runtime-class-info::t|)) (define |gerbil/core$$[1]#make-runtime-class-info| - (lambda _$args20800_ + (lambda _$args20734_ (apply make-class-instance |gerbil/core$$[1]#runtime-class-info::t| - _$args20800_))) + _$args20734_))) (define |gerbil/core$$[1]#expander-type-info::t| (make-class-type 'gerbil.core#expander-type-info::t @@ -112,10 +112,10 @@ (make-class-predicate |gerbil/core$$[1]#extended-struct-info::t|)) (define |gerbil/core$$[1]#make-extended-struct-info| - (lambda _$args20796_ + (lambda _$args20730_ (apply make-class-instance |gerbil/core$$[1]#extended-struct-info::t| - _$args20796_))) + _$args20730_))) (define |gerbil/core$$[1]#extended-class-info::t| (make-class-type 'gerbil.core#extended-class-info::t @@ -131,10 +131,10 @@ (make-class-predicate |gerbil/core$$[1]#extended-class-info::t|)) (define |gerbil/core$$[1]#make-extended-class-info| - (lambda _$args20792_ + (lambda _$args20726_ (apply make-class-instance |gerbil/core$$[1]#extended-class-info::t| - _$args20792_))) + _$args20726_))) (define |gerbil/core$$[1]#runtime-rtd-exhibitor::t| (make-struct-type 'gerbil.core#runtime-rtd-exhibitor::t @@ -143,7 +143,7 @@ 'runtime-rtd-exhibitor::t '() '#f - '(id super name ctor plist))) + '(id super name constructor properties))) (define |gerbil/core$$[1]#runtime-type-exhibitor?| (make-struct-predicate |gerbil/core$$[1]#runtime-rtd-exhibitor::t|)) @@ -159,11 +159,11 @@ (make-struct-field-accessor |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '2)) - (define |gerbil/core$$[1]#runtime-type-ctor| + (define |gerbil/core$$[1]#runtime-type-constructor| (make-struct-field-accessor |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '3)) - (define |gerbil/core$$[1]#runtime-type-plist| + (define |gerbil/core$$[1]#runtime-type-properties| (make-struct-field-accessor |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '4)) @@ -179,14 +179,22 @@ (make-struct-field-mutator |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '2)) - (define |gerbil/core$$[1]#runtime-type-ctor-set!| + (define |gerbil/core$$[1]#runtime-type-constructor-set!| (make-struct-field-mutator |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '3)) - (define |gerbil/core$$[1]#runtime-type-plist-set!| + (define |gerbil/core$$[1]#runtime-type-properties-set!| (make-struct-field-mutator |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '4)) + (define |gerbil/core$$[1]#runtime-type-ctor| + |gerbil/core$$[1]#runtime-type-constructor|) + (define |gerbil/core$$[1]#runtime-type-ctor-set!| + |gerbil/core$$[1]#runtime-type-constructor-set!|) + (define |gerbil/core$$[1]#runtime-type-plist| + |gerbil/core$$[1]#runtime-type-properties|) + (define |gerbil/core$$[1]#runtime-type-plist-set!| + |gerbil/core$$[1]#runtime-type-properties-set!|) (define |gerbil/core$$[1]#runtime-struct-exhibitor::t| (make-struct-type 'gerbil.core#runtime-struct-exhibitor::t @@ -200,10 +208,10 @@ (make-struct-predicate |gerbil/core$$[1]#runtime-struct-exhibitor::t|)) (define |gerbil/core$$[1]#make-runtime-struct-exhibitor| - (lambda _$args20788_ + (lambda _$args20722_ (apply make-struct-instance |gerbil/core$$[1]#runtime-struct-exhibitor::t| - _$args20788_))) + _$args20722_))) (define |gerbil/core$$[1]#runtime-struct-fields| (make-struct-field-accessor |gerbil/core$$[1]#runtime-struct-exhibitor::t| @@ -225,10 +233,10 @@ (make-struct-predicate |gerbil/core$$[1]#runtime-class-exhibitor::t|)) (define |gerbil/core$$[1]#make-runtime-class-exhibitor| - (lambda _$args20784_ + (lambda _$args20718_ (apply make-struct-instance |gerbil/core$$[1]#runtime-class-exhibitor::t| - _$args20784_))) + _$args20718_))) (define |gerbil/core$$[1]#runtime-class-slots| (make-struct-field-accessor |gerbil/core$$[1]#runtime-class-exhibitor::t| @@ -238,1004 +246,986 @@ |gerbil/core$$[1]#runtime-class-exhibitor::t| '0)) (define |gerbil/core$$[1]#syntax-local-type-info?__%| - (lambda (_stx20758_ _is?20760_) - (if (gx#identifier? _stx20758_) - (let ((_e2076120763_ (gx#syntax-local-value _stx20758_ false))) - (if _e2076120763_ - (let ((_e20767_ _e2076120763_)) + (lambda (_stx20692_ _is?20694_) + (if (gx#identifier? _stx20692_) + (let ((_e2069520697_ (gx#syntax-local-value _stx20692_ false))) + (if _e2069520697_ + (let ((_e20701_ _e2069520697_)) (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#runtime-type-info::t| - _e20767_)) - (_is?20760_ _e20767_) + _e20701_)) + (_is?20694_ _e20701_) '#f)) '#f)) '#f))) (define |gerbil/core$$[1]#syntax-local-type-info?__0| - (lambda (_stx20774_) - (let ((_is?20777_ true)) + (lambda (_stx20708_) + (let ((_is?20711_ true)) (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__%| - _stx20774_ - _is?20777_)))) + _stx20708_ + _is?20711_)))) (define |gerbil/core$$[1]#syntax-local-type-info?| - (lambda _g42870_ - (let ((_g42869_ (let () (declare (not safe)) (##length _g42870_)))) - (cond ((let () (declare (not safe)) (##fx= _g42869_ 1)) - (apply (lambda (_stx20774_) + (lambda _g42709_ + (let ((_g42708_ (let () (declare (not safe)) (##length _g42709_)))) + (cond ((let () (declare (not safe)) (##fx= _g42708_ 1)) + (apply (lambda (_stx20708_) (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__0| - _stx20774_))) - _g42870_)) - ((let () (declare (not safe)) (##fx= _g42869_ 2)) - (apply (lambda (_stx20780_ _is?20782_) + _stx20708_))) + _g42709_)) + ((let () (declare (not safe)) (##fx= _g42708_ 2)) + (apply (lambda (_stx20714_ _is?20716_) (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__%| - _stx20780_ - _is?20782_))) - _g42870_)) + _stx20714_ + _is?20716_))) + _g42709_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$$[1]#syntax-local-type-info?| - _g42870_)))))) + _g42709_)))))) (define |gerbil/core$$[1]#syntax-local-struct-info?| - (lambda (_stx20754_) + (lambda (_stx20688_) (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__%| - _stx20754_ + _stx20688_ |gerbil/core$$[1]#runtime-struct-info?|)))) (define |gerbil/core$$[1]#syntax-local-class-info?| - (lambda (_stx20751_) + (lambda (_stx20685_) (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__%| - _stx20751_ + _stx20685_ |gerbil/core$$[1]#runtime-class-info?|)))) (define |gerbil/core$$[1]#runtime-type-exhibitor-e| - (lambda (_id20745_) - (if _id20745_ - (let ((_info20748_ (gx#syntax-local-value _id20745_))) + (lambda (_id20679_) + (if _id20679_ + (let ((_info20682_ (gx#syntax-local-value _id20679_))) (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#extended-runtime-type-info::t| - _info20748_)) + _info20682_)) (let () (declare (not safe)) - (unchecked-slot-ref _info20748_ 'type-exhibitor)) + (unchecked-slot-ref _info20682_ 'type-exhibitor)) '#f)) '#f))) (define |gerbil/core$$[1]#expander-type-info::apply-macro-expander| - (lambda (_self20510_ _stx20512_) - (let* ((_g2051420534_ - (lambda (_g2051520530_) + (lambda (_self20444_ _stx20446_) + (let* ((_g2044820468_ + (lambda (_g2044920464_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2051520530_))) - (_g2051320741_ - (lambda (_g2051520538_) - (if (gx#stx-pair? _g2051520538_) - (let ((_e2051920541_ (gx#syntax-e _g2051520538_))) - (let ((_hd2051820545_ + _g2044920464_))) + (_g2044720675_ + (lambda (_g2044920472_) + (if (gx#stx-pair? _g2044920472_) + (let ((_e2045320475_ (gx#syntax-e _g2044920472_))) + (let ((_hd2045220479_ (let () (declare (not safe)) - (##car _e2051920541_))) - (_tl2051720548_ + (##car _e2045320475_))) + (_tl2045120482_ (let () (declare (not safe)) - (##cdr _e2051920541_)))) - (if (gx#stx-pair/null? _tl2051720548_) - (let ((_g42871_ + (##cdr _e2045320475_)))) + (if (gx#stx-pair/null? _tl2045120482_) + (let ((_g42710_ (gx#syntax-split-splice - _tl2051720548_ + _tl2045120482_ '0))) (begin - (let ((_g42872_ + (let ((_g42711_ (let () (declare (not safe)) - (if (##values? _g42871_) - (##vector-length _g42871_) + (if (##values? _g42710_) + (##vector-length _g42710_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42872_ 2))) + (##fx= _g42711_ 2))) (error "Context expects 2 values" - _g42872_))) - (let ((_target2052020551_ + _g42711_))) + (let ((_target2045420485_ (let () (declare (not safe)) - (##vector-ref _g42871_ 0))) - (_tl2052220554_ + (##vector-ref _g42710_ 0))) + (_tl2045620488_ (let () (declare (not safe)) - (##vector-ref _g42871_ 1)))) - (if (gx#stx-null? _tl2052220554_) - (letrec ((_loop2052320557_ - (lambda (_hd2052120561_ - _arg2052720564_) + (##vector-ref _g42710_ 1)))) + (if (gx#stx-null? _tl2045620488_) + (letrec ((_loop2045720491_ + (lambda (_hd2045520495_ + _arg2046120498_) (if (gx#stx-pair? - _hd2052120561_) - (let ((_e2052420567_ + _hd2045520495_) + (let ((_e2045820501_ (gx#syntax-e - _hd2052120561_))) - (let ((_lp-hd2052520571_ + _hd2045520495_))) + (let ((_lp-hd2045920505_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e2052420567_))) - (_lp-tl2052620574_ - (let () (declare (not safe)) (##cdr _e2052420567_)))) - (let ((__tmp42874 - (cons _lp-hd2052520571_ _arg2052720564_))) + (let () (declare (not safe)) (##car _e2045820501_))) + (_lp-tl2046020508_ + (let () (declare (not safe)) (##cdr _e2045820501_)))) + (let ((__tmp42713 + (cons _lp-hd2045920505_ _arg2046120498_))) (declare (not safe)) - (_loop2052320557_ _lp-tl2052620574_ __tmp42874)))) - (let ((_arg2052820577_ (reverse _arg2052720564_))) - ((lambda (_L20581_) - (let* ((_g2059720628_ - (lambda (_g2059820624_) + (_loop2045720491_ _lp-tl2046020508_ __tmp42713)))) + (let ((_arg2046220511_ (reverse _arg2046120498_))) + ((lambda (_L20515_) + (let* ((_g2053120562_ + (lambda (_g2053220558_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2059820624_))) - (_g2059620737_ - (lambda (_g2059820632_) - (if (gx#stx-pair? _g2059820632_) - (let ((_e2060720635_ - (gx#syntax-e _g2059820632_))) - (let ((_hd2060620639_ + _g2053220558_))) + (_g2053020671_ + (lambda (_g2053220566_) + (if (gx#stx-pair? _g2053220566_) + (let ((_e2054120569_ + (gx#syntax-e _g2053220566_))) + (let ((_hd2054020573_ (let () (declare (not safe)) - (##car _e2060720635_))) - (_tl2060520642_ + (##car _e2054120569_))) + (_tl2053920576_ (let () (declare (not safe)) - (##cdr _e2060720635_)))) - (if (gx#stx-pair? _tl2060520642_) - (let ((_e2061020645_ + (##cdr _e2054120569_)))) + (if (gx#stx-pair? _tl2053920576_) + (let ((_e2054420579_ (gx#syntax-e - _tl2060520642_))) - (let ((_hd2060920649_ + _tl2053920576_))) + (let ((_hd2054320583_ (let () (declare (not safe)) - (##car _e2061020645_))) - (_tl2060820652_ + (##car _e2054420579_))) + (_tl2054220586_ (let () (declare (not safe)) - (##cdr _e2061020645_)))) + (##cdr _e2054420579_)))) (if (gx#stx-pair? - _tl2060820652_) - (let ((_e2061320655_ + _tl2054220586_) + (let ((_e2054720589_ (gx#syntax-e - _tl2060820652_))) - (let ((_hd2061220659_ + _tl2054220586_))) + (let ((_hd2054620593_ (let () (declare (not safe)) - (##car _e2061320655_))) - (_tl2061120662_ + (##car _e2054720589_))) + (_tl2054520596_ (let () (declare (not safe)) - (##cdr _e2061320655_)))) + (##cdr _e2054720589_)))) (if (gx#stx-pair? - _tl2061120662_) - (let ((_e2061620665_ + _tl2054520596_) + (let ((_e2055020599_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2061120662_))) - (let ((_hd2061520669_ + (gx#syntax-e _tl2054520596_))) + (let ((_hd2054920603_ (let () (declare (not safe)) - (##car _e2061620665_))) - (_tl2061420672_ + (##car _e2055020599_))) + (_tl2054820606_ (let () (declare (not safe)) - (##cdr _e2061620665_)))) - (if (gx#stx-pair? _tl2061420672_) - (let ((_e2061920675_ (gx#syntax-e _tl2061420672_))) - (let ((_hd2061820679_ + (##cdr _e2055020599_)))) + (if (gx#stx-pair? _tl2054820606_) + (let ((_e2055320609_ (gx#syntax-e _tl2054820606_))) + (let ((_hd2055220613_ (let () (declare (not safe)) - (##car _e2061920675_))) - (_tl2061720682_ + (##car _e2055320609_))) + (_tl2055120616_ (let () (declare (not safe)) - (##cdr _e2061920675_)))) - (if (gx#stx-pair? _tl2061720682_) - (let ((_e2062220685_ - (gx#syntax-e _tl2061720682_))) - (let ((_hd2062120689_ + (##cdr _e2055320609_)))) + (if (gx#stx-pair? _tl2055120616_) + (let ((_e2055620619_ + (gx#syntax-e _tl2055120616_))) + (let ((_hd2055520623_ (let () (declare (not safe)) - (##car _e2062220685_))) - (_tl2062020692_ + (##car _e2055620619_))) + (_tl2055420626_ (let () (declare (not safe)) - (##cdr _e2062220685_)))) - (if (gx#stx-null? _tl2062020692_) - ((lambda (_L20695_ - _L20697_ - _L20698_ - _L20699_ - _L20700_ - _L20701_) + (##cdr _e2055620619_)))) + (if (gx#stx-null? _tl2055420626_) + ((lambda (_L20629_ + _L20631_ + _L20632_ + _L20633_ + _L20634_ + _L20635_) (let () - (cons _L20699_ - (foldr (lambda (_g2072820731_ + (cons _L20633_ + (foldr (lambda (_g2066220665_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2072920734_) - (cons _g2072820731_ _g2072920734_)) + _g2066320668_) + (cons _g2066220665_ _g2066320668_)) '() - _L20581_)))) + _L20515_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2062120689_ - _hd2061820679_ - _hd2061520669_ - _hd2061220659_ - _hd2060920649_ - _hd2060620639_) + _hd2055520623_ + _hd2055220613_ + _hd2054920603_ + _hd2054620593_ + _hd2054320583_ + _hd2054020573_) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) + (_g2053120562_ _g2053220566_))))) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) + (_g2053120562_ _g2053220566_))))) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) + (_g2053120562_ _g2053220566_))))) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) + (_g2053120562_ _g2053220566_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2059720628_ - _g2059820632_))))) + (_g2053120562_ + _g2053220566_))))) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) + (_g2053120562_ _g2053220566_))))) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) - (__tmp42873 + (_g2053120562_ _g2053220566_))))) + (__tmp42712 (let () (declare (not safe)) (unchecked-slot-ref - _self20510_ + _self20444_ 'expander-identifiers)))) (declare (not safe)) - (_g2059620737_ __tmp42873))) - _arg2052820577_)))))) + (_g2053020671_ __tmp42712))) + _arg2046220511_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2052320557_ - _target2052020551_ + (_loop2045720491_ + _target2045420485_ '()))) (let () (declare (not safe)) - (_g2051420534_ _g2051520538_)))))) + (_g2044820468_ _g2044920472_)))))) (let () (declare (not safe)) - (_g2051420534_ _g2051520538_))))) + (_g2044820468_ _g2044920472_))))) (let () (declare (not safe)) - (_g2051420534_ _g2051520538_)))))) + (_g2044820468_ _g2044920472_)))))) (declare (not safe)) - (_g2051320741_ _stx20512_)))) + (_g2044720675_ _stx20446_)))) (bind-method! |gerbil/core$$[1]#expander-type-info::t| 'apply-macro-expander |gerbil/core$$[1]#expander-type-info::apply-macro-expander|) (define |gerbil/core$$[1]#typedef-body?| - (lambda (_stx20501_) - (letrec ((_body-opt?20504_ - (lambda (_key20507_) - (memq (gx#stx-e _key20507_) + (lambda (_stx20435_) + (letrec ((_body-opt?20438_ + (lambda (_key20441_) + (memq (gx#stx-e _key20441_) '(id: name: constructor: transparent: final: - plist: + properties: unchecked: print: equal:))))) - (gx#stx-plist? _stx20501_ _body-opt?20504_)))) + (gx#stx-plist? _stx20435_ _body-opt?20438_)))) (define |gerbil/core$$[1]#generate-typedef| - (lambda (_stx19329_ - _id19331_ - _super-ref19332_ - _els19333_ - _body19334_ - _struct?19335_) - (letrec* ((_wrap19337_ - (lambda (_e-stx20498_) + (lambda (_stx19277_ + _id19279_ + _super-ref19280_ + _slots19281_ + _body19282_ + _struct?19283_) + (letrec* ((_wrap19285_ + (lambda (_e-stx20432_) (gx#stx-wrap-source - _e-stx20498_ - (gx#stx-source _stx19329_)))) - (_make-id19339_ - (if (uninterned-symbol? (gx#stx-e _id19331_)) - (lambda _g42875_ (gx#genident _id19331_)) - (lambda _args20495_ - (apply gx#stx-identifier _id19331_ _args20495_))))) - (gx#check-duplicate-identifiers _els19333_ _stx19329_) - (let* ((_name19341_ (symbol->string (gx#stx-e _id19331_))) - (_super19344_ - (if _struct?19335_ - (if _super-ref19332_ - (gx#syntax-local-value _super-ref19332_) + _e-stx20432_ + (gx#stx-source _stx19277_)))) + (_make-id19287_ + (if (uninterned-symbol? (gx#stx-e _id19279_)) + (lambda _g42714_ (gx#genident _id19279_)) + (lambda _args20429_ + (apply gx#stx-identifier _id19279_ _args20429_))))) + (gx#check-duplicate-identifiers _slots19281_ _stx19277_) + (let* ((_name19289_ (symbol->string (gx#stx-e _id19279_))) + (_super19292_ + (if _struct?19283_ + (if _super-ref19280_ + (gx#syntax-local-value _super-ref19280_) '#f) - (map gx#syntax-local-value _super-ref19332_))) - (_g1934719355_ - (lambda (_g1934819351_) + (map gx#syntax-local-value _super-ref19280_))) + (_g1929519303_ + (lambda (_g1929619299_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1934819351_))) - (_g1934620489_ - (lambda (_g1934819359_) - ((lambda (_L19362_) + _g1929619299_))) + (_g1929420423_ + (lambda (_g1929619307_) + ((lambda (_L19310_) (let () - (let* ((_g1937819386_ - (lambda (_g1937919382_) + (let* ((_g1932619334_ + (lambda (_g1932719330_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1937919382_))) - (_g1937720485_ - (lambda (_g1937919390_) - ((lambda (_L19393_) + _g1932719330_))) + (_g1932520419_ + (lambda (_g1932719338_) + ((lambda (_L19341_) (let () - (let* ((_g1940619414_ - (lambda (_g1940719410_) + (let* ((_g1935419362_ + (lambda (_g1935519358_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1940719410_))) - (_g1940520481_ - (lambda (_g1940719418_) - ((lambda (_L19421_) + _g1935519358_))) + (_g1935320415_ + (lambda (_g1935519366_) + ((lambda (_L19369_) (let () - (let* ((_g1943419442_ - (lambda (_g1943519438_) + (let* ((_g1938219390_ + (lambda (_g1938319386_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1943519438_))) - (_g1943320477_ - (lambda (_g1943519446_) - ((lambda (_L19449_) + _g1938319386_))) + (_g1938120411_ + (lambda (_g1938319394_) + ((lambda (_L19397_) (let () - (let* ((_g1946219470_ - (lambda (_g1946319466_) + (let* ((_g1941019418_ + (lambda (_g1941119414_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1946319466_))) - (_g1946120473_ - (lambda (_g1946319474_) - ((lambda (_L19477_) + _g1941119414_))) + (_g1940920407_ + (lambda (_g1941119422_) + ((lambda (_L19425_) (let () - (let* ((_g1949019498_ - (lambda (_g1949119494_) + (let* ((_g1943819446_ + (lambda (_g1943919442_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1949119494_))) - (_g1948920469_ - (lambda (_g1949119502_) - ((lambda (_L19505_) + _g1943919442_))) + (_g1943720403_ + (lambda (_g1943919450_) + ((lambda (_L19453_) (let () - (let* ((_g1951819535_ + (let* ((_g1946619483_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1951919531_) + (lambda (_g1946719479_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1951919531_))) - (_g1951720465_ - (lambda (_g1951919539_) - (if (gx#stx-pair/null? _g1951919539_) - (let ((_g42876_ + _g1946719479_))) + (_g1946520399_ + (lambda (_g1946719487_) + (if (gx#stx-pair/null? _g1946719487_) + (let ((_g42715_ (gx#syntax-split-splice - _g1951919539_ + _g1946719487_ '0))) (begin - (let ((_g42877_ + (let ((_g42716_ (let () (declare (not safe)) - (if (##values? _g42876_) - (##vector-length _g42876_) + (if (##values? _g42715_) + (##vector-length _g42715_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42877_ 2))) + (##fx= _g42716_ 2))) (error "Context expects 2 values" - _g42877_))) - (let ((_target1952119542_ + _g42716_))) + (let ((_target1946919490_ (let () (declare (not safe)) - (##vector-ref _g42876_ 0))) - (_tl1952319545_ + (##vector-ref _g42715_ 0))) + (_tl1947119493_ (let () (declare (not safe)) - (##vector-ref _g42876_ 1)))) - (if (gx#stx-null? _tl1952319545_) - (letrec ((_loop1952419548_ - (lambda (_hd1952219552_ - _attr1952819555_) + (##vector-ref _g42715_ 1)))) + (if (gx#stx-null? _tl1947119493_) + (letrec ((_loop1947219496_ + (lambda (_hd1947019500_ + _slot1947619503_) (if (gx#stx-pair? - _hd1952219552_) - (let ((_e1952519558_ + _hd1947019500_) + (let ((_e1947319506_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1952219552_))) - (let ((_lp-hd1952619562_ + (gx#syntax-e _hd1947019500_))) + (let ((_lp-hd1947419510_ (let () (declare (not safe)) - (##car _e1952519558_))) - (_lp-tl1952719565_ + (##car _e1947319506_))) + (_lp-tl1947519513_ (let () (declare (not safe)) - (##cdr _e1952519558_)))) - (let ((__tmp42905 - (cons _lp-hd1952619562_ _attr1952819555_))) + (##cdr _e1947319506_)))) + (let ((__tmp42744 + (cons _lp-hd1947419510_ _slot1947619503_))) (declare (not safe)) - (_loop1952419548_ _lp-tl1952719565_ __tmp42905)))) - (let ((_attr1952919568_ (reverse _attr1952819555_))) - ((lambda (_L19572_) + (_loop1947219496_ _lp-tl1947519513_ __tmp42744)))) + (let ((_slot1947719516_ (reverse _slot1947619503_))) + ((lambda (_L19520_) (let () - (let* ((_g1958919606_ - (lambda (_g1959019602_) + (let* ((_g1953719554_ + (lambda (_g1953819550_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1959019602_))) - (_g1958820456_ - (lambda (_g1959019610_) - (if (gx#stx-pair/null? _g1959019610_) - (let ((_g42878_ + _g1953819550_))) + (_g1953620390_ + (lambda (_g1953819558_) + (if (gx#stx-pair/null? _g1953819558_) + (let ((_g42717_ (gx#syntax-split-splice - _g1959019610_ + _g1953819558_ '0))) (begin - (let ((_g42879_ + (let ((_g42718_ (let () (declare (not safe)) - (if (##values? _g42878_) + (if (##values? _g42717_) (##vector-length - _g42878_) + _g42717_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42879_ 2))) + (##fx= _g42718_ 2))) (error "Context expects 2 values" - _g42879_))) - (let ((_target1959219613_ + _g42718_))) + (let ((_target1954019561_ (let () (declare (not safe)) (##vector-ref - _g42878_ + _g42717_ 0))) - (_tl1959419616_ + (_tl1954219564_ (let () (declare (not safe)) (##vector-ref - _g42878_ + _g42717_ 1)))) (if (gx#stx-null? - _tl1959419616_) - (letrec ((_loop1959519619_ - (lambda (_hd1959319623_ + _tl1954219564_) + (letrec ((_loop1954319567_ + (lambda (_hd1954119571_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _getf1959919626_) - (if (gx#stx-pair? _hd1959319623_) - (let ((_e1959619629_ (gx#syntax-e _hd1959319623_))) - (let ((_lp-hd1959719633_ + _getf1954719574_) + (if (gx#stx-pair? _hd1954119571_) + (let ((_e1954419577_ (gx#syntax-e _hd1954119571_))) + (let ((_lp-hd1954519581_ (let () (declare (not safe)) - (##car _e1959619629_))) - (_lp-tl1959819636_ + (##car _e1954419577_))) + (_lp-tl1954619584_ (let () (declare (not safe)) - (##cdr _e1959619629_)))) - (let ((__tmp42903 - (cons _lp-hd1959719633_ - _getf1959919626_))) + (##cdr _e1954419577_)))) + (let ((__tmp42742 + (cons _lp-hd1954519581_ + _getf1954719574_))) (declare (not safe)) - (_loop1959519619_ - _lp-tl1959819636_ - __tmp42903)))) - (let ((_getf1960019639_ (reverse _getf1959919626_))) - ((lambda (_L19643_) + (_loop1954319567_ + _lp-tl1954619584_ + __tmp42742)))) + (let ((_getf1954819587_ (reverse _getf1954719574_))) + ((lambda (_L19591_) (let () - (let* ((_g1966019677_ - (lambda (_g1966119673_) + (let* ((_g1960819625_ + (lambda (_g1960919621_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1966119673_))) - (_g1965920447_ - (lambda (_g1966119681_) + _g1960919621_))) + (_g1960720381_ + (lambda (_g1960919629_) (if (gx#stx-pair/null? - _g1966119681_) - (let ((_g42880_ + _g1960919629_) + (let ((_g42719_ (gx#syntax-split-splice - _g1966119681_ + _g1960919629_ '0))) (begin - (let ((_g42881_ + (let ((_g42720_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42880_) - (##vector-length _g42880_) + _g42719_) + (##vector-length _g42719_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42881_ 2))) - (error "Context expects 2 values" _g42881_))) + (if (not (let () (declare (not safe)) (##fx= _g42720_ 2))) + (error "Context expects 2 values" _g42720_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1966319684_ + (let ((_target1961119632_ (let () (declare (not safe)) (##vector-ref - _g42880_ + _g42719_ 0))) - (_tl1966519687_ + (_tl1961319635_ (let () (declare (not safe)) (##vector-ref - _g42880_ + _g42719_ 1)))) (if (gx#stx-null? - _tl1966519687_) - (letrec ((_loop1966619690_ + _tl1961319635_) + (letrec ((_loop1961419638_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1966419694_ _setf1967019697_) - (if (gx#stx-pair? _hd1966419694_) - (let ((_e1966719700_ - (gx#syntax-e _hd1966419694_))) - (let ((_lp-hd1966819704_ + (lambda (_hd1961219642_ _setf1961819645_) + (if (gx#stx-pair? _hd1961219642_) + (let ((_e1961519648_ + (gx#syntax-e _hd1961219642_))) + (let ((_lp-hd1961619652_ (let () (declare (not safe)) - (##car _e1966719700_))) - (_lp-tl1966919707_ + (##car _e1961519648_))) + (_lp-tl1961719655_ (let () (declare (not safe)) - (##cdr _e1966719700_)))) - (let ((__tmp42901 - (cons _lp-hd1966819704_ - _setf1967019697_))) + (##cdr _e1961519648_)))) + (let ((__tmp42740 + (cons _lp-hd1961619652_ + _setf1961819645_))) (declare (not safe)) - (_loop1966619690_ - _lp-tl1966919707_ - __tmp42901)))) - (let ((_setf1967119710_ - (reverse _setf1967019697_))) - ((lambda (_L19714_) + (_loop1961419638_ + _lp-tl1961719655_ + __tmp42740)))) + (let ((_setf1961919658_ + (reverse _setf1961819645_))) + ((lambda (_L19662_) (let () - (let* ((_type-attr19759_ - (if (gx#stx-null? _els19333_) + (let* ((_type-attr19693_ + (if (gx#stx-null? + _slots19281_) '() - (if _struct?19335_ - (cons 'fields: - (cons (begin + (cons 'slots: + (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-check-splice-targets - _L19714_ - _L19643_ - _L19572_) - (foldr (lambda (_g1973019735_ - _g1973119738_ - _g1973219740_ - _g1973319742_) - (cons (cons _g1973219740_ - (cons _g1973119738_ - (cons _g1973019735_ - '()))) - _g1973319742_)) - '() - _L19714_ - _L19643_ - _L19572_)) - '())) - (cons 'slots: - (cons (begin - (gx#syntax-check-splice-targets - _L19714_ - _L19643_ - _L19572_) - (foldr (lambda (_g1974419749_ - _g1974519752_ - _g1974619754_ - _g1974719756_) - (cons (cons _g1974619754_ - (cons _g1974519752_ - (cons _g1974419749_ - '()))) - _g1974719756_)) - '() - _L19714_ - _L19643_ - _L19572_)) - '()))))) + (gx#syntax-check-splice-targets + _L19662_ + _L19591_ + _L19520_) + (foldr (lambda (_g1967819683_ + _g1967919686_ + _g1968019688_ + _g1968119690_) + (cons (cons _g1968019688_ + (cons _g1967919686_ + (cons _g1967819683_ + '()))) + _g1968119690_)) + '() + _L19662_ + _L19591_ + _L19520_)) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_type-name19766_ + (_type-name19700_ (cons 'name: - (cons (let ((_$e19762_ + (cons (let ((_$e19696_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'name: _body19334_))) - (if _$e19762_ _$e19762_ _id19331_)) + (gx#stx-getq 'name: _body19282_))) + (if _$e19696_ _$e19696_ _id19279_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_type-id19781_ - (let ((_$e19777_ - (let ((_e1976819770_ + (_type-id19715_ + (let ((_$e19711_ + (let ((_e1970219704_ (gx#stx-getq 'id: - _body19334_))) - (if _e1976819770_ - (let ((_e19774_ + _body19282_))) + (if _e1970219704_ + (let ((_e19708_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e1976819770_)) - (cons 'id: (cons _e19774_ '()))) + _e1970219704_)) + (cons 'id: (cons _e19708_ '()))) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e19777_ - _$e19777_ + (if _$e19711_ + _$e19711_ '()))) - (_type-ctor19796_ - (let ((_$e19792_ - (let ((_e1978319785_ + (_type-constructor19730_ + (let ((_$e19726_ + (let ((_e1971719719_ (gx#stx-getq 'constructor: - _body19334_))) - (if _e1978319785_ - (let ((_e19789_ + _body19282_))) + (if _e1971719719_ + (let ((_e19723_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e1978319785_)) - (cons 'constructor: (cons _e19789_ '()))) + _e1971719719_)) + (cons 'constructor: (cons _e19723_ '()))) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e19792_ - _$e19792_ + (if _$e19726_ + _$e19726_ '()))) - (_plist19840_ - (let* ((_plist19803_ - (let ((_$e19799_ + (_properties19774_ + (let* ((_properties19737_ + (let ((_$e19733_ (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 'plist: - _body19334_))) - (if _$e19799_ _$e19799_ '()))) - (_plist19806_ - (if (gx#stx-e (gx#stx-getq 'transparent: _body19334_)) - (cons (cons 'transparent: '#t) _plist19803_) - _plist19803_)) - (_plist19809_ - (if (gx#stx-e (gx#stx-getq 'final: _body19334_)) - (cons (cons 'final: '#t) _plist19806_) - _plist19806_)) - (_plist19822_ - (let ((_$e19812_ - (gx#stx-e (gx#stx-getq 'print: _body19334_)))) - (if _$e19812_ - ((lambda (_print19816_) - (let ((_print19819_ - (if (eq? _print19816_ '#t) - _els19333_ - _print19816_))) - (cons (cons 'print: _print19819_) _plist19809_))) - _$e19812_) - _plist19809_))) - (_plist19835_ - (let ((_$e19825_ - (gx#stx-e (gx#stx-getq 'equal: _body19334_)))) - (if _$e19825_ - ((lambda (_equal19829_) - (let ((_equal19832_ - (if (eq? _equal19829_ '#t) - _els19333_ - _equal19829_))) - (cons (cons 'equal: _equal19832_) _plist19822_))) - _$e19825_) - _plist19822_)))) + 'properties: + _body19282_))) + (if _$e19733_ _$e19733_ '()))) + (_properties19740_ + (if (gx#stx-e (gx#stx-getq 'transparent: _body19282_)) + (cons (cons 'transparent: '#t) _properties19737_) + _properties19737_)) + (_properties19743_ + (if (gx#stx-e (gx#stx-getq 'final: _body19282_)) + (cons (cons 'final: '#t) _properties19740_) + _properties19740_)) + (_properties19756_ + (let ((_$e19746_ + (gx#stx-e (gx#stx-getq 'print: _body19282_)))) + (if _$e19746_ + ((lambda (_print19750_) + (let ((_print19753_ + (if (eq? _print19750_ '#t) + _slots19281_ + _print19750_))) + (cons (cons 'print: _print19753_) + _properties19743_))) + _$e19746_) + _properties19743_))) + (_properties19769_ + (let ((_$e19759_ + (gx#stx-e (gx#stx-getq 'equal: _body19282_)))) + (if _$e19759_ + ((lambda (_equal19763_) + (let ((_equal19766_ + (if (eq? _equal19763_ '#t) + _slots19281_ + _equal19763_))) + (cons (cons 'equal: _equal19766_) + _properties19756_))) + _$e19759_) + _properties19756_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _plist19835_)) - (_type-plist19880_ - (if (null? _plist19840_) - _plist19840_ - (let* ((_g1984319851_ - (lambda (_g1984419847_) + _properties19769_)) + (_type-properties19814_ + (if (null? _properties19774_) + _properties19774_ + (let* ((_g1977719785_ + (lambda (_g1977819781_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1984419847_))) - (_g1984219876_ - (lambda (_g1984419855_) - ((lambda (_L19858_) + _g1977819781_))) + (_g1977619810_ + (lambda (_g1977819789_) + ((lambda (_L19792_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (cons 'plist: + (cons 'properties: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L19858_ '())) + (cons _L19792_ '())) '())))) - _g1984419855_)))) + _g1977819789_)))) (declare (not safe)) - (_g1984219876_ _plist19840_)))) + (_g1977619810_ _properties19774_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_type-unchecked19895_ - (let ((_$e19891_ - (let ((_e1988219884_ + (_type-unchecked19829_ + (let ((_$e19825_ + (let ((_e1981619818_ (gx#stx-getq 'unchecked: - _body19334_))) - (if _e1988219884_ - (let ((_e19888_ + _body19282_))) + (if _e1981619818_ + (let ((_e19822_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e1988219884_)) - (cons 'unchecked: (cons _e19888_ '()))) + _e1981619818_)) + (cons 'unchecked: (cons _e19822_ '()))) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e19891_ - _$e19891_ + (if _$e19825_ + _$e19825_ (cons 'unchecked: (cons '#t '()))))) - (_g1989819915_ - (lambda (_g1989919911_) + (_g1983219849_ + (lambda (_g1983319845_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1989919911_))) - (_g1989720443_ - (lambda (_g1989919919_) + _g1983319845_))) + (_g1983120377_ + (lambda (_g1983319853_) (if (gx#stx-pair/null? - _g1989919919_) - (let ((_g42882_ + _g1983319853_) + (let ((_g42721_ (gx#syntax-split-splice - _g1989919919_ + _g1983319853_ '0))) (begin - (let ((_g42883_ + (let ((_g42722_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g42882_) - (##vector-length _g42882_) + (if (##values? _g42721_) + (##vector-length _g42721_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42883_ 2))) - (error "Context expects 2 values" _g42883_))) - (let ((_target1990119922_ + (if (not (let () (declare (not safe)) (##fx= _g42722_ 2))) + (error "Context expects 2 values" _g42722_))) + (let ((_target1983519856_ (let () (declare (not safe)) - (##vector-ref _g42882_ 0))) - (_tl1990319925_ + (##vector-ref _g42721_ 0))) + (_tl1983719859_ (let () (declare (not safe)) - (##vector-ref _g42882_ 1)))) - (if (gx#stx-null? _tl1990319925_) - (letrec ((_loop1990419928_ - (lambda (_hd1990219932_ - _type-body1990819935_) - (if (gx#stx-pair? _hd1990219932_) - (let ((_e1990519938_ - (gx#syntax-e _hd1990219932_))) - (let ((_lp-hd1990619942_ + (##vector-ref _g42721_ 1)))) + (if (gx#stx-null? _tl1983719859_) + (letrec ((_loop1983819862_ + (lambda (_hd1983619866_ + _type-body1984219869_) + (if (gx#stx-pair? _hd1983619866_) + (let ((_e1983919872_ + (gx#syntax-e _hd1983619866_))) + (let ((_lp-hd1984019876_ (let () (declare (not safe)) - (##car _e1990519938_))) - (_lp-tl1990719945_ + (##car _e1983919872_))) + (_lp-tl1984119879_ (let () (declare (not safe)) - (##cdr _e1990519938_)))) - (let ((__tmp42899 - (cons _lp-hd1990619942_ - _type-body1990819935_))) + (##cdr _e1983919872_)))) + (let ((__tmp42738 + (cons _lp-hd1984019876_ + _type-body1984219869_))) (declare (not safe)) - (_loop1990419928_ - _lp-tl1990719945_ - __tmp42899)))) - (let ((_type-body1990919948_ - (reverse _type-body1990819935_))) - ((lambda (_L19952_) + (_loop1983819862_ + _lp-tl1984119879_ + __tmp42738)))) + (let ((_type-body1984319882_ + (reverse _type-body1984219869_))) + ((lambda (_L19886_) (let () - (let* ((_g1996919977_ - (lambda (_g1997019973_) + (let* ((_g1990319911_ + (lambda (_g1990419907_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1997019973_))) - (_g1996820431_ - (lambda (_g1997019981_) - ((lambda (_L19984_) + _g1990419907_))) + (_g1990220365_ + (lambda (_g1990419915_) + ((lambda (_L19918_) (let () - (let* ((_g1999720005_ + (let* ((_g1993119939_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1999820001_) + (lambda (_g1993219935_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1999820001_))) - (_g1999620427_ - (lambda (_g1999820009_) - ((lambda (_L20012_) + _g1993219935_))) + (_g1993020361_ + (lambda (_g1993219943_) + ((lambda (_L19946_) (let () - (let* ((_g2002520033_ - (lambda (_g2002620029_) + (let* ((_g1995919967_ + (lambda (_g1996019963_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2002620029_))) - (_g2002420341_ - (lambda (_g2002620037_) - ((lambda (_L20040_) + _g1996019963_))) + (_g1995820275_ + (lambda (_g1996019971_) + ((lambda (_L19974_) (let () - (let* ((_g2005320061_ - (lambda (_g2005420057_) + (let* ((_g1998719995_ + (lambda (_g1998819991_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2005420057_))) - (_g2005220337_ - (lambda (_g2005420065_) - ((lambda (_L20068_) + _g1998819991_))) + (_g1998620271_ + (lambda (_g1998819999_) + ((lambda (_L20002_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2008120089_ - (lambda (_g2008220085_) + (let* ((_g2001520023_ + (lambda (_g2001620019_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2008220085_))) - (_g2008020333_ - (lambda (_g2008220093_) - ((lambda (_L20096_) + _g2001620019_))) + (_g2001420267_ + (lambda (_g2001620027_) + ((lambda (_L20030_) (let () - (let* ((_g2010920117_ - (lambda (_g2011020113_) + (let* ((_g2004320051_ + (lambda (_g2004420047_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2011020113_))) - (_g2010820291_ - (lambda (_g2011020121_) - ((lambda (_L20124_) + _g2004420047_))) + (_g2004220225_ + (lambda (_g2004420055_) + ((lambda (_L20058_) (let () - (let* ((_g2013720145_ + (let* ((_g2007120079_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2013820141_) + (lambda (_g2007220075_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2013820141_))) - (_g2013620287_ - (lambda (_g2013820149_) - ((lambda (_L20152_) + _g2007220075_))) + (_g2007020221_ + (lambda (_g2007220083_) + ((lambda (_L20086_) (let () - (let* ((_g2016520173_ - (lambda (_g2016620169_) + (let* ((_g2009920107_ + (lambda (_g2010020103_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2016620169_))) - (_g2016420283_ - (lambda (_g2016620177_) - ((lambda (_L20180_) + _g2010020103_))) + (_g2009820217_ + (lambda (_g2010020111_) + ((lambda (_L20114_) (let () - (let* ((_g2019320201_ - (lambda (_g2019420197_) + (let* ((_g2012720135_ + (lambda (_g2012820131_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2019420197_))) - (_g2019220279_ - (lambda (_g2019420205_) - ((lambda (_L20208_) + _g2012820131_))) + (_g2012620213_ + (lambda (_g2012820139_) + ((lambda (_L20142_) (let () - (let* ((_g2022120229_ + (let* ((_g2015520163_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2022220225_) + (lambda (_g2015620159_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2022220225_))) - (_g2022020251_ - (lambda (_g2022220233_) - ((lambda (_L20236_) + _g2015620159_))) + (_g2015420185_ + (lambda (_g2015620167_) + ((lambda (_L20170_) (let () (let () - (let ((__tmp42884 + (let ((__tmp42723 (cons (gx#datum->syntax '#f 'begin) - (cons _L19984_ - (cons _L20236_ + (cons _L19918_ + (cons _L20170_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19337_ __tmp42884))))) - _g2022220233_))) - (__tmp42885 - (let ((__tmp42886 + (_wrap19285_ __tmp42723))))) + _g2015620167_))) + (__tmp42724 + (let ((__tmp42725 (cons (gx#datum->syntax '#f 'defsyntax) - (cons _L19393_ - (cons (cons _L20012_ + (cons _L19341_ + (cons (cons _L19946_ (cons 'runtime-identifier: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L19421_ '())) + (cons _L19369_ '())) (cons 'expander-identifiers: (cons (cons (gx#datum->syntax '#f '@list) - (cons _L20040_ + (cons _L19974_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _L19421_ '())) + (cons _L19369_ '())) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L19449_ '())) + (cons _L19397_ '())) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L19477_ '())) + (cons _L19425_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2025820261_ - _g2025920264_) + (foldr (lambda (_g2019220195_ + _g2019320198_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _g2025820261_ '())) - _g2025920264_)) + (cons _g2019220195_ '())) + _g2019320198_)) '() - _L19643_)) + _L19591_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2025620267_ + (foldr (lambda (_g2019020201_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2025720270_) + _g2019120204_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _g2025620267_ '())) - _g2025720270_)) + (cons _g2019020201_ '())) + _g2019120204_)) '() - _L19714_)) + _L19662_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'type-exhibitor: - (cons (cons _L20068_ + (cons (cons _L20002_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L20096_ '())) - (cons _L20124_ + (cons _L20030_ '())) + (cons _L20058_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20152_ '())) + (cons _L20086_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20180_ '())) + (cons _L20114_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20208_ + (cons _L20142_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_g2025420273_ _g2025520276_) - (cons _g2025420273_ _g2025520276_)) + (cons (foldr (lambda (_g2018820207_ _g2018920210_) + (cons _g2018820207_ _g2018920210_)) '() - _L19572_) + _L19520_) '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1244,188 +1234,188 @@ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19337_ __tmp42886)))) + (_wrap19285_ __tmp42725)))) (declare (not safe)) - (_g2022020251_ __tmp42885)))) - _g2019420205_)))) + (_g2015420185_ __tmp42724)))) + _g2012820139_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2019220279_ - _plist19840_)))) - _g2016620177_))) - (__tmp42887 - (if (not (null? _type-ctor19796_)) - (cadr _type-ctor19796_) + (_g2012620213_ + _properties19774_)))) + _g2010020111_))) + (__tmp42726 + (if (not (null? _type-constructor19730_)) + (cadr _type-constructor19730_) '#f))) (declare (not safe)) - (_g2016420283_ __tmp42887)))) - _g2013820149_))) - (__tmp42888 (cadr _type-name19766_))) + (_g2009820217_ __tmp42726)))) + _g2007220083_))) + (__tmp42727 (cadr _type-name19700_))) (declare (not safe)) - (_g2013620287_ __tmp42888)))) - _g2011020121_))) + (_g2007020221_ __tmp42727)))) + _g2004420055_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42889 - (let ((_quote-e20330_ - (lambda (_x-ref20295_) - (if _x-ref20295_ - (let* ((_g2029820306_ + (__tmp42728 + (let ((_quote-e20264_ + (lambda (_x-ref20229_) + (if _x-ref20229_ + (let* ((_g2023220240_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2029920302_) + (lambda (_g2023320236_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2029920302_))) - (_g2029720326_ - (lambda (_g2029920310_) - ((lambda (_L20313_) + _g2023320236_))) + (_g2023120260_ + (lambda (_g2023320244_) + ((lambda (_L20247_) (let () (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L20313_ '())))) - _g2029920310_)))) + (cons _L20247_ '())))) + _g2023320244_)))) (declare (not safe)) - (_g2029720326_ _x-ref20295_)) + (_g2023120260_ _x-ref20229_)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _struct?19335_ + (if _struct?19283_ (let () (declare (not safe)) - (_quote-e20330_ - _super-ref19332_)) + (_quote-e20264_ + _super-ref19280_)) (cons 'list - (map _quote-e20330_ + (map _quote-e20264_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _super-ref19332_)))))) + _super-ref19280_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2010820291_ __tmp42889)))) - _g2008220093_))) - (__tmp42890 - (if (not (null? _type-id19781_)) - (cadr _type-id19781_) + (_g2004220225_ __tmp42728)))) + _g2001620027_))) + (__tmp42729 + (if (not (null? _type-id19715_)) + (cadr _type-id19715_) '#f))) (declare (not safe)) - (_g2008020333_ __tmp42890)))) - _g2005420065_))) - (__tmp42891 - (if _struct?19335_ + (_g2001420267_ __tmp42729)))) + _g1998819999_))) + (__tmp42730 + (if _struct?19283_ (gx#datum->syntax '#f 'make-runtime-struct-exhibitor) (gx#datum->syntax '#f 'make-runtime-class-exhibitor)))) (declare (not safe)) - (_g2005220337_ __tmp42891)))) + (_g1998620271_ __tmp42730)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2002620037_))) - (__tmp42892 - (if _struct?19335_ - (if _super19344_ + _g1996019971_))) + (__tmp42731 + (if _struct?19283_ + (if _super19292_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L19505_ + (cons _L19453_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '#f) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_g2034520362_ - (lambda (_g2034620358_) + (let* ((_g2027920296_ + (lambda (_g2028020292_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2034620358_))) - (_g2034420423_ - (lambda (_g2034620366_) + _g2028020292_))) + (_g2027820357_ + (lambda (_g2028020300_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2034620366_) - (let ((_g42893_ - (gx#syntax-split-splice _g2034620366_ '0))) + _g2028020300_) + (let ((_g42732_ + (gx#syntax-split-splice _g2028020300_ '0))) (begin - (let ((_g42894_ + (let ((_g42733_ (let () (declare (not safe)) - (if (##values? _g42893_) - (##vector-length _g42893_) + (if (##values? _g42732_) + (##vector-length _g42732_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42894_ 2))) - (error "Context expects 2 values" _g42894_))) - (let ((_target2034820369_ + (##fx= _g42733_ 2))) + (error "Context expects 2 values" _g42733_))) + (let ((_target2028220303_ (let () (declare (not safe)) - (##vector-ref _g42893_ 0))) - (_tl2035020372_ + (##vector-ref _g42732_ 0))) + (_tl2028420306_ (let () (declare (not safe)) - (##vector-ref _g42893_ 1)))) - (if (gx#stx-null? _tl2035020372_) - (letrec ((_loop2035120375_ - (lambda (_hd2034920379_ - _super-id2035520382_) - (if (gx#stx-pair? _hd2034920379_) - (let ((_e2035220385_ + (##vector-ref _g42732_ 1)))) + (if (gx#stx-null? _tl2028420306_) + (letrec ((_loop2028520309_ + (lambda (_hd2028320313_ + _super-id2028920316_) + (if (gx#stx-pair? _hd2028320313_) + (let ((_e2028620319_ (gx#syntax-e - _hd2034920379_))) - (let ((_lp-hd2035320389_ + _hd2028320313_))) + (let ((_lp-hd2028720323_ (let () (declare (not safe)) - (##car _e2035220385_))) - (_lp-tl2035420392_ + (##car _e2028620319_))) + (_lp-tl2028820326_ (let () (declare (not safe)) - (##cdr _e2035220385_)))) - (let ((__tmp42895 - (cons _lp-hd2035320389_ + (##cdr _e2028620319_)))) + (let ((__tmp42734 + (cons _lp-hd2028720323_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _super-id2035520382_))) + _super-id2028920316_))) (declare (not safe)) - (_loop2035120375_ _lp-tl2035420392_ __tmp42895)))) + (_loop2028520309_ _lp-tl2028820326_ __tmp42734)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_super-id2035620395_ - (reverse _super-id2035520382_))) - ((lambda (_L20399_) + (let ((_super-id2029020329_ + (reverse _super-id2028920316_))) + ((lambda (_L20333_) (let () (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2041420417_ + (foldr (lambda (_g2034820351_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2041520420_) + _g2034920354_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _g2041420417_ '())) - _g2041520420_)) + (cons _g2034820351_ '())) + _g2034920354_)) '() - _L20399_)))) + _L20333_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _super-id2035620395_)))))) + _super-id2029020329_)))))) (let () (declare (not safe)) - (_loop2035120375_ - _target2034820369_ + (_loop2028520309_ + _target2028220303_ '()))) (let () (declare (not safe)) - (_g2034520362_ _g2034620366_)))))) + (_g2027920296_ _g2028020300_)))))) (let () (declare (not safe)) - (_g2034520362_ _g2034620366_)))))) + (_g2027920296_ _g2028020300_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2034420423_ - _L19505_))))) + (_g2027820357_ + _L19453_))))) (declare (not safe)) - (_g2002420341_ __tmp42892)))) - _g1999820009_))) - (__tmp42896 - (if _struct?19335_ + (_g1995820275_ __tmp42731)))) + _g1993219943_))) + (__tmp42735 + (if _struct?19283_ (gx#datum->syntax '#f 'make-extended-struct-info) @@ -1433,637 +1423,637 @@ '#f 'make-extended-class-info)))) (declare (not safe)) - (_g1999620427_ __tmp42896)))) - _g1997019981_))) - (__tmp42897 - (let ((__tmp42898 - (cons _L19362_ - (cons _L19421_ - (cons _L19505_ - (cons _L19449_ - (cons _L19477_ - (foldr (lambda (_g2043420437_ + (_g1993020361_ __tmp42735)))) + _g1990419915_))) + (__tmp42736 + (let ((__tmp42737 + (cons _L19310_ + (cons _L19369_ + (cons _L19453_ + (cons _L19397_ + (cons _L19425_ + (foldr (lambda (_g2036820371_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2043520440_) - (cons _g2043420437_ _g2043520440_)) + _g2036920374_) + (cons _g2036820371_ _g2036920374_)) '() - _L19952_)))))))) + _L19886_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19337_ __tmp42898)))) + (_wrap19285_ __tmp42737)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1996820431_ __tmp42897)))) - _type-body1990919948_)))))) + (_g1990220365_ __tmp42736)))) + _type-body1984319882_)))))) (let () (declare (not safe)) - (_loop1990419928_ _target1990119922_ '()))) + (_loop1983819862_ _target1983519856_ '()))) (let () (declare (not safe)) - (_g1989819915_ _g1989919919_)))))) - (let () (declare (not safe)) (_g1989819915_ _g1989919919_))))) + (_g1983219849_ _g1983319853_)))))) + (let () (declare (not safe)) (_g1983219849_ _g1983319853_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42900 + (__tmp42739 (foldr cons (foldr cons (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons (foldr cons - _type-unchecked19895_ - _type-plist19880_) - _type-ctor19796_) - _type-name19766_) - _type-id19781_) - _type-attr19759_))) + _type-unchecked19829_ + _type-properties19814_) + _type-constructor19730_) + _type-name19700_) + _type-id19715_) + _type-attr19693_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1989720443_ __tmp42900)))) - _setf1967119710_)))))) + (_g1983120377_ __tmp42739)))) + _setf1961919658_)))))) (let () (declare (not safe)) - (_loop1966619690_ _target1966319684_ '()))) + (_loop1961419638_ _target1961119632_ '()))) (let () (declare (not safe)) - (_g1966019677_ _g1966119681_)))))) + (_g1960819625_ _g1960919629_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1966019677_ - _g1966119681_))))) - (__tmp42902 + (_g1960819625_ + _g1960919629_))))) + (__tmp42741 (gx#stx-map - (lambda (_g2045020452_) - (_make-id19339_ - _name19341_ + (lambda (_g2038420386_) + (_make-id19287_ + _name19289_ '"-" - _g2045020452_ + _g2038420386_ '"-set!")) - _els19333_))) + _slots19281_))) (declare (not safe)) - (_g1965920447_ __tmp42902)))) - _getf1960019639_)))))) + (_g1960720381_ __tmp42741)))) + _getf1954819587_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1959519619_ - _target1959219613_ + (_loop1954319567_ + _target1954019561_ '()))) (let () (declare (not safe)) - (_g1958919606_ - _g1959019610_)))))) + (_g1953719554_ + _g1953819558_)))))) (let () (declare (not safe)) - (_g1958919606_ _g1959019610_))))) - (__tmp42904 + (_g1953719554_ _g1953819558_))))) + (__tmp42743 (gx#stx-map - (lambda (_g2045920461_) - (_make-id19339_ - _name19341_ + (lambda (_g2039320395_) + (_make-id19287_ + _name19289_ '"-" - _g2045920461_)) - _els19333_))) + _g2039320395_)) + _slots19281_))) (declare (not safe)) - (_g1958820456_ __tmp42904)))) - _attr1952919568_)))))) + (_g1953620390_ __tmp42743)))) + _slot1947719516_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1952419548_ - _target1952119542_ + (_loop1947219496_ + _target1946919490_ '()))) (let () (declare (not safe)) - (_g1951819535_ - _g1951919539_)))))) + (_g1946619483_ + _g1946719487_)))))) (let () (declare (not safe)) - (_g1951819535_ _g1951919539_)))))) + (_g1946619483_ _g1946719487_)))))) (declare (not safe)) - (_g1951720465_ _els19333_)))) - _g1949119502_))) + (_g1946520399_ _slots19281_)))) + _g1943919450_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42906 - (if _struct?19335_ - (if _super19344_ + (__tmp42745 + (if _struct?19283_ + (if _super19292_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (unchecked-slot-ref _super19344_ 'runtime-identifier)) + (unchecked-slot-ref _super19292_ 'runtime-identifier)) '#f) (map |gerbil/core$$[1]#runtime-type-identifier| - _super19344_)))) + _super19292_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1948920469_ __tmp42906)))) - _g1946319474_))) - (__tmp42907 - (_make-id19339_ _name19341_ '"?"))) + (_g1943720403_ __tmp42745)))) + _g1941119422_))) + (__tmp42746 + (_make-id19287_ _name19289_ '"?"))) (declare (not safe)) - (_g1946120473_ __tmp42907)))) - _g1943519446_))) - (__tmp42908 (_make-id19339_ '"make-" _name19341_))) + (_g1940920407_ __tmp42746)))) + _g1938319394_))) + (__tmp42747 (_make-id19287_ '"make-" _name19289_))) (declare (not safe)) - (_g1943320477_ __tmp42908)))) + (_g1938120411_ __tmp42747)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1940719418_))) - (__tmp42909 - (_make-id19339_ - _name19341_ + _g1935519366_))) + (__tmp42748 + (_make-id19287_ + _name19289_ '"::t"))) (declare (not safe)) - (_g1940520481_ __tmp42909)))) - _g1937919390_)))) + (_g1935320415_ __tmp42748)))) + _g1932719338_)))) (declare (not safe)) - (_g1937720485_ _id19331_)))) - _g1934819359_))) - (__tmp42910 - (if _struct?19335_ + (_g1932520419_ _id19279_)))) + _g1929619307_))) + (__tmp42749 + (if _struct?19283_ (gx#datum->syntax '#f 'defstruct-type) (gx#datum->syntax '#f 'defclass-type)))) (declare (not safe)) - (_g1934620489_ __tmp42910))))) + (_g1929420423_ __tmp42749))))) (define |gerbil/core$$[:0:]#defstruct| - (lambda (_stx20817_) - (letrec ((_generate20820_ - (lambda (_hd20904_ _fields20906_ _body20907_) - (let* ((___stx3971039711_ _hd20904_) - (_g2091020925_ + (lambda (_stx20751_) + (letrec ((_generate20754_ + (lambda (_hd20838_ _fields20840_ _body20841_) + (let* ((___stx3960039601_ _hd20838_) + (_g2084420859_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3971039711_)))) - (let ((___kont3971339714_ - (lambda (_L20963_ _L20965_) + ___stx3960039601_)))) + (let ((___kont3960339604_ + (lambda (_L20897_ _L20899_) (let () (declare (not safe)) (|gerbil/core$$[1]#generate-typedef| - _stx20817_ - _L20965_ - _L20963_ - _fields20906_ - _body20907_ + _stx20751_ + _L20899_ + _L20897_ + _fields20840_ + _body20841_ '#t)))) - (___kont3971539716_ + (___kont3960539606_ (lambda () - (if (gx#identifier? _hd20904_) + (if (gx#identifier? _hd20838_) (let () (declare (not safe)) (|gerbil/core$$[1]#generate-typedef| - _stx20817_ - _hd20904_ + _stx20751_ + _hd20838_ '#f - _fields20906_ - _body20907_ + _fields20840_ + _body20841_ '#t)) (gx#raise-syntax-error '#f '"Bad syntax; struct name not an identifier" - _stx20817_ - _hd20904_))))) - (let ((___match3973139732_ - (lambda (_e2091620943_ - _hd2091520947_ - _tl2091420950_ - _e2091920953_ - _hd2091820957_ - _tl2091720960_) - (let ((_L20963_ _hd2091820957_) - (_L20965_ _hd2091520947_)) - (if (and (gx#identifier? _L20965_) + _stx20751_ + _hd20838_))))) + (let ((___match3962139622_ + (lambda (_e2085020877_ + _hd2084920881_ + _tl2084820884_ + _e2085320887_ + _hd2085220891_ + _tl2085120894_) + (let ((_L20897_ _hd2085220891_) + (_L20899_ _hd2084920881_)) + (if (and (gx#identifier? _L20899_) (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-struct-info?| - _L20963_))) - (___kont3971339714_ _L20963_ _L20965_) - (___kont3971539716_)))))) - (if (gx#stx-pair? ___stx3971039711_) - (let ((_e2091620943_ - (gx#syntax-e ___stx3971039711_))) - (let ((_tl2091420950_ + _L20897_))) + (___kont3960339604_ _L20897_ _L20899_) + (___kont3960539606_)))))) + (if (gx#stx-pair? ___stx3960039601_) + (let ((_e2085020877_ + (gx#syntax-e ___stx3960039601_))) + (let ((_tl2084820884_ (let () (declare (not safe)) - (##cdr _e2091620943_))) - (_hd2091520947_ + (##cdr _e2085020877_))) + (_hd2084920881_ (let () (declare (not safe)) - (##car _e2091620943_)))) - (if (gx#stx-pair? _tl2091420950_) - (let ((_e2091920953_ - (gx#syntax-e _tl2091420950_))) - (let ((_tl2091720960_ + (##car _e2085020877_)))) + (if (gx#stx-pair? _tl2084820884_) + (let ((_e2085320887_ + (gx#syntax-e _tl2084820884_))) + (let ((_tl2085120894_ (let () (declare (not safe)) - (##cdr _e2091920953_))) - (_hd2091820957_ + (##cdr _e2085320887_))) + (_hd2085220891_ (let () (declare (not safe)) - (##car _e2091920953_)))) - (if (gx#stx-null? _tl2091720960_) - (___match3973139732_ - _e2091620943_ - _hd2091520947_ - _tl2091420950_ - _e2091920953_ - _hd2091820957_ - _tl2091720960_) - (___kont3971539716_)))) - (___kont3971539716_)))) - (___kont3971539716_)))))))) - (let* ((_g2082320842_ - (lambda (_g2082420838_) + (##car _e2085320887_)))) + (if (gx#stx-null? _tl2085120894_) + (___match3962139622_ + _e2085020877_ + _hd2084920881_ + _tl2084820884_ + _e2085320887_ + _hd2085220891_ + _tl2085120894_) + (___kont3960539606_)))) + (___kont3960539606_)))) + (___kont3960539606_)))))))) + (let* ((_g2075720776_ + (lambda (_g2075820772_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2082420838_))) - (_g2082220900_ - (lambda (_g2082420846_) - (if (gx#stx-pair? _g2082420846_) - (let ((_e2083020849_ (gx#syntax-e _g2082420846_))) - (let ((_hd2082920853_ + _g2075820772_))) + (_g2075620834_ + (lambda (_g2075820780_) + (if (gx#stx-pair? _g2075820780_) + (let ((_e2076420783_ (gx#syntax-e _g2075820780_))) + (let ((_hd2076320787_ (let () (declare (not safe)) - (##car _e2083020849_))) - (_tl2082820856_ + (##car _e2076420783_))) + (_tl2076220790_ (let () (declare (not safe)) - (##cdr _e2083020849_)))) - (if (gx#stx-pair? _tl2082820856_) - (let ((_e2083320859_ - (gx#syntax-e _tl2082820856_))) - (let ((_hd2083220863_ + (##cdr _e2076420783_)))) + (if (gx#stx-pair? _tl2076220790_) + (let ((_e2076720793_ + (gx#syntax-e _tl2076220790_))) + (let ((_hd2076620797_ (let () (declare (not safe)) - (##car _e2083320859_))) - (_tl2083120866_ + (##car _e2076720793_))) + (_tl2076520800_ (let () (declare (not safe)) - (##cdr _e2083320859_)))) - (if (gx#stx-pair? _tl2083120866_) - (let ((_e2083620869_ - (gx#syntax-e _tl2083120866_))) - (let ((_hd2083520873_ + (##cdr _e2076720793_)))) + (if (gx#stx-pair? _tl2076520800_) + (let ((_e2077020803_ + (gx#syntax-e _tl2076520800_))) + (let ((_hd2076920807_ (let () (declare (not safe)) - (##car _e2083620869_))) - (_tl2083420876_ + (##car _e2077020803_))) + (_tl2076820810_ (let () (declare (not safe)) - (##cdr _e2083620869_)))) - ((lambda (_L20879_ - _L20881_ - _L20882_) + (##cdr _e2077020803_)))) + ((lambda (_L20813_ + _L20815_ + _L20816_) (if (and (gx#identifier-list? - _L20881_) + _L20815_) (let () (declare (not safe)) (|gerbil/core$$[1]#typedef-body?| - _L20879_))) - (_generate20820_ - _L20882_ - _L20881_ - _L20879_) - (_g2082320842_ - _g2082420846_))) - _tl2083420876_ - _hd2083520873_ - _hd2083220863_))) - (_g2082320842_ _g2082420846_)))) - (_g2082320842_ _g2082420846_)))) - (_g2082320842_ _g2082420846_))))) - (_g2082220900_ _stx20817_))))) + _L20813_))) + (_generate20754_ + _L20816_ + _L20815_ + _L20813_) + (_g2075720776_ + _g2075820780_))) + _tl2076820810_ + _hd2076920807_ + _hd2076620797_))) + (_g2075720776_ _g2075820780_)))) + (_g2075720776_ _g2075820780_)))) + (_g2075720776_ _g2075820780_))))) + (_g2075620834_ _stx20751_))))) (define |gerbil/core$$[:0:]#defclass| - (lambda (_stx20984_) - (letrec ((_generate20987_ - (lambda (_hd21071_ _slots21073_ _body21074_) - (let* ((___stx3973439735_ _hd21071_) - (_g2107721089_ + (lambda (_stx20918_) + (letrec ((_generate20921_ + (lambda (_hd21005_ _slots21007_ _body21008_) + (let* ((___stx3962439625_ _hd21005_) + (_g2101121023_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3973439735_)))) - (let ((___kont3973739738_ - (lambda (_L21117_ _L21119_) - (let ((__tmp42911 (gx#syntax->list _L21117_))) + ___stx3962439625_)))) + (let ((___kont3962739628_ + (lambda (_L21051_ _L21053_) + (let ((__tmp42750 (gx#syntax->list _L21051_))) (declare (not safe)) (|gerbil/core$$[1]#generate-typedef| - _stx20984_ - _L21119_ - __tmp42911 - _slots21073_ - _body21074_ + _stx20918_ + _L21053_ + __tmp42750 + _slots21007_ + _body21008_ '#f)))) - (___kont3973939740_ + (___kont3962939630_ (lambda () - (if (gx#identifier? _hd21071_) + (if (gx#identifier? _hd21005_) (let () (declare (not safe)) (|gerbil/core$$[1]#generate-typedef| - _stx20984_ - _hd21071_ + _stx20918_ + _hd21005_ '() - _slots21073_ - _body21074_ + _slots21007_ + _body21008_ '#f)) (gx#raise-syntax-error '#f '"Bad syntax; class name should be an identifier" - _stx20984_ - _hd21071_))))) - (let ((___match3974739748_ - (lambda (_e2108321107_ - _hd2108221111_ - _tl2108121114_) - (let ((_L21117_ _tl2108121114_) - (_L21119_ _hd2108221111_)) - (if (and (gx#stx-list? _L21117_) + _stx20918_ + _hd21005_))))) + (let ((___match3963739638_ + (lambda (_e2101721041_ + _hd2101621045_ + _tl2101521048_) + (let ((_L21051_ _tl2101521048_) + (_L21053_ _hd2101621045_)) + (if (and (gx#stx-list? _L21051_) (gx#stx-andmap |gerbil/core$$[1]#syntax-local-type-info?| - _L21117_)) - (___kont3973739738_ _L21117_ _L21119_) - (___kont3973939740_)))))) - (if (gx#stx-pair? ___stx3973439735_) - (let ((_e2108321107_ - (gx#syntax-e ___stx3973439735_))) - (let ((_tl2108121114_ + _L21051_)) + (___kont3962739628_ _L21051_ _L21053_) + (___kont3962939630_)))))) + (if (gx#stx-pair? ___stx3962439625_) + (let ((_e2101721041_ + (gx#syntax-e ___stx3962439625_))) + (let ((_tl2101521048_ (let () (declare (not safe)) - (##cdr _e2108321107_))) - (_hd2108221111_ + (##cdr _e2101721041_))) + (_hd2101621045_ (let () (declare (not safe)) - (##car _e2108321107_)))) - (___match3974739748_ - _e2108321107_ - _hd2108221111_ - _tl2108121114_))) - (___kont3973939740_)))))))) - (let* ((_g2099021009_ - (lambda (_g2099121005_) + (##car _e2101721041_)))) + (___match3963739638_ + _e2101721041_ + _hd2101621045_ + _tl2101521048_))) + (___kont3962939630_)))))))) + (let* ((_g2092420943_ + (lambda (_g2092520939_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2099121005_))) - (_g2098921067_ - (lambda (_g2099121013_) - (if (gx#stx-pair? _g2099121013_) - (let ((_e2099721016_ (gx#syntax-e _g2099121013_))) - (let ((_hd2099621020_ + _g2092520939_))) + (_g2092321001_ + (lambda (_g2092520947_) + (if (gx#stx-pair? _g2092520947_) + (let ((_e2093120950_ (gx#syntax-e _g2092520947_))) + (let ((_hd2093020954_ (let () (declare (not safe)) - (##car _e2099721016_))) - (_tl2099521023_ + (##car _e2093120950_))) + (_tl2092920957_ (let () (declare (not safe)) - (##cdr _e2099721016_)))) - (if (gx#stx-pair? _tl2099521023_) - (let ((_e2100021026_ - (gx#syntax-e _tl2099521023_))) - (let ((_hd2099921030_ + (##cdr _e2093120950_)))) + (if (gx#stx-pair? _tl2092920957_) + (let ((_e2093420960_ + (gx#syntax-e _tl2092920957_))) + (let ((_hd2093320964_ (let () (declare (not safe)) - (##car _e2100021026_))) - (_tl2099821033_ + (##car _e2093420960_))) + (_tl2093220967_ (let () (declare (not safe)) - (##cdr _e2100021026_)))) - (if (gx#stx-pair? _tl2099821033_) - (let ((_e2100321036_ - (gx#syntax-e _tl2099821033_))) - (let ((_hd2100221040_ + (##cdr _e2093420960_)))) + (if (gx#stx-pair? _tl2093220967_) + (let ((_e2093720970_ + (gx#syntax-e _tl2093220967_))) + (let ((_hd2093620974_ (let () (declare (not safe)) - (##car _e2100321036_))) - (_tl2100121043_ + (##car _e2093720970_))) + (_tl2093520977_ (let () (declare (not safe)) - (##cdr _e2100321036_)))) - ((lambda (_L21046_ - _L21048_ - _L21049_) + (##cdr _e2093720970_)))) + ((lambda (_L20980_ + _L20982_ + _L20983_) (if (and (gx#identifier-list? - _L21048_) + _L20982_) (let () (declare (not safe)) (|gerbil/core$$[1]#typedef-body?| - _L21046_))) - (_generate20987_ - _L21049_ - _L21048_ - _L21046_) - (_g2099021009_ - _g2099121013_))) - _tl2100121043_ - _hd2100221040_ - _hd2099921030_))) - (_g2099021009_ _g2099121013_)))) - (_g2099021009_ _g2099121013_)))) - (_g2099021009_ _g2099121013_))))) - (_g2098921067_ _stx20984_))))) + _L20980_))) + (_generate20921_ + _L20983_ + _L20982_ + _L20980_) + (_g2092420943_ + _g2092520947_))) + _tl2093520977_ + _hd2093620974_ + _hd2093320964_))) + (_g2092420943_ _g2092520947_)))) + (_g2092420943_ _g2092520947_)))) + (_g2092420943_ _g2092520947_))))) + (_g2092321001_ _stx20918_))))) (define |gerbil/core$$[:0:]#defmethod| - (lambda (_stx21136_) - (letrec ((_wrap21139_ - (lambda (_e-stx21476_) + (lambda (_stx21070_) + (letrec ((_wrap21073_ + (lambda (_e-stx21410_) (gx#stx-wrap-source - _e-stx21476_ - (gx#stx-source _stx21136_)))) - (_method-opt?21141_ - (lambda (_x21473_) (memq (gx#stx-e _x21473_) '(rebind:))))) - (let* ((_g2114321172_ - (lambda (_g2114421168_) + _e-stx21410_ + (gx#stx-source _stx21070_)))) + (_method-opt?21075_ + (lambda (_x21407_) (memq (gx#stx-e _x21407_) '(rebind:))))) + (let* ((_g2107721106_ + (lambda (_g2107821102_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2114421168_))) - (_g2114221469_ - (lambda (_g2114421176_) - (if (gx#stx-pair? _g2114421176_) - (let ((_e2115121179_ (gx#syntax-e _g2114421176_))) - (let ((_hd2115021183_ + _g2107821102_))) + (_g2107621403_ + (lambda (_g2107821110_) + (if (gx#stx-pair? _g2107821110_) + (let ((_e2108521113_ (gx#syntax-e _g2107821110_))) + (let ((_hd2108421117_ (let () (declare (not safe)) - (##car _e2115121179_))) - (_tl2114921186_ + (##car _e2108521113_))) + (_tl2108321120_ (let () (declare (not safe)) - (##cdr _e2115121179_)))) - (if (gx#stx-pair? _tl2114921186_) - (let ((_e2115421189_ - (gx#syntax-e _tl2114921186_))) - (let ((_hd2115321193_ + (##cdr _e2108521113_)))) + (if (gx#stx-pair? _tl2108321120_) + (let ((_e2108821123_ + (gx#syntax-e _tl2108321120_))) + (let ((_hd2108721127_ (let () (declare (not safe)) - (##car _e2115421189_))) - (_tl2115221196_ + (##car _e2108821123_))) + (_tl2108621130_ (let () (declare (not safe)) - (##cdr _e2115421189_)))) - (if (gx#stx-pair? _hd2115321193_) - (let ((_e2115721199_ - (gx#syntax-e _hd2115321193_))) - (let ((_hd2115621203_ + (##cdr _e2108821123_)))) + (if (gx#stx-pair? _hd2108721127_) + (let ((_e2109121133_ + (gx#syntax-e _hd2108721127_))) + (let ((_hd2109021137_ (let () (declare (not safe)) - (##car _e2115721199_))) - (_tl2115521206_ + (##car _e2109121133_))) + (_tl2108921140_ (let () (declare (not safe)) - (##cdr _e2115721199_)))) - (if (gx#identifier? _hd2115621203_) + (##cdr _e2109121133_)))) + (if (gx#identifier? _hd2109021137_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42912_| - _hd2115621203_) + |gerbil/core$$[1]#_g42751_| + _hd2109021137_) (if (gx#stx-pair? - _tl2115521206_) - (let ((_e2116021209_ + _tl2108921140_) + (let ((_e2109421143_ (gx#syntax-e - _tl2115521206_))) - (let ((_hd2115921213_ + _tl2108921140_))) + (let ((_hd2109321147_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e2116021209_))) - (_tl2115821216_ - (let () (declare (not safe)) (##cdr _e2116021209_)))) - (if (gx#stx-pair? _tl2115821216_) - (let ((_e2116321219_ (gx#syntax-e _tl2115821216_))) - (let ((_hd2116221223_ + (let () (declare (not safe)) (##car _e2109421143_))) + (_tl2109221150_ + (let () (declare (not safe)) (##cdr _e2109421143_)))) + (if (gx#stx-pair? _tl2109221150_) + (let ((_e2109721153_ (gx#syntax-e _tl2109221150_))) + (let ((_hd2109621157_ (let () (declare (not safe)) - (##car _e2116321219_))) - (_tl2116121226_ + (##car _e2109721153_))) + (_tl2109521160_ (let () (declare (not safe)) - (##cdr _e2116321219_)))) - (if (gx#stx-null? _tl2116121226_) - (if (gx#stx-pair? _tl2115221196_) - (let ((_e2116621229_ - (gx#syntax-e _tl2115221196_))) - (let ((_hd2116521233_ + (##cdr _e2109721153_)))) + (if (gx#stx-null? _tl2109521160_) + (if (gx#stx-pair? _tl2108621130_) + (let ((_e2110021163_ + (gx#syntax-e _tl2108621130_))) + (let ((_hd2109921167_ (let () (declare (not safe)) - (##car _e2116621229_))) - (_tl2116421236_ + (##car _e2110021163_))) + (_tl2109821170_ (let () (declare (not safe)) - (##cdr _e2116621229_)))) - ((lambda (_L21239_ - _L21241_ - _L21242_ - _L21243_) - (if (and (gx#identifier? _L21243_) + (##cdr _e2110021163_)))) + ((lambda (_L21173_ + _L21175_ + _L21176_ + _L21177_) + (if (and (gx#identifier? _L21177_) (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__0| - _L21242_)) + _L21176_)) (gx#stx-plist? - _L21239_ - _method-opt?21141_)) - (let* ((_klass21268_ + _L21173_ + _method-opt?21075_)) + (let* ((_klass21202_ (gx#syntax-local-value - _L21242_)) - (_rebind?21271_ + _L21176_)) + (_rebind?21205_ (if (gx#stx-e (gx#stx-getq 'rebind: - _L21239_)) + _L21173_)) '#t '#f)) - (_g2127421282_ - (lambda (_g2127521278_) + (_g2120821216_ + (lambda (_g2120921212_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2127521278_))) - (_g2127321465_ - (lambda (_g2127521286_) - ((lambda (_L21289_) + _g2120921212_))) + (_g2120721399_ + (lambda (_g2120921220_) + ((lambda (_L21223_) (let () - (let* ((_g2130321311_ + (let* ((_g2123721245_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2130421307_) + (lambda (_g2123821241_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2130421307_))) - (_g2130221461_ - (lambda (_g2130421315_) - ((lambda (_L21318_) + _g2123821241_))) + (_g2123621395_ + (lambda (_g2123821249_) + ((lambda (_L21252_) (let () - (let* ((_g2133121339_ - (lambda (_g2133221335_) + (let* ((_g2126521273_ + (lambda (_g2126621269_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2133221335_))) - (_g2133021457_ - (lambda (_g2133221343_) - ((lambda (_L21346_) + _g2126621269_))) + (_g2126421391_ + (lambda (_g2126621277_) + ((lambda (_L21280_) (let () - (let* ((_g2135921367_ - (lambda (_g2136021363_) + (let* ((_g2129321301_ + (lambda (_g2129421297_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2136021363_))) - (_g2135821453_ - (lambda (_g2136021371_) - ((lambda (_L21374_) + _g2129421297_))) + (_g2129221387_ + (lambda (_g2129421305_) + ((lambda (_L21308_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2138721395_ - (lambda (_g2138821391_) + (let* ((_g2132121329_ + (lambda (_g2132221325_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2138821391_))) - (_g2138621449_ - (lambda (_g2138821399_) - ((lambda (_L21402_) + _g2132221325_))) + (_g2132021383_ + (lambda (_g2132221333_) + ((lambda (_L21336_) (let () - (let* ((_g2141521423_ - (lambda (_g2141621419_) + (let* ((_g2134921357_ + (lambda (_g2135021353_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2141621419_))) - (_g2141421445_ - (lambda (_g2141621427_) - ((lambda (_L21430_) + _g2135021353_))) + (_g2134821379_ + (lambda (_g2135021361_) + ((lambda (_L21364_) (let () (let () - (_wrap21139_ + (_wrap21073_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - (cons _L21374_ (cons _L21430_ '()))))))) + (cons _L21308_ (cons _L21364_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2141621427_)))) - (_g2141421445_ - (_wrap21139_ + _g2135021361_)))) + (_g2134821379_ + (_wrap21073_ (cons (gx#datum->syntax '#f 'bind-method!) - (cons _L21289_ + (cons _L21223_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L21243_ '())) - (cons _L21318_ (cons _L21402_ '())))))))))) + (cons _L21177_ '())) + (cons _L21252_ (cons _L21336_ '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2138821399_)))) - (_g2138621449_ _rebind?21271_)))) - _g2136021371_)))) - (_g2135821453_ - (_wrap21139_ + _g2132221333_)))) + (_g2132021383_ _rebind?21205_)))) + _g2129421305_)))) + (_g2129221387_ + (_wrap21073_ (cons (gx#datum->syntax '#f 'def) - (cons _L21318_ + (cons _L21252_ (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _L21346_ + (cons (cons (cons _L21280_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2082,11 +2072,11 @@ (cons (cons (gx#datum->syntax '#f 'call-next-method) - (cons _L21289_ + (cons _L21223_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'obj) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21243_ '())) + (cons _L21177_ '())) (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '())))))) @@ -2096,133 +2086,133 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _L21241_ '()))) + (cons _L21175_ '()))) '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2133221343_)))) - (_g2133021457_ + _g2126621277_)))) + (_g2126421391_ (gx#stx-identifier - _L21243_ + _L21177_ '@next-method))))) - _g2130421315_)))) - (_g2130221461_ + _g2123821249_)))) + (_g2123621395_ (gx#stx-identifier - _L21243_ - _L21242_ + _L21177_ + _L21176_ '"::" - _L21243_))))) - _g2127521286_)))) + _L21177_))))) + _g2120921220_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2127321465_ + (_g2120721399_ (let () (declare (not safe)) (unchecked-slot-ref - _klass21268_ + _klass21202_ 'runtime-identifier)))) (if (not (gx#identifier? - _L21243_)) + _L21177_)) (gx#raise-syntax-error '#f '"Bad syntax; expected method identifier" - _stx21136_ - _L21243_) + _stx21070_ + _L21177_) (if (not (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__0| - _L21242_))) + _L21176_))) (gx#raise-syntax-error '#f '"Bad syntax; expected type identifier" - _stx21136_ - _L21242_) + _stx21070_ + _L21176_) (gx#raise-syntax-error '#f '"Bad syntax; illegal method options" - _stx21136_))))) - _tl2116421236_ - _hd2116521233_ - _hd2116221223_ - _hd2115921213_))) - (_g2114321172_ _g2114421176_)) - (_g2114321172_ _g2114421176_)))) - (_g2114321172_ _g2114421176_)))) - (_g2114321172_ _g2114421176_)) + _stx21070_))))) + _tl2109821170_ + _hd2109921167_ + _hd2109621157_ + _hd2109321147_))) + (_g2107721106_ _g2107821110_)) + (_g2107721106_ _g2107821110_)))) + (_g2107721106_ _g2107821110_)))) + (_g2107721106_ _g2107821110_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2114321172_ - _g2114421176_)) - (_g2114321172_ - _g2114421176_)))) - (_g2114321172_ _g2114421176_)))) - (_g2114321172_ _g2114421176_)))) - (_g2114321172_ _g2114421176_))))) - (_g2114221469_ _stx21136_))))) + (_g2107721106_ + _g2107821110_)) + (_g2107721106_ + _g2107821110_)))) + (_g2107721106_ _g2107821110_)))) + (_g2107721106_ _g2107821110_)))) + (_g2107721106_ _g2107821110_))))) + (_g2107621403_ _stx21070_))))) (define |gerbil/core$$[:0:]#@method| - (lambda (_stx21479_) - (letrec ((_dotted-identifier?21482_ - (lambda (_id22115_) - (if (gx#identifier? _id22115_) - (let ((_id-str22118_ - (symbol->string (gx#stx-e _id22115_)))) - (if (string-index _id-str22118_ '#\.) - (let ((_split22121_ - (string-split _id-str22118_ '#\.))) - (fx= (length _split22121_) '2)) + (lambda (_stx21413_) + (letrec ((_dotted-identifier?21416_ + (lambda (_id22049_) + (if (gx#identifier? _id22049_) + (let ((_id-str22052_ + (symbol->string (gx#stx-e _id22049_)))) + (if (string-index _id-str22052_ '#\.) + (let ((_split22055_ + (string-split _id-str22052_ '#\.))) + (fx= (length _split22055_) '2)) '#f)) '#f))) - (_split-dotted21484_ - (lambda (_id22104_) - (let* ((_id-str22107_ - (symbol->string (gx#stx-e _id22104_))) - (_split22110_ (string-split _id-str22107_ '#\.))) - (cons (gx#stx-identifier _id22104_ (car _split22110_)) + (_split-dotted21418_ + (lambda (_id22038_) + (let* ((_id-str22041_ + (symbol->string (gx#stx-e _id22038_))) + (_split22044_ (string-split _id-str22041_ '#\.))) + (cons (gx#stx-identifier _id22038_ (car _split22044_)) (cons (gx#stx-identifier - _id22104_ - (cadr _split22110_)) + _id22038_ + (cadr _split22044_)) '())))))) - (let* ((___stx3975039751_ _stx21479_) - (_g2148921576_ + (let* ((___stx3964039641_ _stx21413_) + (_g2142321510_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3975039751_)))) - (let ((___kont3975339754_ - (lambda (_L21997_ _L21999_ _L22000_) - (let* ((_g2202822043_ - (lambda (_g2202922039_) + ___stx3964039641_)))) + (let ((___kont3964339644_ + (lambda (_L21931_ _L21933_ _L21934_) + (let* ((_g2196221977_ + (lambda (_g2196321973_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2202922039_))) - (_g2202722096_ - (lambda (_g2202922047_) - (if (gx#stx-pair? _g2202922047_) - (let ((_e2203422050_ - (gx#syntax-e _g2202922047_))) - (let ((_hd2203322054_ + _g2196321973_))) + (_g2196122030_ + (lambda (_g2196321981_) + (if (gx#stx-pair? _g2196321981_) + (let ((_e2196821984_ + (gx#syntax-e _g2196321981_))) + (let ((_hd2196721988_ (let () (declare (not safe)) - (##car _e2203422050_))) - (_tl2203222057_ + (##car _e2196821984_))) + (_tl2196621991_ (let () (declare (not safe)) - (##cdr _e2203422050_)))) - (if (gx#stx-pair? _tl2203222057_) - (let ((_e2203722060_ + (##cdr _e2196821984_)))) + (if (gx#stx-pair? _tl2196621991_) + (let ((_e2197121994_ (gx#syntax-e - _tl2203222057_))) - (let ((_hd2203622064_ + _tl2196621991_))) + (let ((_hd2197021998_ (let () (declare (not safe)) - (##car _e2203722060_))) - (_tl2203522067_ + (##car _e2197121994_))) + (_tl2196922001_ (let () (declare (not safe)) - (##cdr _e2203722060_)))) + (##cdr _e2197121994_)))) (if (gx#stx-null? - _tl2203522067_) - ((lambda (_L22070_ _L22072_) + _tl2196922001_) + ((lambda (_L22004_ _L22006_) (let () (cons (gx#datum->syntax '#f @@ -2231,1385 +2221,1385 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'call-method) - (cons _L22072_ + (cons _L22006_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22070_ '())) + (cons _L22004_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2208722090_ + (foldr (lambda (_g2202122024_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2208822093_) - (cons _g2208722090_ _g2208822093_)) + _g2202222027_) + (cons _g2202122024_ _g2202222027_)) '() - _L21999_)) + _L21933_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2203622064_ - _hd2203322054_) - (_g2202822043_ - _g2202922047_)))) - (_g2202822043_ _g2202922047_)))) - (_g2202822043_ _g2202922047_))))) - (_g2202722096_ (_split-dotted21484_ _L22000_))))) - (___kont3975739758_ - (lambda (_L21839_ _L21841_) - (let* ((_g2185821873_ - (lambda (_g2185921869_) + _hd2197021998_ + _hd2196721988_) + (_g2196221977_ + _g2196321981_)))) + (_g2196221977_ _g2196321981_)))) + (_g2196221977_ _g2196321981_))))) + (_g2196122030_ (_split-dotted21418_ _L21934_))))) + (___kont3964739648_ + (lambda (_L21773_ _L21775_) + (let* ((_g2179221807_ + (lambda (_g2179321803_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2185921869_))) - (_g2185721926_ - (lambda (_g2185921877_) - (if (gx#stx-pair? _g2185921877_) - (let ((_e2186421880_ - (gx#syntax-e _g2185921877_))) - (let ((_hd2186321884_ + _g2179321803_))) + (_g2179121860_ + (lambda (_g2179321811_) + (if (gx#stx-pair? _g2179321811_) + (let ((_e2179821814_ + (gx#syntax-e _g2179321811_))) + (let ((_hd2179721818_ (let () (declare (not safe)) - (##car _e2186421880_))) - (_tl2186221887_ + (##car _e2179821814_))) + (_tl2179621821_ (let () (declare (not safe)) - (##cdr _e2186421880_)))) - (if (gx#stx-pair? _tl2186221887_) - (let ((_e2186721890_ + (##cdr _e2179821814_)))) + (if (gx#stx-pair? _tl2179621821_) + (let ((_e2180121824_ (gx#syntax-e - _tl2186221887_))) - (let ((_hd2186621894_ + _tl2179621821_))) + (let ((_hd2180021828_ (let () (declare (not safe)) - (##car _e2186721890_))) - (_tl2186521897_ + (##car _e2180121824_))) + (_tl2179921831_ (let () (declare (not safe)) - (##cdr _e2186721890_)))) + (##cdr _e2180121824_)))) (if (gx#stx-null? - _tl2186521897_) - ((lambda (_L21900_ _L21902_) + _tl2179921831_) + ((lambda (_L21834_ _L21836_) (let () (cons (gx#datum->syntax '#f 'call-method) - (cons _L21902_ + (cons _L21836_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21900_ '())) - (foldr (lambda (_g2191721920_ _g2191821923_) - (cons _g2191721920_ _g2191821923_)) + (cons _L21834_ '())) + (foldr (lambda (_g2185121854_ _g2185221857_) + (cons _g2185121854_ _g2185221857_)) '() - _L21839_)))))) + _L21773_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2186621894_ - _hd2186321884_) - (_g2185821873_ - _g2185921877_)))) - (_g2185821873_ _g2185921877_)))) - (_g2185821873_ _g2185921877_))))) - (_g2185721926_ (_split-dotted21484_ _L21841_))))) - (___kont3976139762_ - (lambda (_L21743_ _L21745_ _L21746_) + _hd2180021828_ + _hd2179721818_) + (_g2179221807_ + _g2179321811_)))) + (_g2179221807_ _g2179321811_)))) + (_g2179221807_ _g2179321811_))))) + (_g2179121860_ (_split-dotted21418_ _L21775_))))) + (___kont3965139652_ + (lambda (_L21677_ _L21679_ _L21680_) (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f 'call-method) - (cons _L21745_ + (cons _L21679_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21746_ '())) + (cons _L21680_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2177321776_ + (foldr (lambda (_g2170721710_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2177421779_) - (cons _g2177321776_ _g2177421779_)) + _g2170821713_) + (cons _g2170721710_ _g2170821713_)) '() - _L21743_)) + _L21677_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (___kont3976539766_ - (lambda (_L21643_ _L21645_ _L21646_) + (___kont3965539656_ + (lambda (_L21577_ _L21579_ _L21580_) (cons (gx#datum->syntax '#f 'call-method) - (cons _L21645_ + (cons _L21579_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21646_ '())) - (foldr (lambda (_g2166721670_ - _g2166821673_) - (cons _g2166721670_ - _g2166821673_)) + (cons _L21580_ '())) + (foldr (lambda (_g2160121604_ + _g2160221607_) + (cons _g2160121604_ + _g2160221607_)) '() - _L21643_))))))) - (let* ((___match3986939870_ - (lambda (_e2155521583_ - _hd2155421587_ - _tl2155321590_ - _e2155821593_ - _hd2155721597_ - _tl2155621600_ - _e2156121603_ - _hd2156021607_ - _tl2155921610_ - ___splice3976739768_ - _target2156221613_ - _tl2156421616_) - (letrec ((_loop2156521619_ - (lambda (_hd2156321623_ _arg2156921626_) - (if (gx#stx-pair? _hd2156321623_) - (let ((_e2156621629_ - (gx#syntax-e _hd2156321623_))) - (let ((_lp-tl2156821636_ + _L21577_))))))) + (let* ((___match3975939760_ + (lambda (_e2148921517_ + _hd2148821521_ + _tl2148721524_ + _e2149221527_ + _hd2149121531_ + _tl2149021534_ + _e2149521537_ + _hd2149421541_ + _tl2149321544_ + ___splice3965739658_ + _target2149621547_ + _tl2149821550_) + (letrec ((_loop2149921553_ + (lambda (_hd2149721557_ _arg2150321560_) + (if (gx#stx-pair? _hd2149721557_) + (let ((_e2150021563_ + (gx#syntax-e _hd2149721557_))) + (let ((_lp-tl2150221570_ (let () (declare (not safe)) - (##cdr _e2156621629_))) - (_lp-hd2156721633_ + (##cdr _e2150021563_))) + (_lp-hd2150121567_ (let () (declare (not safe)) - (##car _e2156621629_)))) - (_loop2156521619_ - _lp-tl2156821636_ - (cons _lp-hd2156721633_ - _arg2156921626_)))) - (let ((_arg2157021639_ - (reverse _arg2156921626_))) - (let ((_L21643_ _arg2157021639_) - (_L21645_ _hd2156021607_) - (_L21646_ _hd2155721597_)) - (if (gx#identifier? _L21646_) - (___kont3976539766_ - _L21643_ - _L21645_ - _L21646_) + (##car _e2150021563_)))) + (_loop2149921553_ + _lp-tl2150221570_ + (cons _lp-hd2150121567_ + _arg2150321560_)))) + (let ((_arg2150421573_ + (reverse _arg2150321560_))) + (let ((_L21577_ _arg2150421573_) + (_L21579_ _hd2149421541_) + (_L21580_ _hd2149121531_)) + (if (gx#identifier? _L21580_) + (___kont3965539656_ + _L21577_ + _L21579_ + _L21580_) (let () (declare (not safe)) - (_g2148921576_))))))))) - (_loop2156521619_ _target2156221613_ '())))) - (___match3984339844_ - (lambda (_e2153421683_ - _hd2153321687_ - _tl2153221690_ - _e2153721693_ - _hd2153621697_ - _tl2153521700_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) - (letrec ((_loop2154421719_ - (lambda (_hd2154221723_ _arg2154821726_) - (if (gx#stx-pair? _hd2154221723_) - (let ((_e2154521729_ - (gx#syntax-e _hd2154221723_))) - (let ((_lp-tl2154721736_ + (_g2142321510_))))))))) + (_loop2149921553_ _target2149621547_ '())))) + (___match3973339734_ + (lambda (_e2146821617_ + _hd2146721621_ + _tl2146621624_ + _e2147121627_ + _hd2147021631_ + _tl2146921634_ + _e2147421637_ + _hd2147321641_ + _tl2147221644_ + ___splice3965339654_ + _target2147521647_ + _tl2147721650_) + (letrec ((_loop2147821653_ + (lambda (_hd2147621657_ _arg2148221660_) + (if (gx#stx-pair? _hd2147621657_) + (let ((_e2147921663_ + (gx#syntax-e _hd2147621657_))) + (let ((_lp-tl2148121670_ (let () (declare (not safe)) - (##cdr _e2154521729_))) - (_lp-hd2154621733_ + (##cdr _e2147921663_))) + (_lp-hd2148021667_ (let () (declare (not safe)) - (##car _e2154521729_)))) - (_loop2154421719_ - _lp-tl2154721736_ - (cons _lp-hd2154621733_ - _arg2154821726_)))) - (let ((_arg2154921739_ - (reverse _arg2154821726_))) - (let ((_L21743_ _arg2154921739_) - (_L21745_ _hd2153921707_) - (_L21746_ _hd2153621697_)) - (if (and (gx#identifier? _L21746_) + (##car _e2147921663_)))) + (_loop2147821653_ + _lp-tl2148121670_ + (cons _lp-hd2148021667_ + _arg2148221660_)))) + (let ((_arg2148321673_ + (reverse _arg2148221660_))) + (let ((_L21677_ _arg2148321673_) + (_L21679_ _hd2147321641_) + (_L21680_ _hd2147021631_)) + (if (and (gx#identifier? _L21680_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_g2176521768_ + (foldr (lambda (_g2169921702_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2176621771_) - (cons _g2176521768_ _g2176621771_)) + _g2170021705_) + (cons _g2169921702_ _g2170021705_)) '() - _L21743_))) + _L21677_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3976139762_ - _L21743_ - _L21745_ - _L21746_) - (___match3986939870_ - _e2153421683_ - _hd2153321687_ - _tl2153221690_ - _e2153721693_ - _hd2153621697_ - _tl2153521700_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_)))))))) - (_loop2154421719_ _target2154121713_ '())))) - (___match3982939830_ - (lambda (_e2153421683_ - _hd2153321687_ - _tl2153221690_ - _e2153721693_ - _hd2153621697_ - _tl2153521700_) - (if (gx#stx-pair? _tl2153521700_) - (let ((_e2154021703_ (gx#syntax-e _tl2153521700_))) - (let ((_tl2153821710_ + (___kont3965139652_ + _L21677_ + _L21679_ + _L21680_) + (___match3975939760_ + _e2146821617_ + _hd2146721621_ + _tl2146621624_ + _e2147121627_ + _hd2147021631_ + _tl2146921634_ + _e2147421637_ + _hd2147321641_ + _tl2147221644_ + ___splice3965339654_ + _target2147521647_ + _tl2147721650_)))))))) + (_loop2147821653_ _target2147521647_ '())))) + (___match3971939720_ + (lambda (_e2146821617_ + _hd2146721621_ + _tl2146621624_ + _e2147121627_ + _hd2147021631_ + _tl2146921634_) + (if (gx#stx-pair? _tl2146921634_) + (let ((_e2147421637_ (gx#syntax-e _tl2146921634_))) + (let ((_tl2147221644_ (let () (declare (not safe)) - (##cdr _e2154021703_))) - (_hd2153921707_ + (##cdr _e2147421637_))) + (_hd2147321641_ (let () (declare (not safe)) - (##car _e2154021703_)))) - (if (gx#stx-pair/null? _tl2153821710_) - (let ((___splice3976339764_ + (##car _e2147421637_)))) + (if (gx#stx-pair/null? _tl2147221644_) + (let ((___splice3965339654_ (gx#syntax-split-splice - _tl2153821710_ + _tl2147221644_ '0))) - (let ((_tl2154321716_ + (let ((_tl2147721650_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3965339654_ '1))) - (_target2154121713_ + (_target2147521647_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3965339654_ '0)))) - (if (gx#stx-null? _tl2154321716_) - (___match3984339844_ - _e2153421683_ - _hd2153321687_ - _tl2153221690_ - _e2153721693_ - _hd2153621697_ - _tl2153521700_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) + (if (gx#stx-null? _tl2147721650_) + (___match3973339734_ + _e2146821617_ + _hd2146721621_ + _tl2146621624_ + _e2147121627_ + _hd2147021631_ + _tl2146921634_ + _e2147421637_ + _hd2147321641_ + _tl2147221644_ + ___splice3965339654_ + _target2147521647_ + _tl2147721650_) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2142321510_))))) (let () (declare (not safe)) - (_g2148921576_))))) - (let () (declare (not safe)) (_g2148921576_))))) - (___match3981739818_ - (lambda (_e2151621789_ - _hd2151521793_ - _tl2151421796_ - _e2151921799_ - _hd2151821803_ - _tl2151721806_ - ___splice3975939760_ - _target2152021809_ - _tl2152221812_) - (letrec ((_loop2152321815_ - (lambda (_hd2152121819_ _arg2152721822_) - (if (gx#stx-pair? _hd2152121819_) - (let ((_e2152421825_ - (gx#syntax-e _hd2152121819_))) - (let ((_lp-tl2152621832_ + (_g2142321510_))))) + (let () (declare (not safe)) (_g2142321510_))))) + (___match3970739708_ + (lambda (_e2145021723_ + _hd2144921727_ + _tl2144821730_ + _e2145321733_ + _hd2145221737_ + _tl2145121740_ + ___splice3964939650_ + _target2145421743_ + _tl2145621746_) + (letrec ((_loop2145721749_ + (lambda (_hd2145521753_ _arg2146121756_) + (if (gx#stx-pair? _hd2145521753_) + (let ((_e2145821759_ + (gx#syntax-e _hd2145521753_))) + (let ((_lp-tl2146021766_ (let () (declare (not safe)) - (##cdr _e2152421825_))) - (_lp-hd2152521829_ + (##cdr _e2145821759_))) + (_lp-hd2145921763_ (let () (declare (not safe)) - (##car _e2152421825_)))) - (_loop2152321815_ - _lp-tl2152621832_ - (cons _lp-hd2152521829_ - _arg2152721822_)))) - (let ((_arg2152821835_ - (reverse _arg2152721822_))) - (let ((_L21839_ _arg2152821835_) - (_L21841_ _hd2151821803_)) - (if (_dotted-identifier?21482_ - _L21841_) - (___kont3975739758_ - _L21839_ - _L21841_) - (___match3982939830_ - _e2151621789_ - _hd2151521793_ - _tl2151421796_ - _e2151921799_ - _hd2151821803_ - _tl2151721806_)))))))) - (_loop2152321815_ _target2152021809_ '())))) - (___match3981539816_ - (lambda (_e2151621789_ - _hd2151521793_ - _tl2151421796_ - _e2151921799_ - _hd2151821803_ - _tl2151721806_ - ___splice3975939760_ - _target2152021809_ - _tl2152221812_) - (if (gx#stx-null? _tl2152221812_) - (___match3981739818_ - _e2151621789_ - _hd2151521793_ - _tl2151421796_ - _e2151921799_ - _hd2151821803_ - _tl2151721806_ - ___splice3975939760_ - _target2152021809_ - _tl2152221812_) - (if (gx#stx-pair? _tl2151721806_) - (let ((_e2154021703_ - (gx#syntax-e _tl2151721806_))) - (let ((_tl2153821710_ + (##car _e2145821759_)))) + (_loop2145721749_ + _lp-tl2146021766_ + (cons _lp-hd2145921763_ + _arg2146121756_)))) + (let ((_arg2146221769_ + (reverse _arg2146121756_))) + (let ((_L21773_ _arg2146221769_) + (_L21775_ _hd2145221737_)) + (if (_dotted-identifier?21416_ + _L21775_) + (___kont3964739648_ + _L21773_ + _L21775_) + (___match3971939720_ + _e2145021723_ + _hd2144921727_ + _tl2144821730_ + _e2145321733_ + _hd2145221737_ + _tl2145121740_)))))))) + (_loop2145721749_ _target2145421743_ '())))) + (___match3970539706_ + (lambda (_e2145021723_ + _hd2144921727_ + _tl2144821730_ + _e2145321733_ + _hd2145221737_ + _tl2145121740_ + ___splice3964939650_ + _target2145421743_ + _tl2145621746_) + (if (gx#stx-null? _tl2145621746_) + (___match3970739708_ + _e2145021723_ + _hd2144921727_ + _tl2144821730_ + _e2145321733_ + _hd2145221737_ + _tl2145121740_ + ___splice3964939650_ + _target2145421743_ + _tl2145621746_) + (if (gx#stx-pair? _tl2145121740_) + (let ((_e2147421637_ + (gx#syntax-e _tl2145121740_))) + (let ((_tl2147221644_ (let () (declare (not safe)) - (##cdr _e2154021703_))) - (_hd2153921707_ + (##cdr _e2147421637_))) + (_hd2147321641_ (let () (declare (not safe)) - (##car _e2154021703_)))) - (if (gx#stx-pair/null? _tl2153821710_) - (let ((___splice3976339764_ + (##car _e2147421637_)))) + (if (gx#stx-pair/null? _tl2147221644_) + (let ((___splice3965339654_ (gx#syntax-split-splice - _tl2153821710_ + _tl2147221644_ '0))) - (let ((_tl2154321716_ + (let ((_tl2147721650_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3965339654_ '1))) - (_target2154121713_ + (_target2147521647_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3965339654_ '0)))) - (if (gx#stx-null? _tl2154321716_) - (___match3984339844_ - _e2151621789_ - _hd2151521793_ - _tl2151421796_ - _e2151921799_ - _hd2151821803_ - _tl2151721806_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) + (if (gx#stx-null? _tl2147721650_) + (___match3973339734_ + _e2145021723_ + _hd2144921727_ + _tl2144821730_ + _e2145321733_ + _hd2145221737_ + _tl2145121740_ + _e2147421637_ + _hd2147321641_ + _tl2147221644_ + ___splice3965339654_ + _target2147521647_ + _tl2147721650_) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2142321510_))))) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2142321510_))))) (let () (declare (not safe)) - (_g2148921576_)))))) - (___match3979739798_ - (lambda (_e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - ___splice3975539756_ - _target2150021957_ - _tl2150221960_ - _e2151121963_ - _hd2151021967_ - _tl2150921970_) - (letrec ((_loop2150321973_ - (lambda (_hd2150121977_ _arg2150721980_) - (if (gx#stx-pair? _hd2150121977_) - (let ((_e2150421983_ - (gx#syntax-e _hd2150121977_))) - (let ((_lp-tl2150621990_ + (_g2142321510_)))))) + (___match3968739688_ + (lambda (_e2143021871_ + _hd2142921875_ + _tl2142821878_ + _e2143321881_ + _hd2143221885_ + _tl2143121888_ + ___splice3964539646_ + _target2143421891_ + _tl2143621894_ + _e2144521897_ + _hd2144421901_ + _tl2144321904_) + (letrec ((_loop2143721907_ + (lambda (_hd2143521911_ _arg2144121914_) + (if (gx#stx-pair? _hd2143521911_) + (let ((_e2143821917_ + (gx#syntax-e _hd2143521911_))) + (let ((_lp-tl2144021924_ (let () (declare (not safe)) - (##cdr _e2150421983_))) - (_lp-hd2150521987_ + (##cdr _e2143821917_))) + (_lp-hd2143921921_ (let () (declare (not safe)) - (##car _e2150421983_)))) - (_loop2150321973_ - _lp-tl2150621990_ - (cons _lp-hd2150521987_ - _arg2150721980_)))) - (let ((_arg2150821993_ - (reverse _arg2150721980_))) - (let ((_L21997_ _hd2151021967_) - (_L21999_ _arg2150821993_) - (_L22000_ _hd2149821951_)) - (if (and (_dotted-identifier?21482_ - _L22000_) + (##car _e2143821917_)))) + (_loop2143721907_ + _lp-tl2144021924_ + (cons _lp-hd2143921921_ + _arg2144121914_)))) + (let ((_arg2144221927_ + (reverse _arg2144121914_))) + (let ((_L21931_ _hd2144421901_) + (_L21933_ _arg2144221927_) + (_L21934_ _hd2143221885_)) + (if (and (_dotted-identifier?21416_ + _L21934_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_g2201922022_ + (foldr (lambda (_g2195321956_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2202022025_) - (cons _g2201922022_ _g2202022025_)) + _g2195421959_) + (cons _g2195321956_ _g2195421959_)) '() - _L21999_))) + _L21933_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3975339754_ - _L21997_ - _L21999_ - _L22000_) - (let ((___splice3975939760_ + (___kont3964339644_ + _L21931_ + _L21933_ + _L21934_) + (let ((___splice3964939650_ (gx#syntax-split-splice - _tl2149721954_ + _tl2143121888_ '0))) - (let ((_tl2152221812_ + (let ((_tl2145621746_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3964939650_ '1))) - (_target2152021809_ + (_target2145421743_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3964939650_ '0)))) - (___match3981539816_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - ___splice3975939760_ - _target2152021809_ - _tl2152221812_)))))))))) - (_loop2150321973_ _target2150021957_ '()))))) - (if (gx#stx-pair? ___stx3975039751_) - (let ((_e2149621937_ (gx#syntax-e ___stx3975039751_))) - (let ((_tl2149421944_ + (___match3970539706_ + _e2143021871_ + _hd2142921875_ + _tl2142821878_ + _e2143321881_ + _hd2143221885_ + _tl2143121888_ + ___splice3964939650_ + _target2145421743_ + _tl2145621746_)))))))))) + (_loop2143721907_ _target2143421891_ '()))))) + (if (gx#stx-pair? ___stx3964039641_) + (let ((_e2143021871_ (gx#syntax-e ___stx3964039641_))) + (let ((_tl2142821878_ (let () (declare (not safe)) - (##cdr _e2149621937_))) - (_hd2149521941_ + (##cdr _e2143021871_))) + (_hd2142921875_ (let () (declare (not safe)) - (##car _e2149621937_)))) - (if (gx#stx-pair? _tl2149421944_) - (let ((_e2149921947_ (gx#syntax-e _tl2149421944_))) - (let ((_tl2149721954_ + (##car _e2143021871_)))) + (if (gx#stx-pair? _tl2142821878_) + (let ((_e2143321881_ (gx#syntax-e _tl2142821878_))) + (let ((_tl2143121888_ (let () (declare (not safe)) - (##cdr _e2149921947_))) - (_hd2149821951_ + (##cdr _e2143321881_))) + (_hd2143221885_ (let () (declare (not safe)) - (##car _e2149921947_)))) - (if (gx#stx-pair/null? _tl2149721954_) - (if (fx>= (gx#stx-length _tl2149721954_) + (##car _e2143321881_)))) + (if (gx#stx-pair/null? _tl2143121888_) + (if (fx>= (gx#stx-length _tl2143121888_) '1) - (let ((___splice3975539756_ + (let ((___splice3964539646_ (gx#syntax-split-splice - _tl2149721954_ + _tl2143121888_ '1))) - (let ((_tl2150221960_ + (let ((_tl2143621894_ (let () (declare (not safe)) (##vector-ref - ___splice3975539756_ + ___splice3964539646_ '1))) - (_target2150021957_ + (_target2143421891_ (let () (declare (not safe)) (##vector-ref - ___splice3975539756_ + ___splice3964539646_ '0)))) - (if (gx#stx-pair? _tl2150221960_) - (let ((_e2151121963_ + (if (gx#stx-pair? _tl2143621894_) + (let ((_e2144521897_ (gx#syntax-e - _tl2150221960_))) - (let ((_tl2150921970_ + _tl2143621894_))) + (let ((_tl2144321904_ (let () (declare (not safe)) - (##cdr _e2151121963_))) - (_hd2151021967_ + (##cdr _e2144521897_))) + (_hd2144421901_ (let () (declare (not safe)) - (##car _e2151121963_)))) + (##car _e2144521897_)))) (if (gx#stx-null? - _tl2150921970_) - (___match3979739798_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - ___splice3975539756_ - _target2150021957_ - _tl2150221960_ - _e2151121963_ - _hd2151021967_ - _tl2150921970_) - (let ((___splice3975939760_ + _tl2144321904_) + (___match3968739688_ + _e2143021871_ + _hd2142921875_ + _tl2142821878_ + _e2143321881_ + _hd2143221885_ + _tl2143121888_ + ___splice3964539646_ + _target2143421891_ + _tl2143621894_ + _e2144521897_ + _hd2144421901_ + _tl2144321904_) + (let ((___splice3964939650_ (gx#syntax-split-splice - _tl2149721954_ + _tl2143121888_ '0))) - (let ((_tl2152221812_ + (let ((_tl2145621746_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice3975939760_ '1))) - (_target2152021809_ + (##vector-ref ___splice3964939650_ '1))) + (_target2145421743_ (let () (declare (not safe)) - (##vector-ref ___splice3975939760_ '0)))) - (if (gx#stx-null? _tl2152221812_) - (___match3981739818_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - ___splice3975939760_ - _target2152021809_ - _tl2152221812_) - (if (gx#stx-pair? _tl2149721954_) - (let ((_e2154021703_ (gx#syntax-e _tl2149721954_))) - (let ((_tl2153821710_ + (##vector-ref ___splice3964939650_ '0)))) + (if (gx#stx-null? _tl2145621746_) + (___match3970739708_ + _e2143021871_ + _hd2142921875_ + _tl2142821878_ + _e2143321881_ + _hd2143221885_ + _tl2143121888_ + ___splice3964939650_ + _target2145421743_ + _tl2145621746_) + (if (gx#stx-pair? _tl2143121888_) + (let ((_e2147421637_ (gx#syntax-e _tl2143121888_))) + (let ((_tl2147221644_ (let () (declare (not safe)) - (##cdr _e2154021703_))) - (_hd2153921707_ + (##cdr _e2147421637_))) + (_hd2147321641_ (let () (declare (not safe)) - (##car _e2154021703_)))) - (if (gx#stx-pair/null? _tl2153821710_) - (let ((___splice3976339764_ + (##car _e2147421637_)))) + (if (gx#stx-pair/null? _tl2147221644_) + (let ((___splice3965339654_ (gx#syntax-split-splice - _tl2153821710_ + _tl2147221644_ '0))) - (let ((_tl2154321716_ + (let ((_tl2147721650_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3965339654_ '1))) - (_target2154121713_ + (_target2147521647_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3965339654_ '0)))) - (if (gx#stx-null? _tl2154321716_) - (___match3984339844_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) + (if (gx#stx-null? _tl2147721650_) + (___match3973339734_ + _e2143021871_ + _hd2142921875_ + _tl2142821878_ + _e2143321881_ + _hd2143221885_ + _tl2143121888_ + _e2147421637_ + _hd2147321641_ + _tl2147221644_ + ___splice3965339654_ + _target2147521647_ + _tl2147721650_) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2142321510_))))) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2142321510_))))) (let () (declare (not safe)) - (_g2148921576_))))))))) + (_g2142321510_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___splice3975939760_ + (let ((___splice3964939650_ (gx#syntax-split-splice - _tl2149721954_ + _tl2143121888_ '0))) - (let ((_tl2152221812_ + (let ((_tl2145621746_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3964939650_ '1))) - (_target2152021809_ + (_target2145421743_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3964939650_ '0)))) (if (gx#stx-null? - _tl2152221812_) - (___match3981739818_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - ___splice3975939760_ - _target2152021809_ - _tl2152221812_) + _tl2145621746_) + (___match3970739708_ + _e2143021871_ + _hd2142921875_ + _tl2142821878_ + _e2143321881_ + _hd2143221885_ + _tl2143121888_ + ___splice3964939650_ + _target2145421743_ + _tl2145621746_) (if (gx#stx-pair? - _tl2149721954_) - (let ((_e2154021703_ + _tl2143121888_) + (let ((_e2147421637_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2149721954_))) - (let ((_tl2153821710_ + (gx#syntax-e _tl2143121888_))) + (let ((_tl2147221644_ (let () (declare (not safe)) - (##cdr _e2154021703_))) - (_hd2153921707_ + (##cdr _e2147421637_))) + (_hd2147321641_ (let () (declare (not safe)) - (##car _e2154021703_)))) - (if (gx#stx-pair/null? _tl2153821710_) - (let ((___splice3976339764_ - (gx#syntax-split-splice _tl2153821710_ '0))) - (let ((_tl2154321716_ + (##car _e2147421637_)))) + (if (gx#stx-pair/null? _tl2147221644_) + (let ((___splice3965339654_ + (gx#syntax-split-splice _tl2147221644_ '0))) + (let ((_tl2147721650_ (let () (declare (not safe)) - (##vector-ref ___splice3976339764_ '1))) - (_target2154121713_ + (##vector-ref ___splice3965339654_ '1))) + (_target2147521647_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3965339654_ '0)))) - (if (gx#stx-null? _tl2154321716_) - (___match3984339844_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) + (if (gx#stx-null? _tl2147721650_) + (___match3973339734_ + _e2143021871_ + _hd2142921875_ + _tl2142821878_ + _e2143321881_ + _hd2143221885_ + _tl2143121888_ + _e2147421637_ + _hd2147321641_ + _tl2147221644_ + ___splice3965339654_ + _target2147521647_ + _tl2147721650_) (let () (declare (not safe)) - (_g2148921576_))))) - (let () (declare (not safe)) (_g2148921576_))))) - (let () (declare (not safe)) (_g2148921576_))))))))) + (_g2142321510_))))) + (let () (declare (not safe)) (_g2142321510_))))) + (let () (declare (not safe)) (_g2142321510_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___splice3975939760_ + (let ((___splice3964939650_ (gx#syntax-split-splice - _tl2149721954_ + _tl2143121888_ '0))) - (let ((_tl2152221812_ + (let ((_tl2145621746_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3964939650_ '1))) - (_target2152021809_ + (_target2145421743_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3964939650_ '0)))) - (if (gx#stx-null? _tl2152221812_) - (___match3981739818_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - ___splice3975939760_ - _target2152021809_ - _tl2152221812_) + (if (gx#stx-null? _tl2145621746_) + (___match3970739708_ + _e2143021871_ + _hd2142921875_ + _tl2142821878_ + _e2143321881_ + _hd2143221885_ + _tl2143121888_ + ___splice3964939650_ + _target2145421743_ + _tl2145621746_) (if (gx#stx-pair? - _tl2149721954_) - (let ((_e2154021703_ + _tl2143121888_) + (let ((_e2147421637_ (gx#syntax-e - _tl2149721954_))) - (let ((_tl2153821710_ + _tl2143121888_))) + (let ((_tl2147221644_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2154021703_))) - (_hd2153921707_ - (let () (declare (not safe)) (##car _e2154021703_)))) - (if (gx#stx-pair/null? _tl2153821710_) - (let ((___splice3976339764_ - (gx#syntax-split-splice _tl2153821710_ '0))) - (let ((_tl2154321716_ + (##cdr _e2147421637_))) + (_hd2147321641_ + (let () (declare (not safe)) (##car _e2147421637_)))) + (if (gx#stx-pair/null? _tl2147221644_) + (let ((___splice3965339654_ + (gx#syntax-split-splice _tl2147221644_ '0))) + (let ((_tl2147721650_ (let () (declare (not safe)) - (##vector-ref ___splice3976339764_ '1))) - (_target2154121713_ + (##vector-ref ___splice3965339654_ '1))) + (_target2147521647_ (let () (declare (not safe)) - (##vector-ref ___splice3976339764_ '0)))) - (if (gx#stx-null? _tl2154321716_) - (___match3984339844_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) - (let () (declare (not safe)) (_g2148921576_))))) - (let () (declare (not safe)) (_g2148921576_))))) + (##vector-ref ___splice3965339654_ '0)))) + (if (gx#stx-null? _tl2147721650_) + (___match3973339734_ + _e2143021871_ + _hd2142921875_ + _tl2142821878_ + _e2143321881_ + _hd2143221885_ + _tl2143121888_ + _e2147421637_ + _hd2147321641_ + _tl2147221644_ + ___splice3965339654_ + _target2147521647_ + _tl2147721650_) + (let () (declare (not safe)) (_g2142321510_))))) + (let () (declare (not safe)) (_g2142321510_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2148921576_))))))) - (if (gx#stx-pair? _tl2149721954_) - (let ((_e2154021703_ - (gx#syntax-e _tl2149721954_))) - (let ((_tl2153821710_ + (_g2142321510_))))))) + (if (gx#stx-pair? _tl2143121888_) + (let ((_e2147421637_ + (gx#syntax-e _tl2143121888_))) + (let ((_tl2147221644_ (let () (declare (not safe)) - (##cdr _e2154021703_))) - (_hd2153921707_ + (##cdr _e2147421637_))) + (_hd2147321641_ (let () (declare (not safe)) - (##car _e2154021703_)))) + (##car _e2147421637_)))) (if (gx#stx-pair/null? - _tl2153821710_) - (let ((___splice3976339764_ + _tl2147221644_) + (let ((___splice3965339654_ (gx#syntax-split-splice - _tl2153821710_ + _tl2147221644_ '0))) - (let ((_tl2154321716_ + (let ((_tl2147721650_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3965339654_ '1))) - (_target2154121713_ + (_target2147521647_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3965339654_ '0)))) (if (gx#stx-null? - _tl2154321716_) - (___match3984339844_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) + _tl2147721650_) + (___match3973339734_ + _e2143021871_ + _hd2142921875_ + _tl2142821878_ + _e2143321881_ + _hd2143221885_ + _tl2143121888_ + _e2147421637_ + _hd2147321641_ + _tl2147221644_ + ___splice3965339654_ + _target2147521647_ + _tl2147721650_) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2142321510_))))) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2142321510_))))) (let () (declare (not safe)) - (_g2148921576_)))))) - (let () (declare (not safe)) (_g2148921576_))))) - (let () (declare (not safe)) (_g2148921576_))))))))) + (_g2142321510_)))))) + (let () (declare (not safe)) (_g2142321510_))))) + (let () (declare (not safe)) (_g2142321510_))))))))) (define |gerbil/core$$[:0:]#@| - (lambda (_$stx22128_) - (let* ((___stx3987239873_ _$stx22128_) - (_g2213322173_ + (lambda (_$stx22062_) + (let* ((___stx3976239763_ _$stx22062_) + (_g2206722107_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3987239873_)))) - (let ((___kont3987539876_ - (lambda (_L22311_ _L22313_) + ___stx3976239763_)))) + (let ((___kont3976539766_ + (lambda (_L22245_ _L22247_) (cons (gx#datum->syntax '#f 'slot-ref) - (cons _L22313_ + (cons _L22247_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22311_ '())) + (cons _L22245_ '())) '()))))) - (___kont3987739878_ - (lambda (_L22240_ _L22242_ _L22243_ _L22244_) - (cons _L22244_ - (cons (cons _L22244_ - (cons _L22243_ (cons _L22242_ '()))) - (foldr (lambda (_g2226522268_ _g2226622271_) - (cons _g2226522268_ _g2226622271_)) + (___kont3976739768_ + (lambda (_L22174_ _L22176_ _L22177_ _L22178_) + (cons _L22178_ + (cons (cons _L22178_ + (cons _L22177_ (cons _L22176_ '()))) + (foldr (lambda (_g2219922202_ _g2220022205_) + (cons _g2219922202_ _g2220022205_)) '() - _L22240_)))))) - (let* ((___match3992739928_ - (lambda (_e2215222180_ - _hd2215122184_ - _tl2215022187_ - _e2215522190_ - _hd2215422194_ - _tl2215322197_ - _e2215822200_ - _hd2215722204_ - _tl2215622207_ - ___splice3987939880_ - _target2215922210_ - _tl2216122213_) - (letrec ((_loop2216222216_ - (lambda (_hd2216022220_ _rest2216622223_) - (if (gx#stx-pair? _hd2216022220_) - (let ((_e2216322226_ - (gx#syntax-e _hd2216022220_))) - (let ((_lp-tl2216522233_ + _L22174_)))))) + (let* ((___match3981739818_ + (lambda (_e2208622114_ + _hd2208522118_ + _tl2208422121_ + _e2208922124_ + _hd2208822128_ + _tl2208722131_ + _e2209222134_ + _hd2209122138_ + _tl2209022141_ + ___splice3976939770_ + _target2209322144_ + _tl2209522147_) + (letrec ((_loop2209622150_ + (lambda (_hd2209422154_ _rest2210022157_) + (if (gx#stx-pair? _hd2209422154_) + (let ((_e2209722160_ + (gx#syntax-e _hd2209422154_))) + (let ((_lp-tl2209922167_ (let () (declare (not safe)) - (##cdr _e2216322226_))) - (_lp-hd2216422230_ + (##cdr _e2209722160_))) + (_lp-hd2209822164_ (let () (declare (not safe)) - (##car _e2216322226_)))) - (_loop2216222216_ - _lp-tl2216522233_ - (cons _lp-hd2216422230_ - _rest2216622223_)))) - (let ((_rest2216722236_ - (reverse _rest2216622223_))) - (___kont3987739878_ - _rest2216722236_ - _hd2215722204_ - _hd2215422194_ - _hd2215122184_)))))) - (_loop2216222216_ _target2215922210_ '())))) - (___match3990139902_ - (lambda (_e2213922281_ - _hd2213822285_ - _tl2213722288_ - _e2214222291_ - _hd2214122295_ - _tl2214022298_ - _e2214522301_ - _hd2214422305_ - _tl2214322308_) - (let ((_L22311_ _hd2214422305_) - (_L22313_ _hd2214122295_)) - (if (gx#identifier? _L22311_) - (___kont3987539876_ _L22311_ _L22313_) - (if (gx#stx-pair/null? _tl2214322308_) - (let ((___splice3987939880_ + (##car _e2209722160_)))) + (_loop2209622150_ + _lp-tl2209922167_ + (cons _lp-hd2209822164_ + _rest2210022157_)))) + (let ((_rest2210122170_ + (reverse _rest2210022157_))) + (___kont3976739768_ + _rest2210122170_ + _hd2209122138_ + _hd2208822128_ + _hd2208522118_)))))) + (_loop2209622150_ _target2209322144_ '())))) + (___match3979139792_ + (lambda (_e2207322215_ + _hd2207222219_ + _tl2207122222_ + _e2207622225_ + _hd2207522229_ + _tl2207422232_ + _e2207922235_ + _hd2207822239_ + _tl2207722242_) + (let ((_L22245_ _hd2207822239_) + (_L22247_ _hd2207522229_)) + (if (gx#identifier? _L22245_) + (___kont3976539766_ _L22245_ _L22247_) + (if (gx#stx-pair/null? _tl2207722242_) + (let ((___splice3976939770_ (gx#syntax-split-splice - _tl2214322308_ + _tl2207722242_ '0))) - (let ((_tl2216122213_ + (let ((_tl2209522147_ (let () (declare (not safe)) (##vector-ref - ___splice3987939880_ + ___splice3976939770_ '1))) - (_target2215922210_ + (_target2209322144_ (let () (declare (not safe)) (##vector-ref - ___splice3987939880_ + ___splice3976939770_ '0)))) - (if (gx#stx-null? _tl2216122213_) - (___match3992739928_ - _e2213922281_ - _hd2213822285_ - _tl2213722288_ - _e2214222291_ - _hd2214122295_ - _tl2214022298_ - _e2214522301_ - _hd2214422305_ - _tl2214322308_ - ___splice3987939880_ - _target2215922210_ - _tl2216122213_) + (if (gx#stx-null? _tl2209522147_) + (___match3981739818_ + _e2207322215_ + _hd2207222219_ + _tl2207122222_ + _e2207622225_ + _hd2207522229_ + _tl2207422232_ + _e2207922235_ + _hd2207822239_ + _tl2207722242_ + ___splice3976939770_ + _target2209322144_ + _tl2209522147_) (let () (declare (not safe)) - (_g2213322173_))))) + (_g2206722107_))))) (let () (declare (not safe)) - (_g2213322173_)))))))) - (if (gx#stx-pair? ___stx3987239873_) - (let ((_e2213922281_ (gx#syntax-e ___stx3987239873_))) - (let ((_tl2213722288_ - (let () (declare (not safe)) (##cdr _e2213922281_))) - (_hd2213822285_ + (_g2206722107_)))))))) + (if (gx#stx-pair? ___stx3976239763_) + (let ((_e2207322215_ (gx#syntax-e ___stx3976239763_))) + (let ((_tl2207122222_ + (let () (declare (not safe)) (##cdr _e2207322215_))) + (_hd2207222219_ (let () (declare (not safe)) - (##car _e2213922281_)))) - (if (gx#stx-pair? _tl2213722288_) - (let ((_e2214222291_ (gx#syntax-e _tl2213722288_))) - (let ((_tl2214022298_ + (##car _e2207322215_)))) + (if (gx#stx-pair? _tl2207122222_) + (let ((_e2207622225_ (gx#syntax-e _tl2207122222_))) + (let ((_tl2207422232_ (let () (declare (not safe)) - (##cdr _e2214222291_))) - (_hd2214122295_ + (##cdr _e2207622225_))) + (_hd2207522229_ (let () (declare (not safe)) - (##car _e2214222291_)))) - (if (gx#stx-pair? _tl2214022298_) - (let ((_e2214522301_ - (gx#syntax-e _tl2214022298_))) - (let ((_tl2214322308_ + (##car _e2207622225_)))) + (if (gx#stx-pair? _tl2207422232_) + (let ((_e2207922235_ + (gx#syntax-e _tl2207422232_))) + (let ((_tl2207722242_ (let () (declare (not safe)) - (##cdr _e2214522301_))) - (_hd2214422305_ + (##cdr _e2207922235_))) + (_hd2207822239_ (let () (declare (not safe)) - (##car _e2214522301_)))) - (if (gx#stx-null? _tl2214322308_) - (___match3990139902_ - _e2213922281_ - _hd2213822285_ - _tl2213722288_ - _e2214222291_ - _hd2214122295_ - _tl2214022298_ - _e2214522301_ - _hd2214422305_ - _tl2214322308_) + (##car _e2207922235_)))) + (if (gx#stx-null? _tl2207722242_) + (___match3979139792_ + _e2207322215_ + _hd2207222219_ + _tl2207122222_ + _e2207622225_ + _hd2207522229_ + _tl2207422232_ + _e2207922235_ + _hd2207822239_ + _tl2207722242_) (if (gx#stx-pair/null? - _tl2214322308_) - (let ((___splice3987939880_ + _tl2207722242_) + (let ((___splice3976939770_ (gx#syntax-split-splice - _tl2214322308_ + _tl2207722242_ '0))) - (let ((_tl2216122213_ + (let ((_tl2209522147_ (let () (declare (not safe)) (##vector-ref - ___splice3987939880_ + ___splice3976939770_ '1))) - (_target2215922210_ + (_target2209322144_ (let () (declare (not safe)) (##vector-ref - ___splice3987939880_ + ___splice3976939770_ '0)))) (if (gx#stx-null? - _tl2216122213_) - (___match3992739928_ - _e2213922281_ - _hd2213822285_ - _tl2213722288_ - _e2214222291_ - _hd2214122295_ - _tl2214022298_ - _e2214522301_ - _hd2214422305_ - _tl2214322308_ - ___splice3987939880_ - _target2215922210_ - _tl2216122213_) + _tl2209522147_) + (___match3981739818_ + _e2207322215_ + _hd2207222219_ + _tl2207122222_ + _e2207622225_ + _hd2207522229_ + _tl2207422232_ + _e2207922235_ + _hd2207822239_ + _tl2207722242_ + ___splice3976939770_ + _target2209322144_ + _tl2209522147_) (let () (declare (not safe)) - (_g2213322173_))))) + (_g2206722107_))))) (let () (declare (not safe)) - (_g2213322173_)))))) + (_g2206722107_)))))) (let () (declare (not safe)) - (_g2213322173_))))) - (let () (declare (not safe)) (_g2213322173_))))) - (let () (declare (not safe)) (_g2213322173_)))))))) + (_g2206722107_))))) + (let () (declare (not safe)) (_g2206722107_))))) + (let () (declare (not safe)) (_g2206722107_)))))))) (define |gerbil/core$$[:0:]#@-set!| - (lambda (_$stx22333_) - (let* ((___stx3993039931_ _$stx22333_) - (_g2233822390_ + (lambda (_$stx22267_) + (let* ((___stx3982039821_ _$stx22267_) + (_g2227222324_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx3993039931_)))) - (let ((___kont3993339934_ - (lambda (_L22566_ _L22568_ _L22569_) + ___stx3982039821_)))) + (let ((___kont3982339824_ + (lambda (_L22500_ _L22502_ _L22503_) (cons (gx#datum->syntax '#f 'slot-set!) - (cons _L22569_ + (cons _L22503_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22568_ '())) - (cons _L22566_ '())))))) - (___kont3993539936_ - (lambda (_L22477_ - _L22479_ - _L22480_ - _L22481_ - _L22482_ - _L22483_) - (cons _L22483_ + (cons _L22502_ '())) + (cons _L22500_ '())))))) + (___kont3982539826_ + (lambda (_L22411_ + _L22413_ + _L22414_ + _L22415_ + _L22416_ + _L22417_) + (cons _L22417_ (cons (cons (gx#datum->syntax '#f '@) - (cons _L22482_ - (cons _L22481_ - (foldr (lambda (_g2251022513_ + (cons _L22416_ + (cons _L22415_ + (foldr (lambda (_g2244422447_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2251122516_) - (cons _g2251022513_ _g2251122516_)) + _g2244522450_) + (cons _g2244422447_ _g2244522450_)) '() - _L22480_)))) + _L22414_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L22479_ (cons _L22477_ '()))))))) - (let* ((___match4000540006_ - (lambda (_e2236322397_ - _hd2236222401_ - _tl2236122404_ - _e2236622407_ - _hd2236522411_ - _tl2236422414_ - _e2236922417_ - _hd2236822421_ - _tl2236722424_ - ___splice3993739938_ - _target2237022427_ - _tl2237222430_ - _e2238122433_ - _hd2238022437_ - _tl2237922440_ - _e2238422443_ - _hd2238322447_ - _tl2238222450_) - (letrec ((_loop2237322453_ - (lambda (_hd2237122457_ _path2237722460_) - (if (gx#stx-pair? _hd2237122457_) - (let ((_e2237422463_ - (gx#syntax-e _hd2237122457_))) - (let ((_lp-tl2237622470_ + (cons _L22413_ (cons _L22411_ '()))))))) + (let* ((___match3989539896_ + (lambda (_e2229722331_ + _hd2229622335_ + _tl2229522338_ + _e2230022341_ + _hd2229922345_ + _tl2229822348_ + _e2230322351_ + _hd2230222355_ + _tl2230122358_ + ___splice3982739828_ + _target2230422361_ + _tl2230622364_ + _e2231522367_ + _hd2231422371_ + _tl2231322374_ + _e2231822377_ + _hd2231722381_ + _tl2231622384_) + (letrec ((_loop2230722387_ + (lambda (_hd2230522391_ _path2231122394_) + (if (gx#stx-pair? _hd2230522391_) + (let ((_e2230822397_ + (gx#syntax-e _hd2230522391_))) + (let ((_lp-tl2231022404_ (let () (declare (not safe)) - (##cdr _e2237422463_))) - (_lp-hd2237522467_ + (##cdr _e2230822397_))) + (_lp-hd2230922401_ (let () (declare (not safe)) - (##car _e2237422463_)))) - (_loop2237322453_ - _lp-tl2237622470_ - (cons _lp-hd2237522467_ - _path2237722460_)))) - (let ((_path2237822473_ - (reverse _path2237722460_))) - (___kont3993539936_ - _hd2238322447_ - _hd2238022437_ - _path2237822473_ - _hd2236822421_ - _hd2236522411_ - _hd2236222401_)))))) - (_loop2237322453_ _target2237022427_ '())))) - (___match3996539966_ - (lambda (_e2234522526_ - _hd2234422530_ - _tl2234322533_ - _e2234822536_ - _hd2234722540_ - _tl2234622543_ - _e2235122546_ - _hd2235022550_ - _tl2234922553_ - _e2235422556_ - _hd2235322560_ - _tl2235222563_) - (let ((_L22566_ _hd2235322560_) - (_L22568_ _hd2235022550_) - (_L22569_ _hd2234722540_)) - (if (gx#identifier? _L22568_) - (___kont3993339934_ _L22566_ _L22568_ _L22569_) - (if (gx#stx-pair/null? _tl2234922553_) - (if (fx>= (gx#stx-length _tl2234922553_) '2) - (let ((___splice3993739938_ + (##car _e2230822397_)))) + (_loop2230722387_ + _lp-tl2231022404_ + (cons _lp-hd2230922401_ + _path2231122394_)))) + (let ((_path2231222407_ + (reverse _path2231122394_))) + (___kont3982539826_ + _hd2231722381_ + _hd2231422371_ + _path2231222407_ + _hd2230222355_ + _hd2229922345_ + _hd2229622335_)))))) + (_loop2230722387_ _target2230422361_ '())))) + (___match3985539856_ + (lambda (_e2227922460_ + _hd2227822464_ + _tl2227722467_ + _e2228222470_ + _hd2228122474_ + _tl2228022477_ + _e2228522480_ + _hd2228422484_ + _tl2228322487_ + _e2228822490_ + _hd2228722494_ + _tl2228622497_) + (let ((_L22500_ _hd2228722494_) + (_L22502_ _hd2228422484_) + (_L22503_ _hd2228122474_)) + (if (gx#identifier? _L22502_) + (___kont3982339824_ _L22500_ _L22502_ _L22503_) + (if (gx#stx-pair/null? _tl2228322487_) + (if (fx>= (gx#stx-length _tl2228322487_) '2) + (let ((___splice3982739828_ (gx#syntax-split-splice - _tl2234922553_ + _tl2228322487_ '2))) - (let ((_tl2237222430_ + (let ((_tl2230622364_ (let () (declare (not safe)) (##vector-ref - ___splice3993739938_ + ___splice3982739828_ '1))) - (_target2237022427_ + (_target2230422361_ (let () (declare (not safe)) (##vector-ref - ___splice3993739938_ + ___splice3982739828_ '0)))) - (if (gx#stx-pair? _tl2237222430_) - (let ((_e2238122433_ + (if (gx#stx-pair? _tl2230622364_) + (let ((_e2231522367_ (gx#syntax-e - _tl2237222430_))) - (let ((_tl2237922440_ + _tl2230622364_))) + (let ((_tl2231322374_ (let () (declare (not safe)) - (##cdr _e2238122433_))) - (_hd2238022437_ + (##cdr _e2231522367_))) + (_hd2231422371_ (let () (declare (not safe)) - (##car _e2238122433_)))) + (##car _e2231522367_)))) (if (gx#stx-pair? - _tl2237922440_) - (let ((_e2238422443_ + _tl2231322374_) + (let ((_e2231822377_ (gx#syntax-e - _tl2237922440_))) - (let ((_tl2238222450_ + _tl2231322374_))) + (let ((_tl2231622384_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2238422443_))) - (_hd2238322447_ - (let () (declare (not safe)) (##car _e2238422443_)))) - (if (gx#stx-null? _tl2238222450_) - (___match4000540006_ - _e2234522526_ - _hd2234422530_ - _tl2234322533_ - _e2234822536_ - _hd2234722540_ - _tl2234622543_ - _e2235122546_ - _hd2235022550_ - _tl2234922553_ - ___splice3993739938_ - _target2237022427_ - _tl2237222430_ - _e2238122433_ - _hd2238022437_ - _tl2237922440_ - _e2238422443_ - _hd2238322447_ - _tl2238222450_) - (let () (declare (not safe)) (_g2233822390_))))) + (##cdr _e2231822377_))) + (_hd2231722381_ + (let () (declare (not safe)) (##car _e2231822377_)))) + (if (gx#stx-null? _tl2231622384_) + (___match3989539896_ + _e2227922460_ + _hd2227822464_ + _tl2227722467_ + _e2228222470_ + _hd2228122474_ + _tl2228022477_ + _e2228522480_ + _hd2228422484_ + _tl2228322487_ + ___splice3982739828_ + _target2230422361_ + _tl2230622364_ + _e2231522367_ + _hd2231422371_ + _tl2231322374_ + _e2231822377_ + _hd2231722381_ + _tl2231622384_) + (let () (declare (not safe)) (_g2227222324_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2233822390_))))) + (_g2227222324_))))) (let () (declare (not safe)) - (_g2233822390_))))) + (_g2227222324_))))) (let () (declare (not safe)) - (_g2233822390_))) + (_g2227222324_))) (let () (declare (not safe)) - (_g2233822390_)))))))) - (if (gx#stx-pair? ___stx3993039931_) - (let ((_e2234522526_ (gx#syntax-e ___stx3993039931_))) - (let ((_tl2234322533_ - (let () (declare (not safe)) (##cdr _e2234522526_))) - (_hd2234422530_ + (_g2227222324_)))))))) + (if (gx#stx-pair? ___stx3982039821_) + (let ((_e2227922460_ (gx#syntax-e ___stx3982039821_))) + (let ((_tl2227722467_ + (let () (declare (not safe)) (##cdr _e2227922460_))) + (_hd2227822464_ (let () (declare (not safe)) - (##car _e2234522526_)))) - (if (gx#stx-pair? _tl2234322533_) - (let ((_e2234822536_ (gx#syntax-e _tl2234322533_))) - (let ((_tl2234622543_ + (##car _e2227922460_)))) + (if (gx#stx-pair? _tl2227722467_) + (let ((_e2228222470_ (gx#syntax-e _tl2227722467_))) + (let ((_tl2228022477_ (let () (declare (not safe)) - (##cdr _e2234822536_))) - (_hd2234722540_ + (##cdr _e2228222470_))) + (_hd2228122474_ (let () (declare (not safe)) - (##car _e2234822536_)))) - (if (gx#stx-pair? _tl2234622543_) - (let ((_e2235122546_ - (gx#syntax-e _tl2234622543_))) - (let ((_tl2234922553_ + (##car _e2228222470_)))) + (if (gx#stx-pair? _tl2228022477_) + (let ((_e2228522480_ + (gx#syntax-e _tl2228022477_))) + (let ((_tl2228322487_ (let () (declare (not safe)) - (##cdr _e2235122546_))) - (_hd2235022550_ + (##cdr _e2228522480_))) + (_hd2228422484_ (let () (declare (not safe)) - (##car _e2235122546_)))) - (if (gx#stx-pair? _tl2234922553_) - (let ((_e2235422556_ - (gx#syntax-e _tl2234922553_))) - (let ((_tl2235222563_ + (##car _e2228522480_)))) + (if (gx#stx-pair? _tl2228322487_) + (let ((_e2228822490_ + (gx#syntax-e _tl2228322487_))) + (let ((_tl2228622497_ (let () (declare (not safe)) - (##cdr _e2235422556_))) - (_hd2235322560_ + (##cdr _e2228822490_))) + (_hd2228722494_ (let () (declare (not safe)) - (##car _e2235422556_)))) - (if (gx#stx-null? _tl2235222563_) - (___match3996539966_ - _e2234522526_ - _hd2234422530_ - _tl2234322533_ - _e2234822536_ - _hd2234722540_ - _tl2234622543_ - _e2235122546_ - _hd2235022550_ - _tl2234922553_ - _e2235422556_ - _hd2235322560_ - _tl2235222563_) + (##car _e2228822490_)))) + (if (gx#stx-null? _tl2228622497_) + (___match3985539856_ + _e2227922460_ + _hd2227822464_ + _tl2227722467_ + _e2228222470_ + _hd2228122474_ + _tl2228022477_ + _e2228522480_ + _hd2228422484_ + _tl2228322487_ + _e2228822490_ + _hd2228722494_ + _tl2228622497_) (if (gx#stx-pair/null? - _tl2234922553_) + _tl2228322487_) (if (fx>= (gx#stx-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2234922553_) + _tl2228322487_) '2) - (let ((___splice3993739938_ - (gx#syntax-split-splice _tl2234922553_ '2))) - (let ((_tl2237222430_ + (let ((___splice3982739828_ + (gx#syntax-split-splice _tl2228322487_ '2))) + (let ((_tl2230622364_ (let () (declare (not safe)) - (##vector-ref ___splice3993739938_ '1))) - (_target2237022427_ + (##vector-ref ___splice3982739828_ '1))) + (_target2230422361_ (let () (declare (not safe)) - (##vector-ref ___splice3993739938_ '0)))) - (if (gx#stx-pair? _tl2237222430_) - (let ((_e2238122433_ (gx#syntax-e _tl2237222430_))) - (let ((_tl2237922440_ + (##vector-ref ___splice3982739828_ '0)))) + (if (gx#stx-pair? _tl2230622364_) + (let ((_e2231522367_ (gx#syntax-e _tl2230622364_))) + (let ((_tl2231322374_ (let () (declare (not safe)) - (##cdr _e2238122433_))) - (_hd2238022437_ + (##cdr _e2231522367_))) + (_hd2231422371_ (let () (declare (not safe)) - (##car _e2238122433_)))) - (if (gx#stx-pair? _tl2237922440_) - (let ((_e2238422443_ - (gx#syntax-e _tl2237922440_))) - (let ((_tl2238222450_ + (##car _e2231522367_)))) + (if (gx#stx-pair? _tl2231322374_) + (let ((_e2231822377_ + (gx#syntax-e _tl2231322374_))) + (let ((_tl2231622384_ (let () (declare (not safe)) - (##cdr _e2238422443_))) - (_hd2238322447_ + (##cdr _e2231822377_))) + (_hd2231722381_ (let () (declare (not safe)) - (##car _e2238422443_)))) - (if (gx#stx-null? _tl2238222450_) - (___match4000540006_ - _e2234522526_ - _hd2234422530_ - _tl2234322533_ - _e2234822536_ - _hd2234722540_ - _tl2234622543_ - _e2235122546_ - _hd2235022550_ - _tl2234922553_ - ___splice3993739938_ - _target2237022427_ - _tl2237222430_ - _e2238122433_ - _hd2238022437_ - _tl2237922440_ - _e2238422443_ - _hd2238322447_ - _tl2238222450_) + (##car _e2231822377_)))) + (if (gx#stx-null? _tl2231622384_) + (___match3989539896_ + _e2227922460_ + _hd2227822464_ + _tl2227722467_ + _e2228222470_ + _hd2228122474_ + _tl2228022477_ + _e2228522480_ + _hd2228422484_ + _tl2228322487_ + ___splice3982739828_ + _target2230422361_ + _tl2230622364_ + _e2231522367_ + _hd2231422371_ + _tl2231322374_ + _e2231822377_ + _hd2231722381_ + _tl2231622384_) (let () (declare (not safe)) - (_g2233822390_))))) + (_g2227222324_))))) (let () (declare (not safe)) - (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_))) - (let () (declare (not safe)) (_g2233822390_)))))) + (_g2227222324_))))) + (let () (declare (not safe)) (_g2227222324_))))) + (let () (declare (not safe)) (_g2227222324_))) + (let () (declare (not safe)) (_g2227222324_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl2234922553_) + _tl2228322487_) (if (fx>= (gx#stx-length - _tl2234922553_) + _tl2228322487_) '2) - (let ((___splice3993739938_ + (let ((___splice3982739828_ (gx#syntax-split-splice - _tl2234922553_ + _tl2228322487_ '2))) - (let ((_tl2237222430_ + (let ((_tl2230622364_ (let () (declare (not safe)) (##vector-ref - ___splice3993739938_ + ___splice3982739828_ '1))) - (_target2237022427_ + (_target2230422361_ (let () (declare (not safe)) (##vector-ref - ___splice3993739938_ + ___splice3982739828_ '0)))) (if (gx#stx-pair? - _tl2237222430_) - (let ((_e2238122433_ + _tl2230622364_) + (let ((_e2231522367_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2237222430_))) - (let ((_tl2237922440_ - (let () (declare (not safe)) (##cdr _e2238122433_))) - (_hd2238022437_ + (gx#syntax-e _tl2230622364_))) + (let ((_tl2231322374_ + (let () (declare (not safe)) (##cdr _e2231522367_))) + (_hd2231422371_ (let () (declare (not safe)) - (##car _e2238122433_)))) - (if (gx#stx-pair? _tl2237922440_) - (let ((_e2238422443_ (gx#syntax-e _tl2237922440_))) - (let ((_tl2238222450_ + (##car _e2231522367_)))) + (if (gx#stx-pair? _tl2231322374_) + (let ((_e2231822377_ (gx#syntax-e _tl2231322374_))) + (let ((_tl2231622384_ (let () (declare (not safe)) - (##cdr _e2238422443_))) - (_hd2238322447_ + (##cdr _e2231822377_))) + (_hd2231722381_ (let () (declare (not safe)) - (##car _e2238422443_)))) - (if (gx#stx-null? _tl2238222450_) - (___match4000540006_ - _e2234522526_ - _hd2234422530_ - _tl2234322533_ - _e2234822536_ - _hd2234722540_ - _tl2234622543_ - _e2235122546_ - _hd2235022550_ - _tl2234922553_ - ___splice3993739938_ - _target2237022427_ - _tl2237222430_ - _e2238122433_ - _hd2238022437_ - _tl2237922440_ - _e2238422443_ - _hd2238322447_ - _tl2238222450_) + (##car _e2231822377_)))) + (if (gx#stx-null? _tl2231622384_) + (___match3989539896_ + _e2227922460_ + _hd2227822464_ + _tl2227722467_ + _e2228222470_ + _hd2228122474_ + _tl2228022477_ + _e2228522480_ + _hd2228422484_ + _tl2228322487_ + ___splice3982739828_ + _target2230422361_ + _tl2230622364_ + _e2231522367_ + _hd2231422371_ + _tl2231322374_ + _e2231822377_ + _hd2231722381_ + _tl2231622384_) (let () (declare (not safe)) - (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_))))) + (_g2227222324_))))) + (let () (declare (not safe)) (_g2227222324_))))) + (let () (declare (not safe)) (_g2227222324_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2233822390_))) + (_g2227222324_))) (let () (declare (not safe)) - (_g2233822390_)))))) + (_g2227222324_)))))) (let () (declare (not safe)) - (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_)))))))))) + (_g2227222324_))))) + (let () (declare (not safe)) (_g2227222324_))))) + (let () (declare (not safe)) (_g2227222324_)))))))))) diff --git a/src/bootstrap/gerbil/core__8.scm b/src/bootstrap/gerbil/core__8.scm index eba12c6bf..dfc713108 100644 --- a/src/bootstrap/gerbil/core__8.scm +++ b/src/bootstrap/gerbil/core__8.scm @@ -11,10 +11,10 @@ (define |gerbil/core$$[1]#macro-object?| (make-class-predicate |gerbil/core$$[1]#macro-object::t|)) (define |gerbil/core$$[1]#make-macro-object| - (lambda _$args22744_ + (lambda _$args22678_ (apply make-class-instance |gerbil/core$$[1]#macro-object::t| - _$args22744_))) + _$args22678_))) (define |gerbil/core$$[1]#macro-object-macro| (make-class-slot-accessor |gerbil/core$$[1]#macro-object::t| @@ -32,23 +32,23 @@ |gerbil/core$$[1]#macro-object::t| 'macro)) (define |gerbil/core$$[1]#macro-object::apply-macro-expander| - (lambda (_self22740_ _stx22742_) + (lambda (_self22674_ _stx22676_) (gx#core-apply-expander - (let () (declare (not safe)) (unchecked-slot-ref _self22740_ 'macro)) - _stx22742_))) + (let () (declare (not safe)) (unchecked-slot-ref _self22674_ 'macro)) + _stx22676_))) (define |gerbil/core$$[1]#macro-object::apply-macro-expander::specialize| - (lambda (__t37002) - (let ((__macro37003 - (let ((__tmp37004 (class-slot-offset __t37002 'macro))) - (if __tmp37004 - (let () (declare (not safe)) (##fx+ __tmp37004 '1)) + (lambda (__t36936) + (let ((__macro36937 + (let ((__tmp36938 (class-slot-offset __t36936 'macro))) + (if __tmp36938 + (let () (declare (not safe)) (##fx+ __tmp36938 '1)) (error '"Unknown slot" 'macro))))) - (lambda (_self22740_ _stx22742_) + (lambda (_self22674_ _stx22676_) (gx#core-apply-expander (let () (declare (not safe)) - (##unchecked-structure-ref _self22740_ __macro37003 __t37002 '#f)) - _stx22742_))))) + (##unchecked-structure-ref _self22674_ __macro36937 __t36936 '#f)) + _stx22676_))))) (bind-specializer! |gerbil/core$$[1]#macro-object::apply-macro-expander| |gerbil/core$$[1]#macro-object::apply-macro-expander::specialize|) diff --git a/src/bootstrap/gerbil/core__9.scm b/src/bootstrap/gerbil/core__9.scm index 3706da757..522a2413c 100644 --- a/src/bootstrap/gerbil/core__9.scm +++ b/src/bootstrap/gerbil/core__9.scm @@ -1,104 +1,104 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[2]#_g42914_| + (define |gerbil/core$$[2]#_g42753_| (##structure gx#syntax-quote::t 'runtime-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42916_| + (define |gerbil/core$$[2]#_g42755_| (##structure gx#syntax-quote::t 'runtime-struct-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42918_| + (define |gerbil/core$$[2]#_g42757_| (##structure gx#syntax-quote::t 'runtime-class-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42920_| + (define |gerbil/core$$[2]#_g42759_| (##structure gx#syntax-quote::t 'expander-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42922_| + (define |gerbil/core$$[2]#_g42761_| (##structure gx#syntax-quote::t 'extended-runtime-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42924_| + (define |gerbil/core$$[2]#_g42763_| (##structure gx#syntax-quote::t 'extended-struct-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42926_| + (define |gerbil/core$$[2]#_g42765_| (##structure gx#syntax-quote::t 'extended-class-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42928_| + (define |gerbil/core$$[2]#_g42767_| (##structure gx#syntax-quote::t 'runtime-rtd-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42930_| + (define |gerbil/core$$[2]#_g42769_| (##structure gx#syntax-quote::t 'runtime-struct-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42932_| + (define |gerbil/core$$[2]#_g42771_| (##structure gx#syntax-quote::t 'runtime-class-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42936_| + (define |gerbil/core$$[2]#_g42775_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42937_| + (define |gerbil/core$$[2]#_g42776_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42938_| + (define |gerbil/core$$[2]#_g42777_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42939_| + (define |gerbil/core$$[2]#_g42778_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42940_| + (define |gerbil/core$$[2]#_g42779_| (##structure gx#syntax-quote::t 'macro-object-macro-set! @@ -107,94 +107,94 @@ '())) (begin (define |gerbil/core$$[:1:]#runtime-type-info| - (let ((__tmp42913 |gerbil/core$$[2]#_g42914_|)) + (let ((__tmp42752 |gerbil/core$$[2]#_g42753_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42913))) + __tmp42752))) (define |gerbil/core$$[:1:]#runtime-struct-info| - (let ((__tmp42915 |gerbil/core$$[2]#_g42916_|)) + (let ((__tmp42754 |gerbil/core$$[2]#_g42755_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42915))) + __tmp42754))) (define |gerbil/core$$[:1:]#runtime-class-info| - (let ((__tmp42917 |gerbil/core$$[2]#_g42918_|)) + (let ((__tmp42756 |gerbil/core$$[2]#_g42757_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42917))) + __tmp42756))) (define |gerbil/core$$[:1:]#expander-type-info| - (let ((__tmp42919 |gerbil/core$$[2]#_g42920_|)) + (let ((__tmp42758 |gerbil/core$$[2]#_g42759_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42919))) + __tmp42758))) (define |gerbil/core$$[:1:]#extended-runtime-type-info| - (let ((__tmp42921 |gerbil/core$$[2]#_g42922_|)) + (let ((__tmp42760 |gerbil/core$$[2]#_g42761_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42921))) + __tmp42760))) (define |gerbil/core$$[:1:]#extended-struct-info| - (let ((__tmp42923 |gerbil/core$$[2]#_g42924_|)) + (let ((__tmp42762 |gerbil/core$$[2]#_g42763_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42923))) + __tmp42762))) (define |gerbil/core$$[:1:]#extended-class-info| - (let ((__tmp42925 |gerbil/core$$[2]#_g42926_|)) + (let ((__tmp42764 |gerbil/core$$[2]#_g42765_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42925))) + __tmp42764))) (define |gerbil/core$$[:1:]#runtime-rtd-exhibitor| - (let ((__tmp42927 |gerbil/core$$[2]#_g42928_|)) + (let ((__tmp42766 |gerbil/core$$[2]#_g42767_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42927))) + __tmp42766))) (define |gerbil/core$$[:1:]#runtime-struct-exhibitor| - (let ((__tmp42929 |gerbil/core$$[2]#_g42930_|)) + (let ((__tmp42768 |gerbil/core$$[2]#_g42769_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42929))) + __tmp42768))) (define |gerbil/core$$[:1:]#runtime-class-exhibitor| - (let ((__tmp42931 |gerbil/core$$[2]#_g42932_|)) + (let ((__tmp42770 |gerbil/core$$[2]#_g42771_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42931))) + __tmp42770))) (define |gerbil/core$$[:1:]#macro-object| - (let ((__tmp42941 |gerbil/core$$[2]#_g42936_|) - (__tmp42935 + (let ((__tmp42780 |gerbil/core$$[2]#_g42775_|) + (__tmp42774 (cons '() - (cons |gerbil/core$$[2]#_g42936_| - (cons |gerbil/core$$[2]#_g42937_| - (cons |gerbil/core$$[2]#_g42938_| - (cons (cons |gerbil/core$$[2]#_g42939_| + (cons |gerbil/core$$[2]#_g42775_| + (cons |gerbil/core$$[2]#_g42776_| + (cons |gerbil/core$$[2]#_g42777_| + (cons (cons |gerbil/core$$[2]#_g42778_| '()) - (cons (cons |gerbil/core$$[2]#_g42940_| + (cons (cons |gerbil/core$$[2]#_g42779_| '()) '()))))))) - (__tmp42933 - (let ((__tmp42934 (list))) + (__tmp42772 + (let ((__tmp42773 (list))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#macro-object::t - __tmp42934 + __tmp42773 'macro-object '#f '() @@ -203,8 +203,8 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp42941 + __tmp42780 'expander-identifiers: - __tmp42935 + __tmp42774 'type-exhibitor: - __tmp42933))))) + __tmp42772))))) diff --git a/src/bootstrap/gerbil/expander/common__0.scm b/src/bootstrap/gerbil/expander/common__0.scm index 770645b86..b5b07322f 100644 --- a/src/bootstrap/gerbil/expander/common__0.scm +++ b/src/bootstrap/gerbil/expander/common__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/common::timestamp 1701718654) + (define gerbil/expander/common::timestamp 1704735491) (begin (define gx#AST::t (let () diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index 2d47381ec..e093303fd 100644 --- a/src/bootstrap/gerbil/expander/compile__0.scm +++ b/src/bootstrap/gerbil/expander/compile__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1701718655) + (define gerbil/expander/compile::timestamp 1704735491) (begin (declare (not safe)) (define gx#core-compile-top-syntax diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index d0ff49986..064e0aa04 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 1701718654) + (define gerbil/expander/core::timestamp 1704735491) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -230,7 +230,9 @@ (##vector-set! _self10072_ '2 (make-table 'test: eq?)) (##vector-set! _self10072_ '3 _super10074_)) (error '"struct-instance-init!: too many arguments for struct" - _self10072_)))) + _self10072_ + '3 + (##vector-length _self10072_))))) (define gx#phi-context:::init!__0 (lambda (_self10079_ _id10080_) (let ((_super10082_ (gx#current-expander-context))) @@ -262,7 +264,9 @@ (##vector-set! _self9936_ '2 (make-table 'test: eq?)) (##vector-set! _self9936_ '3 _super9937_)) (error '"struct-instance-init!: too many arguments for struct" - _self9936_)))) + _self9936_ + '3 + (##vector-length _self9936_))))) (define gx#local-context:::init!__0 (lambda (_self9942_) (let ((_super9944_ (gx#current-expander-context))) diff --git a/src/bootstrap/gerbil/expander/module__0.scm b/src/bootstrap/gerbil/expander/module__0.scm index 463dc45b0..31a458b52 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 1701718655) + (define gerbil/expander/module::timestamp 1704735491) (begin (declare (not safe)) (define gx#module-import::t @@ -236,7 +236,9 @@ (##vector-set! _self17184_ '10 '#f) (##vector-set! _self17184_ '11 '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self17184_)))) + _self17184_ + '11 + (##vector-length _self17184_))))) (bind-method! gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% (lambda (_self17028_ _ctx17029_ _root17030_) @@ -280,7 +282,9 @@ (##vector-set! _self17028_ '7 _in17043_) (##vector-set! _self17028_ '8 _e17044_)) (error '"struct-instance-init!: too many arguments for struct" - _self17028_)) + _self17028_ + '8 + (##vector-length _self17028_))) (for-each (lambda (_g1704517047_) (gx#core-bind-weak-import!__% _g1704517047_ _self17028_)) @@ -296,7 +300,9 @@ (##vector-set! _self17028_ '7 '()) (##vector-set! _self17028_ '8 '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self17028_)))))) + _self17028_ + '8 + (##vector-length _self17028_))))))) (define gx#prelude-context:::init!__0 (lambda (_self17053_ _ctx17054_) (let ((_root17056_ '#f)) @@ -333,7 +339,9 @@ '3 (fx- (gx#current-expander-phi) '1))) (error '"struct-instance-init!: too many arguments for struct" - _self16902_)))) + _self16902_ + '3 + (##vector-length _self16902_))))) (define gx#import-expander:::init! gx#import-export-expander-init!) (bind-method! gx#import-expander::t ':init! gx#import-expander:::init! '#f) (define gx#export-expander:::init! gx#import-export-expander-init!) diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index 6b2f1a3c5..65b6fcda5 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 1701718655) + (define gerbil/expander/root::timestamp 1704735491) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -268,7 +268,9 @@ (##vector-set! _self19658_ '1 'root) (##vector-set! _self19658_ '2 (make-table 'test: eq?))) (error '"struct-instance-init!: too many arguments for struct" - _self19658_)) + _self19658_ + '2 + (##vector-length _self19658_))) (if _bind?19659_ (begin (let ((__method19709 @@ -316,36 +318,36 @@ _g19714_)))))) (define gx#root-context:::init!::specialize (lambda (__t19670) - (let ((__bind-core-features!19671 + (let ((__bind-core-syntax-expanders!19671 (make-promise (lambda () (let ((__tmp19674 - (direct-method-ref __t19670 'bind-core-features!))) + (direct-method-ref + __t19670 + 'bind-core-syntax-expanders!))) (if __tmp19674 __tmp19674 - (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-syntax-expanders!19672 + (error '"Missing method" + 'bind-core-syntax-expanders!)))))) + (__bind-core-macro-expanders!19672 (make-promise (lambda () (let ((__tmp19675 (direct-method-ref __t19670 - 'bind-core-syntax-expanders!))) + 'bind-core-macro-expanders!))) (if __tmp19675 __tmp19675 (error '"Missing method" - 'bind-core-syntax-expanders!)))))) - (__bind-core-macro-expanders!19673 + 'bind-core-macro-expanders!)))))) + (__bind-core-features!19673 (make-promise (lambda () (let ((__tmp19676 - (direct-method-ref - __t19670 - 'bind-core-macro-expanders!))) + (direct-method-ref __t19670 'bind-core-features!))) (if __tmp19676 __tmp19676 - (error '"Missing method" - 'bind-core-macro-expanders!))))))) + (error '"Missing method" 'bind-core-features!))))))) (let ((_opt-lambda1965619661_ (lambda (_self19658_ _bind?19659_) (if (##fx< '2 (##vector-length _self19658_)) @@ -356,14 +358,16 @@ '2 (make-table 'test: eq?))) (error '"struct-instance-init!: too many arguments for struct" - _self19658_)) + _self19658_ + '2 + (##vector-length _self19658_))) (if _bind?19659_ (begin - ((force __bind-core-syntax-expanders!19672) + ((force __bind-core-syntax-expanders!19671) _self19658_) - ((force __bind-core-macro-expanders!19673) + ((force __bind-core-macro-expanders!19672) _self19658_) - ((force __bind-core-features!19671) _self19658_)) + ((force __bind-core-features!19673) _self19658_)) '#!void)))) (lambda _g19716_ (let ((_g19715_ (##length _g19716_))) @@ -409,7 +413,9 @@ (##vector-set! _self19514_ '4 '#f) (##vector-set! _self19514_ '5 '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self19514_))))) + _self19514_ + '5 + (##vector-length _self19514_)))))) (define gx#top-context:::init!__0 (lambda (_self19528_) (let ((_super19530_ '#f)) diff --git a/src/bootstrap/gerbil/expander/stx__0.scm b/src/bootstrap/gerbil/expander/stx__0.scm index b7f0c2100..9162e286c 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 1701718654) + (define gerbil/expander/stx::timestamp 1704735491) (begin (declare (not safe)) (define gx#identifier-wrap::t diff --git a/src/bootstrap/gerbil/expander/stxcase__0.scm b/src/bootstrap/gerbil/expander/stxcase__0.scm index bc2a6a020..e76f95fbb 100644 --- a/src/bootstrap/gerbil/expander/stxcase__0.scm +++ b/src/bootstrap/gerbil/expander/stxcase__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1701718655) + (define gerbil/expander/stxcase::timestamp 1704735492) (begin (define gx#syntax-pattern::t (let () diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index 7465c73fc..e06c02697 100644 --- a/src/bootstrap/gerbil/expander/top__0.scm +++ b/src/bootstrap/gerbil/expander/top__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1701718655) + (define gerbil/expander/top::timestamp 1704735491) (begin (declare (not safe)) (define gx#core-expand-begin% diff --git a/src/bootstrap/gerbil/runtime.ssi b/src/bootstrap/gerbil/runtime.ssi index ab40d9511..66eebcf1a 100644 --- a/src/bootstrap/gerbil/runtime.ssi +++ b/src/bootstrap/gerbil/runtime.ssi @@ -8,6 +8,7 @@ namespace: gerbil/runtime :gerbil/runtime/util :gerbil/runtime/loader :gerbil/runtime/control + :gerbil/runtime/c3 :gerbil/runtime/mop :gerbil/runtime/error :gerbil/runtime/thread @@ -20,6 +21,7 @@ namespace: gerbil/runtime (import: :gerbil/runtime/util) (import: :gerbil/runtime/loader) (import: :gerbil/runtime/control) + (import: :gerbil/runtime/c3) (import: :gerbil/runtime/mop) (import: :gerbil/runtime/error) (import: :gerbil/runtime/syntax) diff --git a/src/bootstrap/gerbil/runtime/c3.ssi b/src/bootstrap/gerbil/runtime/c3.ssi new file mode 100644 index 000000000..a8f372f08 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/c3.ssi @@ -0,0 +1,25 @@ +prelude: :gerbil/core +package: gerbil/runtime +namespace: #f + +(%#begin (%#export (spec: 0 c3-linearize c3-linearize)) + (%#import :gerbil/runtime/util) + (%#begin (%#define-runtime c3-linearize__% c3-linearize__%) + (%#begin (%#define-runtime c3-linearize__0 c3-linearize__0) + (%#define-runtime c3-linearize__1 c3-linearize__1) + (%#define-runtime c3-linearize c3-linearize))) + (%#begin (%#define-runtime c3-linearize-loop__% c3-linearize-loop__%) + (%#begin (%#define-runtime + c3-linearize-loop__0 + c3-linearize-loop__0) + (%#define-runtime + c3-linearize-loop__1 + c3-linearize-loop__1) + (%#define-runtime + c3-linearize-loop + c3-linearize-loop))) + (%#define-runtime c3-select-next c3-select-next) + (%#begin (%#define-runtime remove-next!__% remove-next!__%) + (%#begin (%#define-runtime remove-next!__0 remove-next!__0) + (%#define-runtime remove-next! remove-next!)))) +(%#call (%#ref load-module) (%#quote "gerbil/runtime/c3__0")) diff --git a/src/bootstrap/gerbil/runtime/c3.ssxi.ss b/src/bootstrap/gerbil/runtime/c3.ssxi.ss new file mode 100644 index 000000000..144f0a94c --- /dev/null +++ b/src/bootstrap/gerbil/runtime/c3.ssxi.ss @@ -0,0 +1,25 @@ +prelude: :gerbil/compiler/ssxi +package: gerbil/runtime + +(begin + (declare-type c3-linearize__% (@lambda 5 #f)) + (declare-type c3-linearize__0 (@lambda 3 #f)) + (declare-type c3-linearize__1 (@lambda 4 #f)) + (declare-type + c3-linearize + (@case-lambda (3 c3-linearize__0) (4 c3-linearize__1) (5 c3-linearize__%))) + (declare-type c3-linearize-loop__% (@lambda 4 #f)) + (declare-type c3-linearize-loop__0 (@lambda 2 #f)) + (declare-type c3-linearize-loop__1 (@lambda 3 #f)) + (declare-type + c3-linearize-loop + (@case-lambda + (2 c3-linearize-loop__0) + (3 c3-linearize-loop__1) + (4 c3-linearize-loop__%))) + (declare-type c3-select-next (@lambda 3 #f)) + (declare-type remove-next!__% (@lambda 3 #f)) + (declare-type remove-next!__0 (@lambda 2 #f)) + (declare-type + remove-next! + (@case-lambda (2 remove-next!__0) (3 remove-next!__%)))) diff --git a/src/bootstrap/gerbil/runtime/c3__0.scm b/src/bootstrap/gerbil/runtime/c3__0.scm new file mode 100644 index 000000000..d9e842c5c --- /dev/null +++ b/src/bootstrap/gerbil/runtime/c3__0.scm @@ -0,0 +1,325 @@ +(declare (block) (standard-bindings) (extended-bindings)) +(begin + (define gerbil/runtime/c3::timestamp 1706585167) + (begin + (define c3-linearize__% + (lambda (_rhead9181_ + _supers9182_ + _get-precedence-list9183_ + _eqpred9184_ + _get-name9185_) + (let ((_tails9187_ (map _get-precedence-list9183_ _supers9182_))) + (let () (declare (not safe)) (append1! _tails9187_ _supers9182_)) + (let () + (declare (not safe)) + (c3-linearize-loop__% + _rhead9181_ + _tails9187_ + _eqpred9184_ + _get-name9185_))))) + (define c3-linearize__0 + (lambda (_rhead9192_ _supers9193_ _get-precedence-list9194_) + (let* ((_eqpred9196_ eq?) (_get-name9198_ identity)) + (declare (not safe)) + (c3-linearize__% + _rhead9192_ + _supers9193_ + _get-precedence-list9194_ + _eqpred9196_ + _get-name9198_)))) + (define c3-linearize__1 + (lambda (_rhead9200_ _supers9201_ _get-precedence-list9202_ _eqpred9203_) + (let ((_get-name9205_ identity)) + (declare (not safe)) + (c3-linearize__% + _rhead9200_ + _supers9201_ + _get-precedence-list9202_ + _eqpred9203_ + _get-name9205_)))) + (define c3-linearize + (lambda _g9233_ + (let ((_g9232_ (let () (declare (not safe)) (##length _g9233_)))) + (cond ((let () (declare (not safe)) (##fx= _g9232_ 3)) + (apply (lambda (_rhead9192_ + _supers9193_ + _get-precedence-list9194_) + (let () + (declare (not safe)) + (c3-linearize__0 + _rhead9192_ + _supers9193_ + _get-precedence-list9194_))) + _g9233_)) + ((let () (declare (not safe)) (##fx= _g9232_ 4)) + (apply (lambda (_rhead9200_ + _supers9201_ + _get-precedence-list9202_ + _eqpred9203_) + (let () + (declare (not safe)) + (c3-linearize__1 + _rhead9200_ + _supers9201_ + _get-precedence-list9202_ + _eqpred9203_))) + _g9233_)) + ((let () (declare (not safe)) (##fx= _g9232_ 5)) + (apply (lambda (_rhead9207_ + _supers9208_ + _get-precedence-list9209_ + _eqpred9210_ + _get-name9211_) + (let () + (declare (not safe)) + (c3-linearize__% + _rhead9207_ + _supers9208_ + _get-precedence-list9209_ + _eqpred9210_ + _get-name9211_))) + _g9233_)) + (else + (##raise-wrong-number-of-arguments-exception + c3-linearize + _g9233_)))))) + (define c3-linearize-loop__% + (lambda (_rhead9097_ _tails9098_ _eqpred9099_ _get-name9100_) + (let _loop9102_ ((_rhead9104_ _rhead9097_) (_tails9105_ _tails9098_)) + (let* ((_tails9107_ + (let () (declare (not safe)) (remove-nulls! _tails9105_))) + (_tails91089118_ _tails9107_) + (_else91119136_ + (lambda () + (let* ((_err9131_ + (lambda () + (error '"Inconsistent precedence graph" + 'head: + (map _get-name9100_ (reverse _rhead9104_)) + 'tails: + (map (lambda (_g91269128_) + (map _get-name9100_ _g91269128_)) + _tails9107_)))) + (_next9133_ + (let () + (declare (not safe)) + (c3-select-next + _tails9107_ + _eqpred9099_ + _err9131_)))) + (let ((__tmp9235 + (let () + (declare (not safe)) + (cons _next9133_ _rhead9104_))) + (__tmp9234 + (let () + (declare (not safe)) + (remove-next!__% + _next9133_ + _tails9107_ + _eqpred9099_)))) + (declare (not safe)) + (_loop9102_ __tmp9235 __tmp9234)))))) + (let ((_K91169156_ (lambda () (reverse _rhead9104_))) + (_K91139142_ + (lambda (_tail9140_) + (let () + (declare (not safe)) + (append-reverse _rhead9104_ _tail9140_))))) + (let ((_try-match91109152_ + (lambda () + (if (let () + (declare (not safe)) + (##pair? _tails91089118_)) + (let ((_tl91159147_ + (let () + (declare (not safe)) + (##cdr _tails91089118_))) + (_hd91149145_ + (let () + (declare (not safe)) + (##car _tails91089118_)))) + (if (let () + (declare (not safe)) + (##null? _tl91159147_)) + (let ((_tail9150_ _hd91149145_)) + (declare (not safe)) + (_K91139142_ _tail9150_)) + (let () + (declare (not safe)) + (_else91119136_)))) + (let () (declare (not safe)) (_else91119136_)))))) + (if (let () (declare (not safe)) (##null? _tails91089118_)) + (let () (declare (not safe)) (_K91169156_)) + (let () (declare (not safe)) (_try-match91109152_))))))))) + (define c3-linearize-loop__0 + (lambda (_rhead9162_ _tails9163_) + (let* ((_eqpred9165_ eq?) (_get-name9167_ identity)) + (declare (not safe)) + (c3-linearize-loop__% + _rhead9162_ + _tails9163_ + _eqpred9165_ + _get-name9167_)))) + (define c3-linearize-loop__1 + (lambda (_rhead9169_ _tails9170_ _eqpred9171_) + (let ((_get-name9173_ identity)) + (declare (not safe)) + (c3-linearize-loop__% + _rhead9169_ + _tails9170_ + _eqpred9171_ + _get-name9173_)))) + (define c3-linearize-loop + (lambda _g9237_ + (let ((_g9236_ (let () (declare (not safe)) (##length _g9237_)))) + (cond ((let () (declare (not safe)) (##fx= _g9236_ 2)) + (apply (lambda (_rhead9162_ _tails9163_) + (let () + (declare (not safe)) + (c3-linearize-loop__0 _rhead9162_ _tails9163_))) + _g9237_)) + ((let () (declare (not safe)) (##fx= _g9236_ 3)) + (apply (lambda (_rhead9169_ _tails9170_ _eqpred9171_) + (let () + (declare (not safe)) + (c3-linearize-loop__1 + _rhead9169_ + _tails9170_ + _eqpred9171_))) + _g9237_)) + ((let () (declare (not safe)) (##fx= _g9236_ 4)) + (apply (lambda (_rhead9175_ + _tails9176_ + _eqpred9177_ + _get-name9178_) + (let () + (declare (not safe)) + (c3-linearize-loop__% + _rhead9175_ + _tails9176_ + _eqpred9177_ + _get-name9178_))) + _g9237_)) + (else + (##raise-wrong-number-of-arguments-exception + c3-linearize-loop + _g9237_)))))) + (define c3-select-next + (lambda (_tails9044_ _eqpred9045_ _err9046_) + (let ((_candidate?9052_ + (lambda (_c9048_) + (let ((__tmp9238 + (lambda (_tail9050_) + (let ((__tmp9239 + (member _c9048_ + (cdr _tail9050_) + _eqpred9045_))) + (declare (not safe)) + (not __tmp9239))))) + (declare (not safe)) + (andmap1 __tmp9238 _tails9044_))))) + (let _loop9054_ ((_ts9056_ _tails9044_)) + (let* ((_ts90579067_ _ts9056_) + (_else90599075_ (lambda () (_err9046_))) + (_K90619081_ + (lambda (_rts9078_ _c9079_) + (if (let () + (declare (not safe)) + (_candidate?9052_ _c9079_)) + _c9079_ + (let () + (declare (not safe)) + (_loop9054_ _rts9078_)))))) + (if (let () (declare (not safe)) (##pair? _ts90579067_)) + (let ((_hd90629084_ + (let () (declare (not safe)) (##car _ts90579067_))) + (_tl90639086_ + (let () (declare (not safe)) (##cdr _ts90579067_)))) + (if (let () (declare (not safe)) (##pair? _hd90629084_)) + (let* ((_hd90649089_ + (let () + (declare (not safe)) + (##car _hd90629084_))) + (_c9092_ _hd90649089_) + (_rts9094_ _tl90639086_)) + (declare (not safe)) + (_K90619081_ _rts9094_ _c9092_)) + (let () (declare (not safe)) (_err9046_)))) + (let () (declare (not safe)) (_err9046_)))))))) + (define remove-next!__% + (lambda (_next8976_ _tails8977_ _eqpred8978_) + (let _loop8980_ ((_t8982_ _tails8977_)) + (let* ((_t89838994_ _t8982_) + (_E89868998_ + (lambda () (error '"No clause matching" _t89838994_)))) + (let ((_K89929029_ (lambda () _tails8977_)) + (_K89879006_ + (lambda (_more9002_ _tail9003_ _head9004_) + (if (_eqpred8978_ _head9004_ _next8976_) + (set-car! _t8982_ _tail9003_) + '#!void) + (let () (declare (not safe)) (_loop8980_ _more9002_))))) + (let ((_try-match89859025_ + (lambda () + (if (let () (declare (not safe)) (##pair? _t89838994_)) + (let ((_tl89899011_ + (let () + (declare (not safe)) + (##cdr _t89838994_))) + (_hd89889009_ + (let () + (declare (not safe)) + (##car _t89838994_)))) + (if (let () + (declare (not safe)) + (##pair? _hd89889009_)) + (let ((_tl89919016_ + (let () + (declare (not safe)) + (##cdr _hd89889009_))) + (_hd89909014_ + (let () + (declare (not safe)) + (##car _hd89889009_)))) + (let ((_head9019_ _hd89909014_) + (_tail9021_ _tl89919016_) + (_more9023_ _tl89899011_)) + (let () + (declare (not safe)) + (_K89879006_ + _more9023_ + _tail9021_ + _head9019_)))) + (let () (declare (not safe)) (_E89868998_)))) + (let () (declare (not safe)) (_E89868998_)))))) + (if (let () (declare (not safe)) (##null? _t89838994_)) + (let () (declare (not safe)) (_K89929029_)) + (let () (declare (not safe)) (_try-match89859025_))))))))) + (define remove-next!__0 + (lambda (_next9035_ _tails9036_) + (let ((_eqpred9038_ eq?)) + (declare (not safe)) + (remove-next!__% _next9035_ _tails9036_ _eqpred9038_)))) + (define remove-next! + (lambda _g9241_ + (let ((_g9240_ (let () (declare (not safe)) (##length _g9241_)))) + (cond ((let () (declare (not safe)) (##fx= _g9240_ 2)) + (apply (lambda (_next9035_ _tails9036_) + (let () + (declare (not safe)) + (remove-next!__0 _next9035_ _tails9036_))) + _g9241_)) + ((let () (declare (not safe)) (##fx= _g9240_ 3)) + (apply (lambda (_next9040_ _tails9041_ _eqpred9042_) + (let () + (declare (not safe)) + (remove-next!__% + _next9040_ + _tails9041_ + _eqpred9042_))) + _g9241_)) + (else + (##raise-wrong-number-of-arguments-exception + remove-next! + _g9241_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3__rt.scm b/src/bootstrap/gerbil/runtime/c3__rt.scm new file mode 100644 index 000000000..5cc63ce2a --- /dev/null +++ b/src/bootstrap/gerbil/runtime/c3__rt.scm @@ -0,0 +1,4 @@ +(declare (block) (standard-bindings) (extended-bindings)) +(begin + (load-module "gerbil/runtime/util__rt") + (load-module "gerbil/runtime/c3__0")) diff --git a/src/bootstrap/gerbil/runtime/control__0.scm b/src/bootstrap/gerbil/runtime/control__0.scm index 0eb4ff26e..0fff08921 100644 --- a/src/bootstrap/gerbil/runtime/control__0.scm +++ b/src/bootstrap/gerbil/runtime/control__0.scm @@ -1,277 +1,277 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1701718632) + (define gerbil/runtime/control::timestamp 1706585167) (begin (define make-promise - (lambda (_thunk7081_) - (let () (declare (not safe)) (##make-delay-promise _thunk7081_)))) + (lambda (_thunk8778_) + (let () (declare (not safe)) (##make-delay-promise _thunk8778_)))) (define call-with-parameters - (lambda (_thunk7029_ . _rest7030_) - (let* ((_rest70317042_ _rest7030_) - (_E70347046_ - (lambda () (error '"No clause matching" _rest70317042_)))) - (let ((_K70367062_ - (lambda (_rest7057_ _val7058_ _param7059_) - (let ((__tmp7093 - (if (let () (declare (not safe)) (null? _rest7057_)) - _thunk7029_ + (lambda (_thunk8726_ . _rest8727_) + (let* ((_rest87288739_ _rest8727_) + (_E87318743_ + (lambda () (error '"No clause matching" _rest87288739_)))) + (let ((_K87338759_ + (lambda (_rest8754_ _val8755_ _param8756_) + (let ((__tmp9348 + (if (let () (declare (not safe)) (null? _rest8754_)) + _thunk8726_ (lambda () (apply call-with-parameters - _thunk7029_ - _rest7057_))))) + _thunk8726_ + _rest8754_))))) (declare (not safe)) - (##parameterize1 _param7059_ _val7058_ __tmp7093)))) - (_K70357051_ (lambda () (_thunk7029_)))) - (let ((_try-match70337054_ + (##parameterize1 _param8756_ _val8755_ __tmp9348)))) + (_K87328748_ (lambda () (_thunk8726_)))) + (let ((_try-match87308751_ (lambda () - (if (let () (declare (not safe)) (##null? _rest70317042_)) - (let () (declare (not safe)) (_thunk7029_)) - (let () (declare (not safe)) (_E70347046_)))))) - (if (let () (declare (not safe)) (##pair? _rest70317042_)) - (let ((_tl70387067_ - (let () (declare (not safe)) (##cdr _rest70317042_))) - (_hd70377065_ - (let () (declare (not safe)) (##car _rest70317042_)))) - (if (let () (declare (not safe)) (##pair? _tl70387067_)) - (let ((_tl70407074_ + (if (let () (declare (not safe)) (##null? _rest87288739_)) + (let () (declare (not safe)) (_thunk8726_)) + (let () (declare (not safe)) (_E87318743_)))))) + (if (let () (declare (not safe)) (##pair? _rest87288739_)) + (let ((_tl87358764_ + (let () (declare (not safe)) (##cdr _rest87288739_))) + (_hd87348762_ + (let () (declare (not safe)) (##car _rest87288739_)))) + (if (let () (declare (not safe)) (##pair? _tl87358764_)) + (let ((_tl87378771_ (let () (declare (not safe)) - (##cdr _tl70387067_))) - (_hd70397072_ + (##cdr _tl87358764_))) + (_hd87368769_ (let () (declare (not safe)) - (##car _tl70387067_)))) - (let ((_param7070_ _hd70377065_) - (_val7077_ _hd70397072_) - (_rest7079_ _tl70407074_)) + (##car _tl87358764_)))) + (let ((_param8767_ _hd87348762_) + (_val8774_ _hd87368769_) + (_rest8776_ _tl87378771_)) (let () (declare (not safe)) - (_K70367062_ _rest7079_ _val7077_ _param7070_)))) - (let () (declare (not safe)) (_E70347046_)))) - (let () (declare (not safe)) (_try-match70337054_)))))))) + (_K87338759_ _rest8776_ _val8774_ _param8767_)))) + (let () (declare (not safe)) (_E87318743_)))) + (let () (declare (not safe)) (_try-match87308751_)))))))) (define with-unwind-protect - (lambda (_K7022_ _fini7023_) - (let ((_once7025_ '#f)) + (lambda (_K8719_ _fini8720_) + (let ((_once8722_ '#f)) (dynamic-wind (lambda () (declare (not interrupts-enabled)) - (if _once7025_ + (if _once8722_ (error '"Cannot re-enter unwind protected block") - (set! _once7025_ '#t))) - _K7022_ - _fini7023_)))) + (set! _once8722_ '#t))) + _K8719_ + _fini8720_)))) (define keyword-dispatch - (lambda (_kwt6919_ _K6920_ . _all-args6921_) - (if _kwt6919_ - (if (let () (declare (not safe)) (vector? _kwt6919_)) + (lambda (_kwt8616_ _K8617_ . _all-args8618_) + (if _kwt8616_ + (if (let () (declare (not safe)) (vector? _kwt8616_)) '#!void - (error '"expected vector" _kwt6919_)) + (error '"expected vector" _kwt8616_)) '#!void) - (if (let () (declare (not safe)) (procedure? _K6920_)) + (if (let () (declare (not safe)) (procedure? _K8617_)) '#!void - (error '"expected procedure" _K6920_)) - (let ((_keys6923_ + (error '"expected procedure" _K8617_)) + (let ((_keys8620_ (let () (declare (not safe)) (make-table 'test: eq? 'hash: keyword-hash)))) - (let _lp6925_ ((_rest6927_ _all-args6921_) - (_args6928_ '#f) - (_tail6929_ '#f)) - (let* ((_rest69306938_ _rest6927_) - (_else69326946_ + (let _lp8622_ ((_rest8624_ _all-args8618_) + (_args8625_ '#f) + (_tail8626_ '#f)) + (let* ((_rest86278635_ _rest8624_) + (_else86298643_ (lambda () - (if _args6928_ + (if _args8625_ (begin (let () (declare (not safe)) - (##set-cdr! _tail6929_ '())) - (let ((__tmp7094 + (##set-cdr! _tail8626_ '())) + (let ((__tmp9349 (let () (declare (not safe)) - (cons _keys6923_ _args6928_)))) + (cons _keys8620_ _args8625_)))) (declare (not safe)) - (##apply _K6920_ __tmp7094))) - (_K6920_ _keys6923_)))) - (_K69347010_ - (lambda (_hd-rest6949_ _hd6950_) - (if (keyword? _hd6950_) - (let* ((_hd-rest69516958_ _hd-rest6949_) - (_E69536962_ + (##apply _K8617_ __tmp9349))) + (_K8617_ _keys8620_)))) + (_K86318707_ + (lambda (_hd-rest8646_ _hd8647_) + (if (keyword? _hd8647_) + (let* ((_hd-rest86488655_ _hd-rest8646_) + (_E86508659_ (lambda () (error '"No clause matching" - _hd-rest69516958_))) - (_K69546970_ - (lambda (_rest6965_ _val6966_) - (if _kwt6919_ - (let ((_pos6968_ - (let ((__tmp7098 - (keyword-hash _hd6950_)) - (__tmp7097 + _hd-rest86488655_))) + (_K86518667_ + (lambda (_rest8662_ _val8663_) + (if _kwt8616_ + (let ((_pos8665_ + (let ((__tmp9353 + (keyword-hash _hd8647_)) + (__tmp9352 (let () (declare (not safe)) (##vector-length - _kwt6919_)))) + _kwt8616_)))) (declare (not safe)) (##fxmodulo - __tmp7098 - __tmp7097)))) - (if (let ((__tmp7099 + __tmp9353 + __tmp9352)))) + (if (let ((__tmp9354 (let () (declare (not safe)) (##vector-ref - _kwt6919_ - _pos6968_)))) + _kwt8616_ + _pos8665_)))) (declare (not safe)) - (eq? _hd6950_ __tmp7099)) + (eq? _hd8647_ __tmp9354)) '#!void (error '"Unexpected keyword argument" - _K6920_ - _hd6950_))) + _K8617_ + _hd8647_))) '#!void) (if (let () (declare (not safe)) - (hash-key? _keys6923_ _hd6950_)) + (hash-key? _keys8620_ _hd8647_)) (error '"Duplicate keyword argument" - _K6920_ - _hd6950_) + _K8617_ + _hd8647_) '#!void) (let () (declare (not safe)) (table-set! - _keys6923_ - _hd6950_ - _val6966_)) + _keys8620_ + _hd8647_ + _val8663_)) (let () (declare (not safe)) - (_lp6925_ - _rest6965_ - _args6928_ - _tail6929_))))) + (_lp8622_ + _rest8662_ + _args8625_ + _tail8626_))))) (if (let () (declare (not safe)) - (##pair? _hd-rest69516958_)) - (let ((_hd69556973_ + (##pair? _hd-rest86488655_)) + (let ((_hd86528670_ (let () (declare (not safe)) - (##car _hd-rest69516958_))) - (_tl69566975_ + (##car _hd-rest86488655_))) + (_tl86538672_ (let () (declare (not safe)) - (##cdr _hd-rest69516958_)))) - (let* ((_val6978_ _hd69556973_) - (_rest6980_ _tl69566975_)) + (##cdr _hd-rest86488655_)))) + (let* ((_val8675_ _hd86528670_) + (_rest8677_ _tl86538672_)) (declare (not safe)) - (_K69546970_ _rest6980_ _val6978_))) - (let () (declare (not safe)) (_E69536962_)))) + (_K86518667_ _rest8677_ _val8675_))) + (let () (declare (not safe)) (_E86508659_)))) (if (let () (declare (not safe)) - (eq? _hd6950_ '#!key)) - (let* ((_hd-rest69816988_ _hd-rest6949_) - (_E69836992_ + (eq? _hd8647_ '#!key)) + (let* ((_hd-rest86788685_ _hd-rest8646_) + (_E86808689_ (lambda () (error '"No clause matching" - _hd-rest69816988_))) - (_K69846998_ - (lambda (_rest6995_ _val6996_) - (if _args6928_ + _hd-rest86788685_))) + (_K86818695_ + (lambda (_rest8692_ _val8693_) + (if _args8625_ (begin (let () (declare (not safe)) (##set-cdr! - _tail6929_ - _hd-rest6949_)) + _tail8626_ + _hd-rest8646_)) (let () (declare (not safe)) - (_lp6925_ - _rest6995_ - _args6928_ - _hd-rest6949_))) + (_lp8622_ + _rest8692_ + _args8625_ + _hd-rest8646_))) (let () (declare (not safe)) - (_lp6925_ - _rest6995_ - _hd-rest6949_ - _hd-rest6949_)))))) + (_lp8622_ + _rest8692_ + _hd-rest8646_ + _hd-rest8646_)))))) (if (let () (declare (not safe)) - (##pair? _hd-rest69816988_)) - (let ((_hd69857001_ + (##pair? _hd-rest86788685_)) + (let ((_hd86828698_ (let () (declare (not safe)) - (##car _hd-rest69816988_))) - (_tl69867003_ + (##car _hd-rest86788685_))) + (_tl86838700_ (let () (declare (not safe)) - (##cdr _hd-rest69816988_)))) - (let* ((_val7006_ _hd69857001_) - (_rest7008_ _tl69867003_)) + (##cdr _hd-rest86788685_)))) + (let* ((_val8703_ _hd86828698_) + (_rest8705_ _tl86838700_)) (declare (not safe)) - (_K69846998_ _rest7008_ _val7006_))) + (_K86818695_ _rest8705_ _val8703_))) (let () (declare (not safe)) - (_E69836992_)))) + (_E86808689_)))) (if (let () (declare (not safe)) - (eq? _hd6950_ '#!rest)) - (if _args6928_ + (eq? _hd8647_ '#!rest)) + (if _args8625_ (begin (let () (declare (not safe)) (##set-cdr! - _tail6929_ - _hd-rest6949_)) - (let ((__tmp7096 + _tail8626_ + _hd-rest8646_)) + (let ((__tmp9351 (let () (declare (not safe)) - (cons _keys6923_ - _args6928_)))) + (cons _keys8620_ + _args8625_)))) (declare (not safe)) - (##apply _K6920_ __tmp7096))) - (let ((__tmp7095 + (##apply _K8617_ __tmp9351))) + (let ((__tmp9350 (let () (declare (not safe)) - (cons _keys6923_ - _hd-rest6949_)))) + (cons _keys8620_ + _hd-rest8646_)))) (declare (not safe)) - (##apply _K6920_ __tmp7095))) - (if _args6928_ + (##apply _K8617_ __tmp9350))) + (if _args8625_ (begin (let () (declare (not safe)) - (##set-cdr! _tail6929_ _rest6927_)) + (##set-cdr! _tail8626_ _rest8624_)) (let () (declare (not safe)) - (_lp6925_ - _hd-rest6949_ - _args6928_ - _rest6927_))) + (_lp8622_ + _hd-rest8646_ + _args8625_ + _rest8624_))) (let () (declare (not safe)) - (_lp6925_ - _hd-rest6949_ - _rest6927_ - _rest6927_))))))))) - (if (let () (declare (not safe)) (##pair? _rest69306938_)) - (let ((_hd69357013_ - (let () (declare (not safe)) (##car _rest69306938_))) - (_tl69367015_ - (let () (declare (not safe)) (##cdr _rest69306938_)))) - (let* ((_hd7018_ _hd69357013_) - (_hd-rest7020_ _tl69367015_)) + (_lp8622_ + _hd-rest8646_ + _rest8624_ + _rest8624_))))))))) + (if (let () (declare (not safe)) (##pair? _rest86278635_)) + (let ((_hd86328710_ + (let () (declare (not safe)) (##car _rest86278635_))) + (_tl86338712_ + (let () (declare (not safe)) (##cdr _rest86278635_)))) + (let* ((_hd8715_ _hd86328710_) + (_hd-rest8717_ _tl86338712_)) (declare (not safe)) - (_K69347010_ _hd-rest7020_ _hd7018_))) - (let () (declare (not safe)) (_else69326946_)))))))) + (_K86318707_ _hd-rest8717_ _hd8715_))) + (let () (declare (not safe)) (_else86298643_)))))))) (define keyword-rest - (lambda (_kwt6910_ . _drop6911_) + (lambda (_kwt8607_ . _drop8608_) (for-each - (lambda (_kw6913_) - (let () (declare (not safe)) (table-set! _kwt6910_ _kw6913_))) - _drop6911_) - (let ((__tmp7100 - (lambda (_k6915_ _v6916_ _r6917_) - (let ((__tmp7101 - (let () (declare (not safe)) (cons _v6916_ _r6917_)))) + (lambda (_kw8610_) + (let () (declare (not safe)) (table-set! _kwt8607_ _kw8610_))) + _drop8608_) + (let ((__tmp9355 + (lambda (_k8612_ _v8613_ _r8614_) + (let ((__tmp9356 + (let () (declare (not safe)) (cons _v8613_ _r8614_)))) (declare (not safe)) - (cons _k6915_ __tmp7101))))) + (cons _k8612_ __tmp9356))))) (declare (not safe)) - (hash-fold __tmp7100 '() _kwt6910_)))))) + (hash-fold __tmp9355 '() _kwt8607_)))))) diff --git a/src/bootstrap/gerbil/runtime/error.ssi b/src/bootstrap/gerbil/runtime/error.ssi index 4f68570f8..ea4189366 100644 --- a/src/bootstrap/gerbil/runtime/error.ssi +++ b/src/bootstrap/gerbil/runtime/error.ssi @@ -85,6 +85,7 @@ namespace: #f (%#define-runtime Error:::init!::specialize Error:::init!::specialize)) + (%#define-runtime dump-stack-trace? dump-stack-trace?) (%#begin (%#define-runtime Error::display-exception Error::display-exception) diff --git a/src/bootstrap/gerbil/runtime/error__0.scm b/src/bootstrap/gerbil/runtime/error__0.scm index 82ac40120..cc9365618 100644 --- a/src/bootstrap/gerbil/runtime/error__0.scm +++ b/src/bootstrap/gerbil/runtime/error__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1701718632) + (define gerbil/runtime/error::timestamp 1706585167) (begin (define Exception::t (let () @@ -15,8 +15,8 @@ (define Exception? (let () (declare (not safe)) (make-class-predicate Exception::t))) (define make-Exception - (lambda _$args10454_ - (apply make-class-instance Exception::t _$args10454_))) + (lambda _$args12436_ + (apply make-class-instance Exception::t _$args12436_))) (define StackTrace::t (let () (declare (not safe)) @@ -30,8 +30,8 @@ (define StackTrace? (let () (declare (not safe)) (make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _$args10451_ - (apply make-class-instance StackTrace::t _$args10451_))) + (lambda _$args12433_ + (apply make-class-instance StackTrace::t _$args12433_))) (define StackTrace-continuation (let () (declare (not safe)) @@ -49,15 +49,15 @@ (declare (not safe)) (make-class-slot-unchecked-mutator StackTrace::t 'continuation))) (define Error::t - (let ((__tmp10474 - (let ((__tmp10475 + (let ((__tmp12456 + (let ((__tmp12457 (let () (declare (not safe)) (cons Exception::t '())))) (declare (not safe)) - (cons StackTrace::t __tmp10475)))) + (cons StackTrace::t __tmp12457)))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Error::t - __tmp10474 + __tmp12456 '(message irritants where) 'Error '((transparent: . #t)) @@ -65,7 +65,7 @@ (define Error? (let () (declare (not safe)) (make-class-predicate Error::t))) (define make-Error - (lambda _$args10448_ (apply make-class-instance Error::t _$args10448_))) + (lambda _$args12430_ (apply make-class-instance Error::t _$args12430_))) (define Error-message (let () (declare (not safe)) @@ -111,15 +111,15 @@ (declare (not safe)) (make-class-slot-unchecked-mutator Error::t 'where))) (define RuntimeException::t - (let ((__tmp10476 - (let ((__tmp10477 + (let ((__tmp12458 + (let ((__tmp12459 (let () (declare (not safe)) (cons Exception::t '())))) (declare (not safe)) - (cons StackTrace::t __tmp10477)))) + (cons StackTrace::t __tmp12459)))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#RuntimeException::t - __tmp10476 + __tmp12458 '(exception) 'RuntimeException '((transparent: . #t)) @@ -127,8 +127,8 @@ (define RuntimeException? (let () (declare (not safe)) (make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _$args10445_ - (apply make-class-instance RuntimeException::t _$args10445_))) + (lambda _$args12427_ + (apply make-class-instance RuntimeException::t _$args12427_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -146,54 +146,54 @@ (declare (not safe)) (make-class-slot-unchecked-mutator RuntimeException::t 'exception))) (define gerbil-exception-handler-hook - (lambda (_exn10440_ _continue10441_) - (let ((_exn10443_ + (lambda (_exn12422_ _continue12423_) + (let ((_exn12425_ (let () (declare (not safe)) - (wrap-runtime-exception _exn10440_)))) + (wrap-runtime-exception _exn12422_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn10443_ _continue10441_)))) + (##repl-exception-handler-hook _exn12425_ _continue12423_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn10436_) + (lambda (_exn12418_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn10436_)) + (class-instance? StackTrace::t _exn12418_)) (if (let () (declare (not safe)) - (slot-ref _exn10436_ 'continuation)) + (slot-ref _exn12418_ 'continuation)) '#!void - (let ((__tmp10478 - (lambda (_cont10438_) + (let ((__tmp12460 + (lambda (_cont12420_) (let () (declare (not safe)) (unchecked-slot-set! - _exn10436_ + _exn12418_ 'continuation - _cont10438_))))) + _cont12420_))))) (declare (not safe)) - (##continuation-capture __tmp10478))) + (##continuation-capture __tmp12460))) '#!void) - (let () (declare (not safe)) (##raise _exn10436_)))) + (let () (declare (not safe)) (##raise _exn12418_)))) (define error - (lambda (_message10433_ . _irritants10434_) + (lambda (_message12415_ . _irritants12416_) (raise (let () (declare (not safe)) (make-class-instance Error::t - _message10433_ + _message12415_ 'irritants: - _irritants10434_))))) + _irritants12416_))))) (define with-exception-handler - (lambda (_handler10426_ _thunk10427_) - (if (let () (declare (not safe)) (procedure? _handler10426_)) + (lambda (_handler12408_ _thunk12409_) + (if (let () (declare (not safe)) (procedure? _handler12408_)) '#!void - (raise (let ((__tmp10479 + (raise (let ((__tmp12461 (let () (declare (not safe)) - (cons _handler10426_ '())))) + (cons _handler12408_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -201,13 +201,13 @@ 'where: 'with-exception-handler 'irritants: - __tmp10479)))) - (if (let () (declare (not safe)) (procedure? _thunk10427_)) + __tmp12461)))) + (if (let () (declare (not safe)) (procedure? _thunk12409_)) '#!void - (raise (let ((__tmp10480 + (raise (let ((__tmp12462 (let () (declare (not safe)) - (cons _thunk10427_ '())))) + (cons _thunk12409_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -215,24 +215,24 @@ 'where: 'with-exception-hander 'irritants: - __tmp10480)))) - (let ((__tmp10481 - (lambda (_exn10429_) - (let ((_exn10431_ + __tmp12462)))) + (let ((__tmp12463 + (lambda (_exn12411_) + (let ((_exn12413_ (let () (declare (not safe)) - (wrap-runtime-exception _exn10429_)))) - (_handler10426_ _exn10431_))))) + (wrap-runtime-exception _exn12411_)))) + (_handler12408_ _exn12413_))))) (declare (not safe)) - (##with-exception-handler __tmp10481 _thunk10427_)))) + (##with-exception-handler __tmp12463 _thunk12409_)))) (define with-catch - (lambda (_handler10419_ _thunk10420_) - (if (let () (declare (not safe)) (procedure? _handler10419_)) + (lambda (_handler12401_ _thunk12402_) + (if (let () (declare (not safe)) (procedure? _handler12401_)) '#!void - (raise (let ((__tmp10482 + (raise (let ((__tmp12464 (let () (declare (not safe)) - (cons _handler10419_ '())))) + (cons _handler12401_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -240,13 +240,13 @@ 'where: 'with-exception-handler 'irritants: - __tmp10482)))) - (if (let () (declare (not safe)) (procedure? _thunk10420_)) + __tmp12464)))) + (if (let () (declare (not safe)) (procedure? _thunk12402_)) '#!void - (raise (let ((__tmp10483 + (raise (let ((__tmp12465 (let () (declare (not safe)) - (cons _thunk10420_ '())))) + (cons _thunk12402_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -254,354 +254,356 @@ 'where: 'with-exception-hander 'irritants: - __tmp10483)))) - (let ((__tmp10484 - (lambda (_cont10422_) + __tmp12465)))) + (let ((__tmp12466 + (lambda (_cont12404_) (with-exception-handler - (lambda (_exn10424_) + (lambda (_exn12406_) (let () (declare (not safe)) (##continuation-graft - _cont10422_ - _handler10419_ - _exn10424_))) - _thunk10420_)))) + _cont12404_ + _handler12401_ + _exn12406_))) + _thunk12402_)))) (declare (not safe)) - (##continuation-capture __tmp10484)))) + (##continuation-capture __tmp12466)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_exn10410_) - (if (or (heap-overflow-exception? _exn10410_) - (stack-overflow-exception? _exn10410_)) - _exn10410_ + (lambda (_exn12392_) + (if (or (heap-overflow-exception? _exn12392_) + (stack-overflow-exception? _exn12392_)) + _exn12392_ (if (let () (declare (not safe)) - (class-instance? Exception::t _exn10410_)) - _exn10410_ - (if (macro-exception? _exn10410_) - (let ((_rte10415_ + (class-instance? Exception::t _exn12392_)) + _exn12392_ + (if (macro-exception? _exn12392_) + (let ((_rte12397_ (let () (declare (not safe)) (make-class-instance RuntimeException::t 'exception: - _exn10410_)))) - (let ((__tmp10485 - (lambda (_cont10417_) - (let ((__tmp10486 + _exn12392_)))) + (let ((__tmp12467 + (lambda (_cont12399_) + (let ((__tmp12468 (let () (declare (not safe)) - (##continuation-next _cont10417_)))) + (##continuation-next _cont12399_)))) (declare (not safe)) (unchecked-slot-set! - _rte10415_ + _rte12397_ 'continuation - __tmp10486))))) + __tmp12468))))) (declare (not safe)) - (##continuation-capture __tmp10485)) - _rte10415_) - _exn10410_))))) + (##continuation-capture __tmp12467)) + _rte12397_) + _exn12392_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj10405_) - (let ((_$e10407_ + (lambda (_obj12387_) + (let ((_$e12389_ (let () (declare (not safe)) - (class-instance? Error::t _obj10405_)))) - (if _$e10407_ _$e10407_ (error-exception? _obj10405_))))) + (class-instance? Error::t _obj12387_)))) + (if _$e12389_ _$e12389_ (error-exception? _obj12387_))))) (define error-message - (lambda (_obj10403_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj10403_)) - (let () (declare (not safe)) (slot-ref _obj10403_ 'message)) - (if (error-exception? _obj10403_) - (error-exception-message _obj10403_) + (lambda (_obj12385_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12385_)) + (let () (declare (not safe)) (slot-ref _obj12385_ 'message)) + (if (error-exception? _obj12385_) + (error-exception-message _obj12385_) '#f)))) (define error-irritants - (lambda (_obj10401_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj10401_)) - (let () (declare (not safe)) (slot-ref _obj10401_ 'irritants)) - (if (error-exception? _obj10401_) - (error-exception-parameters _obj10401_) + (lambda (_obj12383_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12383_)) + (let () (declare (not safe)) (slot-ref _obj12383_ 'irritants)) + (if (error-exception? _obj12383_) + (error-exception-parameters _obj12383_) '#f)))) (define error-trace - (lambda (_obj10399_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj10399_)) - (let () (declare (not safe)) (slot-ref _obj10399_ 'where)) + (lambda (_obj12381_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12381_)) + (let () (declare (not safe)) (slot-ref _obj12381_ 'where)) '#f))) (define display-exception__% - (lambda (_e10381_ _port10382_) - (let ((_$e10384_ + (lambda (_e12363_ _port12364_) + (let ((_$e12366_ (let () (declare (not safe)) - (method-ref _e10381_ 'display-exception)))) - (if _$e10384_ - ((lambda (_f10387_) (_f10387_ _e10381_ _port10382_)) _$e10384_) + (method-ref _e12363_ 'display-exception)))) + (if _$e12366_ + ((lambda (_f12369_) (_f12369_ _e12363_ _port12364_)) _$e12366_) (let () (declare (not safe)) - (##default-display-exception _e10381_ _port10382_)))))) + (##default-display-exception _e12363_ _port12364_)))))) (define display-exception__0 - (lambda (_e10392_) - (let ((_port10394_ (current-error-port))) + (lambda (_e12374_) + (let ((_port12376_ (current-error-port))) (declare (not safe)) - (display-exception__% _e10392_ _port10394_)))) + (display-exception__% _e12374_ _port12376_)))) (define display-exception - (lambda _g10488_ - (let ((_g10487_ (let () (declare (not safe)) (##length _g10488_)))) - (cond ((let () (declare (not safe)) (##fx= _g10487_ 1)) - (apply (lambda (_e10392_) + (lambda _g12470_ + (let ((_g12469_ (let () (declare (not safe)) (##length _g12470_)))) + (cond ((let () (declare (not safe)) (##fx= _g12469_ 1)) + (apply (lambda (_e12374_) (let () (declare (not safe)) - (display-exception__0 _e10392_))) - _g10488_)) - ((let () (declare (not safe)) (##fx= _g10487_ 2)) - (apply (lambda (_e10396_ _port10397_) + (display-exception__0 _e12374_))) + _g12470_)) + ((let () (declare (not safe)) (##fx= _g12469_ 2)) + (apply (lambda (_e12378_ _port12379_) (let () (declare (not safe)) - (display-exception__% _e10396_ _port10397_))) - _g10488_)) + (display-exception__% _e12378_ _port12379_))) + _g12470_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g10488_)))))) + _g12470_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_self10370_ _message10371_ . _rest10372_) - (let ((_message10378_ - (if (let () (declare (not safe)) (string? _message10371_)) - _message10371_ + (lambda (_self12352_ _message12353_ . _rest12354_) + (let ((_message12360_ + (if (let () (declare (not safe)) (string? _message12353_)) + _message12353_ (call-with-output-string '"" - (lambda (_g1037310375_) - (display _message10371_ _g1037310375_)))))) + (lambda (_g1235512357_) + (display _message12353_ _g1235512357_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _self10370_ 'message _message10378_)) - (apply class-instance-init! _self10370_ _rest10372_)))) + (unchecked-slot-set! _self12352_ 'message _message12360_)) + (apply class-instance-init! _self12352_ _rest12354_)))) (define Error:::init!::specialize - (lambda (__t10456) - (let ((__message10457 - (let ((__tmp10458 + (lambda (__t12438) + (let ((__message12439 + (let ((__tmp12440 (let () (declare (not safe)) - (class-slot-offset __t10456 'message)))) - (if __tmp10458 - (let () (declare (not safe)) (##fx+ __tmp10458 '1)) + (class-slot-offset __t12438 'message)))) + (if __tmp12440 + (let () (declare (not safe)) (##fx+ __tmp12440 '1)) (error '"Unknown slot" 'message))))) - (lambda (_self10370_ _message10371_ . _rest10372_) - (let ((_message10378_ - (if (let () (declare (not safe)) (string? _message10371_)) - _message10371_ + (lambda (_self12352_ _message12353_ . _rest12354_) + (let ((_message12360_ + (if (let () (declare (not safe)) (string? _message12353_)) + _message12353_ (call-with-output-string '"" - (lambda (_g1037310375_) - (display _message10371_ _g1037310375_)))))) + (lambda (_g1235512357_) + (display _message12353_ _g1235512357_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _self10370_ - _message10378_ - __message10457 - __t10456 + _self12352_ + _message12360_ + __message12439 + __t12438 '#f)) - (apply class-instance-init! _self10370_ _rest10372_)))))) + (apply class-instance-init! _self12352_ _rest12354_)))))) (let () (declare (not safe)) (bind-specializer! Error:::init! Error:::init!::specialize)) (let () (declare (not safe)) (bind-method! Error::t ':init! Error:::init! '#f)) + (define dump-stack-trace? (make-parameter '#t)) (define Error::display-exception - (lambda (_self10228_ _port10229_) - (let ((_tmp-port10231_ (open-output-string)) - (_display-error-newline10232_ - (> (output-port-column _port10229_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port10231_)) - (let ((__tmp10489 + (lambda (_self12210_ _port12211_) + (let ((_tmp-port12213_ (open-output-string)) + (_display-error-newline12214_ + (> (output-port-column _port12211_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12213_)) + (let ((__tmp12471 (lambda () - (if _display-error-newline10232_ (newline) '#!void) + (if _display-error-newline12214_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e10235_ + (let ((_$e12217_ (let () (declare (not safe)) - (slot-ref _self10228_ 'where)))) - (if _$e10235_ (display _$e10235_) (display '"?"))) - (let ((__tmp10490 - (let ((__tmp10491 + (slot-ref _self12210_ 'where)))) + (if _$e12217_ (display _$e12217_) (display '"?"))) + (let ((__tmp12472 + (let ((__tmp12473 (let () (declare (not safe)) - (object-type _self10228_)))) + (object-type _self12210_)))) (declare (not safe)) - (##type-name __tmp10491)))) + (##type-name __tmp12473)))) (declare (not safe)) - (display* '" [" __tmp10490 '"]: ")) - (let ((__tmp10492 + (display* '" [" __tmp12472 '"]: ")) + (let ((__tmp12474 (let () (declare (not safe)) - (slot-ref _self10228_ 'message)))) + (slot-ref _self12210_ 'message)))) (declare (not safe)) - (displayln __tmp10492)) - (let ((_irritants10238_ + (displayln __tmp12474)) + (let ((_irritants12220_ (let () (declare (not safe)) - (slot-ref _self10228_ 'irritants)))) - (if (let () (declare (not safe)) (null? _irritants10238_)) + (slot-ref _self12210_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants12220_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj10240_) - (write _obj10240_) + (lambda (_obj12222_) + (write _obj12222_) (write-char '#\space)) - _irritants10238_) + _irritants12220_) (newline)))) - (if (let () - (declare (not safe)) - (class-instance? StackTrace::t _self10228_)) - (let ((_cont1024110243_ + (if (and (let () + (declare (not safe)) + (class-instance? StackTrace::t _self12210_)) + (dump-stack-trace?)) + (let ((_cont1222312225_ (let () (declare (not safe)) - (slot-ref _self10228_ 'continuation)))) - (if _cont1024110243_ - (let ((_cont10246_ _cont1024110243_)) + (slot-ref _self12210_ 'continuation)))) + (if _cont1222312225_ + (let ((_cont12228_ _cont1222312225_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) - (display-continuation-backtrace _cont10246_)) + (display-continuation-backtrace _cont12228_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp10489 + __tmp12471 current-output-port - _tmp-port10231_)) - (let ((__tmp10493 (get-output-string _tmp-port10231_))) + _tmp-port12213_)) + (let ((__tmp12475 (get-output-string _tmp-port12213_))) (declare (not safe)) - (##write-string __tmp10493 _port10229_))))) + (##write-string __tmp12475 _port12211_))))) (define Error::display-exception::specialize - (lambda (__t10459) - (let ((__where10460 - (let ((__tmp10464 + (lambda (__t12441) + (let ((__continuation12442 + (let ((__tmp12446 (let () (declare (not safe)) - (class-slot-offset __t10459 'where)))) - (if __tmp10464 - (let () (declare (not safe)) (##fx+ __tmp10464 '1)) - (error '"Unknown slot" 'where)))) - (__message10461 - (let ((__tmp10465 + (class-slot-offset __t12441 'continuation)))) + (if __tmp12446 + (let () (declare (not safe)) (##fx+ __tmp12446 '1)) + (error '"Unknown slot" 'continuation)))) + (__irritants12443 + (let ((__tmp12447 (let () (declare (not safe)) - (class-slot-offset __t10459 'message)))) - (if __tmp10465 - (let () (declare (not safe)) (##fx+ __tmp10465 '1)) - (error '"Unknown slot" 'message)))) - (__continuation10462 - (let ((__tmp10466 + (class-slot-offset __t12441 'irritants)))) + (if __tmp12447 + (let () (declare (not safe)) (##fx+ __tmp12447 '1)) + (error '"Unknown slot" 'irritants)))) + (__message12444 + (let ((__tmp12448 (let () (declare (not safe)) - (class-slot-offset __t10459 'continuation)))) - (if __tmp10466 - (let () (declare (not safe)) (##fx+ __tmp10466 '1)) - (error '"Unknown slot" 'continuation)))) - (__irritants10463 - (let ((__tmp10467 + (class-slot-offset __t12441 'message)))) + (if __tmp12448 + (let () (declare (not safe)) (##fx+ __tmp12448 '1)) + (error '"Unknown slot" 'message)))) + (__where12445 + (let ((__tmp12449 (let () (declare (not safe)) - (class-slot-offset __t10459 'irritants)))) - (if __tmp10467 - (let () (declare (not safe)) (##fx+ __tmp10467 '1)) - (error '"Unknown slot" 'irritants)))) - (__class10468 + (class-slot-offset __t12441 'where)))) + (if __tmp12449 + (let () (declare (not safe)) (##fx+ __tmp12449 '1)) + (error '"Unknown slot" 'where)))) + (__class12450 (let () (declare (not safe)) - (class-subtype? StackTrace::t __t10459)))) - (lambda (_self10228_ _port10229_) - (let ((_tmp-port10231_ (open-output-string)) - (_display-error-newline10232_ - (> (output-port-column _port10229_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port10231_)) - (let ((__tmp10494 + (class-subtype? StackTrace::t __t12441)))) + (lambda (_self12210_ _port12211_) + (let ((_tmp-port12213_ (open-output-string)) + (_display-error-newline12214_ + (> (output-port-column _port12211_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12213_)) + (let ((__tmp12476 (lambda () - (if _display-error-newline10232_ (newline) '#!void) + (if _display-error-newline12214_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e10235_ + (let ((_$e12217_ (let () (declare (not safe)) (##unchecked-structure-ref - _self10228_ - __where10460 - __t10459 + _self12210_ + __where12445 + __t12441 '#f)))) - (if _$e10235_ (display _$e10235_) (display '"?"))) - (let ((__tmp10495 - (let ((__tmp10496 + (if _$e12217_ (display _$e12217_) (display '"?"))) + (let ((__tmp12477 + (let ((__tmp12478 (let () (declare (not safe)) - (object-type _self10228_)))) + (object-type _self12210_)))) (declare (not safe)) - (##type-name __tmp10496)))) + (##type-name __tmp12478)))) (declare (not safe)) - (display* '" [" __tmp10495 '"]: ")) - (let ((__tmp10497 + (display* '" [" __tmp12477 '"]: ")) + (let ((__tmp12479 (let () (declare (not safe)) (##unchecked-structure-ref - _self10228_ - __message10461 - __t10459 + _self12210_ + __message12444 + __t12441 '#f)))) (declare (not safe)) - (displayln __tmp10497)) - (let ((_irritants10238_ + (displayln __tmp12479)) + (let ((_irritants12220_ (let () (declare (not safe)) (##unchecked-structure-ref - _self10228_ - __irritants10463 - __t10459 + _self12210_ + __irritants12443 + __t12441 '#f)))) (if (let () (declare (not safe)) - (null? _irritants10238_)) + (null? _irritants12220_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj10240_) - (write _obj10240_) + (lambda (_obj12222_) + (write _obj12222_) (write-char '#\space)) - _irritants10238_) + _irritants12220_) (newline)))) - (if __class10468 - (let ((_cont1024110243_ + (if (and __class12450 (dump-stack-trace?)) + (let ((_cont1222312225_ (let () (declare (not safe)) (##unchecked-structure-ref - _self10228_ - __continuation10462 - __t10459 + _self12210_ + __continuation12442 + __t12441 '#f)))) - (if _cont1024110243_ - (let ((_cont10246_ _cont1024110243_)) + (if _cont1222312225_ + (let ((_cont12228_ _cont1222312225_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _cont10246_)) + _cont12228_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp10494 + __tmp12476 current-output-port - _tmp-port10231_)) - (let ((__tmp10498 (get-output-string _tmp-port10231_))) + _tmp-port12213_)) + (let ((__tmp12480 (get-output-string _tmp-port12213_))) (declare (not safe)) - (##write-string __tmp10498 _port10229_))))))) + (##write-string __tmp12480 _port12211_))))))) (let () (declare (not safe)) (bind-specializer! @@ -611,78 +613,78 @@ (declare (not safe)) (bind-method! Error::t 'display-exception Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_self10095_ _port10096_) - (let ((_tmp-port10098_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port10098_)) - (let ((__tmp10499 + (lambda (_self12077_ _port12078_) + (let ((_tmp-port12080_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12080_)) + (let ((__tmp12481 (let () (declare (not safe)) - (slot-ref _self10095_ 'exception)))) + (slot-ref _self12077_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp10499 _tmp-port10098_)) - (let ((_cont1009910101_ + (##default-display-exception __tmp12481 _tmp-port12080_)) + (let ((_cont1208112083_ (let () (declare (not safe)) - (slot-ref _self10095_ 'continuation)))) - (if _cont1009910101_ - (let ((_cont10104_ _cont1009910101_)) - (display '"--- continuation backtrace:" _tmp-port10098_) - (newline _tmp-port10098_) - (display-continuation-backtrace _cont10104_ _tmp-port10098_)) + (slot-ref _self12077_ 'continuation)))) + (if _cont1208112083_ + (let ((_cont12086_ _cont1208112083_)) + (display '"--- continuation backtrace:" _tmp-port12080_) + (newline _tmp-port12080_) + (display-continuation-backtrace _cont12086_ _tmp-port12080_)) '#f)) - (let ((__tmp10500 (get-output-string _tmp-port10098_))) + (let ((__tmp12482 (get-output-string _tmp-port12080_))) (declare (not safe)) - (##write-string __tmp10500 _port10096_))))) + (##write-string __tmp12482 _port12078_))))) (define RuntimeException::display-exception::specialize - (lambda (__t10469) - (let ((__exception10470 - (let ((__tmp10472 + (lambda (__t12451) + (let ((__exception12452 + (let ((__tmp12454 (let () (declare (not safe)) - (class-slot-offset __t10469 'exception)))) - (if __tmp10472 - (let () (declare (not safe)) (##fx+ __tmp10472 '1)) + (class-slot-offset __t12451 'exception)))) + (if __tmp12454 + (let () (declare (not safe)) (##fx+ __tmp12454 '1)) (error '"Unknown slot" 'exception)))) - (__continuation10471 - (let ((__tmp10473 + (__continuation12453 + (let ((__tmp12455 (let () (declare (not safe)) - (class-slot-offset __t10469 'continuation)))) - (if __tmp10473 - (let () (declare (not safe)) (##fx+ __tmp10473 '1)) + (class-slot-offset __t12451 'continuation)))) + (if __tmp12455 + (let () (declare (not safe)) (##fx+ __tmp12455 '1)) (error '"Unknown slot" 'continuation))))) - (lambda (_self10095_ _port10096_) - (let ((_tmp-port10098_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port10098_)) - (let ((__tmp10501 + (lambda (_self12077_ _port12078_) + (let ((_tmp-port12080_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12080_)) + (let ((__tmp12483 (let () (declare (not safe)) (##unchecked-structure-ref - _self10095_ - __exception10470 - __t10469 + _self12077_ + __exception12452 + __t12451 '#f)))) (declare (not safe)) - (##default-display-exception __tmp10501 _tmp-port10098_)) - (let ((_cont1009910101_ + (##default-display-exception __tmp12483 _tmp-port12080_)) + (let ((_cont1208112083_ (let () (declare (not safe)) (##unchecked-structure-ref - _self10095_ - __continuation10471 - __t10469 + _self12077_ + __continuation12453 + __t12451 '#f)))) - (if _cont1009910101_ - (let ((_cont10104_ _cont1009910101_)) - (display '"--- continuation backtrace:" _tmp-port10098_) - (newline _tmp-port10098_) + (if _cont1208112083_ + (let ((_cont12086_ _cont1208112083_)) + (display '"--- continuation backtrace:" _tmp-port12080_) + (newline _tmp-port12080_) (display-continuation-backtrace - _cont10104_ - _tmp-port10098_)) + _cont12086_ + _tmp-port12080_)) '#f)) - (let ((__tmp10502 (get-output-string _tmp-port10098_))) + (let ((__tmp12484 (get-output-string _tmp-port12080_))) (declare (not safe)) - (##write-string __tmp10502 _port10096_))))))) + (##write-string __tmp12484 _port12078_))))))) (let () (declare (not safe)) (bind-specializer! @@ -696,3407 +698,3566 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_port9967_) - (if (macro-character-port? _port9967_) - (let ((_old-width9969_ - (macro-character-port-output-width _port9967_))) + (lambda (_port11949_) + (if (macro-character-port? _port11949_) + (let ((_old-width11951_ + (macro-character-port-output-width _port11949_))) (macro-character-port-output-width-set! - _port9967_ - (lambda (_port9971_) '256)) - _old-width9969_) + _port11949_ + (lambda (_port11953_) '256)) + _old-width11951_) '#!void))) (define reset-port-width! - (lambda (_port9964_ _old-width9965_) - (if (macro-character-port? _port9964_) - (macro-character-port-output-width-set! _port9964_ _old-width9965_) + (lambda (_port11946_ _old-width11947_) + (if (macro-character-port? _port11946_) + (macro-character-port-output-width-set! + _port11946_ + _old-width11947_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e9962_) - (macro-readenv-filepos (datum-parsing-exception-readenv _e9962_)))) + (lambda (_e11944_) + (macro-readenv-filepos (datum-parsing-exception-readenv _e11944_)))) (define abandoned-mutex-exception? - (lambda (_exn9956_) + (lambda (_exn11938_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9956_)) - (let ((_e9959_ (let () - (declare (not safe)) - (slot-ref _exn9956_ 'exception)))) - (macro-abandoned-mutex-exception? _e9959_)) - (macro-abandoned-mutex-exception? _exn9956_)))) + (class-instance? RuntimeException::t _exn11938_)) + (let ((_e11941_ + (let () + (declare (not safe)) + (slot-ref _exn11938_ 'exception)))) + (macro-abandoned-mutex-exception? _e11941_)) + (macro-abandoned-mutex-exception? _exn11938_)))) (define cfun-conversion-exception? - (lambda (_exn9952_) + (lambda (_exn11934_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9952_)) - (let ((_e9954_ (let () - (declare (not safe)) - (slot-ref _exn9952_ 'exception)))) - (macro-cfun-conversion-exception? _e9954_)) - (macro-cfun-conversion-exception? _exn9952_)))) + (class-instance? RuntimeException::t _exn11934_)) + (let ((_e11936_ + (let () + (declare (not safe)) + (slot-ref _exn11934_ 'exception)))) + (macro-cfun-conversion-exception? _e11936_)) + (macro-cfun-conversion-exception? _exn11934_)))) (define cfun-conversion-exception-arguments - (lambda (_exn9948_) + (lambda (_exn11930_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9948_)) - (let ((_e9950_ (let () - (declare (not safe)) - (slot-ref _exn9948_ 'exception)))) - (if (macro-cfun-conversion-exception? _e9950_) - (macro-cfun-conversion-exception-arguments _e9950_) + (class-instance? RuntimeException::t _exn11930_)) + (let ((_e11932_ + (let () + (declare (not safe)) + (slot-ref _exn11930_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11932_) + (macro-cfun-conversion-exception-arguments _e11932_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp10504 + (let ((__tmp12486 (let () (declare (not safe)) - (cons _e9950_ '())))) + (cons _e11932_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp10504))))) - (if (macro-cfun-conversion-exception? _exn9948_) - (macro-cfun-conversion-exception-arguments _exn9948_) + __tmp12486))))) + (if (macro-cfun-conversion-exception? _exn11930_) + (macro-cfun-conversion-exception-arguments _exn11930_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp10503 + (let ((__tmp12485 (let () (declare (not safe)) - (cons _exn9948_ '())))) + (cons _exn11930_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp10503))))))) + __tmp12485))))))) (define cfun-conversion-exception-code - (lambda (_exn9944_) + (lambda (_exn11926_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9944_)) - (let ((_e9946_ (let () - (declare (not safe)) - (slot-ref _exn9944_ 'exception)))) - (if (macro-cfun-conversion-exception? _e9946_) - (macro-cfun-conversion-exception-code _e9946_) + (class-instance? RuntimeException::t _exn11926_)) + (let ((_e11928_ + (let () + (declare (not safe)) + (slot-ref _exn11926_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11928_) + (macro-cfun-conversion-exception-code _e11928_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp10506 + (let ((__tmp12488 (let () (declare (not safe)) - (cons _e9946_ '())))) + (cons _e11928_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp10506))))) - (if (macro-cfun-conversion-exception? _exn9944_) - (macro-cfun-conversion-exception-code _exn9944_) + __tmp12488))))) + (if (macro-cfun-conversion-exception? _exn11926_) + (macro-cfun-conversion-exception-code _exn11926_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp10505 + (let ((__tmp12487 (let () (declare (not safe)) - (cons _exn9944_ '())))) + (cons _exn11926_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp10505))))))) + __tmp12487))))))) (define cfun-conversion-exception-message - (lambda (_exn9940_) + (lambda (_exn11922_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9940_)) - (let ((_e9942_ (let () - (declare (not safe)) - (slot-ref _exn9940_ 'exception)))) - (if (macro-cfun-conversion-exception? _e9942_) - (macro-cfun-conversion-exception-message _e9942_) + (class-instance? RuntimeException::t _exn11922_)) + (let ((_e11924_ + (let () + (declare (not safe)) + (slot-ref _exn11922_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11924_) + (macro-cfun-conversion-exception-message _e11924_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp10508 + (let ((__tmp12490 (let () (declare (not safe)) - (cons _e9942_ '())))) + (cons _e11924_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp10508))))) - (if (macro-cfun-conversion-exception? _exn9940_) - (macro-cfun-conversion-exception-message _exn9940_) + __tmp12490))))) + (if (macro-cfun-conversion-exception? _exn11922_) + (macro-cfun-conversion-exception-message _exn11922_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp10507 + (let ((__tmp12489 (let () (declare (not safe)) - (cons _exn9940_ '())))) + (cons _exn11922_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp10507))))))) + __tmp12489))))))) (define cfun-conversion-exception-procedure - (lambda (_exn9934_) + (lambda (_exn11916_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9934_)) - (let ((_e9937_ (let () - (declare (not safe)) - (slot-ref _exn9934_ 'exception)))) - (if (macro-cfun-conversion-exception? _e9937_) - (macro-cfun-conversion-exception-procedure _e9937_) + (class-instance? RuntimeException::t _exn11916_)) + (let ((_e11919_ + (let () + (declare (not safe)) + (slot-ref _exn11916_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11919_) + (macro-cfun-conversion-exception-procedure _e11919_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp10510 + (let ((__tmp12492 (let () (declare (not safe)) - (cons _e9937_ '())))) + (cons _e11919_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp10510))))) - (if (macro-cfun-conversion-exception? _exn9934_) - (macro-cfun-conversion-exception-procedure _exn9934_) + __tmp12492))))) + (if (macro-cfun-conversion-exception? _exn11916_) + (macro-cfun-conversion-exception-procedure _exn11916_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp10509 + (let ((__tmp12491 (let () (declare (not safe)) - (cons _exn9934_ '())))) + (cons _exn11916_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp10509))))))) + __tmp12491))))))) (define datum-parsing-exception? - (lambda (_exn9930_) + (lambda (_exn11912_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9930_)) - (let ((_e9932_ (let () - (declare (not safe)) - (slot-ref _exn9930_ 'exception)))) - (macro-datum-parsing-exception? _e9932_)) - (macro-datum-parsing-exception? _exn9930_)))) + (class-instance? RuntimeException::t _exn11912_)) + (let ((_e11914_ + (let () + (declare (not safe)) + (slot-ref _exn11912_ 'exception)))) + (macro-datum-parsing-exception? _e11914_)) + (macro-datum-parsing-exception? _exn11912_)))) (define datum-parsing-exception-kind - (lambda (_exn9926_) + (lambda (_exn11908_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9926_)) - (let ((_e9928_ (let () - (declare (not safe)) - (slot-ref _exn9926_ 'exception)))) - (if (macro-datum-parsing-exception? _e9928_) - (macro-datum-parsing-exception-kind _e9928_) + (class-instance? RuntimeException::t _exn11908_)) + (let ((_e11910_ + (let () + (declare (not safe)) + (slot-ref _exn11908_ 'exception)))) + (if (macro-datum-parsing-exception? _e11910_) + (macro-datum-parsing-exception-kind _e11910_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp10512 + (let ((__tmp12494 (let () (declare (not safe)) - (cons _e9928_ '())))) + (cons _e11910_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp10512))))) - (if (macro-datum-parsing-exception? _exn9926_) - (macro-datum-parsing-exception-kind _exn9926_) + (cons 'datum-parsing-exception-kind __tmp12494))))) + (if (macro-datum-parsing-exception? _exn11908_) + (macro-datum-parsing-exception-kind _exn11908_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp10511 + (let ((__tmp12493 (let () (declare (not safe)) - (cons _exn9926_ '())))) + (cons _exn11908_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp10511))))))) + (cons 'datum-parsing-exception-kind __tmp12493))))))) (define datum-parsing-exception-parameters - (lambda (_exn9922_) + (lambda (_exn11904_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9922_)) - (let ((_e9924_ (let () - (declare (not safe)) - (slot-ref _exn9922_ 'exception)))) - (if (macro-datum-parsing-exception? _e9924_) - (macro-datum-parsing-exception-parameters _e9924_) + (class-instance? RuntimeException::t _exn11904_)) + (let ((_e11906_ + (let () + (declare (not safe)) + (slot-ref _exn11904_ 'exception)))) + (if (macro-datum-parsing-exception? _e11906_) + (macro-datum-parsing-exception-parameters _e11906_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp10514 + (let ((__tmp12496 (let () (declare (not safe)) - (cons _e9924_ '())))) + (cons _e11906_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp10514))))) - (if (macro-datum-parsing-exception? _exn9922_) - (macro-datum-parsing-exception-parameters _exn9922_) + __tmp12496))))) + (if (macro-datum-parsing-exception? _exn11904_) + (macro-datum-parsing-exception-parameters _exn11904_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp10513 + (let ((__tmp12495 (let () (declare (not safe)) - (cons _exn9922_ '())))) + (cons _exn11904_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp10513))))))) + __tmp12495))))))) (define datum-parsing-exception-readenv - (lambda (_exn9916_) + (lambda (_exn11898_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9916_)) - (let ((_e9919_ (let () - (declare (not safe)) - (slot-ref _exn9916_ 'exception)))) - (if (macro-datum-parsing-exception? _e9919_) - (macro-datum-parsing-exception-readenv _e9919_) + (class-instance? RuntimeException::t _exn11898_)) + (let ((_e11901_ + (let () + (declare (not safe)) + (slot-ref _exn11898_ 'exception)))) + (if (macro-datum-parsing-exception? _e11901_) + (macro-datum-parsing-exception-readenv _e11901_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp10516 + (let ((__tmp12498 (let () (declare (not safe)) - (cons _e9919_ '())))) + (cons _e11901_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp10516))))) - (if (macro-datum-parsing-exception? _exn9916_) - (macro-datum-parsing-exception-readenv _exn9916_) + __tmp12498))))) + (if (macro-datum-parsing-exception? _exn11898_) + (macro-datum-parsing-exception-readenv _exn11898_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp10515 + (let ((__tmp12497 (let () (declare (not safe)) - (cons _exn9916_ '())))) + (cons _exn11898_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp10515))))))) + __tmp12497))))))) (define deadlock-exception? - (lambda (_exn9910_) + (lambda (_exn11892_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9910_)) - (let ((_e9913_ (let () - (declare (not safe)) - (slot-ref _exn9910_ 'exception)))) - (macro-deadlock-exception? _e9913_)) - (macro-deadlock-exception? _exn9910_)))) + (class-instance? RuntimeException::t _exn11892_)) + (let ((_e11895_ + (let () + (declare (not safe)) + (slot-ref _exn11892_ 'exception)))) + (macro-deadlock-exception? _e11895_)) + (macro-deadlock-exception? _exn11892_)))) (define divide-by-zero-exception? - (lambda (_exn9906_) + (lambda (_exn11888_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9906_)) - (let ((_e9908_ (let () - (declare (not safe)) - (slot-ref _exn9906_ 'exception)))) - (macro-divide-by-zero-exception? _e9908_)) - (macro-divide-by-zero-exception? _exn9906_)))) + (class-instance? RuntimeException::t _exn11888_)) + (let ((_e11890_ + (let () + (declare (not safe)) + (slot-ref _exn11888_ 'exception)))) + (macro-divide-by-zero-exception? _e11890_)) + (macro-divide-by-zero-exception? _exn11888_)))) (define divide-by-zero-exception-arguments - (lambda (_exn9902_) + (lambda (_exn11884_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9902_)) - (let ((_e9904_ (let () - (declare (not safe)) - (slot-ref _exn9902_ 'exception)))) - (if (macro-divide-by-zero-exception? _e9904_) - (macro-divide-by-zero-exception-arguments _e9904_) + (class-instance? RuntimeException::t _exn11884_)) + (let ((_e11886_ + (let () + (declare (not safe)) + (slot-ref _exn11884_ 'exception)))) + (if (macro-divide-by-zero-exception? _e11886_) + (macro-divide-by-zero-exception-arguments _e11886_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp10518 + (let ((__tmp12500 (let () (declare (not safe)) - (cons _e9904_ '())))) + (cons _e11886_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp10518))))) - (if (macro-divide-by-zero-exception? _exn9902_) - (macro-divide-by-zero-exception-arguments _exn9902_) + __tmp12500))))) + (if (macro-divide-by-zero-exception? _exn11884_) + (macro-divide-by-zero-exception-arguments _exn11884_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp10517 + (let ((__tmp12499 (let () (declare (not safe)) - (cons _exn9902_ '())))) + (cons _exn11884_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp10517))))))) + __tmp12499))))))) (define divide-by-zero-exception-procedure - (lambda (_exn9896_) + (lambda (_exn11878_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9896_)) - (let ((_e9899_ (let () - (declare (not safe)) - (slot-ref _exn9896_ 'exception)))) - (if (macro-divide-by-zero-exception? _e9899_) - (macro-divide-by-zero-exception-procedure _e9899_) + (class-instance? RuntimeException::t _exn11878_)) + (let ((_e11881_ + (let () + (declare (not safe)) + (slot-ref _exn11878_ 'exception)))) + (if (macro-divide-by-zero-exception? _e11881_) + (macro-divide-by-zero-exception-procedure _e11881_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp10520 + (let ((__tmp12502 (let () (declare (not safe)) - (cons _e9899_ '())))) + (cons _e11881_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp10520))))) - (if (macro-divide-by-zero-exception? _exn9896_) - (macro-divide-by-zero-exception-procedure _exn9896_) + __tmp12502))))) + (if (macro-divide-by-zero-exception? _exn11878_) + (macro-divide-by-zero-exception-procedure _exn11878_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp10519 + (let ((__tmp12501 (let () (declare (not safe)) - (cons _exn9896_ '())))) + (cons _exn11878_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp10519))))))) + __tmp12501))))))) (define error-exception? - (lambda (_exn9892_) + (lambda (_exn11874_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9892_)) - (let ((_e9894_ (let () - (declare (not safe)) - (slot-ref _exn9892_ 'exception)))) - (macro-error-exception? _e9894_)) - (macro-error-exception? _exn9892_)))) + (class-instance? RuntimeException::t _exn11874_)) + (let ((_e11876_ + (let () + (declare (not safe)) + (slot-ref _exn11874_ 'exception)))) + (macro-error-exception? _e11876_)) + (macro-error-exception? _exn11874_)))) (define error-exception-message - (lambda (_exn9888_) + (lambda (_exn11870_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9888_)) - (let ((_e9890_ (let () - (declare (not safe)) - (slot-ref _exn9888_ 'exception)))) - (if (macro-error-exception? _e9890_) - (macro-error-exception-message _e9890_) + (class-instance? RuntimeException::t _exn11870_)) + (let ((_e11872_ + (let () + (declare (not safe)) + (slot-ref _exn11870_ 'exception)))) + (if (macro-error-exception? _e11872_) + (macro-error-exception-message _e11872_) (error '"not an instance" 'error-exception? - (let ((__tmp10522 + (let ((__tmp12504 (let () (declare (not safe)) - (cons _e9890_ '())))) + (cons _e11872_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp10522))))) - (if (macro-error-exception? _exn9888_) - (macro-error-exception-message _exn9888_) + (cons 'error-exception-message __tmp12504))))) + (if (macro-error-exception? _exn11870_) + (macro-error-exception-message _exn11870_) (error '"not an instance" 'error-exception? - (let ((__tmp10521 + (let ((__tmp12503 (let () (declare (not safe)) - (cons _exn9888_ '())))) + (cons _exn11870_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp10521))))))) + (cons 'error-exception-message __tmp12503))))))) (define error-exception-parameters - (lambda (_exn9882_) + (lambda (_exn11864_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9882_)) - (let ((_e9885_ (let () - (declare (not safe)) - (slot-ref _exn9882_ 'exception)))) - (if (macro-error-exception? _e9885_) - (macro-error-exception-parameters _e9885_) + (class-instance? RuntimeException::t _exn11864_)) + (let ((_e11867_ + (let () + (declare (not safe)) + (slot-ref _exn11864_ 'exception)))) + (if (macro-error-exception? _e11867_) + (macro-error-exception-parameters _e11867_) (error '"not an instance" 'error-exception? - (let ((__tmp10524 + (let ((__tmp12506 (let () (declare (not safe)) - (cons _e9885_ '())))) + (cons _e11867_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp10524))))) - (if (macro-error-exception? _exn9882_) - (macro-error-exception-parameters _exn9882_) + (cons 'error-exception-parameters __tmp12506))))) + (if (macro-error-exception? _exn11864_) + (macro-error-exception-parameters _exn11864_) (error '"not an instance" 'error-exception? - (let ((__tmp10523 + (let ((__tmp12505 (let () (declare (not safe)) - (cons _exn9882_ '())))) + (cons _exn11864_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp10523))))))) + (cons 'error-exception-parameters __tmp12505))))))) (define expression-parsing-exception? - (lambda (_exn9878_) + (lambda (_exn11860_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9878_)) - (let ((_e9880_ (let () - (declare (not safe)) - (slot-ref _exn9878_ 'exception)))) - (macro-expression-parsing-exception? _e9880_)) - (macro-expression-parsing-exception? _exn9878_)))) + (class-instance? RuntimeException::t _exn11860_)) + (let ((_e11862_ + (let () + (declare (not safe)) + (slot-ref _exn11860_ 'exception)))) + (macro-expression-parsing-exception? _e11862_)) + (macro-expression-parsing-exception? _exn11860_)))) (define expression-parsing-exception-kind - (lambda (_exn9874_) + (lambda (_exn11856_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9874_)) - (let ((_e9876_ (let () - (declare (not safe)) - (slot-ref _exn9874_ 'exception)))) - (if (macro-expression-parsing-exception? _e9876_) - (macro-expression-parsing-exception-kind _e9876_) + (class-instance? RuntimeException::t _exn11856_)) + (let ((_e11858_ + (let () + (declare (not safe)) + (slot-ref _exn11856_ 'exception)))) + (if (macro-expression-parsing-exception? _e11858_) + (macro-expression-parsing-exception-kind _e11858_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp10526 + (let ((__tmp12508 (let () (declare (not safe)) - (cons _e9876_ '())))) + (cons _e11858_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp10526))))) - (if (macro-expression-parsing-exception? _exn9874_) - (macro-expression-parsing-exception-kind _exn9874_) + __tmp12508))))) + (if (macro-expression-parsing-exception? _exn11856_) + (macro-expression-parsing-exception-kind _exn11856_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp10525 + (let ((__tmp12507 (let () (declare (not safe)) - (cons _exn9874_ '())))) + (cons _exn11856_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp10525))))))) + __tmp12507))))))) (define expression-parsing-exception-parameters - (lambda (_exn9870_) + (lambda (_exn11852_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9870_)) - (let ((_e9872_ (let () - (declare (not safe)) - (slot-ref _exn9870_ 'exception)))) - (if (macro-expression-parsing-exception? _e9872_) - (macro-expression-parsing-exception-parameters _e9872_) + (class-instance? RuntimeException::t _exn11852_)) + (let ((_e11854_ + (let () + (declare (not safe)) + (slot-ref _exn11852_ 'exception)))) + (if (macro-expression-parsing-exception? _e11854_) + (macro-expression-parsing-exception-parameters _e11854_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp10528 + (let ((__tmp12510 (let () (declare (not safe)) - (cons _e9872_ '())))) + (cons _e11854_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp10528))))) - (if (macro-expression-parsing-exception? _exn9870_) - (macro-expression-parsing-exception-parameters _exn9870_) + __tmp12510))))) + (if (macro-expression-parsing-exception? _exn11852_) + (macro-expression-parsing-exception-parameters _exn11852_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp10527 + (let ((__tmp12509 (let () (declare (not safe)) - (cons _exn9870_ '())))) + (cons _exn11852_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp10527))))))) + __tmp12509))))))) (define expression-parsing-exception-source - (lambda (_exn9864_) + (lambda (_exn11846_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9864_)) - (let ((_e9867_ (let () - (declare (not safe)) - (slot-ref _exn9864_ 'exception)))) - (if (macro-expression-parsing-exception? _e9867_) - (macro-expression-parsing-exception-source _e9867_) + (class-instance? RuntimeException::t _exn11846_)) + (let ((_e11849_ + (let () + (declare (not safe)) + (slot-ref _exn11846_ 'exception)))) + (if (macro-expression-parsing-exception? _e11849_) + (macro-expression-parsing-exception-source _e11849_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp10530 + (let ((__tmp12512 (let () (declare (not safe)) - (cons _e9867_ '())))) + (cons _e11849_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp10530))))) - (if (macro-expression-parsing-exception? _exn9864_) - (macro-expression-parsing-exception-source _exn9864_) + __tmp12512))))) + (if (macro-expression-parsing-exception? _exn11846_) + (macro-expression-parsing-exception-source _exn11846_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp10529 + (let ((__tmp12511 (let () (declare (not safe)) - (cons _exn9864_ '())))) + (cons _exn11846_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp10529))))))) + __tmp12511))))))) (define file-exists-exception? - (lambda (_exn9860_) + (lambda (_exn11842_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9860_)) - (let ((_e9862_ (let () - (declare (not safe)) - (slot-ref _exn9860_ 'exception)))) - (macro-file-exists-exception? _e9862_)) - (macro-file-exists-exception? _exn9860_)))) + (class-instance? RuntimeException::t _exn11842_)) + (let ((_e11844_ + (let () + (declare (not safe)) + (slot-ref _exn11842_ 'exception)))) + (macro-file-exists-exception? _e11844_)) + (macro-file-exists-exception? _exn11842_)))) (define file-exists-exception-arguments - (lambda (_exn9856_) + (lambda (_exn11838_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9856_)) - (let ((_e9858_ (let () - (declare (not safe)) - (slot-ref _exn9856_ 'exception)))) - (if (macro-file-exists-exception? _e9858_) - (macro-file-exists-exception-arguments _e9858_) + (class-instance? RuntimeException::t _exn11838_)) + (let ((_e11840_ + (let () + (declare (not safe)) + (slot-ref _exn11838_ 'exception)))) + (if (macro-file-exists-exception? _e11840_) + (macro-file-exists-exception-arguments _e11840_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp10532 + (let ((__tmp12514 (let () (declare (not safe)) - (cons _e9858_ '())))) + (cons _e11840_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp10532))))) - (if (macro-file-exists-exception? _exn9856_) - (macro-file-exists-exception-arguments _exn9856_) + __tmp12514))))) + (if (macro-file-exists-exception? _exn11838_) + (macro-file-exists-exception-arguments _exn11838_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp10531 + (let ((__tmp12513 (let () (declare (not safe)) - (cons _exn9856_ '())))) + (cons _exn11838_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp10531))))))) + __tmp12513))))))) (define file-exists-exception-procedure - (lambda (_exn9850_) + (lambda (_exn11832_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9850_)) - (let ((_e9853_ (let () - (declare (not safe)) - (slot-ref _exn9850_ 'exception)))) - (if (macro-file-exists-exception? _e9853_) - (macro-file-exists-exception-procedure _e9853_) + (class-instance? RuntimeException::t _exn11832_)) + (let ((_e11835_ + (let () + (declare (not safe)) + (slot-ref _exn11832_ 'exception)))) + (if (macro-file-exists-exception? _e11835_) + (macro-file-exists-exception-procedure _e11835_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp10534 + (let ((__tmp12516 (let () (declare (not safe)) - (cons _e9853_ '())))) + (cons _e11835_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp10534))))) - (if (macro-file-exists-exception? _exn9850_) - (macro-file-exists-exception-procedure _exn9850_) + __tmp12516))))) + (if (macro-file-exists-exception? _exn11832_) + (macro-file-exists-exception-procedure _exn11832_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp10533 + (let ((__tmp12515 (let () (declare (not safe)) - (cons _exn9850_ '())))) + (cons _exn11832_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp10533))))))) + __tmp12515))))))) (define fixnum-overflow-exception? - (lambda (_exn9846_) + (lambda (_exn11828_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9846_)) - (let ((_e9848_ (let () - (declare (not safe)) - (slot-ref _exn9846_ 'exception)))) - (macro-fixnum-overflow-exception? _e9848_)) - (macro-fixnum-overflow-exception? _exn9846_)))) + (class-instance? RuntimeException::t _exn11828_)) + (let ((_e11830_ + (let () + (declare (not safe)) + (slot-ref _exn11828_ 'exception)))) + (macro-fixnum-overflow-exception? _e11830_)) + (macro-fixnum-overflow-exception? _exn11828_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn9842_) + (lambda (_exn11824_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9842_)) - (let ((_e9844_ (let () - (declare (not safe)) - (slot-ref _exn9842_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e9844_) - (macro-fixnum-overflow-exception-arguments _e9844_) + (class-instance? RuntimeException::t _exn11824_)) + (let ((_e11826_ + (let () + (declare (not safe)) + (slot-ref _exn11824_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e11826_) + (macro-fixnum-overflow-exception-arguments _e11826_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp10536 + (let ((__tmp12518 (let () (declare (not safe)) - (cons _e9844_ '())))) + (cons _e11826_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp10536))))) - (if (macro-fixnum-overflow-exception? _exn9842_) - (macro-fixnum-overflow-exception-arguments _exn9842_) + __tmp12518))))) + (if (macro-fixnum-overflow-exception? _exn11824_) + (macro-fixnum-overflow-exception-arguments _exn11824_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp10535 + (let ((__tmp12517 (let () (declare (not safe)) - (cons _exn9842_ '())))) + (cons _exn11824_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp10535))))))) + __tmp12517))))))) (define fixnum-overflow-exception-procedure - (lambda (_exn9836_) + (lambda (_exn11818_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9836_)) - (let ((_e9839_ (let () - (declare (not safe)) - (slot-ref _exn9836_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e9839_) - (macro-fixnum-overflow-exception-procedure _e9839_) + (class-instance? RuntimeException::t _exn11818_)) + (let ((_e11821_ + (let () + (declare (not safe)) + (slot-ref _exn11818_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e11821_) + (macro-fixnum-overflow-exception-procedure _e11821_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp10538 + (let ((__tmp12520 (let () (declare (not safe)) - (cons _e9839_ '())))) + (cons _e11821_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp10538))))) - (if (macro-fixnum-overflow-exception? _exn9836_) - (macro-fixnum-overflow-exception-procedure _exn9836_) + __tmp12520))))) + (if (macro-fixnum-overflow-exception? _exn11818_) + (macro-fixnum-overflow-exception-procedure _exn11818_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp10537 + (let ((__tmp12519 (let () (declare (not safe)) - (cons _exn9836_ '())))) + (cons _exn11818_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp10537))))))) + __tmp12519))))))) (define heap-overflow-exception? - (lambda (_exn9830_) + (lambda (_exn11812_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9830_)) - (let ((_e9833_ (let () - (declare (not safe)) - (slot-ref _exn9830_ 'exception)))) - (macro-heap-overflow-exception? _e9833_)) - (macro-heap-overflow-exception? _exn9830_)))) + (class-instance? RuntimeException::t _exn11812_)) + (let ((_e11815_ + (let () + (declare (not safe)) + (slot-ref _exn11812_ 'exception)))) + (macro-heap-overflow-exception? _e11815_)) + (macro-heap-overflow-exception? _exn11812_)))) (define inactive-thread-exception? - (lambda (_exn9826_) + (lambda (_exn11808_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9826_)) - (let ((_e9828_ (let () - (declare (not safe)) - (slot-ref _exn9826_ 'exception)))) - (macro-inactive-thread-exception? _e9828_)) - (macro-inactive-thread-exception? _exn9826_)))) + (class-instance? RuntimeException::t _exn11808_)) + (let ((_e11810_ + (let () + (declare (not safe)) + (slot-ref _exn11808_ 'exception)))) + (macro-inactive-thread-exception? _e11810_)) + (macro-inactive-thread-exception? _exn11808_)))) (define inactive-thread-exception-arguments - (lambda (_exn9822_) + (lambda (_exn11804_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9822_)) - (let ((_e9824_ (let () - (declare (not safe)) - (slot-ref _exn9822_ 'exception)))) - (if (macro-inactive-thread-exception? _e9824_) - (macro-inactive-thread-exception-arguments _e9824_) + (class-instance? RuntimeException::t _exn11804_)) + (let ((_e11806_ + (let () + (declare (not safe)) + (slot-ref _exn11804_ 'exception)))) + (if (macro-inactive-thread-exception? _e11806_) + (macro-inactive-thread-exception-arguments _e11806_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp10540 + (let ((__tmp12522 (let () (declare (not safe)) - (cons _e9824_ '())))) + (cons _e11806_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp10540))))) - (if (macro-inactive-thread-exception? _exn9822_) - (macro-inactive-thread-exception-arguments _exn9822_) + __tmp12522))))) + (if (macro-inactive-thread-exception? _exn11804_) + (macro-inactive-thread-exception-arguments _exn11804_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp10539 + (let ((__tmp12521 (let () (declare (not safe)) - (cons _exn9822_ '())))) + (cons _exn11804_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp10539))))))) + __tmp12521))))))) (define inactive-thread-exception-procedure - (lambda (_exn9816_) + (lambda (_exn11798_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9816_)) - (let ((_e9819_ (let () - (declare (not safe)) - (slot-ref _exn9816_ 'exception)))) - (if (macro-inactive-thread-exception? _e9819_) - (macro-inactive-thread-exception-procedure _e9819_) + (class-instance? RuntimeException::t _exn11798_)) + (let ((_e11801_ + (let () + (declare (not safe)) + (slot-ref _exn11798_ 'exception)))) + (if (macro-inactive-thread-exception? _e11801_) + (macro-inactive-thread-exception-procedure _e11801_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp10542 + (let ((__tmp12524 (let () (declare (not safe)) - (cons _e9819_ '())))) + (cons _e11801_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp10542))))) - (if (macro-inactive-thread-exception? _exn9816_) - (macro-inactive-thread-exception-procedure _exn9816_) + __tmp12524))))) + (if (macro-inactive-thread-exception? _exn11798_) + (macro-inactive-thread-exception-procedure _exn11798_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp10541 + (let ((__tmp12523 (let () (declare (not safe)) - (cons _exn9816_ '())))) + (cons _exn11798_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp10541))))))) + __tmp12523))))))) (define initialized-thread-exception? - (lambda (_exn9812_) + (lambda (_exn11794_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9812_)) - (let ((_e9814_ (let () - (declare (not safe)) - (slot-ref _exn9812_ 'exception)))) - (macro-initialized-thread-exception? _e9814_)) - (macro-initialized-thread-exception? _exn9812_)))) + (class-instance? RuntimeException::t _exn11794_)) + (let ((_e11796_ + (let () + (declare (not safe)) + (slot-ref _exn11794_ 'exception)))) + (macro-initialized-thread-exception? _e11796_)) + (macro-initialized-thread-exception? _exn11794_)))) (define initialized-thread-exception-arguments - (lambda (_exn9808_) + (lambda (_exn11790_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9808_)) - (let ((_e9810_ (let () - (declare (not safe)) - (slot-ref _exn9808_ 'exception)))) - (if (macro-initialized-thread-exception? _e9810_) - (macro-initialized-thread-exception-arguments _e9810_) + (class-instance? RuntimeException::t _exn11790_)) + (let ((_e11792_ + (let () + (declare (not safe)) + (slot-ref _exn11790_ 'exception)))) + (if (macro-initialized-thread-exception? _e11792_) + (macro-initialized-thread-exception-arguments _e11792_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp10544 + (let ((__tmp12526 (let () (declare (not safe)) - (cons _e9810_ '())))) + (cons _e11792_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp10544))))) - (if (macro-initialized-thread-exception? _exn9808_) - (macro-initialized-thread-exception-arguments _exn9808_) + __tmp12526))))) + (if (macro-initialized-thread-exception? _exn11790_) + (macro-initialized-thread-exception-arguments _exn11790_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp10543 + (let ((__tmp12525 (let () (declare (not safe)) - (cons _exn9808_ '())))) + (cons _exn11790_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp10543))))))) + __tmp12525))))))) (define initialized-thread-exception-procedure - (lambda (_exn9802_) + (lambda (_exn11784_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9802_)) - (let ((_e9805_ (let () - (declare (not safe)) - (slot-ref _exn9802_ 'exception)))) - (if (macro-initialized-thread-exception? _e9805_) - (macro-initialized-thread-exception-procedure _e9805_) + (class-instance? RuntimeException::t _exn11784_)) + (let ((_e11787_ + (let () + (declare (not safe)) + (slot-ref _exn11784_ 'exception)))) + (if (macro-initialized-thread-exception? _e11787_) + (macro-initialized-thread-exception-procedure _e11787_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp10546 + (let ((__tmp12528 (let () (declare (not safe)) - (cons _e9805_ '())))) + (cons _e11787_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp10546))))) - (if (macro-initialized-thread-exception? _exn9802_) - (macro-initialized-thread-exception-procedure _exn9802_) + __tmp12528))))) + (if (macro-initialized-thread-exception? _exn11784_) + (macro-initialized-thread-exception-procedure _exn11784_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp10545 + (let ((__tmp12527 (let () (declare (not safe)) - (cons _exn9802_ '())))) + (cons _exn11784_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp10545))))))) + __tmp12527))))))) (define invalid-hash-number-exception? - (lambda (_exn9798_) + (lambda (_exn11780_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9798_)) - (let ((_e9800_ (let () - (declare (not safe)) - (slot-ref _exn9798_ 'exception)))) - (macro-invalid-hash-number-exception? _e9800_)) - (macro-invalid-hash-number-exception? _exn9798_)))) + (class-instance? RuntimeException::t _exn11780_)) + (let ((_e11782_ + (let () + (declare (not safe)) + (slot-ref _exn11780_ 'exception)))) + (macro-invalid-hash-number-exception? _e11782_)) + (macro-invalid-hash-number-exception? _exn11780_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn9794_) + (lambda (_exn11776_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9794_)) - (let ((_e9796_ (let () - (declare (not safe)) - (slot-ref _exn9794_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e9796_) - (macro-invalid-hash-number-exception-arguments _e9796_) + (class-instance? RuntimeException::t _exn11776_)) + (let ((_e11778_ + (let () + (declare (not safe)) + (slot-ref _exn11776_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e11778_) + (macro-invalid-hash-number-exception-arguments _e11778_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp10548 + (let ((__tmp12530 (let () (declare (not safe)) - (cons _e9796_ '())))) + (cons _e11778_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp10548))))) - (if (macro-invalid-hash-number-exception? _exn9794_) - (macro-invalid-hash-number-exception-arguments _exn9794_) + __tmp12530))))) + (if (macro-invalid-hash-number-exception? _exn11776_) + (macro-invalid-hash-number-exception-arguments _exn11776_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp10547 + (let ((__tmp12529 (let () (declare (not safe)) - (cons _exn9794_ '())))) + (cons _exn11776_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp10547))))))) + __tmp12529))))))) (define invalid-hash-number-exception-procedure - (lambda (_exn9788_) + (lambda (_exn11770_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9788_)) - (let ((_e9791_ (let () - (declare (not safe)) - (slot-ref _exn9788_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e9791_) - (macro-invalid-hash-number-exception-procedure _e9791_) + (class-instance? RuntimeException::t _exn11770_)) + (let ((_e11773_ + (let () + (declare (not safe)) + (slot-ref _exn11770_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e11773_) + (macro-invalid-hash-number-exception-procedure _e11773_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp10550 + (let ((__tmp12532 (let () (declare (not safe)) - (cons _e9791_ '())))) + (cons _e11773_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp10550))))) - (if (macro-invalid-hash-number-exception? _exn9788_) - (macro-invalid-hash-number-exception-procedure _exn9788_) + __tmp12532))))) + (if (macro-invalid-hash-number-exception? _exn11770_) + (macro-invalid-hash-number-exception-procedure _exn11770_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp10549 + (let ((__tmp12531 (let () (declare (not safe)) - (cons _exn9788_ '())))) + (cons _exn11770_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp10549))))))) + __tmp12531))))))) (define invalid-utf8-encoding-exception? - (lambda (_exn9784_) + (lambda (_exn11766_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9784_)) - (let ((_e9786_ (let () - (declare (not safe)) - (slot-ref _exn9784_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _e9786_)) - (macro-invalid-utf8-encoding-exception? _exn9784_)))) + (class-instance? RuntimeException::t _exn11766_)) + (let ((_e11768_ + (let () + (declare (not safe)) + (slot-ref _exn11766_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e11768_)) + (macro-invalid-utf8-encoding-exception? _exn11766_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn9780_) + (lambda (_exn11762_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9780_)) - (let ((_e9782_ (let () - (declare (not safe)) - (slot-ref _exn9780_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e9782_) - (macro-invalid-utf8-encoding-exception-arguments _e9782_) + (class-instance? RuntimeException::t _exn11762_)) + (let ((_e11764_ + (let () + (declare (not safe)) + (slot-ref _exn11762_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e11764_) + (macro-invalid-utf8-encoding-exception-arguments _e11764_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp10552 + (let ((__tmp12534 (let () (declare (not safe)) - (cons _e9782_ '())))) + (cons _e11764_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp10552))))) - (if (macro-invalid-utf8-encoding-exception? _exn9780_) - (macro-invalid-utf8-encoding-exception-arguments _exn9780_) + __tmp12534))))) + (if (macro-invalid-utf8-encoding-exception? _exn11762_) + (macro-invalid-utf8-encoding-exception-arguments _exn11762_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp10551 + (let ((__tmp12533 (let () (declare (not safe)) - (cons _exn9780_ '())))) + (cons _exn11762_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp10551))))))) + __tmp12533))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn9774_) + (lambda (_exn11756_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9774_)) - (let ((_e9777_ (let () - (declare (not safe)) - (slot-ref _exn9774_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e9777_) - (macro-invalid-utf8-encoding-exception-procedure _e9777_) + (class-instance? RuntimeException::t _exn11756_)) + (let ((_e11759_ + (let () + (declare (not safe)) + (slot-ref _exn11756_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e11759_) + (macro-invalid-utf8-encoding-exception-procedure _e11759_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp10554 + (let ((__tmp12536 (let () (declare (not safe)) - (cons _e9777_ '())))) + (cons _e11759_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp10554))))) - (if (macro-invalid-utf8-encoding-exception? _exn9774_) - (macro-invalid-utf8-encoding-exception-procedure _exn9774_) + __tmp12536))))) + (if (macro-invalid-utf8-encoding-exception? _exn11756_) + (macro-invalid-utf8-encoding-exception-procedure _exn11756_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp10553 + (let ((__tmp12535 (let () (declare (not safe)) - (cons _exn9774_ '())))) + (cons _exn11756_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp10553))))))) + __tmp12535))))))) (define join-timeout-exception? - (lambda (_exn9770_) + (lambda (_exn11752_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9770_)) - (let ((_e9772_ (let () - (declare (not safe)) - (slot-ref _exn9770_ 'exception)))) - (macro-join-timeout-exception? _e9772_)) - (macro-join-timeout-exception? _exn9770_)))) + (class-instance? RuntimeException::t _exn11752_)) + (let ((_e11754_ + (let () + (declare (not safe)) + (slot-ref _exn11752_ 'exception)))) + (macro-join-timeout-exception? _e11754_)) + (macro-join-timeout-exception? _exn11752_)))) (define join-timeout-exception-arguments - (lambda (_exn9766_) + (lambda (_exn11748_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9766_)) - (let ((_e9768_ (let () - (declare (not safe)) - (slot-ref _exn9766_ 'exception)))) - (if (macro-join-timeout-exception? _e9768_) - (macro-join-timeout-exception-arguments _e9768_) + (class-instance? RuntimeException::t _exn11748_)) + (let ((_e11750_ + (let () + (declare (not safe)) + (slot-ref _exn11748_ 'exception)))) + (if (macro-join-timeout-exception? _e11750_) + (macro-join-timeout-exception-arguments _e11750_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp10556 + (let ((__tmp12538 (let () (declare (not safe)) - (cons _e9768_ '())))) + (cons _e11750_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp10556))))) - (if (macro-join-timeout-exception? _exn9766_) - (macro-join-timeout-exception-arguments _exn9766_) + __tmp12538))))) + (if (macro-join-timeout-exception? _exn11748_) + (macro-join-timeout-exception-arguments _exn11748_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp10555 + (let ((__tmp12537 (let () (declare (not safe)) - (cons _exn9766_ '())))) + (cons _exn11748_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp10555))))))) + __tmp12537))))))) (define join-timeout-exception-procedure - (lambda (_exn9760_) + (lambda (_exn11742_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9760_)) - (let ((_e9763_ (let () - (declare (not safe)) - (slot-ref _exn9760_ 'exception)))) - (if (macro-join-timeout-exception? _e9763_) - (macro-join-timeout-exception-procedure _e9763_) + (class-instance? RuntimeException::t _exn11742_)) + (let ((_e11745_ + (let () + (declare (not safe)) + (slot-ref _exn11742_ 'exception)))) + (if (macro-join-timeout-exception? _e11745_) + (macro-join-timeout-exception-procedure _e11745_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp10558 + (let ((__tmp12540 (let () (declare (not safe)) - (cons _e9763_ '())))) + (cons _e11745_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp10558))))) - (if (macro-join-timeout-exception? _exn9760_) - (macro-join-timeout-exception-procedure _exn9760_) + __tmp12540))))) + (if (macro-join-timeout-exception? _exn11742_) + (macro-join-timeout-exception-procedure _exn11742_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp10557 + (let ((__tmp12539 (let () (declare (not safe)) - (cons _exn9760_ '())))) + (cons _exn11742_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp10557))))))) + __tmp12539))))))) (define keyword-expected-exception? - (lambda (_exn9756_) + (lambda (_exn11738_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9756_)) - (let ((_e9758_ (let () - (declare (not safe)) - (slot-ref _exn9756_ 'exception)))) - (macro-keyword-expected-exception? _e9758_)) - (macro-keyword-expected-exception? _exn9756_)))) + (class-instance? RuntimeException::t _exn11738_)) + (let ((_e11740_ + (let () + (declare (not safe)) + (slot-ref _exn11738_ 'exception)))) + (macro-keyword-expected-exception? _e11740_)) + (macro-keyword-expected-exception? _exn11738_)))) (define keyword-expected-exception-arguments - (lambda (_exn9752_) + (lambda (_exn11734_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9752_)) - (let ((_e9754_ (let () - (declare (not safe)) - (slot-ref _exn9752_ 'exception)))) - (if (macro-keyword-expected-exception? _e9754_) - (macro-keyword-expected-exception-arguments _e9754_) + (class-instance? RuntimeException::t _exn11734_)) + (let ((_e11736_ + (let () + (declare (not safe)) + (slot-ref _exn11734_ 'exception)))) + (if (macro-keyword-expected-exception? _e11736_) + (macro-keyword-expected-exception-arguments _e11736_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp10560 + (let ((__tmp12542 (let () (declare (not safe)) - (cons _e9754_ '())))) + (cons _e11736_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp10560))))) - (if (macro-keyword-expected-exception? _exn9752_) - (macro-keyword-expected-exception-arguments _exn9752_) + __tmp12542))))) + (if (macro-keyword-expected-exception? _exn11734_) + (macro-keyword-expected-exception-arguments _exn11734_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp10559 + (let ((__tmp12541 (let () (declare (not safe)) - (cons _exn9752_ '())))) + (cons _exn11734_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp10559))))))) + __tmp12541))))))) (define keyword-expected-exception-procedure - (lambda (_exn9746_) + (lambda (_exn11728_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9746_)) - (let ((_e9749_ (let () - (declare (not safe)) - (slot-ref _exn9746_ 'exception)))) - (if (macro-keyword-expected-exception? _e9749_) - (macro-keyword-expected-exception-procedure _e9749_) + (class-instance? RuntimeException::t _exn11728_)) + (let ((_e11731_ + (let () + (declare (not safe)) + (slot-ref _exn11728_ 'exception)))) + (if (macro-keyword-expected-exception? _e11731_) + (macro-keyword-expected-exception-procedure _e11731_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp10562 + (let ((__tmp12544 (let () (declare (not safe)) - (cons _e9749_ '())))) + (cons _e11731_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp10562))))) - (if (macro-keyword-expected-exception? _exn9746_) - (macro-keyword-expected-exception-procedure _exn9746_) + __tmp12544))))) + (if (macro-keyword-expected-exception? _exn11728_) + (macro-keyword-expected-exception-procedure _exn11728_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp10561 + (let ((__tmp12543 (let () (declare (not safe)) - (cons _exn9746_ '())))) + (cons _exn11728_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp10561))))))) + __tmp12543))))))) (define length-mismatch-exception? - (lambda (_exn9742_) + (lambda (_exn11724_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9742_)) - (let ((_e9744_ (let () - (declare (not safe)) - (slot-ref _exn9742_ 'exception)))) - (macro-length-mismatch-exception? _e9744_)) - (macro-length-mismatch-exception? _exn9742_)))) + (class-instance? RuntimeException::t _exn11724_)) + (let ((_e11726_ + (let () + (declare (not safe)) + (slot-ref _exn11724_ 'exception)))) + (macro-length-mismatch-exception? _e11726_)) + (macro-length-mismatch-exception? _exn11724_)))) (define length-mismatch-exception-arg-id - (lambda (_exn9738_) + (lambda (_exn11720_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9738_)) - (let ((_e9740_ (let () - (declare (not safe)) - (slot-ref _exn9738_ 'exception)))) - (if (macro-length-mismatch-exception? _e9740_) - (macro-length-mismatch-exception-arg-id _e9740_) + (class-instance? RuntimeException::t _exn11720_)) + (let ((_e11722_ + (let () + (declare (not safe)) + (slot-ref _exn11720_ 'exception)))) + (if (macro-length-mismatch-exception? _e11722_) + (macro-length-mismatch-exception-arg-id _e11722_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp10564 + (let ((__tmp12546 (let () (declare (not safe)) - (cons _e9740_ '())))) + (cons _e11722_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp10564))))) - (if (macro-length-mismatch-exception? _exn9738_) - (macro-length-mismatch-exception-arg-id _exn9738_) + __tmp12546))))) + (if (macro-length-mismatch-exception? _exn11720_) + (macro-length-mismatch-exception-arg-id _exn11720_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp10563 + (let ((__tmp12545 (let () (declare (not safe)) - (cons _exn9738_ '())))) + (cons _exn11720_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp10563))))))) + __tmp12545))))))) (define length-mismatch-exception-arguments - (lambda (_exn9734_) + (lambda (_exn11716_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9734_)) - (let ((_e9736_ (let () - (declare (not safe)) - (slot-ref _exn9734_ 'exception)))) - (if (macro-length-mismatch-exception? _e9736_) - (macro-length-mismatch-exception-arguments _e9736_) + (class-instance? RuntimeException::t _exn11716_)) + (let ((_e11718_ + (let () + (declare (not safe)) + (slot-ref _exn11716_ 'exception)))) + (if (macro-length-mismatch-exception? _e11718_) + (macro-length-mismatch-exception-arguments _e11718_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp10566 + (let ((__tmp12548 (let () (declare (not safe)) - (cons _e9736_ '())))) + (cons _e11718_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp10566))))) - (if (macro-length-mismatch-exception? _exn9734_) - (macro-length-mismatch-exception-arguments _exn9734_) + __tmp12548))))) + (if (macro-length-mismatch-exception? _exn11716_) + (macro-length-mismatch-exception-arguments _exn11716_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp10565 + (let ((__tmp12547 (let () (declare (not safe)) - (cons _exn9734_ '())))) + (cons _exn11716_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp10565))))))) + __tmp12547))))))) (define length-mismatch-exception-procedure - (lambda (_exn9728_) + (lambda (_exn11710_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9728_)) - (let ((_e9731_ (let () - (declare (not safe)) - (slot-ref _exn9728_ 'exception)))) - (if (macro-length-mismatch-exception? _e9731_) - (macro-length-mismatch-exception-procedure _e9731_) + (class-instance? RuntimeException::t _exn11710_)) + (let ((_e11713_ + (let () + (declare (not safe)) + (slot-ref _exn11710_ 'exception)))) + (if (macro-length-mismatch-exception? _e11713_) + (macro-length-mismatch-exception-procedure _e11713_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp10568 + (let ((__tmp12550 (let () (declare (not safe)) - (cons _e9731_ '())))) + (cons _e11713_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp10568))))) - (if (macro-length-mismatch-exception? _exn9728_) - (macro-length-mismatch-exception-procedure _exn9728_) + __tmp12550))))) + (if (macro-length-mismatch-exception? _exn11710_) + (macro-length-mismatch-exception-procedure _exn11710_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp10567 + (let ((__tmp12549 (let () (declare (not safe)) - (cons _exn9728_ '())))) + (cons _exn11710_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp10567))))))) + __tmp12549))))))) (define mailbox-receive-timeout-exception? - (lambda (_exn9724_) + (lambda (_exn11706_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9724_)) - (let ((_e9726_ (let () - (declare (not safe)) - (slot-ref _exn9724_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _e9726_)) - (macro-mailbox-receive-timeout-exception? _exn9724_)))) + (class-instance? RuntimeException::t _exn11706_)) + (let ((_e11708_ + (let () + (declare (not safe)) + (slot-ref _exn11706_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e11708_)) + (macro-mailbox-receive-timeout-exception? _exn11706_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn9720_) + (lambda (_exn11702_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9720_)) - (let ((_e9722_ (let () - (declare (not safe)) - (slot-ref _exn9720_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e9722_) - (macro-mailbox-receive-timeout-exception-arguments _e9722_) + (class-instance? RuntimeException::t _exn11702_)) + (let ((_e11704_ + (let () + (declare (not safe)) + (slot-ref _exn11702_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e11704_) + (macro-mailbox-receive-timeout-exception-arguments _e11704_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp10570 + (let ((__tmp12552 (let () (declare (not safe)) - (cons _e9722_ '())))) + (cons _e11704_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp10570))))) - (if (macro-mailbox-receive-timeout-exception? _exn9720_) - (macro-mailbox-receive-timeout-exception-arguments _exn9720_) + __tmp12552))))) + (if (macro-mailbox-receive-timeout-exception? _exn11702_) + (macro-mailbox-receive-timeout-exception-arguments _exn11702_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp10569 + (let ((__tmp12551 (let () (declare (not safe)) - (cons _exn9720_ '())))) + (cons _exn11702_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp10569))))))) + __tmp12551))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn9714_) + (lambda (_exn11696_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9714_)) - (let ((_e9717_ (let () - (declare (not safe)) - (slot-ref _exn9714_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e9717_) - (macro-mailbox-receive-timeout-exception-procedure _e9717_) + (class-instance? RuntimeException::t _exn11696_)) + (let ((_e11699_ + (let () + (declare (not safe)) + (slot-ref _exn11696_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e11699_) + (macro-mailbox-receive-timeout-exception-procedure _e11699_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp10572 + (let ((__tmp12554 (let () (declare (not safe)) - (cons _e9717_ '())))) + (cons _e11699_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp10572))))) - (if (macro-mailbox-receive-timeout-exception? _exn9714_) - (macro-mailbox-receive-timeout-exception-procedure _exn9714_) + __tmp12554))))) + (if (macro-mailbox-receive-timeout-exception? _exn11696_) + (macro-mailbox-receive-timeout-exception-procedure _exn11696_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp10571 + (let ((__tmp12553 (let () (declare (not safe)) - (cons _exn9714_ '())))) + (cons _exn11696_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp10571))))))) + __tmp12553))))))) (define module-not-found-exception? - (lambda (_exn9710_) + (lambda (_exn11692_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9710_)) - (let ((_e9712_ (let () - (declare (not safe)) - (slot-ref _exn9710_ 'exception)))) - (macro-module-not-found-exception? _e9712_)) - (macro-module-not-found-exception? _exn9710_)))) + (class-instance? RuntimeException::t _exn11692_)) + (let ((_e11694_ + (let () + (declare (not safe)) + (slot-ref _exn11692_ 'exception)))) + (macro-module-not-found-exception? _e11694_)) + (macro-module-not-found-exception? _exn11692_)))) (define module-not-found-exception-arguments - (lambda (_exn9706_) + (lambda (_exn11688_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9706_)) - (let ((_e9708_ (let () - (declare (not safe)) - (slot-ref _exn9706_ 'exception)))) - (if (macro-module-not-found-exception? _e9708_) - (macro-module-not-found-exception-arguments _e9708_) + (class-instance? RuntimeException::t _exn11688_)) + (let ((_e11690_ + (let () + (declare (not safe)) + (slot-ref _exn11688_ 'exception)))) + (if (macro-module-not-found-exception? _e11690_) + (macro-module-not-found-exception-arguments _e11690_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp10574 + (let ((__tmp12556 (let () (declare (not safe)) - (cons _e9708_ '())))) + (cons _e11690_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp10574))))) - (if (macro-module-not-found-exception? _exn9706_) - (macro-module-not-found-exception-arguments _exn9706_) + __tmp12556))))) + (if (macro-module-not-found-exception? _exn11688_) + (macro-module-not-found-exception-arguments _exn11688_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp10573 + (let ((__tmp12555 (let () (declare (not safe)) - (cons _exn9706_ '())))) + (cons _exn11688_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp10573))))))) + __tmp12555))))))) (define module-not-found-exception-procedure - (lambda (_exn9700_) + (lambda (_exn11682_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9700_)) - (let ((_e9703_ (let () - (declare (not safe)) - (slot-ref _exn9700_ 'exception)))) - (if (macro-module-not-found-exception? _e9703_) - (macro-module-not-found-exception-procedure _e9703_) + (class-instance? RuntimeException::t _exn11682_)) + (let ((_e11685_ + (let () + (declare (not safe)) + (slot-ref _exn11682_ 'exception)))) + (if (macro-module-not-found-exception? _e11685_) + (macro-module-not-found-exception-procedure _e11685_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp10576 + (let ((__tmp12558 (let () (declare (not safe)) - (cons _e9703_ '())))) + (cons _e11685_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp10576))))) - (if (macro-module-not-found-exception? _exn9700_) - (macro-module-not-found-exception-procedure _exn9700_) + __tmp12558))))) + (if (macro-module-not-found-exception? _exn11682_) + (macro-module-not-found-exception-procedure _exn11682_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp10575 + (let ((__tmp12557 (let () (declare (not safe)) - (cons _exn9700_ '())))) + (cons _exn11682_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp10575))))))) + __tmp12557))))))) (define multiple-c-return-exception? - (lambda (_exn9694_) + (lambda (_exn11676_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9694_)) - (let ((_e9697_ (let () - (declare (not safe)) - (slot-ref _exn9694_ 'exception)))) - (macro-multiple-c-return-exception? _e9697_)) - (macro-multiple-c-return-exception? _exn9694_)))) + (class-instance? RuntimeException::t _exn11676_)) + (let ((_e11679_ + (let () + (declare (not safe)) + (slot-ref _exn11676_ 'exception)))) + (macro-multiple-c-return-exception? _e11679_)) + (macro-multiple-c-return-exception? _exn11676_)))) (define no-such-file-or-directory-exception? - (lambda (_exn9690_) + (lambda (_exn11672_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9690_)) - (let ((_e9692_ (let () - (declare (not safe)) - (slot-ref _exn9690_ 'exception)))) - (macro-no-such-file-or-directory-exception? _e9692_)) - (macro-no-such-file-or-directory-exception? _exn9690_)))) + (class-instance? RuntimeException::t _exn11672_)) + (let ((_e11674_ + (let () + (declare (not safe)) + (slot-ref _exn11672_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e11674_)) + (macro-no-such-file-or-directory-exception? _exn11672_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn9686_) + (lambda (_exn11668_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9686_)) - (let ((_e9688_ (let () - (declare (not safe)) - (slot-ref _exn9686_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e9688_) - (macro-no-such-file-or-directory-exception-arguments _e9688_) + (class-instance? RuntimeException::t _exn11668_)) + (let ((_e11670_ + (let () + (declare (not safe)) + (slot-ref _exn11668_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e11670_) + (macro-no-such-file-or-directory-exception-arguments + _e11670_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp10578 + (let ((__tmp12560 (let () (declare (not safe)) - (cons _e9688_ '())))) + (cons _e11670_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp10578))))) - (if (macro-no-such-file-or-directory-exception? _exn9686_) - (macro-no-such-file-or-directory-exception-arguments _exn9686_) + __tmp12560))))) + (if (macro-no-such-file-or-directory-exception? _exn11668_) + (macro-no-such-file-or-directory-exception-arguments + _exn11668_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp10577 + (let ((__tmp12559 (let () (declare (not safe)) - (cons _exn9686_ '())))) + (cons _exn11668_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp10577))))))) + __tmp12559))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn9680_) + (lambda (_exn11662_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9680_)) - (let ((_e9683_ (let () - (declare (not safe)) - (slot-ref _exn9680_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e9683_) - (macro-no-such-file-or-directory-exception-procedure _e9683_) + (class-instance? RuntimeException::t _exn11662_)) + (let ((_e11665_ + (let () + (declare (not safe)) + (slot-ref _exn11662_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e11665_) + (macro-no-such-file-or-directory-exception-procedure + _e11665_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp10580 + (let ((__tmp12562 (let () (declare (not safe)) - (cons _e9683_ '())))) + (cons _e11665_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp10580))))) - (if (macro-no-such-file-or-directory-exception? _exn9680_) - (macro-no-such-file-or-directory-exception-procedure _exn9680_) + __tmp12562))))) + (if (macro-no-such-file-or-directory-exception? _exn11662_) + (macro-no-such-file-or-directory-exception-procedure + _exn11662_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp10579 + (let ((__tmp12561 (let () (declare (not safe)) - (cons _exn9680_ '())))) + (cons _exn11662_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp10579))))))) + __tmp12561))))))) (define noncontinuable-exception? - (lambda (_exn9676_) + (lambda (_exn11658_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9676_)) - (let ((_e9678_ (let () - (declare (not safe)) - (slot-ref _exn9676_ 'exception)))) - (macro-noncontinuable-exception? _e9678_)) - (macro-noncontinuable-exception? _exn9676_)))) + (class-instance? RuntimeException::t _exn11658_)) + (let ((_e11660_ + (let () + (declare (not safe)) + (slot-ref _exn11658_ 'exception)))) + (macro-noncontinuable-exception? _e11660_)) + (macro-noncontinuable-exception? _exn11658_)))) (define noncontinuable-exception-reason - (lambda (_exn9670_) + (lambda (_exn11652_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9670_)) - (let ((_e9673_ (let () - (declare (not safe)) - (slot-ref _exn9670_ 'exception)))) - (if (macro-noncontinuable-exception? _e9673_) - (macro-noncontinuable-exception-reason _e9673_) + (class-instance? RuntimeException::t _exn11652_)) + (let ((_e11655_ + (let () + (declare (not safe)) + (slot-ref _exn11652_ 'exception)))) + (if (macro-noncontinuable-exception? _e11655_) + (macro-noncontinuable-exception-reason _e11655_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp10582 + (let ((__tmp12564 (let () (declare (not safe)) - (cons _e9673_ '())))) + (cons _e11655_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp10582))))) - (if (macro-noncontinuable-exception? _exn9670_) - (macro-noncontinuable-exception-reason _exn9670_) + __tmp12564))))) + (if (macro-noncontinuable-exception? _exn11652_) + (macro-noncontinuable-exception-reason _exn11652_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp10581 + (let ((__tmp12563 (let () (declare (not safe)) - (cons _exn9670_ '())))) + (cons _exn11652_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp10581))))))) + __tmp12563))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn9666_) + (lambda (_exn11648_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9666_)) - (let ((_e9668_ (let () - (declare (not safe)) - (slot-ref _exn9666_ 'exception)))) - (macro-nonempty-input-port-character-buffer-exception? _e9668_)) + (class-instance? RuntimeException::t _exn11648_)) + (let ((_e11650_ + (let () + (declare (not safe)) + (slot-ref _exn11648_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e11650_)) (macro-nonempty-input-port-character-buffer-exception? - _exn9666_)))) + _exn11648_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn9662_) + (lambda (_exn11644_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9662_)) - (let ((_e9664_ (let () - (declare (not safe)) - (slot-ref _exn9662_ 'exception)))) + (class-instance? RuntimeException::t _exn11644_)) + (let ((_e11646_ + (let () + (declare (not safe)) + (slot-ref _exn11644_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e9664_) + _e11646_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e9664_) + _e11646_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp10584 + (let ((__tmp12566 (let () (declare (not safe)) - (cons _e9664_ '())))) + (cons _e11646_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp10584))))) + __tmp12566))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn9662_) + _exn11644_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn9662_) + _exn11644_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp10583 + (let ((__tmp12565 (let () (declare (not safe)) - (cons _exn9662_ '())))) + (cons _exn11644_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp10583))))))) + __tmp12565))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn9656_) + (lambda (_exn11638_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9656_)) - (let ((_e9659_ (let () - (declare (not safe)) - (slot-ref _exn9656_ 'exception)))) + (class-instance? RuntimeException::t _exn11638_)) + (let ((_e11641_ + (let () + (declare (not safe)) + (slot-ref _exn11638_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e9659_) + _e11641_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e9659_) + _e11641_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp10586 + (let ((__tmp12568 (let () (declare (not safe)) - (cons _e9659_ '())))) + (cons _e11641_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp10586))))) + __tmp12568))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn9656_) + _exn11638_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn9656_) + _exn11638_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp10585 + (let ((__tmp12567 (let () (declare (not safe)) - (cons _exn9656_ '())))) + (cons _exn11638_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp10585))))))) + __tmp12567))))))) (define nonprocedure-operator-exception? - (lambda (_exn9652_) + (lambda (_exn11634_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9652_)) - (let ((_e9654_ (let () - (declare (not safe)) - (slot-ref _exn9652_ 'exception)))) - (macro-nonprocedure-operator-exception? _e9654_)) - (macro-nonprocedure-operator-exception? _exn9652_)))) + (class-instance? RuntimeException::t _exn11634_)) + (let ((_e11636_ + (let () + (declare (not safe)) + (slot-ref _exn11634_ 'exception)))) + (macro-nonprocedure-operator-exception? _e11636_)) + (macro-nonprocedure-operator-exception? _exn11634_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn9648_) + (lambda (_exn11630_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9648_)) - (let ((_e9650_ (let () - (declare (not safe)) - (slot-ref _exn9648_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e9650_) - (macro-nonprocedure-operator-exception-arguments _e9650_) + (class-instance? RuntimeException::t _exn11630_)) + (let ((_e11632_ + (let () + (declare (not safe)) + (slot-ref _exn11630_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11632_) + (macro-nonprocedure-operator-exception-arguments _e11632_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp10588 + (let ((__tmp12570 (let () (declare (not safe)) - (cons _e9650_ '())))) + (cons _e11632_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp10588))))) - (if (macro-nonprocedure-operator-exception? _exn9648_) - (macro-nonprocedure-operator-exception-arguments _exn9648_) + __tmp12570))))) + (if (macro-nonprocedure-operator-exception? _exn11630_) + (macro-nonprocedure-operator-exception-arguments _exn11630_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp10587 + (let ((__tmp12569 (let () (declare (not safe)) - (cons _exn9648_ '())))) + (cons _exn11630_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp10587))))))) + __tmp12569))))))) (define nonprocedure-operator-exception-code - (lambda (_exn9644_) + (lambda (_exn11626_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9644_)) - (let ((_e9646_ (let () - (declare (not safe)) - (slot-ref _exn9644_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e9646_) - (macro-nonprocedure-operator-exception-code _e9646_) + (class-instance? RuntimeException::t _exn11626_)) + (let ((_e11628_ + (let () + (declare (not safe)) + (slot-ref _exn11626_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11628_) + (macro-nonprocedure-operator-exception-code _e11628_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp10590 + (let ((__tmp12572 (let () (declare (not safe)) - (cons _e9646_ '())))) + (cons _e11628_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp10590))))) - (if (macro-nonprocedure-operator-exception? _exn9644_) - (macro-nonprocedure-operator-exception-code _exn9644_) + __tmp12572))))) + (if (macro-nonprocedure-operator-exception? _exn11626_) + (macro-nonprocedure-operator-exception-code _exn11626_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp10589 + (let ((__tmp12571 (let () (declare (not safe)) - (cons _exn9644_ '())))) + (cons _exn11626_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp10589))))))) + __tmp12571))))))) (define nonprocedure-operator-exception-operator - (lambda (_exn9640_) + (lambda (_exn11622_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9640_)) - (let ((_e9642_ (let () - (declare (not safe)) - (slot-ref _exn9640_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e9642_) - (macro-nonprocedure-operator-exception-operator _e9642_) + (class-instance? RuntimeException::t _exn11622_)) + (let ((_e11624_ + (let () + (declare (not safe)) + (slot-ref _exn11622_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11624_) + (macro-nonprocedure-operator-exception-operator _e11624_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp10592 + (let ((__tmp12574 (let () (declare (not safe)) - (cons _e9642_ '())))) + (cons _e11624_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp10592))))) - (if (macro-nonprocedure-operator-exception? _exn9640_) - (macro-nonprocedure-operator-exception-operator _exn9640_) + __tmp12574))))) + (if (macro-nonprocedure-operator-exception? _exn11622_) + (macro-nonprocedure-operator-exception-operator _exn11622_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp10591 + (let ((__tmp12573 (let () (declare (not safe)) - (cons _exn9640_ '())))) + (cons _exn11622_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp10591))))))) + __tmp12573))))))) (define nonprocedure-operator-exception-rte - (lambda (_exn9634_) + (lambda (_exn11616_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9634_)) - (let ((_e9637_ (let () - (declare (not safe)) - (slot-ref _exn9634_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e9637_) - (macro-nonprocedure-operator-exception-rte _e9637_) + (class-instance? RuntimeException::t _exn11616_)) + (let ((_e11619_ + (let () + (declare (not safe)) + (slot-ref _exn11616_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11619_) + (macro-nonprocedure-operator-exception-rte _e11619_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp10594 + (let ((__tmp12576 (let () (declare (not safe)) - (cons _e9637_ '())))) + (cons _e11619_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp10594))))) - (if (macro-nonprocedure-operator-exception? _exn9634_) - (macro-nonprocedure-operator-exception-rte _exn9634_) + __tmp12576))))) + (if (macro-nonprocedure-operator-exception? _exn11616_) + (macro-nonprocedure-operator-exception-rte _exn11616_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp10593 + (let ((__tmp12575 (let () (declare (not safe)) - (cons _exn9634_ '())))) + (cons _exn11616_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp10593))))))) + __tmp12575))))))) (define not-in-compilation-context-exception? - (lambda (_exn9630_) + (lambda (_exn11612_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9630_)) - (let ((_e9632_ (let () - (declare (not safe)) - (slot-ref _exn9630_ 'exception)))) - (macro-not-in-compilation-context-exception? _e9632_)) - (macro-not-in-compilation-context-exception? _exn9630_)))) + (class-instance? RuntimeException::t _exn11612_)) + (let ((_e11614_ + (let () + (declare (not safe)) + (slot-ref _exn11612_ 'exception)))) + (macro-not-in-compilation-context-exception? _e11614_)) + (macro-not-in-compilation-context-exception? _exn11612_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn9626_) + (lambda (_exn11608_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9626_)) - (let ((_e9628_ (let () - (declare (not safe)) - (slot-ref _exn9626_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e9628_) + (class-instance? RuntimeException::t _exn11608_)) + (let ((_e11610_ + (let () + (declare (not safe)) + (slot-ref _exn11608_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e11610_) (macro-not-in-compilation-context-exception-arguments - _e9628_) + _e11610_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp10596 + (let ((__tmp12578 (let () (declare (not safe)) - (cons _e9628_ '())))) + (cons _e11610_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp10596))))) - (if (macro-not-in-compilation-context-exception? _exn9626_) + __tmp12578))))) + (if (macro-not-in-compilation-context-exception? _exn11608_) (macro-not-in-compilation-context-exception-arguments - _exn9626_) + _exn11608_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp10595 + (let ((__tmp12577 (let () (declare (not safe)) - (cons _exn9626_ '())))) + (cons _exn11608_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp10595))))))) + __tmp12577))))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn9620_) + (lambda (_exn11602_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9620_)) - (let ((_e9623_ (let () - (declare (not safe)) - (slot-ref _exn9620_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e9623_) + (class-instance? RuntimeException::t _exn11602_)) + (let ((_e11605_ + (let () + (declare (not safe)) + (slot-ref _exn11602_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e11605_) (macro-not-in-compilation-context-exception-procedure - _e9623_) + _e11605_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp10598 + (let ((__tmp12580 (let () (declare (not safe)) - (cons _e9623_ '())))) + (cons _e11605_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp10598))))) - (if (macro-not-in-compilation-context-exception? _exn9620_) + __tmp12580))))) + (if (macro-not-in-compilation-context-exception? _exn11602_) (macro-not-in-compilation-context-exception-procedure - _exn9620_) + _exn11602_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp10597 + (let ((__tmp12579 (let () (declare (not safe)) - (cons _exn9620_ '())))) + (cons _exn11602_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp10597))))))) + __tmp12579))))))) (define number-of-arguments-limit-exception? - (lambda (_exn9616_) + (lambda (_exn11598_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9616_)) - (let ((_e9618_ (let () - (declare (not safe)) - (slot-ref _exn9616_ 'exception)))) - (macro-number-of-arguments-limit-exception? _e9618_)) - (macro-number-of-arguments-limit-exception? _exn9616_)))) + (class-instance? RuntimeException::t _exn11598_)) + (let ((_e11600_ + (let () + (declare (not safe)) + (slot-ref _exn11598_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e11600_)) + (macro-number-of-arguments-limit-exception? _exn11598_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn9612_) + (lambda (_exn11594_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9612_)) - (let ((_e9614_ (let () - (declare (not safe)) - (slot-ref _exn9612_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e9614_) - (macro-number-of-arguments-limit-exception-arguments _e9614_) + (class-instance? RuntimeException::t _exn11594_)) + (let ((_e11596_ + (let () + (declare (not safe)) + (slot-ref _exn11594_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e11596_) + (macro-number-of-arguments-limit-exception-arguments + _e11596_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp10600 + (let ((__tmp12582 (let () (declare (not safe)) - (cons _e9614_ '())))) + (cons _e11596_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp10600))))) - (if (macro-number-of-arguments-limit-exception? _exn9612_) - (macro-number-of-arguments-limit-exception-arguments _exn9612_) + __tmp12582))))) + (if (macro-number-of-arguments-limit-exception? _exn11594_) + (macro-number-of-arguments-limit-exception-arguments + _exn11594_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp10599 + (let ((__tmp12581 (let () (declare (not safe)) - (cons _exn9612_ '())))) + (cons _exn11594_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp10599))))))) + __tmp12581))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn9606_) + (lambda (_exn11588_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9606_)) - (let ((_e9609_ (let () - (declare (not safe)) - (slot-ref _exn9606_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e9609_) - (macro-number-of-arguments-limit-exception-procedure _e9609_) + (class-instance? RuntimeException::t _exn11588_)) + (let ((_e11591_ + (let () + (declare (not safe)) + (slot-ref _exn11588_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e11591_) + (macro-number-of-arguments-limit-exception-procedure + _e11591_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp10602 + (let ((__tmp12584 (let () (declare (not safe)) - (cons _e9609_ '())))) + (cons _e11591_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp10602))))) - (if (macro-number-of-arguments-limit-exception? _exn9606_) - (macro-number-of-arguments-limit-exception-procedure _exn9606_) + __tmp12584))))) + (if (macro-number-of-arguments-limit-exception? _exn11588_) + (macro-number-of-arguments-limit-exception-procedure + _exn11588_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp10601 + (let ((__tmp12583 (let () (declare (not safe)) - (cons _exn9606_ '())))) + (cons _exn11588_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp10601))))))) + __tmp12583))))))) (define os-exception? - (lambda (_exn9602_) + (lambda (_exn11584_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9602_)) - (let ((_e9604_ (let () - (declare (not safe)) - (slot-ref _exn9602_ 'exception)))) - (macro-os-exception? _e9604_)) - (macro-os-exception? _exn9602_)))) + (class-instance? RuntimeException::t _exn11584_)) + (let ((_e11586_ + (let () + (declare (not safe)) + (slot-ref _exn11584_ 'exception)))) + (macro-os-exception? _e11586_)) + (macro-os-exception? _exn11584_)))) (define os-exception-arguments - (lambda (_exn9598_) + (lambda (_exn11580_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9598_)) - (let ((_e9600_ (let () - (declare (not safe)) - (slot-ref _exn9598_ 'exception)))) - (if (macro-os-exception? _e9600_) - (macro-os-exception-arguments _e9600_) + (class-instance? RuntimeException::t _exn11580_)) + (let ((_e11582_ + (let () + (declare (not safe)) + (slot-ref _exn11580_ 'exception)))) + (if (macro-os-exception? _e11582_) + (macro-os-exception-arguments _e11582_) (error '"not an instance" 'os-exception? - (let ((__tmp10604 + (let ((__tmp12586 (let () (declare (not safe)) - (cons _e9600_ '())))) + (cons _e11582_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp10604))))) - (if (macro-os-exception? _exn9598_) - (macro-os-exception-arguments _exn9598_) + (cons 'os-exception-arguments __tmp12586))))) + (if (macro-os-exception? _exn11580_) + (macro-os-exception-arguments _exn11580_) (error '"not an instance" 'os-exception? - (let ((__tmp10603 + (let ((__tmp12585 (let () (declare (not safe)) - (cons _exn9598_ '())))) + (cons _exn11580_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp10603))))))) + (cons 'os-exception-arguments __tmp12585))))))) (define os-exception-code - (lambda (_exn9594_) + (lambda (_exn11576_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9594_)) - (let ((_e9596_ (let () - (declare (not safe)) - (slot-ref _exn9594_ 'exception)))) - (if (macro-os-exception? _e9596_) - (macro-os-exception-code _e9596_) + (class-instance? RuntimeException::t _exn11576_)) + (let ((_e11578_ + (let () + (declare (not safe)) + (slot-ref _exn11576_ 'exception)))) + (if (macro-os-exception? _e11578_) + (macro-os-exception-code _e11578_) (error '"not an instance" 'os-exception? - (let ((__tmp10606 + (let ((__tmp12588 (let () (declare (not safe)) - (cons _e9596_ '())))) + (cons _e11578_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp10606))))) - (if (macro-os-exception? _exn9594_) - (macro-os-exception-code _exn9594_) + (cons 'os-exception-code __tmp12588))))) + (if (macro-os-exception? _exn11576_) + (macro-os-exception-code _exn11576_) (error '"not an instance" 'os-exception? - (let ((__tmp10605 + (let ((__tmp12587 (let () (declare (not safe)) - (cons _exn9594_ '())))) + (cons _exn11576_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp10605))))))) + (cons 'os-exception-code __tmp12587))))))) (define os-exception-message - (lambda (_exn9590_) + (lambda (_exn11572_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9590_)) - (let ((_e9592_ (let () - (declare (not safe)) - (slot-ref _exn9590_ 'exception)))) - (if (macro-os-exception? _e9592_) - (macro-os-exception-message _e9592_) + (class-instance? RuntimeException::t _exn11572_)) + (let ((_e11574_ + (let () + (declare (not safe)) + (slot-ref _exn11572_ 'exception)))) + (if (macro-os-exception? _e11574_) + (macro-os-exception-message _e11574_) (error '"not an instance" 'os-exception? - (let ((__tmp10608 + (let ((__tmp12590 (let () (declare (not safe)) - (cons _e9592_ '())))) + (cons _e11574_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp10608))))) - (if (macro-os-exception? _exn9590_) - (macro-os-exception-message _exn9590_) + (cons 'os-exception-message __tmp12590))))) + (if (macro-os-exception? _exn11572_) + (macro-os-exception-message _exn11572_) (error '"not an instance" 'os-exception? - (let ((__tmp10607 + (let ((__tmp12589 (let () (declare (not safe)) - (cons _exn9590_ '())))) + (cons _exn11572_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp10607))))))) + (cons 'os-exception-message __tmp12589))))))) (define os-exception-procedure - (lambda (_exn9584_) + (lambda (_exn11566_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9584_)) - (let ((_e9587_ (let () - (declare (not safe)) - (slot-ref _exn9584_ 'exception)))) - (if (macro-os-exception? _e9587_) - (macro-os-exception-procedure _e9587_) + (class-instance? RuntimeException::t _exn11566_)) + (let ((_e11569_ + (let () + (declare (not safe)) + (slot-ref _exn11566_ 'exception)))) + (if (macro-os-exception? _e11569_) + (macro-os-exception-procedure _e11569_) (error '"not an instance" 'os-exception? - (let ((__tmp10610 + (let ((__tmp12592 (let () (declare (not safe)) - (cons _e9587_ '())))) + (cons _e11569_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp10610))))) - (if (macro-os-exception? _exn9584_) - (macro-os-exception-procedure _exn9584_) + (cons 'os-exception-procedure __tmp12592))))) + (if (macro-os-exception? _exn11566_) + (macro-os-exception-procedure _exn11566_) (error '"not an instance" 'os-exception? - (let ((__tmp10609 + (let ((__tmp12591 (let () (declare (not safe)) - (cons _exn9584_ '())))) + (cons _exn11566_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp10609))))))) + (cons 'os-exception-procedure __tmp12591))))))) (define permission-denied-exception? - (lambda (_exn9580_) + (lambda (_exn11562_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9580_)) - (let ((_e9582_ (let () - (declare (not safe)) - (slot-ref _exn9580_ 'exception)))) - (macro-permission-denied-exception? _e9582_)) - (macro-permission-denied-exception? _exn9580_)))) + (class-instance? RuntimeException::t _exn11562_)) + (let ((_e11564_ + (let () + (declare (not safe)) + (slot-ref _exn11562_ 'exception)))) + (macro-permission-denied-exception? _e11564_)) + (macro-permission-denied-exception? _exn11562_)))) (define permission-denied-exception-arguments - (lambda (_exn9576_) + (lambda (_exn11558_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9576_)) - (let ((_e9578_ (let () - (declare (not safe)) - (slot-ref _exn9576_ 'exception)))) - (if (macro-permission-denied-exception? _e9578_) - (macro-permission-denied-exception-arguments _e9578_) + (class-instance? RuntimeException::t _exn11558_)) + (let ((_e11560_ + (let () + (declare (not safe)) + (slot-ref _exn11558_ 'exception)))) + (if (macro-permission-denied-exception? _e11560_) + (macro-permission-denied-exception-arguments _e11560_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp10612 + (let ((__tmp12594 (let () (declare (not safe)) - (cons _e9578_ '())))) + (cons _e11560_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp10612))))) - (if (macro-permission-denied-exception? _exn9576_) - (macro-permission-denied-exception-arguments _exn9576_) + __tmp12594))))) + (if (macro-permission-denied-exception? _exn11558_) + (macro-permission-denied-exception-arguments _exn11558_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp10611 + (let ((__tmp12593 (let () (declare (not safe)) - (cons _exn9576_ '())))) + (cons _exn11558_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp10611))))))) + __tmp12593))))))) (define permission-denied-exception-procedure - (lambda (_exn9570_) + (lambda (_exn11552_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9570_)) - (let ((_e9573_ (let () - (declare (not safe)) - (slot-ref _exn9570_ 'exception)))) - (if (macro-permission-denied-exception? _e9573_) - (macro-permission-denied-exception-procedure _e9573_) + (class-instance? RuntimeException::t _exn11552_)) + (let ((_e11555_ + (let () + (declare (not safe)) + (slot-ref _exn11552_ 'exception)))) + (if (macro-permission-denied-exception? _e11555_) + (macro-permission-denied-exception-procedure _e11555_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp10614 + (let ((__tmp12596 (let () (declare (not safe)) - (cons _e9573_ '())))) + (cons _e11555_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp10614))))) - (if (macro-permission-denied-exception? _exn9570_) - (macro-permission-denied-exception-procedure _exn9570_) + __tmp12596))))) + (if (macro-permission-denied-exception? _exn11552_) + (macro-permission-denied-exception-procedure _exn11552_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp10613 + (let ((__tmp12595 (let () (declare (not safe)) - (cons _exn9570_ '())))) + (cons _exn11552_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp10613))))))) + __tmp12595))))))) (define range-exception? - (lambda (_exn9566_) + (lambda (_exn11548_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9566_)) - (let ((_e9568_ (let () - (declare (not safe)) - (slot-ref _exn9566_ 'exception)))) - (macro-range-exception? _e9568_)) - (macro-range-exception? _exn9566_)))) + (class-instance? RuntimeException::t _exn11548_)) + (let ((_e11550_ + (let () + (declare (not safe)) + (slot-ref _exn11548_ 'exception)))) + (macro-range-exception? _e11550_)) + (macro-range-exception? _exn11548_)))) (define range-exception-arg-id - (lambda (_exn9562_) + (lambda (_exn11544_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9562_)) - (let ((_e9564_ (let () - (declare (not safe)) - (slot-ref _exn9562_ 'exception)))) - (if (macro-range-exception? _e9564_) - (macro-range-exception-arg-id _e9564_) + (class-instance? RuntimeException::t _exn11544_)) + (let ((_e11546_ + (let () + (declare (not safe)) + (slot-ref _exn11544_ 'exception)))) + (if (macro-range-exception? _e11546_) + (macro-range-exception-arg-id _e11546_) (error '"not an instance" 'range-exception? - (let ((__tmp10616 + (let ((__tmp12598 (let () (declare (not safe)) - (cons _e9564_ '())))) + (cons _e11546_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp10616))))) - (if (macro-range-exception? _exn9562_) - (macro-range-exception-arg-id _exn9562_) + (cons 'range-exception-arg-id __tmp12598))))) + (if (macro-range-exception? _exn11544_) + (macro-range-exception-arg-id _exn11544_) (error '"not an instance" 'range-exception? - (let ((__tmp10615 + (let ((__tmp12597 (let () (declare (not safe)) - (cons _exn9562_ '())))) + (cons _exn11544_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp10615))))))) + (cons 'range-exception-arg-id __tmp12597))))))) (define range-exception-arguments - (lambda (_exn9558_) + (lambda (_exn11540_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9558_)) - (let ((_e9560_ (let () - (declare (not safe)) - (slot-ref _exn9558_ 'exception)))) - (if (macro-range-exception? _e9560_) - (macro-range-exception-arguments _e9560_) + (class-instance? RuntimeException::t _exn11540_)) + (let ((_e11542_ + (let () + (declare (not safe)) + (slot-ref _exn11540_ 'exception)))) + (if (macro-range-exception? _e11542_) + (macro-range-exception-arguments _e11542_) (error '"not an instance" 'range-exception? - (let ((__tmp10618 + (let ((__tmp12600 (let () (declare (not safe)) - (cons _e9560_ '())))) + (cons _e11542_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp10618))))) - (if (macro-range-exception? _exn9558_) - (macro-range-exception-arguments _exn9558_) + (cons 'range-exception-arguments __tmp12600))))) + (if (macro-range-exception? _exn11540_) + (macro-range-exception-arguments _exn11540_) (error '"not an instance" 'range-exception? - (let ((__tmp10617 + (let ((__tmp12599 (let () (declare (not safe)) - (cons _exn9558_ '())))) + (cons _exn11540_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp10617))))))) + (cons 'range-exception-arguments __tmp12599))))))) (define range-exception-procedure - (lambda (_exn9552_) + (lambda (_exn11534_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9552_)) - (let ((_e9555_ (let () - (declare (not safe)) - (slot-ref _exn9552_ 'exception)))) - (if (macro-range-exception? _e9555_) - (macro-range-exception-procedure _e9555_) + (class-instance? RuntimeException::t _exn11534_)) + (let ((_e11537_ + (let () + (declare (not safe)) + (slot-ref _exn11534_ 'exception)))) + (if (macro-range-exception? _e11537_) + (macro-range-exception-procedure _e11537_) (error '"not an instance" 'range-exception? - (let ((__tmp10620 + (let ((__tmp12602 (let () (declare (not safe)) - (cons _e9555_ '())))) + (cons _e11537_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp10620))))) - (if (macro-range-exception? _exn9552_) - (macro-range-exception-procedure _exn9552_) + (cons 'range-exception-procedure __tmp12602))))) + (if (macro-range-exception? _exn11534_) + (macro-range-exception-procedure _exn11534_) (error '"not an instance" 'range-exception? - (let ((__tmp10619 + (let ((__tmp12601 (let () (declare (not safe)) - (cons _exn9552_ '())))) + (cons _exn11534_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp10619))))))) + (cons 'range-exception-procedure __tmp12601))))))) (define rpc-remote-error-exception? - (lambda (_exn9548_) + (lambda (_exn11530_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9548_)) - (let ((_e9550_ (let () - (declare (not safe)) - (slot-ref _exn9548_ 'exception)))) - (macro-rpc-remote-error-exception? _e9550_)) - (macro-rpc-remote-error-exception? _exn9548_)))) + (class-instance? RuntimeException::t _exn11530_)) + (let ((_e11532_ + (let () + (declare (not safe)) + (slot-ref _exn11530_ 'exception)))) + (macro-rpc-remote-error-exception? _e11532_)) + (macro-rpc-remote-error-exception? _exn11530_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn9544_) + (lambda (_exn11526_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9544_)) - (let ((_e9546_ (let () - (declare (not safe)) - (slot-ref _exn9544_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e9546_) - (macro-rpc-remote-error-exception-arguments _e9546_) + (class-instance? RuntimeException::t _exn11526_)) + (let ((_e11528_ + (let () + (declare (not safe)) + (slot-ref _exn11526_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11528_) + (macro-rpc-remote-error-exception-arguments _e11528_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp10622 + (let ((__tmp12604 (let () (declare (not safe)) - (cons _e9546_ '())))) + (cons _e11528_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp10622))))) - (if (macro-rpc-remote-error-exception? _exn9544_) - (macro-rpc-remote-error-exception-arguments _exn9544_) + __tmp12604))))) + (if (macro-rpc-remote-error-exception? _exn11526_) + (macro-rpc-remote-error-exception-arguments _exn11526_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp10621 + (let ((__tmp12603 (let () (declare (not safe)) - (cons _exn9544_ '())))) + (cons _exn11526_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp10621))))))) + __tmp12603))))))) (define rpc-remote-error-exception-message - (lambda (_exn9540_) + (lambda (_exn11522_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9540_)) - (let ((_e9542_ (let () - (declare (not safe)) - (slot-ref _exn9540_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e9542_) - (macro-rpc-remote-error-exception-message _e9542_) + (class-instance? RuntimeException::t _exn11522_)) + (let ((_e11524_ + (let () + (declare (not safe)) + (slot-ref _exn11522_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11524_) + (macro-rpc-remote-error-exception-message _e11524_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp10624 + (let ((__tmp12606 (let () (declare (not safe)) - (cons _e9542_ '())))) + (cons _e11524_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp10624))))) - (if (macro-rpc-remote-error-exception? _exn9540_) - (macro-rpc-remote-error-exception-message _exn9540_) + __tmp12606))))) + (if (macro-rpc-remote-error-exception? _exn11522_) + (macro-rpc-remote-error-exception-message _exn11522_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp10623 + (let ((__tmp12605 (let () (declare (not safe)) - (cons _exn9540_ '())))) + (cons _exn11522_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp10623))))))) + __tmp12605))))))) (define rpc-remote-error-exception-procedure - (lambda (_exn9534_) + (lambda (_exn11516_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9534_)) - (let ((_e9537_ (let () - (declare (not safe)) - (slot-ref _exn9534_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e9537_) - (macro-rpc-remote-error-exception-procedure _e9537_) + (class-instance? RuntimeException::t _exn11516_)) + (let ((_e11519_ + (let () + (declare (not safe)) + (slot-ref _exn11516_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11519_) + (macro-rpc-remote-error-exception-procedure _e11519_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp10626 + (let ((__tmp12608 (let () (declare (not safe)) - (cons _e9537_ '())))) + (cons _e11519_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp10626))))) - (if (macro-rpc-remote-error-exception? _exn9534_) - (macro-rpc-remote-error-exception-procedure _exn9534_) + __tmp12608))))) + (if (macro-rpc-remote-error-exception? _exn11516_) + (macro-rpc-remote-error-exception-procedure _exn11516_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp10625 + (let ((__tmp12607 (let () (declare (not safe)) - (cons _exn9534_ '())))) + (cons _exn11516_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp10625))))))) + __tmp12607))))))) (define scheduler-exception? - (lambda (_exn9530_) + (lambda (_exn11512_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9530_)) - (let ((_e9532_ (let () - (declare (not safe)) - (slot-ref _exn9530_ 'exception)))) - (macro-scheduler-exception? _e9532_)) - (macro-scheduler-exception? _exn9530_)))) + (class-instance? RuntimeException::t _exn11512_)) + (let ((_e11514_ + (let () + (declare (not safe)) + (slot-ref _exn11512_ 'exception)))) + (macro-scheduler-exception? _e11514_)) + (macro-scheduler-exception? _exn11512_)))) (define scheduler-exception-reason - (lambda (_exn9524_) + (lambda (_exn11506_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9524_)) - (let ((_e9527_ (let () - (declare (not safe)) - (slot-ref _exn9524_ 'exception)))) - (if (macro-scheduler-exception? _e9527_) - (macro-scheduler-exception-reason _e9527_) + (class-instance? RuntimeException::t _exn11506_)) + (let ((_e11509_ + (let () + (declare (not safe)) + (slot-ref _exn11506_ 'exception)))) + (if (macro-scheduler-exception? _e11509_) + (macro-scheduler-exception-reason _e11509_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp10628 + (let ((__tmp12610 (let () (declare (not safe)) - (cons _e9527_ '())))) + (cons _e11509_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp10628))))) - (if (macro-scheduler-exception? _exn9524_) - (macro-scheduler-exception-reason _exn9524_) + (cons 'scheduler-exception-reason __tmp12610))))) + (if (macro-scheduler-exception? _exn11506_) + (macro-scheduler-exception-reason _exn11506_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp10627 + (let ((__tmp12609 (let () (declare (not safe)) - (cons _exn9524_ '())))) + (cons _exn11506_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp10627))))))) + (cons 'scheduler-exception-reason __tmp12609))))))) (define sfun-conversion-exception? - (lambda (_exn9520_) + (lambda (_exn11502_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9520_)) - (let ((_e9522_ (let () - (declare (not safe)) - (slot-ref _exn9520_ 'exception)))) - (macro-sfun-conversion-exception? _e9522_)) - (macro-sfun-conversion-exception? _exn9520_)))) + (class-instance? RuntimeException::t _exn11502_)) + (let ((_e11504_ + (let () + (declare (not safe)) + (slot-ref _exn11502_ 'exception)))) + (macro-sfun-conversion-exception? _e11504_)) + (macro-sfun-conversion-exception? _exn11502_)))) (define sfun-conversion-exception-arguments - (lambda (_exn9516_) + (lambda (_exn11498_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9516_)) - (let ((_e9518_ (let () - (declare (not safe)) - (slot-ref _exn9516_ 'exception)))) - (if (macro-sfun-conversion-exception? _e9518_) - (macro-sfun-conversion-exception-arguments _e9518_) + (class-instance? RuntimeException::t _exn11498_)) + (let ((_e11500_ + (let () + (declare (not safe)) + (slot-ref _exn11498_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11500_) + (macro-sfun-conversion-exception-arguments _e11500_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp10630 + (let ((__tmp12612 (let () (declare (not safe)) - (cons _e9518_ '())))) + (cons _e11500_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp10630))))) - (if (macro-sfun-conversion-exception? _exn9516_) - (macro-sfun-conversion-exception-arguments _exn9516_) + __tmp12612))))) + (if (macro-sfun-conversion-exception? _exn11498_) + (macro-sfun-conversion-exception-arguments _exn11498_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp10629 + (let ((__tmp12611 (let () (declare (not safe)) - (cons _exn9516_ '())))) + (cons _exn11498_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp10629))))))) + __tmp12611))))))) (define sfun-conversion-exception-code - (lambda (_exn9512_) + (lambda (_exn11494_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9512_)) - (let ((_e9514_ (let () - (declare (not safe)) - (slot-ref _exn9512_ 'exception)))) - (if (macro-sfun-conversion-exception? _e9514_) - (macro-sfun-conversion-exception-code _e9514_) + (class-instance? RuntimeException::t _exn11494_)) + (let ((_e11496_ + (let () + (declare (not safe)) + (slot-ref _exn11494_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11496_) + (macro-sfun-conversion-exception-code _e11496_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp10632 + (let ((__tmp12614 (let () (declare (not safe)) - (cons _e9514_ '())))) + (cons _e11496_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp10632))))) - (if (macro-sfun-conversion-exception? _exn9512_) - (macro-sfun-conversion-exception-code _exn9512_) + __tmp12614))))) + (if (macro-sfun-conversion-exception? _exn11494_) + (macro-sfun-conversion-exception-code _exn11494_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp10631 + (let ((__tmp12613 (let () (declare (not safe)) - (cons _exn9512_ '())))) + (cons _exn11494_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp10631))))))) + __tmp12613))))))) (define sfun-conversion-exception-message - (lambda (_exn9508_) + (lambda (_exn11490_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9508_)) - (let ((_e9510_ (let () - (declare (not safe)) - (slot-ref _exn9508_ 'exception)))) - (if (macro-sfun-conversion-exception? _e9510_) - (macro-sfun-conversion-exception-message _e9510_) + (class-instance? RuntimeException::t _exn11490_)) + (let ((_e11492_ + (let () + (declare (not safe)) + (slot-ref _exn11490_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11492_) + (macro-sfun-conversion-exception-message _e11492_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp10634 + (let ((__tmp12616 (let () (declare (not safe)) - (cons _e9510_ '())))) + (cons _e11492_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp10634))))) - (if (macro-sfun-conversion-exception? _exn9508_) - (macro-sfun-conversion-exception-message _exn9508_) + __tmp12616))))) + (if (macro-sfun-conversion-exception? _exn11490_) + (macro-sfun-conversion-exception-message _exn11490_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp10633 + (let ((__tmp12615 (let () (declare (not safe)) - (cons _exn9508_ '())))) + (cons _exn11490_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp10633))))))) + __tmp12615))))))) (define sfun-conversion-exception-procedure - (lambda (_exn9502_) + (lambda (_exn11484_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9502_)) - (let ((_e9505_ (let () - (declare (not safe)) - (slot-ref _exn9502_ 'exception)))) - (if (macro-sfun-conversion-exception? _e9505_) - (macro-sfun-conversion-exception-procedure _e9505_) + (class-instance? RuntimeException::t _exn11484_)) + (let ((_e11487_ + (let () + (declare (not safe)) + (slot-ref _exn11484_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11487_) + (macro-sfun-conversion-exception-procedure _e11487_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp10636 + (let ((__tmp12618 (let () (declare (not safe)) - (cons _e9505_ '())))) + (cons _e11487_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp10636))))) - (if (macro-sfun-conversion-exception? _exn9502_) - (macro-sfun-conversion-exception-procedure _exn9502_) + __tmp12618))))) + (if (macro-sfun-conversion-exception? _exn11484_) + (macro-sfun-conversion-exception-procedure _exn11484_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp10635 + (let ((__tmp12617 (let () (declare (not safe)) - (cons _exn9502_ '())))) + (cons _exn11484_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp10635))))))) + __tmp12617))))))) (define stack-overflow-exception? - (lambda (_exn9496_) + (lambda (_exn11478_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9496_)) - (let ((_e9499_ (let () - (declare (not safe)) - (slot-ref _exn9496_ 'exception)))) - (macro-stack-overflow-exception? _e9499_)) - (macro-stack-overflow-exception? _exn9496_)))) + (class-instance? RuntimeException::t _exn11478_)) + (let ((_e11481_ + (let () + (declare (not safe)) + (slot-ref _exn11478_ 'exception)))) + (macro-stack-overflow-exception? _e11481_)) + (macro-stack-overflow-exception? _exn11478_)))) (define started-thread-exception? - (lambda (_exn9492_) + (lambda (_exn11474_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9492_)) - (let ((_e9494_ (let () - (declare (not safe)) - (slot-ref _exn9492_ 'exception)))) - (macro-started-thread-exception? _e9494_)) - (macro-started-thread-exception? _exn9492_)))) + (class-instance? RuntimeException::t _exn11474_)) + (let ((_e11476_ + (let () + (declare (not safe)) + (slot-ref _exn11474_ 'exception)))) + (macro-started-thread-exception? _e11476_)) + (macro-started-thread-exception? _exn11474_)))) (define started-thread-exception-arguments - (lambda (_exn9488_) + (lambda (_exn11470_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9488_)) - (let ((_e9490_ (let () - (declare (not safe)) - (slot-ref _exn9488_ 'exception)))) - (if (macro-started-thread-exception? _e9490_) - (macro-started-thread-exception-arguments _e9490_) + (class-instance? RuntimeException::t _exn11470_)) + (let ((_e11472_ + (let () + (declare (not safe)) + (slot-ref _exn11470_ 'exception)))) + (if (macro-started-thread-exception? _e11472_) + (macro-started-thread-exception-arguments _e11472_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp10638 + (let ((__tmp12620 (let () (declare (not safe)) - (cons _e9490_ '())))) + (cons _e11472_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp10638))))) - (if (macro-started-thread-exception? _exn9488_) - (macro-started-thread-exception-arguments _exn9488_) + __tmp12620))))) + (if (macro-started-thread-exception? _exn11470_) + (macro-started-thread-exception-arguments _exn11470_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp10637 + (let ((__tmp12619 (let () (declare (not safe)) - (cons _exn9488_ '())))) + (cons _exn11470_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp10637))))))) + __tmp12619))))))) (define started-thread-exception-procedure - (lambda (_exn9482_) + (lambda (_exn11464_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9482_)) - (let ((_e9485_ (let () - (declare (not safe)) - (slot-ref _exn9482_ 'exception)))) - (if (macro-started-thread-exception? _e9485_) - (macro-started-thread-exception-procedure _e9485_) + (class-instance? RuntimeException::t _exn11464_)) + (let ((_e11467_ + (let () + (declare (not safe)) + (slot-ref _exn11464_ 'exception)))) + (if (macro-started-thread-exception? _e11467_) + (macro-started-thread-exception-procedure _e11467_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp10640 + (let ((__tmp12622 (let () (declare (not safe)) - (cons _e9485_ '())))) + (cons _e11467_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp10640))))) - (if (macro-started-thread-exception? _exn9482_) - (macro-started-thread-exception-procedure _exn9482_) + __tmp12622))))) + (if (macro-started-thread-exception? _exn11464_) + (macro-started-thread-exception-procedure _exn11464_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp10639 + (let ((__tmp12621 (let () (declare (not safe)) - (cons _exn9482_ '())))) + (cons _exn11464_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp10639))))))) + __tmp12621))))))) (define terminated-thread-exception? - (lambda (_exn9478_) + (lambda (_exn11460_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9478_)) - (let ((_e9480_ (let () - (declare (not safe)) - (slot-ref _exn9478_ 'exception)))) - (macro-terminated-thread-exception? _e9480_)) - (macro-terminated-thread-exception? _exn9478_)))) + (class-instance? RuntimeException::t _exn11460_)) + (let ((_e11462_ + (let () + (declare (not safe)) + (slot-ref _exn11460_ 'exception)))) + (macro-terminated-thread-exception? _e11462_)) + (macro-terminated-thread-exception? _exn11460_)))) (define terminated-thread-exception-arguments - (lambda (_exn9474_) + (lambda (_exn11456_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9474_)) - (let ((_e9476_ (let () - (declare (not safe)) - (slot-ref _exn9474_ 'exception)))) - (if (macro-terminated-thread-exception? _e9476_) - (macro-terminated-thread-exception-arguments _e9476_) + (class-instance? RuntimeException::t _exn11456_)) + (let ((_e11458_ + (let () + (declare (not safe)) + (slot-ref _exn11456_ 'exception)))) + (if (macro-terminated-thread-exception? _e11458_) + (macro-terminated-thread-exception-arguments _e11458_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp10642 + (let ((__tmp12624 (let () (declare (not safe)) - (cons _e9476_ '())))) + (cons _e11458_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp10642))))) - (if (macro-terminated-thread-exception? _exn9474_) - (macro-terminated-thread-exception-arguments _exn9474_) + __tmp12624))))) + (if (macro-terminated-thread-exception? _exn11456_) + (macro-terminated-thread-exception-arguments _exn11456_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp10641 + (let ((__tmp12623 (let () (declare (not safe)) - (cons _exn9474_ '())))) + (cons _exn11456_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp10641))))))) + __tmp12623))))))) (define terminated-thread-exception-procedure - (lambda (_exn9468_) + (lambda (_exn11450_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9468_)) - (let ((_e9471_ (let () - (declare (not safe)) - (slot-ref _exn9468_ 'exception)))) - (if (macro-terminated-thread-exception? _e9471_) - (macro-terminated-thread-exception-procedure _e9471_) + (class-instance? RuntimeException::t _exn11450_)) + (let ((_e11453_ + (let () + (declare (not safe)) + (slot-ref _exn11450_ 'exception)))) + (if (macro-terminated-thread-exception? _e11453_) + (macro-terminated-thread-exception-procedure _e11453_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp10644 + (let ((__tmp12626 (let () (declare (not safe)) - (cons _e9471_ '())))) + (cons _e11453_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp10644))))) - (if (macro-terminated-thread-exception? _exn9468_) - (macro-terminated-thread-exception-procedure _exn9468_) + __tmp12626))))) + (if (macro-terminated-thread-exception? _exn11450_) + (macro-terminated-thread-exception-procedure _exn11450_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp10643 + (let ((__tmp12625 (let () (declare (not safe)) - (cons _exn9468_ '())))) + (cons _exn11450_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp10643))))))) + __tmp12625))))))) (define type-exception? - (lambda (_exn9464_) + (lambda (_exn11446_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9464_)) - (let ((_e9466_ (let () - (declare (not safe)) - (slot-ref _exn9464_ 'exception)))) - (macro-type-exception? _e9466_)) - (macro-type-exception? _exn9464_)))) + (class-instance? RuntimeException::t _exn11446_)) + (let ((_e11448_ + (let () + (declare (not safe)) + (slot-ref _exn11446_ 'exception)))) + (macro-type-exception? _e11448_)) + (macro-type-exception? _exn11446_)))) (define type-exception-arg-id - (lambda (_exn9460_) + (lambda (_exn11442_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9460_)) - (let ((_e9462_ (let () - (declare (not safe)) - (slot-ref _exn9460_ 'exception)))) - (if (macro-type-exception? _e9462_) - (macro-type-exception-arg-id _e9462_) + (class-instance? RuntimeException::t _exn11442_)) + (let ((_e11444_ + (let () + (declare (not safe)) + (slot-ref _exn11442_ 'exception)))) + (if (macro-type-exception? _e11444_) + (macro-type-exception-arg-id _e11444_) (error '"not an instance" 'type-exception? - (let ((__tmp10646 + (let ((__tmp12628 (let () (declare (not safe)) - (cons _e9462_ '())))) + (cons _e11444_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp10646))))) - (if (macro-type-exception? _exn9460_) - (macro-type-exception-arg-id _exn9460_) + (cons 'type-exception-arg-id __tmp12628))))) + (if (macro-type-exception? _exn11442_) + (macro-type-exception-arg-id _exn11442_) (error '"not an instance" 'type-exception? - (let ((__tmp10645 + (let ((__tmp12627 (let () (declare (not safe)) - (cons _exn9460_ '())))) + (cons _exn11442_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp10645))))))) + (cons 'type-exception-arg-id __tmp12627))))))) (define type-exception-arguments - (lambda (_exn9456_) + (lambda (_exn11438_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9456_)) - (let ((_e9458_ (let () - (declare (not safe)) - (slot-ref _exn9456_ 'exception)))) - (if (macro-type-exception? _e9458_) - (macro-type-exception-arguments _e9458_) + (class-instance? RuntimeException::t _exn11438_)) + (let ((_e11440_ + (let () + (declare (not safe)) + (slot-ref _exn11438_ 'exception)))) + (if (macro-type-exception? _e11440_) + (macro-type-exception-arguments _e11440_) (error '"not an instance" 'type-exception? - (let ((__tmp10648 + (let ((__tmp12630 (let () (declare (not safe)) - (cons _e9458_ '())))) + (cons _e11440_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp10648))))) - (if (macro-type-exception? _exn9456_) - (macro-type-exception-arguments _exn9456_) + (cons 'type-exception-arguments __tmp12630))))) + (if (macro-type-exception? _exn11438_) + (macro-type-exception-arguments _exn11438_) (error '"not an instance" 'type-exception? - (let ((__tmp10647 + (let ((__tmp12629 (let () (declare (not safe)) - (cons _exn9456_ '())))) + (cons _exn11438_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp10647))))))) + (cons 'type-exception-arguments __tmp12629))))))) (define type-exception-procedure - (lambda (_exn9452_) + (lambda (_exn11434_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9452_)) - (let ((_e9454_ (let () - (declare (not safe)) - (slot-ref _exn9452_ 'exception)))) - (if (macro-type-exception? _e9454_) - (macro-type-exception-procedure _e9454_) + (class-instance? RuntimeException::t _exn11434_)) + (let ((_e11436_ + (let () + (declare (not safe)) + (slot-ref _exn11434_ 'exception)))) + (if (macro-type-exception? _e11436_) + (macro-type-exception-procedure _e11436_) (error '"not an instance" 'type-exception? - (let ((__tmp10650 + (let ((__tmp12632 (let () (declare (not safe)) - (cons _e9454_ '())))) + (cons _e11436_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp10650))))) - (if (macro-type-exception? _exn9452_) - (macro-type-exception-procedure _exn9452_) + (cons 'type-exception-procedure __tmp12632))))) + (if (macro-type-exception? _exn11434_) + (macro-type-exception-procedure _exn11434_) (error '"not an instance" 'type-exception? - (let ((__tmp10649 + (let ((__tmp12631 (let () (declare (not safe)) - (cons _exn9452_ '())))) + (cons _exn11434_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp10649))))))) + (cons 'type-exception-procedure __tmp12631))))))) (define type-exception-type-id - (lambda (_exn9446_) + (lambda (_exn11428_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9446_)) - (let ((_e9449_ (let () - (declare (not safe)) - (slot-ref _exn9446_ 'exception)))) - (if (macro-type-exception? _e9449_) - (macro-type-exception-type-id _e9449_) + (class-instance? RuntimeException::t _exn11428_)) + (let ((_e11431_ + (let () + (declare (not safe)) + (slot-ref _exn11428_ 'exception)))) + (if (macro-type-exception? _e11431_) + (macro-type-exception-type-id _e11431_) (error '"not an instance" 'type-exception? - (let ((__tmp10652 + (let ((__tmp12634 (let () (declare (not safe)) - (cons _e9449_ '())))) + (cons _e11431_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp10652))))) - (if (macro-type-exception? _exn9446_) - (macro-type-exception-type-id _exn9446_) + (cons 'type-exception-type-id __tmp12634))))) + (if (macro-type-exception? _exn11428_) + (macro-type-exception-type-id _exn11428_) (error '"not an instance" 'type-exception? - (let ((__tmp10651 + (let ((__tmp12633 (let () (declare (not safe)) - (cons _exn9446_ '())))) + (cons _exn11428_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp10651))))))) + (cons 'type-exception-type-id __tmp12633))))))) (define unbound-global-exception? - (lambda (_exn9442_) + (lambda (_exn11424_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9442_)) - (let ((_e9444_ (let () - (declare (not safe)) - (slot-ref _exn9442_ 'exception)))) - (macro-unbound-global-exception? _e9444_)) - (macro-unbound-global-exception? _exn9442_)))) + (class-instance? RuntimeException::t _exn11424_)) + (let ((_e11426_ + (let () + (declare (not safe)) + (slot-ref _exn11424_ 'exception)))) + (macro-unbound-global-exception? _e11426_)) + (macro-unbound-global-exception? _exn11424_)))) (define unbound-global-exception-code - (lambda (_exn9438_) + (lambda (_exn11420_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9438_)) - (let ((_e9440_ (let () - (declare (not safe)) - (slot-ref _exn9438_ 'exception)))) - (if (macro-unbound-global-exception? _e9440_) - (macro-unbound-global-exception-code _e9440_) + (class-instance? RuntimeException::t _exn11420_)) + (let ((_e11422_ + (let () + (declare (not safe)) + (slot-ref _exn11420_ 'exception)))) + (if (macro-unbound-global-exception? _e11422_) + (macro-unbound-global-exception-code _e11422_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp10654 + (let ((__tmp12636 (let () (declare (not safe)) - (cons _e9440_ '())))) + (cons _e11422_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp10654))))) - (if (macro-unbound-global-exception? _exn9438_) - (macro-unbound-global-exception-code _exn9438_) + (cons 'unbound-global-exception-code __tmp12636))))) + (if (macro-unbound-global-exception? _exn11420_) + (macro-unbound-global-exception-code _exn11420_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp10653 + (let ((__tmp12635 (let () (declare (not safe)) - (cons _exn9438_ '())))) + (cons _exn11420_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp10653))))))) + (cons 'unbound-global-exception-code __tmp12635))))))) (define unbound-global-exception-rte - (lambda (_exn9434_) + (lambda (_exn11416_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9434_)) - (let ((_e9436_ (let () - (declare (not safe)) - (slot-ref _exn9434_ 'exception)))) - (if (macro-unbound-global-exception? _e9436_) - (macro-unbound-global-exception-rte _e9436_) + (class-instance? RuntimeException::t _exn11416_)) + (let ((_e11418_ + (let () + (declare (not safe)) + (slot-ref _exn11416_ 'exception)))) + (if (macro-unbound-global-exception? _e11418_) + (macro-unbound-global-exception-rte _e11418_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp10656 + (let ((__tmp12638 (let () (declare (not safe)) - (cons _e9436_ '())))) + (cons _e11418_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp10656))))) - (if (macro-unbound-global-exception? _exn9434_) - (macro-unbound-global-exception-rte _exn9434_) + (cons 'unbound-global-exception-rte __tmp12638))))) + (if (macro-unbound-global-exception? _exn11416_) + (macro-unbound-global-exception-rte _exn11416_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp10655 + (let ((__tmp12637 (let () (declare (not safe)) - (cons _exn9434_ '())))) + (cons _exn11416_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp10655))))))) + (cons 'unbound-global-exception-rte __tmp12637))))))) (define unbound-global-exception-variable - (lambda (_exn9428_) + (lambda (_exn11410_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9428_)) - (let ((_e9431_ (let () - (declare (not safe)) - (slot-ref _exn9428_ 'exception)))) - (if (macro-unbound-global-exception? _e9431_) - (macro-unbound-global-exception-variable _e9431_) + (class-instance? RuntimeException::t _exn11410_)) + (let ((_e11413_ + (let () + (declare (not safe)) + (slot-ref _exn11410_ 'exception)))) + (if (macro-unbound-global-exception? _e11413_) + (macro-unbound-global-exception-variable _e11413_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp10658 + (let ((__tmp12640 (let () (declare (not safe)) - (cons _e9431_ '())))) + (cons _e11413_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp10658))))) - (if (macro-unbound-global-exception? _exn9428_) - (macro-unbound-global-exception-variable _exn9428_) + __tmp12640))))) + (if (macro-unbound-global-exception? _exn11410_) + (macro-unbound-global-exception-variable _exn11410_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp10657 + (let ((__tmp12639 (let () (declare (not safe)) - (cons _exn9428_ '())))) + (cons _exn11410_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp10657))))))) + __tmp12639))))))) (define unbound-key-exception? - (lambda (_exn9424_) + (lambda (_exn11406_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9424_)) - (let ((_e9426_ (let () - (declare (not safe)) - (slot-ref _exn9424_ 'exception)))) - (macro-unbound-key-exception? _e9426_)) - (macro-unbound-key-exception? _exn9424_)))) + (class-instance? RuntimeException::t _exn11406_)) + (let ((_e11408_ + (let () + (declare (not safe)) + (slot-ref _exn11406_ 'exception)))) + (macro-unbound-key-exception? _e11408_)) + (macro-unbound-key-exception? _exn11406_)))) (define unbound-key-exception-arguments - (lambda (_exn9420_) + (lambda (_exn11402_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9420_)) - (let ((_e9422_ (let () - (declare (not safe)) - (slot-ref _exn9420_ 'exception)))) - (if (macro-unbound-key-exception? _e9422_) - (macro-unbound-key-exception-arguments _e9422_) + (class-instance? RuntimeException::t _exn11402_)) + (let ((_e11404_ + (let () + (declare (not safe)) + (slot-ref _exn11402_ 'exception)))) + (if (macro-unbound-key-exception? _e11404_) + (macro-unbound-key-exception-arguments _e11404_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp10660 + (let ((__tmp12642 (let () (declare (not safe)) - (cons _e9422_ '())))) + (cons _e11404_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp10660))))) - (if (macro-unbound-key-exception? _exn9420_) - (macro-unbound-key-exception-arguments _exn9420_) + __tmp12642))))) + (if (macro-unbound-key-exception? _exn11402_) + (macro-unbound-key-exception-arguments _exn11402_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp10659 + (let ((__tmp12641 (let () (declare (not safe)) - (cons _exn9420_ '())))) + (cons _exn11402_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp10659))))))) + __tmp12641))))))) (define unbound-key-exception-procedure - (lambda (_exn9414_) + (lambda (_exn11396_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9414_)) - (let ((_e9417_ (let () - (declare (not safe)) - (slot-ref _exn9414_ 'exception)))) - (if (macro-unbound-key-exception? _e9417_) - (macro-unbound-key-exception-procedure _e9417_) + (class-instance? RuntimeException::t _exn11396_)) + (let ((_e11399_ + (let () + (declare (not safe)) + (slot-ref _exn11396_ 'exception)))) + (if (macro-unbound-key-exception? _e11399_) + (macro-unbound-key-exception-procedure _e11399_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp10662 + (let ((__tmp12644 (let () (declare (not safe)) - (cons _e9417_ '())))) + (cons _e11399_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp10662))))) - (if (macro-unbound-key-exception? _exn9414_) - (macro-unbound-key-exception-procedure _exn9414_) + __tmp12644))))) + (if (macro-unbound-key-exception? _exn11396_) + (macro-unbound-key-exception-procedure _exn11396_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp10661 + (let ((__tmp12643 (let () (declare (not safe)) - (cons _exn9414_ '())))) + (cons _exn11396_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp10661))))))) + __tmp12643))))))) (define unbound-os-environment-variable-exception? - (lambda (_exn9410_) + (lambda (_exn11392_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9410_)) - (let ((_e9412_ (let () - (declare (not safe)) - (slot-ref _exn9410_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _e9412_)) - (macro-unbound-os-environment-variable-exception? _exn9410_)))) + (class-instance? RuntimeException::t _exn11392_)) + (let ((_e11394_ + (let () + (declare (not safe)) + (slot-ref _exn11392_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e11394_)) + (macro-unbound-os-environment-variable-exception? _exn11392_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn9406_) + (lambda (_exn11388_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9406_)) - (let ((_e9408_ (let () - (declare (not safe)) - (slot-ref _exn9406_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e9408_) + (class-instance? RuntimeException::t _exn11388_)) + (let ((_e11390_ + (let () + (declare (not safe)) + (slot-ref _exn11388_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e11390_) (macro-unbound-os-environment-variable-exception-arguments - _e9408_) + _e11390_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp10664 + (let ((__tmp12646 (let () (declare (not safe)) - (cons _e9408_ '())))) + (cons _e11390_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp10664))))) - (if (macro-unbound-os-environment-variable-exception? _exn9406_) + __tmp12646))))) + (if (macro-unbound-os-environment-variable-exception? _exn11388_) (macro-unbound-os-environment-variable-exception-arguments - _exn9406_) + _exn11388_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp10663 + (let ((__tmp12645 (let () (declare (not safe)) - (cons _exn9406_ '())))) + (cons _exn11388_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp10663))))))) + __tmp12645))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn9400_) + (lambda (_exn11382_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9400_)) - (let ((_e9403_ (let () - (declare (not safe)) - (slot-ref _exn9400_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e9403_) + (class-instance? RuntimeException::t _exn11382_)) + (let ((_e11385_ + (let () + (declare (not safe)) + (slot-ref _exn11382_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e11385_) (macro-unbound-os-environment-variable-exception-procedure - _e9403_) + _e11385_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp10666 + (let ((__tmp12648 (let () (declare (not safe)) - (cons _e9403_ '())))) + (cons _e11385_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp10666))))) - (if (macro-unbound-os-environment-variable-exception? _exn9400_) + __tmp12648))))) + (if (macro-unbound-os-environment-variable-exception? _exn11382_) (macro-unbound-os-environment-variable-exception-procedure - _exn9400_) + _exn11382_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp10665 + (let ((__tmp12647 (let () (declare (not safe)) - (cons _exn9400_ '())))) + (cons _exn11382_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp10665))))))) + __tmp12647))))))) (define unbound-serial-number-exception? - (lambda (_exn9396_) + (lambda (_exn11378_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9396_)) - (let ((_e9398_ (let () - (declare (not safe)) - (slot-ref _exn9396_ 'exception)))) - (macro-unbound-serial-number-exception? _e9398_)) - (macro-unbound-serial-number-exception? _exn9396_)))) + (class-instance? RuntimeException::t _exn11378_)) + (let ((_e11380_ + (let () + (declare (not safe)) + (slot-ref _exn11378_ 'exception)))) + (macro-unbound-serial-number-exception? _e11380_)) + (macro-unbound-serial-number-exception? _exn11378_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn9392_) + (lambda (_exn11374_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9392_)) - (let ((_e9394_ (let () - (declare (not safe)) - (slot-ref _exn9392_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e9394_) - (macro-unbound-serial-number-exception-arguments _e9394_) + (class-instance? RuntimeException::t _exn11374_)) + (let ((_e11376_ + (let () + (declare (not safe)) + (slot-ref _exn11374_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e11376_) + (macro-unbound-serial-number-exception-arguments _e11376_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp10668 + (let ((__tmp12650 (let () (declare (not safe)) - (cons _e9394_ '())))) + (cons _e11376_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp10668))))) - (if (macro-unbound-serial-number-exception? _exn9392_) - (macro-unbound-serial-number-exception-arguments _exn9392_) + __tmp12650))))) + (if (macro-unbound-serial-number-exception? _exn11374_) + (macro-unbound-serial-number-exception-arguments _exn11374_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp10667 + (let ((__tmp12649 (let () (declare (not safe)) - (cons _exn9392_ '())))) + (cons _exn11374_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp10667))))))) + __tmp12649))))))) (define unbound-serial-number-exception-procedure - (lambda (_exn9386_) + (lambda (_exn11368_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9386_)) - (let ((_e9389_ (let () - (declare (not safe)) - (slot-ref _exn9386_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e9389_) - (macro-unbound-serial-number-exception-procedure _e9389_) + (class-instance? RuntimeException::t _exn11368_)) + (let ((_e11371_ + (let () + (declare (not safe)) + (slot-ref _exn11368_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e11371_) + (macro-unbound-serial-number-exception-procedure _e11371_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp10670 + (let ((__tmp12652 (let () (declare (not safe)) - (cons _e9389_ '())))) + (cons _e11371_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp10670))))) - (if (macro-unbound-serial-number-exception? _exn9386_) - (macro-unbound-serial-number-exception-procedure _exn9386_) + __tmp12652))))) + (if (macro-unbound-serial-number-exception? _exn11368_) + (macro-unbound-serial-number-exception-procedure _exn11368_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp10669 + (let ((__tmp12651 (let () (declare (not safe)) - (cons _exn9386_ '())))) + (cons _exn11368_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp10669))))))) + __tmp12651))))))) (define uncaught-exception? - (lambda (_exn9382_) + (lambda (_exn11364_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9382_)) - (let ((_e9384_ (let () - (declare (not safe)) - (slot-ref _exn9382_ 'exception)))) - (macro-uncaught-exception? _e9384_)) - (macro-uncaught-exception? _exn9382_)))) + (class-instance? RuntimeException::t _exn11364_)) + (let ((_e11366_ + (let () + (declare (not safe)) + (slot-ref _exn11364_ 'exception)))) + (macro-uncaught-exception? _e11366_)) + (macro-uncaught-exception? _exn11364_)))) (define uncaught-exception-arguments - (lambda (_exn9378_) + (lambda (_exn11360_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9378_)) - (let ((_e9380_ (let () - (declare (not safe)) - (slot-ref _exn9378_ 'exception)))) - (if (macro-uncaught-exception? _e9380_) - (macro-uncaught-exception-arguments _e9380_) + (class-instance? RuntimeException::t _exn11360_)) + (let ((_e11362_ + (let () + (declare (not safe)) + (slot-ref _exn11360_ 'exception)))) + (if (macro-uncaught-exception? _e11362_) + (macro-uncaught-exception-arguments _e11362_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp10672 + (let ((__tmp12654 (let () (declare (not safe)) - (cons _e9380_ '())))) + (cons _e11362_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp10672))))) - (if (macro-uncaught-exception? _exn9378_) - (macro-uncaught-exception-arguments _exn9378_) + (cons 'uncaught-exception-arguments __tmp12654))))) + (if (macro-uncaught-exception? _exn11360_) + (macro-uncaught-exception-arguments _exn11360_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp10671 + (let ((__tmp12653 (let () (declare (not safe)) - (cons _exn9378_ '())))) + (cons _exn11360_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp10671))))))) + (cons 'uncaught-exception-arguments __tmp12653))))))) (define uncaught-exception-procedure - (lambda (_exn9374_) + (lambda (_exn11356_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9374_)) - (let ((_e9376_ (let () - (declare (not safe)) - (slot-ref _exn9374_ 'exception)))) - (if (macro-uncaught-exception? _e9376_) - (macro-uncaught-exception-procedure _e9376_) + (class-instance? RuntimeException::t _exn11356_)) + (let ((_e11358_ + (let () + (declare (not safe)) + (slot-ref _exn11356_ 'exception)))) + (if (macro-uncaught-exception? _e11358_) + (macro-uncaught-exception-procedure _e11358_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp10674 + (let ((__tmp12656 (let () (declare (not safe)) - (cons _e9376_ '())))) + (cons _e11358_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp10674))))) - (if (macro-uncaught-exception? _exn9374_) - (macro-uncaught-exception-procedure _exn9374_) + (cons 'uncaught-exception-procedure __tmp12656))))) + (if (macro-uncaught-exception? _exn11356_) + (macro-uncaught-exception-procedure _exn11356_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp10673 + (let ((__tmp12655 (let () (declare (not safe)) - (cons _exn9374_ '())))) + (cons _exn11356_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp10673))))))) + (cons 'uncaught-exception-procedure __tmp12655))))))) (define uncaught-exception-reason - (lambda (_exn9368_) + (lambda (_exn11350_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9368_)) - (let ((_e9371_ (let () - (declare (not safe)) - (slot-ref _exn9368_ 'exception)))) - (if (macro-uncaught-exception? _e9371_) - (macro-uncaught-exception-reason _e9371_) + (class-instance? RuntimeException::t _exn11350_)) + (let ((_e11353_ + (let () + (declare (not safe)) + (slot-ref _exn11350_ 'exception)))) + (if (macro-uncaught-exception? _e11353_) + (macro-uncaught-exception-reason _e11353_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp10676 + (let ((__tmp12658 (let () (declare (not safe)) - (cons _e9371_ '())))) + (cons _e11353_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp10676))))) - (if (macro-uncaught-exception? _exn9368_) - (macro-uncaught-exception-reason _exn9368_) + (cons 'uncaught-exception-reason __tmp12658))))) + (if (macro-uncaught-exception? _exn11350_) + (macro-uncaught-exception-reason _exn11350_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp10675 + (let ((__tmp12657 (let () (declare (not safe)) - (cons _exn9368_ '())))) + (cons _exn11350_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp10675))))))) + (cons 'uncaught-exception-reason __tmp12657))))))) (define uninitialized-thread-exception? - (lambda (_exn9364_) + (lambda (_exn11346_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9364_)) - (let ((_e9366_ (let () - (declare (not safe)) - (slot-ref _exn9364_ 'exception)))) - (macro-uninitialized-thread-exception? _e9366_)) - (macro-uninitialized-thread-exception? _exn9364_)))) + (class-instance? RuntimeException::t _exn11346_)) + (let ((_e11348_ + (let () + (declare (not safe)) + (slot-ref _exn11346_ 'exception)))) + (macro-uninitialized-thread-exception? _e11348_)) + (macro-uninitialized-thread-exception? _exn11346_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn9360_) + (lambda (_exn11342_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9360_)) - (let ((_e9362_ (let () - (declare (not safe)) - (slot-ref _exn9360_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e9362_) - (macro-uninitialized-thread-exception-arguments _e9362_) + (class-instance? RuntimeException::t _exn11342_)) + (let ((_e11344_ + (let () + (declare (not safe)) + (slot-ref _exn11342_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e11344_) + (macro-uninitialized-thread-exception-arguments _e11344_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp10678 + (let ((__tmp12660 (let () (declare (not safe)) - (cons _e9362_ '())))) + (cons _e11344_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp10678))))) - (if (macro-uninitialized-thread-exception? _exn9360_) - (macro-uninitialized-thread-exception-arguments _exn9360_) + __tmp12660))))) + (if (macro-uninitialized-thread-exception? _exn11342_) + (macro-uninitialized-thread-exception-arguments _exn11342_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp10677 + (let ((__tmp12659 (let () (declare (not safe)) - (cons _exn9360_ '())))) + (cons _exn11342_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp10677))))))) + __tmp12659))))))) (define uninitialized-thread-exception-procedure - (lambda (_exn9354_) + (lambda (_exn11336_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9354_)) - (let ((_e9357_ (let () - (declare (not safe)) - (slot-ref _exn9354_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e9357_) - (macro-uninitialized-thread-exception-procedure _e9357_) + (class-instance? RuntimeException::t _exn11336_)) + (let ((_e11339_ + (let () + (declare (not safe)) + (slot-ref _exn11336_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e11339_) + (macro-uninitialized-thread-exception-procedure _e11339_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp10680 + (let ((__tmp12662 (let () (declare (not safe)) - (cons _e9357_ '())))) + (cons _e11339_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp10680))))) - (if (macro-uninitialized-thread-exception? _exn9354_) - (macro-uninitialized-thread-exception-procedure _exn9354_) + __tmp12662))))) + (if (macro-uninitialized-thread-exception? _exn11336_) + (macro-uninitialized-thread-exception-procedure _exn11336_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp10679 + (let ((__tmp12661 (let () (declare (not safe)) - (cons _exn9354_ '())))) + (cons _exn11336_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp10679))))))) + __tmp12661))))))) (define unknown-keyword-argument-exception? - (lambda (_exn9350_) + (lambda (_exn11332_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9350_)) - (let ((_e9352_ (let () - (declare (not safe)) - (slot-ref _exn9350_ 'exception)))) - (macro-unknown-keyword-argument-exception? _e9352_)) - (macro-unknown-keyword-argument-exception? _exn9350_)))) + (class-instance? RuntimeException::t _exn11332_)) + (let ((_e11334_ + (let () + (declare (not safe)) + (slot-ref _exn11332_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e11334_)) + (macro-unknown-keyword-argument-exception? _exn11332_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn9346_) + (lambda (_exn11328_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9346_)) - (let ((_e9348_ (let () - (declare (not safe)) - (slot-ref _exn9346_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e9348_) - (macro-unknown-keyword-argument-exception-arguments _e9348_) + (class-instance? RuntimeException::t _exn11328_)) + (let ((_e11330_ + (let () + (declare (not safe)) + (slot-ref _exn11328_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e11330_) + (macro-unknown-keyword-argument-exception-arguments _e11330_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp10682 + (let ((__tmp12664 (let () (declare (not safe)) - (cons _e9348_ '())))) + (cons _e11330_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp10682))))) - (if (macro-unknown-keyword-argument-exception? _exn9346_) - (macro-unknown-keyword-argument-exception-arguments _exn9346_) + __tmp12664))))) + (if (macro-unknown-keyword-argument-exception? _exn11328_) + (macro-unknown-keyword-argument-exception-arguments _exn11328_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp10681 + (let ((__tmp12663 (let () (declare (not safe)) - (cons _exn9346_ '())))) + (cons _exn11328_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp10681))))))) + __tmp12663))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn9340_) + (lambda (_exn11322_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9340_)) - (let ((_e9343_ (let () - (declare (not safe)) - (slot-ref _exn9340_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e9343_) - (macro-unknown-keyword-argument-exception-procedure _e9343_) + (class-instance? RuntimeException::t _exn11322_)) + (let ((_e11325_ + (let () + (declare (not safe)) + (slot-ref _exn11322_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e11325_) + (macro-unknown-keyword-argument-exception-procedure _e11325_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp10684 + (let ((__tmp12666 (let () (declare (not safe)) - (cons _e9343_ '())))) + (cons _e11325_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp10684))))) - (if (macro-unknown-keyword-argument-exception? _exn9340_) - (macro-unknown-keyword-argument-exception-procedure _exn9340_) + __tmp12666))))) + (if (macro-unknown-keyword-argument-exception? _exn11322_) + (macro-unknown-keyword-argument-exception-procedure _exn11322_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp10683 + (let ((__tmp12665 (let () (declare (not safe)) - (cons _exn9340_ '())))) + (cons _exn11322_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp10683))))))) + __tmp12665))))))) (define unterminated-process-exception? - (lambda (_exn9336_) + (lambda (_exn11318_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9336_)) - (let ((_e9338_ (let () - (declare (not safe)) - (slot-ref _exn9336_ 'exception)))) - (macro-unterminated-process-exception? _e9338_)) - (macro-unterminated-process-exception? _exn9336_)))) + (class-instance? RuntimeException::t _exn11318_)) + (let ((_e11320_ + (let () + (declare (not safe)) + (slot-ref _exn11318_ 'exception)))) + (macro-unterminated-process-exception? _e11320_)) + (macro-unterminated-process-exception? _exn11318_)))) (define unterminated-process-exception-arguments - (lambda (_exn9332_) + (lambda (_exn11314_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9332_)) - (let ((_e9334_ (let () - (declare (not safe)) - (slot-ref _exn9332_ 'exception)))) - (if (macro-unterminated-process-exception? _e9334_) - (macro-unterminated-process-exception-arguments _e9334_) + (class-instance? RuntimeException::t _exn11314_)) + (let ((_e11316_ + (let () + (declare (not safe)) + (slot-ref _exn11314_ 'exception)))) + (if (macro-unterminated-process-exception? _e11316_) + (macro-unterminated-process-exception-arguments _e11316_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp10686 + (let ((__tmp12668 (let () (declare (not safe)) - (cons _e9334_ '())))) + (cons _e11316_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp10686))))) - (if (macro-unterminated-process-exception? _exn9332_) - (macro-unterminated-process-exception-arguments _exn9332_) + __tmp12668))))) + (if (macro-unterminated-process-exception? _exn11314_) + (macro-unterminated-process-exception-arguments _exn11314_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp10685 + (let ((__tmp12667 (let () (declare (not safe)) - (cons _exn9332_ '())))) + (cons _exn11314_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp10685))))))) + __tmp12667))))))) (define unterminated-process-exception-procedure - (lambda (_exn9326_) + (lambda (_exn11308_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9326_)) - (let ((_e9329_ (let () - (declare (not safe)) - (slot-ref _exn9326_ 'exception)))) - (if (macro-unterminated-process-exception? _e9329_) - (macro-unterminated-process-exception-procedure _e9329_) + (class-instance? RuntimeException::t _exn11308_)) + (let ((_e11311_ + (let () + (declare (not safe)) + (slot-ref _exn11308_ 'exception)))) + (if (macro-unterminated-process-exception? _e11311_) + (macro-unterminated-process-exception-procedure _e11311_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp10688 + (let ((__tmp12670 (let () (declare (not safe)) - (cons _e9329_ '())))) + (cons _e11311_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp10688))))) - (if (macro-unterminated-process-exception? _exn9326_) - (macro-unterminated-process-exception-procedure _exn9326_) + __tmp12670))))) + (if (macro-unterminated-process-exception? _exn11308_) + (macro-unterminated-process-exception-procedure _exn11308_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp10687 + (let ((__tmp12669 (let () (declare (not safe)) - (cons _exn9326_ '())))) + (cons _exn11308_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp10687))))))) + __tmp12669))))))) (define wrong-number-of-arguments-exception? - (lambda (_exn9322_) + (lambda (_exn11304_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9322_)) - (let ((_e9324_ (let () - (declare (not safe)) - (slot-ref _exn9322_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _e9324_)) - (macro-wrong-number-of-arguments-exception? _exn9322_)))) + (class-instance? RuntimeException::t _exn11304_)) + (let ((_e11306_ + (let () + (declare (not safe)) + (slot-ref _exn11304_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e11306_)) + (macro-wrong-number-of-arguments-exception? _exn11304_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn9318_) + (lambda (_exn11300_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9318_)) - (let ((_e9320_ (let () - (declare (not safe)) - (slot-ref _exn9318_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e9320_) - (macro-wrong-number-of-arguments-exception-arguments _e9320_) + (class-instance? RuntimeException::t _exn11300_)) + (let ((_e11302_ + (let () + (declare (not safe)) + (slot-ref _exn11300_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e11302_) + (macro-wrong-number-of-arguments-exception-arguments + _e11302_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp10690 + (let ((__tmp12672 (let () (declare (not safe)) - (cons _e9320_ '())))) + (cons _e11302_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp10690))))) - (if (macro-wrong-number-of-arguments-exception? _exn9318_) - (macro-wrong-number-of-arguments-exception-arguments _exn9318_) + __tmp12672))))) + (if (macro-wrong-number-of-arguments-exception? _exn11300_) + (macro-wrong-number-of-arguments-exception-arguments + _exn11300_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp10689 + (let ((__tmp12671 (let () (declare (not safe)) - (cons _exn9318_ '())))) + (cons _exn11300_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp10689))))))) + __tmp12671))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn9312_) + (lambda (_exn11294_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9312_)) - (let ((_e9315_ (let () - (declare (not safe)) - (slot-ref _exn9312_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e9315_) - (macro-wrong-number-of-arguments-exception-procedure _e9315_) + (class-instance? RuntimeException::t _exn11294_)) + (let ((_e11297_ + (let () + (declare (not safe)) + (slot-ref _exn11294_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e11297_) + (macro-wrong-number-of-arguments-exception-procedure + _e11297_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp10692 + (let ((__tmp12674 (let () (declare (not safe)) - (cons _e9315_ '())))) + (cons _e11297_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp10692))))) - (if (macro-wrong-number-of-arguments-exception? _exn9312_) - (macro-wrong-number-of-arguments-exception-procedure _exn9312_) + __tmp12674))))) + (if (macro-wrong-number-of-arguments-exception? _exn11294_) + (macro-wrong-number-of-arguments-exception-procedure + _exn11294_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp10691 + (let ((__tmp12673 (let () (declare (not safe)) - (cons _exn9312_ '())))) + (cons _exn11294_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp10691))))))) + __tmp12673))))))) (define wrong-number-of-values-exception? - (lambda (_exn9308_) + (lambda (_exn11290_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9308_)) - (let ((_e9310_ (let () - (declare (not safe)) - (slot-ref _exn9308_ 'exception)))) - (macro-wrong-number-of-values-exception? _e9310_)) - (macro-wrong-number-of-values-exception? _exn9308_)))) + (class-instance? RuntimeException::t _exn11290_)) + (let ((_e11292_ + (let () + (declare (not safe)) + (slot-ref _exn11290_ 'exception)))) + (macro-wrong-number-of-values-exception? _e11292_)) + (macro-wrong-number-of-values-exception? _exn11290_)))) (define wrong-number-of-values-exception-code - (lambda (_exn9304_) + (lambda (_exn11286_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9304_)) - (let ((_e9306_ (let () - (declare (not safe)) - (slot-ref _exn9304_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e9306_) - (macro-wrong-number-of-values-exception-code _e9306_) + (class-instance? RuntimeException::t _exn11286_)) + (let ((_e11288_ + (let () + (declare (not safe)) + (slot-ref _exn11286_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11288_) + (macro-wrong-number-of-values-exception-code _e11288_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp10694 + (let ((__tmp12676 (let () (declare (not safe)) - (cons _e9306_ '())))) + (cons _e11288_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp10694))))) - (if (macro-wrong-number-of-values-exception? _exn9304_) - (macro-wrong-number-of-values-exception-code _exn9304_) + __tmp12676))))) + (if (macro-wrong-number-of-values-exception? _exn11286_) + (macro-wrong-number-of-values-exception-code _exn11286_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp10693 + (let ((__tmp12675 (let () (declare (not safe)) - (cons _exn9304_ '())))) + (cons _exn11286_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp10693))))))) + __tmp12675))))))) (define wrong-number-of-values-exception-rte - (lambda (_exn9300_) + (lambda (_exn11282_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9300_)) - (let ((_e9302_ (let () - (declare (not safe)) - (slot-ref _exn9300_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e9302_) - (macro-wrong-number-of-values-exception-rte _e9302_) + (class-instance? RuntimeException::t _exn11282_)) + (let ((_e11284_ + (let () + (declare (not safe)) + (slot-ref _exn11282_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11284_) + (macro-wrong-number-of-values-exception-rte _e11284_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp10696 + (let ((__tmp12678 (let () (declare (not safe)) - (cons _e9302_ '())))) + (cons _e11284_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp10696))))) - (if (macro-wrong-number-of-values-exception? _exn9300_) - (macro-wrong-number-of-values-exception-rte _exn9300_) + __tmp12678))))) + (if (macro-wrong-number-of-values-exception? _exn11282_) + (macro-wrong-number-of-values-exception-rte _exn11282_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp10695 + (let ((__tmp12677 (let () (declare (not safe)) - (cons _exn9300_ '())))) + (cons _exn11282_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp10695))))))) + __tmp12677))))))) (define wrong-number-of-values-exception-vals - (lambda (_exn9294_) + (lambda (_exn11276_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9294_)) - (let ((_e9297_ (let () - (declare (not safe)) - (slot-ref _exn9294_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e9297_) - (macro-wrong-number-of-values-exception-vals _e9297_) + (class-instance? RuntimeException::t _exn11276_)) + (let ((_e11279_ + (let () + (declare (not safe)) + (slot-ref _exn11276_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11279_) + (macro-wrong-number-of-values-exception-vals _e11279_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp10698 + (let ((__tmp12680 (let () (declare (not safe)) - (cons _e9297_ '())))) + (cons _e11279_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp10698))))) - (if (macro-wrong-number-of-values-exception? _exn9294_) - (macro-wrong-number-of-values-exception-vals _exn9294_) + __tmp12680))))) + (if (macro-wrong-number-of-values-exception? _exn11276_) + (macro-wrong-number-of-values-exception-vals _exn11276_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp10697 + (let ((__tmp12679 (let () (declare (not safe)) - (cons _exn9294_ '())))) + (cons _exn11276_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp10697))))))) + __tmp12679))))))) (define wrong-processor-c-return-exception? - (lambda (_exn9288_) + (lambda (_exn11270_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn9288_)) - (let ((_e9291_ (let () - (declare (not safe)) - (slot-ref _exn9288_ 'exception)))) - (macro-wrong-processor-c-return-exception? _e9291_)) - (macro-wrong-processor-c-return-exception? _exn9288_)))))) + (class-instance? RuntimeException::t _exn11270_)) + (let ((_e11273_ + (let () + (declare (not safe)) + (slot-ref _exn11270_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e11273_)) + (macro-wrong-processor-c-return-exception? _exn11270_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__1.scm b/src/bootstrap/gerbil/runtime/error__1.scm index d344efec1..d10b720c6 100644 --- a/src/bootstrap/gerbil/runtime/error__1.scm +++ b/src/bootstrap/gerbil/runtime/error__1.scm @@ -1,167 +1,167 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g10699_| + (define |[1]#_g12681_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g10706_| + (define |[1]#_g12688_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g10708_| + (define |[1]#_g12690_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g10710_| + (define |[1]#_g12692_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g10718_| + (define |[1]#_g12700_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g10721_| + (define |[1]#_g12703_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g10723_| + (define |[1]#_g12705_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g10725_| + (define |[1]#_g12707_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g10727_| + (define |[1]#_g12709_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g10737_| + (define |[1]#_g12719_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g10739_| + (define |[1]#_g12721_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g10741_| + (define |[1]#_g12723_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g10746_| + (define |[1]#_g12728_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g10748_| + (define |[1]#_g12730_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g10750_| + (define |[1]#_g12732_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g10752_| + (define |[1]#_g12734_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g10754_| + (define |[1]#_g12736_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g10760_| + (define |[1]#_g12742_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g10761_| + (define |[1]#_g12743_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g10762_| + (define |[1]#_g12744_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g10770_| + (define |[1]#_g12752_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g10773_| + (define |[1]#_g12755_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g10775_| + (define |[1]#_g12757_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g10777_| + (define |[1]#_g12759_| (##structure gx#syntax-quote::t 'make-RuntimeException @@ -172,29 +172,29 @@ (define |[:0:]#Exception| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g10699_| + |[1]#_g12681_| 'expander-identifiers: - (let ((__tmp10700 - (let ((__tmp10709 |[1]#_g10699_|) - (__tmp10701 - (let ((__tmp10707 |[1]#_g10708_|) - (__tmp10702 - (let ((__tmp10705 |[1]#_g10706_|) - (__tmp10703 - (let ((__tmp10704 + (let ((__tmp12682 + (let ((__tmp12691 |[1]#_g12681_|) + (__tmp12683 + (let ((__tmp12689 |[1]#_g12690_|) + (__tmp12684 + (let ((__tmp12687 |[1]#_g12688_|) + (__tmp12685 + (let ((__tmp12686 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp10704)))) + (cons '() __tmp12686)))) (declare (not safe)) - (cons __tmp10705 __tmp10703)))) + (cons __tmp12687 __tmp12685)))) (declare (not safe)) - (cons __tmp10707 __tmp10702)))) + (cons __tmp12689 __tmp12684)))) (declare (not safe)) - (cons __tmp10709 __tmp10701)))) + (cons __tmp12691 __tmp12683)))) (declare (not safe)) - (cons '() __tmp10700)) + (cons '() __tmp12682)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f @@ -206,37 +206,37 @@ (define |[:0:]#StackTrace| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g10710_| + |[1]#_g12692_| 'expander-identifiers: - (let ((__tmp10711 - (let ((__tmp10726 |[1]#_g10710_|) - (__tmp10712 - (let ((__tmp10724 |[1]#_g10725_|) - (__tmp10713 - (let ((__tmp10722 |[1]#_g10723_|) - (__tmp10714 - (let ((__tmp10719 - (let ((__tmp10720 |[1]#_g10721_|)) + (let ((__tmp12693 + (let ((__tmp12708 |[1]#_g12692_|) + (__tmp12694 + (let ((__tmp12706 |[1]#_g12707_|) + (__tmp12695 + (let ((__tmp12704 |[1]#_g12705_|) + (__tmp12696 + (let ((__tmp12701 + (let ((__tmp12702 |[1]#_g12703_|)) (declare (not safe)) - (cons __tmp10720 '()))) - (__tmp10715 - (let ((__tmp10716 - (let ((__tmp10717 - |[1]#_g10718_|)) + (cons __tmp12702 '()))) + (__tmp12697 + (let ((__tmp12698 + (let ((__tmp12699 + |[1]#_g12700_|)) (declare (not safe)) - (cons __tmp10717 '())))) + (cons __tmp12699 '())))) (declare (not safe)) - (cons __tmp10716 '())))) + (cons __tmp12698 '())))) (declare (not safe)) - (cons __tmp10719 __tmp10715)))) + (cons __tmp12701 __tmp12697)))) (declare (not safe)) - (cons __tmp10722 __tmp10714)))) + (cons __tmp12704 __tmp12696)))) (declare (not safe)) - (cons __tmp10724 __tmp10713)))) + (cons __tmp12706 __tmp12695)))) (declare (not safe)) - (cons __tmp10726 __tmp10712)))) + (cons __tmp12708 __tmp12694)))) (declare (not safe)) - (cons '() __tmp10711)) + (cons '() __tmp12693)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f @@ -248,74 +248,74 @@ (define |[:0:]#Error| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g10727_| + |[1]#_g12709_| 'expander-identifiers: - (let ((__tmp10756 - (let ((__tmp10759 |[1]#_g10710_|) - (__tmp10757 - (let ((__tmp10758 |[1]#_g10699_|)) + (let ((__tmp12738 + (let ((__tmp12741 |[1]#_g12692_|) + (__tmp12739 + (let ((__tmp12740 |[1]#_g12681_|)) (declare (not safe)) - (cons __tmp10758 '())))) + (cons __tmp12740 '())))) (declare (not safe)) - (cons __tmp10759 __tmp10757))) - (__tmp10728 - (let ((__tmp10755 |[1]#_g10727_|) - (__tmp10729 - (let ((__tmp10753 |[1]#_g10754_|) - (__tmp10730 - (let ((__tmp10751 |[1]#_g10752_|) - (__tmp10731 - (let ((__tmp10742 - (let ((__tmp10749 |[1]#_g10750_|) - (__tmp10743 - (let ((__tmp10747 - |[1]#_g10748_|) - (__tmp10744 - (let ((__tmp10745 - |[1]#_g10746_|)) + (cons __tmp12741 __tmp12739))) + (__tmp12710 + (let ((__tmp12737 |[1]#_g12709_|) + (__tmp12711 + (let ((__tmp12735 |[1]#_g12736_|) + (__tmp12712 + (let ((__tmp12733 |[1]#_g12734_|) + (__tmp12713 + (let ((__tmp12724 + (let ((__tmp12731 |[1]#_g12732_|) + (__tmp12725 + (let ((__tmp12729 + |[1]#_g12730_|) + (__tmp12726 + (let ((__tmp12727 + |[1]#_g12728_|)) (declare (not safe)) - (cons __tmp10745 + (cons __tmp12727 '())))) (declare (not safe)) - (cons __tmp10747 - __tmp10744)))) + (cons __tmp12729 + __tmp12726)))) (declare (not safe)) - (cons __tmp10749 __tmp10743))) - (__tmp10732 - (let ((__tmp10733 - (let ((__tmp10740 - |[1]#_g10741_|) - (__tmp10734 - (let ((__tmp10738 - |[1]#_g10739_|) - (__tmp10735 - (let ((__tmp10736 + (cons __tmp12731 __tmp12725))) + (__tmp12714 + (let ((__tmp12715 + (let ((__tmp12722 + |[1]#_g12723_|) + (__tmp12716 + (let ((__tmp12720 + |[1]#_g12721_|) + (__tmp12717 + (let ((__tmp12718 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g10737_|)) + |[1]#_g12719_|)) (declare (not safe)) - (cons __tmp10736 '())))) + (cons __tmp12718 '())))) (declare (not safe)) - (cons __tmp10738 __tmp10735)))) + (cons __tmp12720 __tmp12717)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10740 - __tmp10734)))) + (cons __tmp12722 + __tmp12716)))) (declare (not safe)) - (cons __tmp10733 '())))) + (cons __tmp12715 '())))) (declare (not safe)) - (cons __tmp10742 __tmp10732)))) + (cons __tmp12724 __tmp12714)))) (declare (not safe)) - (cons __tmp10751 __tmp10731)))) + (cons __tmp12733 __tmp12713)))) (declare (not safe)) - (cons __tmp10753 __tmp10730)))) + (cons __tmp12735 __tmp12712)))) (declare (not safe)) - (cons __tmp10755 __tmp10729)))) + (cons __tmp12737 __tmp12711)))) (declare (not safe)) - (cons __tmp10756 __tmp10728)) + (cons __tmp12738 __tmp12710)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g10760_| |[1]#_g10761_|) + (list |[1]#_g12742_| |[1]#_g12743_|) 'Error ':init! '((transparent: . #t)) @@ -323,894 +323,904 @@ (define |[:0:]#RuntimeException| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g10762_| + |[1]#_g12744_| 'expander-identifiers: - (let ((__tmp10779 - (let ((__tmp10782 |[1]#_g10710_|) - (__tmp10780 - (let ((__tmp10781 |[1]#_g10699_|)) + (let ((__tmp12761 + (let ((__tmp12764 |[1]#_g12692_|) + (__tmp12762 + (let ((__tmp12763 |[1]#_g12681_|)) (declare (not safe)) - (cons __tmp10781 '())))) + (cons __tmp12763 '())))) (declare (not safe)) - (cons __tmp10782 __tmp10780))) - (__tmp10763 - (let ((__tmp10778 |[1]#_g10762_|) - (__tmp10764 - (let ((__tmp10776 |[1]#_g10777_|) - (__tmp10765 - (let ((__tmp10774 |[1]#_g10775_|) - (__tmp10766 - (let ((__tmp10771 - (let ((__tmp10772 |[1]#_g10773_|)) + (cons __tmp12764 __tmp12762))) + (__tmp12745 + (let ((__tmp12760 |[1]#_g12744_|) + (__tmp12746 + (let ((__tmp12758 |[1]#_g12759_|) + (__tmp12747 + (let ((__tmp12756 |[1]#_g12757_|) + (__tmp12748 + (let ((__tmp12753 + (let ((__tmp12754 |[1]#_g12755_|)) (declare (not safe)) - (cons __tmp10772 '()))) - (__tmp10767 - (let ((__tmp10768 - (let ((__tmp10769 - |[1]#_g10770_|)) + (cons __tmp12754 '()))) + (__tmp12749 + (let ((__tmp12750 + (let ((__tmp12751 + |[1]#_g12752_|)) (declare (not safe)) - (cons __tmp10769 '())))) + (cons __tmp12751 '())))) (declare (not safe)) - (cons __tmp10768 '())))) + (cons __tmp12750 '())))) (declare (not safe)) - (cons __tmp10771 __tmp10767)))) + (cons __tmp12753 __tmp12749)))) (declare (not safe)) - (cons __tmp10774 __tmp10766)))) + (cons __tmp12756 __tmp12748)))) (declare (not safe)) - (cons __tmp10776 __tmp10765)))) + (cons __tmp12758 __tmp12747)))) (declare (not safe)) - (cons __tmp10778 __tmp10764)))) + (cons __tmp12760 __tmp12746)))) (declare (not safe)) - (cons __tmp10779 __tmp10763)) + (cons __tmp12761 __tmp12745)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g10760_| |[1]#_g10761_|) + (list |[1]#_g12742_| |[1]#_g12743_|) 'RuntimeException '#f '((transparent: . #t)) '(exception)))) (define |[:0:]#check-procedure| - (lambda (_$stx8835_) - (let* ((_g88398857_ - (lambda (_g88408853_) + (lambda (_$stx10817_) + (let* ((_g1082110839_ + (lambda (_g1082210835_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g88408853_))) - (_g88388913_ - (lambda (_g88408861_) - (if (gx#stx-pair? _g88408861_) - (let ((_e88458864_ (gx#syntax-e _g88408861_))) - (let ((_hd88448868_ + _g1082210835_))) + (_g1082010895_ + (lambda (_g1082210843_) + (if (gx#stx-pair? _g1082210843_) + (let ((_e1082710846_ (gx#syntax-e _g1082210843_))) + (let ((_hd1082610850_ (let () (declare (not safe)) - (##car _e88458864_))) - (_tl88438871_ + (##car _e1082710846_))) + (_tl1082510853_ (let () (declare (not safe)) - (##cdr _e88458864_)))) - (if (gx#stx-pair? _tl88438871_) - (let ((_e88488874_ (gx#syntax-e _tl88438871_))) - (let ((_hd88478878_ + (##cdr _e1082710846_)))) + (if (gx#stx-pair? _tl1082510853_) + (let ((_e1083010856_ + (gx#syntax-e _tl1082510853_))) + (let ((_hd1082910860_ (let () (declare (not safe)) - (##car _e88488874_))) - (_tl88468881_ + (##car _e1083010856_))) + (_tl1082810863_ (let () (declare (not safe)) - (##cdr _e88488874_)))) - (if (gx#stx-pair? _tl88468881_) - (let ((_e88518884_ - (gx#syntax-e _tl88468881_))) - (let ((_hd88508888_ + (##cdr _e1083010856_)))) + (if (gx#stx-pair? _tl1082810863_) + (let ((_e1083310866_ + (gx#syntax-e _tl1082810863_))) + (let ((_hd1083210870_ (let () (declare (not safe)) - (##car _e88518884_))) - (_tl88498891_ + (##car _e1083310866_))) + (_tl1083110873_ (let () (declare (not safe)) - (##cdr _e88518884_)))) - (if (gx#stx-null? _tl88498891_) - ((lambda (_L8894_ _L8896_) - (let ((__tmp10804 + (##cdr _e1083310866_)))) + (if (gx#stx-null? _tl1083110873_) + ((lambda (_L10876_ _L10878_) + (let ((__tmp12786 (gx#datum->syntax '#f 'unless)) - (__tmp10783 - (let ((__tmp10801 - (let ((__tmp10803 + (__tmp12765 + (let ((__tmp12783 + (let ((__tmp12785 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp10802 + (__tmp12784 (let () (declare (not safe)) - (cons _L8896_ '())))) + (cons _L10878_ '())))) (declare (not safe)) - (cons __tmp10803 __tmp10802))) - (__tmp10784 - (let ((__tmp10785 - (let ((__tmp10800 (gx#datum->syntax '#f 'raise)) - (__tmp10786 - (let ((__tmp10787 - (let ((__tmp10799 + (cons __tmp12785 __tmp12784))) + (__tmp12766 + (let ((__tmp12767 + (let ((__tmp12782 (gx#datum->syntax '#f 'raise)) + (__tmp12768 + (let ((__tmp12769 + (let ((__tmp12781 (gx#datum->syntax '#f 'Error)) - (__tmp10788 - (let ((__tmp10789 - (let ((__tmp10790 + (__tmp12770 + (let ((__tmp12771 + (let ((__tmp12772 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10796 - (let ((__tmp10798 + (let ((__tmp12778 + (let ((__tmp12780 (gx#datum->syntax '#f 'quote)) - (__tmp10797 + (__tmp12779 (let () (declare (not safe)) - (cons _L8894_ '())))) + (cons _L10876_ '())))) (declare (not safe)) - (cons __tmp10798 __tmp10797))) - (__tmp10791 - (let ((__tmp10792 - (let ((__tmp10793 - (let ((__tmp10795 + (cons __tmp12780 __tmp12779))) + (__tmp12773 + (let ((__tmp12774 + (let ((__tmp12775 + (let ((__tmp12777 (gx#datum->syntax '#f '@list)) - (__tmp10794 + (__tmp12776 (let () (declare (not safe)) - (cons _L8896_ '())))) + (cons _L10878_ '())))) (declare (not safe)) - (cons __tmp10795 __tmp10794)))) + (cons __tmp12777 __tmp12776)))) (declare (not safe)) - (cons __tmp10793 '())))) + (cons __tmp12775 '())))) (declare (not safe)) - (cons 'irritants: __tmp10792)))) + (cons 'irritants: __tmp12774)))) (declare (not safe)) - (cons __tmp10796 __tmp10791)))) + (cons __tmp12778 __tmp12773)))) (declare (not safe)) - (cons 'where: __tmp10790)))) + (cons 'where: __tmp12772)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"expected procedure" - __tmp10789)))) + __tmp12771)))) (declare (not safe)) - (cons __tmp10799 __tmp10788)))) + (cons __tmp12781 __tmp12770)))) (declare (not safe)) - (cons __tmp10787 '())))) + (cons __tmp12769 '())))) (declare (not safe)) - (cons __tmp10800 __tmp10786)))) + (cons __tmp12782 __tmp12768)))) (declare (not safe)) - (cons __tmp10785 '())))) + (cons __tmp12767 '())))) (declare (not safe)) - (cons __tmp10801 __tmp10784)))) + (cons __tmp12783 __tmp12766)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10804 - __tmp10783))) - _hd88508888_ - _hd88478878_) - (_g88398857_ _g88408861_)))) - (_g88398857_ _g88408861_)))) - (_g88398857_ _g88408861_)))) - (_g88398857_ _g88408861_))))) - (_g88388913_ _$stx8835_)))) + (cons __tmp12786 + __tmp12765))) + _hd1083210870_ + _hd1082910860_) + (_g1082110839_ _g1082210843_)))) + (_g1082110839_ _g1082210843_)))) + (_g1082110839_ _g1082210843_)))) + (_g1082110839_ _g1082210843_))))) + (_g1082010895_ _$stx10817_)))) (define |[:0:]#defruntime-exception| - (lambda (_stx8917_) - (let* ((_g89208947_ - (lambda (_g89218943_) + (lambda (_stx10899_) + (let* ((_g1090210929_ + (lambda (_g1090310925_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g89218943_))) - (_g89199182_ - (lambda (_g89218951_) - (if (gx#stx-pair? _g89218951_) - (let ((_e89268954_ (gx#syntax-e _g89218951_))) - (let ((_hd89258958_ + _g1090310925_))) + (_g1090111164_ + (lambda (_g1090310933_) + (if (gx#stx-pair? _g1090310933_) + (let ((_e1090810936_ (gx#syntax-e _g1090310933_))) + (let ((_hd1090710940_ (let () (declare (not safe)) - (##car _e89268954_))) - (_tl89248961_ + (##car _e1090810936_))) + (_tl1090610943_ (let () (declare (not safe)) - (##cdr _e89268954_)))) - (if (gx#stx-pair? _tl89248961_) - (let ((_e89298964_ (gx#syntax-e _tl89248961_))) - (let ((_hd89288968_ + (##cdr _e1090810936_)))) + (if (gx#stx-pair? _tl1090610943_) + (let ((_e1091110946_ + (gx#syntax-e _tl1090610943_))) + (let ((_hd1091010950_ (let () (declare (not safe)) - (##car _e89298964_))) - (_tl89278971_ + (##car _e1091110946_))) + (_tl1090910953_ (let () (declare (not safe)) - (##cdr _e89298964_)))) - (if (gx#stx-pair? _hd89288968_) - (let ((_e89328974_ - (gx#syntax-e _hd89288968_))) - (let ((_hd89318978_ + (##cdr _e1091110946_)))) + (if (gx#stx-pair? _hd1091010950_) + (let ((_e1091410956_ + (gx#syntax-e _hd1091010950_))) + (let ((_hd1091310960_ (let () (declare (not safe)) - (##car _e89328974_))) - (_tl89308981_ + (##car _e1091410956_))) + (_tl1091210963_ (let () (declare (not safe)) - (##cdr _e89328974_)))) - (if (gx#stx-pair/null? _tl89308981_) - (let ((_g10805_ + (##cdr _e1091410956_)))) + (if (gx#stx-pair/null? + _tl1091210963_) + (let ((_g12787_ (gx#syntax-split-splice - _tl89308981_ + _tl1091210963_ '0))) (begin - (let ((_g10806_ + (let ((_g12788_ (let () (declare (not safe)) (if (##values? - _g10805_) + _g12787_) (##vector-length - _g10805_) + _g12787_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g10806_ 2))) - (error "Context expects 2 values" _g10806_))) + (##fx= _g12788_ 2))) + (error "Context expects 2 values" _g12788_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target89338984_ + (let ((_target1091510966_ (let () (declare (not safe)) (##vector-ref - _g10805_ + _g12787_ 0))) - (_tl89358987_ + (_tl1091710969_ (let () (declare (not safe)) (##vector-ref - _g10805_ + _g12787_ 1)))) (if (gx#stx-null? - _tl89358987_) - (letrec ((_loop89368990_ + _tl1091710969_) + (letrec ((_loop1091810972_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd89348994_ _getf89408997_) - (if (gx#stx-pair? _hd89348994_) - (let ((_e89379000_ (gx#syntax-e _hd89348994_))) - (let ((_lp-hd89389004_ + (lambda (_hd1091610976_ _getf1092210979_) + (if (gx#stx-pair? _hd1091610976_) + (let ((_e1091910982_ + (gx#syntax-e _hd1091610976_))) + (let ((_lp-hd1092010986_ (let () (declare (not safe)) - (##car _e89379000_))) - (_lp-tl89399007_ + (##car _e1091910982_))) + (_lp-tl1092110989_ (let () (declare (not safe)) - (##cdr _e89379000_)))) - (_loop89368990_ - _lp-tl89399007_ + (##cdr _e1091910982_)))) + (_loop1091810972_ + _lp-tl1092110989_ (let () (declare (not safe)) - (cons _lp-hd89389004_ - _getf89408997_))))) - (let ((_getf89419010_ - (reverse _getf89408997_))) - (if (gx#stx-null? _tl89278971_) - ((lambda (_L9014_ _L9016_) - (let* ((_g90369060_ - (lambda (_g90379056_) + (cons _lp-hd1092010986_ + _getf1092210979_))))) + (let ((_getf1092310992_ + (reverse _getf1092210979_))) + (if (gx#stx-null? _tl1090910953_) + ((lambda (_L10996_ _L10998_) + (let* ((_g1101811042_ + (lambda (_g1101911038_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g90379056_))) - (_g90359167_ - (lambda (_g90379064_) + _g1101911038_))) + (_g1101711149_ + (lambda (_g1101911046_) (if (gx#stx-pair? - _g90379064_) - (let ((_e90429067_ + _g1101911046_) + (let ((_e1102411049_ (gx#syntax-e - _g90379064_))) - (let ((_hd90419071_ + _g1101911046_))) + (let ((_hd1102311053_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e90429067_))) - (_tl90409074_ - (let () (declare (not safe)) (##cdr _e90429067_)))) - (if (gx#stx-pair? _tl90409074_) - (let ((_e90459077_ (gx#syntax-e _tl90409074_))) - (let ((_hd90449081_ + (##car _e1102411049_))) + (_tl1102211056_ + (let () (declare (not safe)) (##cdr _e1102411049_)))) + (if (gx#stx-pair? _tl1102211056_) + (let ((_e1102711059_ (gx#syntax-e _tl1102211056_))) + (let ((_hd1102611063_ (let () (declare (not safe)) - (##car _e90459077_))) - (_tl90439084_ + (##car _e1102711059_))) + (_tl1102511066_ (let () (declare (not safe)) - (##cdr _e90459077_)))) - (if (gx#stx-pair/null? _hd90449081_) - (let ((_g10807_ + (##cdr _e1102711059_)))) + (if (gx#stx-pair/null? _hd1102611063_) + (let ((_g12789_ (gx#syntax-split-splice - _hd90449081_ + _hd1102611063_ '0))) (begin - (let ((_g10808_ + (let ((_g12790_ (let () (declare (not safe)) - (if (##values? _g10807_) - (##vector-length _g10807_) + (if (##values? _g12789_) + (##vector-length _g12789_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g10808_ 2))) + (##fx= _g12790_ 2))) (error "Context expects 2 values" - _g10808_))) - (let ((_target90469087_ + _g12790_))) + (let ((_target1102811069_ (let () (declare (not safe)) - (##vector-ref _g10807_ 0))) - (_tl90489090_ + (##vector-ref _g12789_ 0))) + (_tl1103011072_ (let () (declare (not safe)) - (##vector-ref _g10807_ 1)))) - (if (gx#stx-null? _tl90489090_) - (letrec ((_loop90499093_ - (lambda (_hd90479097_ - _macro-getf90539100_) + (##vector-ref _g12789_ 1)))) + (if (gx#stx-null? _tl1103011072_) + (letrec ((_loop1103111075_ + (lambda (_hd1102911079_ + _macro-getf1103511082_) (if (gx#stx-pair? - _hd90479097_) - (let ((_e90509103_ + _hd1102911079_) + (let ((_e1103211085_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd90479097_))) - (let ((_lp-hd90519107_ - (let () (declare (not safe)) (##car _e90509103_))) - (_lp-tl90529110_ - (let () (declare (not safe)) (##cdr _e90509103_)))) - (_loop90499093_ - _lp-tl90529110_ + _hd1102911079_))) + (let ((_lp-hd1103311089_ + (let () (declare (not safe)) (##car _e1103211085_))) + (_lp-tl1103411092_ + (let () (declare (not safe)) (##cdr _e1103211085_)))) + (_loop1103111075_ + _lp-tl1103411092_ (let () (declare (not safe)) - (cons _lp-hd90519107_ _macro-getf90539100_))))) - (let ((_macro-getf90549113_ (reverse _macro-getf90539100_))) - (if (gx#stx-null? _tl90439084_) - ((lambda (_L9117_ _L9119_) + (cons _lp-hd1103311089_ _macro-getf1103511082_))))) + (let ((_macro-getf1103611095_ + (reverse _macro-getf1103511082_))) + (if (gx#stx-null? _tl1102511066_) + ((lambda (_L11099_ _L11101_) (let () - (let ((__tmp10932 (gx#datum->syntax '#f 'begin)) - (__tmp10809 - (let ((__tmp10927 - (let ((__tmp10931 + (let ((__tmp12914 (gx#datum->syntax '#f 'begin)) + (__tmp12791 + (let ((__tmp12909 + (let ((__tmp12913 (gx#datum->syntax '#f 'extern)) - (__tmp10928 - (let ((__tmp10929 - (let ((__tmp10930 - (lambda (_g91449147_ + (__tmp12910 + (let ((__tmp12911 + (let ((__tmp12912 + (lambda (_g1112611129_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g91459150_) + _g1112711132_) (let () (declare (not safe)) - (cons _g91449147_ _g91459150_))))) + (cons _g1112611129_ _g1112711132_))))) (declare (not safe)) - (foldr1 __tmp10930 '() _L9117_)))) + (foldr1 __tmp12912 '() _L11099_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L9119_ __tmp10929)))) + (cons _L11101_ + __tmp12911)))) (declare (not safe)) - (cons __tmp10931 __tmp10928))) - (__tmp10810 - (let ((__tmp10894 - (let ((__tmp10926 + (cons __tmp12913 __tmp12910))) + (__tmp12792 + (let ((__tmp12876 + (let ((__tmp12908 (gx#datum->syntax '#f 'def)) - (__tmp10895 - (let ((__tmp10923 - (let ((__tmp10924 + (__tmp12877 + (let ((__tmp12905 + (let ((__tmp12906 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10925 (gx#datum->syntax '#f 'exn))) + (let ((__tmp12907 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp10925 '())))) + (cons __tmp12907 '())))) (declare (not safe)) - (cons _L9016_ __tmp10924))) - (__tmp10896 - (let ((__tmp10897 - (let ((__tmp10922 (gx#datum->syntax '#f 'if)) - (__tmp10898 - (let ((__tmp10918 - (let ((__tmp10921 + (cons _L10998_ __tmp12906))) + (__tmp12878 + (let ((__tmp12879 + (let ((__tmp12904 (gx#datum->syntax '#f 'if)) + (__tmp12880 + (let ((__tmp12900 + (let ((__tmp12903 (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp10919 - (let ((__tmp10920 + (__tmp12901 + (let ((__tmp12902 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp10920 '())))) + (cons __tmp12902 '())))) (declare (not safe)) - (cons __tmp10921 __tmp10919))) - (__tmp10899 - (let ((__tmp10904 - (let ((__tmp10917 + (cons __tmp12903 __tmp12901))) + (__tmp12881 + (let ((__tmp12886 + (let ((__tmp12899 (gx#datum->syntax '#f 'let)) - (__tmp10905 - (let ((__tmp10910 + (__tmp12887 + (let ((__tmp12892 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10916 (gx#datum->syntax '#f 'e)) - (__tmp10911 - (let ((__tmp10912 - (let ((__tmp10915 + (let ((__tmp12898 (gx#datum->syntax '#f 'e)) + (__tmp12893 + (let ((__tmp12894 + (let ((__tmp12897 (gx#datum->syntax '#f '&RuntimeException-exception)) - (__tmp10913 - (let ((__tmp10914 + (__tmp12895 + (let ((__tmp12896 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp10914 '())))) + (cons __tmp12896 '())))) (declare (not safe)) - (cons __tmp10915 __tmp10913)))) + (cons __tmp12897 __tmp12895)))) (declare (not safe)) - (cons __tmp10912 '())))) + (cons __tmp12894 '())))) (declare (not safe)) - (cons __tmp10916 __tmp10911))) - (__tmp10906 - (let ((__tmp10907 - (let ((__tmp10908 - (let ((__tmp10909 + (cons __tmp12898 __tmp12893))) + (__tmp12888 + (let ((__tmp12889 + (let ((__tmp12890 + (let ((__tmp12891 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp10909 '())))) + (cons __tmp12891 '())))) (declare (not safe)) - (cons _L9119_ __tmp10908)))) + (cons _L11101_ __tmp12890)))) (declare (not safe)) - (cons __tmp10907 '())))) + (cons __tmp12889 '())))) (declare (not safe)) - (cons __tmp10910 __tmp10906)))) + (cons __tmp12892 __tmp12888)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10917 - __tmp10905))) - (__tmp10900 - (let ((__tmp10901 - (let ((__tmp10902 + (cons __tmp12899 + __tmp12887))) + (__tmp12882 + (let ((__tmp12883 + (let ((__tmp12884 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10903 (gx#datum->syntax '#f 'exn))) + (let ((__tmp12885 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp10903 '())))) + (cons __tmp12885 '())))) (declare (not safe)) - (cons _L9119_ __tmp10902)))) + (cons _L11101_ __tmp12884)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10901 '())))) + (cons __tmp12883 '())))) (declare (not safe)) - (cons __tmp10904 __tmp10900)))) + (cons __tmp12886 __tmp12882)))) (declare (not safe)) - (cons __tmp10918 __tmp10899)))) + (cons __tmp12900 __tmp12881)))) (declare (not safe)) - (cons __tmp10922 __tmp10898)))) + (cons __tmp12904 __tmp12880)))) (declare (not safe)) - (cons __tmp10897 '())))) + (cons __tmp12879 '())))) (declare (not safe)) - (cons __tmp10923 __tmp10896)))) + (cons __tmp12905 __tmp12878)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10926 - __tmp10895))) - (__tmp10811 + (cons __tmp12908 + __tmp12877))) + (__tmp12793 (begin (gx#syntax-check-splice-targets - _L9014_ - _L9117_ - _L9014_ - _L9117_ - _L9014_) - (let ((__tmp10812 - (lambda (_g91389153_ + _L10996_ + _L11099_ + _L10996_ + _L11099_ + _L10996_) + (let ((__tmp12794 + (lambda (_g1112011135_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g91399156_ - _g91409158_ - _g91419160_ - _g91429162_ - _g91439164_) - (let ((__tmp10813 - (let ((__tmp10893 (gx#datum->syntax '#f 'def)) - (__tmp10814 - (let ((__tmp10890 - (let ((__tmp10891 - (let ((__tmp10892 + _g1112111138_ + _g1112211140_ + _g1112311142_ + _g1112411144_ + _g1112511146_) + (let ((__tmp12795 + (let ((__tmp12875 (gx#datum->syntax '#f 'def)) + (__tmp12796 + (let ((__tmp12872 + (let ((__tmp12873 + (let ((__tmp12874 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp10892 '())))) + (cons __tmp12874 '())))) (declare (not safe)) - (cons _g91389153_ __tmp10891))) - (__tmp10815 - (let ((__tmp10816 - (let ((__tmp10889 + (cons _g1112011135_ __tmp12873))) + (__tmp12797 + (let ((__tmp12798 + (let ((__tmp12871 (gx#datum->syntax '#f 'if)) - (__tmp10817 - (let ((__tmp10885 - (let ((__tmp10888 + (__tmp12799 + (let ((__tmp12867 + (let ((__tmp12870 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp10886 - (let ((__tmp10887 (gx#datum->syntax '#f 'exn))) + (__tmp12868 + (let ((__tmp12869 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp10887 '())))) + (cons __tmp12869 '())))) (declare (not safe)) - (cons __tmp10888 __tmp10886))) - (__tmp10818 - (let ((__tmp10847 - (let ((__tmp10884 (gx#datum->syntax '#f 'let)) - (__tmp10848 - (let ((__tmp10877 - (let ((__tmp10883 + (cons __tmp12870 __tmp12868))) + (__tmp12800 + (let ((__tmp12829 + (let ((__tmp12866 (gx#datum->syntax '#f 'let)) + (__tmp12830 + (let ((__tmp12859 + (let ((__tmp12865 (gx#datum->syntax '#f 'e)) - (__tmp10878 - (let ((__tmp10879 - (let ((__tmp10882 + (__tmp12860 + (let ((__tmp12861 + (let ((__tmp12864 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&RuntimeException-exception)) - (__tmp10880 - (let ((__tmp10881 (gx#datum->syntax '#f 'exn))) + (__tmp12862 + (let ((__tmp12863 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp10881 '())))) + (cons __tmp12863 '())))) (declare (not safe)) - (cons __tmp10882 __tmp10880)))) + (cons __tmp12864 __tmp12862)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10879 '())))) + (cons __tmp12861 '())))) (declare (not safe)) - (cons __tmp10883 __tmp10878))) - (__tmp10849 - (let ((__tmp10850 - (let ((__tmp10876 + (cons __tmp12865 __tmp12860))) + (__tmp12831 + (let ((__tmp12832 + (let ((__tmp12858 (gx#datum->syntax '#f 'if)) - (__tmp10851 - (let ((__tmp10873 - (let ((__tmp10874 + (__tmp12833 + (let ((__tmp12855 + (let ((__tmp12856 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10875 (gx#datum->syntax '#f 'e))) + (let ((__tmp12857 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp10875 '())))) + (cons __tmp12857 '())))) (declare (not safe)) - (cons _L9119_ __tmp10874))) - (__tmp10852 - (let ((__tmp10870 - (let ((__tmp10871 - (let ((__tmp10872 + (cons _L11101_ __tmp12856))) + (__tmp12834 + (let ((__tmp12852 + (let ((__tmp12853 + (let ((__tmp12854 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp10872 '())))) + (cons __tmp12854 '())))) (declare (not safe)) - (cons _g91399156_ __tmp10871))) - (__tmp10853 - (let ((__tmp10854 - (let ((__tmp10869 + (cons _g1112111138_ __tmp12853))) + (__tmp12835 + (let ((__tmp12836 + (let ((__tmp12851 (gx#datum->syntax '#f 'error)) - (__tmp10855 - (let ((__tmp10856 - (let ((__tmp10866 - (let ((__tmp10868 + (__tmp12837 + (let ((__tmp12838 + (let ((__tmp12848 + (let ((__tmp12850 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp10867 - (let () (declare (not safe)) (cons _L9016_ '())))) + (__tmp12849 + (let () (declare (not safe)) (cons _L10998_ '())))) (declare (not safe)) - (cons __tmp10868 __tmp10867))) - (__tmp10857 - (let ((__tmp10858 - (let ((__tmp10865 (gx#datum->syntax '#f '@list)) - (__tmp10859 - (let ((__tmp10862 - (let ((__tmp10864 + (cons __tmp12850 __tmp12849))) + (__tmp12839 + (let ((__tmp12840 + (let ((__tmp12847 (gx#datum->syntax '#f '@list)) + (__tmp12841 + (let ((__tmp12844 + (let ((__tmp12846 (gx#datum->syntax '#f 'quote)) - (__tmp10863 + (__tmp12845 (let () (declare (not safe)) - (cons _g91389153_ '())))) + (cons _g1112011135_ '())))) (declare (not safe)) - (cons __tmp10864 __tmp10863))) - (__tmp10860 - (let ((__tmp10861 + (cons __tmp12846 __tmp12845))) + (__tmp12842 + (let ((__tmp12843 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp10861 '())))) + (cons __tmp12843 '())))) (declare (not safe)) - (cons __tmp10862 __tmp10860)))) + (cons __tmp12844 __tmp12842)))) (declare (not safe)) - (cons __tmp10865 __tmp10859)))) + (cons __tmp12847 __tmp12841)))) (declare (not safe)) - (cons __tmp10858 '())))) + (cons __tmp12840 '())))) (declare (not safe)) - (cons __tmp10866 __tmp10857)))) + (cons __tmp12848 __tmp12839)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"not an instance" - __tmp10856)))) + __tmp12838)))) (declare (not safe)) - (cons __tmp10869 __tmp10855)))) + (cons __tmp12851 __tmp12837)))) (declare (not safe)) - (cons __tmp10854 '())))) + (cons __tmp12836 '())))) (declare (not safe)) - (cons __tmp10870 __tmp10853)))) + (cons __tmp12852 __tmp12835)))) (declare (not safe)) - (cons __tmp10873 __tmp10852)))) + (cons __tmp12855 __tmp12834)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10876 - __tmp10851)))) + (cons __tmp12858 + __tmp12833)))) (declare (not safe)) - (cons __tmp10850 '())))) + (cons __tmp12832 '())))) (declare (not safe)) - (cons __tmp10877 __tmp10849)))) + (cons __tmp12859 __tmp12831)))) (declare (not safe)) - (cons __tmp10884 __tmp10848))) - (__tmp10819 - (let ((__tmp10820 - (let ((__tmp10846 + (cons __tmp12866 __tmp12830))) + (__tmp12801 + (let ((__tmp12802 + (let ((__tmp12828 (gx#datum->syntax '#f 'if)) - (__tmp10821 - (let ((__tmp10843 - (let ((__tmp10844 - (let ((__tmp10845 + (__tmp12803 + (let ((__tmp12825 + (let ((__tmp12826 + (let ((__tmp12827 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'exn))) (declare (not safe)) - (cons __tmp10845 '())))) + (cons __tmp12827 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L9119_ __tmp10844))) - (__tmp10822 - (let ((__tmp10840 - (let ((__tmp10841 - (let ((__tmp10842 + (cons _L11101_ + __tmp12826))) + (__tmp12804 + (let ((__tmp12822 + (let ((__tmp12823 + (let ((__tmp12824 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp10842 '())))) + (cons __tmp12824 '())))) (declare (not safe)) - (cons _g91399156_ __tmp10841))) - (__tmp10823 - (let ((__tmp10824 - (let ((__tmp10839 (gx#datum->syntax '#f 'error)) - (__tmp10825 - (let ((__tmp10826 - (let ((__tmp10836 - (let ((__tmp10838 + (cons _g1112111138_ __tmp12823))) + (__tmp12805 + (let ((__tmp12806 + (let ((__tmp12821 (gx#datum->syntax '#f 'error)) + (__tmp12807 + (let ((__tmp12808 + (let ((__tmp12818 + (let ((__tmp12820 (gx#datum->syntax '#f 'quote)) - (__tmp10837 + (__tmp12819 (let () (declare (not safe)) - (cons _L9016_ '())))) + (cons _L10998_ '())))) (declare (not safe)) - (cons __tmp10838 __tmp10837))) - (__tmp10827 - (let ((__tmp10828 - (let ((__tmp10835 + (cons __tmp12820 __tmp12819))) + (__tmp12809 + (let ((__tmp12810 + (let ((__tmp12817 (gx#datum->syntax '#f '@list)) - (__tmp10829 - (let ((__tmp10832 + (__tmp12811 + (let ((__tmp12814 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10834 (gx#datum->syntax '#f 'quote)) - (__tmp10833 + (let ((__tmp12816 (gx#datum->syntax '#f 'quote)) + (__tmp12815 (let () (declare (not safe)) - (cons _g91389153_ '())))) + (cons _g1112011135_ '())))) (declare (not safe)) - (cons __tmp10834 __tmp10833))) - (__tmp10830 - (let ((__tmp10831 (gx#datum->syntax '#f 'exn))) + (cons __tmp12816 __tmp12815))) + (__tmp12812 + (let ((__tmp12813 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp10831 '())))) + (cons __tmp12813 '())))) (declare (not safe)) - (cons __tmp10832 __tmp10830)))) + (cons __tmp12814 __tmp12812)))) (declare (not safe)) - (cons __tmp10835 __tmp10829)))) + (cons __tmp12817 __tmp12811)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10828 '())))) + (cons __tmp12810 '())))) (declare (not safe)) - (cons __tmp10836 __tmp10827)))) + (cons __tmp12818 __tmp12809)))) (declare (not safe)) - (cons '"not an instance" __tmp10826)))) + (cons '"not an instance" __tmp12808)))) (declare (not safe)) - (cons __tmp10839 __tmp10825)))) + (cons __tmp12821 __tmp12807)))) (declare (not safe)) - (cons __tmp10824 '())))) + (cons __tmp12806 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10840 - __tmp10823)))) + (cons __tmp12822 + __tmp12805)))) (declare (not safe)) - (cons __tmp10843 __tmp10822)))) + (cons __tmp12825 __tmp12804)))) (declare (not safe)) - (cons __tmp10846 __tmp10821)))) + (cons __tmp12828 __tmp12803)))) (declare (not safe)) - (cons __tmp10820 '())))) + (cons __tmp12802 '())))) (declare (not safe)) - (cons __tmp10847 __tmp10819)))) + (cons __tmp12829 __tmp12801)))) (declare (not safe)) - (cons __tmp10885 __tmp10818)))) + (cons __tmp12867 __tmp12800)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10889 - __tmp10817)))) + (cons __tmp12871 + __tmp12799)))) (declare (not safe)) - (cons __tmp10816 '())))) + (cons __tmp12798 '())))) (declare (not safe)) - (cons __tmp10890 __tmp10815)))) + (cons __tmp12872 __tmp12797)))) (declare (not safe)) - (cons __tmp10893 __tmp10814)))) + (cons __tmp12875 __tmp12796)))) (declare (not safe)) - (cons __tmp10813 _g91439164_))))) + (cons __tmp12795 _g1112511146_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr* __tmp10812 + (foldr* __tmp12794 '() - _L9014_ - _L9117_ - _L9014_ - _L9117_ - _L9014_))))) + _L10996_ + _L11099_ + _L10996_ + _L11099_ + _L10996_))))) (declare (not safe)) - (cons __tmp10894 __tmp10811)))) + (cons __tmp12876 __tmp12793)))) (declare (not safe)) - (cons __tmp10927 __tmp10810)))) + (cons __tmp12909 __tmp12792)))) (declare (not safe)) - (cons __tmp10932 __tmp10809)))) - _macro-getf90549113_ - _hd90419071_) - (_g90369060_ _g90379064_))))))) + (cons __tmp12914 __tmp12791)))) + _macro-getf1103611095_ + _hd1102311053_) + (_g1101811042_ _g1101911046_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop90499093_ - _target90469087_ + (_loop1103111075_ + _target1102811069_ '())) - (_g90369060_ _g90379064_))))) - (_g90369060_ _g90379064_)))) - (_g90369060_ _g90379064_)))) - (_g90369060_ _g90379064_))))) + (_g1101811042_ _g1101911046_))))) + (_g1101811042_ _g1101911046_)))) + (_g1101811042_ _g1101911046_)))) + (_g1101811042_ _g1101911046_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g90359167_ + (_g1101711149_ (list (gx#stx-identifier - _L9016_ + _L10998_ '"macro-" - _L9016_) - (map (lambda (_f9171_) + _L10998_) + (map (lambda (_f11153_) (gx#stx-identifier - _f9171_ + _f11153_ '"macro-" - _f9171_)) - (let ((__tmp10933 - (lambda (_g91739176_ + _f11153_)) + (let ((__tmp12915 + (lambda (_g1115511158_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g91749179_) + _g1115611161_) (let () (declare (not safe)) - (cons _g91739176_ _g91749179_))))) + (cons _g1115511158_ _g1115611161_))))) (declare (not safe)) - (foldr1 __tmp10933 '() _L9014_))))))) + (foldr1 __tmp12915 '() _L10996_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf89419010_ - _hd89318978_) - (_g89208947_ _g89218951_))))))) - (_loop89368990_ _target89338984_ '())) - (_g89208947_ _g89218951_))))) + _getf1092310992_ + _hd1091310960_) + (_g1090210929_ _g1090310933_))))))) + (_loop1091810972_ _target1091510966_ '())) + (_g1090210929_ _g1090310933_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g89208947_ _g89218951_)))) - (_g89208947_ _g89218951_)))) - (_g89208947_ _g89218951_)))) - (_g89208947_ _g89218951_))))) - (_g89199182_ _stx8917_)))) + (_g1090210929_ _g1090310933_)))) + (_g1090210929_ _g1090310933_)))) + (_g1090210929_ _g1090310933_)))) + (_g1090210929_ _g1090310933_))))) + (_g1090111164_ _stx10899_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_$stx9188_) - (let* ((_g91929212_ - (lambda (_g91939208_) + (lambda (_$stx11170_) + (let* ((_g1117411194_ + (lambda (_g1117511190_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g91939208_))) - (_g91919283_ - (lambda (_g91939216_) - (if (gx#stx-pair? _g91939216_) - (let ((_e91979219_ (gx#syntax-e _g91939216_))) - (let ((_hd91969223_ + _g1117511190_))) + (_g1117311265_ + (lambda (_g1117511198_) + (if (gx#stx-pair? _g1117511198_) + (let ((_e1117911201_ (gx#syntax-e _g1117511198_))) + (let ((_hd1117811205_ (let () (declare (not safe)) - (##car _e91979219_))) - (_tl91959226_ + (##car _e1117911201_))) + (_tl1117711208_ (let () (declare (not safe)) - (##cdr _e91979219_)))) - (if (gx#stx-pair/null? _tl91959226_) - (let ((_g10934_ - (gx#syntax-split-splice _tl91959226_ '0))) + (##cdr _e1117911201_)))) + (if (gx#stx-pair/null? _tl1117711208_) + (let ((_g12916_ + (gx#syntax-split-splice + _tl1117711208_ + '0))) (begin - (let ((_g10935_ + (let ((_g12917_ (let () (declare (not safe)) - (if (##values? _g10934_) - (##vector-length _g10934_) + (if (##values? _g12916_) + (##vector-length _g12916_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g10935_ 2))) + (##fx= _g12917_ 2))) (error "Context expects 2 values" - _g10935_))) - (let ((_target91989229_ + _g12917_))) + (let ((_target1118011211_ (let () (declare (not safe)) - (##vector-ref _g10934_ 0))) - (_tl92009232_ + (##vector-ref _g12916_ 0))) + (_tl1118211214_ (let () (declare (not safe)) - (##vector-ref _g10934_ 1)))) - (if (gx#stx-null? _tl92009232_) - (letrec ((_loop92019235_ - (lambda (_hd91999239_ - _defexn92059242_) + (##vector-ref _g12916_ 1)))) + (if (gx#stx-null? _tl1118211214_) + (letrec ((_loop1118311217_ + (lambda (_hd1118111221_ + _defexn1118711224_) (if (gx#stx-pair? - _hd91999239_) - (let ((_e92029245_ + _hd1118111221_) + (let ((_e1118411227_ (gx#syntax-e - _hd91999239_))) - (let ((_lp-hd92039249_ + _hd1118111221_))) + (let ((_lp-hd1118511231_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e92029245_))) - (_lp-tl92049252_ - (let () (declare (not safe)) (##cdr _e92029245_)))) - (_loop92019235_ - _lp-tl92049252_ + (let () (declare (not safe)) (##car _e1118411227_))) + (_lp-tl1118611234_ + (let () (declare (not safe)) (##cdr _e1118411227_)))) + (_loop1118311217_ + _lp-tl1118611234_ (let () (declare (not safe)) - (cons _lp-hd92039249_ _defexn92059242_))))) - (let ((_defexn92069255_ (reverse _defexn92059242_))) - ((lambda (_L9259_) - (let ((__tmp10941 (gx#datum->syntax '#f 'begin)) - (__tmp10936 - (let ((__tmp10937 - (lambda (_g92749277_ _g92759280_) - (let ((__tmp10938 - (let ((__tmp10940 + (cons _lp-hd1118511231_ _defexn1118711224_))))) + (let ((_defexn1118811237_ (reverse _defexn1118711224_))) + ((lambda (_L11241_) + (let ((__tmp12923 (gx#datum->syntax '#f 'begin)) + (__tmp12918 + (let ((__tmp12919 + (lambda (_g1125611259_ _g1125711262_) + (let ((__tmp12920 + (let ((__tmp12922 (gx#datum->syntax '#f 'defruntime-exception)) - (__tmp10939 + (__tmp12921 (let () (declare (not safe)) - (cons _g92749277_ '())))) + (cons _g1125611259_ + '())))) (declare (not safe)) - (cons __tmp10940 __tmp10939)))) + (cons __tmp12922 __tmp12921)))) (declare (not safe)) - (cons __tmp10938 _g92759280_))))) + (cons __tmp12920 _g1125711262_))))) (declare (not safe)) - (foldr1 __tmp10937 '() _L9259_)))) + (foldr1 __tmp12919 '() _L11241_)))) (declare (not safe)) - (cons __tmp10941 __tmp10936))) - _defexn92069255_)))))) + (cons __tmp12923 __tmp12918))) + _defexn1118811237_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop92019235_ - _target91989229_ + (_loop1118311217_ + _target1118011211_ '())) - (_g91929212_ _g91939216_))))) - (_g91929212_ _g91939216_)))) - (_g91929212_ _g91939216_))))) - (_g91919283_ _$stx9188_)))))) + (_g1117411194_ _g1117511198_))))) + (_g1117411194_ _g1117511198_)))) + (_g1117411194_ _g1117511198_))))) + (_g1117311265_ _$stx11170_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index bb4109d60..7deaef35e 100644 --- a/src/bootstrap/gerbil/runtime/eval__0.scm +++ b/src/bootstrap/gerbil/runtime/eval__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1701718632) + (define gerbil/runtime/eval::timestamp 1706585167) (begin (define __context::t (let () @@ -16,8 +16,8 @@ (define __context? (let () (declare (not safe)) (make-struct-predicate __context::t))) (define make-__context - (lambda _$args15373_ - (apply make-struct-instance __context::t _$args15373_))) + (lambda _$args17355_ + (apply make-struct-instance __context::t _$args17355_))) (define __context-t (let () (declare (not safe)) @@ -96,8 +96,8 @@ (define __runtime? (let () (declare (not safe)) (make-struct-predicate __runtime::t))) (define make-__runtime - (lambda _$args15370_ - (apply make-struct-instance __runtime::t _$args15370_))) + (lambda _$args17352_ + (apply make-struct-instance __runtime::t _$args17352_))) (define __runtime-id (let () (declare (not safe)) @@ -128,8 +128,8 @@ (define __syntax? (let () (declare (not safe)) (make-struct-predicate __syntax::t))) (define make-__syntax - (lambda _$args15367_ - (apply make-struct-instance __syntax::t _$args15367_))) + (lambda _$args17349_ + (apply make-struct-instance __syntax::t _$args17349_))) (define __syntax-e (let () (declare (not safe)) @@ -172,8 +172,8 @@ (define __macro? (let () (declare (not safe)) (make-struct-predicate __macro::t))) (define make-__macro - (lambda _$args15364_ - (apply make-struct-instance __macro::t _$args15364_))) + (lambda _$args17346_ + (apply make-struct-instance __macro::t _$args17346_))) (define __special-form::t (let () (declare (not safe)) @@ -188,8 +188,8 @@ (define __special-form? (let () (declare (not safe)) (make-struct-predicate __special-form::t))) (define make-__special-form - (lambda _$args15361_ - (apply make-struct-instance __special-form::t _$args15361_))) + (lambda _$args17343_ + (apply make-struct-instance __special-form::t _$args17343_))) (define __core-form::t (let () (declare (not safe)) @@ -204,8 +204,8 @@ (define __core-form? (let () (declare (not safe)) (make-struct-predicate __core-form::t))) (define make-__core-form - (lambda _$args15358_ - (apply make-struct-instance __core-form::t _$args15358_))) + (lambda _$args17340_ + (apply make-struct-instance __core-form::t _$args17340_))) (define __core-expression::t (let () (declare (not safe)) @@ -222,8 +222,8 @@ (declare (not safe)) (make-struct-predicate __core-expression::t))) (define make-__core-expression - (lambda _$args15355_ - (apply make-struct-instance __core-expression::t _$args15355_))) + (lambda _$args17337_ + (apply make-struct-instance __core-expression::t _$args17337_))) (define __core-special-form::t (let () (declare (not safe)) @@ -240,8 +240,8 @@ (declare (not safe)) (make-struct-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _$args15352_ - (apply make-struct-instance __core-special-form::t _$args15352_))) + (lambda _$args17334_ + (apply make-struct-instance __core-special-form::t _$args17334_))) (define __struct-info::t (let () (declare (not safe)) @@ -256,8 +256,8 @@ (define __struct-info? (let () (declare (not safe)) (make-struct-predicate __struct-info::t))) (define make-__struct-info - (lambda _$args15349_ - (apply make-struct-instance __struct-info::t _$args15349_))) + (lambda _$args17331_ + (apply make-struct-instance __struct-info::t _$args17331_))) (define __feature::t (let () (declare (not safe)) @@ -272,8 +272,8 @@ (define __feature? (let () (declare (not safe)) (make-struct-predicate __feature::t))) (define make-__feature - (lambda _$args15346_ - (apply make-struct-instance __feature::t _$args15346_))) + (lambda _$args17328_ + (apply make-struct-instance __feature::t _$args17328_))) (define __module::t (let () (declare (not safe)) @@ -288,8 +288,8 @@ (define __module? (let () (declare (not safe)) (make-struct-predicate __module::t))) (define make-__module - (lambda _$args15343_ - (apply make-struct-instance __module::t _$args15343_))) + (lambda _$args17325_ + (apply make-struct-instance __module::t _$args17325_))) (define __module-id (let () (declare (not safe)) @@ -349,717 +349,717 @@ (define __*modules* (let () (declare (not safe)) (make-table))) (define __*core* (let () (declare (not safe)) (make-table 'test: eq?))) (define __*top* - (let ((__tmp15559 + (let ((__tmp17541 (let () (declare (not safe)) (##structure __context::t 'root '#f '#f __*core*))) - (__tmp15558 (let () (declare (not safe)) (make-table 'test: eq?)))) + (__tmp17540 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'top '#f __tmp15559 __tmp15558))) + (##structure __context::t 'top '#f __tmp17541 __tmp17540))) (define __current-expander (make-parameter '#f)) (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve__% - (lambda (_id15318_ _ctx15319_) - (if _ctx15319_ - (let ((_id15321_ - (let () (declare (not safe)) (__AST-e _id15318_)))) - (let _lp15323_ ((_ctx15325_ _ctx15319_)) - (let ((_$e15327_ + (lambda (_id17300_ _ctx17301_) + (if _ctx17301_ + (let ((_id17303_ + (let () (declare (not safe)) (__AST-e _id17300_)))) + (let _lp17305_ ((_ctx17307_ _ctx17301_)) + (let ((_$e17309_ (table-ref - (##structure-ref _ctx15325_ '4 __context::t '#f) - _id15321_ + (##structure-ref _ctx17307_ '4 __context::t '#f) + _id17303_ '#f))) - (if _$e15327_ - (values _$e15327_) - (let ((_$e15330_ - (##structure-ref _ctx15325_ '3 __context::t '#f))) - (if _$e15330_ - (let () (declare (not safe)) (_lp15323_ _$e15330_)) + (if _$e17309_ + (values _$e17309_) + (let ((_$e17312_ + (##structure-ref _ctx17307_ '3 __context::t '#f))) + (if _$e17312_ + (let () (declare (not safe)) (_lp17305_ _$e17312_)) '#f)))))) '#f))) (define __core-resolve__0 - (lambda (_id15336_) - (let ((_ctx15338_ (__current-context))) + (lambda (_id17318_) + (let ((_ctx17320_ (__current-context))) (declare (not safe)) - (__core-resolve__% _id15336_ _ctx15338_)))) + (__core-resolve__% _id17318_ _ctx17320_)))) (define __core-resolve - (lambda _g15561_ - (let ((_g15560_ (let () (declare (not safe)) (##length _g15561_)))) - (cond ((let () (declare (not safe)) (##fx= _g15560_ 1)) - (apply (lambda (_id15336_) + (lambda _g17543_ + (let ((_g17542_ (let () (declare (not safe)) (##length _g17543_)))) + (cond ((let () (declare (not safe)) (##fx= _g17542_ 1)) + (apply (lambda (_id17318_) (let () (declare (not safe)) - (__core-resolve__0 _id15336_))) - _g15561_)) - ((let () (declare (not safe)) (##fx= _g15560_ 2)) - (apply (lambda (_id15340_ _ctx15341_) + (__core-resolve__0 _id17318_))) + _g17543_)) + ((let () (declare (not safe)) (##fx= _g17542_ 2)) + (apply (lambda (_id17322_ _ctx17323_) (let () (declare (not safe)) - (__core-resolve__% _id15340_ _ctx15341_))) - _g15561_)) + (__core-resolve__% _id17322_ _ctx17323_))) + _g17543_)) (else (##raise-wrong-number-of-arguments-exception __core-resolve - _g15561_)))))) + _g17543_)))))) (define __core-bound-id?__% - (lambda (_id15301_ _is?15302_) - (let ((_$e15304_ - (let () (declare (not safe)) (__core-resolve__0 _id15301_)))) - (if _$e15304_ (_is?15302_ _$e15304_) '#f)))) + (lambda (_id17283_ _is?17284_) + (let ((_$e17286_ + (let () (declare (not safe)) (__core-resolve__0 _id17283_)))) + (if _$e17286_ (_is?17284_ _$e17286_) '#f)))) (define __core-bound-id?__0 - (lambda (_id15310_) - (let ((_is?15312_ true)) + (lambda (_id17292_) + (let ((_is?17294_ true)) (declare (not safe)) - (__core-bound-id?__% _id15310_ _is?15312_)))) + (__core-bound-id?__% _id17292_ _is?17294_)))) (define __core-bound-id? - (lambda _g15563_ - (let ((_g15562_ (let () (declare (not safe)) (##length _g15563_)))) - (cond ((let () (declare (not safe)) (##fx= _g15562_ 1)) - (apply (lambda (_id15310_) + (lambda _g17545_ + (let ((_g17544_ (let () (declare (not safe)) (##length _g17545_)))) + (cond ((let () (declare (not safe)) (##fx= _g17544_ 1)) + (apply (lambda (_id17292_) (let () (declare (not safe)) - (__core-bound-id?__0 _id15310_))) - _g15563_)) - ((let () (declare (not safe)) (##fx= _g15562_ 2)) - (apply (lambda (_id15314_ _is?15315_) + (__core-bound-id?__0 _id17292_))) + _g17545_)) + ((let () (declare (not safe)) (##fx= _g17544_ 2)) + (apply (lambda (_id17296_ _is?17297_) (let () (declare (not safe)) - (__core-bound-id?__% _id15314_ _is?15315_))) - _g15563_)) + (__core-bound-id?__% _id17296_ _is?17297_))) + _g17545_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g15563_)))))) + _g17545_)))))) (define __core-bind-runtime!__% - (lambda (_id15284_ _eid15285_ _ctx15286_) - (if _eid15285_ - (let ((__tmp15566 (##structure-ref _ctx15286_ '4 __context::t '#f)) - (__tmp15565 - (let () (declare (not safe)) (__AST-e _id15284_))) - (__tmp15564 + (lambda (_id17266_ _eid17267_ _ctx17268_) + (if _eid17267_ + (let ((__tmp17548 (##structure-ref _ctx17268_ '4 __context::t '#f)) + (__tmp17547 + (let () (declare (not safe)) (__AST-e _id17266_))) + (__tmp17546 (let () (declare (not safe)) - (##structure __runtime::t _eid15285_)))) + (##structure __runtime::t _eid17267_)))) (declare (not safe)) - (table-set! __tmp15566 __tmp15565 __tmp15564)) + (table-set! __tmp17548 __tmp17547 __tmp17546)) '#!void))) (define __core-bind-runtime!__0 - (lambda (_id15291_ _eid15292_) - (let ((_ctx15294_ (__current-context))) + (lambda (_id17273_ _eid17274_) + (let ((_ctx17276_ (__current-context))) (declare (not safe)) - (__core-bind-runtime!__% _id15291_ _eid15292_ _ctx15294_)))) + (__core-bind-runtime!__% _id17273_ _eid17274_ _ctx17276_)))) (define __core-bind-runtime! - (lambda _g15568_ - (let ((_g15567_ (let () (declare (not safe)) (##length _g15568_)))) - (cond ((let () (declare (not safe)) (##fx= _g15567_ 2)) - (apply (lambda (_id15291_ _eid15292_) + (lambda _g17550_ + (let ((_g17549_ (let () (declare (not safe)) (##length _g17550_)))) + (cond ((let () (declare (not safe)) (##fx= _g17549_ 2)) + (apply (lambda (_id17273_ _eid17274_) (let () (declare (not safe)) - (__core-bind-runtime!__0 _id15291_ _eid15292_))) - _g15568_)) - ((let () (declare (not safe)) (##fx= _g15567_ 3)) - (apply (lambda (_id15296_ _eid15297_ _ctx15298_) + (__core-bind-runtime!__0 _id17273_ _eid17274_))) + _g17550_)) + ((let () (declare (not safe)) (##fx= _g17549_ 3)) + (apply (lambda (_id17278_ _eid17279_ _ctx17280_) (let () (declare (not safe)) (__core-bind-runtime!__% - _id15296_ - _eid15297_ - _ctx15298_))) - _g15568_)) + _id17278_ + _eid17279_ + _ctx17280_))) + _g17550_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-runtime! - _g15568_)))))) + _g17550_)))))) (define __core-bind-syntax!__% - (lambda (_id15267_ _e15268_ _make15269_) - (let ((__tmp15569 + (lambda (_id17249_ _e17250_ _make17251_) + (let ((__tmp17551 (if (let () (declare (not safe)) (##structure-instance-of? - _e15268_ + _e17250_ 'gerbil/runtime/eval#__syntax::t)) - _e15268_ - (_make15269_ _e15268_ _id15267_)))) + _e17250_ + (_make17251_ _e17250_ _id17249_)))) (declare (not safe)) - (table-set! __*core* _id15267_ __tmp15569)))) + (table-set! __*core* _id17249_ __tmp17551)))) (define __core-bind-syntax!__0 - (lambda (_id15274_ _e15275_) - (let ((_make15277_ make-__syntax)) + (lambda (_id17256_ _e17257_) + (let ((_make17259_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id15274_ _e15275_ _make15277_)))) + (__core-bind-syntax!__% _id17256_ _e17257_ _make17259_)))) (define __core-bind-syntax! - (lambda _g15571_ - (let ((_g15570_ (let () (declare (not safe)) (##length _g15571_)))) - (cond ((let () (declare (not safe)) (##fx= _g15570_ 2)) - (apply (lambda (_id15274_ _e15275_) + (lambda _g17553_ + (let ((_g17552_ (let () (declare (not safe)) (##length _g17553_)))) + (cond ((let () (declare (not safe)) (##fx= _g17552_ 2)) + (apply (lambda (_id17256_ _e17257_) (let () (declare (not safe)) - (__core-bind-syntax!__0 _id15274_ _e15275_))) - _g15571_)) - ((let () (declare (not safe)) (##fx= _g15570_ 3)) - (apply (lambda (_id15279_ _e15280_ _make15281_) + (__core-bind-syntax!__0 _id17256_ _e17257_))) + _g17553_)) + ((let () (declare (not safe)) (##fx= _g17552_ 3)) + (apply (lambda (_id17261_ _e17262_ _make17263_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id15279_ - _e15280_ - _make15281_))) - _g15571_)) + _id17261_ + _e17262_ + _make17263_))) + _g17553_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g15571_)))))) + _g17553_)))))) (define __core-bind-macro! - (lambda (_id15263_ _e15264_) + (lambda (_id17245_ _e17246_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id15263_ _e15264_ make-__macro)))) + (__core-bind-syntax!__% _id17245_ _e17246_ make-__macro)))) (define __core-bind-special-form! - (lambda (_id15260_ _e15261_) + (lambda (_id17242_ _e17243_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id15260_ _e15261_ make-__special-form)))) + (__core-bind-syntax!__% _id17242_ _e17243_ make-__special-form)))) (define __core-bind-user-syntax!__% - (lambda (_id15244_ _e15245_ _ctx15246_) - (let ((__tmp15575 (##structure-ref _ctx15246_ '4 __context::t '#f)) - (__tmp15574 (let () (declare (not safe)) (__AST-e _id15244_))) - (__tmp15572 + (lambda (_id17226_ _e17227_ _ctx17228_) + (let ((__tmp17557 (##structure-ref _ctx17228_ '4 __context::t '#f)) + (__tmp17556 (let () (declare (not safe)) (__AST-e _id17226_))) + (__tmp17554 (if (let () (declare (not safe)) (##structure-instance-of? - _e15245_ + _e17227_ 'gerbil/runtime/eval#__syntax::t)) - _e15245_ - (let ((__tmp15573 - (let () (declare (not safe)) (__AST-e _id15244_)))) + _e17227_ + (let ((__tmp17555 + (let () (declare (not safe)) (__AST-e _id17226_)))) (declare (not safe)) - (##structure __syntax::t _e15245_ __tmp15573))))) + (##structure __syntax::t _e17227_ __tmp17555))))) (declare (not safe)) - (table-set! __tmp15575 __tmp15574 __tmp15572)))) + (table-set! __tmp17557 __tmp17556 __tmp17554)))) (define __core-bind-user-syntax!__0 - (lambda (_id15251_ _e15252_) - (let ((_ctx15254_ (__current-context))) + (lambda (_id17233_ _e17234_) + (let ((_ctx17236_ (__current-context))) (declare (not safe)) - (__core-bind-user-syntax!__% _id15251_ _e15252_ _ctx15254_)))) + (__core-bind-user-syntax!__% _id17233_ _e17234_ _ctx17236_)))) (define __core-bind-user-syntax! - (lambda _g15577_ - (let ((_g15576_ (let () (declare (not safe)) (##length _g15577_)))) - (cond ((let () (declare (not safe)) (##fx= _g15576_ 2)) - (apply (lambda (_id15251_ _e15252_) + (lambda _g17559_ + (let ((_g17558_ (let () (declare (not safe)) (##length _g17559_)))) + (cond ((let () (declare (not safe)) (##fx= _g17558_ 2)) + (apply (lambda (_id17233_ _e17234_) (let () (declare (not safe)) - (__core-bind-user-syntax!__0 _id15251_ _e15252_))) - _g15577_)) - ((let () (declare (not safe)) (##fx= _g15576_ 3)) - (apply (lambda (_id15256_ _e15257_ _ctx15258_) + (__core-bind-user-syntax!__0 _id17233_ _e17234_))) + _g17559_)) + ((let () (declare (not safe)) (##fx= _g17558_ 3)) + (apply (lambda (_id17238_ _e17239_ _ctx17240_) (let () (declare (not safe)) (__core-bind-user-syntax!__% - _id15256_ - _e15257_ - _ctx15258_))) - _g15577_)) + _id17238_ + _e17239_ + _ctx17240_))) + _g17559_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-user-syntax! - _g15577_)))))) + _g17559_)))))) (define make-__runtime-id__% - (lambda (_id15225_ _ctx15226_) - (let ((_id15228_ (let () (declare (not safe)) (__AST-e _id15225_)))) - (if (let () (declare (not safe)) (eq? _id15228_ '_)) + (lambda (_id17207_ _ctx17208_) + (let ((_id17210_ (let () (declare (not safe)) (__AST-e _id17207_)))) + (if (let () (declare (not safe)) (eq? _id17210_ '_)) '#f - (if (uninterned-symbol? _id15228_) - (gensym _id15228_) - (if (let () (declare (not safe)) (symbol? _id15228_)) - (let ((_$e15230_ - (##structure-ref _ctx15226_ '1 __context::t '#f))) + (if (uninterned-symbol? _id17210_) + (gensym _id17210_) + (if (let () (declare (not safe)) (symbol? _id17210_)) + (let ((_$e17212_ + (##structure-ref _ctx17208_ '1 __context::t '#f))) (if (let () (declare (not safe)) - (eq? 'local _$e15230_)) - (gensym _id15228_) + (eq? 'local _$e17212_)) + (gensym _id17210_) (if (let () (declare (not safe)) - (eq? 'module _$e15230_)) - (let ((__tmp15578 + (eq? 'module _$e17212_)) + (let ((__tmp17560 (##structure-ref - _ctx15226_ + _ctx17208_ '2 __context::t '#f))) (declare (not safe)) - (make-symbol__1 __tmp15578 '"#" _id15228_)) - _id15228_))) - (error '"Illegal runtime identifier" _id15228_))))))) + (make-symbol__1 __tmp17560 '"#" _id17210_)) + _id17210_))) + (error '"Illegal runtime identifier" _id17210_))))))) (define make-__runtime-id__0 - (lambda (_id15236_) - (let ((_ctx15238_ (__current-context))) + (lambda (_id17218_) + (let ((_ctx17220_ (__current-context))) (declare (not safe)) - (make-__runtime-id__% _id15236_ _ctx15238_)))) + (make-__runtime-id__% _id17218_ _ctx17220_)))) (define make-__runtime-id - (lambda _g15580_ - (let ((_g15579_ (let () (declare (not safe)) (##length _g15580_)))) - (cond ((let () (declare (not safe)) (##fx= _g15579_ 1)) - (apply (lambda (_id15236_) + (lambda _g17562_ + (let ((_g17561_ (let () (declare (not safe)) (##length _g17562_)))) + (cond ((let () (declare (not safe)) (##fx= _g17561_ 1)) + (apply (lambda (_id17218_) (let () (declare (not safe)) - (make-__runtime-id__0 _id15236_))) - _g15580_)) - ((let () (declare (not safe)) (##fx= _g15579_ 2)) - (apply (lambda (_id15240_ _ctx15241_) + (make-__runtime-id__0 _id17218_))) + _g17562_)) + ((let () (declare (not safe)) (##fx= _g17561_ 2)) + (apply (lambda (_id17222_ _ctx17223_) (let () (declare (not safe)) - (make-__runtime-id__% _id15240_ _ctx15241_))) - _g15580_)) + (make-__runtime-id__% _id17222_ _ctx17223_))) + _g17562_)) (else (##raise-wrong-number-of-arguments-exception make-__runtime-id - _g15580_)))))) + _g17562_)))))) (define make-__context-local__% - (lambda (_super15214_) - (let ((__tmp15581 + (lambda (_super17196_) + (let ((__tmp17563 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'local '#f _super15214_ __tmp15581)))) + (##structure __context::t 'local '#f _super17196_ __tmp17563)))) (define make-__context-local__0 (lambda () - (let ((_super15220_ (__current-context))) + (let ((_super17202_ (__current-context))) (declare (not safe)) - (make-__context-local__% _super15220_)))) + (make-__context-local__% _super17202_)))) (define make-__context-local - (lambda _g15583_ - (let ((_g15582_ (let () (declare (not safe)) (##length _g15583_)))) - (cond ((let () (declare (not safe)) (##fx= _g15582_ 0)) + (lambda _g17565_ + (let ((_g17564_ (let () (declare (not safe)) (##length _g17565_)))) + (cond ((let () (declare (not safe)) (##fx= _g17564_ 0)) (apply (lambda () (let () (declare (not safe)) (make-__context-local__0))) - _g15583_)) - ((let () (declare (not safe)) (##fx= _g15582_ 1)) - (apply (lambda (_super15222_) + _g17565_)) + ((let () (declare (not safe)) (##fx= _g17564_ 1)) + (apply (lambda (_super17204_) (let () (declare (not safe)) - (make-__context-local__% _super15222_))) - _g15583_)) + (make-__context-local__% _super17204_))) + _g17565_)) (else (##raise-wrong-number-of-arguments-exception make-__context-local - _g15583_)))))) + _g17565_)))))) (define make-__context-module__% - (lambda (_id15194_ _ns15195_ _path15196_ _super15197_) - (let ((__tmp15584 + (lambda (_id17176_ _ns17177_ _path17178_ _super17179_) + (let ((__tmp17566 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) (##structure __module::t 'module - _ns15195_ - _super15197_ - __tmp15584 - _id15194_ - _path15196_ + _ns17177_ + _super17179_ + __tmp17566 + _id17176_ + _path17178_ '#f '#f)))) (define make-__context-module__0 - (lambda (_id15202_ _ns15203_ _path15204_) - (let ((_super15206_ (__current-context))) + (lambda (_id17184_ _ns17185_ _path17186_) + (let ((_super17188_ (__current-context))) (declare (not safe)) (make-__context-module__% - _id15202_ - _ns15203_ - _path15204_ - _super15206_)))) + _id17184_ + _ns17185_ + _path17186_ + _super17188_)))) (define make-__context-module - (lambda _g15586_ - (let ((_g15585_ (let () (declare (not safe)) (##length _g15586_)))) - (cond ((let () (declare (not safe)) (##fx= _g15585_ 3)) - (apply (lambda (_id15202_ _ns15203_ _path15204_) + (lambda _g17568_ + (let ((_g17567_ (let () (declare (not safe)) (##length _g17568_)))) + (cond ((let () (declare (not safe)) (##fx= _g17567_ 3)) + (apply (lambda (_id17184_ _ns17185_ _path17186_) (let () (declare (not safe)) (make-__context-module__0 - _id15202_ - _ns15203_ - _path15204_))) - _g15586_)) - ((let () (declare (not safe)) (##fx= _g15585_ 4)) - (apply (lambda (_id15208_ _ns15209_ _path15210_ _super15211_) + _id17184_ + _ns17185_ + _path17186_))) + _g17568_)) + ((let () (declare (not safe)) (##fx= _g17567_ 4)) + (apply (lambda (_id17190_ _ns17191_ _path17192_ _super17193_) (let () (declare (not safe)) (make-__context-module__% - _id15208_ - _ns15209_ - _path15210_ - _super15211_))) - _g15586_)) + _id17190_ + _ns17191_ + _path17192_ + _super17193_))) + _g17568_)) (else (##raise-wrong-number-of-arguments-exception make-__context-module - _g15586_)))))) + _g17568_)))))) (define __SRC__% - (lambda (_e15177_ _src-stx15178_) - (if (or (let () (declare (not safe)) (pair? _e15177_)) - (let () (declare (not safe)) (symbol? _e15177_))) - (let ((__tmp15590 + (lambda (_e17159_ _src-stx17160_) + (if (or (let () (declare (not safe)) (pair? _e17159_)) + (let () (declare (not safe)) (symbol? _e17159_))) + (let ((__tmp17572 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx15178_ + _src-stx17160_ 'gerbil#AST::t)) - (let ((__tmp15591 + (let ((__tmp17573 (let () (declare (not safe)) - (__AST-source _src-stx15178_)))) + (__AST-source _src-stx17160_)))) (declare (not safe)) - (__locat __tmp15591)) + (__locat __tmp17573)) '#f))) (declare (not safe)) - (##make-source _e15177_ __tmp15590)) + (##make-source _e17159_ __tmp17572)) (if (let () (declare (not safe)) - (##structure-instance-of? _e15177_ 'gerbil#AST::t)) - (let ((__tmp15589 + (##structure-instance-of? _e17159_ 'gerbil#AST::t)) + (let ((__tmp17571 (let () (declare (not safe)) - (##unchecked-structure-ref _e15177_ '1 AST::t '#f))) - (__tmp15587 - (let ((__tmp15588 + (##unchecked-structure-ref _e17159_ '1 AST::t '#f))) + (__tmp17569 + (let ((__tmp17570 (let () (declare (not safe)) - (__AST-source _e15177_)))) + (__AST-source _e17159_)))) (declare (not safe)) - (__locat __tmp15588)))) + (__locat __tmp17570)))) (declare (not safe)) - (##make-source __tmp15589 __tmp15587)) - (error '"BUG! Cannot sourcify object" _e15177_))))) + (##make-source __tmp17571 __tmp17569)) + (error '"BUG! Cannot sourcify object" _e17159_))))) (define __SRC__0 - (lambda (_e15186_) - (let ((_src-stx15188_ '#f)) + (lambda (_e17168_) + (let ((_src-stx17170_ '#f)) (declare (not safe)) - (__SRC__% _e15186_ _src-stx15188_)))) + (__SRC__% _e17168_ _src-stx17170_)))) (define __SRC - (lambda _g15593_ - (let ((_g15592_ (let () (declare (not safe)) (##length _g15593_)))) - (cond ((let () (declare (not safe)) (##fx= _g15592_ 1)) - (apply (lambda (_e15186_) - (let () (declare (not safe)) (__SRC__0 _e15186_))) - _g15593_)) - ((let () (declare (not safe)) (##fx= _g15592_ 2)) - (apply (lambda (_e15190_ _src-stx15191_) + (lambda _g17575_ + (let ((_g17574_ (let () (declare (not safe)) (##length _g17575_)))) + (cond ((let () (declare (not safe)) (##fx= _g17574_ 1)) + (apply (lambda (_e17168_) + (let () (declare (not safe)) (__SRC__0 _e17168_))) + _g17575_)) + ((let () (declare (not safe)) (##fx= _g17574_ 2)) + (apply (lambda (_e17172_ _src-stx17173_) (let () (declare (not safe)) - (__SRC__% _e15190_ _src-stx15191_))) - _g15593_)) + (__SRC__% _e17172_ _src-stx17173_))) + _g17575_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g15593_)))))) + _g17575_)))))) (define __locat - (lambda (_loc15174_) - (if (let () (declare (not safe)) (##locat? _loc15174_)) - _loc15174_ + (lambda (_loc17156_) + (if (let () (declare (not safe)) (##locat? _loc17156_)) + _loc17156_ '#f))) (define __check-values - (lambda (_obj15169_ _k15170_) - (let ((_count15172_ - (if (let () (declare (not safe)) (##values? _obj15169_)) - (let () (declare (not safe)) (##vector-length _obj15169_)) + (lambda (_obj17151_ _k17152_) + (let ((_count17154_ + (if (let () (declare (not safe)) (##values? _obj17151_)) + (let () (declare (not safe)) (##vector-length _obj17151_)) '1))) - (if (fx= _count15172_ _k15170_) + (if (fx= _count17154_ _k17152_) '#!void - (error (if (fx< _count15172_ _k15170_) + (error (if (fx< _count17154_ _k17152_) '"Too few values for context" '"Too many values for context") - (if (let () (declare (not safe)) (##values? _obj15169_)) + (if (let () (declare (not safe)) (##values? _obj17151_)) (let () (declare (not safe)) - (##vector->list _obj15169_)) - _obj15169_) - _k15170_))))) + (##vector->list _obj17151_)) + _obj17151_) + _k17152_))))) (define __compile - (lambda (_stx15139_) - (let* ((_$e15141_ _stx15139_) - (_$E1514315149_ + (lambda (_stx17121_) + (let* ((_$e17123_ _stx17121_) + (_$E1712517131_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e15141_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15141_)) - (let* ((_$tgt1514415152_ - (let () (declare (not safe)) (__AST-e _$e15141_))) - (_$hd1514515155_ - (let () (declare (not safe)) (##car _$tgt1514415152_))) - (_$tl1514615158_ - (let () (declare (not safe)) (##cdr _$tgt1514415152_)))) - (let* ((_form15162_ _$hd1514515155_) - (_$e15164_ + _$e17123_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17123_)) + (let* ((_$tgt1712617134_ + (let () (declare (not safe)) (__AST-e _$e17123_))) + (_$hd1712717137_ + (let () (declare (not safe)) (##car _$tgt1712617134_))) + (_$tl1712817140_ + (let () (declare (not safe)) (##cdr _$tgt1712617134_)))) + (let* ((_form17144_ _$hd1712717137_) + (_$e17146_ (let () (declare (not safe)) - (__core-resolve__0 _form15162_)))) - (if _$e15164_ - ((lambda (_bind15167_) - ((##structure-ref _bind15167_ '1 __syntax::t '#f) - _stx15139_)) - _$e15164_) + (__core-resolve__0 _form17144_)))) + (if _$e17146_ + ((lambda (_bind17149_) + ((##structure-ref _bind17149_ '1 __syntax::t '#f) + _stx17121_)) + _$e17146_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _stx15139_ - _form15162_))))) - (let () (declare (not safe)) (_$E1514315149_)))))) + _stx17121_ + _form17144_))))) + (let () (declare (not safe)) (_$E1712517131_)))))) (define __compile-error__% - (lambda (_stx15126_ _detail15127_) + (lambda (_stx17108_ _detail17109_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx15126_ - _detail15127_)))) + _stx17108_ + _detail17109_)))) (define __compile-error__0 - (lambda (_stx15132_) - (let ((_detail15134_ '#f)) + (lambda (_stx17114_) + (let ((_detail17116_ '#f)) (declare (not safe)) - (__compile-error__% _stx15132_ _detail15134_)))) + (__compile-error__% _stx17114_ _detail17116_)))) (define __compile-error - (lambda _g15595_ - (let ((_g15594_ (let () (declare (not safe)) (##length _g15595_)))) - (cond ((let () (declare (not safe)) (##fx= _g15594_ 1)) - (apply (lambda (_stx15132_) + (lambda _g17577_ + (let ((_g17576_ (let () (declare (not safe)) (##length _g17577_)))) + (cond ((let () (declare (not safe)) (##fx= _g17576_ 1)) + (apply (lambda (_stx17114_) (let () (declare (not safe)) - (__compile-error__0 _stx15132_))) - _g15595_)) - ((let () (declare (not safe)) (##fx= _g15594_ 2)) - (apply (lambda (_stx15136_ _detail15137_) + (__compile-error__0 _stx17114_))) + _g17577_)) + ((let () (declare (not safe)) (##fx= _g17576_ 2)) + (apply (lambda (_stx17118_ _detail17119_) (let () (declare (not safe)) - (__compile-error__% _stx15136_ _detail15137_))) - _g15595_)) + (__compile-error__% _stx17118_ _detail17119_))) + _g17577_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g15595_)))))) + _g17577_)))))) (define __compile-ignore% - (lambda (_stx15123_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx15123_)))) + (lambda (_stx17105_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx17105_)))) (define __compile-begin% - (lambda (_stx15098_) - (let* ((_$e15100_ _stx15098_) - (_$E1510215108_ + (lambda (_stx17080_) + (let* ((_$e17082_ _stx17080_) + (_$E1708417090_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e15100_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15100_)) - (let* ((_$tgt1510315111_ - (let () (declare (not safe)) (__AST-e _$e15100_))) - (_$hd1510415114_ - (let () (declare (not safe)) (##car _$tgt1510315111_))) - (_$tl1510515117_ - (let () (declare (not safe)) (##cdr _$tgt1510315111_)))) - (let* ((_body15121_ _$tl1510515117_) - (__tmp15596 - (let ((__tmp15597 (map __compile _body15121_))) + _$e17082_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17082_)) + (let* ((_$tgt1708517093_ + (let () (declare (not safe)) (__AST-e _$e17082_))) + (_$hd1708617096_ + (let () (declare (not safe)) (##car _$tgt1708517093_))) + (_$tl1708717099_ + (let () (declare (not safe)) (##cdr _$tgt1708517093_)))) + (let* ((_body17103_ _$tl1708717099_) + (__tmp17578 + (let ((__tmp17579 (map __compile _body17103_))) (declare (not safe)) - (cons 'begin __tmp15597)))) + (cons 'begin __tmp17579)))) (declare (not safe)) - (__SRC__% __tmp15596 _stx15098_))) - (let () (declare (not safe)) (_$E1510215108_)))))) + (__SRC__% __tmp17578 _stx17080_))) + (let () (declare (not safe)) (_$E1708417090_)))))) (define __compile-begin-foreign% - (lambda (_stx15073_) - (let* ((_$e15075_ _stx15073_) - (_$E1507715083_ + (lambda (_stx17055_) + (let* ((_$e17057_ _stx17055_) + (_$E1705917065_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e15075_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15075_)) - (let* ((_$tgt1507815086_ - (let () (declare (not safe)) (__AST-e _$e15075_))) - (_$hd1507915089_ - (let () (declare (not safe)) (##car _$tgt1507815086_))) - (_$tl1508015092_ - (let () (declare (not safe)) (##cdr _$tgt1507815086_)))) - (let* ((_body15096_ _$tl1508015092_) - (__tmp15598 - (let ((__tmp15599 + _$e17057_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17057_)) + (let* ((_$tgt1706017068_ + (let () (declare (not safe)) (__AST-e _$e17057_))) + (_$hd1706117071_ + (let () (declare (not safe)) (##car _$tgt1706017068_))) + (_$tl1706217074_ + (let () (declare (not safe)) (##cdr _$tgt1706017068_)))) + (let* ((_body17078_ _$tl1706217074_) + (__tmp17580 + (let ((__tmp17581 (let () (declare (not safe)) - (__AST->datum _body15096_)))) + (__AST->datum _body17078_)))) (declare (not safe)) - (cons 'begin __tmp15599)))) + (cons 'begin __tmp17581)))) (declare (not safe)) - (__SRC__% __tmp15598 _stx15073_))) - (let () (declare (not safe)) (_$E1507715083_)))))) + (__SRC__% __tmp17580 _stx17055_))) + (let () (declare (not safe)) (_$E1705917065_)))))) (define __compile-import% - (lambda (_stx15048_) - (let* ((_$e15050_ _stx15048_) - (_$E1505215058_ + (lambda (_stx17030_) + (let* ((_$e17032_ _stx17030_) + (_$E1703417040_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e15050_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15050_)) - (let* ((_$tgt1505315061_ - (let () (declare (not safe)) (__AST-e _$e15050_))) - (_$hd1505415064_ - (let () (declare (not safe)) (##car _$tgt1505315061_))) - (_$tl1505515067_ - (let () (declare (not safe)) (##cdr _$tgt1505315061_)))) - (let* ((_body15071_ _$tl1505515067_) - (__tmp15600 - (let ((__tmp15601 - (let ((__tmp15602 - (let ((__tmp15603 + _$e17032_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17032_)) + (let* ((_$tgt1703517043_ + (let () (declare (not safe)) (__AST-e _$e17032_))) + (_$hd1703617046_ + (let () (declare (not safe)) (##car _$tgt1703517043_))) + (_$tl1703717049_ + (let () (declare (not safe)) (##cdr _$tgt1703517043_)))) + (let* ((_body17053_ _$tl1703717049_) + (__tmp17582 + (let ((__tmp17583 + (let ((__tmp17584 + (let ((__tmp17585 (let () (declare (not safe)) - (cons _body15071_ '())))) + (cons _body17053_ '())))) (declare (not safe)) - (cons 'quote __tmp15603)))) + (cons 'quote __tmp17585)))) (declare (not safe)) - (cons __tmp15602 '())))) + (cons __tmp17584 '())))) (declare (not safe)) - (cons '__eval-import __tmp15601)))) + (cons '__eval-import __tmp17583)))) (declare (not safe)) - (__SRC__% __tmp15600 _stx15048_))) - (let () (declare (not safe)) (_$E1505215058_)))))) + (__SRC__% __tmp17582 _stx17030_))) + (let () (declare (not safe)) (_$E1703417040_)))))) (define __compile-begin-annotation% - (lambda (_stx14995_) - (let* ((_$e14997_ _stx14995_) - (_$E1499915011_ + (lambda (_stx16977_) + (let* ((_$e16979_ _stx16977_) + (_$E1698116993_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14997_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e14997_)) - (let* ((_$tgt1500015014_ - (let () (declare (not safe)) (__AST-e _$e14997_))) - (_$hd1500115017_ - (let () (declare (not safe)) (##car _$tgt1500015014_))) - (_$tl1500215020_ - (let () (declare (not safe)) (##cdr _$tgt1500015014_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1500215020_)) - (let* ((_$tgt1500315024_ + _$e16979_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16979_)) + (let* ((_$tgt1698216996_ + (let () (declare (not safe)) (__AST-e _$e16979_))) + (_$hd1698316999_ + (let () (declare (not safe)) (##car _$tgt1698216996_))) + (_$tl1698417002_ + (let () (declare (not safe)) (##cdr _$tgt1698216996_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1698417002_)) + (let* ((_$tgt1698517006_ (let () (declare (not safe)) - (__AST-e _$tl1500215020_))) - (_$hd1500415027_ + (__AST-e _$tl1698417002_))) + (_$hd1698617009_ (let () (declare (not safe)) - (##car _$tgt1500315024_))) - (_$tl1500515030_ + (##car _$tgt1698517006_))) + (_$tl1698717012_ (let () (declare (not safe)) - (##cdr _$tgt1500315024_)))) - (let ((_ann15034_ _$hd1500415027_)) + (##cdr _$tgt1698517006_)))) + (let ((_ann17016_ _$hd1698617009_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1500515030_)) - (let* ((_$tgt1500615036_ + (__AST-pair? _$tl1698717012_)) + (let* ((_$tgt1698817018_ (let () (declare (not safe)) - (__AST-e _$tl1500515030_))) - (_$hd1500715039_ + (__AST-e _$tl1698717012_))) + (_$hd1698917021_ (let () (declare (not safe)) - (##car _$tgt1500615036_))) - (_$tl1500815042_ + (##car _$tgt1698817018_))) + (_$tl1699017024_ (let () (declare (not safe)) - (##cdr _$tgt1500615036_)))) - (let ((_expr15046_ _$hd1500715039_)) - (if (let ((__tmp15604 + (##cdr _$tgt1698817018_)))) + (let ((_expr17028_ _$hd1698917021_)) + (if (let ((__tmp17586 (let () (declare (not safe)) - (__AST-e _$tl1500815042_)))) + (__AST-e _$tl1699017024_)))) (declare (not safe)) - (equal? __tmp15604 '())) + (equal? __tmp17586 '())) (let () (declare (not safe)) - (__compile _expr15046_)) + (__compile _expr17028_)) (let () (declare (not safe)) - (_$E1499915011_))))) - (let () (declare (not safe)) (_$E1499915011_))))) - (let () (declare (not safe)) (_$E1499915011_)))) - (let () (declare (not safe)) (_$E1499915011_)))))) + (_$E1698116993_))))) + (let () (declare (not safe)) (_$E1698116993_))))) + (let () (declare (not safe)) (_$E1698116993_)))) + (let () (declare (not safe)) (_$E1698116993_)))))) (define __compile-define-values% - (lambda (_stx14886_) - (let* ((_$e14888_ _stx14886_) - (_$E1489014902_ + (lambda (_stx16868_) + (let* ((_$e16870_ _stx16868_) + (_$E1687216884_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14888_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e14888_)) - (let* ((_$tgt1489114905_ - (let () (declare (not safe)) (__AST-e _$e14888_))) - (_$hd1489214908_ - (let () (declare (not safe)) (##car _$tgt1489114905_))) - (_$tl1489314911_ - (let () (declare (not safe)) (##cdr _$tgt1489114905_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1489314911_)) - (let* ((_$tgt1489414915_ + _$e16870_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16870_)) + (let* ((_$tgt1687316887_ + (let () (declare (not safe)) (__AST-e _$e16870_))) + (_$hd1687416890_ + (let () (declare (not safe)) (##car _$tgt1687316887_))) + (_$tl1687516893_ + (let () (declare (not safe)) (##cdr _$tgt1687316887_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1687516893_)) + (let* ((_$tgt1687616897_ (let () (declare (not safe)) - (__AST-e _$tl1489314911_))) - (_$hd1489514918_ + (__AST-e _$tl1687516893_))) + (_$hd1687716900_ (let () (declare (not safe)) - (##car _$tgt1489414915_))) - (_$tl1489614921_ + (##car _$tgt1687616897_))) + (_$tl1687816903_ (let () (declare (not safe)) - (##cdr _$tgt1489414915_)))) - (let ((_hd14925_ _$hd1489514918_)) + (##cdr _$tgt1687616897_)))) + (let ((_hd16907_ _$hd1687716900_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1489614921_)) - (let* ((_$tgt1489714927_ + (__AST-pair? _$tl1687816903_)) + (let* ((_$tgt1687916909_ (let () (declare (not safe)) - (__AST-e _$tl1489614921_))) - (_$hd1489814930_ + (__AST-e _$tl1687816903_))) + (_$hd1688016912_ (let () (declare (not safe)) - (##car _$tgt1489714927_))) - (_$tl1489914933_ + (##car _$tgt1687916909_))) + (_$tl1688116915_ (let () (declare (not safe)) - (##cdr _$tgt1489714927_)))) - (let ((_expr14937_ _$hd1489814930_)) - (if (let ((__tmp15637 + (##cdr _$tgt1687916909_)))) + (let ((_expr16919_ _$hd1688016912_)) + (if (let ((__tmp17619 (let () (declare (not safe)) - (__AST-e _$tl1489914933_)))) + (__AST-e _$tl1688116915_)))) (declare (not safe)) - (equal? __tmp15637 '())) - (let* ((_$e14939_ _hd14925_) - (_$E1494114982_ + (equal? __tmp17619 '())) + (let* ((_$e16921_ _hd16907_) + (_$E1692316964_ (lambda () - (let ((_$E1494214967_ + (let ((_$E1692416949_ (lambda () - (let* ((_$E1494314954_ + (let* ((_$E1692516936_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () @@ -1067,2889 +1067,2889 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14939_)))) - (_ids14957_ _hd14925_) - (_len14959_ (length _ids14957_)) - (_tmp14961_ - (let ((__tmp15605 (gensym))) + _$e16921_)))) + (_ids16939_ _hd16907_) + (_len16941_ (length _ids16939_)) + (_tmp16943_ + (let ((__tmp17587 (gensym))) (declare (not safe)) - (__SRC__0 __tmp15605)))) - (let ((__tmp15606 - (let ((__tmp15607 - (let ((__tmp15624 - (let ((__tmp15625 - (let ((__tmp15626 - (let ((__tmp15627 - (let ((__tmp15628 + (__SRC__0 __tmp17587)))) + (let ((__tmp17588 + (let ((__tmp17589 + (let ((__tmp17606 + (let ((__tmp17607 + (let ((__tmp17608 + (let ((__tmp17609 + (let ((__tmp17610 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr14937_)))) + (__compile _expr16919_)))) (declare (not safe)) - (cons __tmp15628 '())))) + (cons __tmp17610 '())))) (declare (not safe)) - (cons _tmp14961_ __tmp15627)))) + (cons _tmp16943_ __tmp17609)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp15626)))) + (cons 'define __tmp17608)))) (declare (not safe)) - (__SRC__% __tmp15625 _stx14886_))) - (__tmp15608 - (let ((__tmp15620 - (let ((__tmp15621 - (let ((__tmp15622 - (let ((__tmp15623 + (__SRC__% __tmp17607 _stx16868_))) + (__tmp17590 + (let ((__tmp17602 + (let ((__tmp17603 + (let ((__tmp17604 + (let ((__tmp17605 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _len14959_ '())))) + (let () (declare (not safe)) (cons _len16941_ '())))) (declare (not safe)) - (cons _tmp14961_ __tmp15623)))) + (cons _tmp16943_ __tmp17605)))) (declare (not safe)) - (cons '__check-values __tmp15622)))) + (cons '__check-values __tmp17604)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp15621 - _stx14886_))) - (__tmp15609 - (let ((__tmp15610 - (let ((__tmp15612 - (lambda (_id14964_ + __tmp17603 + _stx16868_))) + (__tmp17591 + (let ((__tmp17592 + (let ((__tmp17594 + (lambda (_id16946_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k14965_) - (if (let () (declare (not safe)) (__AST-e _id14964_)) - (let ((__tmp15613 - (let ((__tmp15614 - (let ((__tmp15619 + _k16947_) + (if (let () (declare (not safe)) (__AST-e _id16946_)) + (let ((__tmp17595 + (let ((__tmp17596 + (let ((__tmp17601 (let () (declare (not safe)) - (__SRC__0 _id14964_))) - (__tmp15615 - (let ((__tmp15616 - (let ((__tmp15617 - (let ((__tmp15618 + (__SRC__0 _id16946_))) + (__tmp17597 + (let ((__tmp17598 + (let ((__tmp17599 + (let ((__tmp17600 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k14965_ '())))) + (let () (declare (not safe)) (cons _k16947_ '())))) (declare (not safe)) - (cons _tmp14961_ __tmp15618)))) + (cons _tmp16943_ __tmp17600)))) (declare (not safe)) - (cons '##vector-ref __tmp15617)))) + (cons '##vector-ref __tmp17599)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15616 '())))) + (cons __tmp17598 '())))) (declare (not safe)) - (cons __tmp15619 __tmp15615)))) + (cons __tmp17601 __tmp17597)))) (declare (not safe)) - (cons 'define __tmp15614)))) + (cons 'define __tmp17596)))) (declare (not safe)) - (__SRC__% __tmp15613 _stx14886_)) + (__SRC__% __tmp17595 _stx16868_)) '#f))) - (__tmp15611 (let () (declare (not safe)) (iota _len14959_)))) + (__tmp17593 (let () (declare (not safe)) (iota _len16941_)))) (declare (not safe)) - (filter-map2 __tmp15612 _ids14957_ __tmp15611)))) + (filter-map2 __tmp17594 _ids16939_ __tmp17593)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp15610)))) + (foldr1 cons '() __tmp17592)))) (declare (not safe)) - (cons __tmp15620 __tmp15609)))) + (cons __tmp17602 __tmp17591)))) (declare (not safe)) - (cons __tmp15624 __tmp15608)))) + (cons __tmp17606 __tmp17590)))) (declare (not safe)) - (cons 'begin __tmp15607)))) + (cons 'begin __tmp17589)))) (declare (not safe)) - (__SRC__% __tmp15606 _stx14886_)))))) + (__SRC__% __tmp17588 _stx16868_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e14939_)) - (let* ((_$tgt1494414970_ + (__AST-pair? _$e16921_)) + (let* ((_$tgt1692616952_ (let () (declare (not safe)) - (__AST-e _$e14939_))) - (_$hd1494514973_ + (__AST-e _$e16921_))) + (_$hd1692716955_ (let () (declare (not safe)) - (##car _$tgt1494414970_))) - (_$tl1494614976_ + (##car _$tgt1692616952_))) + (_$tl1692816958_ (let () (declare (not safe)) - (##cdr _$tgt1494414970_)))) - (let ((_id14980_ - _$hd1494514973_)) - (if (let ((__tmp15634 + (##cdr _$tgt1692616952_)))) + (let ((_id16962_ + _$hd1692716955_)) + (if (let ((__tmp17616 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl1494614976_)))) + (__AST-e _$tl1692816958_)))) (declare (not safe)) - (equal? __tmp15634 '())) - (let ((__tmp15629 - (let ((__tmp15630 - (let ((__tmp15633 + (equal? __tmp17616 '())) + (let ((__tmp17611 + (let ((__tmp17612 + (let ((__tmp17615 (let () (declare (not safe)) - (__SRC__0 _id14980_))) - (__tmp15631 - (let ((__tmp15632 + (__SRC__0 _id16962_))) + (__tmp17613 + (let ((__tmp17614 (let () (declare (not safe)) - (__compile _expr14937_)))) + (__compile _expr16919_)))) (declare (not safe)) - (cons __tmp15632 '())))) + (cons __tmp17614 '())))) (declare (not safe)) - (cons __tmp15633 __tmp15631)))) + (cons __tmp17615 __tmp17613)))) (declare (not safe)) - (cons 'define __tmp15630)))) + (cons 'define __tmp17612)))) (declare (not safe)) - (__SRC__% __tmp15629 _stx14886_)) - (let () (declare (not safe)) (_$E1494214967_))))) + (__SRC__% __tmp17611 _stx16868_)) + (let () (declare (not safe)) (_$E1692416949_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E1494214967_))))))) + (_$E1692416949_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e14939_)) - (let* ((_$tgt1494714985_ + (__AST-pair? _$e16921_)) + (let* ((_$tgt1692916967_ (let () (declare (not safe)) - (__AST-e _$e14939_))) - (_$hd1494814988_ + (__AST-e _$e16921_))) + (_$hd1693016970_ (let () (declare (not safe)) - (##car _$tgt1494714985_))) - (_$tl1494914991_ + (##car _$tgt1692916967_))) + (_$tl1693116973_ (let () (declare (not safe)) - (##cdr _$tgt1494714985_)))) - (if (let ((__tmp15636 + (##cdr _$tgt1692916967_)))) + (if (let ((__tmp17618 (let () (declare (not safe)) - (__AST-e _$hd1494814988_)))) + (__AST-e _$hd1693016970_)))) (declare (not safe)) - (equal? __tmp15636 '#f)) - (if (let ((__tmp15635 + (equal? __tmp17618 '#f)) + (if (let ((__tmp17617 (let () (declare (not safe)) - (__AST-e _$tl1494914991_)))) + (__AST-e _$tl1693116973_)))) (declare (not safe)) - (equal? __tmp15635 '())) + (equal? __tmp17617 '())) (let () (declare (not safe)) - (__compile _expr14937_)) + (__compile _expr16919_)) (let () (declare (not safe)) - (_$E1494114982_))) + (_$E1692316964_))) (let () (declare (not safe)) - (_$E1494114982_)))) + (_$E1692316964_)))) (let () (declare (not safe)) - (_$E1494114982_)))) + (_$E1692316964_)))) (let () (declare (not safe)) - (_$E1489014902_))))) - (let () (declare (not safe)) (_$E1489014902_))))) - (let () (declare (not safe)) (_$E1489014902_)))) - (let () (declare (not safe)) (_$E1489014902_)))))) + (_$E1687216884_))))) + (let () (declare (not safe)) (_$E1687216884_))))) + (let () (declare (not safe)) (_$E1687216884_)))) + (let () (declare (not safe)) (_$E1687216884_)))))) (define __compile-head-id - (lambda (_e14884_) - (let ((__tmp15638 - (if (let () (declare (not safe)) (__AST-e _e14884_)) - _e14884_ + (lambda (_e16866_) + (let ((__tmp17620 + (if (let () (declare (not safe)) (__AST-e _e16866_)) + _e16866_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp15638)))) + (__SRC__0 __tmp17620)))) (define __compile-lambda-head - (lambda (_hd14841_) - (let _recur14843_ ((_rest14845_ _hd14841_)) - (let* ((_$e14847_ _rest14845_) - (_$E1484914867_ + (lambda (_hd16823_) + (let _recur16825_ ((_rest16827_ _hd16823_)) + (let* ((_$e16829_ _rest16827_) + (_$E1683116849_ (lambda () - (let ((_$E1485014864_ + (let ((_$E1683216846_ (lambda () - (let* ((_$E1485114859_ + (let* ((_$E1683316841_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14847_)))) - (_tail14862_ _$e14847_)) + _$e16829_)))) + (_tail16844_ _$e16829_)) (declare (not safe)) - (__compile-head-id _tail14862_))))) - (if (let ((__tmp15639 + (__compile-head-id _tail16844_))))) + (if (let ((__tmp17621 (let () (declare (not safe)) - (__AST-e _$e14847_)))) + (__AST-e _$e16829_)))) (declare (not safe)) - (equal? __tmp15639 '())) + (equal? __tmp17621 '())) '() - (let () (declare (not safe)) (_$E1485014864_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e14847_)) - (let* ((_$tgt1485214870_ - (let () (declare (not safe)) (__AST-e _$e14847_))) - (_$hd1485314873_ - (let () (declare (not safe)) (##car _$tgt1485214870_))) - (_$tl1485414876_ + (let () (declare (not safe)) (_$E1683216846_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16829_)) + (let* ((_$tgt1683416852_ + (let () (declare (not safe)) (__AST-e _$e16829_))) + (_$hd1683516855_ + (let () (declare (not safe)) (##car _$tgt1683416852_))) + (_$tl1683616858_ (let () (declare (not safe)) - (##cdr _$tgt1485214870_)))) - (let* ((_hd14880_ _$hd1485314873_) - (_rest14882_ _$tl1485414876_)) - (let ((__tmp15641 + (##cdr _$tgt1683416852_)))) + (let* ((_hd16862_ _$hd1683516855_) + (_rest16864_ _$tl1683616858_)) + (let ((__tmp17623 (let () (declare (not safe)) - (__compile-head-id _hd14880_))) - (__tmp15640 + (__compile-head-id _hd16862_))) + (__tmp17622 (let () (declare (not safe)) - (_recur14843_ _rest14882_)))) + (_recur16825_ _rest16864_)))) (declare (not safe)) - (cons __tmp15641 __tmp15640)))) - (let () (declare (not safe)) (_$E1484914867_))))))) + (cons __tmp17623 __tmp17622)))) + (let () (declare (not safe)) (_$E1683116849_))))))) (define __compile-lambda% - (lambda (_stx14788_) - (let* ((_$e14790_ _stx14788_) - (_$E1479214804_ + (lambda (_stx16770_) + (let* ((_$e16772_ _stx16770_) + (_$E1677416786_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14790_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e14790_)) - (let* ((_$tgt1479314807_ - (let () (declare (not safe)) (__AST-e _$e14790_))) - (_$hd1479414810_ - (let () (declare (not safe)) (##car _$tgt1479314807_))) - (_$tl1479514813_ - (let () (declare (not safe)) (##cdr _$tgt1479314807_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1479514813_)) - (let* ((_$tgt1479614817_ + _$e16772_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16772_)) + (let* ((_$tgt1677516789_ + (let () (declare (not safe)) (__AST-e _$e16772_))) + (_$hd1677616792_ + (let () (declare (not safe)) (##car _$tgt1677516789_))) + (_$tl1677716795_ + (let () (declare (not safe)) (##cdr _$tgt1677516789_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1677716795_)) + (let* ((_$tgt1677816799_ (let () (declare (not safe)) - (__AST-e _$tl1479514813_))) - (_$hd1479714820_ + (__AST-e _$tl1677716795_))) + (_$hd1677916802_ (let () (declare (not safe)) - (##car _$tgt1479614817_))) - (_$tl1479814823_ + (##car _$tgt1677816799_))) + (_$tl1678016805_ (let () (declare (not safe)) - (##cdr _$tgt1479614817_)))) - (let ((_hd14827_ _$hd1479714820_)) + (##cdr _$tgt1677816799_)))) + (let ((_hd16809_ _$hd1677916802_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1479814823_)) - (let* ((_$tgt1479914829_ + (__AST-pair? _$tl1678016805_)) + (let* ((_$tgt1678116811_ (let () (declare (not safe)) - (__AST-e _$tl1479814823_))) - (_$hd1480014832_ + (__AST-e _$tl1678016805_))) + (_$hd1678216814_ (let () (declare (not safe)) - (##car _$tgt1479914829_))) - (_$tl1480114835_ + (##car _$tgt1678116811_))) + (_$tl1678316817_ (let () (declare (not safe)) - (##cdr _$tgt1479914829_)))) - (let ((_body14839_ _$hd1480014832_)) - (if (let ((__tmp15647 + (##cdr _$tgt1678116811_)))) + (let ((_body16821_ _$hd1678216814_)) + (if (let ((__tmp17629 (let () (declare (not safe)) - (__AST-e _$tl1480114835_)))) + (__AST-e _$tl1678316817_)))) (declare (not safe)) - (equal? __tmp15647 '())) - (let ((__tmp15642 - (let ((__tmp15643 - (let ((__tmp15646 + (equal? __tmp17629 '())) + (let ((__tmp17624 + (let ((__tmp17625 + (let ((__tmp17628 (let () (declare (not safe)) (__compile-lambda-head - _hd14827_))) - (__tmp15644 - (let ((__tmp15645 + _hd16809_))) + (__tmp17626 + (let ((__tmp17627 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body14839_)))) + (__compile _body16821_)))) (declare (not safe)) - (cons __tmp15645 '())))) + (cons __tmp17627 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15646 - __tmp15644)))) + (cons __tmp17628 + __tmp17626)))) (declare (not safe)) - (cons 'lambda __tmp15643)))) + (cons 'lambda __tmp17625)))) (declare (not safe)) - (__SRC__% __tmp15642 _stx14788_)) + (__SRC__% __tmp17624 _stx16770_)) (let () (declare (not safe)) - (_$E1479214804_))))) - (let () (declare (not safe)) (_$E1479214804_))))) - (let () (declare (not safe)) (_$E1479214804_)))) - (let () (declare (not safe)) (_$E1479214804_)))))) + (_$E1677416786_))))) + (let () (declare (not safe)) (_$E1677416786_))))) + (let () (declare (not safe)) (_$E1677416786_)))) + (let () (declare (not safe)) (_$E1677416786_)))))) (define __compile-case-lambda% - (lambda (_stx14580_) - (letrec ((_variadic?14582_ - (lambda (_hd14753_) - (let* ((_$e14755_ _hd14753_) - (_$E1475714773_ + (lambda (_stx16562_) + (letrec ((_variadic?16564_ + (lambda (_hd16735_) + (let* ((_$e16737_ _hd16735_) + (_$E1673916755_ (lambda () - (let ((_$E1475814770_ + (let ((_$E1674016752_ (lambda () - (let ((_$E1475914767_ + (let ((_$E1674116749_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14755_))))) + _$e16737_))))) '#t)))) - (if (let ((__tmp15648 + (if (let ((__tmp17630 (let () (declare (not safe)) - (__AST-e _$e14755_)))) + (__AST-e _$e16737_)))) (declare (not safe)) - (equal? __tmp15648 '())) + (equal? __tmp17630 '())) '#f (let () (declare (not safe)) - (_$E1475814770_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e14755_)) - (let* ((_$tgt1476014776_ + (_$E1674016752_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16737_)) + (let* ((_$tgt1674216758_ (let () (declare (not safe)) - (__AST-e _$e14755_))) - (_$hd1476114779_ + (__AST-e _$e16737_))) + (_$hd1674316761_ (let () (declare (not safe)) - (##car _$tgt1476014776_))) - (_$tl1476214782_ + (##car _$tgt1674216758_))) + (_$tl1674416764_ (let () (declare (not safe)) - (##cdr _$tgt1476014776_)))) - (let ((_rest14786_ _$tl1476214782_)) + (##cdr _$tgt1674216758_)))) + (let ((_rest16768_ _$tl1674416764_)) (declare (not safe)) - (_variadic?14582_ _rest14786_))) - (let () (declare (not safe)) (_$E1475714773_)))))) - (_arity14583_ - (lambda (_hd14718_) - (let _lp14720_ ((_rest14722_ _hd14718_) (_k14723_ '0)) - (let* ((_$e14725_ _rest14722_) - (_$E1472714738_ + (_variadic?16564_ _rest16768_))) + (let () (declare (not safe)) (_$E1673916755_)))))) + (_arity16565_ + (lambda (_hd16700_) + (let _lp16702_ ((_rest16704_ _hd16700_) (_k16705_ '0)) + (let* ((_$e16707_ _rest16704_) + (_$E1670916720_ (lambda () - (let ((_$E1472814735_ + (let ((_$E1671016717_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14725_))))) - _k14723_)))) + _$e16707_))))) + _k16705_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e14725_)) - (let* ((_$tgt1472914741_ + (__AST-pair? _$e16707_)) + (let* ((_$tgt1671116723_ (let () (declare (not safe)) - (__AST-e _$e14725_))) - (_$hd1473014744_ + (__AST-e _$e16707_))) + (_$hd1671216726_ (let () (declare (not safe)) - (##car _$tgt1472914741_))) - (_$tl1473114747_ + (##car _$tgt1671116723_))) + (_$tl1671316729_ (let () (declare (not safe)) - (##cdr _$tgt1472914741_)))) - (let* ((_rest14751_ _$tl1473114747_) - (__tmp15649 + (##cdr _$tgt1671116723_)))) + (let* ((_rest16733_ _$tl1671316729_) + (__tmp17631 (let () (declare (not safe)) - (fx+ _k14723_ '1)))) + (fx+ _k16705_ '1)))) (declare (not safe)) - (_lp14720_ _rest14751_ __tmp15649))) - (let () (declare (not safe)) (_$E1472714738_))))))) - (_generate14584_ - (lambda (_rest14645_ _args14646_ _len14647_) - (let* ((_$e14649_ _rest14645_) - (_$E1465114662_ + (_lp16702_ _rest16733_ __tmp17631))) + (let () (declare (not safe)) (_$E1670916720_))))))) + (_generate16566_ + (lambda (_rest16627_ _args16628_ _len16629_) + (let* ((_$e16631_ _rest16627_) + (_$E1663316644_ (lambda () - (let* ((_$E1465214659_ + (let* ((_$E1663416641_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14649_)))) - (__tmp15650 - (let ((__tmp15651 - (let ((__tmp15652 + _$e16631_)))) + (__tmp17632 + (let ((__tmp17633 + (let ((__tmp17634 (let () (declare (not safe)) - (cons _args14646_ '())))) + (cons _args16628_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp15652)))) + __tmp17634)))) (declare (not safe)) - (cons 'error __tmp15651)))) + (cons 'error __tmp17633)))) (declare (not safe)) - (__SRC__% __tmp15650 _stx14580_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e14649_)) - (let* ((_$tgt1465314665_ + (__SRC__% __tmp17632 _stx16562_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16631_)) + (let* ((_$tgt1663516647_ (let () (declare (not safe)) - (__AST-e _$e14649_))) - (_$hd1465414668_ + (__AST-e _$e16631_))) + (_$hd1663616650_ (let () (declare (not safe)) - (##car _$tgt1465314665_))) - (_$tl1465514671_ + (##car _$tgt1663516647_))) + (_$tl1663716653_ (let () (declare (not safe)) - (##cdr _$tgt1465314665_)))) - (let* ((_clause14675_ _$hd1465414668_) - (_rest14677_ _$tl1465514671_) - (_$e14679_ _clause14675_) - (_$E1468114690_ + (##cdr _$tgt1663516647_)))) + (let* ((_clause16657_ _$hd1663616650_) + (_rest16659_ _$tl1663716653_) + (_$e16661_ _clause16657_) + (_$E1666316672_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14679_))))) + _$e16661_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e14679_)) - (let* ((_$tgt1468214693_ + (__AST-pair? _$e16661_)) + (let* ((_$tgt1666416675_ (let () (declare (not safe)) - (__AST-e _$e14679_))) - (_$hd1468314696_ + (__AST-e _$e16661_))) + (_$hd1666516678_ (let () (declare (not safe)) - (##car _$tgt1468214693_))) - (_$tl1468414699_ + (##car _$tgt1666416675_))) + (_$tl1666616681_ (let () (declare (not safe)) - (##cdr _$tgt1468214693_)))) - (let ((_hd14703_ _$hd1468314696_)) + (##cdr _$tgt1666416675_)))) + (let ((_hd16685_ _$hd1666516678_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1468414699_)) - (let* ((_$tgt1468514705_ + (__AST-pair? _$tl1666616681_)) + (let* ((_$tgt1666716687_ (let () (declare (not safe)) - (__AST-e _$tl1468414699_))) - (_$hd1468614708_ + (__AST-e _$tl1666616681_))) + (_$hd1666816690_ (let () (declare (not safe)) - (##car _$tgt1468514705_))) - (_$tl1468714711_ + (##car _$tgt1666716687_))) + (_$tl1666916693_ (let () (declare (not safe)) - (##cdr _$tgt1468514705_)))) - (if (let ((__tmp15667 + (##cdr _$tgt1666716687_)))) + (if (let ((__tmp17649 (let () (declare (not safe)) - (__AST-e _$tl1468714711_)))) + (__AST-e _$tl1666916693_)))) (declare (not safe)) - (equal? __tmp15667 '())) - (let ((_clen14715_ + (equal? __tmp17649 '())) + (let ((_clen16697_ (let () (declare (not safe)) - (_arity14583_ - _hd14703_))) - (_cmp14716_ + (_arity16565_ + _hd16685_))) + (_cmp16698_ (if (let () (declare (not safe)) - (_variadic?14582_ - _hd14703_)) + (_variadic?16564_ + _hd16685_)) 'fx>= 'fx=))) - (let ((__tmp15653 - (let ((__tmp15654 - (let ((__tmp15664 + (let ((__tmp17635 + (let ((__tmp17636 + (let ((__tmp17646 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15665 - (let ((__tmp15666 + (let ((__tmp17647 + (let ((__tmp17648 (let () (declare (not safe)) - (cons _clen14715_ '())))) + (cons _clen16697_ '())))) (declare (not safe)) - (cons _len14647_ __tmp15666)))) + (cons _len16629_ __tmp17648)))) (declare (not safe)) - (cons _cmp14716_ __tmp15665))) - (__tmp15655 - (let ((__tmp15658 - (let ((__tmp15659 - (let ((__tmp15660 - (let ((__tmp15662 - (let ((__tmp15663 + (cons _cmp16698_ __tmp17647))) + (__tmp17637 + (let ((__tmp17640 + (let ((__tmp17641 + (let ((__tmp17642 + (let ((__tmp17644 + (let ((__tmp17645 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause14675_)))) + (cons '%#lambda _clause16657_)))) (declare (not safe)) - (__compile-lambda% __tmp15663))) - (__tmp15661 - (let () (declare (not safe)) (cons _args14646_ '())))) + (__compile-lambda% __tmp17645))) + (__tmp17643 + (let () (declare (not safe)) (cons _args16628_ '())))) (declare (not safe)) - (cons __tmp15662 __tmp15661)))) + (cons __tmp17644 __tmp17643)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp15660)))) + (cons '##apply __tmp17642)))) (declare (not safe)) - (__SRC__% __tmp15659 _stx14580_))) - (__tmp15656 - (let ((__tmp15657 + (__SRC__% __tmp17641 _stx16562_))) + (__tmp17638 + (let ((__tmp17639 (let () (declare (not safe)) - (_generate14584_ - _rest14677_ - _args14646_ - _len14647_)))) + (_generate16566_ + _rest16659_ + _args16628_ + _len16629_)))) (declare (not safe)) - (cons __tmp15657 '())))) + (cons __tmp17639 '())))) (declare (not safe)) - (cons __tmp15658 __tmp15656)))) + (cons __tmp17640 __tmp17638)))) (declare (not safe)) - (cons __tmp15664 __tmp15655)))) + (cons __tmp17646 __tmp17637)))) (declare (not safe)) - (cons 'if __tmp15654)))) + (cons 'if __tmp17636)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp15653 - _stx14580_))) + __tmp17635 + _stx16562_))) (let () (declare (not safe)) - (_$E1468114690_)))) + (_$E1666316672_)))) (let () (declare (not safe)) - (_$E1468114690_))))) + (_$E1666316672_))))) (let () (declare (not safe)) - (_$E1468114690_))))) - (let () (declare (not safe)) (_$E1465114662_))))))) - (let* ((_$e14586_ _stx14580_) - (_$E1458814620_ + (_$E1666316672_))))) + (let () (declare (not safe)) (_$E1663316644_))))))) + (let* ((_$e16568_ _stx16562_) + (_$E1657016602_ (lambda () - (let ((_$E1458914602_ + (let ((_$E1657116584_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14586_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e14586_)) - (let* ((_$tgt1459014605_ + _$e16568_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16568_)) + (let* ((_$tgt1657216587_ (let () (declare (not safe)) - (__AST-e _$e14586_))) - (_$hd1459114608_ + (__AST-e _$e16568_))) + (_$hd1657316590_ (let () (declare (not safe)) - (##car _$tgt1459014605_))) - (_$tl1459214611_ + (##car _$tgt1657216587_))) + (_$tl1657416593_ (let () (declare (not safe)) - (##cdr _$tgt1459014605_)))) - (let ((_clauses14615_ _$tl1459214611_)) - (let ((_args14617_ - (let ((__tmp15668 (gensym))) + (##cdr _$tgt1657216587_)))) + (let ((_clauses16597_ _$tl1657416593_)) + (let ((_args16599_ + (let ((__tmp17650 (gensym))) (declare (not safe)) - (__SRC__% __tmp15668 _stx14580_))) - (_len14618_ - (let ((__tmp15669 (gensym))) + (__SRC__% __tmp17650 _stx16562_))) + (_len16600_ + (let ((__tmp17651 (gensym))) (declare (not safe)) - (__SRC__% __tmp15669 _stx14580_)))) - (let ((__tmp15670 - (let ((__tmp15671 - (let ((__tmp15672 - (let ((__tmp15673 - (let ((__tmp15674 + (__SRC__% __tmp17651 _stx16562_)))) + (let ((__tmp17652 + (let ((__tmp17653 + (let ((__tmp17654 + (let ((__tmp17655 + (let ((__tmp17656 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15675 - (let ((__tmp15678 - (let ((__tmp15679 - (let ((__tmp15680 - (let ((__tmp15681 - (let ((__tmp15682 + (let ((__tmp17657 + (let ((__tmp17660 + (let ((__tmp17661 + (let ((__tmp17662 + (let ((__tmp17663 + (let ((__tmp17664 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15683 + (let ((__tmp17665 (let () (declare (not safe)) - (cons _args14617_ '())))) + (cons _args16599_ '())))) (declare (not safe)) - (cons '##length __tmp15683)))) + (cons '##length __tmp17665)))) (declare (not safe)) - (__SRC__% __tmp15682 _stx14580_)))) + (__SRC__% __tmp17664 _stx16562_)))) (declare (not safe)) - (cons __tmp15681 '())))) + (cons __tmp17663 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len14618_ - __tmp15680)))) + (cons _len16600_ + __tmp17662)))) (declare (not safe)) - (cons __tmp15679 '()))) - (__tmp15676 - (let ((__tmp15677 + (cons __tmp17661 '()))) + (__tmp17658 + (let ((__tmp17659 (let () (declare (not safe)) - (_generate14584_ - _clauses14615_ - _args14617_ - _len14618_)))) + (_generate16566_ + _clauses16597_ + _args16599_ + _len16600_)))) (declare (not safe)) - (cons __tmp15677 '())))) + (cons __tmp17659 '())))) (declare (not safe)) - (cons __tmp15678 __tmp15676)))) + (cons __tmp17660 __tmp17658)))) (declare (not safe)) - (cons 'let __tmp15675)))) + (cons 'let __tmp17657)))) (declare (not safe)) - (__SRC__% __tmp15674 _stx14580_)))) + (__SRC__% __tmp17656 _stx16562_)))) (declare (not safe)) - (cons __tmp15673 '())))) + (cons __tmp17655 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args14617_ - __tmp15672)))) + (cons _args16599_ + __tmp17654)))) (declare (not safe)) - (cons 'lambda __tmp15671)))) + (cons 'lambda __tmp17653)))) (declare (not safe)) - (__SRC__% __tmp15670 _stx14580_))))) - (let () (declare (not safe)) (_$E1458914602_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e14586_)) - (let* ((_$tgt1459314623_ - (let () (declare (not safe)) (__AST-e _$e14586_))) - (_$hd1459414626_ - (let () (declare (not safe)) (##car _$tgt1459314623_))) - (_$tl1459514629_ + (__SRC__% __tmp17652 _stx16562_))))) + (let () (declare (not safe)) (_$E1657116584_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16568_)) + (let* ((_$tgt1657516605_ + (let () (declare (not safe)) (__AST-e _$e16568_))) + (_$hd1657616608_ + (let () (declare (not safe)) (##car _$tgt1657516605_))) + (_$tl1657716611_ (let () (declare (not safe)) - (##cdr _$tgt1459314623_)))) + (##cdr _$tgt1657516605_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1459514629_)) - (let* ((_$tgt1459614633_ + (__AST-pair? _$tl1657716611_)) + (let* ((_$tgt1657816615_ (let () (declare (not safe)) - (__AST-e _$tl1459514629_))) - (_$hd1459714636_ + (__AST-e _$tl1657716611_))) + (_$hd1657916618_ (let () (declare (not safe)) - (##car _$tgt1459614633_))) - (_$tl1459814639_ + (##car _$tgt1657816615_))) + (_$tl1658016621_ (let () (declare (not safe)) - (##cdr _$tgt1459614633_)))) - (let ((_clause14643_ _$hd1459714636_)) - (if (let ((__tmp15685 + (##cdr _$tgt1657816615_)))) + (let ((_clause16625_ _$hd1657916618_)) + (if (let ((__tmp17667 (let () (declare (not safe)) - (__AST-e _$tl1459814639_)))) + (__AST-e _$tl1658016621_)))) (declare (not safe)) - (equal? __tmp15685 '())) - (let ((__tmp15684 + (equal? __tmp17667 '())) + (let ((__tmp17666 (let () (declare (not safe)) - (cons '%#lambda _clause14643_)))) + (cons '%#lambda _clause16625_)))) (declare (not safe)) - (__compile-lambda% __tmp15684)) - (let () (declare (not safe)) (_$E1458814620_))))) - (let () (declare (not safe)) (_$E1458814620_)))) - (let () (declare (not safe)) (_$E1458814620_))))))) + (__compile-lambda% __tmp17666)) + (let () (declare (not safe)) (_$E1657016602_))))) + (let () (declare (not safe)) (_$E1657016602_)))) + (let () (declare (not safe)) (_$E1657016602_))))))) (define __compile-let-form - (lambda (_stx14349_ _compile-simple14350_ _compile-values14351_) - (letrec ((_simple-bind?14353_ - (lambda (_hd14538_) - (let* ((_hd1453914549_ _hd14538_) - (_else1454214557_ (lambda () '#f))) - (let ((_K1454514570_ (lambda (_id14568_) '#t)) - (_K1454414562_ (lambda () '#t))) - (let ((_try-match1454114565_ + (lambda (_stx16331_ _compile-simple16332_ _compile-values16333_) + (letrec ((_simple-bind?16335_ + (lambda (_hd16520_) + (let* ((_hd1652116531_ _hd16520_) + (_else1652416539_ (lambda () '#f))) + (let ((_K1652716552_ (lambda (_id16550_) '#t)) + (_K1652616544_ (lambda () '#t))) + (let ((_try-match1652316547_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd1453914549_ '#f)) + (##eq? _hd1652116531_ '#f)) (let () (declare (not safe)) - (_K1454414562_)) + (_K1652616544_)) (let () (declare (not safe)) - (_else1454214557_)))))) + (_else1652416539_)))))) (if (let () (declare (not safe)) - (##pair? _hd1453914549_)) - (let ((_tl1454714575_ + (##pair? _hd1652116531_)) + (let ((_tl1652916557_ (let () (declare (not safe)) - (##cdr _hd1453914549_))) - (_hd1454614573_ + (##cdr _hd1652116531_))) + (_hd1652816555_ (let () (declare (not safe)) - (##car _hd1453914549_)))) + (##car _hd1652116531_)))) (if (let () (declare (not safe)) - (##null? _tl1454714575_)) - (let ((_id14578_ _hd1454614573_)) + (##null? _tl1652916557_)) + (let ((_id16560_ _hd1652816555_)) (declare (not safe)) - (_K1454514570_ _id14578_)) + (_K1652716552_ _id16560_)) (let () (declare (not safe)) - (_try-match1454114565_)))) + (_try-match1652316547_)))) (let () (declare (not safe)) - (_try-match1454114565_)))))))) - (_car-e14354_ - (lambda (_hd14536_) - (if (let () (declare (not safe)) (pair? _hd14536_)) - (car _hd14536_) - _hd14536_)))) - (let* ((_$e14356_ _stx14349_) - (_$E1435814501_ + (_try-match1652316547_)))))))) + (_car-e16336_ + (lambda (_hd16518_) + (if (let () (declare (not safe)) (pair? _hd16518_)) + (car _hd16518_) + _hd16518_)))) + (let* ((_$e16338_ _stx16331_) + (_$E1634016483_ (lambda () - (let ((_$E1435914381_ + (let ((_$E1634116363_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14356_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e14356_)) - (let* ((_$tgt1436014384_ + _$e16338_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16338_)) + (let* ((_$tgt1634216366_ (let () (declare (not safe)) - (__AST-e _$e14356_))) - (_$hd1436114387_ + (__AST-e _$e16338_))) + (_$hd1634316369_ (let () (declare (not safe)) - (##car _$tgt1436014384_))) - (_$tl1436214390_ + (##car _$tgt1634216366_))) + (_$tl1634416372_ (let () (declare (not safe)) - (##cdr _$tgt1436014384_)))) + (##cdr _$tgt1634216366_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1436214390_)) - (let* ((_$tgt1436314394_ + (__AST-pair? _$tl1634416372_)) + (let* ((_$tgt1634516376_ (let () (declare (not safe)) - (__AST-e _$tl1436214390_))) - (_$hd1436414397_ + (__AST-e _$tl1634416372_))) + (_$hd1634616379_ (let () (declare (not safe)) - (##car _$tgt1436314394_))) - (_$tl1436514400_ + (##car _$tgt1634516376_))) + (_$tl1634716382_ (let () (declare (not safe)) - (##cdr _$tgt1436314394_)))) - (let ((_hd14404_ _$hd1436414397_)) + (##cdr _$tgt1634516376_)))) + (let ((_hd16386_ _$hd1634616379_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1436514400_)) - (let* ((_$tgt1436614406_ + (__AST-pair? _$tl1634716382_)) + (let* ((_$tgt1634816388_ (let () (declare (not safe)) - (__AST-e _$tl1436514400_))) - (_$hd1436714409_ + (__AST-e _$tl1634716382_))) + (_$hd1634916391_ (let () (declare (not safe)) - (##car _$tgt1436614406_))) - (_$tl1436814412_ + (##car _$tgt1634816388_))) + (_$tl1635016394_ (let () (declare (not safe)) - (##cdr _$tgt1436614406_)))) - (let ((_body14416_ _$hd1436714409_)) - (if (let ((__tmp15688 + (##cdr _$tgt1634816388_)))) + (let ((_body16398_ _$hd1634916391_)) + (if (let ((__tmp17670 (let () (declare (not safe)) - (__AST-e _$tl1436814412_)))) + (__AST-e _$tl1635016394_)))) (declare (not safe)) - (equal? __tmp15688 '())) - (let* ((_hd-ids14456_ - (map (lambda (_bind14418_) - (let* ((_$e14420_ + (equal? __tmp17670 '())) + (let* ((_hd-ids16438_ + (map (lambda (_bind16400_) + (let* ((_$e16402_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind14418_) - (_$E1442214431_ + _bind16400_) + (_$E1640416413_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14420_))))) + _$e16402_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e14420_)) - (let* ((_$tgt1442314434_ + (__AST-pair? _$e16402_)) + (let* ((_$tgt1640516416_ (let () (declare (not safe)) - (__AST-e _$e14420_))) - (_$hd1442414437_ + (__AST-e _$e16402_))) + (_$hd1640616419_ (let () (declare (not safe)) - (##car _$tgt1442314434_))) - (_$tl1442514440_ + (##car _$tgt1640516416_))) + (_$tl1640716422_ (let () (declare (not safe)) - (##cdr _$tgt1442314434_)))) - (let ((_ids14444_ _$hd1442414437_)) + (##cdr _$tgt1640516416_)))) + (let ((_ids16426_ _$hd1640616419_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1442514440_)) - (let* ((_$tgt1442614446_ + (__AST-pair? _$tl1640716422_)) + (let* ((_$tgt1640816428_ (let () (declare (not safe)) - (__AST-e _$tl1442514440_))) - (_$hd1442714449_ + (__AST-e _$tl1640716422_))) + (_$hd1640916431_ (let () (declare (not safe)) - (##car _$tgt1442614446_))) - (_$tl1442814452_ + (##car _$tgt1640816428_))) + (_$tl1641016434_ (let () (declare (not safe)) - (##cdr _$tgt1442614446_)))) - (if (let ((__tmp15686 + (##cdr _$tgt1640816428_)))) + (if (let ((__tmp17668 (let () (declare (not safe)) - (__AST-e _$tl1442814452_)))) + (__AST-e _$tl1641016434_)))) (declare (not safe)) - (equal? __tmp15686 '())) - _ids14444_ + (equal? __tmp17668 '())) + _ids16426_ (let () (declare (not safe)) - (_$E1442214431_)))) + (_$E1640416413_)))) (let () (declare (not safe)) - (_$E1442214431_))))) - (let () (declare (not safe)) (_$E1442214431_))))) - _hd14404_)) - (_exprs14496_ - (map (lambda (_bind14458_) - (let* ((_$e14460_ _bind14458_) - (_$E1446214471_ + (_$E1640416413_))))) + (let () (declare (not safe)) (_$E1640416413_))))) + _hd16386_)) + (_exprs16478_ + (map (lambda (_bind16440_) + (let* ((_$e16442_ _bind16440_) + (_$E1644416453_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e14460_))))) + _$e16442_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e14460_)) - (let* ((_$tgt1446314474_ + (__AST-pair? _$e16442_)) + (let* ((_$tgt1644516456_ (let () (declare (not safe)) - (__AST-e _$e14460_))) - (_$hd1446414477_ + (__AST-e _$e16442_))) + (_$hd1644616459_ (let () (declare (not safe)) - (##car _$tgt1446314474_))) - (_$tl1446514480_ + (##car _$tgt1644516456_))) + (_$tl1644716462_ (let () (declare (not safe)) - (##cdr _$tgt1446314474_)))) + (##cdr _$tgt1644516456_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1446514480_)) - (let* ((_$tgt1446614484_ + (__AST-pair? _$tl1644716462_)) + (let* ((_$tgt1644816466_ (let () (declare (not safe)) - (__AST-e _$tl1446514480_))) - (_$hd1446714487_ + (__AST-e _$tl1644716462_))) + (_$hd1644916469_ (let () (declare (not safe)) - (##car _$tgt1446614484_))) - (_$tl1446814490_ + (##car _$tgt1644816466_))) + (_$tl1645016472_ (let () (declare (not safe)) - (##cdr _$tgt1446614484_)))) - (let ((_expr14494_ _$hd1446714487_)) - (if (let ((__tmp15687 + (##cdr _$tgt1644816466_)))) + (let ((_expr16476_ _$hd1644916469_)) + (if (let ((__tmp17669 (let () (declare (not safe)) - (__AST-e _$tl1446814490_)))) + (__AST-e _$tl1645016472_)))) (declare (not safe)) - (equal? __tmp15687 '())) + (equal? __tmp17669 '())) (let () (declare (not safe)) - (__compile _expr14494_)) + (__compile _expr16476_)) (let () (declare (not safe)) - (_$E1446214471_))))) + (_$E1644416453_))))) (let () (declare (not safe)) - (_$E1446214471_)))) - (let () (declare (not safe)) (_$E1446214471_))))) - _hd14404_)) - (_body14498_ - (let () (declare (not safe)) (__compile _body14416_)))) + (_$E1644416453_)))) + (let () (declare (not safe)) (_$E1644416453_))))) + _hd16386_)) + (_body16480_ + (let () (declare (not safe)) (__compile _body16398_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?14353_ + (andmap1 _simple-bind?16335_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids14456_)) - (_compile-simple14350_ - (map _car-e14354_ _hd-ids14456_) - _exprs14496_ - _body14498_) - (_compile-values14351_ _hd-ids14456_ _exprs14496_ _body14498_))) + _hd-ids16438_)) + (_compile-simple16332_ + (map _car-e16336_ _hd-ids16438_) + _exprs16478_ + _body16480_) + (_compile-values16333_ _hd-ids16438_ _exprs16478_ _body16480_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E1435914381_))))) + (_$E1634116363_))))) (let () (declare (not safe)) - (_$E1435914381_))))) + (_$E1634116363_))))) (let () (declare (not safe)) - (_$E1435914381_)))) - (let () (declare (not safe)) (_$E1435914381_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e14356_)) - (let* ((_$tgt1436914504_ - (let () (declare (not safe)) (__AST-e _$e14356_))) - (_$hd1437014507_ - (let () (declare (not safe)) (##car _$tgt1436914504_))) - (_$tl1437114510_ + (_$E1634116363_)))) + (let () (declare (not safe)) (_$E1634116363_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16338_)) + (let* ((_$tgt1635116486_ + (let () (declare (not safe)) (__AST-e _$e16338_))) + (_$hd1635216489_ + (let () (declare (not safe)) (##car _$tgt1635116486_))) + (_$tl1635316492_ (let () (declare (not safe)) - (##cdr _$tgt1436914504_)))) + (##cdr _$tgt1635116486_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1437114510_)) - (let* ((_$tgt1437214514_ + (__AST-pair? _$tl1635316492_)) + (let* ((_$tgt1635416496_ (let () (declare (not safe)) - (__AST-e _$tl1437114510_))) - (_$hd1437314517_ + (__AST-e _$tl1635316492_))) + (_$hd1635516499_ (let () (declare (not safe)) - (##car _$tgt1437214514_))) - (_$tl1437414520_ + (##car _$tgt1635416496_))) + (_$tl1635616502_ (let () (declare (not safe)) - (##cdr _$tgt1437214514_)))) - (if (let ((__tmp15690 + (##cdr _$tgt1635416496_)))) + (if (let ((__tmp17672 (let () (declare (not safe)) - (__AST-e _$hd1437314517_)))) + (__AST-e _$hd1635516499_)))) (declare (not safe)) - (equal? __tmp15690 '())) + (equal? __tmp17672 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl1437414520_)) - (let* ((_$tgt1437514524_ + (__AST-pair? _$tl1635616502_)) + (let* ((_$tgt1635716506_ (let () (declare (not safe)) - (__AST-e _$tl1437414520_))) - (_$hd1437614527_ + (__AST-e _$tl1635616502_))) + (_$hd1635816509_ (let () (declare (not safe)) - (##car _$tgt1437514524_))) - (_$tl1437714530_ + (##car _$tgt1635716506_))) + (_$tl1635916512_ (let () (declare (not safe)) - (##cdr _$tgt1437514524_)))) - (let ((_body14534_ _$hd1437614527_)) - (if (let ((__tmp15689 + (##cdr _$tgt1635716506_)))) + (let ((_body16516_ _$hd1635816509_)) + (if (let ((__tmp17671 (let () (declare (not safe)) - (__AST-e _$tl1437714530_)))) + (__AST-e _$tl1635916512_)))) (declare (not safe)) - (equal? __tmp15689 '())) + (equal? __tmp17671 '())) (let () (declare (not safe)) - (__compile _body14534_)) + (__compile _body16516_)) (let () (declare (not safe)) - (_$E1435814501_))))) - (let () (declare (not safe)) (_$E1435814501_))) - (let () (declare (not safe)) (_$E1435814501_)))) - (let () (declare (not safe)) (_$E1435814501_)))) - (let () (declare (not safe)) (_$E1435814501_))))))) + (_$E1634016483_))))) + (let () (declare (not safe)) (_$E1634016483_))) + (let () (declare (not safe)) (_$E1634016483_)))) + (let () (declare (not safe)) (_$E1634016483_)))) + (let () (declare (not safe)) (_$E1634016483_))))))) (define __compile-let-values% - (lambda (_stx14164_) - (letrec ((_compile-simple14166_ - (lambda (_hd-ids14345_ _exprs14346_ _body14347_) - (let ((__tmp15691 - (let ((__tmp15692 - (let ((__tmp15694 + (lambda (_stx16146_) + (letrec ((_compile-simple16148_ + (lambda (_hd-ids16327_ _exprs16328_ _body16329_) + (let ((__tmp17673 + (let ((__tmp17674 + (let ((__tmp17676 (map list (map __compile-head-id - _hd-ids14345_) - _exprs14346_)) - (__tmp15693 + _hd-ids16327_) + _exprs16328_)) + (__tmp17675 (let () (declare (not safe)) - (cons _body14347_ '())))) + (cons _body16329_ '())))) (declare (not safe)) - (cons __tmp15694 __tmp15693)))) + (cons __tmp17676 __tmp17675)))) (declare (not safe)) - (cons 'let __tmp15692)))) + (cons 'let __tmp17674)))) (declare (not safe)) - (__SRC__% __tmp15691 _stx14164_)))) - (_compile-values14167_ - (lambda (_hd-ids14263_ _exprs14264_ _body14265_) - (let _lp14267_ ((_rest14269_ _hd-ids14263_) - (_exprs14270_ _exprs14264_) - (_bind14271_ '()) - (_post14272_ '())) - (let* ((_rest1427314287_ _rest14269_) - (_else1427614295_ + (__SRC__% __tmp17673 _stx16146_)))) + (_compile-values16149_ + (lambda (_hd-ids16245_ _exprs16246_ _body16247_) + (let _lp16249_ ((_rest16251_ _hd-ids16245_) + (_exprs16252_ _exprs16246_) + (_bind16253_ '()) + (_post16254_ '())) + (let* ((_rest1625516269_ _rest16251_) + (_else1625816277_ (lambda () - (let ((__tmp15695 - (let ((__tmp15696 - (let ((__tmp15699 - (reverse _bind14271_)) - (__tmp15697 - (let ((__tmp15698 + (let ((__tmp17677 + (let ((__tmp17678 + (let ((__tmp17681 + (reverse _bind16253_)) + (__tmp17679 + (let ((__tmp17680 (let () (declare (not safe)) - (_compile-post14168_ - _post14272_ - _body14265_)))) + (_compile-post16150_ + _post16254_ + _body16247_)))) (declare (not safe)) - (cons __tmp15698 '())))) + (cons __tmp17680 '())))) (declare (not safe)) - (cons __tmp15699 __tmp15697)))) + (cons __tmp17681 __tmp17679)))) (declare (not safe)) - (cons 'let __tmp15696)))) + (cons 'let __tmp17678)))) (declare (not safe)) - (__SRC__% __tmp15695 _stx14164_))))) - (let ((_K1428114328_ - (lambda (_rest14325_ _id14326_) - (let ((__tmp15705 (cdr _exprs14270_)) - (__tmp15700 - (let ((__tmp15701 - (let ((__tmp15704 + (__SRC__% __tmp17677 _stx16146_))))) + (let ((_K1626316310_ + (lambda (_rest16307_ _id16308_) + (let ((__tmp17687 (cdr _exprs16252_)) + (__tmp17682 + (let ((__tmp17683 + (let ((__tmp17686 (let () (declare (not safe)) (__compile-head-id - _id14326_))) - (__tmp15702 - (let ((__tmp15703 - (car _exprs14270_))) + _id16308_))) + (__tmp17684 + (let ((__tmp17685 + (car _exprs16252_))) (declare (not safe)) - (cons __tmp15703 + (cons __tmp17685 '())))) (declare (not safe)) - (cons __tmp15704 - __tmp15702)))) + (cons __tmp17686 + __tmp17684)))) (declare (not safe)) - (cons __tmp15701 _bind14271_)))) + (cons __tmp17683 _bind16253_)))) (declare (not safe)) - (_lp14267_ - _rest14325_ - __tmp15705 - __tmp15700 - _post14272_)))) - (_K1427814310_ - (lambda (_rest14299_ _hd14300_) + (_lp16249_ + _rest16307_ + __tmp17687 + __tmp17682 + _post16254_)))) + (_K1626016292_ + (lambda (_rest16281_ _hd16282_) (if (let () (declare (not safe)) - (__AST-id? _hd14300_)) - (let ((__tmp15726 (cdr _exprs14270_)) - (__tmp15719 - (let ((__tmp15720 - (let ((__tmp15725 + (__AST-id? _hd16282_)) + (let ((__tmp17708 (cdr _exprs16252_)) + (__tmp17701 + (let ((__tmp17702 + (let ((__tmp17707 (let () (declare (not safe)) (__compile-head-id - _hd14300_))) - (__tmp15721 - (let ((__tmp15722 + _hd16282_))) + (__tmp17703 + (let ((__tmp17704 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15723 - (let ((__tmp15724 (car _exprs14270_))) + (let ((__tmp17705 + (let ((__tmp17706 (car _exprs16252_))) (declare (not safe)) - (cons __tmp15724 '())))) + (cons __tmp17706 '())))) (declare (not safe)) - (cons 'values->list __tmp15723)))) + (cons 'values->list __tmp17705)))) (declare (not safe)) - (cons __tmp15722 '())))) + (cons __tmp17704 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15725 - __tmp15721)))) + (cons __tmp17707 + __tmp17703)))) (declare (not safe)) - (cons __tmp15720 _bind14271_)))) + (cons __tmp17702 _bind16253_)))) (declare (not safe)) - (_lp14267_ - _rest14299_ - __tmp15726 - __tmp15719 - _post14272_)) + (_lp16249_ + _rest16281_ + __tmp17708 + __tmp17701 + _post16254_)) (if (let () (declare (not safe)) - (list? _hd14300_)) - (let* ((_len14302_ (length _hd14300_)) - (_tmp14304_ - (let ((__tmp15706 (gensym))) + (list? _hd16282_)) + (let* ((_len16284_ (length _hd16282_)) + (_tmp16286_ + (let ((__tmp17688 (gensym))) (declare (not safe)) - (__SRC__0 __tmp15706)))) - (let ((__tmp15718 - (cdr _exprs14270_)) - (__tmp15714 - (let ((__tmp15715 - (let ((__tmp15716 - (let ((__tmp15717 + (__SRC__0 __tmp17688)))) + (let ((__tmp17700 + (cdr _exprs16252_)) + (__tmp17696 + (let ((__tmp17697 + (let ((__tmp17698 + (let ((__tmp17699 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs14270_))) + (car _exprs16252_))) (declare (not safe)) - (cons __tmp15717 '())))) + (cons __tmp17699 '())))) (declare (not safe)) - (cons _tmp14304_ __tmp15716)))) + (cons _tmp16286_ __tmp17698)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15715 - _bind14271_))) - (__tmp15707 - (let ((__tmp15708 - (let ((__tmp15709 - (let ((__tmp15710 + (cons __tmp17697 + _bind16253_))) + (__tmp17689 + (let ((__tmp17690 + (let ((__tmp17691 + (let ((__tmp17692 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15712 - (lambda (_id14307_ _k14308_) + (let ((__tmp17694 + (lambda (_id16289_ _k16290_) (if (let () (declare (not safe)) - (__AST-e _id14307_)) - (let ((__tmp15713 + (__AST-e _id16289_)) + (let ((__tmp17695 (let () (declare (not safe)) - (__SRC__0 _id14307_)))) + (__SRC__0 _id16289_)))) (declare (not safe)) - (cons __tmp15713 _k14308_)) + (cons __tmp17695 _k16290_)) '#f))) - (__tmp15711 + (__tmp17693 (let () (declare (not safe)) - (iota _len14302_)))) + (iota _len16284_)))) (declare (not safe)) (filter-map2 - __tmp15712 - _hd14300_ - __tmp15711)))) + __tmp17694 + _hd16282_ + __tmp17693)))) (declare (not safe)) - (cons _len14302_ __tmp15710)))) + (cons _len16284_ __tmp17692)))) (declare (not safe)) - (cons _tmp14304_ __tmp15709)))) + (cons _tmp16286_ __tmp17691)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15708 - _post14272_)))) + (cons __tmp17690 + _post16254_)))) (declare (not safe)) - (_lp14267_ - _rest14299_ - __tmp15718 - __tmp15714 - __tmp15707))) + (_lp16249_ + _rest16281_ + __tmp17700 + __tmp17696 + __tmp17689))) (let () (declare (not safe)) (__compile-error__% - _stx14164_ - _hd14300_))))))) + _stx16146_ + _hd16282_))))))) (if (let () (declare (not safe)) - (##pair? _rest1427314287_)) - (let ((_tl1428314333_ + (##pair? _rest1625516269_)) + (let ((_tl1626516315_ (let () (declare (not safe)) - (##cdr _rest1427314287_))) - (_hd1428214331_ + (##cdr _rest1625516269_))) + (_hd1626416313_ (let () (declare (not safe)) - (##car _rest1427314287_)))) + (##car _rest1625516269_)))) (if (let () (declare (not safe)) - (##pair? _hd1428214331_)) - (let ((_tl1428514338_ + (##pair? _hd1626416313_)) + (let ((_tl1626716320_ (let () (declare (not safe)) - (##cdr _hd1428214331_))) - (_hd1428414336_ + (##cdr _hd1626416313_))) + (_hd1626616318_ (let () (declare (not safe)) - (##car _hd1428214331_)))) + (##car _hd1626416313_)))) (if (let () (declare (not safe)) - (##null? _tl1428514338_)) - (let ((_id14341_ _hd1428414336_) - (_rest14343_ _tl1428314333_)) + (##null? _tl1626716320_)) + (let ((_id16323_ _hd1626616318_) + (_rest16325_ _tl1626516315_)) (let () (declare (not safe)) - (_K1428114328_ - _rest14343_ - _id14341_))) - (let ((_hd14318_ _hd1428214331_) - (_rest14320_ _tl1428314333_)) + (_K1626316310_ + _rest16325_ + _id16323_))) + (let ((_hd16300_ _hd1626416313_) + (_rest16302_ _tl1626516315_)) (let () (declare (not safe)) - (_K1427814310_ - _rest14320_ - _hd14318_))))) - (let ((_hd14318_ _hd1428214331_) - (_rest14320_ _tl1428314333_)) + (_K1626016292_ + _rest16302_ + _hd16300_))))) + (let ((_hd16300_ _hd1626416313_) + (_rest16302_ _tl1626516315_)) (let () (declare (not safe)) - (_K1427814310_ - _rest14320_ - _hd14318_))))) + (_K1626016292_ + _rest16302_ + _hd16300_))))) (let () (declare (not safe)) - (_else1427614295_)))))))) - (_compile-post14168_ - (lambda (_post14170_ _body14171_) - (let _lp14173_ ((_rest14175_ _post14170_) - (_check14176_ '()) - (_bind14177_ '())) - (let* ((_rest1417814190_ _rest14175_) - (_else1418014198_ + (_else1625816277_)))))))) + (_compile-post16150_ + (lambda (_post16152_ _body16153_) + (let _lp16155_ ((_rest16157_ _post16152_) + (_check16158_ '()) + (_bind16159_ '())) + (let* ((_rest1616016172_ _rest16157_) + (_else1616216180_ (lambda () - (let ((__tmp15727 - (let ((__tmp15728 - (let ((__tmp15729 - (let ((__tmp15730 - (let ((__tmp15731 + (let ((__tmp17709 + (let ((__tmp17710 + (let ((__tmp17711 + (let ((__tmp17712 + (let ((__tmp17713 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15732 - (let ((__tmp15733 + (let ((__tmp17714 + (let ((__tmp17715 (let () (declare (not safe)) - (cons _body14171_ '())))) + (cons _body16153_ '())))) (declare (not safe)) - (cons _bind14177_ __tmp15733)))) + (cons _bind16159_ __tmp17715)))) (declare (not safe)) - (cons 'let __tmp15732)))) + (cons 'let __tmp17714)))) (declare (not safe)) - (__SRC__% __tmp15731 _stx14164_)))) + (__SRC__% __tmp17713 _stx16146_)))) (declare (not safe)) - (cons __tmp15730 '())))) + (cons __tmp17712 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp15729 - _check14176_)))) + __tmp17711 + _check16158_)))) (declare (not safe)) - (cons 'begin __tmp15728)))) + (cons 'begin __tmp17710)))) (declare (not safe)) - (__SRC__% __tmp15727 _stx14164_)))) - (_K1418214237_ - (lambda (_rest14201_ - _init14202_ - _len14203_ - _tmp14204_) - (let ((__tmp15741 - (let ((__tmp15742 - (let ((__tmp15743 - (let ((__tmp15744 - (let ((__tmp15745 + (__SRC__% __tmp17709 _stx16146_)))) + (_K1616416219_ + (lambda (_rest16183_ + _init16184_ + _len16185_ + _tmp16186_) + (let ((__tmp17723 + (let ((__tmp17724 + (let ((__tmp17725 + (let ((__tmp17726 + (let ((__tmp17727 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len14203_ '())))) + (cons _len16185_ '())))) (declare (not safe)) - (cons _tmp14204_ __tmp15745)))) + (cons _tmp16186_ __tmp17727)))) (declare (not safe)) - (cons '__check-values __tmp15744)))) + (cons '__check-values __tmp17726)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp15743 - _stx14164_)))) + __tmp17725 + _stx16146_)))) (declare (not safe)) - (cons __tmp15742 _check14176_))) - (__tmp15734 - (let ((__tmp15735 - (lambda (_hd14206_ _r14207_) - (let* ((_hd1420814215_ - _hd14206_) - (_E1421014219_ + (cons __tmp17724 _check16158_))) + (__tmp17716 + (let ((__tmp17717 + (lambda (_hd16188_ _r16189_) + (let* ((_hd1619016197_ + _hd16188_) + (_E1619216201_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1420814215_))) - (_K1421114225_ - (lambda (_k14222_ _id14223_) - (let ((__tmp15736 - (let ((__tmp15737 - (let ((__tmp15738 - (let ((__tmp15739 - (let ((__tmp15740 + _hd1619016197_))) + (_K1619316207_ + (lambda (_k16204_ _id16205_) + (let ((__tmp17718 + (let ((__tmp17719 + (let ((__tmp17720 + (let ((__tmp17721 + (let ((__tmp17722 (let () (declare (not safe)) - (cons _k14222_ '())))) + (cons _k16204_ '())))) (declare (not safe)) - (cons _tmp14204_ __tmp15740)))) + (cons _tmp16186_ __tmp17722)))) (declare (not safe)) - (cons '##vector-ref __tmp15739)))) + (cons '##vector-ref __tmp17721)))) (declare (not safe)) - (cons __tmp15738 '())))) + (cons __tmp17720 '())))) (declare (not safe)) - (cons _id14223_ __tmp15737)))) + (cons _id16205_ __tmp17719)))) (declare (not safe)) - (cons __tmp15736 _r14207_))))) + (cons __tmp17718 _r16189_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd1420814215_)) - (let ((_hd1421214228_ + (##pair? _hd1619016197_)) + (let ((_hd1619416210_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd1420814215_))) - (_tl1421314230_ - (let () (declare (not safe)) (##cdr _hd1420814215_)))) - (let* ((_id14233_ _hd1421214228_) (_k14235_ _tl1421314230_)) + (##car _hd1619016197_))) + (_tl1619516212_ + (let () (declare (not safe)) (##cdr _hd1619016197_)))) + (let* ((_id16215_ _hd1619416210_) (_k16217_ _tl1619516212_)) (declare (not safe)) - (_K1421114225_ _k14235_ _id14233_))) - (let () (declare (not safe)) (_E1421014219_))))))) + (_K1619316207_ _k16217_ _id16215_))) + (let () (declare (not safe)) (_E1619216201_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp15735 - _bind14177_ - _init14202_)))) + (foldr1 __tmp17717 + _bind16159_ + _init16184_)))) (declare (not safe)) - (_lp14173_ - _rest14201_ - __tmp15741 - __tmp15734))))) + (_lp16155_ + _rest16183_ + __tmp17723 + __tmp17716))))) (if (let () (declare (not safe)) - (##pair? _rest1417814190_)) - (let ((_hd1418314240_ + (##pair? _rest1616016172_)) + (let ((_hd1616516222_ (let () (declare (not safe)) - (##car _rest1417814190_))) - (_tl1418414242_ + (##car _rest1616016172_))) + (_tl1616616224_ (let () (declare (not safe)) - (##cdr _rest1417814190_)))) + (##cdr _rest1616016172_)))) (if (let () (declare (not safe)) - (##pair? _hd1418314240_)) - (let ((_hd1418514245_ + (##pair? _hd1616516222_)) + (let ((_hd1616716227_ (let () (declare (not safe)) - (##car _hd1418314240_))) - (_tl1418614247_ + (##car _hd1616516222_))) + (_tl1616816229_ (let () (declare (not safe)) - (##cdr _hd1418314240_)))) - (let ((_tmp14250_ _hd1418514245_)) + (##cdr _hd1616516222_)))) + (let ((_tmp16232_ _hd1616716227_)) (if (let () (declare (not safe)) - (##pair? _tl1418614247_)) - (let ((_hd1418714252_ + (##pair? _tl1616816229_)) + (let ((_hd1616916234_ (let () (declare (not safe)) - (##car _tl1418614247_))) - (_tl1418814254_ + (##car _tl1616816229_))) + (_tl1617016236_ (let () (declare (not safe)) - (##cdr _tl1418614247_)))) - (let* ((_len14257_ _hd1418714252_) - (_init14259_ _tl1418814254_) - (_rest14261_ - _tl1418414242_)) + (##cdr _tl1616816229_)))) + (let* ((_len16239_ _hd1616916234_) + (_init16241_ _tl1617016236_) + (_rest16243_ + _tl1616616224_)) (declare (not safe)) - (_K1418214237_ - _rest14261_ - _init14259_ - _len14257_ - _tmp14250_))) + (_K1616416219_ + _rest16243_ + _init16241_ + _len16239_ + _tmp16232_))) (let () (declare (not safe)) - (_else1418014198_))))) + (_else1616216180_))))) (let () (declare (not safe)) - (_else1418014198_)))) + (_else1616216180_)))) (let () (declare (not safe)) - (_else1418014198_)))))))) + (_else1616216180_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx14164_ - _compile-simple14166_ - _compile-values14167_))))) + _stx16146_ + _compile-simple16148_ + _compile-values16149_))))) (define __compile-letrec-values% - (lambda (_stx13964_) - (letrec ((_compile-simple13966_ - (lambda (_hd-ids14160_ _exprs14161_ _body14162_) - (let ((__tmp15746 - (let ((__tmp15747 - (let ((__tmp15749 + (lambda (_stx15946_) + (letrec ((_compile-simple15948_ + (lambda (_hd-ids16142_ _exprs16143_ _body16144_) + (let ((__tmp17728 + (let ((__tmp17729 + (let ((__tmp17731 (map list (map __compile-head-id - _hd-ids14160_) - _exprs14161_)) - (__tmp15748 + _hd-ids16142_) + _exprs16143_)) + (__tmp17730 (let () (declare (not safe)) - (cons _body14162_ '())))) + (cons _body16144_ '())))) (declare (not safe)) - (cons __tmp15749 __tmp15748)))) + (cons __tmp17731 __tmp17730)))) (declare (not safe)) - (cons 'letrec __tmp15747)))) + (cons 'letrec __tmp17729)))) (declare (not safe)) - (__SRC__% __tmp15746 _stx13964_)))) - (_compile-values13967_ - (lambda (_hd-ids14074_ _exprs14075_ _body14076_) - (let _lp14078_ ((_rest14080_ _hd-ids14074_) - (_exprs14081_ _exprs14075_) - (_pre14082_ '()) - (_bind14083_ '()) - (_post14084_ '())) - (let* ((_rest1408514099_ _rest14080_) - (_else1408814107_ + (__SRC__% __tmp17728 _stx15946_)))) + (_compile-values15949_ + (lambda (_hd-ids16056_ _exprs16057_ _body16058_) + (let _lp16060_ ((_rest16062_ _hd-ids16056_) + (_exprs16063_ _exprs16057_) + (_pre16064_ '()) + (_bind16065_ '()) + (_post16066_ '())) + (let* ((_rest1606716081_ _rest16062_) + (_else1607016089_ (lambda () (let () (declare (not safe)) - (_compile-inner13968_ - _pre14082_ - _bind14083_ - _post14084_ - _body14076_))))) - (let ((_K1409314143_ - (lambda (_rest14140_ _id14141_) - (let ((__tmp15755 (cdr _exprs14081_)) - (__tmp15750 - (let ((__tmp15751 - (let ((__tmp15754 + (_compile-inner15950_ + _pre16064_ + _bind16065_ + _post16066_ + _body16058_))))) + (let ((_K1607516125_ + (lambda (_rest16122_ _id16123_) + (let ((__tmp17737 (cdr _exprs16063_)) + (__tmp17732 + (let ((__tmp17733 + (let ((__tmp17736 (let () (declare (not safe)) (__compile-head-id - _id14141_))) - (__tmp15752 - (let ((__tmp15753 - (car _exprs14081_))) + _id16123_))) + (__tmp17734 + (let ((__tmp17735 + (car _exprs16063_))) (declare (not safe)) - (cons __tmp15753 + (cons __tmp17735 '())))) (declare (not safe)) - (cons __tmp15754 - __tmp15752)))) + (cons __tmp17736 + __tmp17734)))) (declare (not safe)) - (cons __tmp15751 _bind14083_)))) + (cons __tmp17733 _bind16065_)))) (declare (not safe)) - (_lp14078_ - _rest14140_ - __tmp15755 - _pre14082_ - __tmp15750 - _post14084_)))) - (_K1409014125_ - (lambda (_rest14111_ _hd14112_) + (_lp16060_ + _rest16122_ + __tmp17737 + _pre16064_ + __tmp17732 + _post16066_)))) + (_K1607216107_ + (lambda (_rest16093_ _hd16094_) (if (let () (declare (not safe)) - (__AST-id? _hd14112_)) - (let ((__tmp15783 (cdr _exprs14081_)) - (__tmp15776 - (let ((__tmp15777 - (let ((__tmp15782 + (__AST-id? _hd16094_)) + (let ((__tmp17765 (cdr _exprs16063_)) + (__tmp17758 + (let ((__tmp17759 + (let ((__tmp17764 (let () (declare (not safe)) (__compile-head-id - _hd14112_))) - (__tmp15778 - (let ((__tmp15779 + _hd16094_))) + (__tmp17760 + (let ((__tmp17761 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15780 - (let ((__tmp15781 (car _exprs14081_))) + (let ((__tmp17762 + (let ((__tmp17763 (car _exprs16063_))) (declare (not safe)) - (cons __tmp15781 '())))) + (cons __tmp17763 '())))) (declare (not safe)) - (cons 'values->list __tmp15780)))) + (cons 'values->list __tmp17762)))) (declare (not safe)) - (cons __tmp15779 '())))) + (cons __tmp17761 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15782 - __tmp15778)))) + (cons __tmp17764 + __tmp17760)))) (declare (not safe)) - (cons __tmp15777 _bind14083_)))) + (cons __tmp17759 _bind16065_)))) (declare (not safe)) - (_lp14078_ - _rest14111_ - __tmp15783 - _pre14082_ - __tmp15776 - _post14084_)) + (_lp16060_ + _rest16093_ + __tmp17765 + _pre16064_ + __tmp17758 + _post16066_)) (if (let () (declare (not safe)) - (list? _hd14112_)) - (let* ((_len14114_ (length _hd14112_)) - (_tmp14116_ - (let ((__tmp15756 (gensym))) + (list? _hd16094_)) + (let* ((_len16096_ (length _hd16094_)) + (_tmp16098_ + (let ((__tmp17738 (gensym))) (declare (not safe)) - (__SRC__0 __tmp15756)))) - (let ((__tmp15775 - (cdr _exprs14081_)) - (__tmp15768 - (let ((__tmp15769 - (lambda (_id14119_ + (__SRC__0 __tmp17738)))) + (let ((__tmp17757 + (cdr _exprs16063_)) + (__tmp17750 + (let ((__tmp17751 + (lambda (_id16101_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r14120_) - (if (let () (declare (not safe)) (__AST-e _id14119_)) - (let ((__tmp15770 - (let ((__tmp15774 + _r16102_) + (if (let () (declare (not safe)) (__AST-e _id16101_)) + (let ((__tmp17752 + (let ((__tmp17756 (let () (declare (not safe)) - (__SRC__0 _id14119_))) - (__tmp15771 - (let ((__tmp15772 - (let ((__tmp15773 + (__SRC__0 _id16101_))) + (__tmp17753 + (let ((__tmp17754 + (let ((__tmp17755 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp15773)))) + (cons 'quote __tmp17755)))) (declare (not safe)) - (cons __tmp15772 '())))) + (cons __tmp17754 '())))) (declare (not safe)) - (cons __tmp15774 __tmp15771)))) + (cons __tmp17756 __tmp17753)))) (declare (not safe)) - (cons __tmp15770 _r14120_)) - _r14120_)))) + (cons __tmp17752 _r16102_)) + _r16102_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp15769 - _pre14082_ - _hd14112_))) - (__tmp15764 - (let ((__tmp15765 - (let ((__tmp15766 - (let ((__tmp15767 + (foldl1 __tmp17751 + _pre16064_ + _hd16094_))) + (__tmp17746 + (let ((__tmp17747 + (let ((__tmp17748 + (let ((__tmp17749 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs14081_))) + (car _exprs16063_))) (declare (not safe)) - (cons __tmp15767 '())))) + (cons __tmp17749 '())))) (declare (not safe)) - (cons _tmp14116_ __tmp15766)))) + (cons _tmp16098_ __tmp17748)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15765 - _bind14083_))) - (__tmp15757 - (let ((__tmp15758 - (let ((__tmp15759 - (let ((__tmp15760 + (cons __tmp17747 + _bind16065_))) + (__tmp17739 + (let ((__tmp17740 + (let ((__tmp17741 + (let ((__tmp17742 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15762 - (lambda (_id14122_ _k14123_) + (let ((__tmp17744 + (lambda (_id16104_ _k16105_) (if (let () (declare (not safe)) - (__AST-e _id14122_)) - (let ((__tmp15763 + (__AST-e _id16104_)) + (let ((__tmp17745 (let () (declare (not safe)) - (__SRC__0 _id14122_)))) + (__SRC__0 _id16104_)))) (declare (not safe)) - (cons __tmp15763 _k14123_)) + (cons __tmp17745 _k16105_)) '#f))) - (__tmp15761 + (__tmp17743 (let () (declare (not safe)) - (iota _len14114_)))) + (iota _len16096_)))) (declare (not safe)) (filter-map2 - __tmp15762 - _hd14112_ - __tmp15761)))) + __tmp17744 + _hd16094_ + __tmp17743)))) (declare (not safe)) - (cons _len14114_ __tmp15760)))) + (cons _len16096_ __tmp17742)))) (declare (not safe)) - (cons _tmp14116_ __tmp15759)))) + (cons _tmp16098_ __tmp17741)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15758 - _post14084_)))) + (cons __tmp17740 + _post16066_)))) (declare (not safe)) - (_lp14078_ - _rest14111_ - __tmp15775 - __tmp15768 - __tmp15764 - __tmp15757))) + (_lp16060_ + _rest16093_ + __tmp17757 + __tmp17750 + __tmp17746 + __tmp17739))) (let () (declare (not safe)) (__compile-error__% - _stx13964_ - _hd14112_))))))) + _stx15946_ + _hd16094_))))))) (if (let () (declare (not safe)) - (##pair? _rest1408514099_)) - (let ((_tl1409514148_ + (##pair? _rest1606716081_)) + (let ((_tl1607716130_ (let () (declare (not safe)) - (##cdr _rest1408514099_))) - (_hd1409414146_ + (##cdr _rest1606716081_))) + (_hd1607616128_ (let () (declare (not safe)) - (##car _rest1408514099_)))) + (##car _rest1606716081_)))) (if (let () (declare (not safe)) - (##pair? _hd1409414146_)) - (let ((_tl1409714153_ + (##pair? _hd1607616128_)) + (let ((_tl1607916135_ (let () (declare (not safe)) - (##cdr _hd1409414146_))) - (_hd1409614151_ + (##cdr _hd1607616128_))) + (_hd1607816133_ (let () (declare (not safe)) - (##car _hd1409414146_)))) + (##car _hd1607616128_)))) (if (let () (declare (not safe)) - (##null? _tl1409714153_)) - (let ((_id14156_ _hd1409614151_) - (_rest14158_ _tl1409514148_)) + (##null? _tl1607916135_)) + (let ((_id16138_ _hd1607816133_) + (_rest16140_ _tl1607716130_)) (let () (declare (not safe)) - (_K1409314143_ - _rest14158_ - _id14156_))) - (let ((_hd14133_ _hd1409414146_) - (_rest14135_ _tl1409514148_)) + (_K1607516125_ + _rest16140_ + _id16138_))) + (let ((_hd16115_ _hd1607616128_) + (_rest16117_ _tl1607716130_)) (let () (declare (not safe)) - (_K1409014125_ - _rest14135_ - _hd14133_))))) - (let ((_hd14133_ _hd1409414146_) - (_rest14135_ _tl1409514148_)) + (_K1607216107_ + _rest16117_ + _hd16115_))))) + (let ((_hd16115_ _hd1607616128_) + (_rest16117_ _tl1607716130_)) (let () (declare (not safe)) - (_K1409014125_ - _rest14135_ - _hd14133_))))) + (_K1607216107_ + _rest16117_ + _hd16115_))))) (let () (declare (not safe)) - (_else1408814107_)))))))) - (_compile-inner13968_ - (lambda (_pre14069_ _bind14070_ _post14071_ _body14072_) - (if (let () (declare (not safe)) (null? _pre14069_)) + (_else1607016089_)))))))) + (_compile-inner15950_ + (lambda (_pre16051_ _bind16052_ _post16053_ _body16054_) + (if (let () (declare (not safe)) (null? _pre16051_)) (let () (declare (not safe)) - (_compile-bind13969_ - _bind14070_ - _post14071_ - _body14072_)) - (let ((__tmp15784 - (let ((__tmp15785 - (let ((__tmp15788 (reverse _pre14069_)) - (__tmp15786 - (let ((__tmp15787 + (_compile-bind15951_ + _bind16052_ + _post16053_ + _body16054_)) + (let ((__tmp17766 + (let ((__tmp17767 + (let ((__tmp17770 (reverse _pre16051_)) + (__tmp17768 + (let ((__tmp17769 (let () (declare (not safe)) - (_compile-bind13969_ - _bind14070_ - _post14071_ - _body14072_)))) + (_compile-bind15951_ + _bind16052_ + _post16053_ + _body16054_)))) (declare (not safe)) - (cons __tmp15787 '())))) + (cons __tmp17769 '())))) (declare (not safe)) - (cons __tmp15788 __tmp15786)))) + (cons __tmp17770 __tmp17768)))) (declare (not safe)) - (cons 'let __tmp15785)))) + (cons 'let __tmp17767)))) (declare (not safe)) - (__SRC__% __tmp15784 _stx13964_))))) - (_compile-bind13969_ - (lambda (_bind14065_ _post14066_ _body14067_) - (let ((__tmp15789 - (let ((__tmp15790 - (let ((__tmp15793 (reverse _bind14065_)) - (__tmp15791 - (let ((__tmp15792 + (__SRC__% __tmp17766 _stx15946_))))) + (_compile-bind15951_ + (lambda (_bind16047_ _post16048_ _body16049_) + (let ((__tmp17771 + (let ((__tmp17772 + (let ((__tmp17775 (reverse _bind16047_)) + (__tmp17773 + (let ((__tmp17774 (let () (declare (not safe)) - (_compile-post13970_ - _post14066_ - _body14067_)))) + (_compile-post15952_ + _post16048_ + _body16049_)))) (declare (not safe)) - (cons __tmp15792 '())))) + (cons __tmp17774 '())))) (declare (not safe)) - (cons __tmp15793 __tmp15791)))) + (cons __tmp17775 __tmp17773)))) (declare (not safe)) - (cons 'letrec __tmp15790)))) + (cons 'letrec __tmp17772)))) (declare (not safe)) - (__SRC__% __tmp15789 _stx13964_)))) - (_compile-post13970_ - (lambda (_post13972_ _body13973_) - (let _lp13975_ ((_rest13977_ _post13972_) - (_check13978_ '()) - (_bind13979_ '())) - (let* ((_rest1398013992_ _rest13977_) - (_else1398214000_ + (__SRC__% __tmp17771 _stx15946_)))) + (_compile-post15952_ + (lambda (_post15954_ _body15955_) + (let _lp15957_ ((_rest15959_ _post15954_) + (_check15960_ '()) + (_bind15961_ '())) + (let* ((_rest1596215974_ _rest15959_) + (_else1596415982_ (lambda () - (let ((__tmp15794 - (let ((__tmp15795 - (let ((__tmp15796 - (let ((__tmp15797 + (let ((__tmp17776 + (let ((__tmp17777 + (let ((__tmp17778 + (let ((__tmp17779 (let () (declare (not safe)) - (cons _body13973_ + (cons _body15955_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp15797 _bind13979_)))) + (foldr1 cons __tmp17779 _bind15961_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp15796 - _check13978_)))) + __tmp17778 + _check15960_)))) (declare (not safe)) - (cons 'begin __tmp15795)))) + (cons 'begin __tmp17777)))) (declare (not safe)) - (__SRC__% __tmp15794 _stx13964_)))) - (_K1398414039_ - (lambda (_rest14003_ - _init14004_ - _len14005_ - _tmp14006_) - (let ((__tmp15806 - (let ((__tmp15807 - (let ((__tmp15808 - (let ((__tmp15809 - (let ((__tmp15810 + (__SRC__% __tmp17776 _stx15946_)))) + (_K1596616021_ + (lambda (_rest15985_ + _init15986_ + _len15987_ + _tmp15988_) + (let ((__tmp17788 + (let ((__tmp17789 + (let ((__tmp17790 + (let ((__tmp17791 + (let ((__tmp17792 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len14005_ '())))) + (cons _len15987_ '())))) (declare (not safe)) - (cons _tmp14006_ __tmp15810)))) + (cons _tmp15988_ __tmp17792)))) (declare (not safe)) - (cons '__check-values __tmp15809)))) + (cons '__check-values __tmp17791)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp15808 - _stx13964_)))) + __tmp17790 + _stx15946_)))) (declare (not safe)) - (cons __tmp15807 _check13978_))) - (__tmp15798 - (let ((__tmp15799 - (lambda (_hd14008_ _r14009_) - (let* ((_hd1401014017_ - _hd14008_) - (_E1401214021_ + (cons __tmp17789 _check15960_))) + (__tmp17780 + (let ((__tmp17781 + (lambda (_hd15990_ _r15991_) + (let* ((_hd1599215999_ + _hd15990_) + (_E1599416003_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1401014017_))) - (_K1401314027_ - (lambda (_k14024_ _id14025_) - (let ((__tmp15800 - (let ((__tmp15801 - (let ((__tmp15802 - (let ((__tmp15803 - (let ((__tmp15804 - (let ((__tmp15805 + _hd1599215999_))) + (_K1599516009_ + (lambda (_k16006_ _id16007_) + (let ((__tmp17782 + (let ((__tmp17783 + (let ((__tmp17784 + (let ((__tmp17785 + (let ((__tmp17786 + (let ((__tmp17787 (let () (declare (not safe)) - (cons _k14024_ + (cons _k16006_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp14006_ __tmp15805)))) + (cons _tmp15988_ __tmp17787)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp15804)))) + __tmp17786)))) (declare (not safe)) - (cons __tmp15803 '())))) + (cons __tmp17785 '())))) (declare (not safe)) - (cons _id14025_ __tmp15802)))) + (cons _id16007_ __tmp17784)))) (declare (not safe)) - (cons 'set! __tmp15801)))) + (cons 'set! __tmp17783)))) (declare (not safe)) - (cons __tmp15800 _r14009_))))) + (cons __tmp17782 _r15991_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd1401014017_)) - (let ((_hd1401414030_ + (##pair? _hd1599215999_)) + (let ((_hd1599616012_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd1401014017_))) - (_tl1401514032_ - (let () (declare (not safe)) (##cdr _hd1401014017_)))) - (let* ((_id14035_ _hd1401414030_) (_k14037_ _tl1401514032_)) + (##car _hd1599215999_))) + (_tl1599716014_ + (let () (declare (not safe)) (##cdr _hd1599215999_)))) + (let* ((_id16017_ _hd1599616012_) (_k16019_ _tl1599716014_)) (declare (not safe)) - (_K1401314027_ _k14037_ _id14035_))) - (let () (declare (not safe)) (_E1401214021_))))))) + (_K1599516009_ _k16019_ _id16017_))) + (let () (declare (not safe)) (_E1599416003_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp15799 - _bind13979_ - _init14004_)))) + (foldr1 __tmp17781 + _bind15961_ + _init15986_)))) (declare (not safe)) - (_lp13975_ - _rest14003_ - __tmp15806 - __tmp15798))))) + (_lp15957_ + _rest15985_ + __tmp17788 + __tmp17780))))) (if (let () (declare (not safe)) - (##pair? _rest1398013992_)) - (let ((_hd1398514042_ + (##pair? _rest1596215974_)) + (let ((_hd1596716024_ (let () (declare (not safe)) - (##car _rest1398013992_))) - (_tl1398614044_ + (##car _rest1596215974_))) + (_tl1596816026_ (let () (declare (not safe)) - (##cdr _rest1398013992_)))) + (##cdr _rest1596215974_)))) (if (let () (declare (not safe)) - (##pair? _hd1398514042_)) - (let ((_hd1398714047_ + (##pair? _hd1596716024_)) + (let ((_hd1596916029_ (let () (declare (not safe)) - (##car _hd1398514042_))) - (_tl1398814049_ + (##car _hd1596716024_))) + (_tl1597016031_ (let () (declare (not safe)) - (##cdr _hd1398514042_)))) - (let ((_tmp14052_ _hd1398714047_)) + (##cdr _hd1596716024_)))) + (let ((_tmp16034_ _hd1596916029_)) (if (let () (declare (not safe)) - (##pair? _tl1398814049_)) - (let ((_hd1398914054_ + (##pair? _tl1597016031_)) + (let ((_hd1597116036_ (let () (declare (not safe)) - (##car _tl1398814049_))) - (_tl1399014056_ + (##car _tl1597016031_))) + (_tl1597216038_ (let () (declare (not safe)) - (##cdr _tl1398814049_)))) - (let* ((_len14059_ _hd1398914054_) - (_init14061_ _tl1399014056_) - (_rest14063_ - _tl1398614044_)) + (##cdr _tl1597016031_)))) + (let* ((_len16041_ _hd1597116036_) + (_init16043_ _tl1597216038_) + (_rest16045_ + _tl1596816026_)) (declare (not safe)) - (_K1398414039_ - _rest14063_ - _init14061_ - _len14059_ - _tmp14052_))) + (_K1596616021_ + _rest16045_ + _init16043_ + _len16041_ + _tmp16034_))) (let () (declare (not safe)) - (_else1398214000_))))) + (_else1596415982_))))) (let () (declare (not safe)) - (_else1398214000_)))) + (_else1596415982_)))) (let () (declare (not safe)) - (_else1398214000_)))))))) + (_else1596415982_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx13964_ - _compile-simple13966_ - _compile-values13967_))))) + _stx15946_ + _compile-simple15948_ + _compile-values15949_))))) (define __compile-letrec*-values% - (lambda (_stx13719_) - (letrec ((_compile-simple13721_ - (lambda (_hd-ids13960_ _exprs13961_ _body13962_) - (let ((__tmp15811 - (let ((__tmp15812 - (let ((__tmp15814 + (lambda (_stx15701_) + (letrec ((_compile-simple15703_ + (lambda (_hd-ids15942_ _exprs15943_ _body15944_) + (let ((__tmp17793 + (let ((__tmp17794 + (let ((__tmp17796 (map list (map __compile-head-id - _hd-ids13960_) - _exprs13961_)) - (__tmp15813 + _hd-ids15942_) + _exprs15943_)) + (__tmp17795 (let () (declare (not safe)) - (cons _body13962_ '())))) + (cons _body15944_ '())))) (declare (not safe)) - (cons __tmp15814 __tmp15813)))) + (cons __tmp17796 __tmp17795)))) (declare (not safe)) - (cons 'letrec* __tmp15812)))) + (cons 'letrec* __tmp17794)))) (declare (not safe)) - (__SRC__% __tmp15811 _stx13719_)))) - (_compile-values13722_ - (lambda (_hd-ids13871_ _exprs13872_ _body13873_) - (let _lp13875_ ((_rest13877_ _hd-ids13871_) - (_exprs13878_ _exprs13872_) - (_bind13879_ '()) - (_post13880_ '())) - (let* ((_rest1388113895_ _rest13877_) - (_else1388413903_ + (__SRC__% __tmp17793 _stx15701_)))) + (_compile-values15704_ + (lambda (_hd-ids15853_ _exprs15854_ _body15855_) + (let _lp15857_ ((_rest15859_ _hd-ids15853_) + (_exprs15860_ _exprs15854_) + (_bind15861_ '()) + (_post15862_ '())) + (let* ((_rest1586315877_ _rest15859_) + (_else1586615885_ (lambda () (let () (declare (not safe)) - (_compile-bind13723_ - _bind13879_ - _post13880_ - _body13873_))))) - (let ((_K1388913943_ - (lambda (_rest13938_ _hd13939_) + (_compile-bind15705_ + _bind15861_ + _post15862_ + _body15855_))))) + (let ((_K1587115925_ + (lambda (_rest15920_ _hd15921_) (if (let () (declare (not safe)) - (__AST-id? _hd13939_)) - (let ((_id13941_ + (__AST-id? _hd15921_)) + (let ((_id15923_ (let () (declare (not safe)) - (__SRC__0 _hd13939_)))) - (let ((__tmp15829 (cdr _exprs13878_)) - (__tmp15824 - (let ((__tmp15825 - (let ((__tmp15826 - (let ((__tmp15827 + (__SRC__0 _hd15921_)))) + (let ((__tmp17811 (cdr _exprs15860_)) + (__tmp17806 + (let ((__tmp17807 + (let ((__tmp17808 + (let ((__tmp17809 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15828 + (let ((__tmp17810 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp15828)))) + (cons 'quote __tmp17810)))) (declare (not safe)) - (cons __tmp15827 '())))) + (cons __tmp17809 '())))) (declare (not safe)) - (cons _id13941_ __tmp15826)))) + (cons _id15923_ __tmp17808)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15825 _bind13879_))) - (__tmp15820 - (let ((__tmp15821 - (let ((__tmp15822 - (let ((__tmp15823 + (cons __tmp17807 _bind15861_))) + (__tmp17802 + (let ((__tmp17803 + (let ((__tmp17804 + (let ((__tmp17805 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs13878_))) + (car _exprs15860_))) (declare (not safe)) - (cons __tmp15823 '())))) + (cons __tmp17805 '())))) (declare (not safe)) - (cons _id13941_ __tmp15822)))) + (cons _id15923_ __tmp17804)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15821 - _post13880_)))) + (cons __tmp17803 + _post15862_)))) (declare (not safe)) - (_lp13875_ - _rest13938_ - __tmp15829 - __tmp15824 - __tmp15820))) - (let ((__tmp15819 (cdr _exprs13878_)) - (__tmp15815 - (let ((__tmp15816 - (let ((__tmp15817 - (let ((__tmp15818 + (_lp15857_ + _rest15920_ + __tmp17811 + __tmp17806 + __tmp17802))) + (let ((__tmp17801 (cdr _exprs15860_)) + (__tmp17797 + (let ((__tmp17798 + (let ((__tmp17799 + (let ((__tmp17800 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs13878_))) + (car _exprs15860_))) (declare (not safe)) - (cons __tmp15818 '())))) + (cons __tmp17800 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp15817)))) + (cons '#f __tmp17799)))) (declare (not safe)) - (cons __tmp15816 _post13880_)))) + (cons __tmp17798 _post15862_)))) (declare (not safe)) - (_lp13875_ - _rest13938_ - __tmp15819 - _bind13879_ - __tmp15815))))) - (_K1388613923_ - (lambda (_rest13907_ _hd13908_) + (_lp15857_ + _rest15920_ + __tmp17801 + _bind15861_ + __tmp17797))))) + (_K1586815905_ + (lambda (_rest15889_ _hd15890_) (if (let () (declare (not safe)) - (__AST-id? _hd13908_)) - (let ((_id13910_ + (__AST-id? _hd15890_)) + (let ((_id15892_ (let () (declare (not safe)) - (__SRC__0 _hd13908_)))) - (let ((__tmp15865 (cdr _exprs13878_)) - (__tmp15860 - (let ((__tmp15861 - (let ((__tmp15862 - (let ((__tmp15863 + (__SRC__0 _hd15890_)))) + (let ((__tmp17847 (cdr _exprs15860_)) + (__tmp17842 + (let ((__tmp17843 + (let ((__tmp17844 + (let ((__tmp17845 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15864 + (let ((__tmp17846 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp15864)))) + (cons 'quote __tmp17846)))) (declare (not safe)) - (cons __tmp15863 '())))) + (cons __tmp17845 '())))) (declare (not safe)) - (cons _id13910_ __tmp15862)))) + (cons _id15892_ __tmp17844)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15861 _bind13879_))) - (__tmp15854 - (let ((__tmp15855 - (let ((__tmp15856 - (let ((__tmp15857 + (cons __tmp17843 _bind15861_))) + (__tmp17836 + (let ((__tmp17837 + (let ((__tmp17838 + (let ((__tmp17839 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15858 - (let ((__tmp15859 (car _exprs13878_))) + (let ((__tmp17840 + (let ((__tmp17841 (car _exprs15860_))) (declare (not safe)) - (cons __tmp15859 '())))) + (cons __tmp17841 '())))) (declare (not safe)) - (cons 'values->list __tmp15858)))) + (cons 'values->list __tmp17840)))) (declare (not safe)) - (cons __tmp15857 '())))) + (cons __tmp17839 '())))) (declare (not safe)) - (cons _id13910_ __tmp15856)))) + (cons _id15892_ __tmp17838)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15855 - _post13880_)))) + (cons __tmp17837 + _post15862_)))) (declare (not safe)) - (_lp13875_ - _rest13907_ - __tmp15865 - __tmp15860 - __tmp15854))) - (if (let ((__tmp15853 + (_lp15857_ + _rest15889_ + __tmp17847 + __tmp17842 + __tmp17836))) + (if (let ((__tmp17835 (let () (declare (not safe)) - (__AST-e _hd13908_)))) + (__AST-e _hd15890_)))) (declare (not safe)) - (not __tmp15853)) - (let ((__tmp15852 (cdr _exprs13878_)) - (__tmp15848 - (let ((__tmp15849 - (let ((__tmp15850 - (let ((__tmp15851 + (not __tmp17835)) + (let ((__tmp17834 (cdr _exprs15860_)) + (__tmp17830 + (let ((__tmp17831 + (let ((__tmp17832 + (let ((__tmp17833 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs13878_))) + (car _exprs15860_))) (declare (not safe)) - (cons __tmp15851 '())))) + (cons __tmp17833 '())))) (declare (not safe)) - (cons '#f __tmp15850)))) + (cons '#f __tmp17832)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15849 - _post13880_)))) + (cons __tmp17831 + _post15862_)))) (declare (not safe)) - (_lp13875_ - _rest13907_ - __tmp15852 - _bind13879_ - __tmp15848)) + (_lp15857_ + _rest15889_ + __tmp17834 + _bind15861_ + __tmp17830)) (if (let () (declare (not safe)) - (list? _hd13908_)) - (let* ((_len13912_ - (length _hd13908_)) - (_tmp13914_ - (let ((__tmp15830 + (list? _hd15890_)) + (let* ((_len15894_ + (length _hd15890_)) + (_tmp15896_ + (let ((__tmp17812 (gensym))) (declare (not safe)) - (__SRC__0 __tmp15830)))) - (let ((__tmp15847 - (cdr _exprs13878_)) - (__tmp15840 - (let ((__tmp15841 - (lambda (_id13917_ + (__SRC__0 __tmp17812)))) + (let ((__tmp17829 + (cdr _exprs15860_)) + (__tmp17822 + (let ((__tmp17823 + (lambda (_id15899_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r13918_) - (if (let () (declare (not safe)) (__AST-e _id13917_)) - (let ((__tmp15842 - (let ((__tmp15846 + _r15900_) + (if (let () (declare (not safe)) (__AST-e _id15899_)) + (let ((__tmp17824 + (let ((__tmp17828 (let () (declare (not safe)) - (__SRC__0 _id13917_))) - (__tmp15843 - (let ((__tmp15844 - (let ((__tmp15845 + (__SRC__0 _id15899_))) + (__tmp17825 + (let ((__tmp17826 + (let ((__tmp17827 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp15845)))) + (cons 'quote __tmp17827)))) (declare (not safe)) - (cons __tmp15844 '())))) + (cons __tmp17826 '())))) (declare (not safe)) - (cons __tmp15846 __tmp15843)))) + (cons __tmp17828 __tmp17825)))) (declare (not safe)) - (cons __tmp15842 _r13918_)) - _r13918_)))) + (cons __tmp17824 _r15900_)) + _r15900_)))) (declare (not safe)) - (foldl1 __tmp15841 _bind13879_ _hd13908_))) + (foldl1 __tmp17823 _bind15861_ _hd15890_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp15831 - (let ((__tmp15832 - (let ((__tmp15833 + (__tmp17813 + (let ((__tmp17814 + (let ((__tmp17815 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15839 (car _exprs13878_)) - (__tmp15834 - (let ((__tmp15835 - (let ((__tmp15837 - (lambda (_id13920_ _k13921_) + (let ((__tmp17821 (car _exprs15860_)) + (__tmp17816 + (let ((__tmp17817 + (let ((__tmp17819 + (lambda (_id15902_ _k15903_) (if (let () (declare (not safe)) - (__AST-e _id13920_)) - (let ((__tmp15838 + (__AST-e _id15902_)) + (let ((__tmp17820 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id13920_)))) + (__SRC__0 _id15902_)))) (declare (not safe)) - (cons __tmp15838 _k13921_)) + (cons __tmp17820 _k15903_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp15836 + (__tmp17818 (let () (declare (not safe)) - (iota _len13912_)))) + (iota _len15894_)))) (declare (not safe)) (filter-map2 - __tmp15837 - _hd13908_ - __tmp15836)))) + __tmp17819 + _hd15890_ + __tmp17818)))) (declare (not safe)) - (cons _len13912_ __tmp15835)))) + (cons _len15894_ __tmp17817)))) (declare (not safe)) - (cons __tmp15839 __tmp15834)))) + (cons __tmp17821 __tmp17816)))) (declare (not safe)) - (cons _tmp13914_ __tmp15833)))) + (cons _tmp15896_ __tmp17815)))) (declare (not safe)) - (cons __tmp15832 _post13880_)))) + (cons __tmp17814 _post15862_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp13875_ - _rest13907_ - __tmp15847 - __tmp15840 - __tmp15831))) + (_lp15857_ + _rest15889_ + __tmp17829 + __tmp17822 + __tmp17813))) (let () (declare (not safe)) (__compile-error__% - _stx13719_ - _hd13908_)))))))) + _stx15701_ + _hd15890_)))))))) (if (let () (declare (not safe)) - (##pair? _rest1388113895_)) - (let ((_tl1389113948_ + (##pair? _rest1586315877_)) + (let ((_tl1587315930_ (let () (declare (not safe)) - (##cdr _rest1388113895_))) - (_hd1389013946_ + (##cdr _rest1586315877_))) + (_hd1587215928_ (let () (declare (not safe)) - (##car _rest1388113895_)))) + (##car _rest1586315877_)))) (if (let () (declare (not safe)) - (##pair? _hd1389013946_)) - (let ((_tl1389313953_ + (##pair? _hd1587215928_)) + (let ((_tl1587515935_ (let () (declare (not safe)) - (##cdr _hd1389013946_))) - (_hd1389213951_ + (##cdr _hd1587215928_))) + (_hd1587415933_ (let () (declare (not safe)) - (##car _hd1389013946_)))) + (##car _hd1587215928_)))) (if (let () (declare (not safe)) - (##null? _tl1389313953_)) - (let ((_hd13956_ _hd1389213951_) - (_rest13958_ _tl1389113948_)) + (##null? _tl1587515935_)) + (let ((_hd15938_ _hd1587415933_) + (_rest15940_ _tl1587315930_)) (let () (declare (not safe)) - (_K1388913943_ - _rest13958_ - _hd13956_))) - (let ((_hd13931_ _hd1389013946_) - (_rest13933_ _tl1389113948_)) + (_K1587115925_ + _rest15940_ + _hd15938_))) + (let ((_hd15913_ _hd1587215928_) + (_rest15915_ _tl1587315930_)) (let () (declare (not safe)) - (_K1388613923_ - _rest13933_ - _hd13931_))))) - (let ((_hd13931_ _hd1389013946_) - (_rest13933_ _tl1389113948_)) + (_K1586815905_ + _rest15915_ + _hd15913_))))) + (let ((_hd15913_ _hd1587215928_) + (_rest15915_ _tl1587315930_)) (let () (declare (not safe)) - (_K1388613923_ - _rest13933_ - _hd13931_))))) + (_K1586815905_ + _rest15915_ + _hd15913_))))) (let () (declare (not safe)) - (_else1388413903_)))))))) - (_compile-bind13723_ - (lambda (_bind13867_ _post13868_ _body13869_) - (let ((__tmp15866 - (let ((__tmp15867 - (let ((__tmp15870 (reverse _bind13867_)) - (__tmp15868 - (let ((__tmp15869 + (_else1586615885_)))))))) + (_compile-bind15705_ + (lambda (_bind15849_ _post15850_ _body15851_) + (let ((__tmp17848 + (let ((__tmp17849 + (let ((__tmp17852 (reverse _bind15849_)) + (__tmp17850 + (let ((__tmp17851 (let () (declare (not safe)) - (_compile-post13724_ - _post13868_ - _body13869_)))) + (_compile-post15706_ + _post15850_ + _body15851_)))) (declare (not safe)) - (cons __tmp15869 '())))) + (cons __tmp17851 '())))) (declare (not safe)) - (cons __tmp15870 __tmp15868)))) + (cons __tmp17852 __tmp17850)))) (declare (not safe)) - (cons 'let __tmp15867)))) + (cons 'let __tmp17849)))) (declare (not safe)) - (__SRC__% __tmp15866 _stx13719_)))) - (_compile-post13724_ - (lambda (_post13726_ _body13727_) - (let ((__tmp15871 - (let ((__tmp15872 - (let ((__tmp15873 - (let ((__tmp15875 - (lambda (_hd13729_ _r13730_) - (let* ((_hd1373113754_ - _hd13729_) - (_E1373513758_ + (__SRC__% __tmp17848 _stx15701_)))) + (_compile-post15706_ + (lambda (_post15708_ _body15709_) + (let ((__tmp17853 + (let ((__tmp17854 + (let ((__tmp17855 + (let ((__tmp17857 + (lambda (_hd15711_ _r15712_) + (let* ((_hd1571315736_ + _hd15711_) + (_E1571715740_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1373113754_)))) + _hd1571315736_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K1374813852_ - (lambda (_expr13850_) + (let ((_K1573015834_ + (lambda (_expr15832_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr13850_ _r13730_)))) - (_K1374313830_ - (lambda (_expr13827_ _id13828_) - (let ((__tmp15876 - (let ((__tmp15877 - (let ((__tmp15878 - (let ((__tmp15879 + (cons _expr15832_ _r15712_)))) + (_K1572515812_ + (lambda (_expr15809_ _id15810_) + (let ((__tmp17858 + (let ((__tmp17859 + (let ((__tmp17860 + (let ((__tmp17861 (let () (declare (not safe)) - (cons _expr13827_ '())))) + (cons _expr15809_ '())))) (declare (not safe)) - (cons _id13828_ __tmp15879)))) + (cons _id15810_ __tmp17861)))) (declare (not safe)) - (cons 'set! __tmp15878)))) + (cons 'set! __tmp17860)))) (declare (not safe)) - (__SRC__% __tmp15877 _stx13719_)))) + (__SRC__% __tmp17859 _stx15701_)))) (declare (not safe)) - (cons __tmp15876 _r13730_)))) - (_K1373613797_ - (lambda (_init13762_ _len13763_ _expr13764_ _tmp13765_) - (let ((__tmp15880 - (let ((__tmp15881 - (let ((__tmp15882 - (let ((__tmp15896 - (let ((__tmp15897 - (let ((__tmp15898 + (cons __tmp17858 _r15712_)))) + (_K1571815779_ + (lambda (_init15744_ _len15745_ _expr15746_ _tmp15747_) + (let ((__tmp17862 + (let ((__tmp17863 + (let ((__tmp17864 + (let ((__tmp17878 + (let ((__tmp17879 + (let ((__tmp17880 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr13764_ '())))) + (cons _expr15746_ '())))) (declare (not safe)) - (cons _tmp13765_ __tmp15898)))) + (cons _tmp15747_ __tmp17880)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15897 '()))) - (__tmp15883 - (let ((__tmp15892 - (let ((__tmp15893 - (let ((__tmp15894 + (cons __tmp17879 '()))) + (__tmp17865 + (let ((__tmp17874 + (let ((__tmp17875 + (let ((__tmp17876 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15895 + (let ((__tmp17877 (let () (declare (not safe)) - (cons _len13763_ '())))) + (cons _len15745_ '())))) (declare (not safe)) - (cons _tmp13765_ __tmp15895)))) + (cons _tmp15747_ __tmp17877)))) (declare (not safe)) - (cons '__check-values __tmp15894)))) + (cons '__check-values __tmp17876)))) (declare (not safe)) - (__SRC__% __tmp15893 _stx13719_))) - (__tmp15884 - (let ((__tmp15885 - (map (lambda (_hd13767_) - (let* ((_hd1376813775_ _hd13767_) - (_E1377013779_ + (__SRC__% __tmp17875 _stx15701_))) + (__tmp17866 + (let ((__tmp17867 + (map (lambda (_hd15749_) + (let* ((_hd1575015757_ _hd15749_) + (_E1575215761_ (lambda () (error '"No clause matching" - _hd1376813775_))) - (_K1377113785_ - (lambda (_k13782_ _id13783_) - (let ((__tmp15886 - (let ((__tmp15887 - (let ((__tmp15888 - (let ((__tmp15889 + _hd1575015757_))) + (_K1575315767_ + (lambda (_k15764_ _id15765_) + (let ((__tmp17868 + (let ((__tmp17869 + (let ((__tmp17870 + (let ((__tmp17871 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp15890 - (let ((__tmp15891 + (let ((__tmp17872 + (let ((__tmp17873 (let () (declare (not safe)) - (cons _k13782_ '())))) + (cons _k15764_ '())))) (declare (not safe)) - (cons _tmp13765_ __tmp15891)))) + (cons _tmp15747_ __tmp17873)))) (declare (not safe)) - (cons '##vector-ref __tmp15890)))) + (cons '##vector-ref __tmp17872)))) (declare (not safe)) - (cons __tmp15889 '())))) + (cons __tmp17871 '())))) (declare (not safe)) - (cons _id13783_ __tmp15888)))) + (cons _id15765_ __tmp17870)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp15887)))) + (cons 'set! __tmp17869)))) (declare (not safe)) - (__SRC__% __tmp15886 _stx13719_))))) + (__SRC__% __tmp17868 _stx15701_))))) (if (let () (declare (not safe)) - (##pair? _hd1376813775_)) - (let ((_hd1377213788_ + (##pair? _hd1575015757_)) + (let ((_hd1575415770_ (let () (declare (not safe)) - (##car _hd1376813775_))) - (_tl1377313790_ + (##car _hd1575015757_))) + (_tl1575515772_ (let () (declare (not safe)) - (##cdr _hd1376813775_)))) - (let* ((_id13793_ _hd1377213788_) - (_k13795_ _tl1377313790_)) + (##cdr _hd1575015757_)))) + (let* ((_id15775_ _hd1575415770_) + (_k15777_ _tl1575515772_)) (declare (not safe)) - (_K1377113785_ _k13795_ _id13793_))) + (_K1575315767_ _k15777_ _id15775_))) (let () (declare (not safe)) - (_E1377013779_))))) - _init13762_))) + (_E1575215761_))))) + _init15744_))) (declare (not safe)) - (foldr1 cons '() __tmp15885)))) + (foldr1 cons '() __tmp17867)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15892 - __tmp15884)))) + (cons __tmp17874 + __tmp17866)))) (declare (not safe)) - (cons __tmp15896 __tmp15883)))) + (cons __tmp17878 __tmp17865)))) (declare (not safe)) - (cons 'let __tmp15882)))) + (cons 'let __tmp17864)))) (declare (not safe)) - (__SRC__% __tmp15881 _stx13719_)))) + (__SRC__% __tmp17863 _stx15701_)))) (declare (not safe)) - (cons __tmp15880 _r13730_))))) - (if (let () (declare (not safe)) (##pair? _hd1373113754_)) - (let ((_tl1375013857_ - (let () (declare (not safe)) (##cdr _hd1373113754_))) - (_hd1374913855_ - (let () (declare (not safe)) (##car _hd1373113754_)))) + (cons __tmp17862 _r15712_))))) + (if (let () (declare (not safe)) (##pair? _hd1571315736_)) + (let ((_tl1573215839_ + (let () (declare (not safe)) (##cdr _hd1571315736_))) + (_hd1573115837_ + (let () (declare (not safe)) (##car _hd1571315736_)))) (if (let () (declare (not safe)) - (##eq? _hd1374913855_ '#f)) + (##eq? _hd1573115837_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl1375013857_)) - (let ((_tl1375213862_ + (##pair? _tl1573215839_)) + (let ((_tl1573415844_ (let () (declare (not safe)) - (##cdr _tl1375013857_))) - (_hd1375113860_ + (##cdr _tl1573215839_))) + (_hd1573315842_ (let () (declare (not safe)) - (##car _tl1375013857_)))) + (##car _tl1573215839_)))) (if (let () (declare (not safe)) - (##null? _tl1375213862_)) - (let ((_expr13865_ _hd1375113860_)) + (##null? _tl1573415844_)) + (let ((_expr15847_ _hd1573315842_)) (declare (not safe)) - (_K1374813852_ _expr13865_)) + (_K1573015834_ _expr15847_)) (if (let () (declare (not safe)) - (##pair? _tl1375213862_)) - (let ((_tl1374213816_ + (##pair? _tl1573415844_)) + (let ((_tl1572415798_ (let () (declare (not safe)) - (##cdr _tl1375213862_))) - (_hd1374113814_ + (##cdr _tl1573415844_))) + (_hd1572315796_ (let () (declare (not safe)) - (##car _tl1375213862_)))) - (let ((_tmp13805_ _hd1374913855_) - (_expr13812_ _hd1375113860_) - (_len13819_ _hd1374113814_) - (_init13821_ _tl1374213816_)) + (##car _tl1573415844_)))) + (let ((_tmp15787_ _hd1573115837_) + (_expr15794_ _hd1573315842_) + (_len15801_ _hd1572315796_) + (_init15803_ _tl1572415798_)) (let () (declare (not safe)) - (_K1373613797_ - _init13821_ - _len13819_ - _expr13812_ - _tmp13805_)))) + (_K1571815779_ + _init15803_ + _len15801_ + _expr15794_ + _tmp15787_)))) (let () (declare (not safe)) - (_E1373513758_))))) - (let () (declare (not safe)) (_E1373513758_))) + (_E1571715740_))))) + (let () (declare (not safe)) (_E1571715740_))) (if (let () (declare (not safe)) - (##pair? _tl1375013857_)) - (let ((_tl1374713842_ + (##pair? _tl1573215839_)) + (let ((_tl1572915824_ (let () (declare (not safe)) - (##cdr _tl1375013857_))) - (_hd1374613840_ + (##cdr _tl1573215839_))) + (_hd1572815822_ (let () (declare (not safe)) - (##car _tl1375013857_)))) + (##car _tl1573215839_)))) (if (let () (declare (not safe)) - (##null? _tl1374713842_)) - (let ((_id13838_ _hd1374913855_) - (_expr13845_ _hd1374613840_)) + (##null? _tl1572915824_)) + (let ((_id15820_ _hd1573115837_) + (_expr15827_ _hd1572815822_)) (let () (declare (not safe)) - (_K1374313830_ _expr13845_ _id13838_))) + (_K1572515812_ _expr15827_ _id15820_))) (if (let () (declare (not safe)) - (##pair? _tl1374713842_)) - (let ((_tl1374213816_ + (##pair? _tl1572915824_)) + (let ((_tl1572415798_ (let () (declare (not safe)) - (##cdr _tl1374713842_))) - (_hd1374113814_ + (##cdr _tl1572915824_))) + (_hd1572315796_ (let () (declare (not safe)) - (##car _tl1374713842_)))) - (let ((_tmp13805_ _hd1374913855_) - (_expr13812_ _hd1374613840_) - (_len13819_ _hd1374113814_) - (_init13821_ _tl1374213816_)) + (##car _tl1572915824_)))) + (let ((_tmp15787_ _hd1573115837_) + (_expr15794_ _hd1572815822_) + (_len15801_ _hd1572315796_) + (_init15803_ _tl1572415798_)) (let () (declare (not safe)) - (_K1373613797_ - _init13821_ - _len13819_ - _expr13812_ - _tmp13805_)))) + (_K1571815779_ + _init15803_ + _len15801_ + _expr15794_ + _tmp15787_)))) (let () (declare (not safe)) - (_E1373513758_))))) - (let () (declare (not safe)) (_E1373513758_))))) - (let () (declare (not safe)) (_E1373513758_))))))) + (_E1571715740_))))) + (let () (declare (not safe)) (_E1571715740_))))) + (let () (declare (not safe)) (_E1571715740_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp15874 (list _body13727_))) + (__tmp17856 (list _body15709_))) (declare (not safe)) - (foldl1 __tmp15875 - __tmp15874 - _post13726_)))) + (foldl1 __tmp17857 + __tmp17856 + _post15708_)))) (declare (not safe)) - (foldr1 cons '() __tmp15873)))) + (foldr1 cons '() __tmp17855)))) (declare (not safe)) - (cons 'begin __tmp15872)))) + (cons 'begin __tmp17854)))) (declare (not safe)) - (__SRC__% __tmp15871 _stx13719_))))) + (__SRC__% __tmp17853 _stx15701_))))) (let () (declare (not safe)) (__compile-let-form - _stx13719_ - _compile-simple13721_ - _compile-values13722_))))) + _stx15701_ + _compile-simple15703_ + _compile-values15704_))))) (define __compile-call% - (lambda (_stx13679_) - (let* ((_$e13681_ _stx13679_) - (_$E1368313692_ + (lambda (_stx15661_) + (let* ((_$e15663_ _stx15661_) + (_$E1566515674_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e13681_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e13681_)) - (let* ((_$tgt1368413695_ - (let () (declare (not safe)) (__AST-e _$e13681_))) - (_$hd1368513698_ - (let () (declare (not safe)) (##car _$tgt1368413695_))) - (_$tl1368613701_ - (let () (declare (not safe)) (##cdr _$tgt1368413695_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1368613701_)) - (let* ((_$tgt1368713705_ + _$e15663_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15663_)) + (let* ((_$tgt1566615677_ + (let () (declare (not safe)) (__AST-e _$e15663_))) + (_$hd1566715680_ + (let () (declare (not safe)) (##car _$tgt1566615677_))) + (_$tl1566815683_ + (let () (declare (not safe)) (##cdr _$tgt1566615677_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1566815683_)) + (let* ((_$tgt1566915687_ (let () (declare (not safe)) - (__AST-e _$tl1368613701_))) - (_$hd1368813708_ + (__AST-e _$tl1566815683_))) + (_$hd1567015690_ (let () (declare (not safe)) - (##car _$tgt1368713705_))) - (_$tl1368913711_ + (##car _$tgt1566915687_))) + (_$tl1567115693_ (let () (declare (not safe)) - (##cdr _$tgt1368713705_)))) - (let* ((_rator13715_ _$hd1368813708_) - (_rands13717_ _$tl1368913711_) - (__tmp15899 - (let ((__tmp15901 + (##cdr _$tgt1566915687_)))) + (let* ((_rator15697_ _$hd1567015690_) + (_rands15699_ _$tl1567115693_) + (__tmp17881 + (let ((__tmp17883 (let () (declare (not safe)) - (__compile _rator13715_))) - (__tmp15900 (map __compile _rands13717_))) + (__compile _rator15697_))) + (__tmp17882 (map __compile _rands15699_))) (declare (not safe)) - (cons __tmp15901 __tmp15900)))) + (cons __tmp17883 __tmp17882)))) (declare (not safe)) - (__SRC__% __tmp15899 _stx13679_))) - (let () (declare (not safe)) (_$E1368313692_)))) - (let () (declare (not safe)) (_$E1368313692_)))))) + (__SRC__% __tmp17881 _stx15661_))) + (let () (declare (not safe)) (_$E1566515674_)))) + (let () (declare (not safe)) (_$E1566515674_)))))) (define __compile-ref% - (lambda (_stx13641_) - (let* ((_$e13643_ _stx13641_) - (_$E1364513654_ + (lambda (_stx15623_) + (let* ((_$e15625_ _stx15623_) + (_$E1562715636_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e13643_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e13643_)) - (let* ((_$tgt1364613657_ - (let () (declare (not safe)) (__AST-e _$e13643_))) - (_$hd1364713660_ - (let () (declare (not safe)) (##car _$tgt1364613657_))) - (_$tl1364813663_ - (let () (declare (not safe)) (##cdr _$tgt1364613657_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1364813663_)) - (let* ((_$tgt1364913667_ + _$e15625_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15625_)) + (let* ((_$tgt1562815639_ + (let () (declare (not safe)) (__AST-e _$e15625_))) + (_$hd1562915642_ + (let () (declare (not safe)) (##car _$tgt1562815639_))) + (_$tl1563015645_ + (let () (declare (not safe)) (##cdr _$tgt1562815639_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1563015645_)) + (let* ((_$tgt1563115649_ (let () (declare (not safe)) - (__AST-e _$tl1364813663_))) - (_$hd1365013670_ + (__AST-e _$tl1563015645_))) + (_$hd1563215652_ (let () (declare (not safe)) - (##car _$tgt1364913667_))) - (_$tl1365113673_ + (##car _$tgt1563115649_))) + (_$tl1563315655_ (let () (declare (not safe)) - (##cdr _$tgt1364913667_)))) - (let ((_id13677_ _$hd1365013670_)) - (if (let ((__tmp15902 + (##cdr _$tgt1563115649_)))) + (let ((_id15659_ _$hd1563215652_)) + (if (let ((__tmp17884 (let () (declare (not safe)) - (__AST-e _$tl1365113673_)))) + (__AST-e _$tl1563315655_)))) (declare (not safe)) - (equal? __tmp15902 '())) + (equal? __tmp17884 '())) (let () (declare (not safe)) - (__SRC__% _id13677_ _stx13641_)) - (let () (declare (not safe)) (_$E1364513654_))))) - (let () (declare (not safe)) (_$E1364513654_)))) - (let () (declare (not safe)) (_$E1364513654_)))))) + (__SRC__% _id15659_ _stx15623_)) + (let () (declare (not safe)) (_$E1562715636_))))) + (let () (declare (not safe)) (_$E1562715636_)))) + (let () (declare (not safe)) (_$E1562715636_)))))) (define __compile-setq% - (lambda (_stx13588_) - (let* ((_$e13590_ _stx13588_) - (_$E1359213604_ + (lambda (_stx15570_) + (let* ((_$e15572_ _stx15570_) + (_$E1557415586_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e13590_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e13590_)) - (let* ((_$tgt1359313607_ - (let () (declare (not safe)) (__AST-e _$e13590_))) - (_$hd1359413610_ - (let () (declare (not safe)) (##car _$tgt1359313607_))) - (_$tl1359513613_ - (let () (declare (not safe)) (##cdr _$tgt1359313607_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1359513613_)) - (let* ((_$tgt1359613617_ + _$e15572_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15572_)) + (let* ((_$tgt1557515589_ + (let () (declare (not safe)) (__AST-e _$e15572_))) + (_$hd1557615592_ + (let () (declare (not safe)) (##car _$tgt1557515589_))) + (_$tl1557715595_ + (let () (declare (not safe)) (##cdr _$tgt1557515589_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1557715595_)) + (let* ((_$tgt1557815599_ (let () (declare (not safe)) - (__AST-e _$tl1359513613_))) - (_$hd1359713620_ + (__AST-e _$tl1557715595_))) + (_$hd1557915602_ (let () (declare (not safe)) - (##car _$tgt1359613617_))) - (_$tl1359813623_ + (##car _$tgt1557815599_))) + (_$tl1558015605_ (let () (declare (not safe)) - (##cdr _$tgt1359613617_)))) - (let ((_id13627_ _$hd1359713620_)) + (##cdr _$tgt1557815599_)))) + (let ((_id15609_ _$hd1557915602_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1359813623_)) - (let* ((_$tgt1359913629_ + (__AST-pair? _$tl1558015605_)) + (let* ((_$tgt1558115611_ (let () (declare (not safe)) - (__AST-e _$tl1359813623_))) - (_$hd1360013632_ + (__AST-e _$tl1558015605_))) + (_$hd1558215614_ (let () (declare (not safe)) - (##car _$tgt1359913629_))) - (_$tl1360113635_ + (##car _$tgt1558115611_))) + (_$tl1558315617_ (let () (declare (not safe)) - (##cdr _$tgt1359913629_)))) - (let ((_expr13639_ _$hd1360013632_)) - (if (let ((__tmp15908 + (##cdr _$tgt1558115611_)))) + (let ((_expr15621_ _$hd1558215614_)) + (if (let ((__tmp17890 (let () (declare (not safe)) - (__AST-e _$tl1360113635_)))) + (__AST-e _$tl1558315617_)))) (declare (not safe)) - (equal? __tmp15908 '())) - (let ((__tmp15903 - (let ((__tmp15904 - (let ((__tmp15907 + (equal? __tmp17890 '())) + (let ((__tmp17885 + (let ((__tmp17886 + (let ((__tmp17889 (let () (declare (not safe)) (__SRC__% - _id13627_ - _stx13588_))) - (__tmp15905 - (let ((__tmp15906 + _id15609_ + _stx15570_))) + (__tmp17887 + (let ((__tmp17888 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr13639_)))) + (__compile _expr15621_)))) (declare (not safe)) - (cons __tmp15906 '())))) + (cons __tmp17888 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15907 - __tmp15905)))) + (cons __tmp17889 + __tmp17887)))) (declare (not safe)) - (cons 'set! __tmp15904)))) + (cons 'set! __tmp17886)))) (declare (not safe)) - (__SRC__% __tmp15903 _stx13588_)) + (__SRC__% __tmp17885 _stx15570_)) (let () (declare (not safe)) - (_$E1359213604_))))) - (let () (declare (not safe)) (_$E1359213604_))))) - (let () (declare (not safe)) (_$E1359213604_)))) - (let () (declare (not safe)) (_$E1359213604_)))))) + (_$E1557415586_))))) + (let () (declare (not safe)) (_$E1557415586_))))) + (let () (declare (not safe)) (_$E1557415586_)))) + (let () (declare (not safe)) (_$E1557415586_)))))) (define __compile-if% - (lambda (_stx13520_) - (let* ((_$e13522_ _stx13520_) - (_$E1352413539_ + (lambda (_stx15502_) + (let* ((_$e15504_ _stx15502_) + (_$E1550615521_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e13522_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e13522_)) - (let* ((_$tgt1352513542_ - (let () (declare (not safe)) (__AST-e _$e13522_))) - (_$hd1352613545_ - (let () (declare (not safe)) (##car _$tgt1352513542_))) - (_$tl1352713548_ - (let () (declare (not safe)) (##cdr _$tgt1352513542_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1352713548_)) - (let* ((_$tgt1352813552_ + _$e15504_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15504_)) + (let* ((_$tgt1550715524_ + (let () (declare (not safe)) (__AST-e _$e15504_))) + (_$hd1550815527_ + (let () (declare (not safe)) (##car _$tgt1550715524_))) + (_$tl1550915530_ + (let () (declare (not safe)) (##cdr _$tgt1550715524_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1550915530_)) + (let* ((_$tgt1551015534_ (let () (declare (not safe)) - (__AST-e _$tl1352713548_))) - (_$hd1352913555_ + (__AST-e _$tl1550915530_))) + (_$hd1551115537_ (let () (declare (not safe)) - (##car _$tgt1352813552_))) - (_$tl1353013558_ + (##car _$tgt1551015534_))) + (_$tl1551215540_ (let () (declare (not safe)) - (##cdr _$tgt1352813552_)))) - (let ((_p13562_ _$hd1352913555_)) + (##cdr _$tgt1551015534_)))) + (let ((_p15544_ _$hd1551115537_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1353013558_)) - (let* ((_$tgt1353113564_ + (__AST-pair? _$tl1551215540_)) + (let* ((_$tgt1551315546_ (let () (declare (not safe)) - (__AST-e _$tl1353013558_))) - (_$hd1353213567_ + (__AST-e _$tl1551215540_))) + (_$hd1551415549_ (let () (declare (not safe)) - (##car _$tgt1353113564_))) - (_$tl1353313570_ + (##car _$tgt1551315546_))) + (_$tl1551515552_ (let () (declare (not safe)) - (##cdr _$tgt1353113564_)))) - (let ((_t13574_ _$hd1353213567_)) + (##cdr _$tgt1551315546_)))) + (let ((_t15556_ _$hd1551415549_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1353313570_)) - (let* ((_$tgt1353413576_ + (__AST-pair? _$tl1551515552_)) + (let* ((_$tgt1551615558_ (let () (declare (not safe)) - (__AST-e _$tl1353313570_))) - (_$hd1353513579_ + (__AST-e _$tl1551515552_))) + (_$hd1551715561_ (let () (declare (not safe)) - (##car _$tgt1353413576_))) - (_$tl1353613582_ + (##car _$tgt1551615558_))) + (_$tl1551815564_ (let () (declare (not safe)) - (##cdr _$tgt1353413576_)))) - (let ((_f13586_ _$hd1353513579_)) - (if (let ((__tmp15916 + (##cdr _$tgt1551615558_)))) + (let ((_f15568_ _$hd1551715561_)) + (if (let ((__tmp17898 (let () (declare (not safe)) - (__AST-e _$tl1353613582_)))) + (__AST-e _$tl1551815564_)))) (declare (not safe)) - (equal? __tmp15916 '())) - (let ((__tmp15909 - (let ((__tmp15910 - (let ((__tmp15915 + (equal? __tmp17898 '())) + (let ((__tmp17891 + (let ((__tmp17892 + (let ((__tmp17897 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p13562_))) - (__tmp15911 - (let ((__tmp15914 + (let () (declare (not safe)) (__compile _p15544_))) + (__tmp17893 + (let ((__tmp17896 (let () (declare (not safe)) - (__compile _t13574_))) - (__tmp15912 - (let ((__tmp15913 + (__compile _t15556_))) + (__tmp17894 + (let ((__tmp17895 (let () (declare (not safe)) - (__compile _f13586_)))) + (__compile _f15568_)))) (declare (not safe)) - (cons __tmp15913 '())))) + (cons __tmp17895 '())))) (declare (not safe)) - (cons __tmp15914 __tmp15912)))) + (cons __tmp17896 __tmp17894)))) (declare (not safe)) - (cons __tmp15915 __tmp15911)))) + (cons __tmp17897 __tmp17893)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp15910)))) + (cons 'if __tmp17892)))) (declare (not safe)) - (__SRC__% __tmp15909 _stx13520_)) + (__SRC__% __tmp17891 _stx15502_)) (let () (declare (not safe)) - (_$E1352413539_))))) + (_$E1550615521_))))) (let () (declare (not safe)) - (_$E1352413539_))))) - (let () (declare (not safe)) (_$E1352413539_))))) - (let () (declare (not safe)) (_$E1352413539_)))) - (let () (declare (not safe)) (_$E1352413539_)))))) + (_$E1550615521_))))) + (let () (declare (not safe)) (_$E1550615521_))))) + (let () (declare (not safe)) (_$E1550615521_)))) + (let () (declare (not safe)) (_$E1550615521_)))))) (define __compile-quote% - (lambda (_stx13482_) - (let* ((_$e13484_ _stx13482_) - (_$E1348613495_ + (lambda (_stx15464_) + (let* ((_$e15466_ _stx15464_) + (_$E1546815477_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e13484_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e13484_)) - (let* ((_$tgt1348713498_ - (let () (declare (not safe)) (__AST-e _$e13484_))) - (_$hd1348813501_ - (let () (declare (not safe)) (##car _$tgt1348713498_))) - (_$tl1348913504_ - (let () (declare (not safe)) (##cdr _$tgt1348713498_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1348913504_)) - (let* ((_$tgt1349013508_ + _$e15466_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15466_)) + (let* ((_$tgt1546915480_ + (let () (declare (not safe)) (__AST-e _$e15466_))) + (_$hd1547015483_ + (let () (declare (not safe)) (##car _$tgt1546915480_))) + (_$tl1547115486_ + (let () (declare (not safe)) (##cdr _$tgt1546915480_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1547115486_)) + (let* ((_$tgt1547215490_ (let () (declare (not safe)) - (__AST-e _$tl1348913504_))) - (_$hd1349113511_ + (__AST-e _$tl1547115486_))) + (_$hd1547315493_ (let () (declare (not safe)) - (##car _$tgt1349013508_))) - (_$tl1349213514_ + (##car _$tgt1547215490_))) + (_$tl1547415496_ (let () (declare (not safe)) - (##cdr _$tgt1349013508_)))) - (let ((_e13518_ _$hd1349113511_)) - (if (let ((__tmp15920 + (##cdr _$tgt1547215490_)))) + (let ((_e15500_ _$hd1547315493_)) + (if (let ((__tmp17902 (let () (declare (not safe)) - (__AST-e _$tl1349213514_)))) + (__AST-e _$tl1547415496_)))) (declare (not safe)) - (equal? __tmp15920 '())) - (let ((__tmp15917 - (let ((__tmp15918 - (let ((__tmp15919 + (equal? __tmp17902 '())) + (let ((__tmp17899 + (let ((__tmp17900 + (let ((__tmp17901 (let () (declare (not safe)) - (__AST->datum _e13518_)))) + (__AST->datum _e15500_)))) (declare (not safe)) - (cons __tmp15919 '())))) + (cons __tmp17901 '())))) (declare (not safe)) - (cons 'quote __tmp15918)))) + (cons 'quote __tmp17900)))) (declare (not safe)) - (__SRC__% __tmp15917 _stx13482_)) - (let () (declare (not safe)) (_$E1348613495_))))) - (let () (declare (not safe)) (_$E1348613495_)))) - (let () (declare (not safe)) (_$E1348613495_)))))) + (__SRC__% __tmp17899 _stx15464_)) + (let () (declare (not safe)) (_$E1546815477_))))) + (let () (declare (not safe)) (_$E1546815477_)))) + (let () (declare (not safe)) (_$E1546815477_)))))) (define __compile-quote-syntax% - (lambda (_stx13444_) - (let* ((_$e13446_ _stx13444_) - (_$E1344813457_ + (lambda (_stx15426_) + (let* ((_$e15428_ _stx15426_) + (_$E1543015439_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e13446_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e13446_)) - (let* ((_$tgt1344913460_ - (let () (declare (not safe)) (__AST-e _$e13446_))) - (_$hd1345013463_ - (let () (declare (not safe)) (##car _$tgt1344913460_))) - (_$tl1345113466_ - (let () (declare (not safe)) (##cdr _$tgt1344913460_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1345113466_)) - (let* ((_$tgt1345213470_ + _$e15428_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15428_)) + (let* ((_$tgt1543115442_ + (let () (declare (not safe)) (__AST-e _$e15428_))) + (_$hd1543215445_ + (let () (declare (not safe)) (##car _$tgt1543115442_))) + (_$tl1543315448_ + (let () (declare (not safe)) (##cdr _$tgt1543115442_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1543315448_)) + (let* ((_$tgt1543415452_ (let () (declare (not safe)) - (__AST-e _$tl1345113466_))) - (_$hd1345313473_ + (__AST-e _$tl1543315448_))) + (_$hd1543515455_ (let () (declare (not safe)) - (##car _$tgt1345213470_))) - (_$tl1345413476_ + (##car _$tgt1543415452_))) + (_$tl1543615458_ (let () (declare (not safe)) - (##cdr _$tgt1345213470_)))) - (let ((_e13480_ _$hd1345313473_)) - (if (let ((__tmp15923 + (##cdr _$tgt1543415452_)))) + (let ((_e15462_ _$hd1543515455_)) + (if (let ((__tmp17905 (let () (declare (not safe)) - (__AST-e _$tl1345413476_)))) + (__AST-e _$tl1543615458_)))) (declare (not safe)) - (equal? __tmp15923 '())) - (let ((__tmp15921 - (let ((__tmp15922 + (equal? __tmp17905 '())) + (let ((__tmp17903 + (let ((__tmp17904 (let () (declare (not safe)) - (cons _e13480_ '())))) + (cons _e15462_ '())))) (declare (not safe)) - (cons 'quote __tmp15922)))) + (cons 'quote __tmp17904)))) (declare (not safe)) - (__SRC__% __tmp15921 _stx13444_)) - (let () (declare (not safe)) (_$E1344813457_))))) - (let () (declare (not safe)) (_$E1344813457_)))) - (let () (declare (not safe)) (_$E1344813457_)))))) + (__SRC__% __tmp17903 _stx15426_)) + (let () (declare (not safe)) (_$E1543015439_))))) + (let () (declare (not safe)) (_$E1543015439_)))) + (let () (declare (not safe)) (_$E1543015439_)))))) (let () (declare (not safe)) (__core-bind-syntax!__% diff --git a/src/bootstrap/gerbil/runtime/eval__1.scm b/src/bootstrap/gerbil/runtime/eval__1.scm index dff1d754f..5666f04ac 100644 --- a/src/bootstrap/gerbil/runtime/eval__1.scm +++ b/src/bootstrap/gerbil/runtime/eval__1.scm @@ -1,412 +1,412 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g15924_| + (define |[1]#_g17906_| (##structure gx#syntax-quote::t '__context::t #f (gx#current-expander-context) '())) - (define |[1]#_g15935_| + (define |[1]#_g17917_| (##structure gx#syntax-quote::t '__context-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15937_| + (define |[1]#_g17919_| (##structure gx#syntax-quote::t '__context-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15939_| + (define |[1]#_g17921_| (##structure gx#syntax-quote::t '__context-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15941_| + (define |[1]#_g17923_| (##structure gx#syntax-quote::t '__context-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15947_| + (define |[1]#_g17929_| (##structure gx#syntax-quote::t '__context-table #f (gx#current-expander-context) '())) - (define |[1]#_g15949_| + (define |[1]#_g17931_| (##structure gx#syntax-quote::t '__context-super #f (gx#current-expander-context) '())) - (define |[1]#_g15951_| + (define |[1]#_g17933_| (##structure gx#syntax-quote::t '__context-ns #f (gx#current-expander-context) '())) - (define |[1]#_g15953_| + (define |[1]#_g17935_| (##structure gx#syntax-quote::t '__context-t #f (gx#current-expander-context) '())) - (define |[1]#_g15955_| + (define |[1]#_g17937_| (##structure gx#syntax-quote::t '__context? #f (gx#current-expander-context) '())) - (define |[1]#_g15957_| + (define |[1]#_g17939_| (##structure gx#syntax-quote::t 'make-__context #f (gx#current-expander-context) '())) - (define |[1]#_g15959_| + (define |[1]#_g17941_| (##structure gx#syntax-quote::t '__runtime::t #f (gx#current-expander-context) '())) - (define |[1]#_g15967_| + (define |[1]#_g17949_| (##structure gx#syntax-quote::t '__runtime-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15970_| + (define |[1]#_g17952_| (##structure gx#syntax-quote::t '__runtime-id #f (gx#current-expander-context) '())) - (define |[1]#_g15972_| + (define |[1]#_g17954_| (##structure gx#syntax-quote::t '__runtime? #f (gx#current-expander-context) '())) - (define |[1]#_g15974_| + (define |[1]#_g17956_| (##structure gx#syntax-quote::t 'make-__runtime #f (gx#current-expander-context) '())) - (define |[1]#_g15976_| + (define |[1]#_g17958_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g15985_| + (define |[1]#_g17967_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15987_| + (define |[1]#_g17969_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15991_| + (define |[1]#_g17973_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g15993_| + (define |[1]#_g17975_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g15995_| + (define |[1]#_g17977_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g15997_| + (define |[1]#_g17979_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g15999_| + (define |[1]#_g17981_| (##structure gx#syntax-quote::t '__macro::t #f (gx#current-expander-context) '())) - (define |[1]#_g16006_| + (define |[1]#_g17988_| (##structure gx#syntax-quote::t '__macro? #f (gx#current-expander-context) '())) - (define |[1]#_g16008_| + (define |[1]#_g17990_| (##structure gx#syntax-quote::t 'make-__macro #f (gx#current-expander-context) '())) - (define |[1]#_g16011_| + (define |[1]#_g17993_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g16012_| + (define |[1]#_g17994_| (##structure gx#syntax-quote::t '__special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g16019_| + (define |[1]#_g18001_| (##structure gx#syntax-quote::t '__special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g16021_| + (define |[1]#_g18003_| (##structure gx#syntax-quote::t 'make-__special-form #f (gx#current-expander-context) '())) - (define |[1]#_g16024_| + (define |[1]#_g18006_| (##structure gx#syntax-quote::t '__macro #f (gx#current-expander-context) '())) - (define |[1]#_g16025_| + (define |[1]#_g18007_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g16032_| + (define |[1]#_g18014_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g16034_| + (define |[1]#_g18016_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g16037_| + (define |[1]#_g18019_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g16044_| + (define |[1]#_g18026_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g16046_| + (define |[1]#_g18028_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g16049_| + (define |[1]#_g18031_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g16050_| + (define |[1]#_g18032_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g16057_| + (define |[1]#_g18039_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g16059_| + (define |[1]#_g18041_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g16062_| + (define |[1]#_g18044_| (##structure gx#syntax-quote::t '__struct-info::t #f (gx#current-expander-context) '())) - (define |[1]#_g16069_| + (define |[1]#_g18051_| (##structure gx#syntax-quote::t '__struct-info? #f (gx#current-expander-context) '())) - (define |[1]#_g16071_| + (define |[1]#_g18053_| (##structure gx#syntax-quote::t 'make-__struct-info #f (gx#current-expander-context) '())) - (define |[1]#_g16074_| + (define |[1]#_g18056_| (##structure gx#syntax-quote::t '__feature::t #f (gx#current-expander-context) '())) - (define |[1]#_g16081_| + (define |[1]#_g18063_| (##structure gx#syntax-quote::t '__feature? #f (gx#current-expander-context) '())) - (define |[1]#_g16083_| + (define |[1]#_g18065_| (##structure gx#syntax-quote::t 'make-__feature #f (gx#current-expander-context) '())) - (define |[1]#_g16086_| + (define |[1]#_g18068_| (##structure gx#syntax-quote::t '__module::t #f (gx#current-expander-context) '())) - (define |[1]#_g16097_| + (define |[1]#_g18079_| (##structure gx#syntax-quote::t '__module-export-set! #f (gx#current-expander-context) '())) - (define |[1]#_g16099_| + (define |[1]#_g18081_| (##structure gx#syntax-quote::t '__module-import-set! #f (gx#current-expander-context) '())) - (define |[1]#_g16101_| + (define |[1]#_g18083_| (##structure gx#syntax-quote::t '__module-path-set! #f (gx#current-expander-context) '())) - (define |[1]#_g16103_| + (define |[1]#_g18085_| (##structure gx#syntax-quote::t '__module-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g16109_| + (define |[1]#_g18091_| (##structure gx#syntax-quote::t '__module-export #f (gx#current-expander-context) '())) - (define |[1]#_g16111_| + (define |[1]#_g18093_| (##structure gx#syntax-quote::t '__module-import #f (gx#current-expander-context) '())) - (define |[1]#_g16113_| + (define |[1]#_g18095_| (##structure gx#syntax-quote::t '__module-path #f (gx#current-expander-context) '())) - (define |[1]#_g16115_| + (define |[1]#_g18097_| (##structure gx#syntax-quote::t '__module-id #f (gx#current-expander-context) '())) - (define |[1]#_g16117_| + (define |[1]#_g18099_| (##structure gx#syntax-quote::t '__module? #f (gx#current-expander-context) '())) - (define |[1]#_g16119_| + (define |[1]#_g18101_| (##structure gx#syntax-quote::t 'make-__module #f (gx#current-expander-context) '())) - (define |[1]#_g16122_| + (define |[1]#_g18104_| (##structure gx#syntax-quote::t '__context @@ -417,72 +417,72 @@ (define |[:0:]#__context| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15924_| + |[1]#_g17906_| 'expander-identifiers: - (let ((__tmp15925 - (let ((__tmp15958 |[1]#_g15924_|) - (__tmp15926 - (let ((__tmp15956 |[1]#_g15957_|) - (__tmp15927 - (let ((__tmp15954 |[1]#_g15955_|) - (__tmp15928 - (let ((__tmp15942 - (let ((__tmp15952 |[1]#_g15953_|) - (__tmp15943 - (let ((__tmp15950 - |[1]#_g15951_|) - (__tmp15944 - (let ((__tmp15948 - |[1]#_g15949_|) - (__tmp15945 - (let ((__tmp15946 + (let ((__tmp17907 + (let ((__tmp17940 |[1]#_g17906_|) + (__tmp17908 + (let ((__tmp17938 |[1]#_g17939_|) + (__tmp17909 + (let ((__tmp17936 |[1]#_g17937_|) + (__tmp17910 + (let ((__tmp17924 + (let ((__tmp17934 |[1]#_g17935_|) + (__tmp17925 + (let ((__tmp17932 + |[1]#_g17933_|) + (__tmp17926 + (let ((__tmp17930 + |[1]#_g17931_|) + (__tmp17927 + (let ((__tmp17928 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g15947_|)) + |[1]#_g17929_|)) (declare (not safe)) - (cons __tmp15946 '())))) + (cons __tmp17928 '())))) (declare (not safe)) - (cons __tmp15948 __tmp15945)))) + (cons __tmp17930 __tmp17927)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15950 - __tmp15944)))) + (cons __tmp17932 + __tmp17926)))) (declare (not safe)) - (cons __tmp15952 __tmp15943))) - (__tmp15929 - (let ((__tmp15930 - (let ((__tmp15940 - |[1]#_g15941_|) - (__tmp15931 - (let ((__tmp15938 - |[1]#_g15939_|) - (__tmp15932 - (let ((__tmp15936 + (cons __tmp17934 __tmp17925))) + (__tmp17911 + (let ((__tmp17912 + (let ((__tmp17922 + |[1]#_g17923_|) + (__tmp17913 + (let ((__tmp17920 + |[1]#_g17921_|) + (__tmp17914 + (let ((__tmp17918 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g15937_|) - (__tmp15933 - (let ((__tmp15934 |[1]#_g15935_|)) + |[1]#_g17919_|) + (__tmp17915 + (let ((__tmp17916 |[1]#_g17917_|)) (declare (not safe)) - (cons __tmp15934 '())))) + (cons __tmp17916 '())))) (declare (not safe)) - (cons __tmp15936 __tmp15933)))) + (cons __tmp17918 __tmp17915)))) (declare (not safe)) - (cons __tmp15938 __tmp15932)))) + (cons __tmp17920 __tmp17914)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15940 - __tmp15931)))) + (cons __tmp17922 + __tmp17913)))) (declare (not safe)) - (cons __tmp15930 '())))) + (cons __tmp17912 '())))) (declare (not safe)) - (cons __tmp15942 __tmp15929)))) + (cons __tmp17924 __tmp17911)))) (declare (not safe)) - (cons __tmp15954 __tmp15928)))) + (cons __tmp17936 __tmp17910)))) (declare (not safe)) - (cons __tmp15956 __tmp15927)))) + (cons __tmp17938 __tmp17909)))) (declare (not safe)) - (cons __tmp15958 __tmp15926)))) + (cons __tmp17940 __tmp17908)))) (declare (not safe)) - (cons '#f __tmp15925)) + (cons '#f __tmp17907)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f @@ -494,37 +494,37 @@ (define |[:0:]#__runtime| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15959_| + |[1]#_g17941_| 'expander-identifiers: - (let ((__tmp15960 - (let ((__tmp15975 |[1]#_g15959_|) - (__tmp15961 - (let ((__tmp15973 |[1]#_g15974_|) - (__tmp15962 - (let ((__tmp15971 |[1]#_g15972_|) - (__tmp15963 - (let ((__tmp15968 - (let ((__tmp15969 |[1]#_g15970_|)) + (let ((__tmp17942 + (let ((__tmp17957 |[1]#_g17941_|) + (__tmp17943 + (let ((__tmp17955 |[1]#_g17956_|) + (__tmp17944 + (let ((__tmp17953 |[1]#_g17954_|) + (__tmp17945 + (let ((__tmp17950 + (let ((__tmp17951 |[1]#_g17952_|)) (declare (not safe)) - (cons __tmp15969 '()))) - (__tmp15964 - (let ((__tmp15965 - (let ((__tmp15966 - |[1]#_g15967_|)) + (cons __tmp17951 '()))) + (__tmp17946 + (let ((__tmp17947 + (let ((__tmp17948 + |[1]#_g17949_|)) (declare (not safe)) - (cons __tmp15966 '())))) + (cons __tmp17948 '())))) (declare (not safe)) - (cons __tmp15965 '())))) + (cons __tmp17947 '())))) (declare (not safe)) - (cons __tmp15968 __tmp15964)))) + (cons __tmp17950 __tmp17946)))) (declare (not safe)) - (cons __tmp15971 __tmp15963)))) + (cons __tmp17953 __tmp17945)))) (declare (not safe)) - (cons __tmp15973 __tmp15962)))) + (cons __tmp17955 __tmp17944)))) (declare (not safe)) - (cons __tmp15975 __tmp15961)))) + (cons __tmp17957 __tmp17943)))) (declare (not safe)) - (cons '#f __tmp15960)) + (cons '#f __tmp17942)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f @@ -536,49 +536,49 @@ (define |[:0:]#__syntax| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15976_| + |[1]#_g17958_| 'expander-identifiers: - (let ((__tmp15977 - (let ((__tmp15998 |[1]#_g15976_|) - (__tmp15978 - (let ((__tmp15996 |[1]#_g15997_|) - (__tmp15979 - (let ((__tmp15994 |[1]#_g15995_|) - (__tmp15980 - (let ((__tmp15988 - (let ((__tmp15992 |[1]#_g15993_|) - (__tmp15989 - (let ((__tmp15990 - |[1]#_g15991_|)) + (let ((__tmp17959 + (let ((__tmp17980 |[1]#_g17958_|) + (__tmp17960 + (let ((__tmp17978 |[1]#_g17979_|) + (__tmp17961 + (let ((__tmp17976 |[1]#_g17977_|) + (__tmp17962 + (let ((__tmp17970 + (let ((__tmp17974 |[1]#_g17975_|) + (__tmp17971 + (let ((__tmp17972 + |[1]#_g17973_|)) (declare (not safe)) - (cons __tmp15990 '())))) + (cons __tmp17972 '())))) (declare (not safe)) - (cons __tmp15992 __tmp15989))) - (__tmp15981 - (let ((__tmp15982 - (let ((__tmp15986 - |[1]#_g15987_|) - (__tmp15983 - (let ((__tmp15984 - |[1]#_g15985_|)) + (cons __tmp17974 __tmp17971))) + (__tmp17963 + (let ((__tmp17964 + (let ((__tmp17968 + |[1]#_g17969_|) + (__tmp17965 + (let ((__tmp17966 + |[1]#_g17967_|)) (declare (not safe)) - (cons __tmp15984 + (cons __tmp17966 '())))) (declare (not safe)) - (cons __tmp15986 - __tmp15983)))) + (cons __tmp17968 + __tmp17965)))) (declare (not safe)) - (cons __tmp15982 '())))) + (cons __tmp17964 '())))) (declare (not safe)) - (cons __tmp15988 __tmp15981)))) + (cons __tmp17970 __tmp17963)))) (declare (not safe)) - (cons __tmp15994 __tmp15980)))) + (cons __tmp17976 __tmp17962)))) (declare (not safe)) - (cons __tmp15996 __tmp15979)))) + (cons __tmp17978 __tmp17961)))) (declare (not safe)) - (cons __tmp15998 __tmp15978)))) + (cons __tmp17980 __tmp17960)))) (declare (not safe)) - (cons '#f __tmp15977)) + (cons '#f __tmp17959)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f @@ -590,34 +590,34 @@ (define |[:0:]#__macro| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15999_| + |[1]#_g17981_| 'expander-identifiers: - (let ((__tmp16010 |[1]#_g15976_|) - (__tmp16000 - (let ((__tmp16009 |[1]#_g15999_|) - (__tmp16001 - (let ((__tmp16007 |[1]#_g16008_|) - (__tmp16002 - (let ((__tmp16005 |[1]#_g16006_|) - (__tmp16003 - (let ((__tmp16004 + (let ((__tmp17992 |[1]#_g17958_|) + (__tmp17982 + (let ((__tmp17991 |[1]#_g17981_|) + (__tmp17983 + (let ((__tmp17989 |[1]#_g17990_|) + (__tmp17984 + (let ((__tmp17987 |[1]#_g17988_|) + (__tmp17985 + (let ((__tmp17986 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp16004)))) + (cons '() __tmp17986)))) (declare (not safe)) - (cons __tmp16005 __tmp16003)))) + (cons __tmp17987 __tmp17985)))) (declare (not safe)) - (cons __tmp16007 __tmp16002)))) + (cons __tmp17989 __tmp17984)))) (declare (not safe)) - (cons __tmp16009 __tmp16001)))) + (cons __tmp17991 __tmp17983)))) (declare (not safe)) - (cons __tmp16010 __tmp16000)) + (cons __tmp17992 __tmp17982)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g16011_| + |[1]#_g17993_| '__macro '#f '() @@ -625,34 +625,34 @@ (define |[:0:]#__special-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g16012_| + |[1]#_g17994_| 'expander-identifiers: - (let ((__tmp16023 |[1]#_g15999_|) - (__tmp16013 - (let ((__tmp16022 |[1]#_g16012_|) - (__tmp16014 - (let ((__tmp16020 |[1]#_g16021_|) - (__tmp16015 - (let ((__tmp16018 |[1]#_g16019_|) - (__tmp16016 - (let ((__tmp16017 + (let ((__tmp18005 |[1]#_g17981_|) + (__tmp17995 + (let ((__tmp18004 |[1]#_g17994_|) + (__tmp17996 + (let ((__tmp18002 |[1]#_g18003_|) + (__tmp17997 + (let ((__tmp18000 |[1]#_g18001_|) + (__tmp17998 + (let ((__tmp17999 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp16017)))) + (cons '() __tmp17999)))) (declare (not safe)) - (cons __tmp16018 __tmp16016)))) + (cons __tmp18000 __tmp17998)))) (declare (not safe)) - (cons __tmp16020 __tmp16015)))) + (cons __tmp18002 __tmp17997)))) (declare (not safe)) - (cons __tmp16022 __tmp16014)))) + (cons __tmp18004 __tmp17996)))) (declare (not safe)) - (cons __tmp16023 __tmp16013)) + (cons __tmp18005 __tmp17995)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g16024_| + |[1]#_g18006_| '__special-form '#f '() @@ -660,34 +660,34 @@ (define |[:0:]#__core-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g16025_| + |[1]#_g18007_| 'expander-identifiers: - (let ((__tmp16036 |[1]#_g15976_|) - (__tmp16026 - (let ((__tmp16035 |[1]#_g16025_|) - (__tmp16027 - (let ((__tmp16033 |[1]#_g16034_|) - (__tmp16028 - (let ((__tmp16031 |[1]#_g16032_|) - (__tmp16029 - (let ((__tmp16030 + (let ((__tmp18018 |[1]#_g17958_|) + (__tmp18008 + (let ((__tmp18017 |[1]#_g18007_|) + (__tmp18009 + (let ((__tmp18015 |[1]#_g18016_|) + (__tmp18010 + (let ((__tmp18013 |[1]#_g18014_|) + (__tmp18011 + (let ((__tmp18012 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp16030)))) + (cons '() __tmp18012)))) (declare (not safe)) - (cons __tmp16031 __tmp16029)))) + (cons __tmp18013 __tmp18011)))) (declare (not safe)) - (cons __tmp16033 __tmp16028)))) + (cons __tmp18015 __tmp18010)))) (declare (not safe)) - (cons __tmp16035 __tmp16027)))) + (cons __tmp18017 __tmp18009)))) (declare (not safe)) - (cons __tmp16036 __tmp16026)) + (cons __tmp18018 __tmp18008)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g16011_| + |[1]#_g17993_| '__core-form '#f '() @@ -695,34 +695,34 @@ (define |[:0:]#__core-expression| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g16037_| + |[1]#_g18019_| 'expander-identifiers: - (let ((__tmp16048 |[1]#_g16025_|) - (__tmp16038 - (let ((__tmp16047 |[1]#_g16037_|) - (__tmp16039 - (let ((__tmp16045 |[1]#_g16046_|) - (__tmp16040 - (let ((__tmp16043 |[1]#_g16044_|) - (__tmp16041 - (let ((__tmp16042 + (let ((__tmp18030 |[1]#_g18007_|) + (__tmp18020 + (let ((__tmp18029 |[1]#_g18019_|) + (__tmp18021 + (let ((__tmp18027 |[1]#_g18028_|) + (__tmp18022 + (let ((__tmp18025 |[1]#_g18026_|) + (__tmp18023 + (let ((__tmp18024 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp16042)))) + (cons '() __tmp18024)))) (declare (not safe)) - (cons __tmp16043 __tmp16041)))) + (cons __tmp18025 __tmp18023)))) (declare (not safe)) - (cons __tmp16045 __tmp16040)))) + (cons __tmp18027 __tmp18022)))) (declare (not safe)) - (cons __tmp16047 __tmp16039)))) + (cons __tmp18029 __tmp18021)))) (declare (not safe)) - (cons __tmp16048 __tmp16038)) + (cons __tmp18030 __tmp18020)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g16049_| + |[1]#_g18031_| '__core-expression '#f '() @@ -730,34 +730,34 @@ (define |[:0:]#__core-special-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g16050_| + |[1]#_g18032_| 'expander-identifiers: - (let ((__tmp16061 |[1]#_g16025_|) - (__tmp16051 - (let ((__tmp16060 |[1]#_g16050_|) - (__tmp16052 - (let ((__tmp16058 |[1]#_g16059_|) - (__tmp16053 - (let ((__tmp16056 |[1]#_g16057_|) - (__tmp16054 - (let ((__tmp16055 + (let ((__tmp18043 |[1]#_g18007_|) + (__tmp18033 + (let ((__tmp18042 |[1]#_g18032_|) + (__tmp18034 + (let ((__tmp18040 |[1]#_g18041_|) + (__tmp18035 + (let ((__tmp18038 |[1]#_g18039_|) + (__tmp18036 + (let ((__tmp18037 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp16055)))) + (cons '() __tmp18037)))) (declare (not safe)) - (cons __tmp16056 __tmp16054)))) + (cons __tmp18038 __tmp18036)))) (declare (not safe)) - (cons __tmp16058 __tmp16053)))) + (cons __tmp18040 __tmp18035)))) (declare (not safe)) - (cons __tmp16060 __tmp16052)))) + (cons __tmp18042 __tmp18034)))) (declare (not safe)) - (cons __tmp16061 __tmp16051)) + (cons __tmp18043 __tmp18033)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g16049_| + |[1]#_g18031_| '__core-special-form '#f '() @@ -765,34 +765,34 @@ (define |[:0:]#__struct-info| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g16062_| + |[1]#_g18044_| 'expander-identifiers: - (let ((__tmp16073 |[1]#_g15976_|) - (__tmp16063 - (let ((__tmp16072 |[1]#_g16062_|) - (__tmp16064 - (let ((__tmp16070 |[1]#_g16071_|) - (__tmp16065 - (let ((__tmp16068 |[1]#_g16069_|) - (__tmp16066 - (let ((__tmp16067 + (let ((__tmp18055 |[1]#_g17958_|) + (__tmp18045 + (let ((__tmp18054 |[1]#_g18044_|) + (__tmp18046 + (let ((__tmp18052 |[1]#_g18053_|) + (__tmp18047 + (let ((__tmp18050 |[1]#_g18051_|) + (__tmp18048 + (let ((__tmp18049 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp16067)))) + (cons '() __tmp18049)))) (declare (not safe)) - (cons __tmp16068 __tmp16066)))) + (cons __tmp18050 __tmp18048)))) (declare (not safe)) - (cons __tmp16070 __tmp16065)))) + (cons __tmp18052 __tmp18047)))) (declare (not safe)) - (cons __tmp16072 __tmp16064)))) + (cons __tmp18054 __tmp18046)))) (declare (not safe)) - (cons __tmp16073 __tmp16063)) + (cons __tmp18055 __tmp18045)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g16011_| + |[1]#_g17993_| '__struct-info '#f '() @@ -800,34 +800,34 @@ (define |[:0:]#__feature| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g16074_| + |[1]#_g18056_| 'expander-identifiers: - (let ((__tmp16085 |[1]#_g15976_|) - (__tmp16075 - (let ((__tmp16084 |[1]#_g16074_|) - (__tmp16076 - (let ((__tmp16082 |[1]#_g16083_|) - (__tmp16077 - (let ((__tmp16080 |[1]#_g16081_|) - (__tmp16078 - (let ((__tmp16079 + (let ((__tmp18067 |[1]#_g17958_|) + (__tmp18057 + (let ((__tmp18066 |[1]#_g18056_|) + (__tmp18058 + (let ((__tmp18064 |[1]#_g18065_|) + (__tmp18059 + (let ((__tmp18062 |[1]#_g18063_|) + (__tmp18060 + (let ((__tmp18061 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp16079)))) + (cons '() __tmp18061)))) (declare (not safe)) - (cons __tmp16080 __tmp16078)))) + (cons __tmp18062 __tmp18060)))) (declare (not safe)) - (cons __tmp16082 __tmp16077)))) + (cons __tmp18064 __tmp18059)))) (declare (not safe)) - (cons __tmp16084 __tmp16076)))) + (cons __tmp18066 __tmp18058)))) (declare (not safe)) - (cons __tmp16085 __tmp16075)) + (cons __tmp18067 __tmp18057)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g16011_| + |[1]#_g17993_| '__feature '#f '() @@ -835,288 +835,288 @@ (define |[:0:]#__module| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g16086_| + |[1]#_g18068_| 'expander-identifiers: - (let ((__tmp16121 |[1]#_g15924_|) - (__tmp16087 - (let ((__tmp16120 |[1]#_g16086_|) - (__tmp16088 - (let ((__tmp16118 |[1]#_g16119_|) - (__tmp16089 - (let ((__tmp16116 |[1]#_g16117_|) - (__tmp16090 - (let ((__tmp16104 - (let ((__tmp16114 |[1]#_g16115_|) - (__tmp16105 - (let ((__tmp16112 - |[1]#_g16113_|) - (__tmp16106 - (let ((__tmp16110 - |[1]#_g16111_|) - (__tmp16107 - (let ((__tmp16108 + (let ((__tmp18103 |[1]#_g17906_|) + (__tmp18069 + (let ((__tmp18102 |[1]#_g18068_|) + (__tmp18070 + (let ((__tmp18100 |[1]#_g18101_|) + (__tmp18071 + (let ((__tmp18098 |[1]#_g18099_|) + (__tmp18072 + (let ((__tmp18086 + (let ((__tmp18096 |[1]#_g18097_|) + (__tmp18087 + (let ((__tmp18094 + |[1]#_g18095_|) + (__tmp18088 + (let ((__tmp18092 + |[1]#_g18093_|) + (__tmp18089 + (let ((__tmp18090 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g16109_|)) + |[1]#_g18091_|)) (declare (not safe)) - (cons __tmp16108 '())))) + (cons __tmp18090 '())))) (declare (not safe)) - (cons __tmp16110 __tmp16107)))) + (cons __tmp18092 __tmp18089)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp16112 - __tmp16106)))) + (cons __tmp18094 + __tmp18088)))) (declare (not safe)) - (cons __tmp16114 __tmp16105))) - (__tmp16091 - (let ((__tmp16092 - (let ((__tmp16102 - |[1]#_g16103_|) - (__tmp16093 - (let ((__tmp16100 - |[1]#_g16101_|) - (__tmp16094 - (let ((__tmp16098 + (cons __tmp18096 __tmp18087))) + (__tmp18073 + (let ((__tmp18074 + (let ((__tmp18084 + |[1]#_g18085_|) + (__tmp18075 + (let ((__tmp18082 + |[1]#_g18083_|) + (__tmp18076 + (let ((__tmp18080 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g16099_|) - (__tmp16095 - (let ((__tmp16096 |[1]#_g16097_|)) + |[1]#_g18081_|) + (__tmp18077 + (let ((__tmp18078 |[1]#_g18079_|)) (declare (not safe)) - (cons __tmp16096 '())))) + (cons __tmp18078 '())))) (declare (not safe)) - (cons __tmp16098 __tmp16095)))) + (cons __tmp18080 __tmp18077)))) (declare (not safe)) - (cons __tmp16100 __tmp16094)))) + (cons __tmp18082 __tmp18076)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp16102 - __tmp16093)))) + (cons __tmp18084 + __tmp18075)))) (declare (not safe)) - (cons __tmp16092 '())))) + (cons __tmp18074 '())))) (declare (not safe)) - (cons __tmp16104 __tmp16091)))) + (cons __tmp18086 __tmp18073)))) (declare (not safe)) - (cons __tmp16116 __tmp16090)))) + (cons __tmp18098 __tmp18072)))) (declare (not safe)) - (cons __tmp16118 __tmp16089)))) + (cons __tmp18100 __tmp18071)))) (declare (not safe)) - (cons __tmp16120 __tmp16088)))) + (cons __tmp18102 __tmp18070)))) (declare (not safe)) - (cons __tmp16121 __tmp16087)) + (cons __tmp18103 __tmp18069)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g16122_| + |[1]#_g18104_| '__module '#f '() '(id path import export)))) (define |[:0:]#defcore-forms| - (lambda (_stx12989_) - (letrec ((_generate12992_ - (lambda (_id13356_ _compile13358_ _make13359_) - (let* ((_g1336113380_ - (lambda (_g1336213376_) + (lambda (_stx14971_) + (letrec ((_generate14974_ + (lambda (_id15338_ _compile15340_ _make15341_) + (let* ((_g1534315362_ + (lambda (_g1534415358_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1336213376_))) - (_g1336013439_ - (lambda (_g1336213384_) - (if (gx#stx-pair? _g1336213384_) - (let ((_e1336813387_ - (gx#syntax-e _g1336213384_))) - (let ((_hd1336713391_ + _g1534415358_))) + (_g1534215421_ + (lambda (_g1534415366_) + (if (gx#stx-pair? _g1534415366_) + (let ((_e1535015369_ + (gx#syntax-e _g1534415366_))) + (let ((_hd1534915373_ (let () (declare (not safe)) - (##car _e1336813387_))) - (_tl1336613394_ + (##car _e1535015369_))) + (_tl1534815376_ (let () (declare (not safe)) - (##cdr _e1336813387_)))) - (if (gx#stx-pair? _tl1336613394_) - (let ((_e1337113397_ - (gx#syntax-e _tl1336613394_))) - (let ((_hd1337013401_ + (##cdr _e1535015369_)))) + (if (gx#stx-pair? _tl1534815376_) + (let ((_e1535315379_ + (gx#syntax-e _tl1534815376_))) + (let ((_hd1535215383_ (let () (declare (not safe)) - (##car _e1337113397_))) - (_tl1336913404_ + (##car _e1535315379_))) + (_tl1535115386_ (let () (declare (not safe)) - (##cdr _e1337113397_)))) - (if (gx#stx-pair? _tl1336913404_) - (let ((_e1337413407_ + (##cdr _e1535315379_)))) + (if (gx#stx-pair? _tl1535115386_) + (let ((_e1535615389_ (gx#syntax-e - _tl1336913404_))) - (let ((_hd1337313411_ + _tl1535115386_))) + (let ((_hd1535515393_ (let () (declare (not safe)) - (##car _e1337413407_))) - (_tl1337213414_ + (##car _e1535615389_))) + (_tl1535415396_ (let () (declare (not safe)) - (##cdr _e1337413407_)))) + (##cdr _e1535615389_)))) (if (gx#stx-null? - _tl1337213414_) - ((lambda (_L13417_ + _tl1535415396_) + ((lambda (_L15399_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L13419_ - _L13420_) + _L15401_ + _L15402_) (let () - (let ((__tmp16129 + (let ((__tmp18111 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp16123 - (let ((__tmp16126 - (let ((__tmp16128 + (__tmp18105 + (let ((__tmp18108 + (let ((__tmp18110 (gx#datum->syntax '#f 'quote)) - (__tmp16127 + (__tmp18109 (let () (declare (not safe)) - (cons _L13420_ '())))) + (cons _L15402_ '())))) (declare (not safe)) - (cons __tmp16128 __tmp16127))) - (__tmp16124 - (let ((__tmp16125 + (cons __tmp18110 __tmp18109))) + (__tmp18106 + (let ((__tmp18107 (let () (declare (not safe)) - (cons _L13417_ '())))) + (cons _L15399_ '())))) (declare (not safe)) - (cons _L13419_ __tmp16125)))) + (cons _L15401_ __tmp18107)))) (declare (not safe)) - (cons __tmp16126 __tmp16124)))) + (cons __tmp18108 __tmp18106)))) (declare (not safe)) - (cons __tmp16129 __tmp16123)))) - _hd1337313411_ - _hd1337013401_ - _hd1336713391_) - (_g1336113380_ _g1336213384_)))) + (cons __tmp18111 __tmp18105)))) + _hd1535515393_ + _hd1535215383_ + _hd1534915373_) + (_g1534315362_ _g1534415366_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1336113380_ - _g1336213384_)))) - (_g1336113380_ _g1336213384_)))) - (_g1336113380_ _g1336213384_))))) - (_g1336013439_ - (list _id13356_ - (gx#stx-identifier _id13356_ '"__" _compile13358_) - _make13359_)))))) - (let* ((_g1299513015_ - (lambda (_g1299613011_) + (_g1534315362_ + _g1534415366_)))) + (_g1534315362_ _g1534415366_)))) + (_g1534315362_ _g1534415366_))))) + (_g1534215421_ + (list _id15338_ + (gx#stx-identifier _id15338_ '"__" _compile15340_) + _make15341_)))))) + (let* ((_g1497714997_ + (lambda (_g1497814993_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1299613011_))) - (_g1299413352_ - (lambda (_g1299613019_) - (if (gx#stx-pair? _g1299613019_) - (let ((_e1300013022_ (gx#syntax-e _g1299613019_))) - (let ((_hd1299913026_ + _g1497814993_))) + (_g1497615334_ + (lambda (_g1497815001_) + (if (gx#stx-pair? _g1497815001_) + (let ((_e1498215004_ (gx#syntax-e _g1497815001_))) + (let ((_hd1498115008_ (let () (declare (not safe)) - (##car _e1300013022_))) - (_tl1299813029_ + (##car _e1498215004_))) + (_tl1498015011_ (let () (declare (not safe)) - (##cdr _e1300013022_)))) - (if (gx#stx-pair/null? _tl1299813029_) - (let ((_g16130_ + (##cdr _e1498215004_)))) + (if (gx#stx-pair/null? _tl1498015011_) + (let ((_g18112_ (gx#syntax-split-splice - _tl1299813029_ + _tl1498015011_ '0))) (begin - (let ((_g16131_ + (let ((_g18113_ (let () (declare (not safe)) - (if (##values? _g16130_) - (##vector-length _g16130_) + (if (##values? _g18112_) + (##vector-length _g18112_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g16131_ 2))) + (##fx= _g18113_ 2))) (error "Context expects 2 values" - _g16131_))) - (let ((_target1300113032_ + _g18113_))) + (let ((_target1498315014_ (let () (declare (not safe)) - (##vector-ref _g16130_ 0))) - (_tl1300313035_ + (##vector-ref _g18112_ 0))) + (_tl1498515017_ (let () (declare (not safe)) - (##vector-ref _g16130_ 1)))) - (if (gx#stx-null? _tl1300313035_) - (letrec ((_loop1300413038_ - (lambda (_hd1300213042_ - _form1300813045_) + (##vector-ref _g18112_ 1)))) + (if (gx#stx-null? _tl1498515017_) + (letrec ((_loop1498615020_ + (lambda (_hd1498415024_ + _form1499015027_) (if (gx#stx-pair? - _hd1300213042_) - (let ((_e1300513048_ + _hd1498415024_) + (let ((_e1498715030_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1300213042_))) - (let ((_lp-hd1300613052_ - (let () (declare (not safe)) (##car _e1300513048_))) - (_lp-tl1300713055_ + (gx#syntax-e _hd1498415024_))) + (let ((_lp-hd1498815034_ + (let () (declare (not safe)) (##car _e1498715030_))) + (_lp-tl1498915037_ (let () (declare (not safe)) - (##cdr _e1300513048_)))) - (_loop1300413038_ - _lp-tl1300713055_ + (##cdr _e1498715030_)))) + (_loop1498615020_ + _lp-tl1498915037_ (let () (declare (not safe)) - (cons _lp-hd1300613052_ _form1300813045_))))) - (let ((_form1300913058_ (reverse _form1300813045_))) - ((lambda (_L13062_) - (let _lp13080_ ((_rest13083_ - (let ((__tmp16136 - (lambda (_g1334313346_ - _g1334413349_) + (cons _lp-hd1498815034_ _form1499015027_))))) + (let ((_form1499115040_ (reverse _form1499015027_))) + ((lambda (_L15044_) + (let _lp15062_ ((_rest15065_ + (let ((__tmp18118 + (lambda (_g1532515328_ + _g1532615331_) (let () (declare (not safe)) - (cons _g1334313346_ - _g1334413349_))))) + (cons _g1532515328_ + _g1532615331_))))) (declare (not safe)) - (foldr1 __tmp16136 '() _L13062_))) - (_body13085_ '())) - (let* ((___stx1546515466_ _rest13083_) - (_g1309013137_ + (foldr1 __tmp18118 '() _L15044_))) + (_body15067_ '())) + (let* ((___stx1744717448_ _rest15065_) + (_g1507215119_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx1546515466_)))) - (let ((___kont1546815469_ - (lambda (_L13318_ _L13320_ _L13321_) - (_lp13080_ - _L13318_ - (let ((__tmp16132 - (_generate12992_ - _L13321_ - _L13320_ + ___stx1744717448_)))) + (let ((___kont1745017451_ + (lambda (_L15300_ _L15302_ _L15303_) + (_lp15062_ + _L15300_ + (let ((__tmp18114 + (_generate14974_ + _L15303_ + _L15302_ (gx#datum->syntax '#f 'make-__core-expression)))) (declare (not safe)) - (cons __tmp16132 _body13085_))))) - (___kont1547015471_ - (lambda (_L13245_ _L13247_ _L13248_) - (_lp13080_ - _L13245_ - (let ((__tmp16133 - (_generate12992_ - _L13248_ - _L13247_ + (cons __tmp18114 _body15067_))))) + (___kont1745217453_ + (lambda (_L15227_ _L15229_ _L15230_) + (_lp15062_ + _L15227_ + (let ((__tmp18115 + (_generate14974_ + _L15230_ + _L15229_ (gx#datum->syntax '#f 'make-__core-special-form)))) (declare (not safe)) - (cons __tmp16133 _body13085_))))) - (___kont1547215473_ - (lambda (_L13175_ _L13177_) - (_lp13080_ - _L13175_ - (let ((__tmp16134 - (_generate12992_ - _L13177_ + (cons __tmp18115 _body15067_))))) + (___kont1745417455_ + (lambda (_L15157_ _L15159_) + (_lp15062_ + _L15157_ + (let ((__tmp18116 + (_generate14974_ + _L15159_ (gx#datum->syntax '#f 'compile-error) @@ -1124,131 +1124,131 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp16134 _body13085_))))) - (___kont1547415475_ + (cons __tmp18116 _body15067_))))) + (___kont1745617457_ (lambda () - (let ((__tmp16135 (reverse _body13085_))) + (let ((__tmp18117 (reverse _body15067_))) (declare (not safe)) - (cons 'begin __tmp16135))))) - (let ((_g1308913148_ + (cons 'begin __tmp18117))))) + (let ((_g1507115130_ (lambda () - (if (gx#stx-null? ___stx1546515466_) - (___kont1547415475_) + (if (gx#stx-null? ___stx1744717448_) + (___kont1745617457_) (let () (declare (not safe)) - (_g1309013137_)))))) - (if (gx#stx-pair? ___stx1546515466_) - (let ((_e1309713274_ - (gx#syntax-e ___stx1546515466_))) - (let ((_tl1309513281_ + (_g1507215119_)))))) + (if (gx#stx-pair? ___stx1744717448_) + (let ((_e1507915256_ + (gx#syntax-e ___stx1744717448_))) + (let ((_tl1507715263_ (let () (declare (not safe)) - (##cdr _e1309713274_))) - (_hd1309613278_ + (##cdr _e1507915256_))) + (_hd1507815260_ (let () (declare (not safe)) - (##car _e1309713274_)))) - (if (gx#stx-pair? _hd1309613278_) - (let ((_e1310013284_ + (##car _e1507915256_)))) + (if (gx#stx-pair? _hd1507815260_) + (let ((_e1508215266_ (gx#syntax-e - _hd1309613278_))) - (let ((_tl1309813291_ + _hd1507815260_))) + (let ((_tl1508015273_ (let () (declare (not safe)) - (##cdr _e1310013284_))) - (_hd1309913288_ + (##cdr _e1508215266_))) + (_hd1508115270_ (let () (declare (not safe)) - (##car _e1310013284_)))) + (##car _e1508215266_)))) (if (gx#stx-pair? - _tl1309813291_) - (let ((_e1310313294_ + _tl1508015273_) + (let ((_e1508515276_ (gx#syntax-e - _tl1309813291_))) - (let ((_tl1310113301_ + _tl1508015273_))) + (let ((_tl1508315283_ (let () (declare (not safe)) - (##cdr _e1310313294_))) - (_hd1310213298_ + (##cdr _e1508515276_))) + (_hd1508415280_ (let () (declare (not safe)) - (##car _e1310313294_)))) + (##car _e1508515276_)))) (if (gx#stx-datum? - _hd1310213298_) - (let ((_e1310413304_ + _hd1508415280_) + (let ((_e1508615286_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1310213298_))) + (gx#stx-e _hd1508415280_))) (if (let () (declare (not safe)) - (equal? _e1310413304_ 'expr:)) - (if (gx#stx-pair? _tl1310113301_) - (let ((_e1310713308_ - (gx#syntax-e _tl1310113301_))) - (let ((_tl1310513315_ + (equal? _e1508615286_ 'expr:)) + (if (gx#stx-pair? _tl1508315283_) + (let ((_e1508915290_ + (gx#syntax-e _tl1508315283_))) + (let ((_tl1508715297_ (let () (declare (not safe)) - (##cdr _e1310713308_))) - (_hd1310613312_ + (##cdr _e1508915290_))) + (_hd1508815294_ (let () (declare (not safe)) - (##car _e1310713308_)))) - (if (gx#stx-null? _tl1310513315_) - (___kont1546815469_ - _tl1309513281_ - _hd1310613312_ - _hd1309913288_) + (##car _e1508915290_)))) + (if (gx#stx-null? _tl1508715297_) + (___kont1745017451_ + _tl1507715263_ + _hd1508815294_ + _hd1508115270_) (let () (declare (not safe)) - (_g1309013137_))))) - (let () (declare (not safe)) (_g1309013137_))) + (_g1507215119_))))) + (let () (declare (not safe)) (_g1507215119_))) (if (let () (declare (not safe)) - (equal? _e1310413304_ 'special:)) - (if (gx#stx-pair? _tl1310113301_) - (let ((_e1312313235_ - (gx#syntax-e _tl1310113301_))) - (let ((_tl1312113242_ + (equal? _e1508615286_ 'special:)) + (if (gx#stx-pair? _tl1508315283_) + (let ((_e1510515217_ + (gx#syntax-e _tl1508315283_))) + (let ((_tl1510315224_ (let () (declare (not safe)) - (##cdr _e1312313235_))) - (_hd1312213239_ + (##cdr _e1510515217_))) + (_hd1510415221_ (let () (declare (not safe)) - (##car _e1312313235_)))) - (if (gx#stx-null? _tl1312113242_) - (___kont1547015471_ - _tl1309513281_ - _hd1312213239_ - _hd1309913288_) + (##car _e1510515217_)))) + (if (gx#stx-null? _tl1510315224_) + (___kont1745217453_ + _tl1507715263_ + _hd1510415221_ + _hd1508115270_) (let () (declare (not safe)) - (_g1309013137_))))) - (let () (declare (not safe)) (_g1309013137_))) - (let () (declare (not safe)) (_g1309013137_))))) - (let () (declare (not safe)) (_g1309013137_))))) + (_g1507215119_))))) + (let () (declare (not safe)) (_g1507215119_))) + (let () (declare (not safe)) (_g1507215119_))))) + (let () (declare (not safe)) (_g1507215119_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl1309813291_) - (___kont1547215473_ - _tl1309513281_ - _hd1309913288_) + _tl1508015273_) + (___kont1745417455_ + _tl1507715263_ + _hd1508115270_) (let () (declare (not safe)) - (_g1309013137_)))))) + (_g1507215119_)))))) (let () (declare (not safe)) - (_g1309013137_))))) + (_g1507215119_))))) (let () (declare (not safe)) - (_g1308913148_)))))))) - _form1300913058_)))))) + (_g1507115130_)))))))) + _form1499115040_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1300413038_ - _target1300113032_ + (_loop1498615020_ + _target1498315014_ '())) - (_g1299513015_ _g1299613019_))))) - (_g1299513015_ _g1299613019_)))) - (_g1299513015_ _g1299613019_))))) - (_g1299413352_ _stx12989_))))))) + (_g1497714997_ _g1497815001_))))) + (_g1497714997_ _g1497815001_)))) + (_g1497714997_ _g1497815001_))))) + (_g1497615334_ _stx14971_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index aa9dde7da..ffee696e7 100644 --- a/src/bootstrap/gerbil/runtime/gambit__0.scm +++ b/src/bootstrap/gerbil/runtime/gambit__0.scm @@ -1,2 +1,2 @@ (declare (block) (standard-bindings) (extended-bindings)) -(begin (define gerbil/runtime/gambit::timestamp 1701718632) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1706585166) '#!void) diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index 60c9a213d..22c6b08e7 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 1701718632) + (define gerbil/runtime/init::timestamp 1706585167) (begin (define __loading-scheme-source (make-parameter '#f)) (define __init-gx! @@ -22,42 +22,42 @@ (set! __eval-module gx#core-eval-module))) (define __load-gxi (lambda () - (letrec* ((_+readtable+16347_ __*readtable*)) + (letrec* ((_+readtable+18329_ __*readtable*)) (let () (declare (not safe)) (__init-gx!)) - (let* ((_core16349_ (gx#import-module ':gerbil/core)) - (_pre16351_ (gx#make-prelude-context _core16349_))) - (gx#current-expander-module-prelude _pre16351_) - (gx#core-bind-root-syntax! ': _pre16351_ '#t) + (let* ((_core18331_ (gx#import-module ':gerbil/core)) + (_pre18333_ (gx#make-prelude-context _core18331_))) + (gx#current-expander-module-prelude _pre18333_) + (gx#core-bind-root-syntax! ': _pre18333_ '#t) (gx#eval-syntax '(import :gerbil/core))) (gx#current-expander-compile __compile-top-source) (let () (declare (not safe)) (##expand-source-set! __expand-source)) (let () (declare (not safe)) (##macro-descr-set! __macro-descr)) (let () (declare (not safe)) (##main-readtable-set! __*readtable*)) (for-each - (lambda (_port16354_) - (input-port-readtable-set! _port16354_ _+readtable+16347_)) + (lambda (_port18336_) + (input-port-readtable-set! _port18336_ _+readtable+18329_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port16356_) + (lambda (_port18338_) (output-port-readtable-set! - _port16356_ + _port18338_ (readtable-sharing-allowed?-set - (output-port-readtable _port16356_) + (output-port-readtable _port18338_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline16344_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline18326_) '#!void)) (define load-scheme - (lambda (_path16339_) - (let ((__tmp16358 + (lambda (_path18321_) + (let ((__tmp18340 (lambda () - (let ((__tmp16359 (lambda _args16342_ '#f))) + (let ((__tmp18341 (lambda _args18324_ '#f))) (declare (not safe)) - (##load _path16339_ __tmp16359 '#t '#t '#f))))) + (##load _path18321_ __tmp18341 '#t '#t '#f))))) (declare (not safe)) (call-with-parameters - __tmp16358 + __tmp18340 __loading-scheme-source - _path16339_)))) + _path18321_)))) (define load-path (lambda () (values (let () (declare (not safe)) (current-module-library-path)) @@ -68,431 +68,431 @@ (define expander-load-path (lambda () (gx#current-expander-module-library-path))) (define add-load-path - (lambda _paths16334_ - (apply add-library-load-path _paths16334_) - (apply add-expander-load-path _paths16334_))) + (lambda _paths18316_ + (apply add-library-load-path _paths18316_) + (apply add-expander-load-path _paths18316_))) (define add-library-load-path - (lambda _paths16323_ - (let* ((_current16325_ (current-module-library-path)) - (_paths16327_ (map path-expand _paths16323_)) - (_paths16331_ - (let ((__tmp16360 - (lambda (_x16329_) - (let ((__tmp16361 (member _x16329_ _current16325_))) + (lambda _paths18305_ + (let* ((_current18307_ (current-module-library-path)) + (_paths18309_ (map path-expand _paths18305_)) + (_paths18313_ + (let ((__tmp18342 + (lambda (_x18311_) + (let ((__tmp18343 (member _x18311_ _current18307_))) (declare (not safe)) - (not __tmp16361))))) + (not __tmp18343))))) (declare (not safe)) - (filter __tmp16360 _paths16327_)))) - (current-module-library-path (append _current16325_ _paths16331_))))) + (filter __tmp18342 _paths18309_)))) + (current-module-library-path (append _current18307_ _paths18313_))))) (define add-expander-load-path - (lambda _paths16312_ - (let* ((_current16314_ (gx#current-expander-module-library-path)) - (_paths16316_ (map path-expand _paths16312_)) - (_paths16320_ - (let ((__tmp16362 - (lambda (_x16318_) - (let ((__tmp16363 (member _x16318_ _current16314_))) + (lambda _paths18294_ + (let* ((_current18296_ (gx#current-expander-module-library-path)) + (_paths18298_ (map path-expand _paths18294_)) + (_paths18302_ + (let ((__tmp18344 + (lambda (_x18300_) + (let ((__tmp18345 (member _x18300_ _current18296_))) (declare (not safe)) - (not __tmp16363))))) + (not __tmp18345))))) (declare (not safe)) - (filter __tmp16362 _paths16316_)))) + (filter __tmp18344 _paths18298_)))) (gx#current-expander-module-library-path - (append _current16314_ _paths16320_))))) + (append _current18296_ _paths18302_))))) (define cons-load-path - (lambda _paths16310_ - (apply cons-library-load-path _paths16310_) - (apply cons-expander-load-path _paths16310_))) + (lambda _paths18292_ + (apply cons-library-load-path _paths18292_) + (apply cons-expander-load-path _paths18292_))) (define cons-library-load-path - (lambda _paths16305_ - (let ((_current16307_ (current-module-library-path)) - (_paths16308_ (map path-expand _paths16305_))) - (current-module-library-path (append _paths16308_ _current16307_))))) + (lambda _paths18287_ + (let ((_current18289_ (current-module-library-path)) + (_paths18290_ (map path-expand _paths18287_))) + (current-module-library-path (append _paths18290_ _current18289_))))) (define cons-expander-load-path - (lambda _paths16300_ - (let ((_current16302_ (gx#current-expander-module-library-path)) - (_paths16303_ (map path-expand _paths16300_))) + (lambda _paths18282_ + (let ((_current18284_ (gx#current-expander-module-library-path)) + (_paths18285_ (map path-expand _paths18282_))) (gx#current-expander-module-library-path - (append _paths16303_ _current16302_))))) + (append _paths18285_ _current18284_))))) (define with-cons-load-path - (lambda (_thunk16296_ . _paths16297_) + (lambda (_thunk18278_ . _paths18279_) (apply with-cons-library-load-path (lambda () (apply with-cons-expander-load-path - _thunk16296_ - _paths16297_)) - _paths16297_))) + _thunk18278_ + _paths18279_)) + _paths18279_))) (define with-cons-library-load-path - (lambda (_thunk16289_ . _paths16290_) - (let ((_current16292_ (current-module-library-path)) - (_paths16293_ (map path-expand _paths16290_))) - (let ((__tmp16365 (lambda () (_thunk16289_))) - (__tmp16364 (append _paths16293_ _current16292_))) + (lambda (_thunk18271_ . _paths18272_) + (let ((_current18274_ (current-module-library-path)) + (_paths18275_ (map path-expand _paths18272_))) + (let ((__tmp18347 (lambda () (_thunk18271_))) + (__tmp18346 (append _paths18275_ _current18274_))) (declare (not safe)) (call-with-parameters - __tmp16365 + __tmp18347 current-module-library-path - __tmp16364))))) + __tmp18346))))) (define with-cons-expander-load-path - (lambda (_thunk16282_ . _paths16283_) - (let ((_current16285_ (gx#current-expander-module-library-path)) - (_paths16286_ (map path-expand _paths16283_))) - (let ((__tmp16367 (lambda () (_thunk16282_))) - (__tmp16366 (append _paths16286_ _current16285_))) + (lambda (_thunk18264_ . _paths18265_) + (let ((_current18267_ (gx#current-expander-module-library-path)) + (_paths18268_ (map path-expand _paths18265_))) + (let ((__tmp18349 (lambda () (_thunk18264_))) + (__tmp18348 (append _paths18268_ _current18267_))) (declare (not safe)) (call-with-parameters - __tmp16367 + __tmp18349 gx#current-expander-module-library-path - __tmp16366))))) + __tmp18348))))) (define __expand-source - (lambda (_src16268_) - (letrec ((_expand16270_ - (lambda (_src16280_) - (let ((__tmp16368 + (lambda (_src18250_) + (letrec ((_expand18252_ + (lambda (_src18262_) + (let ((__tmp18350 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src16280_))))) + (__source->syntax _src18262_))))) (declare (not safe)) - (__compile-top __tmp16368)))) - (_no-expand16271_ - (lambda (_src16276_) + (__compile-top __tmp18350)))) + (_no-expand18253_ + (lambda (_src18258_) (if (__loading-scheme-source) - _src16276_ + _src18258_ (if (let () (declare (not safe)) - (##source? _src16276_)) - (let ((_code16278_ + (##source? _src18258_)) + (let ((_code18260_ (let () (declare (not safe)) - (##source-code _src16276_)))) + (##source-code _src18258_)))) (if (let () (declare (not safe)) - (pair? _code16278_)) - (if (let ((__tmp16369 + (pair? _code18260_)) + (if (let ((__tmp18351 (let () (declare (not safe)) - (##car _code16278_)))) + (##car _code18260_)))) (declare (not safe)) - (eq? '__noexpand: __tmp16369)) + (eq? '__noexpand: __tmp18351)) (let () (declare (not safe)) - (##cdr _code16278_)) + (##cdr _code18260_)) '#f) '#f)) '#f))))) - (let ((_$e16273_ - (let () (declare (not safe)) (_no-expand16271_ _src16268_)))) - (if _$e16273_ - _$e16273_ - (let () (declare (not safe)) (_expand16270_ _src16268_))))))) + (let ((_$e18255_ + (let () (declare (not safe)) (_no-expand18253_ _src18250_)))) + (if _$e18255_ + _$e18255_ + (let () (declare (not safe)) (_expand18252_ _src18250_))))))) (define __macro-descr - (lambda (_src16254_ _def-syntax?16255_) - (letrec ((_fail!16257_ + (lambda (_src18236_ _def-syntax?18237_) + (letrec ((_fail!18239_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src16254_)))) - (_make-descr16258_ - (lambda (_size16262_) - (let ((_expander16265_ - (let ((__tmp16370 + _src18236_)))) + (_make-descr18240_ + (lambda (_size18244_) + (let ((_expander18247_ + (let ((__tmp18352 (lambda () (let () (declare (not safe)) (##eval-top - _src16254_ + _src18236_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp16370 + __tmp18352 __loading-scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander16265_)) + (procedure? _expander18247_)) (let () (declare (not safe)) (##make-macro-descr - _def-syntax?16255_ - _size16262_ - _expander16265_ - _src16254_)) - (let () (declare (not safe)) (_fail!16257_))))))) - (if _def-syntax?16255_ - (let () (declare (not safe)) (_make-descr16258_ '-1)) - (let ((_code16260_ - (let () (declare (not safe)) (##source-code _src16254_)))) - (if (and (let () (declare (not safe)) (##pair? _code16260_)) - (let ((__tmp16374 - (let ((__tmp16375 - (let ((__tmp16376 + _def-syntax?18237_ + _size18244_ + _expander18247_ + _src18236_)) + (let () (declare (not safe)) (_fail!18239_))))))) + (if _def-syntax?18237_ + (let () (declare (not safe)) (_make-descr18240_ '-1)) + (let ((_code18242_ + (let () (declare (not safe)) (##source-code _src18236_)))) + (if (and (let () (declare (not safe)) (##pair? _code18242_)) + (let ((__tmp18356 + (let ((__tmp18357 + (let ((__tmp18358 (let () (declare (not safe)) - (##car _code16260_)))) + (##car _code18242_)))) (declare (not safe)) - (##sourcify __tmp16376 _src16254_)))) + (##sourcify __tmp18358 _src18236_)))) (declare (not safe)) - (##source-code __tmp16375)))) + (##source-code __tmp18357)))) (declare (not safe)) - (##memq __tmp16374 '(##lambda lambda)))) + (##memq __tmp18356 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src16254_ _src16254_ '-3)) - (let ((__tmp16371 - (let ((__tmp16372 - (let ((__tmp16373 + (##shape _src18236_ _src18236_ '-3)) + (let ((__tmp18353 + (let ((__tmp18354 + (let ((__tmp18355 (let () (declare (not safe)) - (##cadr _code16260_)))) + (##cadr _code18242_)))) (declare (not safe)) - (##sourcify __tmp16373 _src16254_)))) + (##sourcify __tmp18355 _src18236_)))) (declare (not safe)) - (##form-size __tmp16372)))) + (##form-size __tmp18354)))) (declare (not safe)) - (_make-descr16258_ __tmp16371))) - (let () (declare (not safe)) (_fail!16257_)))))))) + (_make-descr18240_ __tmp18353))) + (let () (declare (not safe)) (_fail!18239_)))))))) (define __source->syntax - (lambda (_src16248_) - (let _recur16250_ ((_e16252_ _src16248_)) - (if (let () (declare (not safe)) (##source? _e16252_)) - (let ((__tmp16384 - (let ((__tmp16385 + (lambda (_src18230_) + (let _recur18232_ ((_e18234_ _src18230_)) + (if (let () (declare (not safe)) (##source? _e18234_)) + (let ((__tmp18366 + (let ((__tmp18367 (let () (declare (not safe)) - (##source-code _e16252_)))) + (##source-code _e18234_)))) (declare (not safe)) - (_recur16250_ __tmp16385))) - (__tmp16383 - (let () (declare (not safe)) (##source-locat _e16252_)))) + (_recur18232_ __tmp18367))) + (__tmp18365 + (let () (declare (not safe)) (##source-locat _e18234_)))) (declare (not safe)) - (##structure AST::t __tmp16384 __tmp16383)) - (if (let () (declare (not safe)) (pair? _e16252_)) - (let ((__tmp16381 - (let ((__tmp16382 + (##structure AST::t __tmp18366 __tmp18365)) + (if (let () (declare (not safe)) (pair? _e18234_)) + (let ((__tmp18363 + (let ((__tmp18364 (let () (declare (not safe)) - (##car _e16252_)))) + (##car _e18234_)))) (declare (not safe)) - (_recur16250_ __tmp16382))) - (__tmp16379 - (let ((__tmp16380 + (_recur18232_ __tmp18364))) + (__tmp18361 + (let ((__tmp18362 (let () (declare (not safe)) - (##cdr _e16252_)))) + (##cdr _e18234_)))) (declare (not safe)) - (_recur16250_ __tmp16380)))) + (_recur18232_ __tmp18362)))) (declare (not safe)) - (cons __tmp16381 __tmp16379)) - (if (let () (declare (not safe)) (vector? _e16252_)) - (vector-map _recur16250_ _e16252_) - (if (let () (declare (not safe)) (box? _e16252_)) - (let ((__tmp16377 - (let ((__tmp16378 (unbox _e16252_))) + (cons __tmp18363 __tmp18361)) + (if (let () (declare (not safe)) (vector? _e18234_)) + (vector-map _recur18232_ _e18234_) + (if (let () (declare (not safe)) (box? _e18234_)) + (let ((__tmp18359 + (let ((__tmp18360 (unbox _e18234_))) (declare (not safe)) - (_recur16250_ __tmp16378)))) + (_recur18232_ __tmp18360)))) (declare (not safe)) - (box __tmp16377)) - _e16252_))))))) + (box __tmp18359)) + _e18234_))))))) (define __compile-top-source - (lambda (_stx16246_) - (let ((__tmp16386 - (let () (declare (not safe)) (__compile-top _stx16246_)))) + (lambda (_stx18228_) + (let ((__tmp18368 + (let () (declare (not safe)) (__compile-top _stx18228_)))) (declare (not safe)) - (cons '__noexpand: __tmp16386)))) + (cons '__noexpand: __tmp18368)))) (define __compile-top - (lambda (_stx16244_) - (let ((__tmp16387 (gx#core-compile-top-syntax _stx16244_))) + (lambda (_stx18226_) + (let ((__tmp18369 (gx#core-compile-top-syntax _stx18226_))) (declare (not safe)) - (__compile __tmp16387)))) + (__compile __tmp18369)))) (define __eval-import - (lambda (_in16225_) - (letrec* ((_mods16227_ + (lambda (_in18207_) + (letrec* ((_mods18209_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_import116228_ - (lambda (_in16235_ _phi16236_) - (if (gx#module-import? _in16235_) - (let ((_iphi16238_ - (fx+ _phi16236_ - (gx#module-import-phi _in16235_)))) + (_import118210_ + (lambda (_in18217_ _phi18218_) + (if (gx#module-import? _in18217_) + (let ((_iphi18220_ + (fx+ _phi18218_ + (gx#module-import-phi _in18217_)))) (if (let () (declare (not safe)) - (fxzero? _iphi16238_)) - (let ((__tmp16389 + (fxzero? _iphi18220_)) + (let ((__tmp18371 (gx#module-export-context - (gx#module-import-source _in16235_)))) + (gx#module-import-source _in18217_)))) (declare (not safe)) - (_eval116229_ __tmp16389)) + (_eval118211_ __tmp18371)) '#!void)) - (if (gx#module-context? _in16235_) + (if (gx#module-context? _in18217_) (if (let () (declare (not safe)) - (fxzero? _phi16236_)) + (fxzero? _phi18218_)) (let () (declare (not safe)) - (_eval116229_ _in16235_)) + (_eval118211_ _in18217_)) '#!void) - (if (gx#import-set? _in16235_) - (let ((_iphi16240_ - (fx+ _phi16236_ - (gx#import-set-phi _in16235_)))) + (if (gx#import-set? _in18217_) + (let ((_iphi18222_ + (fx+ _phi18218_ + (gx#import-set-phi _in18217_)))) (if (let () (declare (not safe)) - (fxzero? _iphi16240_)) - (let ((__tmp16388 + (fxzero? _iphi18222_)) + (let ((__tmp18370 (gx#import-set-source - _in16235_))) + _in18217_))) (declare (not safe)) - (_eval116229_ __tmp16388)) - (if (fxpositive? _iphi16240_) + (_eval118211_ __tmp18370)) + (if (fxpositive? _iphi18222_) (for-each - (lambda (_in16242_) + (lambda (_in18224_) (let () (declare (not safe)) - (_import116228_ - _in16242_ - _iphi16240_))) + (_import118210_ + _in18224_ + _iphi18222_))) (gx#module-context-import - (gx#import-set-source _in16235_))) + (gx#import-set-source _in18217_))) '#!void))) - (error '"Unexpected import" _in16235_)))))) - (_eval116229_ - (lambda (_ctx16233_) + (error '"Unexpected import" _in18217_)))))) + (_eval118211_ + (lambda (_ctx18215_) (if (let () (declare (not safe)) - (table-ref _mods16227_ _ctx16233_ '#f)) + (table-ref _mods18209_ _ctx18215_ '#f)) '#!void (begin (let () (declare (not safe)) - (table-set! _mods16227_ _ctx16233_ '#t)) - (__eval-module _ctx16233_)))))) - (if (let () (declare (not safe)) (pair? _in16225_)) + (table-set! _mods18209_ _ctx18215_ '#t)) + (__eval-module _ctx18215_)))))) + (if (let () (declare (not safe)) (pair? _in18207_)) (for-each - (lambda (_in16231_) - (let () (declare (not safe)) (_import116228_ _in16231_ '0))) - _in16225_) - (let () (declare (not safe)) (_import116228_ _in16225_ '0)))))) + (lambda (_in18213_) + (let () (declare (not safe)) (_import118210_ _in18213_ '0))) + _in18207_) + (let () (declare (not safe)) (_import118210_ _in18207_ '0)))))) (define __eval-module - (lambda (_obj16218_) - (let* ((_key16220_ - (if (gx#module-context? _obj16218_) - (gx#module-context-path _obj16218_) - _obj16218_)) - (_$e16222_ + (lambda (_obj18200_) + (let* ((_key18202_ + (if (gx#module-context? _obj18200_) + (gx#module-context-path _obj18200_) + _obj18200_)) + (_$e18204_ (let () (declare (not safe)) - (table-ref __*modules* _key16220_ '#f)))) - (if _$e16222_ (values _$e16222_) (gx#core-eval-module _obj16218_))))) + (table-ref __*modules* _key18202_ '#f)))) + (if _$e18204_ (values _$e18204_) (gx#core-eval-module _obj18200_))))) (define gerbil-runtime-init! - (lambda (_builtin-modules16153_) + (lambda (_builtin-modules18135_) (if __runtime-initialized '#!void (begin - (let* ((_home16155_ (let () (declare (not safe)) (gerbil-home))) - (_libdir16157_ (path-expand '"lib" _home16155_)) - (_userpath16159_ + (let* ((_home18137_ (let () (declare (not safe)) (gerbil-home))) + (_libdir18139_ (path-expand '"lib" _home18137_)) + (_userpath18141_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath16161_ + (_loadpath18143_ (if (getenv '"GERBIL_BUILD_PREFIX" '#f) (let () (declare (not safe)) - (cons _libdir16157_ '())) - (let ((__tmp16390 + (cons _libdir18139_ '())) + (let ((__tmp18372 (let () (declare (not safe)) - (cons _libdir16157_ '())))) + (cons _libdir18139_ '())))) (declare (not safe)) - (cons _userpath16159_ __tmp16390)))) - (_loadpath16170_ - (let ((_$e16163_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e16163_ - ((lambda (_envvar16166_) - (append (let ((__tmp16392 - (lambda (_x16168_) - (let ((__tmp16393 + (cons _userpath18141_ __tmp18372)))) + (_loadpath18152_ + (let ((_$e18145_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e18145_ + ((lambda (_envvar18148_) + (append (let ((__tmp18374 + (lambda (_x18150_) + (let ((__tmp18375 (let () (declare (not safe)) (string-empty? - _x16168_)))) + _x18150_)))) (declare (not safe)) - (not __tmp16393)))) - (__tmp16391 + (not __tmp18375)))) + (__tmp18373 (let () (declare (not safe)) (string-split - _envvar16166_ + _envvar18148_ '#\:)))) (declare (not safe)) - (filter __tmp16392 __tmp16391)) - _loadpath16161_)) - _$e16163_) - _loadpath16161_)))) - (current-module-library-path _loadpath16170_)) - (let* ((_registry-entry16175_ - (lambda (_m16173_) + (filter __tmp18374 __tmp18373)) + _loadpath18143_)) + _$e18145_) + _loadpath18143_)))) + (current-module-library-path _loadpath18152_)) + (let* ((_registry-entry18157_ + (lambda (_m18155_) (let () (declare (not safe)) - (cons _m16173_ 'builtin)))) - (_module-registry16215_ - (let _lp16177_ ((_rest16179_ _builtin-modules16153_) - (_registry16180_ '())) - (let* ((_rest1618116189_ _rest16179_) - (_else1618316197_ + (cons _m18155_ 'builtin)))) + (_module-registry18197_ + (let _lp18159_ ((_rest18161_ _builtin-modules18135_) + (_registry18162_ '())) + (let* ((_rest1816318171_ _rest18161_) + (_else1816518179_ (lambda () (let () (declare (not safe)) - (list->table _registry16180_)))) - (_K1618516203_ - (lambda (_rest16200_ _mod16201_) - (let ((__tmp16394 - (let ((__tmp16398 - (let ((__tmp16399 + (list->table _registry18162_)))) + (_K1816718185_ + (lambda (_rest18182_ _mod18183_) + (let ((__tmp18376 + (let ((__tmp18380 + (let ((__tmp18381 (string-append - _mod16201_ + _mod18183_ '"__0"))) (declare (not safe)) - (_registry-entry16175_ - __tmp16399))) - (__tmp16395 - (let ((__tmp16396 - (let ((__tmp16397 + (_registry-entry18157_ + __tmp18381))) + (__tmp18377 + (let ((__tmp18378 + (let ((__tmp18379 (string-append - _mod16201_ + _mod18183_ '"__rt"))) (declare (not safe)) - (_registry-entry16175_ - __tmp16397)))) + (_registry-entry18157_ + __tmp18379)))) (declare (not safe)) - (cons __tmp16396 - _registry16180_)))) + (cons __tmp18378 + _registry18162_)))) (declare (not safe)) - (cons __tmp16398 __tmp16395)))) + (cons __tmp18380 __tmp18377)))) (declare (not safe)) - (_lp16177_ _rest16200_ __tmp16394))))) + (_lp18159_ _rest18182_ __tmp18376))))) (if (let () (declare (not safe)) - (##pair? _rest1618116189_)) - (let ((_hd1618616206_ + (##pair? _rest1816318171_)) + (let ((_hd1816818188_ (let () (declare (not safe)) - (##car _rest1618116189_))) - (_tl1618716208_ + (##car _rest1816318171_))) + (_tl1816918190_ (let () (declare (not safe)) - (##cdr _rest1618116189_)))) - (let* ((_mod16211_ _hd1618616206_) - (_rest16213_ _tl1618716208_)) + (##cdr _rest1816318171_)))) + (let* ((_mod18193_ _hd1816818188_) + (_rest18195_ _tl1816918190_)) (declare (not safe)) - (_K1618516203_ _rest16213_ _mod16211_))) + (_K1816718185_ _rest18195_ _mod18193_))) (let () (declare (not safe)) - (_else1618316197_))))))) - (current-module-registry _module-registry16215_)) + (_else1816518179_))))))) + (current-module-registry _module-registry18197_)) (current-readtable __*readtable*) (random-source-randomize! default-random-source) (set! __runtime-initialized '#t))))) diff --git a/src/bootstrap/gerbil/runtime/loader__0.scm b/src/bootstrap/gerbil/runtime/loader__0.scm index f70ffd00a..2395856ab 100644 --- a/src/bootstrap/gerbil/runtime/loader__0.scm +++ b/src/bootstrap/gerbil/runtime/loader__0.scm @@ -1,118 +1,118 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/loader::timestamp 1701718632) + (define gerbil/runtime/loader::timestamp 1706585167) (begin (define current-module-library-path (make-parameter '#f)) (define current-module-registry (make-parameter '#f)) (define __reload-module (make-parameter '#f)) (define load-module__% - (lambda (_modpath6881_ _reload?6882_) - (let ((_$e6884_ - (if (let () (declare (not safe)) (not _reload?6882_)) - (let ((__tmp6903 (current-module-registry))) + (lambda (_modpath9309_ _reload?9310_) + (let ((_$e9312_ + (if (let () (declare (not safe)) (not _reload?9310_)) + (let ((__tmp9331 (current-module-registry))) (declare (not safe)) - (table-ref __tmp6903 _modpath6881_ '#f)) + (table-ref __tmp9331 _modpath9309_ '#f)) '#f))) - (if _$e6884_ - _$e6884_ - (let ((_$e6887_ + (if _$e9312_ + _$e9312_ + (let ((_$e9315_ (let () (declare (not safe)) - (find-library-module _modpath6881_)))) - (if _$e6887_ - ((lambda (_path6890_) - (let ((_lpath6892_ (load _path6890_))) - (let ((__tmp6904 (current-module-registry))) + (find-library-module _modpath9309_)))) + (if _$e9315_ + ((lambda (_path9318_) + (let ((_lpath9320_ (load _path9318_))) + (let ((__tmp9332 (current-module-registry))) (declare (not safe)) - (table-set! __tmp6904 _modpath6881_ _lpath6892_)) - _lpath6892_)) - _$e6887_) - (error '"module not found" _modpath6881_))))))) + (table-set! __tmp9332 _modpath9309_ _lpath9320_)) + _lpath9320_)) + _$e9315_) + (error '"module not found" _modpath9309_))))))) (define load-module__0 - (lambda (_modpath6897_) - (let ((_reload?6899_ (__reload-module))) + (lambda (_modpath9325_) + (let ((_reload?9327_ (__reload-module))) (declare (not safe)) - (load-module__% _modpath6897_ _reload?6899_)))) + (load-module__% _modpath9325_ _reload?9327_)))) (define load-module - (lambda _g6906_ - (let ((_g6905_ (let () (declare (not safe)) (##length _g6906_)))) - (cond ((let () (declare (not safe)) (##fx= _g6905_ 1)) - (apply (lambda (_modpath6897_) + (lambda _g9334_ + (let ((_g9333_ (let () (declare (not safe)) (##length _g9334_)))) + (cond ((let () (declare (not safe)) (##fx= _g9333_ 1)) + (apply (lambda (_modpath9325_) (let () (declare (not safe)) - (load-module__0 _modpath6897_))) - _g6906_)) - ((let () (declare (not safe)) (##fx= _g6905_ 2)) - (apply (lambda (_modpath6901_ _reload?6902_) + (load-module__0 _modpath9325_))) + _g9334_)) + ((let () (declare (not safe)) (##fx= _g9333_ 2)) + (apply (lambda (_modpath9329_ _reload?9330_) (let () (declare (not safe)) - (load-module__% _modpath6901_ _reload?6902_))) - _g6906_)) + (load-module__% _modpath9329_ _reload?9330_))) + _g9334_)) (else (##raise-wrong-number-of-arguments-exception load-module - _g6906_)))))) + _g9334_)))))) (define find-library-module - (lambda (_modpath6815_) - (letrec ((_find-compiled-file6817_ - (lambda (_npath6869_) - (let ((_basepath6871_ + (lambda (_modpath9243_) + (letrec ((_find-compiled-file9245_ + (lambda (_npath9297_) + (let ((_basepath9299_ (let () (declare (not safe)) - (##string-append _npath6869_ '".o")))) - (let _lp6873_ ((_current6875_ '#f) (_n6876_ '1)) - (let ((_next6878_ - (let ((__tmp6907 (number->string _n6876_))) + (##string-append _npath9297_ '".o")))) + (let _lp9301_ ((_current9303_ '#f) (_n9304_ '1)) + (let ((_next9306_ + (let ((__tmp9335 (number->string _n9304_))) (declare (not safe)) - (##string-append _basepath6871_ __tmp6907)))) + (##string-append _basepath9299_ __tmp9335)))) (if (let () (declare (not safe)) - (##file-exists? _next6878_)) - (let ((__tmp6908 + (##file-exists? _next9306_)) + (let ((__tmp9336 (let () (declare (not safe)) - (##fx+ _n6876_ '1)))) + (##fx+ _n9304_ '1)))) (declare (not safe)) - (_lp6873_ _next6878_ __tmp6908)) - _current6875_)))))) - (_find-source-file6818_ - (lambda (_npath6865_) - (let ((_spath6867_ (string-append _npath6865_ '".scm"))) + (_lp9301_ _next9306_ __tmp9336)) + _current9303_)))))) + (_find-source-file9246_ + (lambda (_npath9293_) + (let ((_spath9295_ (string-append _npath9293_ '".scm"))) (if (let () (declare (not safe)) - (##file-exists? _spath6867_)) - _spath6867_ + (##file-exists? _spath9295_)) + _spath9295_ '#f))))) - (let _lp6820_ ((_rest6822_ (current-module-library-path))) - (let* ((_rest68236831_ _rest6822_) - (_else68256839_ (lambda () '#f)) - (_K68276853_ - (lambda (_rest6842_ _dir6843_) - (let* ((_npath6845_ + (let _lp9248_ ((_rest9250_ (current-module-library-path))) + (let* ((_rest92519259_ _rest9250_) + (_else92539267_ (lambda () '#f)) + (_K92559281_ + (lambda (_rest9270_ _dir9271_) + (let* ((_npath9273_ (path-expand - _modpath6815_ - (path-expand _dir6843_))) - (_$e6847_ + _modpath9243_ + (path-expand _dir9271_))) + (_$e9275_ (let () (declare (not safe)) - (_find-compiled-file6817_ _npath6845_)))) - (if _$e6847_ - (path-normalize _$e6847_) - (let ((_$e6850_ + (_find-compiled-file9245_ _npath9273_)))) + (if _$e9275_ + (path-normalize _$e9275_) + (let ((_$e9278_ (let () (declare (not safe)) - (_find-source-file6818_ _npath6845_)))) - (if _$e6850_ - (path-normalize _$e6850_) + (_find-source-file9246_ _npath9273_)))) + (if _$e9278_ + (path-normalize _$e9278_) (let () (declare (not safe)) - (_lp6820_ _rest6842_))))))))) - (if (let () (declare (not safe)) (##pair? _rest68236831_)) - (let ((_hd68286856_ - (let () (declare (not safe)) (##car _rest68236831_))) - (_tl68296858_ - (let () (declare (not safe)) (##cdr _rest68236831_)))) - (let* ((_dir6861_ _hd68286856_) (_rest6863_ _tl68296858_)) + (_lp9248_ _rest9270_))))))))) + (if (let () (declare (not safe)) (##pair? _rest92519259_)) + (let ((_hd92569284_ + (let () (declare (not safe)) (##car _rest92519259_))) + (_tl92579286_ + (let () (declare (not safe)) (##cdr _rest92519259_)))) + (let* ((_dir9289_ _hd92569284_) (_rest9291_ _tl92579286_)) (declare (not safe)) - (_K68276853_ _rest6863_ _dir6861_))) - (let () (declare (not safe)) (_else68256839_)))))))))) + (_K92559281_ _rest9291_ _dir9289_))) + (let () (declare (not safe)) (_else92539267_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop.ssi b/src/bootstrap/gerbil/runtime/mop.ssi index db0d31d0f..fb8fbd2fc 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssi +++ b/src/bootstrap/gerbil/runtime/mop.ssi @@ -3,26 +3,41 @@ package: gerbil/runtime namespace: #f (%#begin (%#export #t) - (%#import :gerbil/runtime/gambit :gerbil/runtime/util) + (%#import + :gerbil/runtime/gambit + :gerbil/runtime/util + :gerbil/runtime/c3) + (%#define-runtime type-id type-id) + (%#define-runtime type=? type=?) (%#define-runtime type-descriptor? type-descriptor?) + (%#define-runtime type-struct? type-struct?) + (%#define-runtime type-final? type-final?) (%#define-runtime struct-type? struct-type?) (%#define-runtime class-type? class-type?) + (%#define-runtime properties-form properties-form) (%#define-runtime make-type-descriptor make-type-descriptor) + (%#define-runtime make-type-descriptor* make-type-descriptor*) (%#define-runtime - make-struct-type-descriptor - make-struct-type-descriptor) + type-descriptor-precedence-list + type-descriptor-precedence-list) + (%#define-runtime type-descriptor-all-slots type-descriptor-all-slots) (%#define-runtime - make-class-type-descriptor - make-class-type-descriptor) - (%#define-runtime type-descriptor-mixin type-descriptor-mixin) - (%#define-runtime type-descriptor-fields type-descriptor-fields) - (%#define-runtime type-descriptor-plist type-descriptor-plist) - (%#define-runtime type-descriptor-ctor type-descriptor-ctor) - (%#define-runtime type-descriptor-slots type-descriptor-slots) + type-descriptor-slot-table + type-descriptor-slot-table) + (%#define-runtime + type-descriptor-properties + type-descriptor-properties) + (%#define-runtime + type-descriptor-constructor + type-descriptor-constructor) (%#define-runtime type-descriptor-methods type-descriptor-methods) (%#define-runtime type-descriptor-methods-set! type-descriptor-methods-set!) + (%#define-runtime type-descriptor-mixin type-descriptor-mixin) + (%#define-runtime type-descriptor-plist type-descriptor-plist) + (%#define-runtime type-descriptor-ctor type-descriptor-ctor) + (%#define-runtime type-descriptor-fields type-descriptor-fields) (%#define-runtime type-descriptor-sealed? type-descriptor-sealed?) (%#define-runtime type-descriptor-seal! type-descriptor-seal!) (%#begin (%#define-runtime make-struct-type__% make-struct-type__%) @@ -32,36 +47,80 @@ namespace: #f (%#define-runtime make-struct-type make-struct-type))) + (%#define-runtime make-struct-type* make-struct-type*) (%#define-runtime make-struct-predicate make-struct-predicate) (%#define-runtime make-struct-field-accessor make-struct-field-accessor) + (%#define-runtime + make-struct-field-accessor* + make-struct-field-accessor*) (%#define-runtime make-struct-field-mutator make-struct-field-mutator) + (%#define-runtime + make-struct-field-mutator* + make-struct-field-mutator*) (%#define-runtime make-struct-field-unchecked-accessor make-struct-field-unchecked-accessor) + (%#define-runtime + make-struct-field-unchecked-accessor* + make-struct-field-unchecked-accessor*) (%#define-runtime make-struct-field-unchecked-mutator make-struct-field-unchecked-mutator) - (%#define-runtime struct-field-offset struct-field-offset) + (%#define-runtime + make-struct-field-unchecked-mutator* + make-struct-field-unchecked-mutator*) + (%#define-runtime struct-field-offset* struct-field-offset*) (%#define-runtime struct-field-ref struct-field-ref) (%#define-runtime struct-field-set! struct-field-set!) + (%#define-runtime substruct? substruct?) (%#define-runtime struct-subtype? struct-subtype?) + (%#define-runtime base-struct/1 base-struct/1) + (%#define-runtime base-struct/2 base-struct/2) + (%#define-runtime base-struct/list base-struct/list) + (%#define-runtime base-struct base-struct) + (%#define-runtime find-super-ctor find-super-ctor) + (%#define-runtime find-super-constructor find-super-constructor) + (%#define-runtime compute-class-slots compute-class-slots) (%#define-runtime make-class-type make-class-type) + (%#define-runtime make-class-type* make-class-type*) + (%#define-runtime class-precedence-list class-precedence-list) + (%#define-runtime struct-precedence-list struct-precedence-list) (%#define-runtime class-linearize-mixins class-linearize-mixins) - (%#define-runtime __linearize-mixins __linearize-mixins) (%#define-runtime make-class-predicate make-class-predicate) + (%#define-runtime if-class-slot-field if-class-slot-field) (%#define-runtime make-class-slot-accessor make-class-slot-accessor) + (%#define-runtime + make-struct-subclass-field-accessor + make-struct-subclass-field-accessor) + (%#define-runtime + make-class-cached-slot-accessor + make-class-cached-slot-accessor) (%#define-runtime make-class-slot-mutator make-class-slot-mutator) + (%#define-runtime + make-struct-subclass-field-mutator + make-struct-subclass-field-mutator) + (%#define-runtime + make-class-cached-slot-mutator + make-class-cached-slot-mutator) (%#define-runtime make-class-slot-unchecked-accessor make-class-slot-unchecked-accessor) + (%#define-runtime + make-class-cached-slot-unchecked-accessor + make-class-cached-slot-unchecked-accessor) (%#define-runtime make-class-slot-unchecked-mutator make-class-slot-unchecked-mutator) + (%#define-runtime + make-class-cached-slot-unchecked-mutator + make-class-cached-slot-unchecked-mutator) (%#define-runtime class-slot-offset class-slot-offset) + (%#define-runtime class-slot-offset* class-slot-offset*) (%#define-runtime class-slot-ref class-slot-ref) (%#define-runtime class-slot-set! class-slot-set!) + (%#define-runtime subclass? subclass?) (%#define-runtime class-subtype? class-subtype?) (%#define-runtime object? object?) (%#define-runtime object-type object-type) @@ -71,6 +130,9 @@ namespace: #f (%#define-runtime class-instance? class-instance?) (%#define-runtime direct-class-instance? direct-class-instance?) (%#define-runtime make-object make-object) + (%#begin (%#define-runtime make-object*__% make-object*__%) + (%#begin (%#define-runtime make-object*__0 make-object*__0) + (%#define-runtime make-object* make-object*))) (%#define-runtime make-struct-instance make-struct-instance) (%#define-runtime make-class-instance make-class-instance) (%#define-runtime struct-instance-init! struct-instance-init!) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index 301cdd88b..fe6000734 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -2,44 +2,76 @@ prelude: :gerbil/compiler/ssxi package: gerbil/runtime (begin + (declare-type type-id (@lambda 1 #f)) + (declare-type type=? (@lambda 2 #f)) (declare-type type-descriptor? (@lambda 1 #f)) + (declare-type type-struct? (@lambda 1 #f)) + (declare-type type-final? (@lambda 1 #f)) (declare-type struct-type? (@lambda 1 #f)) (declare-type class-type? (@lambda 1 #f)) - (declare-type make-type-descriptor (@lambda 9 #f)) - (declare-type make-struct-type-descriptor (@lambda 6 #f)) - (declare-type make-class-type-descriptor (@lambda 8 #f)) + (declare-type properties-form (@lambda 1 #f)) + (declare-type make-type-descriptor (@lambda 9 make-type-descriptor*)) + (declare-type make-type-descriptor* (@lambda 9 #f)) + (declare-type type-descriptor-precedence-list (@lambda 1 #f)) + (declare-type type-descriptor-all-slots (@lambda 1 #f)) + (declare-type type-descriptor-slot-table (@lambda 1 #f)) + (declare-type type-descriptor-properties (@lambda 1 #f)) + (declare-type type-descriptor-constructor (@lambda 1 #f)) + (declare-type type-descriptor-methods (@lambda 1 #f)) + (declare-type type-descriptor-methods-set! (@lambda 2 #f)) (declare-type type-descriptor-mixin (@lambda 1 #f)) - (declare-type type-descriptor-fields (@lambda 1 #f)) (declare-type type-descriptor-plist (@lambda 1 #f)) (declare-type type-descriptor-ctor (@lambda 1 #f)) - (declare-type type-descriptor-slots (@lambda 1 #f)) - (declare-type type-descriptor-methods (@lambda 1 #f)) - (declare-type type-descriptor-methods-set! (@lambda 2 #f)) + (declare-type type-descriptor-fields (@lambda 1 #f)) (declare-type type-descriptor-sealed? (@lambda 1 #f)) (declare-type type-descriptor-seal! (@lambda 1 #f)) (declare-type make-struct-type__% (@lambda 7 #f)) (declare-type make-struct-type__0 (@lambda 6 #f)) (declare-type make-struct-type (@case-lambda (6 #f) (7 #f))) + (declare-type make-struct-type* (@lambda 6 #f)) (declare-type make-struct-predicate (@lambda 1 #f)) (declare-type make-struct-field-accessor (@lambda 2 #f)) + (declare-type make-struct-field-accessor* (@lambda 2 #f)) (declare-type make-struct-field-mutator (@lambda 2 #f)) + (declare-type make-struct-field-mutator* (@lambda 2 #f)) (declare-type make-struct-field-unchecked-accessor (@lambda 2 #f)) + (declare-type make-struct-field-unchecked-accessor* (@lambda 2 #f)) (declare-type make-struct-field-unchecked-mutator (@lambda 2 #f)) - (declare-type struct-field-offset (@lambda 2 #f)) + (declare-type make-struct-field-unchecked-mutator* (@lambda 2 #f)) + (declare-type struct-field-offset* (@lambda 2 #f)) (declare-type struct-field-ref (@lambda 3 #f)) (declare-type struct-field-set! (@lambda 4 #f)) + (declare-type substruct? (@lambda 2 #f)) (declare-type struct-subtype? (@lambda 2 #f)) + (declare-type base-struct/1 (@lambda 1 #f)) + (declare-type base-struct/2 (@lambda 2 #f)) + (declare-type base-struct/list (@lambda 1 #f)) + (declare-type base-struct (@lambda (0) #f)) + (declare-type find-super-ctor (@lambda 1 find-super-constructor)) + (declare-type find-super-constructor (@lambda 1 #f)) + (declare-type compute-class-slots (@lambda 3 #f)) (declare-type make-class-type (@lambda 6 #f)) + (declare-type make-class-type* (@lambda 6 #f)) + (declare-type class-precedence-list (@lambda 1 #f)) + (declare-type struct-precedence-list (@lambda 1 #f)) (declare-type class-linearize-mixins (@lambda 1 #f)) - (declare-type __linearize-mixins (@lambda 1 #f)) (declare-type make-class-predicate (@lambda 1 #f)) + (declare-type if-class-slot-field (@lambda 5 #f)) (declare-type make-class-slot-accessor (@lambda 2 #f)) + (declare-type make-struct-subclass-field-accessor (@lambda 2 #f)) + (declare-type make-class-cached-slot-accessor (@lambda 3 #f)) (declare-type make-class-slot-mutator (@lambda 2 #f)) + (declare-type make-struct-subclass-field-mutator (@lambda 2 #f)) + (declare-type make-class-cached-slot-mutator (@lambda 3 #f)) (declare-type make-class-slot-unchecked-accessor (@lambda 2 #f)) + (declare-type make-class-cached-slot-unchecked-accessor (@lambda 3 #f)) (declare-type make-class-slot-unchecked-mutator (@lambda 2 #f)) + (declare-type make-class-cached-slot-unchecked-mutator (@lambda 3 #f)) (declare-type class-slot-offset (@lambda 2 #f)) + (declare-type class-slot-offset* (@lambda 2 #f)) (declare-type class-slot-ref (@lambda 3 #f)) (declare-type class-slot-set! (@lambda 4 #f)) + (declare-type subclass? (@lambda 2 #f)) (declare-type class-subtype? (@lambda 2 #f)) (declare-type object? (@lambda 1 #f)) (declare-type object-type (@lambda 1 #f)) @@ -56,6 +88,11 @@ package: gerbil/runtime (declare-type class-instance? (@lambda 2 #f)) (declare-type direct-class-instance? (@lambda 2 direct-instance?)) (declare-type make-object (@lambda 2 #f)) + (declare-type make-object*__% (@lambda 2 #f)) + (declare-type make-object*__0 (@lambda 1 #f)) + (declare-type + make-object* + (@case-lambda (1 make-object*__0) (2 make-object*__%))) (declare-type make-struct-instance (@lambda (1) #f)) (declare-type make-class-instance (@lambda (1) #f)) (declare-type @@ -80,7 +117,9 @@ package: gerbil/runtime ...) (%#call (%#ref error) (%#quote "struct-instance-init!: too many arguments for struct") - (%#ref self))))) + (%#ref self) + (%#quote count) + (%#call (%#ref ##vector-length) (%#ref self)))))) ((%#call recur self arg ...) (with-syntax (($self (make-symbol (gensym '__self)))) diff --git a/src/bootstrap/gerbil/runtime/mop__0.scm b/src/bootstrap/gerbil/runtime/mop__0.scm index e40c78101..48f8360fa 100644 --- a/src/bootstrap/gerbil/runtime/mop__0.scm +++ b/src/bootstrap/gerbil/runtime/mop__0.scm @@ -1,2465 +1,2254 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1701718632) + (define gerbil/runtime/mop::timestamp 1706585167) (begin + (define type-id + (lambda (_klass10615_) + (if (let () (declare (not safe)) (type-descriptor? _klass10615_)) + (let () (declare (not safe)) (##type-id _klass10615_)) + (if (let () (declare (not safe)) (not _klass10615_)) + '#f + (error '"Not a class or #f" _klass10615_))))) + (define type=? + (lambda (_x10612_ _y10613_) + (let ((__tmp10640 (let () (declare (not safe)) (type-id _x10612_))) + (__tmp10639 (let () (declare (not safe)) (type-id _y10613_)))) + (declare (not safe)) + (eq? __tmp10640 __tmp10639)))) (define type-descriptor? - (lambda (_klass8642_) - (if (let () (declare (not safe)) (##type? _klass8642_)) - (let ((__tmp8652 + (lambda (_klass10610_) + (if (let () (declare (not safe)) (##type? _klass10610_)) + (let ((__tmp10641 (let () (declare (not safe)) - (##structure-length _klass8642_)))) + (##structure-length _klass10610_)))) (declare (not safe)) - (eq? __tmp8652 '12)) + (eq? __tmp10641 '12)) '#f))) + (define type-struct? + (lambda (_klass10608_) + (let ((__tmp10642 + (let () + (declare (not safe)) + (type-descriptor-properties _klass10608_)))) + (declare (not safe)) + (assgetq 'struct: __tmp10642)))) + (define type-final? + (lambda (_klass10606_) + (let ((__tmp10643 + (let () + (declare (not safe)) + (type-descriptor-properties _klass10606_)))) + (declare (not safe)) + (assgetq 'final: __tmp10643)))) (define struct-type? - (lambda (_klass8640_) - (if (let () (declare (not safe)) (type-descriptor? _klass8640_)) - (let ((__tmp8653 - (let () - (declare (not safe)) - (type-descriptor-mixin _klass8640_)))) - (declare (not safe)) - (not __tmp8653)) + (lambda (_klass10604_) + (if (let () (declare (not safe)) (type-descriptor? _klass10604_)) + (let () (declare (not safe)) (type-struct? _klass10604_)) '#f))) (define class-type? - (lambda (_klass8638_) - (if (let () (declare (not safe)) (type-descriptor? _klass8638_)) - (if (let () - (declare (not safe)) - (type-descriptor-mixin _klass8638_)) - '#t - '#f) + (lambda (_klass10602_) + (if (let () (declare (not safe)) (type-descriptor? _klass10602_)) + (let ((__tmp10644 + (let () (declare (not safe)) (type-struct? _klass10602_)))) + (declare (not safe)) + (not __tmp10644)) '#f))) + (define properties-form + (lambda (_properties10568_) + (map (lambda (_e1056910571_) + (let* ((_g1057310580_ _e1056910571_) + (_E1057510584_ + (lambda () (error '"No clause matching" _g1057310580_))) + (_K1057610590_ + (lambda (_val10587_ _key10588_) + (if (let () + (declare (not safe)) + (eq? _key10588_ 'direct-supers:)) + (let ((__tmp10645 (map type-id _val10587_))) + (declare (not safe)) + (cons _key10588_ __tmp10645)) + (let () + (declare (not safe)) + (cons _key10588_ _val10587_)))))) + (if (let () (declare (not safe)) (##pair? _g1057310580_)) + (let ((_hd1057710593_ + (let () + (declare (not safe)) + (##car _g1057310580_))) + (_tl1057810595_ + (let () + (declare (not safe)) + (##cdr _g1057310580_)))) + (let* ((_key10598_ _hd1057710593_) + (_val10600_ _tl1057810595_)) + (declare (not safe)) + (_K1057610590_ _val10600_ _key10598_))) + (let () (declare (not safe)) (_E1057510584_))))) + _properties10568_))) (define make-type-descriptor - (lambda (_type-id8534_ - _type-name8535_ - _type-super8536_ - _rtd-mixin8537_ - _rtd-fields8538_ - _rtd-plist8539_ - _rtd-ctor8540_ - _rtd-slots8541_ - _rtd-methods8542_) - (letrec ((_put-props!8544_ - (lambda (_ht8618_ _key8619_) - (letrec ((_put-plist!8621_ - (lambda (_ht8627_ _key8628_ _plist8629_) - (let ((_$e8631_ - (let () - (declare (not safe)) - (assgetq _key8628_ _plist8629_)))) - (if _$e8631_ - ((lambda (_lst8634_) - (for-each - (lambda (_id8636_) - (let () - (declare (not safe)) - (table-set! - _ht8627_ - _id8636_ - '#t))) - _lst8634_)) - _$e8631_) - '#!void))))) - (let () - (declare (not safe)) - (_put-plist!8621_ _ht8618_ _key8619_ _rtd-plist8539_)) - (if _rtd-mixin8537_ - (for-each - (lambda (_klass8623_) - (if (let () - (declare (not safe)) - (type-descriptor-mixin _klass8623_)) - (let ((_plist8625_ + (lambda (_type-id10558_ + _type-name10559_ + _type-super10560_ + _rtd-mixin10561_ + _rtd-fields10562_ + _rtd-plist10563_ + _rtd-ctor10564_ + _rtd-slots10565_ + _rtd-methods10566_) + (let () + (declare (not safe)) + (make-type-descriptor* + _type-id10558_ + _type-name10559_ + _type-super10560_ + _rtd-mixin10561_ + _rtd-fields10562_ + _rtd-plist10563_ + _rtd-ctor10564_ + _rtd-slots10565_ + _rtd-methods10566_)))) + (define make-type-descriptor* + (lambda (_type-id10471_ + _type-name10472_ + _type-super10473_ + _precedence-list10474_ + _all-slots10475_ + _properties10476_ + _constructor10477_ + _slot-table10478_ + _methods10479_) + (letrec ((_make-props!10481_ + (lambda (_key10527_) + (letrec* ((_ht10529_ + (let () + (declare (not safe)) + (make-table 'test: eq?))) + (_put-slots!10530_ + (lambda (_ht10551_ _slots10552_) + (for-each + (lambda (_g1055310555_) + (let () + (declare (not safe)) + (table-set! + _ht10551_ + _g1055310555_ + '#t))) + _slots10552_))) + (_put-alist!10531_ + (lambda (_ht10540_ _key10541_ _alist10542_) + (let ((_$e10544_ (let () (declare (not safe)) - (type-descriptor-plist - _klass8623_)))) - (if (let () - (declare (not safe)) - (assgetq 'transparent: _plist8625_)) - (let () - (declare (not safe)) - (_put-plist!8621_ - _ht8618_ - 'slots: - _plist8625_)) - (let () - (declare (not safe)) - (_put-plist!8621_ - _ht8618_ - _key8619_ - _plist8625_)))) - '#!void)) - _rtd-mixin8537_) - '#!void))))) - (let* ((_transparent?8546_ + (assgetq _key10541_ _alist10542_)))) + (if _$e10544_ + ((lambda (_g1054610548_) + (let () + (declare (not safe)) + (_put-slots!10530_ + _ht10540_ + _g1054610548_))) + _$e10544_) + '#!void))))) + (let () + (declare (not safe)) + (_put-alist!10531_ + _ht10529_ + _key10527_ + _properties10476_)) + (for-each + (lambda (_mixin10533_) + (let ((_alist10535_ + (let () + (declare (not safe)) + (type-descriptor-properties _mixin10533_)))) + (if (or (let () + (declare (not safe)) + (assgetq 'transparent: _alist10535_)) + (let ((__tmp10647 + (let () + (declare (not safe)) + (assgetq _key10527_ + _alist10535_)))) + (declare (not safe)) + (eq? '#t __tmp10647))) + (let ((__tmp10646 + (cdr (vector->list + (let () + (declare (not safe)) + (type-descriptor-all-slots + _mixin10533_)))))) + (declare (not safe)) + (_put-slots!10530_ _ht10529_ __tmp10646)) + (let () + (declare (not safe)) + (_put-alist!10531_ + _ht10529_ + _key10527_ + _alist10535_))))) + _precedence-list10474_) + _ht10529_)))) + (let* ((_transparent?10483_ (let () (declare (not safe)) - (assgetq 'transparent: _rtd-plist8539_))) - (_field-names8551_ - (let ((_$e8548_ (assq 'fields: _rtd-plist8539_))) - (if _$e8548_ (cdr _$e8548_) '()))) - (_field-names8558_ - (let ((_$e8553_ (assq 'slots: _rtd-plist8539_))) - (if _$e8553_ - ((lambda (_slots8556_) - (append _field-names8551_ (cdr _slots8556_))) - _$e8553_) - _field-names8551_))) - (_g8654_ (if (fx= _rtd-fields8538_ (length _field-names8558_)) - '#!void - (error '"Bad field descriptor; length mismatch" - _type-id8534_ - _rtd-fields8538_ - _field-names8558_))) - (_canonical-fields8561_ - (if _type-super8536_ - (list-tail - _field-names8558_ - (let () - (declare (not safe)) - (type-descriptor-fields _type-super8536_))) - _field-names8558_)) - (_printable8565_ - (if _transparent?8546_ - '#f - (let ((_ht8563_ - (let () - (declare (not safe)) - (make-table 'test: eq?)))) - (let () + (assgetq 'transparent: _properties10476_))) + (_all-slots-printable?10488_ + (let ((_$e10485_ _transparent?10483_)) + (if _$e10485_ + _$e10485_ + (let ((__tmp10648 + (let () + (declare (not safe)) + (assgetq 'print: _properties10476_)))) (declare (not safe)) - (_put-props!8544_ _ht8563_ 'print:)) - _ht8563_))) - (_equality8569_ - (if _transparent?8546_ - '#f - (let ((_ht8567_ + (eq? '#t __tmp10648))))) + (_printable10490_ + (if (let () + (declare (not safe)) + (not _all-slots-printable?10488_)) + (let () + (declare (not safe)) + (_make-props!10481_ 'print:)) + '#f)) + (_all-slots-equalable?10495_ + (let ((_$e10492_ _transparent?10483_)) + (if _$e10492_ + _$e10492_ + (let ((__tmp10649 + (let () + (declare (not safe)) + (assgetq 'equal: _properties10476_)))) + (declare (not safe)) + (eq? '#t __tmp10649))))) + (_equalable10497_ + (if (let () + (declare (not safe)) + (not _all-slots-equalable?10495_)) + (let () + (declare (not safe)) + (_make-props!10481_ 'equal:)) + '#f)) + (_first-new-field10499_ + (if _type-super10473_ + (let ((__tmp10650 (let () (declare (not safe)) - (make-table 'test: eq?)))) - (let () - (declare (not safe)) - (_put-props!8544_ _ht8567_ 'equal:)) - _ht8567_))) - (_field-info8610_ - (let _recur8571_ ((_rest8573_ _canonical-fields8561_)) - (let* ((_rest85748582_ _rest8573_) - (_else85768590_ (lambda () '())) - (_K85788598_ - (lambda (_rest8593_ _id8594_) - (let* ((_flags8596_ - (if _transparent?8546_ - '0 - (let ((__tmp8656 - (if (let () - (declare (not safe)) - (table-ref - _printable8565_ - _id8594_ - '#f)) - '0 - '1)) - (__tmp8655 - (if (let () - (declare (not safe)) - (table-ref - _equality8569_ - _id8594_ - '#f)) - '0 - '4))) + (type-descriptor-all-slots _type-super10473_)))) + (declare (not safe)) + (##vector-length __tmp10650)) + '1)) + (_field-info-length10501_ + (let ((__tmp10651 + (let ((__tmp10652 + (let () + (declare (not safe)) + (##vector-length _all-slots10475_)))) + (declare (not safe)) + (##fx- __tmp10652 _first-new-field10499_)))) + (declare (not safe)) + (##fx* '3 __tmp10651))) + (_field-info10503_ (make-vector _field-info-length10501_ '#f)) + (_opaque?10508_ + (let ((_$e10505_ + (let () + (declare (not safe)) + (not _all-slots-equalable?10495_)))) + (if _$e10505_ + _$e10505_ + (if _type-super10473_ + (let ((__tmp10653 + (let ((__tmp10654 + (let () (declare (not safe)) - (##fxior __tmp8656 __tmp8655)))) - (__tmp8657 - (let ((__tmp8658 - (let ((__tmp8659 - (let () - (declare (not safe)) - (_recur8571_ - _rest8593_)))) - (declare (not safe)) - (cons '#f __tmp8659)))) - (declare (not safe)) - (cons _flags8596_ __tmp8658)))) - (declare (not safe)) - (cons _id8594_ __tmp8657))))) - (if (let () - (declare (not safe)) - (##pair? _rest85748582_)) - (let ((_hd85798601_ - (let () - (declare (not safe)) - (##car _rest85748582_))) - (_tl85808603_ - (let () - (declare (not safe)) - (##cdr _rest85748582_)))) - (let* ((_id8606_ _hd85798601_) - (_rest8608_ _tl85808603_)) + (##type-flags _type-super10473_)))) + (declare (not safe)) + (##fxand __tmp10654 '1)))) (declare (not safe)) - (_K85788598_ _rest8608_ _id8606_))) - (let () (declare (not safe)) (_else85768590_)))))) - (_opaque?8615_ - (if (or _transparent?8546_ (assq 'equal: _rtd-plist8539_)) - (if _type-super8536_ - (let ((__tmp8660 - (let ((__tmp8661 - (let () - (declare (not safe)) - (##type-flags _type-super8536_)))) - (declare (not safe)) - (##fxand __tmp8661 '1)))) + (##fx= __tmp10653 '1)) + '#f))))) + (let _loop10511_ ((_i10513_ _first-new-field10499_) (_j10514_ '0)) + (if (let () + (declare (not safe)) + (##fx< _j10514_ _field-info-length10501_)) + (let* ((_slot10516_ + (let () (declare (not safe)) - (##fx= __tmp8660 '1)) - '#f) - '#t))) - (let ((__tmp8663 (+ '24 (if _opaque?8615_ '1 '0))) - (__tmp8662 (list->vector _field-info8610_))) + (##vector-ref _all-slots10475_ _i10513_))) + (_flags10524_ + (if _transparent?10483_ + '0 + (let ((__tmp10656 + (if (or _all-slots-printable?10488_ + (let () + (declare (not safe)) + (table-ref + _printable10490_ + _slot10516_ + '#f))) + '0 + '1)) + (__tmp10655 + (if (or _all-slots-equalable?10495_ + (let () + (declare (not safe)) + (table-ref + _equalable10497_ + _slot10516_ + '#f))) + '0 + '4))) + (declare (not safe)) + (##fxior __tmp10656 __tmp10655))))) + (vector-set! _field-info10503_ _j10514_ _slot10516_) + (vector-set! + _field-info10503_ + (let () (declare (not safe)) (##fx+ _j10514_ '1)) + _flags10524_) + (let ((__tmp10658 + (let () (declare (not safe)) (##fx+ _i10513_ '1))) + (__tmp10657 + (let () (declare (not safe)) (##fx+ _j10514_ '3)))) + (declare (not safe)) + (_loop10511_ __tmp10658 __tmp10657))) + '#!void)) + (let ((__tmp10659 (if _opaque?10508_ '25 '24))) (declare (not safe)) (##structure ##type-type - _type-id8534_ - _type-name8535_ - __tmp8663 - _type-super8536_ - __tmp8662 - _rtd-mixin8537_ - _rtd-fields8538_ - _rtd-plist8539_ - _rtd-ctor8540_ - _rtd-slots8541_ - _rtd-methods8542_)))))) - (define make-struct-type-descriptor - (lambda (_id8527_ - _name8528_ - _super8529_ - _fields8530_ - _plist8531_ - _ctor8532_) - (let () - (declare (not safe)) - (make-type-descriptor - _id8527_ - _name8528_ - _super8529_ - '#f - _fields8530_ - _plist8531_ - _ctor8532_ - '#f - '#f)))) - (define make-class-type-descriptor - (lambda (_id8518_ - _name8519_ - _super8520_ - _mixin8521_ - _fields8522_ - _plist8523_ - _ctor8524_ - _slots8525_) - (let () - (declare (not safe)) - (make-type-descriptor - _id8518_ - _name8519_ - _super8520_ - _mixin8521_ - _fields8522_ - _plist8523_ - _ctor8524_ - _slots8525_ - '#f)))) - (define type-descriptor-mixin - (lambda (_klass8516_) - (let () (declare (not safe)) (##vector-ref _klass8516_ '6)))) - (define type-descriptor-fields - (lambda (_klass8514_) - (let () (declare (not safe)) (##vector-ref _klass8514_ '7)))) - (define type-descriptor-plist - (lambda (_klass8512_) - (let () (declare (not safe)) (##vector-ref _klass8512_ '8)))) - (define type-descriptor-ctor - (lambda (_klass8510_) - (let () (declare (not safe)) (##vector-ref _klass8510_ '9)))) - (define type-descriptor-slots - (lambda (_klass8508_) - (let () (declare (not safe)) (##vector-ref _klass8508_ '10)))) + _type-id10471_ + _type-name10472_ + __tmp10659 + _type-super10473_ + _field-info10503_ + _precedence-list10474_ + _all-slots10475_ + _slot-table10478_ + _properties10476_ + _constructor10477_ + _methods10479_)))))) + (define type-descriptor-precedence-list + (lambda (_klass10469_) + (let () (declare (not safe)) (##vector-ref _klass10469_ '6)))) + (define type-descriptor-all-slots + (lambda (_klass10467_) + (let () (declare (not safe)) (##vector-ref _klass10467_ '7)))) + (define type-descriptor-slot-table + (lambda (_klass10465_) + (let () (declare (not safe)) (##vector-ref _klass10465_ '8)))) + (define type-descriptor-properties + (lambda (_klass10463_) + (let () (declare (not safe)) (##vector-ref _klass10463_ '9)))) + (define type-descriptor-constructor + (lambda (_klass10461_) + (let () (declare (not safe)) (##vector-ref _klass10461_ '10)))) (define type-descriptor-methods - (lambda (_klass8506_) - (let () (declare (not safe)) (##vector-ref _klass8506_ '11)))) + (lambda (_klass10459_) + (let () (declare (not safe)) (##vector-ref _klass10459_ '11)))) (define type-descriptor-methods-set! - (lambda (_klass8503_ _ht8504_) + (lambda (_klass10456_ _ht10457_) (let () (declare (not safe)) - (##vector-set! _klass8503_ '11 _ht8504_)))) + (##vector-set! _klass10456_ '11 _ht10457_)))) + (define type-descriptor-mixin type-descriptor-precedence-list) + (define type-descriptor-plist type-descriptor-properties) + (define type-descriptor-ctor type-descriptor-constructor) + (define type-descriptor-fields + (lambda (_klass10454_) + (let ((__tmp10660 + (let ((__tmp10661 + (let () + (declare (not safe)) + (type-descriptor-all-slots _klass10454_)))) + (declare (not safe)) + (##vector-length __tmp10661)))) + (declare (not safe)) + (##fx- __tmp10660 '1)))) (define type-descriptor-sealed? - (lambda (_klass8501_) - (let ((__tmp8664 - (let () (declare (not safe)) (##type-flags _klass8501_)))) + (lambda (_klass10452_) + (let ((__tmp10662 + (let () (declare (not safe)) (##type-flags _klass10452_)))) (declare (not safe)) - (##fxbit-set? '20 __tmp8664)))) + (##fxbit-set? '20 __tmp10662)))) (define type-descriptor-seal! - (lambda (_klass8499_) - (let ((__tmp8665 - (let ((__tmp8667 + (lambda (_klass10450_) + (let ((__tmp10663 + (let ((__tmp10665 (let () (declare (not safe)) (##fxarithmetic-shift '1 '20))) - (__tmp8666 + (__tmp10664 (let () (declare (not safe)) - (##type-flags _klass8499_)))) + (##type-flags _klass10450_)))) (declare (not safe)) - (##fxior __tmp8667 __tmp8666)))) + (##fxior __tmp10665 __tmp10664)))) (declare (not safe)) - (##vector-set! _klass8499_ '3 __tmp8665)))) + (##vector-set! _klass10450_ '3 __tmp10663)))) (define make-struct-type__% - (lambda (_id8448_ - _super8449_ - _fields8450_ - _name8451_ - _plist8452_ - _ctor8453_ - _field-names8454_) - (if (and _super8449_ - (let ((__tmp8668 - (let () - (declare (not safe)) - (struct-type? _super8449_)))) - (declare (not safe)) - (not __tmp8668))) - (error '"Illegal super type; not a struct-type" _super8449_) - '#!void) - (if (and _super8449_ - (let ((__tmp8669 - (let () - (declare (not safe)) - (type-descriptor-plist _super8449_)))) - (declare (not safe)) - (assgetq 'final: __tmp8669))) - (error '"Cannot extend final struct" _super8449_) - '#!void) - (let* ((_super-fields8456_ - (if _super8449_ - (let () - (declare (not safe)) - (type-descriptor-fields _super8449_)) - '0)) - (_std-fields8458_ (fx+ _fields8450_ _super-fields8456_)) - (_std-field-names8468_ - (let* ((_super-fields8460_ - (if _super8449_ - (let ((__tmp8670 - (let () - (declare (not safe)) - (type-descriptor-plist _super8449_)))) - (declare (not safe)) - (assgetq 'fields: __tmp8670)) - '())) - (_field-names8465_ - (let ((_$e8462_ _field-names8454_)) - (if _$e8462_ _$e8462_ (make-list _fields8450_ ':))))) - (append _super-fields8460_ _field-names8465_))) - (_g8672_ (if (let ((__tmp8671 (length _std-field-names8468_))) + (lambda (_id10415_ + _super10416_ + _n-direct-slots10417_ + _name10418_ + _properties10419_ + _constructor10420_ + _direct-slots10421_) + (let ((__tmp10666 + (let ((_$e10423_ _direct-slots10421_)) + (if _$e10423_ + _$e10423_ + (map (lambda (_g1042510427_) + (let () (declare (not safe)) - (##fx= _std-fields8458_ __tmp8671)) - '#!void - (error '"Bad field specification; length mismatch" - _id8448_ - _std-fields8458_ - _std-field-names8468_))) - (_std-plist8471_ - (let ((__tmp8673 - (let () - (declare (not safe)) - (cons 'fields: _std-field-names8468_)))) - (declare (not safe)) - (cons __tmp8673 _plist8452_))) - (_ctor8476_ - (let ((_$e8473_ _ctor8453_)) - (if _$e8473_ - _$e8473_ - (if _super8449_ - (let () + (make-symbol__1 '"_" _g1042510427_))) + (let ((__tmp10667 + (if _super10416_ + (let ((__tmp10668 + (let () + (declare (not safe)) + (type-descriptor-all-slots + _super10416_)))) + (declare (not safe)) + (##vector-length __tmp10668)) + '1))) (declare (not safe)) - (type-descriptor-ctor _super8449_)) - '#f))))) - (let () - (declare (not safe)) - (make-struct-type-descriptor - _id8448_ - _name8451_ - _super8449_ - _std-fields8458_ - _std-plist8471_ - _ctor8476_))))) + (iota _n-direct-slots10417_ __tmp10667))))))) + (declare (not safe)) + (make-struct-type* + _id10415_ + _name10418_ + _super10416_ + __tmp10666 + _properties10419_ + _constructor10420_)))) (define make-struct-type__0 - (lambda (_id8482_ - _super8483_ - _fields8484_ - _name8485_ - _plist8486_ - _ctor8487_) - (let ((_field-names8489_ '#f)) + (lambda (_id10433_ + _super10434_ + _n-direct-slots10435_ + _name10436_ + _properties10437_ + _constructor10438_) + (let ((_direct-slots10440_ '#f)) (declare (not safe)) (make-struct-type__% - _id8482_ - _super8483_ - _fields8484_ - _name8485_ - _plist8486_ - _ctor8487_ - _field-names8489_)))) + _id10433_ + _super10434_ + _n-direct-slots10435_ + _name10436_ + _properties10437_ + _constructor10438_ + _direct-slots10440_)))) (define make-struct-type - (lambda _g8675_ - (let ((_g8674_ (let () (declare (not safe)) (##length _g8675_)))) - (cond ((let () (declare (not safe)) (##fx= _g8674_ 6)) - (apply (lambda (_id8482_ - _super8483_ - _fields8484_ - _name8485_ - _plist8486_ - _ctor8487_) + (lambda _g10670_ + (let ((_g10669_ (let () (declare (not safe)) (##length _g10670_)))) + (cond ((let () (declare (not safe)) (##fx= _g10669_ 6)) + (apply (lambda (_id10433_ + _super10434_ + _n-direct-slots10435_ + _name10436_ + _properties10437_ + _constructor10438_) (let () (declare (not safe)) (make-struct-type__0 - _id8482_ - _super8483_ - _fields8484_ - _name8485_ - _plist8486_ - _ctor8487_))) - _g8675_)) - ((let () (declare (not safe)) (##fx= _g8674_ 7)) - (apply (lambda (_id8491_ - _super8492_ - _fields8493_ - _name8494_ - _plist8495_ - _ctor8496_ - _field-names8497_) + _id10433_ + _super10434_ + _n-direct-slots10435_ + _name10436_ + _properties10437_ + _constructor10438_))) + _g10670_)) + ((let () (declare (not safe)) (##fx= _g10669_ 7)) + (apply (lambda (_id10442_ + _super10443_ + _n-direct-slots10444_ + _name10445_ + _properties10446_ + _constructor10447_ + _direct-slots10448_) (let () (declare (not safe)) (make-struct-type__% - _id8491_ - _super8492_ - _fields8493_ - _name8494_ - _plist8495_ - _ctor8496_ - _field-names8497_))) - _g8675_)) + _id10442_ + _super10443_ + _n-direct-slots10444_ + _name10445_ + _properties10446_ + _constructor10447_ + _direct-slots10448_))) + _g10670_)) (else (##raise-wrong-number-of-arguments-exception make-struct-type - _g8675_)))))) - (define make-struct-predicate - (lambda (_klass8439_) - (let ((_tid8441_ - (let () (declare (not safe)) (##type-id _klass8439_)))) - (if (let ((__tmp8676 + _g10670_)))))) + (define make-struct-type* + (lambda (_id10395_ + _name10396_ + _super10397_ + _direct-slots10398_ + _properties10399_ + _constructor10400_) + (if (and _super10397_ + (let ((__tmp10671 + (let () + (declare (not safe)) + (struct-type? _super10397_)))) + (declare (not safe)) + (not __tmp10671))) + (error '"Illegal super type; not a struct-type" _super10397_) + '#!void) + (let* ((_type10402_ + (let ((__tmp10674 + (if _super10397_ + (let () + (declare (not safe)) + (cons _super10397_ '())) + '())) + (__tmp10672 + (let ((__tmp10673 + (let () + (declare (not safe)) + (cons 'struct: '#t)))) + (declare (not safe)) + (cons __tmp10673 _properties10399_)))) + (declare (not safe)) + (make-class-type* + _id10395_ + _name10396_ + __tmp10674 + _direct-slots10398_ + __tmp10672 + _constructor10400_))) + (_all-slots10404_ + (let () + (declare (not safe)) + (type-descriptor-all-slots _type10402_))) + (_len10406_ (length _direct-slots10398_)) + (_start10408_ + (let ((__tmp10675 + (let () + (declare (not safe)) + (##vector-length _all-slots10404_)))) + (declare (not safe)) + (##fx- __tmp10675 _len10406_)))) + (if (let ((__tmp10677 + (lambda (_slot10411_ _i10412_) + (let ((__tmp10678 + (let () + (declare (not safe)) + (##vector-ref _all-slots10404_ _i10412_)))) + (declare (not safe)) + (eq? _slot10411_ __tmp10678)))) + (__tmp10676 (let () (declare (not safe)) - (type-descriptor-plist _klass8439_)))) + (iota _len10406_ _start10408_)))) (declare (not safe)) - (assgetq 'final: __tmp8676)) - (lambda (_obj8443_) + (andmap2 __tmp10677 _direct-slots10398_ __tmp10676)) + '#!void + (error '"Non-unique slots in struct" + _name10396_ + _direct-slots10398_)) + _type10402_))) + (define make-struct-predicate + (lambda (_klass10387_) + (let ((_tid10389_ + (let () (declare (not safe)) (##type-id _klass10387_)))) + (if (let () (declare (not safe)) (type-final? _klass10387_)) + (lambda (_obj10391_) (let () (declare (not safe)) - (##structure-direct-instance-of? _obj8443_ _tid8441_))) - (lambda (_obj8445_) + (##structure-direct-instance-of? _obj10391_ _tid10389_))) + (lambda (_obj10393_) (let () (declare (not safe)) - (##structure-instance-of? _obj8445_ _tid8441_))))))) + (##structure-instance-of? _obj10393_ _tid10389_))))))) (define make-struct-field-accessor - (lambda (_klass8432_ _field8433_) - (let ((_off8435_ - (let ((__tmp8677 - (let () - (declare (not safe)) - (struct-field-offset _klass8432_ _field8433_)))) + (lambda (_klass10384_ _field10385_) + (let ((__tmp10679 + (let () (declare (not safe)) - (##fx+ __tmp8677 '1)))) - (lambda (_obj8437_) - (let () - (declare (not safe)) - (##structure-ref _obj8437_ _off8435_ _klass8432_ '#f)))))) + (struct-field-offset* _klass10384_ _field10385_)))) + (declare (not safe)) + (make-struct-field-accessor* _klass10384_ __tmp10679)))) + (define make-struct-field-accessor* + (lambda (_klass10379_ _field10380_) + (lambda (_obj10382_) + (let () + (declare (not safe)) + (##structure-ref _obj10382_ _field10380_ _klass10379_ '#f))))) (define make-struct-field-mutator - (lambda (_klass8424_ _field8425_) - (let ((_off8427_ - (let ((__tmp8678 - (let () - (declare (not safe)) - (struct-field-offset _klass8424_ _field8425_)))) + (lambda (_klass10376_ _field10377_) + (let ((__tmp10680 + (let () (declare (not safe)) - (##fx+ __tmp8678 '1)))) - (lambda (_obj8429_ _val8430_) - (let () - (declare (not safe)) - (##structure-set! - _obj8429_ - _val8430_ - _off8427_ - _klass8424_ - '#f)))))) + (struct-field-offset* _klass10376_ _field10377_)))) + (declare (not safe)) + (make-struct-field-mutator* _klass10376_ __tmp10680)))) + (define make-struct-field-mutator* + (lambda (_klass10370_ _field10371_) + (lambda (_obj10373_ _val10374_) + (let () + (declare (not safe)) + (##structure-set! + _obj10373_ + _val10374_ + _field10371_ + _klass10370_ + '#f))))) (define make-struct-field-unchecked-accessor - (lambda (_klass8417_ _field8418_) - (let ((_off8420_ - (let ((__tmp8679 - (let () - (declare (not safe)) - (struct-field-offset _klass8417_ _field8418_)))) + (lambda (_klass10367_ _field10368_) + (let ((__tmp10681 + (let () (declare (not safe)) - (##fx+ __tmp8679 '1)))) - (lambda (_obj8422_) - (let () - (declare (not safe)) - (##unchecked-structure-ref - _obj8422_ - _off8420_ - _klass8417_ - '#f)))))) + (struct-field-offset* _klass10367_ _field10368_)))) + (declare (not safe)) + (make-struct-field-unchecked-accessor* _klass10367_ __tmp10681)))) + (define make-struct-field-unchecked-accessor* + (lambda (_klass10362_ _field10363_) + (lambda (_obj10365_) + (let () + (declare (not safe)) + (##unchecked-structure-ref + _obj10365_ + _field10363_ + _klass10362_ + '#f))))) (define make-struct-field-unchecked-mutator - (lambda (_klass8409_ _field8410_) - (let ((_off8412_ - (let ((__tmp8680 - (let () - (declare (not safe)) - (struct-field-offset _klass8409_ _field8410_)))) + (lambda (_klass10359_ _field10360_) + (let ((__tmp10682 + (let () (declare (not safe)) - (##fx+ __tmp8680 '1)))) - (lambda (_obj8414_ _val8415_) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _obj8414_ - _val8415_ - _off8412_ - _klass8409_ - '#f)))))) - (define struct-field-offset - (lambda (_klass8403_ _field8404_) - (let ((__tmp8681 - (let ((_$e8406_ + (struct-field-offset* _klass10359_ _field10360_)))) + (declare (not safe)) + (make-struct-field-unchecked-mutator* _klass10359_ __tmp10682)))) + (define make-struct-field-unchecked-mutator* + (lambda (_klass10353_ _field10354_) + (lambda (_obj10356_ _val10357_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _obj10356_ + _val10357_ + _field10354_ + _klass10353_ + '#f))))) + (define struct-field-offset* + (lambda (_klass10348_ _field10349_) + (let ((__tmp10683 + (let ((_super10351_ (let () (declare (not safe)) - (##type-super _klass8403_)))) - (if _$e8406_ - (let () + (##type-super _klass10348_)))) + (if _super10351_ + (let ((__tmp10684 + (let () + (declare (not safe)) + (type-descriptor-all-slots _super10351_)))) (declare (not safe)) - (type-descriptor-fields _$e8406_)) - '0)))) + (##vector-length __tmp10684)) + '1)))) (declare (not safe)) - (##fx+ _field8404_ __tmp8681)))) + (##fx+ _field10349_ __tmp10683)))) (define struct-field-ref - (lambda (_klass8399_ _obj8400_ _off8401_) - (let ((__tmp8682 (let () (declare (not safe)) (##fx+ _off8401_ '1)))) + (lambda (_klass10344_ _obj10345_ _field10346_) + (let () (declare (not safe)) - (##structure-ref _obj8400_ __tmp8682 _klass8399_ '#f)))) + (##structure-ref _obj10345_ _field10346_ _klass10344_ '#f)))) (define struct-field-set! - (lambda (_klass8394_ _obj8395_ _off8396_ _val8397_) - (let ((__tmp8683 (let () (declare (not safe)) (##fx+ _off8396_ '1)))) + (lambda (_klass10339_ _obj10340_ _field10341_ _val10342_) + (let () (declare (not safe)) - (##structure-set! _obj8395_ _val8397_ __tmp8683 _klass8394_ '#f)))) - (define struct-subtype? - (lambda (_klass8385_ _xklass8386_) - (let ((_klass-t8388_ - (let () (declare (not safe)) (##type-id _klass8385_)))) - (let _lp8390_ ((_next8392_ _xklass8386_)) - (if (let () (declare (not safe)) (not _next8392_)) + (##structure-set! + _obj10340_ + _val10342_ + _field10341_ + _klass10339_ + '#f)))) + (define substruct? + (lambda (_maybe-sub-struct10330_ _maybe-super-struct10331_) + (let ((_maybe-super-struct-id10333_ + (let () + (declare (not safe)) + (##type-id _maybe-super-struct10331_)))) + (let _lp10335_ ((_super-struct10337_ _maybe-sub-struct10330_)) + (if (let () (declare (not safe)) (not _super-struct10337_)) '#f - (if (let ((__tmp8685 + (if (let ((__tmp10686 (let () (declare (not safe)) - (##type-id _next8392_)))) + (type-id _super-struct10337_)))) (declare (not safe)) - (eq? _klass-t8388_ __tmp8685)) + (eq? _maybe-super-struct-id10333_ __tmp10686)) '#t - (let ((__tmp8684 - (let () - (declare (not safe)) - (##type-super _next8392_)))) - (declare (not safe)) - (_lp8390_ __tmp8684)))))))) - (define make-class-type - (lambda (_id8092_ - _super8093_ - _slots8094_ - _name8095_ - _plist8096_ - _ctor8097_) - (letrec ((_class-slots8099_ - (lambda (_klass8383_) - (let ((__tmp8686 + (let ((__tmp10685 (let () (declare (not safe)) - (type-descriptor-plist _klass8383_)))) + (##type-super _super-struct10337_)))) (declare (not safe)) - (assgetq 'slots: __tmp8686)))) - (_make-slots8100_ - (lambda (_off8334_) - (let ((_slot-table8336_ + (_lp10335_ __tmp10685)))))))) + (define struct-subtype? + (lambda (_maybe-super-struct10327_ _maybe-sub-struct10328_) + (let () + (declare (not safe)) + (substruct? _maybe-sub-struct10328_ _maybe-super-struct10327_)))) + (define base-struct/1 + (lambda (_klass10325_) + (if (let () (declare (not safe)) (struct-type? _klass10325_)) + _klass10325_ + (if (let () (declare (not safe)) (class-type? _klass10325_)) + (let () (declare (not safe)) (##type-super _klass10325_)) + (if (let () (declare (not safe)) (not _klass10325_)) + '#f + (error '"Not a class or false" _klass10325_)))))) + (define base-struct/2 + (lambda (_klass110313_ _klass210314_) + (let ((_s110316_ + (let () (declare (not safe)) (base-struct/1 _klass110313_))) + (_s210317_ + (let () (declare (not safe)) (base-struct/1 _klass210314_)))) + (if (or (let () (declare (not safe)) (not _s110316_)) + (and _s210317_ + (let () + (declare (not safe)) + (substruct? _s110316_ _s210317_)))) + _s210317_ + (if (or (let () (declare (not safe)) (not _s210317_)) + (and _s110316_ (let () (declare (not safe)) - (make-table 'test: eq?)))) - (let _lp8338_ ((_rest8340_ _super8093_) - (_off8341_ _off8334_) - (_slot-list8342_ '())) - (let* ((_rest83438351_ _rest8340_) - (_else83458362_ - (lambda () - (let ((__tmp8687 - (lambda (_off8359_ _slot-list8360_) - (values _off8359_ - _slot-table8336_ - (reverse _slot-list8360_))))) - (declare (not safe)) - (_merge-slots8101_ - _slot-table8336_ - _slots8094_ - _off8341_ - _slot-list8342_ - __tmp8687)))) - (_K83478371_ - (lambda (_rest8365_ _hd8366_) - (let ((__tmp8689 - (let () - (declare (not safe)) - (_class-slots8099_ _hd8366_))) - (__tmp8688 - (lambda (_off8368_ _slot-list8369_) - (let () - (declare (not safe)) - (_lp8338_ - _rest8365_ - _off8368_ - _slot-list8369_))))) - (declare (not safe)) - (_merge-slots8101_ - _slot-table8336_ - __tmp8689 - _off8341_ - _slot-list8342_ - __tmp8688))))) - (if (let () - (declare (not safe)) - (##pair? _rest83438351_)) - (let ((_hd83488374_ - (let () - (declare (not safe)) - (##car _rest83438351_))) - (_tl83498376_ - (let () - (declare (not safe)) - (##cdr _rest83438351_)))) - (let* ((_hd8379_ _hd83488374_) - (_rest8381_ _tl83498376_)) - (declare (not safe)) - (_K83478371_ _rest8381_ _hd8379_))) - (let () - (declare (not safe)) - (_else83458362_)))))))) - (_merge-slots8101_ - (lambda (_ht8289_ _lst8290_ _off8291_ _r8292_ _K8293_) - (let _lp8295_ ((_rest8297_ _lst8290_) - (_off8298_ _off8291_) - (_r8299_ _r8292_)) - (let* ((_rest83008308_ _rest8297_) - (_else83028316_ - (lambda () (_K8293_ _off8298_ _r8299_))) - (_K83048322_ - (lambda (_rest8319_ _slot8320_) - (if (let () - (declare (not safe)) - (table-ref _ht8289_ _slot8320_ '#f)) - (let () - (declare (not safe)) - (_lp8295_ _rest8319_ _off8298_ _r8299_)) - (begin - (let () - (declare (not safe)) - (table-set! - _ht8289_ - _slot8320_ - _off8298_)) - (let ((__tmp8690 - (symbol->keyword _slot8320_))) - (declare (not safe)) - (table-set! - _ht8289_ - __tmp8690 - _off8298_)) - (let ((__tmp8692 + (substruct? _s210317_ _s110316_)))) + _s110316_ + (error '"Bad mixin: incompatible struct bases" + _klass110313_ + _klass210314_ + _s110316_ + _s210317_)))))) + (define base-struct/list + (lambda (_all-supers10197_) + (let* ((_all-supers1019810223_ _all-supers10197_) + (_E1020310227_ + (lambda () + (error '"No clause matching" _all-supers1019810223_)))) + (let ((_K1022110310_ (lambda () '#f)) + (_K1021810296_ + (lambda (_x10294_) + (let () (declare (not safe)) (base-struct/1 _x10294_)))) + (_K1021310273_ + (lambda (_y10270_ _x10271_) + (let () + (declare (not safe)) + (base-struct/2 _x10271_ _y10270_)))) + (_K1020410234_ + (lambda (_y10231_ _x10232_) + (let () + (declare (not safe)) + (foldr1 base-struct/2 _x10232_ _y10231_))))) + (let* ((___match1063710638_ + (lambda (_hd1020510237_ _tl1020610239_) + (let ((_x10242_ _hd1020510237_)) + (letrec ((_splice-rest1020810244_ + (lambda (_rest1021210251_ _y10253_) + (if (let () + (declare (not safe)) + (##null? _rest1021210251_)) + (let () + (declare (not safe)) + (_K1020410234_ _y10253_ _x10242_)) + (let () + (declare (not safe)) + (_E1020310227_))))) + (_splice-try1021010246_ + (lambda (_hd1021110255_ + _rest1021210257_ + _y1020710258_) + (let ((_y10261_ _hd1021110255_)) + (let ((__tmp10688 (let () (declare (not safe)) - (##fx+ _off8298_ '1))) - (__tmp8691 + (##cdr _rest1021210257_))) + (__tmp10687 (let () (declare (not safe)) - (cons _slot8320_ _r8299_)))) + (cons _y10261_ _y1020710258_)))) (declare (not safe)) - (_lp8295_ - _rest8319_ - __tmp8692 - __tmp8691))))))) - (if (let () - (declare (not safe)) - (##pair? _rest83008308_)) - (let ((_hd83058325_ - (let () - (declare (not safe)) - (##car _rest83008308_))) - (_tl83068327_ - (let () - (declare (not safe)) - (##cdr _rest83008308_)))) - (let* ((_slot8330_ _hd83058325_) - (_rest8332_ _tl83068327_)) - (declare (not safe)) - (_K83048322_ _rest8332_ _slot8330_))) - (let () (declare (not safe)) (_else83028316_))))))) - (_find-super-ctor8102_ - (lambda (_super8241_) - (let _lp8243_ ((_rest8245_ _super8241_) (_ctor8246_ '#f)) - (let* ((_rest82478255_ _rest8245_) - (_else82498263_ (lambda () _ctor8246_)) - (_K82518277_ - (lambda (_rest8266_ _hd8267_) - (let ((_$e8269_ - (let () - (declare (not safe)) - (type-descriptor-ctor _hd8267_)))) - (if _$e8269_ - ((lambda (_xctor8272_) - (if (or (let () - (declare (not safe)) - (not _ctor8246_)) - (let () - (declare (not safe)) - (eq? _ctor8246_ - _xctor8272_))) - (let () - (declare (not safe)) - (_lp8243_ - _rest8266_ - _xctor8272_)) - (error '"Conflicting implicit constructors" - _ctor8246_ - _xctor8272_))) - _$e8269_) - (let () - (declare (not safe)) - (_lp8243_ _rest8266_ _ctor8246_))))))) - (if (let () - (declare (not safe)) - (##pair? _rest82478255_)) - (let ((_hd82528280_ - (let () - (declare (not safe)) - (##car _rest82478255_))) - (_tl82538282_ - (let () - (declare (not safe)) - (##cdr _rest82478255_)))) - (let* ((_hd8285_ _hd82528280_) - (_rest8287_ _tl82538282_)) - (declare (not safe)) - (_K82518277_ _rest8287_ _hd8285_))) - (let () (declare (not safe)) (_else82498263_))))))) - (_find-super-struct8103_ - (lambda (_super8188_) - (letrec ((_base-struct8190_ - (lambda (_super-struct8230_ _klass8231_) - (if _super-struct8230_ + (_splice-loop1020910248_ + __tmp10688 + __tmp10687))))) + (_splice-loop1020910248_ + (lambda (_rest1021210263_ _y1020710264_) (if (let () (declare (not safe)) - (struct-subtype? - _super-struct8230_ - _klass8231_)) - (let _lp8233_ ((_klass8235_ - _klass8231_)) - (if (let () - (declare (not safe)) - (struct-type? _klass8235_)) - _klass8235_ - (let ((__tmp8693 - (let () - (declare (not safe)) - (##type-super - _klass8235_)))) - (declare (not safe)) - (_lp8233_ __tmp8693)))) - (if (let () - (declare (not safe)) - (struct-subtype? - _klass8231_ - _super-struct8230_)) - _super-struct8230_ - (error '"Bad mixin: incompatible struct bases" - _klass8231_ - _super-struct8230_))) - (if (let () + (pair? _rest1021210263_)) + (let ((__tmp10690 + (let () + (declare (not safe)) + (##car _rest1021210263_)))) (declare (not safe)) - (struct-type? _klass8231_)) - _klass8231_ - (if (let () - (declare (not safe)) - (class-type? _klass8231_)) - (let _lp8237_ ((_next8239_ - (let () - (declare - (not safe)) - (##type-super - _klass8231_)))) - (if (let () - (declare (not safe)) - (not _next8239_)) - '#f - (if (let () - (declare (not safe)) - (struct-type? - _next8239_)) - _next8239_ - (if (let () - (declare - (not safe)) - (class-type? - _next8239_)) - (let () - (declare - (not safe)) - (_lp8237_ - _next8239_)) - '#f)))) - '#f)))))) - (let _lp8192_ ((_rest8194_ _super8188_) - (_super-struct8195_ '#f)) - (let* ((_rest81968204_ _rest8194_) - (_else81988212_ (lambda () _super-struct8195_)) - (_K82008218_ - (lambda (_rest8215_ _hd8216_) - (let ((__tmp8694 - (let () - (declare (not safe)) - (_base-struct8190_ - _super-struct8195_ - _hd8216_)))) - (declare (not safe)) - (_lp8192_ _rest8215_ __tmp8694))))) - (if (let () - (declare (not safe)) - (##pair? _rest81968204_)) - (let ((_hd82018221_ - (let () - (declare (not safe)) - (##car _rest81968204_))) - (_tl82028223_ - (let () - (declare (not safe)) - (##cdr _rest81968204_)))) - (let* ((_hd8226_ _hd82018221_) - (_rest8228_ _tl82028223_)) + (_splice-try1021010246_ + __tmp10690 + _rest1021210263_ + _y1020710264_)) + (let ((__tmp10689 + (reverse _y1020710264_))) + (declare (not safe)) + (_splice-rest1020810244_ + _rest1021210263_ + __tmp10689)))))) + (let () + (declare (not safe)) + (_splice-loop1020910248_ _tl1020610239_ '())))))) + (_try-match1020010306_ + (lambda () + (if (let () + (declare (not safe)) + (##pair? _all-supers1019810223_)) + (let ((_tl1022010301_ + (let () + (declare (not safe)) + (##cdr _all-supers1019810223_))) + (_hd1021910299_ + (let () + (declare (not safe)) + (##car _all-supers1019810223_)))) + (if (let () (declare (not safe)) - (_K82008218_ _rest8228_ _hd8226_))) - (let () - (declare (not safe)) - (_else81988212_)))))))) - (_expand-struct-mixin8104_ - (lambda (_super8143_) - (let _lp8145_ ((_rest8147_ _super8143_) (_mixin8148_ '())) - (let* ((_rest81498157_ _rest8147_) - (_else81518165_ (lambda () (reverse _mixin8148_))) - (_K81538176_ - (lambda (_rest8168_ _hd8169_) + (##null? _tl1022010301_)) + (let ((_x10304_ _hd1021910299_)) + (declare (not safe)) + (base-struct/1 _x10304_)) (if (let () (declare (not safe)) - (struct-type? _hd8169_)) - (let _lp28171_ ((_next8173_ _hd8169_) - (_mixin8174_ _mixin8148_)) - (if (let () - (declare (not safe)) - (not _next8173_)) - (let () - (declare (not safe)) - (_lp8145_ _rest8168_ _mixin8174_)) - (if (let () - (declare (not safe)) - (struct-type? _next8173_)) - (let ((__tmp8697 - (let () - (declare (not safe)) - (##type-super - _next8173_))) - (__tmp8696 - (let () - (declare (not safe)) - (cons _next8173_ - _mixin8174_)))) - (declare (not safe)) - (_lp28171_ - __tmp8697 - __tmp8696)) - (let () - (declare (not safe)) - (_lp8145_ - _rest8168_ - _mixin8174_))))) - (let ((__tmp8695 + (##pair? _tl1022010301_)) + (let ((_tl1021710285_ (let () (declare (not safe)) - (cons _hd8169_ _mixin8148_)))) - (declare (not safe)) - (_lp8145_ _rest8168_ __tmp8695)))))) - (if (let () - (declare (not safe)) - (##pair? _rest81498157_)) - (let ((_hd81548179_ - (let () - (declare (not safe)) - (##car _rest81498157_))) - (_tl81558181_ - (let () - (declare (not safe)) - (##cdr _rest81498157_)))) - (let* ((_hd8184_ _hd81548179_) - (_rest8186_ _tl81558181_)) - (declare (not safe)) - (_K81538176_ _rest8186_ _hd8184_))) - (let () - (declare (not safe)) - (_else81518165_)))))))) - (let ((_$e8108_ - (let ((__tmp8698 - (lambda (_klass8106_) - (let ((__tmp8699 - (let () - (declare (not safe)) - (type-descriptor? _klass8106_)))) - (declare (not safe)) - (not __tmp8699))))) - (declare (not safe)) - (find __tmp8698 _super8093_)))) - (if _$e8108_ - ((lambda (_klass8111_) - (error '"Illegal super class; not a type descriptor" - _klass8111_)) - _$e8108_) - (let ((_$e8115_ - (let ((__tmp8700 - (lambda (_klass8113_) - (let ((__tmp8701 - (let () - (declare (not safe)) - (type-descriptor-plist _klass8113_)))) - (declare (not safe)) - (assgetq 'final: __tmp8701))))) - (declare (not safe)) - (find __tmp8700 _super8093_)))) - (if _$e8115_ - ((lambda (_klass8118_) - (error '"Cannot extend final class" _klass8118_)) - _$e8115_) - '#!void)))) - (let* ((_std-super8120_ - (let () + (##cdr _tl1022010301_))) + (_hd1021610283_ + (let () + (declare (not safe)) + (##car _tl1022010301_)))) + (if (let () + (declare (not safe)) + (##null? _tl1021710285_)) + (let ((_x10281_ _hd1021910299_) + (_y10288_ _hd1021610283_)) + (let () + (declare (not safe)) + (_K1021310273_ + _y10288_ + _x10281_))) + (___match1063710638_ + _hd1021910299_ + _tl1022010301_))) + (___match1063710638_ + _hd1021910299_ + _tl1022010301_)))) + (let () (declare (not safe)) (_E1020310227_)))))) + (if (let () (declare (not safe)) - (_find-super-struct8103_ _super8093_))) - (_mixin8122_ - (if _std-super8120_ - (let () - (declare (not safe)) - (_expand-struct-mixin8104_ _super8093_)) - _super8093_))) - (let ((_g8702_ (let ((__tmp8704 - (if _std-super8120_ - (let () - (declare (not safe)) - (type-descriptor-fields - _std-super8120_)) - '0))) + (##null? _all-supers1019810223_)) + (let () (declare (not safe)) (_K1022110310_)) + (let () (declare (not safe)) (_try-match1020010306_)))))))) + (define base-struct + (lambda _all-supers10195_ + (let () (declare (not safe)) (base-struct/list _all-supers10195_)))) + (define find-super-ctor + (lambda (_super10193_) + (let () (declare (not safe)) (find-super-constructor _super10193_)))) + (define find-super-constructor + (lambda (_super10145_) + (let _lp10147_ ((_rest10149_ _super10145_) (_constructor10150_ '#f)) + (let* ((_rest1015110159_ _rest10149_) + (_else1015310167_ (lambda () _constructor10150_)) + (_K1015510181_ + (lambda (_rest10170_ _hd10171_) + (let ((_$e10173_ + (let () (declare (not safe)) - (_make-slots8100_ __tmp8704)))) - (begin - (let ((_g8703_ (let () - (declare (not safe)) - (if (##values? _g8702_) - (##vector-length _g8702_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g8703_ 3))) - (error "Context expects 3 values" _g8703_))) - (let ((_std-fields8125_ - (let () (declare (not safe)) (##vector-ref _g8702_ 0))) - (_std-slots8126_ - (let () (declare (not safe)) (##vector-ref _g8702_ 1))) - (_std-slot-list8127_ - (let () (declare (not safe)) (##vector-ref _g8702_ 2)))) - (let* ((_std-mixin8129_ - (let () - (declare (not safe)) - (class-linearize-mixins _mixin8122_))) - (_std-plist8133_ - (if _std-super8120_ - (let* ((_fields8131_ - (let ((__tmp8705 - (let () - (declare (not safe)) - (type-descriptor-plist - _std-super8120_)))) - (declare (not safe)) - (assgetq 'fields: __tmp8705))) - (__tmp8706 - (let () - (declare (not safe)) - (cons 'fields: _fields8131_)))) - (declare (not safe)) - (cons __tmp8706 _plist8096_)) - _plist8096_)) - (_std-plist8135_ - (let ((__tmp8707 + (type-descriptor-constructor _hd10171_)))) + (if _$e10173_ + ((lambda (_xconstructor10176_) + (if (or (let () + (declare (not safe)) + (not _constructor10150_)) + (let () + (declare (not safe)) + (eq? _constructor10150_ + _xconstructor10176_))) (let () (declare (not safe)) - (cons 'slots: _std-slot-list8127_)))) + (_lp10147_ _rest10170_ _xconstructor10176_)) + (error '"Conflicting implicit constructors" + _constructor10150_ + _xconstructor10176_))) + _$e10173_) + (let () (declare (not safe)) - (cons __tmp8707 _std-plist8133_))) - (_std-ctor8140_ - (let ((_$e8137_ _ctor8097_)) - (if _$e8137_ - _$e8137_ - (let () - (declare (not safe)) - (_find-super-ctor8102_ _super8093_)))))) + (_lp10147_ _rest10170_ _constructor10150_))))))) + (if (let () (declare (not safe)) (##pair? _rest1015110159_)) + (let ((_hd1015610184_ + (let () (declare (not safe)) (##car _rest1015110159_))) + (_tl1015710186_ + (let () (declare (not safe)) (##cdr _rest1015110159_)))) + (let* ((_hd10189_ _hd1015610184_) + (_rest10191_ _tl1015710186_)) + (declare (not safe)) + (_K1015510181_ _rest10191_ _hd10189_))) + (let () (declare (not safe)) (_else1015310167_))))))) + (define compute-class-slots + (lambda (_super-struct10116_ + _class-precedence-list10117_ + _direct-slots10118_) + (let* ((_previous-slots10120_ + (if _super-struct10116_ (let () (declare (not safe)) - (make-class-type-descriptor - _id8092_ - _name8095_ - _std-super8120_ - _std-mixin8129_ - _std-fields8125_ - _std-plist8135_ - _std-ctor8140_ - _std-slots8126_)))))))))) - (define class-linearize-mixins - (lambda (_klass-lst8043_) - (letrec ((_class->list8045_ - (lambda (_klass8087_) - (let ((__tmp8708 - (let ((_$e8089_ - (let () - (declare (not safe)) - (type-descriptor-mixin _klass8087_)))) - (if _$e8089_ _$e8089_ '())))) - (declare (not safe)) - (cons _klass8087_ __tmp8708))))) - (let* ((_klass-lst80468056_ _klass-lst8043_) - (_else80498064_ - (lambda () - (let ((__tmp8709 (map _class->list8045_ _klass-lst8043_))) - (declare (not safe)) - (__linearize-mixins __tmp8709))))) - (let ((_K80548084_ (lambda () '())) - (_K80518070_ - (lambda (_klass8068_) - (let () - (declare (not safe)) - (_class->list8045_ _klass8068_))))) - (let ((_try-match80488080_ - (lambda () - (if (let () + (type-descriptor-all-slots _super-struct10116_)) + '#(#f))) + (_next-slot10122_ + (let () + (declare (not safe)) + (##vector-length _previous-slots10120_))) + (_slot-table10124_ + (if _super-struct10116_ + (let ((__tmp10691 + (let () (declare (not safe)) - (##pair? _klass-lst80468056_)) - (let ((_tl80538075_ - (let () - (declare (not safe)) - (##cdr _klass-lst80468056_))) - (_hd80528073_ - (let () - (declare (not safe)) - (##car _klass-lst80468056_)))) - (if (let () - (declare (not safe)) - (##null? _tl80538075_)) - (let ((_klass8078_ _hd80528073_)) - (declare (not safe)) - (_class->list8045_ _klass8078_)) - (let () - (declare (not safe)) - (_else80498064_)))) - (let () (declare (not safe)) (_else80498064_)))))) - (if (let () (declare (not safe)) (##null? _klass-lst80468056_)) - (let () (declare (not safe)) (_K80548084_)) - (let () (declare (not safe)) (_try-match80488080_))))))))) - (define __linearize-mixins - (lambda (_lst7884_) - (letrec ((_K7886_ (lambda (_rest8007_ _r8008_) - (let* ((_rest80098017_ _rest8007_) - (_else80118025_ - (lambda () (reverse _r8008_))) - (_K80138031_ - (lambda (_rest8028_ _hd8029_) - (let () - (declare (not safe)) - (_linearize17887_ - _hd8029_ - _rest8028_ - _r8008_))))) - (if (let () - (declare (not safe)) - (##pair? _rest80098017_)) - (let ((_hd80148034_ - (let () - (declare (not safe)) - (##car _rest80098017_))) - (_tl80158036_ - (let () - (declare (not safe)) - (##cdr _rest80098017_)))) - (let* ((_hd8039_ _hd80148034_) - (_rest8041_ _tl80158036_)) - (declare (not safe)) - (_K80138031_ _rest8041_ _hd8039_))) - (let () - (declare (not safe)) - (_else80118025_)))))) - (_linearize17887_ - (lambda (_hd7970_ _rest7971_ _r7972_) - (let* ((_hd79737981_ _hd7970_) - (_else79757989_ - (lambda () + (type-descriptor-slot-table + _super-struct10116_)))) + (declare (not safe)) + (hash-copy __tmp10691)) + (let () (declare (not safe)) (make-table 'test: eq?)))) + (_r-slots10126_ '()) + (_process-slot10130_ + (lambda (_slot10128_) + (if (let () (declare (not safe)) (symbol? _slot10128_)) + '#!void + (error '"invalid slot name" _slot10128_)) + (if (let () + (declare (not safe)) + (hash-key? _slot-table10124_ _slot10128_)) + '#!void + (begin + (let () + (declare (not safe)) + (table-set! + _slot-table10124_ + _slot10128_ + _next-slot10122_)) + (let ((__tmp10692 (symbol->keyword _slot10128_))) + (declare (not safe)) + (table-set! + _slot-table10124_ + __tmp10692 + _next-slot10122_)) + (set! _r-slots10126_ (let () (declare (not safe)) - (_K7886_ _rest7971_ _r7972_)))) - (_K79777995_ - (lambda (_hd-rest7992_ _hd-first7993_) - (if (let () - (declare (not safe)) - (_findq7890_ _hd-first7993_ _rest7971_)) - (let ((__tmp8712 (list _hd7970_))) - (declare (not safe)) - (_linearize27888_ - _rest7971_ - __tmp8712 - _r7972_)) - (let ((__tmp8711 - (let () - (declare (not safe)) - (cons _hd-rest7992_ _rest7971_))) - (__tmp8710 - (let () - (declare (not safe)) - (_putq7889_ - _hd-first7993_ - _r7972_)))) - (declare (not safe)) - (_K7886_ __tmp8711 __tmp8710)))))) - (if (let () (declare (not safe)) (##pair? _hd79737981_)) - (let ((_hd79787998_ - (let () - (declare (not safe)) - (##car _hd79737981_))) - (_tl79798000_ - (let () - (declare (not safe)) - (##cdr _hd79737981_)))) - (let* ((_hd-first8003_ _hd79787998_) - (_hd-rest8005_ _tl79798000_)) - (declare (not safe)) - (_K79777995_ _hd-rest8005_ _hd-first8003_))) - (let () (declare (not safe)) (_else79757989_)))))) - (_linearize27888_ - (lambda (_rest7900_ _pre7901_ _r7902_) - (let _lp7904_ ((_rest7906_ _rest7900_) - (_pre7907_ _pre7901_)) - (let* ((_rest79087915_ _rest7906_) - (_E79107919_ - (lambda () - (error '"No clause matching" _rest79087915_))) - (_K79117958_ - (lambda (_rest7922_ _hd7923_) - (let* ((_hd79247932_ _hd7923_) - (_else79267940_ - (lambda () - (let () - (declare (not safe)) - (_lp7904_ _rest7922_ _pre7907_)))) - (_K79287946_ - (lambda (_hd-rest7943_ _hd-first7944_) - (if (let () - (declare (not safe)) - (_findq7890_ - _hd-first7944_ - _rest7922_)) - (let ((__tmp8716 - (let () - (declare (not safe)) - (cons _hd7923_ - _pre7907_)))) - (declare (not safe)) - (_lp7904_ - _rest7922_ - __tmp8716)) - (let ((__tmp8714 - (let ((__tmp8715 - (let () - (declare - (not safe)) - (cons _hd-rest7943_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest7922_)))) - (declare (not safe)) - (foldl1 cons __tmp8715 _pre7907_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp8713 - (let () - (declare (not safe)) - (_putq7889_ - _hd-first7944_ - _r7902_)))) - (declare (not safe)) - (_K7886_ __tmp8714 - __tmp8713)))))) - (if (let () - (declare (not safe)) - (##pair? _hd79247932_)) - (let ((_hd79297949_ - (let () - (declare (not safe)) - (##car _hd79247932_))) - (_tl79307951_ - (let () - (declare (not safe)) - (##cdr _hd79247932_)))) - (let* ((_hd-first7954_ _hd79297949_) - (_hd-rest7956_ _tl79307951_)) - (declare (not safe)) - (_K79287946_ - _hd-rest7956_ - _hd-first7954_))) - (let () - (declare (not safe)) - (_else79267940_))))))) - (if (let () - (declare (not safe)) - (##pair? _rest79087915_)) - (let ((_hd79127961_ - (let () - (declare (not safe)) - (##car _rest79087915_))) - (_tl79137963_ - (let () - (declare (not safe)) - (##cdr _rest79087915_)))) - (let* ((_hd7966_ _hd79127961_) - (_rest7968_ _tl79137963_)) + (cons _slot10128_ _r-slots10126_))) + (set! _next-slot10122_ + (let () (declare (not safe)) - (_K79117958_ _rest7968_ _hd7966_))) - (let () (declare (not safe)) (_E79107919_))))))) - (_putq7889_ - (lambda (_hd7897_ _lst7898_) - (if (memq _hd7897_ _lst7898_) - _lst7898_ - (let () + (##fx+ _next-slot10122_ '1))))))) + (_process-slots10136_ + (lambda (_g1013110133_) + (for-each _process-slot10130_ _g1013110133_)))) + (for-each + (lambda (_mixin10139_) + (if (let () (declare (not safe)) (type-struct? _mixin10139_)) + '#!void + (let ((__tmp10693 + (let ((__tmp10694 + (let () + (declare (not safe)) + (type-descriptor-properties _mixin10139_)))) (declare (not safe)) - (cons _hd7897_ _lst7898_))))) - (_findq7890_ - (lambda (_hd7892_ _rest7893_) - (let ((__tmp8717 - (lambda (_lst7895_) (memq _hd7892_ _lst7895_)))) - (declare (not safe)) - (find __tmp8717 _rest7893_))))) - (let () (declare (not safe)) (_K7886_ _lst7884_ '()))))) - (define make-class-predicate - (lambda (_klass7878_) - (if (let ((__tmp8719 + (assgetq 'direct-slots: __tmp10694 '())))) + (declare (not safe)) + (_process-slots10136_ __tmp10693)))) + (reverse _class-precedence-list10117_)) + (let () + (declare (not safe)) + (_process-slots10136_ _direct-slots10118_)) + (let ((_all-slots10141_ (make-vector _next-slot10122_ '#f))) + (vector-copy! _all-slots10141_ '0 _previous-slots10120_) + (for-each + (lambda (_slot10143_) + (set! _next-slot10122_ + (let () (declare (not safe)) (##fx- _next-slot10122_ '1))) + (vector-set! _all-slots10141_ _next-slot10122_ _slot10143_)) + _r-slots10126_) + (values _all-slots10141_ _slot-table10124_))))) + (define make-class-type + (lambda (_id10109_ + _direct-supers10110_ + _direct-slots10111_ + _name10112_ + _properties10113_ + _constructor10114_) + (let () + (declare (not safe)) + (make-class-type* + _id10109_ + _name10112_ + _direct-supers10110_ + _direct-slots10111_ + _properties10113_ + _constructor10114_)))) + (define make-class-type* + (lambda (_id10071_ + _name10072_ + _direct-supers10073_ + _direct-slots10074_ + _properties10075_ + _constructor10076_) + (let ((_$e10080_ + (let ((__tmp10695 + (lambda (_klass10078_) + (let ((__tmp10696 + (let () + (declare (not safe)) + (type-descriptor? _klass10078_)))) + (declare (not safe)) + (not __tmp10696))))) + (declare (not safe)) + (find __tmp10695 _direct-supers10073_)))) + (if _$e10080_ + ((lambda (_g1008210084_) + (error '"Illegal super class; not a type descriptor" + _g1008210084_)) + _$e10080_) + (let ((_$e10087_ + (let () + (declare (not safe)) + (find type-final? _direct-supers10073_)))) + (if _$e10087_ + ((lambda (_g1008910091_) + (error '"Cannot extend final class" _g1008910091_)) + _$e10087_) + '#!void)))) + (let* ((_struct-super10094_ + (let () + (declare (not safe)) + (base-struct/list _direct-supers10073_))) + (_precedence-list10096_ + (let () + (declare (not safe)) + (class-linearize-mixins _direct-supers10073_))) + (_g10697_ + (let () + (declare (not safe)) + (compute-class-slots + _struct-super10094_ + _precedence-list10096_ + _direct-slots10074_)))) + (begin + (let ((_g10698_ (let () (declare (not safe)) - (type-descriptor-plist _klass7878_)))) - (declare (not safe)) - (assgetq 'final: __tmp8719)) - (lambda (_obj7880_) - (let ((__tmp8718 - (let () (declare (not safe)) (##type-id _klass7878_)))) + (if (##values? _g10697_) (##vector-length _g10697_) 1)))) + (if (not (let () (declare (not safe)) (##fx= _g10698_ 2))) + (error "Context expects 2 values" _g10698_))) + (let ((_all-slots10098_ + (let () (declare (not safe)) (##vector-ref _g10697_ 0))) + (_slot-table10099_ + (let () (declare (not safe)) (##vector-ref _g10697_ 1)))) + (let* ((_properties10101_ + (let ((__tmp10701 + (let () + (declare (not safe)) + (cons 'direct-slots: _direct-slots10074_))) + (__tmp10699 + (let ((__tmp10700 + (let () + (declare (not safe)) + (cons 'direct-supers: + _direct-supers10073_)))) + (declare (not safe)) + (cons __tmp10700 _properties10075_)))) + (declare (not safe)) + (cons __tmp10701 __tmp10699))) + (_constructor*10106_ + (let ((_$e10103_ _constructor10076_)) + (if _$e10103_ + _$e10103_ + (let () + (declare (not safe)) + (find-super-constructor + _direct-supers10073_)))))) + (let () + (declare (not safe)) + (make-type-descriptor* + _id10071_ + _name10072_ + _struct-super10094_ + _precedence-list10096_ + _all-slots10098_ + _properties10101_ + _constructor*10106_ + _slot-table10099_ + '#f)))))))) + (define class-precedence-list + (lambda (_klass10069_) + (let ((__tmp10702 + (let () + (declare (not safe)) + (type-descriptor-precedence-list _klass10069_)))) + (declare (not safe)) + (cons _klass10069_ __tmp10702)))) + (define struct-precedence-list + (lambda (_strukt10064_) + (let ((__tmp10703 + (let ((_$e10066_ + (let () + (declare (not safe)) + (##type-super _strukt10064_)))) + (if _$e10066_ + (let () + (declare (not safe)) + (struct-precedence-list _$e10066_)) + '())))) + (declare (not safe)) + (cons _strukt10064_ __tmp10703)))) + (define class-linearize-mixins + (lambda (_klass-lst10062_) + (let () + (declare (not safe)) + (c3-linearize__% + '() + _klass-lst10062_ + class-precedence-list + eq? + ##type-name)))) + (define make-class-predicate + (lambda (_klass10052_) + (if (let () (declare (not safe)) (type-final? _klass10052_)) + (lambda (_g1005310055_) + (let ((__tmp10704 + (let () (declare (not safe)) (##type-id _klass10052_)))) + (declare (not safe)) + (##structure-direct-instance-of? _g1005310055_ __tmp10704))) + (lambda (_g1005710059_) + (let () + (declare (not safe)) + (class-instance? _klass10052_ _g1005710059_)))))) + (define if-class-slot-field + (lambda (_klass10039_ + _slot10040_ + _if-struct10041_ + _if-struct-field10042_ + _if-class-slot10043_) + (let ((_field10045_ + (let ((__tmp10705 + (let () + (declare (not safe)) + (type-descriptor-slot-table _klass10039_)))) + (declare (not safe)) + (table-ref __tmp10705 _slot10040_ '#f)))) + (if (or (let () (declare (not safe)) (type-final? _klass10039_)) + (let () (declare (not safe)) (type-struct? _klass10039_))) + (_if-struct10041_ _klass10039_ _field10045_) + (if (let ((_strukt10050_ + (let () + (declare (not safe)) + (base-struct/1 _klass10039_)))) + (and _strukt10050_ + (let ((__tmp10706 + (let ((__tmp10707 + (let () + (declare (not safe)) + (type-descriptor-all-slots + _strukt10050_)))) + (declare (not safe)) + (##vector-length __tmp10707)))) + (declare (not safe)) + (##fx< _field10045_ __tmp10706)))) + (_if-struct-field10042_ _klass10039_ _field10045_) + (_if-class-slot10043_ + _klass10039_ + _slot10040_ + _field10045_)))))) + (define make-class-slot-accessor + (lambda (_klass10036_ _slot10037_) + (let () + (declare (not safe)) + (if-class-slot-field + _klass10036_ + _slot10037_ + make-struct-field-accessor* + make-struct-subclass-field-accessor + make-class-cached-slot-accessor)))) + (define make-struct-subclass-field-accessor + (lambda (_klass10031_ _field10032_) + (lambda (_obj10034_) + (if (let () + (declare (not safe)) + (class-instance? _klass10031_ _obj10034_)) + (let () (declare (not safe)) - (##structure-direct-instance-of? _obj7880_ __tmp8718))) - (lambda (_obj7882_) + (unchecked-field-ref _obj10034_ _field10032_)) + (error '"Trying to access a slot of a value that is not an instance of the declared class" + (vector-ref + (let () + (declare (not safe)) + (type-descriptor-all-slots _klass10031_)) + _field10032_) + _obj10034_ + _klass10031_))))) + (define make-class-cached-slot-accessor + (lambda (_klass10025_ _slot10026_ _field10027_) + (lambda (_obj10029_) + (if (let ((__tmp10708 + (let () (declare (not safe)) (##type-id _klass10025_)))) + (declare (not safe)) + (##structure-direct-instance-of? _obj10029_ __tmp10708)) (let () (declare (not safe)) - (class-instance? _klass7878_ _obj7882_)))))) - (define make-class-slot-accessor - (lambda (_klass7873_ _slot7874_) - (lambda (_obj7876_) - (let () (declare (not safe)) (slot-ref _obj7876_ _slot7874_))))) + (unchecked-field-ref _obj10029_ _field10027_)) + (if (let () + (declare (not safe)) + (class-instance? _klass10025_ _obj10029_)) + (let () + (declare (not safe)) + (slot-ref _obj10029_ _slot10026_)) + (error '"Trying to get a slot of an object that is not a class instance" + _slot10026_ + _obj10029_ + _klass10025_)))))) (define make-class-slot-mutator - (lambda (_klass7867_ _slot7868_) - (lambda (_obj7870_ _val7871_) - (let () - (declare (not safe)) - (slot-set! _obj7870_ _slot7868_ _val7871_))))) + (lambda (_klass10022_ _slot10023_) + (let () + (declare (not safe)) + (if-class-slot-field + _klass10022_ + _slot10023_ + make-struct-field-mutator* + make-struct-subclass-field-mutator + make-class-cached-slot-mutator)))) + (define make-struct-subclass-field-mutator + (lambda (_klass10016_ _field10017_) + (lambda (_obj10019_ _val10020_) + (if (let () + (declare (not safe)) + (class-instance? _klass10016_ _obj10019_)) + (let () + (declare (not safe)) + (unchecked-field-set! _obj10019_ _field10017_ _val10020_)) + (error '"Trying to set a slot of an object that is not a class instance" + (vector-ref + (let () + (declare (not safe)) + (type-descriptor-all-slots _klass10016_)) + _field10017_) + _obj10019_ + _klass10016_ + _val10020_))))) + (define make-class-cached-slot-mutator + (lambda (_klass10009_ _slot10010_ _field10011_) + (lambda (_obj10013_ _val10014_) + (if (let ((__tmp10709 + (let () (declare (not safe)) (##type-id _klass10009_)))) + (declare (not safe)) + (##structure-direct-instance-of? _obj10013_ __tmp10709)) + (let () + (declare (not safe)) + (unchecked-field-set! _obj10013_ _field10011_ _val10014_)) + (let () + (declare (not safe)) + (slot-set! _obj10013_ _slot10010_ _val10014_)))))) (define make-class-slot-unchecked-accessor - (lambda (_klass7862_ _slot7863_) - (lambda (_obj7865_) - (let () - (declare (not safe)) - (unchecked-slot-ref _obj7865_ _slot7863_))))) + (lambda (_klass10006_ _slot10007_) + (let () + (declare (not safe)) + (if-class-slot-field + _klass10006_ + _slot10007_ + make-struct-field-unchecked-accessor* + make-struct-field-unchecked-accessor* + make-class-cached-slot-unchecked-accessor)))) + (define make-class-cached-slot-unchecked-accessor + (lambda (_klass10000_ _slot10001_ _field10002_) + (lambda (_obj10004_) + (if (let ((__tmp10710 + (let () (declare (not safe)) (##type-id _klass10000_)))) + (declare (not safe)) + (##structure-direct-instance-of? _obj10004_ __tmp10710)) + (let () + (declare (not safe)) + (unchecked-field-ref _obj10004_ _field10002_)) + (let () + (declare (not safe)) + (unchecked-slot-ref _obj10004_ _slot10001_)))))) (define make-class-slot-unchecked-mutator - (lambda (_klass7856_ _slot7857_) - (lambda (_obj7859_ _val7860_) - (let () - (declare (not safe)) - (unchecked-slot-set! _obj7859_ _slot7857_ _val7860_))))) + (lambda (_klass9997_ _slot9998_) + (let () + (declare (not safe)) + (if-class-slot-field + _klass9997_ + _slot9998_ + make-struct-field-unchecked-mutator* + make-struct-field-unchecked-mutator* + make-class-cached-slot-unchecked-mutator)))) + (define make-class-cached-slot-unchecked-mutator + (lambda (_klass9990_ _slot9991_ _field9992_) + (lambda (_obj9994_ _val9995_) + (if (let ((__tmp10711 + (let () (declare (not safe)) (##type-id _klass9990_)))) + (declare (not safe)) + (##structure-direct-instance-of? _obj9994_ __tmp10711)) + (let () + (declare (not safe)) + (unchecked-field-set! _obj9994_ _field9992_ _val9995_)) + (let () + (declare (not safe)) + (unchecked-slot-set! _obj9994_ _slot9991_ _val9995_)))))) (define class-slot-offset - (lambda (_klass7848_ _slot7849_) - (let ((_$e7851_ + (lambda (_klass9985_ _slot9986_) + (let ((_off9988_ (let () (declare (not safe)) - (type-descriptor-slots _klass7848_)))) - (if _$e7851_ - ((lambda (_slots7854_) - (let () - (declare (not safe)) - (table-ref _slots7854_ _slot7849_ '#f))) - _$e7851_) + (class-slot-offset* _klass9985_ _slot9986_)))) + (if _off9988_ + (let () (declare (not safe)) (##fx- _off9988_ '1)) '#f)))) + (define class-slot-offset* + (lambda (_klass9982_ _slot9983_) + (let ((__tmp10712 + (let () + (declare (not safe)) + (type-descriptor-slot-table _klass9982_)))) + (declare (not safe)) + (table-ref __tmp10712 _slot9983_ '#f)))) (define class-slot-ref - (lambda (_klass7842_ _obj7843_ _slot7844_) + (lambda (_klass9976_ _obj9977_ _slot9978_) (if (let () (declare (not safe)) - (class-instance? _klass7842_ _obj7843_)) - (let* ((_off7846_ - (let ((__tmp8720 - (let () - (declare (not safe)) - (object-type _obj7843_)))) - (declare (not safe)) - (class-slot-offset __tmp8720 _slot7844_))) - (__tmp8721 - (let () (declare (not safe)) (##fx+ _off7846_ '1)))) + (class-instance? _klass9976_ _obj9977_)) + (let ((_off9980_ + (let ((__tmp10713 + (let () + (declare (not safe)) + (object-type _obj9977_)))) + (declare (not safe)) + (class-slot-offset* __tmp10713 _slot9978_)))) (declare (not safe)) - (##unchecked-structure-ref _obj7843_ __tmp8721 _klass7842_ '#f)) - (error '"not an instance" _klass7842_ _obj7843_)))) + (##unchecked-structure-ref _obj9977_ _off9980_ _klass9976_ '#f)) + (error '"not an instance" _klass9976_ _obj9977_)))) (define class-slot-set! - (lambda (_klass7835_ _obj7836_ _slot7837_ _val7838_) + (lambda (_klass9969_ _obj9970_ _slot9971_ _val9972_) (if (let () (declare (not safe)) - (class-instance? _klass7835_ _obj7836_)) - (let* ((_off7840_ - (let ((__tmp8722 - (let () - (declare (not safe)) - (object-type _obj7836_)))) - (declare (not safe)) - (class-slot-offset __tmp8722 _slot7837_))) - (__tmp8723 - (let () (declare (not safe)) (##fx+ _off7840_ '1)))) + (class-instance? _klass9969_ _obj9970_)) + (let ((_off9974_ + (let ((__tmp10714 + (let () + (declare (not safe)) + (object-type _obj9970_)))) + (declare (not safe)) + (class-slot-offset* __tmp10714 _slot9971_)))) (declare (not safe)) (##unchecked-structure-set! - _obj7836_ - _val7838_ - __tmp8723 - _klass7835_ + _obj9970_ + _val9972_ + _off9974_ + _klass9969_ '#f)) - (error '"not an instance" _klass7835_ _obj7836_)))) - (define class-subtype? - (lambda (_klass7820_ _xklass7821_) - (let* ((_klass-t7823_ - (let () (declare (not safe)) (##type-id _klass7820_))) - (_$e7825_ - (let ((__tmp8724 - (let () (declare (not safe)) (##type-id _xklass7821_)))) + (error '"not an instance" _klass9969_ _obj9970_)))) + (define subclass? + (lambda (_maybe-sub-class9959_ _maybe-super-class9960_) + (let* ((_maybe-super-class-id9962_ + (let () + (declare (not safe)) + (##type-id _maybe-super-class9960_))) + (_$e9964_ + (let ((__tmp10715 + (let () + (declare (not safe)) + (##type-id _maybe-sub-class9959_)))) (declare (not safe)) - (eq? _klass-t7823_ __tmp8724)))) - (if _$e7825_ - _$e7825_ - (let ((_$e7828_ + (eq? _maybe-super-class-id9962_ __tmp10715)))) + (if _$e9964_ + _$e9964_ + (let ((__tmp10717 + (lambda (_super-class9967_) + (let ((__tmp10718 + (let () + (declare (not safe)) + (##type-id _super-class9967_)))) + (declare (not safe)) + (eq? __tmp10718 _maybe-super-class-id9962_)))) + (__tmp10716 (let () (declare (not safe)) - (type-descriptor-mixin _xklass7821_)))) - (if _$e7828_ - ((lambda (_mixin7831_) - (if (let ((__tmp8725 - (lambda (_xklass7833_) - (let ((__tmp8726 - (let () - (declare (not safe)) - (##type-id _xklass7833_)))) - (declare (not safe)) - (eq? _klass-t7823_ __tmp8726))))) - (declare (not safe)) - (find __tmp8725 _mixin7831_)) - '#t - '#f)) - _$e7828_) - '#f)))))) + (type-descriptor-precedence-list + _maybe-sub-class9959_)))) + (declare (not safe)) + (ormap1 __tmp10717 __tmp10716)))))) + (define class-subtype? + (lambda (_maybe-super-class9956_ _maybe-sub-class9957_) + (let () + (declare (not safe)) + (subclass? _maybe-sub-class9957_ _maybe-super-class9956_)))) (define object? ##structure?) (define object-type ##structure-type) (define direct-instance? - (lambda (_klass7817_ _obj7818_) - (let ((__tmp8727 - (let () (declare (not safe)) (##type-id _klass7817_)))) + (lambda (_klass9953_ _obj9954_) + (let ((__tmp10719 + (let () (declare (not safe)) (##type-id _klass9953_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj7818_ __tmp8727)))) + (##structure-direct-instance-of? _obj9954_ __tmp10719)))) (define struct-instance? - (lambda (_klass7814_ _obj7815_) - (let ((__tmp8728 - (let () (declare (not safe)) (##type-id _klass7814_)))) + (lambda (_klass9950_ _obj9951_) + (let ((__tmp10720 + (let () (declare (not safe)) (##type-id _klass9950_)))) (declare (not safe)) - (##structure-instance-of? _obj7815_ __tmp8728)))) + (##structure-instance-of? _obj9951_ __tmp10720)))) (define direct-struct-instance? direct-instance?) (define class-instance? - (lambda (_klass7798_ _obj7799_) - (if (let () (declare (not safe)) (object? _obj7799_)) - (let ((_klass-id7801_ - (let () (declare (not safe)) (##type-id _klass7798_))) - (_type7802_ - (let () (declare (not safe)) (object-type _obj7799_)))) - (if (let () (declare (not safe)) (type-descriptor? _type7802_)) - (let ((_$e7804_ - (let ((__tmp8729 - (let () - (declare (not safe)) - (##type-id _type7802_)))) - (declare (not safe)) - (eq? __tmp8729 _klass-id7801_)))) - (if _$e7804_ - _$e7804_ - (let ((_$e7807_ - (let () - (declare (not safe)) - (type-descriptor-mixin _type7802_)))) - (if _$e7807_ - ((lambda (_mixin7810_) - (let ((__tmp8730 - (lambda (_type7812_) - (let ((__tmp8731 - (let () - (declare (not safe)) - (##type-id _type7812_)))) - (declare (not safe)) - (eq? __tmp8731 _klass-id7801_))))) - (declare (not safe)) - (ormap1 __tmp8730 _mixin7810_))) - _$e7807_) - '#f)))) + (lambda (_klass9945_ _obj9946_) + (if (let () (declare (not safe)) (object? _obj9946_)) + (let ((_type9948_ + (let () (declare (not safe)) (object-type _obj9946_)))) + (if (let () (declare (not safe)) (type-descriptor? _type9948_)) + (let () + (declare (not safe)) + (subclass? _type9948_ _klass9945_)) '#f)) '#f))) (define direct-class-instance? direct-instance?) (define make-object - (lambda (_klass7793_ _k7794_) - (let ((_obj7796_ - (let ((__tmp8732 - (let () (declare (not safe)) (##fx+ _k7794_ '1)))) - (declare (not safe)) - (##make-vector __tmp8732 '#f)))) + (lambda (_klass9942_ _k9943_) + (let ((__tmp10721 (let () (declare (not safe)) (##fx+ _k9943_ '1)))) + (declare (not safe)) + (make-object*__% _klass9942_ __tmp10721)))) + (define make-object*__% + (lambda (_klass9927_ _k9928_) + (let ((_obj9930_ + (let () (declare (not safe)) (##make-vector _k9928_ '#f)))) (let () (declare (not safe)) - (##vector-set! _obj7796_ '0 _klass7793_)) - (let ((__tmp8733 (macro-subtype-structure))) + (##vector-set! _obj9930_ '0 _klass9927_)) + (let ((__tmp10722 (macro-subtype-structure))) (declare (not safe)) - (##subtype-set! _obj7796_ __tmp8733)) - _obj7796_))) + (##subtype-set! _obj9930_ __tmp10722)) + _obj9930_))) + (define make-object*__0 + (lambda (_klass9935_) + (let ((_k9937_ (let ((__tmp10723 + (let () + (declare (not safe)) + (type-descriptor-all-slots _klass9935_)))) + (declare (not safe)) + (##vector-length __tmp10723)))) + (declare (not safe)) + (make-object*__% _klass9935_ _k9937_)))) + (define make-object* + (lambda _g10725_ + (let ((_g10724_ (let () (declare (not safe)) (##length _g10725_)))) + (cond ((let () (declare (not safe)) (##fx= _g10724_ 1)) + (apply (lambda (_klass9935_) + (let () + (declare (not safe)) + (make-object*__0 _klass9935_))) + _g10725_)) + ((let () (declare (not safe)) (##fx= _g10724_ 2)) + (apply (lambda (_klass9939_ _k9940_) + (let () + (declare (not safe)) + (make-object*__% _klass9939_ _k9940_))) + _g10725_)) + (else + (##raise-wrong-number-of-arguments-exception + make-object* + _g10725_)))))) (define make-struct-instance - (lambda (_klass7783_ . _args7784_) - (let* ((_fields7786_ + (lambda (_klass9913_ . _args9914_) + (let* ((_all-slots9916_ (let () (declare (not safe)) - (type-descriptor-fields _klass7783_))) - (_$e7788_ + (type-descriptor-all-slots _klass9913_))) + (_size9918_ (let () (declare (not safe)) - (type-descriptor-ctor _klass7783_)))) - (if _$e7788_ - ((lambda (_kons-id7791_) - (let ((__tmp8735 - (let () - (declare (not safe)) - (make-object _klass7783_ _fields7786_)))) + (##vector-length _all-slots9916_)))) + (let ((_$e9921_ + (let () (declare (not safe)) - (__constructor-init! - _klass7783_ - _kons-id7791_ - __tmp8735 - _args7784_))) - _$e7788_) - (if (let ((__tmp8734 (length _args7784_))) - (declare (not safe)) - (##fx= _fields7786_ __tmp8734)) - (apply ##structure _klass7783_ _args7784_) - (error '"Arguments don't match object size" - _klass7783_ - _fields7786_ - _args7784_)))))) + (type-descriptor-constructor _klass9913_)))) + (if _$e9921_ + ((lambda (_kons-id9924_) + (let ((__tmp10728 + (let () + (declare (not safe)) + (make-object*__% _klass9913_ _size9918_)))) + (declare (not safe)) + (__constructor-init! + _klass9913_ + _kons-id9924_ + __tmp10728 + _args9914_))) + _$e9921_) + (if (let ((__tmp10727 + (let () (declare (not safe)) (##fx- _size9918_ '1))) + (__tmp10726 (length _args9914_))) + (declare (not safe)) + (##fx= __tmp10727 __tmp10726)) + (apply ##structure _klass9913_ _args9914_) + (error '"Arguments don't match object size" + _klass9913_ + (let () (declare (not safe)) (##fx- _size9918_ '1)) + _args9914_))))))) (define make-class-instance - (lambda (_klass7773_ . _args7774_) - (let* ((_obj7776_ - (let ((__tmp8736 - (let () + (lambda (_klass9903_ . _args9904_) + (let* ((_obj9906_ + (let ((__tmp10729 + (let ((__tmp10730 + (let () + (declare (not safe)) + (type-descriptor-all-slots _klass9903_)))) (declare (not safe)) - (type-descriptor-fields _klass7773_)))) + (##vector-length __tmp10730)))) (declare (not safe)) - (make-object _klass7773_ __tmp8736))) - (_$e7778_ + (make-object*__% _klass9903_ __tmp10729))) + (_$e9908_ (let () (declare (not safe)) - (type-descriptor-ctor _klass7773_)))) - (if _$e7778_ - ((lambda (_kons-id7781_) + (type-descriptor-constructor _klass9903_)))) + (if _$e9908_ + ((lambda (_kons-id9911_) (let () (declare (not safe)) (__constructor-init! - _klass7773_ - _kons-id7781_ - _obj7776_ - _args7774_))) - _$e7778_) + _klass9903_ + _kons-id9911_ + _obj9906_ + _args9904_))) + _$e9908_) (let () (declare (not safe)) - (__class-instance-init! _klass7773_ _obj7776_ _args7774_)))))) + (__class-instance-init! _klass9903_ _obj9906_ _args9904_)))))) (define struct-instance-init! - (lambda (_obj7770_ . _args7771_) - (if (let ((__tmp8738 (length _args7771_)) - (__tmp8737 + (lambda (_obj9900_ . _args9901_) + (if (let ((__tmp10732 (length _args9901_)) + (__tmp10731 (let () (declare (not safe)) - (##structure-length _obj7770_)))) + (##structure-length _obj9900_)))) (declare (not safe)) - (##fx< __tmp8738 __tmp8737)) + (##fx< __tmp10732 __tmp10731)) (let () (declare (not safe)) - (__struct-instance-init! _obj7770_ _args7771_)) - (error '"Too many arguments for struct" _obj7770_ _args7771_)))) + (__struct-instance-init! _obj9900_ _args9901_)) + (error '"Too many arguments for struct" _obj9900_ _args9901_)))) (define __struct-instance-init! - (lambda (_obj7729_ _args7730_) - (let _lp7732_ ((_k7734_ '1) (_rest7735_ _args7730_)) - (let* ((_rest77367744_ _rest7735_) - (_else77387752_ (lambda () _obj7729_)) - (_K77407758_ - (lambda (_rest7755_ _hd7756_) + (lambda (_obj9859_ _args9860_) + (let _lp9862_ ((_k9864_ '1) (_rest9865_ _args9860_)) + (let* ((_rest98669874_ _rest9865_) + (_else98689882_ (lambda () _obj9859_)) + (_K98709888_ + (lambda (_rest9885_ _hd9886_) (let () (declare (not safe)) - (##vector-set! _obj7729_ _k7734_ _hd7756_)) - (let ((__tmp8739 - (let () (declare (not safe)) (##fx+ _k7734_ '1)))) + (##vector-set! _obj9859_ _k9864_ _hd9886_)) + (let ((__tmp10733 + (let () (declare (not safe)) (##fx+ _k9864_ '1)))) (declare (not safe)) - (_lp7732_ __tmp8739 _rest7755_))))) - (if (let () (declare (not safe)) (##pair? _rest77367744_)) - (let ((_hd77417761_ - (let () (declare (not safe)) (##car _rest77367744_))) - (_tl77427763_ - (let () (declare (not safe)) (##cdr _rest77367744_)))) - (let* ((_hd7766_ _hd77417761_) (_rest7768_ _tl77427763_)) + (_lp9862_ __tmp10733 _rest9885_))))) + (if (let () (declare (not safe)) (##pair? _rest98669874_)) + (let ((_hd98719891_ + (let () (declare (not safe)) (##car _rest98669874_))) + (_tl98729893_ + (let () (declare (not safe)) (##cdr _rest98669874_)))) + (let* ((_hd9896_ _hd98719891_) (_rest9898_ _tl98729893_)) (declare (not safe)) - (_K77407758_ _rest7768_ _hd7766_))) - (let () (declare (not safe)) (_else77387752_))))))) + (_K98709888_ _rest9898_ _hd9896_))) + (let () (declare (not safe)) (_else98689882_))))))) (define class-instance-init! - (lambda (_obj7726_ . _args7727_) - (let ((__tmp8740 - (let () (declare (not safe)) (object-type _obj7726_)))) + (lambda (_obj9856_ . _args9857_) + (let ((__tmp10734 + (let () (declare (not safe)) (object-type _obj9856_)))) (declare (not safe)) - (__class-instance-init! __tmp8740 _obj7726_ _args7727_)))) + (__class-instance-init! __tmp10734 _obj9856_ _args9857_)))) (define __class-instance-init! - (lambda (_klass7670_ _obj7671_ _args7672_) - (let _lp7674_ ((_rest7676_ _args7672_)) - (let* ((_rest76777687_ _rest7676_) - (_else76797695_ + (lambda (_klass9800_ _obj9801_ _args9802_) + (let _lp9804_ ((_rest9806_ _args9802_)) + (let* ((_rest98079817_ _rest9806_) + (_else98099825_ (lambda () - (if (let () (declare (not safe)) (null? _rest7676_)) - _obj7671_ + (if (let () (declare (not safe)) (null? _rest9806_)) + _obj9801_ (error '"Unexpected class initializer arguments" - _rest7676_)))) - (_K76817707_ - (lambda (_rest7698_ _val7699_ _key7700_) - (let ((_$e7702_ + _rest9806_)))) + (_K98119837_ + (lambda (_rest9828_ _val9829_ _key9830_) + (let ((_$e9832_ (let () (declare (not safe)) - (class-slot-offset _klass7670_ _key7700_)))) - (if _$e7702_ - ((lambda (_off7705_) - (let ((__tmp8741 - (let () - (declare (not safe)) - (##fx+ _off7705_ '1)))) + (class-slot-offset* _klass9800_ _key9830_)))) + (if _$e9832_ + ((lambda (_off9835_) + (let () (declare (not safe)) - (##vector-set! _obj7671_ __tmp8741 _val7699_)) + (##vector-set! _obj9801_ _off9835_ _val9829_)) (let () (declare (not safe)) - (_lp7674_ _rest7698_))) - _$e7702_) + (_lp9804_ _rest9828_))) + _$e9832_) (error '"No slot for keyword initializer" - _klass7670_ - _key7700_)))))) - (if (let () (declare (not safe)) (##pair? _rest76777687_)) - (let ((_hd76827710_ - (let () (declare (not safe)) (##car _rest76777687_))) - (_tl76837712_ - (let () (declare (not safe)) (##cdr _rest76777687_)))) - (let ((_key7715_ _hd76827710_)) - (if (let () (declare (not safe)) (##pair? _tl76837712_)) - (let ((_hd76847717_ + _klass9800_ + _key9830_)))))) + (if (let () (declare (not safe)) (##pair? _rest98079817_)) + (let ((_hd98129840_ + (let () (declare (not safe)) (##car _rest98079817_))) + (_tl98139842_ + (let () (declare (not safe)) (##cdr _rest98079817_)))) + (let ((_key9845_ _hd98129840_)) + (if (let () (declare (not safe)) (##pair? _tl98139842_)) + (let ((_hd98149847_ (let () (declare (not safe)) - (##car _tl76837712_))) - (_tl76857719_ + (##car _tl98139842_))) + (_tl98159849_ (let () (declare (not safe)) - (##cdr _tl76837712_)))) - (let* ((_val7722_ _hd76847717_) - (_rest7724_ _tl76857719_)) + (##cdr _tl98139842_)))) + (let* ((_val9852_ _hd98149847_) + (_rest9854_ _tl98159849_)) (declare (not safe)) - (_K76817707_ _rest7724_ _val7722_ _key7715_))) - (let () (declare (not safe)) (_else76797695_))))) - (let () (declare (not safe)) (_else76797695_))))))) + (_K98119837_ _rest9854_ _val9852_ _key9845_))) + (let () (declare (not safe)) (_else98099825_))))) + (let () (declare (not safe)) (_else98099825_))))))) (define constructor-init! - (lambda (_klass7665_ _kons-id7666_ _obj7667_ . _args7668_) + (lambda (_klass9795_ _kons-id9796_ _obj9797_ . _args9798_) (let () (declare (not safe)) (__constructor-init! - _klass7665_ - _kons-id7666_ - _obj7667_ - _args7668_)))) + _klass9795_ + _kons-id9796_ + _obj9797_ + _args9798_)))) (define __constructor-init! - (lambda (_klass7655_ _kons-id7656_ _obj7657_ _args7658_) - (let ((_$e7660_ + (lambda (_klass9785_ _kons-id9786_ _obj9787_ _args9788_) + (let ((_$e9790_ (let () (declare (not safe)) - (__find-method _klass7655_ _kons-id7656_)))) - (if _$e7660_ - ((lambda (_kons7663_) - (apply _kons7663_ _obj7657_ _args7658_) - _obj7657_) - _$e7660_) - (error '"Missing constructor" _klass7655_ _kons-id7656_))))) + (__find-method _klass9785_ _kons-id9786_)))) + (if _$e9790_ + ((lambda (_kons9793_) + (apply _kons9793_ _obj9787_ _args9788_) + _obj9787_) + _$e9790_) + (error '"Missing constructor" _klass9785_ _kons-id9786_))))) (define struct-copy - (lambda (_struct7653_) - (if (let () (declare (not safe)) (##structure? _struct7653_)) + (lambda (_struct9783_) + (if (let () (declare (not safe)) (##structure? _struct9783_)) '#!void - (error '"Not a structure" 'struct-copy _struct7653_)) - (let () (declare (not safe)) (##structure-copy _struct7653_)))) + (error '"Not a structure" 'struct-copy _struct9783_)) + (let () (declare (not safe)) (##structure-copy _struct9783_)))) (define struct->list - (lambda (_obj7651_) - (if (let () (declare (not safe)) (object? _obj7651_)) - (let () (declare (not safe)) (##vector->list _obj7651_)) - (error '"Not an object" _obj7651_)))) + (lambda (_obj9781_) + (if (let () (declare (not safe)) (object? _obj9781_)) + (let () (declare (not safe)) (##vector->list _obj9781_)) + (error '"Not an object" _obj9781_)))) (define class->list - (lambda (_obj7638_) - (if (let () (declare (not safe)) (object? _obj7638_)) - (let ((_klass7640_ - (let () (declare (not safe)) (object-type _obj7638_)))) - (if (let () (declare (not safe)) (type-descriptor? _klass7640_)) - (let ((_$e7642_ + (lambda (_obj9768_) + (if (let () (declare (not safe)) (object? _obj9768_)) + (let ((_klass9770_ + (let () (declare (not safe)) (object-type _obj9768_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass9770_)) + (let ((_all-slots9772_ (let () (declare (not safe)) - (type-descriptor-slots _klass7640_)))) - (if _$e7642_ - ((lambda (_slots7645_) - (let ((__tmp8742 - (let ((__tmp8743 - (lambda (_slot7647_ _off7648_ _r7649_) - (if (keyword? _slot7647_) - (let ((__tmp8744 - (let ((__tmp8745 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (unchecked-field-ref _obj7638_ _off7648_)))) - (declare (not safe)) - (cons __tmp8745 _r7649_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _slot7647_ __tmp8744)) - _r7649_)))) - (declare (not safe)) - (hash-fold __tmp8743 '() _slots7645_)))) - (declare (not safe)) - (cons _klass7640_ __tmp8742))) - _$e7642_) - (list _klass7640_))) - (error '"Not a class type" _obj7638_ _klass7640_))) - (error '"Not an object" _obj7638_)))) + (type-descriptor-all-slots _klass9770_)))) + (let _loop9774_ ((_index9776_ + (let ((__tmp10740 + (let () + (declare (not safe)) + (##vector-length + _all-slots9772_)))) + (declare (not safe)) + (##fx- __tmp10740 '1))) + (_plist9777_ '())) + (if (let () (declare (not safe)) (##fx< _index9776_ '1)) + (let () + (declare (not safe)) + (cons _klass9770_ _plist9777_)) + (let ((_slot9779_ + (let () + (declare (not safe)) + (##vector-ref + _all-slots9772_ + _index9776_)))) + (let ((__tmp10739 + (let () + (declare (not safe)) + (##fx- _index9776_ '1))) + (__tmp10735 + (let ((__tmp10738 + (symbol->keyword _slot9779_)) + (__tmp10736 + (let ((__tmp10737 + (let () + (declare (not safe)) + (unchecked-field-ref + _obj9768_ + _index9776_)))) + (declare (not safe)) + (cons __tmp10737 _plist9777_)))) + (declare (not safe)) + (cons __tmp10738 __tmp10736)))) + (declare (not safe)) + (_loop9774_ __tmp10739 __tmp10735)))))) + (error '"Not a class type" _obj9768_ _klass9770_))) + (error '"Not an object" _obj9768_)))) (define unchecked-field-ref - (lambda (_obj7635_ _off7636_) - (let ((__tmp8746 (let () (declare (not safe)) (##fx+ _off7636_ '1)))) - (declare (not safe)) - (##vector-ref _obj7635_ __tmp8746)))) + (lambda (_obj9765_ _off9766_) + (let () (declare (not safe)) (##vector-ref _obj9765_ _off9766_)))) (define unchecked-field-set! - (lambda (_obj7631_ _off7632_ _val7633_) - (let ((__tmp8747 (let () (declare (not safe)) (##fx+ _off7632_ '1)))) + (lambda (_obj9761_ _off9762_ _val9763_) + (let () (declare (not safe)) - (##vector-set! _obj7631_ __tmp8747 _val7633_)))) + (##vector-set! _obj9761_ _off9762_ _val9763_)))) (define unchecked-slot-ref - (lambda (_obj7628_ _slot7629_) - (let ((__tmp8748 - (let ((__tmp8749 - (let () (declare (not safe)) (object-type _obj7628_)))) + (lambda (_obj9758_ _slot9759_) + (let ((__tmp10741 + (let ((__tmp10742 + (let () (declare (not safe)) (object-type _obj9758_)))) (declare (not safe)) - (class-slot-offset __tmp8749 _slot7629_)))) + (class-slot-offset* __tmp10742 _slot9759_)))) (declare (not safe)) - (unchecked-field-ref _obj7628_ __tmp8748)))) + (unchecked-field-ref _obj9758_ __tmp10741)))) (define unchecked-slot-set! - (lambda (_obj7624_ _slot7625_ _val7626_) - (let ((__tmp8750 - (let ((__tmp8751 - (let () (declare (not safe)) (object-type _obj7624_)))) + (lambda (_obj9754_ _slot9755_ _val9756_) + (let ((__tmp10743 + (let ((__tmp10744 + (let () (declare (not safe)) (object-type _obj9754_)))) (declare (not safe)) - (class-slot-offset __tmp8751 _slot7625_)))) + (class-slot-offset* __tmp10744 _slot9755_)))) (declare (not safe)) - (unchecked-field-set! _obj7624_ __tmp8750 _val7626_)))) + (unchecked-field-set! _obj9754_ __tmp10743 _val9756_)))) (define slot-ref__% - (lambda (_obj7600_ _slot7601_ _E7602_) - (if (let () (declare (not safe)) (object? _obj7600_)) - (let* ((_klass7604_ - (let () (declare (not safe)) (object-type _obj7600_))) - (_$e7607_ + (lambda (_obj9730_ _slot9731_ _E9732_) + (if (let () (declare (not safe)) (object? _obj9730_)) + (let* ((_klass9734_ + (let () (declare (not safe)) (object-type _obj9730_))) + (_$e9737_ (if (let () (declare (not safe)) - (type-descriptor? _klass7604_)) + (type-descriptor? _klass9734_)) (let () (declare (not safe)) - (class-slot-offset _klass7604_ _slot7601_)) + (class-slot-offset* _klass9734_ _slot9731_)) '#f))) - (if _$e7607_ - ((lambda (_off7610_) - (let ((__tmp8752 - (let () - (declare (not safe)) - (##fx+ _off7610_ '1)))) + (if _$e9737_ + ((lambda (_off9740_) + (let () (declare (not safe)) - (##vector-ref _obj7600_ __tmp8752))) - _$e7607_) - (_E7602_ _obj7600_ _slot7601_))) - (_E7602_ _obj7600_ _slot7601_)))) + (##vector-ref _obj9730_ _off9740_))) + _$e9737_) + (_E9732_ _obj9730_ _slot9731_))) + (_E9732_ _obj9730_ _slot9731_)))) (define slot-ref__0 - (lambda (_obj7615_ _slot7616_) - (let ((_E7618_ __slot-error)) + (lambda (_obj9745_ _slot9746_) + (let ((_E9748_ __slot-error)) (declare (not safe)) - (slot-ref__% _obj7615_ _slot7616_ _E7618_)))) + (slot-ref__% _obj9745_ _slot9746_ _E9748_)))) (define slot-ref - (lambda _g8754_ - (let ((_g8753_ (let () (declare (not safe)) (##length _g8754_)))) - (cond ((let () (declare (not safe)) (##fx= _g8753_ 2)) - (apply (lambda (_obj7615_ _slot7616_) + (lambda _g10746_ + (let ((_g10745_ (let () (declare (not safe)) (##length _g10746_)))) + (cond ((let () (declare (not safe)) (##fx= _g10745_ 2)) + (apply (lambda (_obj9745_ _slot9746_) (let () (declare (not safe)) - (slot-ref__0 _obj7615_ _slot7616_))) - _g8754_)) - ((let () (declare (not safe)) (##fx= _g8753_ 3)) - (apply (lambda (_obj7620_ _slot7621_ _E7622_) + (slot-ref__0 _obj9745_ _slot9746_))) + _g10746_)) + ((let () (declare (not safe)) (##fx= _g10745_ 3)) + (apply (lambda (_obj9750_ _slot9751_ _E9752_) (let () (declare (not safe)) - (slot-ref__% _obj7620_ _slot7621_ _E7622_))) - _g8754_)) + (slot-ref__% _obj9750_ _slot9751_ _E9752_))) + _g10746_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g8754_)))))) + _g10746_)))))) (define slot-set!__% - (lambda (_obj7572_ _slot7573_ _val7574_ _E7575_) - (if (let () (declare (not safe)) (object? _obj7572_)) - (let* ((_klass7577_ - (let () (declare (not safe)) (object-type _obj7572_))) - (_$e7580_ + (lambda (_obj9702_ _slot9703_ _val9704_ _E9705_) + (if (let () (declare (not safe)) (object? _obj9702_)) + (let* ((_klass9707_ + (let () (declare (not safe)) (object-type _obj9702_))) + (_$e9710_ (if (let () (declare (not safe)) - (type-descriptor? _klass7577_)) + (type-descriptor? _klass9707_)) (let () (declare (not safe)) - (class-slot-offset _klass7577_ _slot7573_)) + (class-slot-offset* _klass9707_ _slot9703_)) '#f))) - (if _$e7580_ - ((lambda (_off7583_) - (let ((__tmp8755 - (let () - (declare (not safe)) - (##fx+ _off7583_ '1)))) + (if _$e9710_ + ((lambda (_off9713_) + (let () (declare (not safe)) - (##vector-set! _obj7572_ __tmp8755 _val7574_))) - _$e7580_) - (_E7575_ _obj7572_ _slot7573_))) - (_E7575_ _obj7572_ _slot7573_)))) + (##vector-set! _obj9702_ _off9713_ _val9704_))) + _$e9710_) + (_E9705_ _obj9702_ _slot9703_))) + (_E9705_ _obj9702_ _slot9703_)))) (define slot-set!__0 - (lambda (_obj7588_ _slot7589_ _val7590_) - (let ((_E7592_ __slot-error)) + (lambda (_obj9718_ _slot9719_ _val9720_) + (let ((_E9722_ __slot-error)) (declare (not safe)) - (slot-set!__% _obj7588_ _slot7589_ _val7590_ _E7592_)))) + (slot-set!__% _obj9718_ _slot9719_ _val9720_ _E9722_)))) (define slot-set! - (lambda _g8757_ - (let ((_g8756_ (let () (declare (not safe)) (##length _g8757_)))) - (cond ((let () (declare (not safe)) (##fx= _g8756_ 3)) - (apply (lambda (_obj7588_ _slot7589_ _val7590_) + (lambda _g10748_ + (let ((_g10747_ (let () (declare (not safe)) (##length _g10748_)))) + (cond ((let () (declare (not safe)) (##fx= _g10747_ 3)) + (apply (lambda (_obj9718_ _slot9719_ _val9720_) (let () (declare (not safe)) - (slot-set!__0 _obj7588_ _slot7589_ _val7590_))) - _g8757_)) - ((let () (declare (not safe)) (##fx= _g8756_ 4)) - (apply (lambda (_obj7594_ _slot7595_ _val7596_ _E7597_) + (slot-set!__0 _obj9718_ _slot9719_ _val9720_))) + _g10748_)) + ((let () (declare (not safe)) (##fx= _g10747_ 4)) + (apply (lambda (_obj9724_ _slot9725_ _val9726_ _E9727_) (let () (declare (not safe)) (slot-set!__% - _obj7594_ - _slot7595_ - _val7596_ - _E7597_))) - _g8757_)) + _obj9724_ + _slot9725_ + _val9726_ + _E9727_))) + _g10748_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g8757_)))))) + _g10748_)))))) (define __slot-error - (lambda (_obj7568_ _slot7569_) - (error '"Cannot find slot" _obj7568_ _slot7569_))) + (lambda (_obj9698_ _slot9699_) + (error '"Cannot find slot" _obj9698_ _slot9699_))) (define call-method - (lambda (_obj7559_ _id7560_ . _args7561_) - (let ((_$e7563_ - (let () (declare (not safe)) (method-ref _obj7559_ _id7560_)))) - (if _$e7563_ - ((lambda (_method7566_) - (apply _method7566_ _obj7559_ _args7561_)) - _$e7563_) - (error '"Cannot find method" _obj7559_ _id7560_))))) + (lambda (_obj9689_ _id9690_ . _args9691_) + (let ((_$e9693_ + (let () (declare (not safe)) (method-ref _obj9689_ _id9690_)))) + (if _$e9693_ + ((lambda (_method9696_) + (apply _method9696_ _obj9689_ _args9691_)) + _$e9693_) + (error '"Cannot find method" _obj9689_ _id9690_))))) (define __builtin-type-methods (make-table 'test: eq?)) (define method-ref - (lambda (_obj7556_ _id7557_) - (if (let () (declare (not safe)) (object? _obj7556_)) - (let ((__tmp8758 - (let () (declare (not safe)) (object-type _obj7556_)))) + (lambda (_obj9686_ _id9687_) + (if (let () (declare (not safe)) (object? _obj9686_)) + (let ((__tmp10749 + (let () (declare (not safe)) (object-type _obj9686_)))) (declare (not safe)) - (find-method __tmp8758 _id7557_)) + (find-method __tmp10749 _id9687_)) '#f))) (define checked-method-ref - (lambda (_obj7550_ _id7551_) - (let ((_$e7553_ - (let () (declare (not safe)) (method-ref _obj7550_ _id7551_)))) - (if _$e7553_ - _$e7553_ - (error '"Missing method" _obj7550_ _id7551_))))) + (lambda (_obj9680_ _id9681_) + (let ((_$e9683_ + (let () (declare (not safe)) (method-ref _obj9680_ _id9681_)))) + (if _$e9683_ + _$e9683_ + (error '"Missing method" _obj9680_ _id9681_))))) (define bound-method-ref - (lambda (_obj7540_ _id7541_) - (let ((_$e7543_ - (let () (declare (not safe)) (method-ref _obj7540_ _id7541_)))) - (if _$e7543_ - ((lambda (_method7546_) - (lambda _args7548_ (apply _method7546_ _obj7540_ _args7548_))) - _$e7543_) + (lambda (_obj9670_ _id9671_) + (let ((_$e9673_ + (let () (declare (not safe)) (method-ref _obj9670_ _id9671_)))) + (if _$e9673_ + ((lambda (_method9676_) + (lambda _args9678_ (apply _method9676_ _obj9670_ _args9678_))) + _$e9673_) '#f)))) (define checked-bound-method-ref - (lambda (_obj7533_ _id7534_) - (let ((_method7536_ + (lambda (_obj9663_ _id9664_) + (let ((_method9666_ (let () (declare (not safe)) - (checked-method-ref _obj7533_ _id7534_)))) - (lambda _args7538_ (apply _method7536_ _obj7533_ _args7538_))))) + (checked-method-ref _obj9663_ _id9664_)))) + (lambda _args9668_ (apply _method9666_ _obj9663_ _args9668_))))) (define find-method - (lambda (_klass7527_ _id7528_) - (if (let () (declare (not safe)) (type-descriptor? _klass7527_)) - (let () (declare (not safe)) (__find-method _klass7527_ _id7528_)) - (if (let () (declare (not safe)) (##type? _klass7527_)) - (let ((_$e7530_ - (let () - (declare (not safe)) - (builtin-method-ref _klass7527_ _id7528_)))) - (if _$e7530_ - _$e7530_ - (let ((__tmp8759 - (let () - (declare (not safe)) - (##type-super _klass7527_)))) - (declare (not safe)) - (builtin-find-method __tmp8759 _id7528_)))) - '#f)))) + (lambda (_klass9660_ _id9661_) + (if (let () (declare (not safe)) (type-descriptor? _klass9660_)) + (let () (declare (not safe)) (__find-method _klass9660_ _id9661_)) + (let () + (declare (not safe)) + (builtin-find-method _klass9660_ _id9661_))))) (define __find-method - (lambda (_klass7516_ _id7517_) - (let ((_$e7519_ + (lambda (_klass9654_ _id9655_) + (let ((_$e9657_ (let () (declare (not safe)) - (direct-method-ref _klass7516_ _id7517_)))) - (if _$e7519_ - _$e7519_ + (direct-method-ref _klass9654_ _id9655_)))) + (if _$e9657_ + _$e9657_ (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass7516_)) + (type-descriptor-sealed? _klass9654_)) '#f - (let ((_$e7522_ - (let () - (declare (not safe)) - (type-descriptor-mixin _klass7516_)))) - (if _$e7522_ - ((lambda (_mixin7525_) - (let () - (declare (not safe)) - (mixin-find-method _mixin7525_ _id7517_))) - _$e7522_) - (let ((__tmp8760 - (let () - (declare (not safe)) - (##type-super _klass7516_)))) - (declare (not safe)) - (struct-find-method __tmp8760 _id7517_))))))))) - (define struct-find-method - (lambda (_klass7507_ _id7508_) - (if (let () (declare (not safe)) (type-descriptor? _klass7507_)) - (let ((_$e7510_ - (let () - (declare (not safe)) - (direct-method-ref _klass7507_ _id7508_)))) - (if _$e7510_ - _$e7510_ - (let ((__tmp8762 - (let () - (declare (not safe)) - (##type-super _klass7507_)))) - (declare (not safe)) - (struct-find-method __tmp8762 _id7508_)))) - (if (let () (declare (not safe)) (##type? _klass7507_)) - (let ((_$e7513_ - (let () - (declare (not safe)) - (builtin-method-ref _klass7507_ _id7508_)))) - (if _$e7513_ - _$e7513_ - (let ((__tmp8761 - (let () - (declare (not safe)) - (##type-super _klass7507_)))) - (declare (not safe)) - (builtin-find-method __tmp8761 _id7508_)))) - '#f)))) - (define class-find-method - (lambda (_klass7501_ _id7502_) - (if (let () (declare (not safe)) (type-descriptor? _klass7501_)) - (let ((_$e7504_ - (let () - (declare (not safe)) - (direct-method-ref _klass7501_ _id7502_)))) - (if _$e7504_ - _$e7504_ (let () (declare (not safe)) - (mixin-method-ref _klass7501_ _id7502_)))) + (mixin-method-ref _klass9654_ _id9655_))))))) + (define struct-find-method find-method) + (define class-find-method + (lambda (_klass9651_ _id9652_) + (if (let () (declare (not safe)) (type-descriptor? _klass9651_)) + (let () (declare (not safe)) (__find-method _klass9651_ _id9652_)) '#f))) (define mixin-find-method - (lambda (_mixin7458_ _id7459_) - (let _lp7461_ ((_rest7463_ _mixin7458_)) - (let* ((_rest74647472_ _rest7463_) - (_else74667480_ (lambda () '#f)) - (_K74687489_ - (lambda (_rest7483_ _klass7484_) - (let ((_$e7486_ - (let () - (declare (not safe)) - (direct-method-ref _klass7484_ _id7459_)))) - (if _$e7486_ - _$e7486_ - (let () - (declare (not safe)) - (_lp7461_ _rest7483_))))))) - (if (let () (declare (not safe)) (##pair? _rest74647472_)) - (let ((_hd74697492_ - (let () (declare (not safe)) (##car _rest74647472_))) - (_tl74707494_ - (let () (declare (not safe)) (##cdr _rest74647472_)))) - (let* ((_klass7497_ _hd74697492_) (_rest7499_ _tl74707494_)) - (declare (not safe)) - (_K74687489_ _rest7499_ _klass7497_))) - (let () (declare (not safe)) (_else74667480_))))))) + (lambda (_mixins9644_ _id9645_) + (let ((__tmp10750 + (lambda (_g96469648_) + (let () + (declare (not safe)) + (direct-method-ref _g96469648_ _id9645_))))) + (declare (not safe)) + (ormap1 __tmp10750 _mixins9644_)))) (define builtin-find-method - (lambda (_klass7452_ _id7453_) - (if (let () (declare (not safe)) (##type? _klass7452_)) - (let ((_$e7455_ + (lambda (_klass9638_ _id9639_) + (if (let () (declare (not safe)) (##type? _klass9638_)) + (let ((_$e9641_ (let () (declare (not safe)) - (builtin-method-ref _klass7452_ _id7453_)))) - (if _$e7455_ - _$e7455_ - (let ((__tmp8763 + (builtin-method-ref _klass9638_ _id9639_)))) + (if _$e9641_ + _$e9641_ + (let ((__tmp10751 (let () (declare (not safe)) - (##type-super _klass7452_)))) + (##type-super _klass9638_)))) (declare (not safe)) - (builtin-find-method __tmp8763 _id7453_)))) + (builtin-find-method __tmp10751 _id9639_)))) '#f))) (define direct-method-ref - (lambda (_klass7444_ _id7445_) - (let ((_$e7447_ + (lambda (_klass9630_ _id9631_) + (let ((_$e9633_ (let () (declare (not safe)) - (type-descriptor-methods _klass7444_)))) - (if _$e7447_ - ((lambda (_ht7450_) + (type-descriptor-methods _klass9630_)))) + (if _$e9633_ + ((lambda (_ht9636_) (let () (declare (not safe)) - (table-ref _ht7450_ _id7445_ '#f))) - _$e7447_) + (table-ref _ht9636_ _id9631_ '#f))) + _$e9633_) '#f)))) (define mixin-method-ref - (lambda (_klass7436_ _id7437_) - (let ((_$e7439_ + (lambda (_klass9627_ _id9628_) + (let ((__tmp10752 (let () (declare (not safe)) - (type-descriptor-mixin _klass7436_)))) - (if _$e7439_ - ((lambda (_mixin7442_) - (let () - (declare (not safe)) - (mixin-find-method _mixin7442_ _id7437_))) - _$e7439_) - '#f)))) + (type-descriptor-precedence-list _klass9627_)))) + (declare (not safe)) + (mixin-find-method __tmp10752 _id9628_)))) (define builtin-method-ref - (lambda (_klass7428_ _id7429_) - (let ((_$e7431_ - (let ((__tmp8764 - (let () (declare (not safe)) (##type-id _klass7428_)))) + (lambda (_klass9619_ _id9620_) + (let ((_$e9622_ + (let ((__tmp10753 + (let () (declare (not safe)) (##type-id _klass9619_)))) (declare (not safe)) - (table-ref __builtin-type-methods __tmp8764 '#f)))) - (if _$e7431_ - ((lambda (_mtab7434_) + (table-ref __builtin-type-methods __tmp10753 '#f)))) + (if _$e9622_ + ((lambda (_mtab9625_) (let () (declare (not safe)) - (table-ref _mtab7434_ _id7429_ '#f))) - _$e7431_) + (table-ref _mtab9625_ _id9620_ '#f))) + _$e9622_) '#f)))) (define bind-method!__% - (lambda (_klass7394_ _id7395_ _proc7396_ _rebind?7397_) - (letrec ((_bind!7399_ - (lambda (_ht7412_) - (if (and (let () (declare (not safe)) (not _rebind?7397_)) + (lambda (_klass9585_ _id9586_ _proc9587_ _rebind?9588_) + (letrec ((_bind!9590_ + (lambda (_ht9603_) + (if (and (let () (declare (not safe)) (not _rebind?9588_)) (let () (declare (not safe)) - (table-ref _ht7412_ _id7395_ '#f))) - (error '"Method already bound" _klass7394_ _id7395_) + (table-ref _ht9603_ _id9586_ '#f))) + (error '"Method already bound" _klass9585_ _id9586_) (let () (declare (not safe)) - (table-set! _ht7412_ _id7395_ _proc7396_)))))) - (if (let () (declare (not safe)) (procedure? _proc7396_)) + (table-set! _ht9603_ _id9586_ _proc9587_)))))) + (if (let () (declare (not safe)) (procedure? _proc9587_)) '#!void - (error '"Bad method; expected procedure" _proc7396_)) - (if (let () (declare (not safe)) (type-descriptor? _klass7394_)) - (let ((_ht7401_ + (error '"Bad method; expected procedure" _proc9587_)) + (if (let () (declare (not safe)) (type-descriptor? _klass9585_)) + (let ((_ht9592_ (let () (declare (not safe)) - (type-descriptor-methods _klass7394_)))) - (if _ht7401_ - (let () (declare (not safe)) (_bind!7399_ _ht7401_)) - (let ((_ht7403_ + (type-descriptor-methods _klass9585_)))) + (if _ht9592_ + (let () (declare (not safe)) (_bind!9590_ _ht9592_)) + (let ((_ht9594_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (type-descriptor-methods-set! _klass7394_ _ht7403_)) - (let () (declare (not safe)) (_bind!7399_ _ht7403_))))) - (if (let () (declare (not safe)) (##type? _klass7394_)) - (let ((_ht7410_ - (let ((_$e7405_ - (let ((__tmp8765 + (type-descriptor-methods-set! _klass9585_ _ht9594_)) + (let () (declare (not safe)) (_bind!9590_ _ht9594_))))) + (if (let () (declare (not safe)) (##type? _klass9585_)) + (let ((_ht9601_ + (let ((_$e9596_ + (let ((__tmp10754 (let () (declare (not safe)) - (##type-id _klass7394_)))) + (##type-id _klass9585_)))) (declare (not safe)) (table-ref __builtin-type-methods - __tmp8765 + __tmp10754 '#f)))) - (if _$e7405_ - _$e7405_ - (let ((_ht7408_ + (if _$e9596_ + _$e9596_ + (let ((_ht9599_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp8766 + (let ((__tmp10755 (let () (declare (not safe)) - (##type-id _klass7394_)))) + (##type-id _klass9585_)))) (declare (not safe)) (table-set! __builtin-type-methods - __tmp8766 - _ht7408_)) - _ht7408_))))) + __tmp10755 + _ht9599_)) + _ht9599_))))) (declare (not safe)) - (_bind!7399_ _ht7410_)) + (_bind!9590_ _ht9601_)) (error '"Bad class; expected type-descriptor" - _klass7394_)))))) + _klass9585_)))))) (define bind-method!__0 - (lambda (_klass7417_ _id7418_ _proc7419_) - (let ((_rebind?7421_ '#t)) + (lambda (_klass9608_ _id9609_ _proc9610_) + (let ((_rebind?9612_ '#t)) (declare (not safe)) - (bind-method!__% _klass7417_ _id7418_ _proc7419_ _rebind?7421_)))) + (bind-method!__% _klass9608_ _id9609_ _proc9610_ _rebind?9612_)))) (define bind-method! - (lambda _g8768_ - (let ((_g8767_ (let () (declare (not safe)) (##length _g8768_)))) - (cond ((let () (declare (not safe)) (##fx= _g8767_ 3)) - (apply (lambda (_klass7417_ _id7418_ _proc7419_) + (lambda _g10757_ + (let ((_g10756_ (let () (declare (not safe)) (##length _g10757_)))) + (cond ((let () (declare (not safe)) (##fx= _g10756_ 3)) + (apply (lambda (_klass9608_ _id9609_ _proc9610_) (let () (declare (not safe)) - (bind-method!__0 _klass7417_ _id7418_ _proc7419_))) - _g8768_)) - ((let () (declare (not safe)) (##fx= _g8767_ 4)) - (apply (lambda (_klass7423_ _id7424_ _proc7425_ _rebind?7426_) + (bind-method!__0 _klass9608_ _id9609_ _proc9610_))) + _g10757_)) + ((let () (declare (not safe)) (##fx= _g10756_ 4)) + (apply (lambda (_klass9614_ _id9615_ _proc9616_ _rebind?9617_) (let () (declare (not safe)) (bind-method!__% - _klass7423_ - _id7424_ - _proc7425_ - _rebind?7426_))) - _g8768_)) + _klass9614_ + _id9615_ + _proc9616_ + _rebind?9617_))) + _g10757_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g8768_)))))) + _g10757_)))))) (define __method-specializers (make-table 'test: eq?)) (define bind-specializer! - (lambda (_proc7390_ _specializer7391_) + (lambda (_proc9581_ _specializer9582_) (let () (declare (not safe)) - (table-set! __method-specializers _proc7390_ _specializer7391_)))) + (table-set! __method-specializers _proc9581_ _specializer9582_)))) (define seal-class! - (lambda (_klass7305_) - (letrec ((_collect-methods!7307_ - (lambda (_mtab7323_) - (letrec ((_merge!7325_ - (lambda (_tab7385_) - (let ((__tmp8769 - (lambda (_id7387_ _proc7388_) + (lambda (_klass9548_) + (letrec ((_collect-methods!9550_ + (lambda (_mtab9566_) + (letrec ((_merge!9568_ + (lambda (_tab9576_) + (let ((__tmp10758 + (lambda (_id9578_ _proc9579_) (let () (declare (not safe)) (table-set! - _mtab7323_ - _id7387_ - _proc7388_))))) + _mtab9566_ + _id9578_ + _proc9579_))))) (declare (not safe)) - (table-for-each __tmp8769 _tab7385_)))) - (_collect-direct-methods!7326_ - (lambda (_klass7380_) - (let ((_$e7382_ + (table-for-each __tmp10758 _tab9576_)))) + (_collect-direct-methods!9569_ + (lambda (_klass9571_) + (let ((_$e9573_ (let () (declare (not safe)) (type-descriptor-methods - _klass7380_)))) - (if _$e7382_ + _klass9571_)))) + (if _$e9573_ (let () (declare (not safe)) - (_merge!7325_ _$e7382_)) - '#!void))))) - (let ((_$e7328_ - (let () - (declare (not safe)) - (type-descriptor-mixin _klass7305_)))) - (if _$e7328_ - ((lambda (_mixin7331_) - (let _recur7333_ ((_rest7335_ _mixin7331_)) - (let* ((_rest73367344_ _rest7335_) - (_else73387352_ (lambda () '#!void)) - (_K73407361_ - (lambda (_rest7355_ _klass7356_) - (let () - (declare (not safe)) - (_recur7333_ _rest7355_)) - (if (let () - (declare (not safe)) - (type-descriptor? - _klass7356_)) - (let () - (declare (not safe)) - (_collect-direct-methods!7326_ - _klass7356_)) - (let ((_$e7358_ - (if (let () - (declare - (not safe)) - (##type? _klass7356_)) - (let ((__tmp8773 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (##type-id _klass7356_)))) - (declare (not safe)) - (table-ref __builtin-type-methods __tmp8773 '#f)) - '#f))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e7358_ - (let () - (declare (not safe)) - (_merge!7325_ _$e7358_)) - '#!void)))))) - (if (let () - (declare (not safe)) - (##pair? _rest73367344_)) - (let ((_hd73417364_ - (let () - (declare (not safe)) - (##car _rest73367344_))) - (_tl73427366_ - (let () - (declare (not safe)) - (##cdr _rest73367344_)))) - (let* ((_klass7369_ _hd73417364_) - (_rest7371_ _tl73427366_)) - (declare (not safe)) - (_K73407361_ - _rest7371_ - _klass7369_))) - '#!void)))) - _$e7328_) - (let _recur7373_ ((_klass7375_ - (let () - (declare (not safe)) - (##type-super _klass7305_)))) - (if (let () - (declare (not safe)) - (type-descriptor? _klass7375_)) - (begin - (let ((__tmp8772 - (let () - (declare (not safe)) - (##type-super _klass7375_)))) - (declare (not safe)) - (_recur7373_ __tmp8772)) - (let () - (declare (not safe)) - (_collect-direct-methods!7326_ - _klass7375_))) - (if (let () - (declare (not safe)) - (##type? _klass7375_)) - (begin - (let ((__tmp8770 - (let () - (declare (not safe)) - (##type-super _klass7375_)))) - (declare (not safe)) - (_recur7373_ __tmp8770)) - (let ((_$e7377_ - (let ((__tmp8771 - (let () - (declare (not safe)) - (##type-id - _klass7375_)))) - (declare (not safe)) - (table-ref - __builtin-type-methods - __tmp8771 - '#f)))) - (if _$e7377_ - (let () - (declare (not safe)) - (_merge!7325_ _$e7377_)) - '#!void))) + (_merge!9568_ _$e9573_)) '#!void))))) - (let () - (declare (not safe)) - (_collect-direct-methods!7326_ _klass7305_)))))) - (if (let () (declare (not safe)) (type-descriptor? _klass7305_)) + (for-each + _collect-direct-methods!9569_ + (reverse (let () + (declare (not safe)) + (class-precedence-list _klass9548_)))))))) + (if (let () (declare (not safe)) (type-descriptor? _klass9548_)) (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass7305_)) + (type-descriptor-sealed? _klass9548_)) '#!void (begin - (if (let ((__tmp8774 - (let () - (declare (not safe)) - (type-descriptor-plist _klass7305_)))) - (declare (not safe)) - (assgetq 'final: __tmp8774)) + (if (let () (declare (not safe)) (type-final? _klass9548_)) '#!void - (error '"Cannot seal non-final class" _klass7305_)) - (let ((_vtab7309_ + (error '"Cannot seal non-final class" _klass9548_)) + (let ((_vtab9552_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_mtab7310_ + (_mtab9553_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (_collect-methods!7307_ _mtab7310_)) - (let ((__tmp8775 - (lambda (_id7312_ _proc7313_) - (let ((_$e7315_ + (_collect-methods!9550_ _mtab9553_)) + (let ((__tmp10759 + (lambda (_id9555_ _proc9556_) + (let ((_$e9558_ (let () (declare (not safe)) (table-ref __method-specializers - _proc7313_ + _proc9556_ '#f)))) - (if _$e7315_ - ((lambda (_specializer7318_) - (let ((_proc7320_ - (_specializer7318_ _klass7305_)) - (_gid7321_ - (let ((__tmp8776 + (if _$e9558_ + ((lambda (_specializer9561_) + (let ((_proc9563_ + (_specializer9561_ _klass9548_)) + (_gid9564_ + (let ((__tmp10760 (let () (declare (not safe)) (##type-id - _klass7305_)))) + _klass9548_)))) (declare (not safe)) (make-symbol__1 - __tmp8776 + __tmp10760 '"::[" - _id7312_ + _id9555_ '"]")))) - (eval (let ((__tmp8777 - (let ((__tmp8778 - (let ((__tmp8779 + (eval (let ((__tmp10761 + (let ((__tmp10762 + (let ((__tmp10763 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8780 + (let ((__tmp10764 (let () (declare (not safe)) - (cons _proc7320_ '())))) + (cons _proc9563_ '())))) (declare (not safe)) - (cons 'quote __tmp8780)))) + (cons 'quote __tmp10764)))) (declare (not safe)) - (cons __tmp8779 '())))) + (cons __tmp10763 '())))) (declare (not safe)) - (cons _gid7321_ __tmp8778)))) + (cons _gid9564_ __tmp10762)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'def __tmp8777))) + (cons 'def __tmp10761))) (let () (declare (not safe)) (table-set! - _vtab7309_ - _id7312_ - _proc7320_)))) - _$e7315_) + _vtab9552_ + _id9555_ + _proc9563_)))) + _$e9558_) (let () (declare (not safe)) (table-set! - _vtab7309_ - _id7312_ - _proc7313_))))))) + _vtab9552_ + _id9555_ + _proc9556_))))))) (declare (not safe)) - (table-for-each __tmp8775 _mtab7310_)) + (table-for-each __tmp10759 _mtab9553_)) (let () (declare (not safe)) - (type-descriptor-methods-set! _klass7305_ _vtab7309_)) + (type-descriptor-methods-set! _klass9548_ _vtab9552_)) (let () (declare (not safe)) - (type-descriptor-seal! _klass7305_))))) + (type-descriptor-seal! _klass9548_))))) '#!void)))) (define next-method - (lambda (_subklass7242_ _obj7243_ _id7244_) - (let ((_klass7246_ - (let () (declare (not safe)) (object-type _obj7243_))) - (_type-id7247_ - (let () (declare (not safe)) (##type-id _subklass7242_)))) - (if (let () (declare (not safe)) (type-descriptor? _klass7246_)) - (let ((_$e7249_ - (let () - (declare (not safe)) - (type-descriptor-mixin _klass7246_)))) - (if _$e7249_ - ((lambda (_mixin7252_) - (let _lp7254_ ((_rest7256_ - (let () - (declare (not safe)) - (cons _klass7246_ _mixin7252_)))) - (let* ((_rest72577265_ _rest7256_) - (_else72597273_ (lambda () '#f)) - (_K72617279_ - (lambda (_rest7276_ _klass7277_) - (if (let ((__tmp8785 - (let () - (declare (not safe)) - (##type-id _klass7277_)))) - (declare (not safe)) - (eq? _type-id7247_ __tmp8785)) - (let () - (declare (not safe)) - (mixin-find-method - _rest7276_ - _id7244_)) - (let () - (declare (not safe)) - (_lp7254_ _rest7276_)))))) - (if (let () - (declare (not safe)) - (##pair? _rest72577265_)) - (let ((_hd72627282_ - (let () - (declare (not safe)) - (##car _rest72577265_))) - (_tl72637284_ - (let () - (declare (not safe)) - (##cdr _rest72577265_)))) - (let* ((_klass7287_ _hd72627282_) - (_rest7289_ _tl72637284_)) - (declare (not safe)) - (_K72617279_ _rest7289_ _klass7287_))) - (let () - (declare (not safe)) - (_else72597273_)))))) - _$e7249_) - (let _lp7291_ ((_klass7293_ _klass7246_)) - (if (let ((__tmp8784 - (let () - (declare (not safe)) - (##type-id _klass7293_)))) - (declare (not safe)) - (eq? _type-id7247_ __tmp8784)) - (let ((__tmp8783 - (let () - (declare (not safe)) - (##type-super _klass7293_)))) - (declare (not safe)) - (struct-find-method __tmp8783 _id7244_)) - (let ((_$e7295_ - (let () - (declare (not safe)) - (##type-super _klass7293_)))) - (if _$e7295_ - (let () - (declare (not safe)) - (_lp7291_ _$e7295_)) - '#f)))))) - (if (let () (declare (not safe)) (##type? _klass7246_)) - (let _lp7298_ ((_klass7300_ _klass7246_)) - (if (let ((__tmp8782 + (lambda (_subklass9497_ _obj9498_ _id9499_) + (let ((_klass9501_ + (let () (declare (not safe)) (object-type _obj9498_))) + (_type-id9502_ + (let () (declare (not safe)) (##type-id _subklass9497_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass9501_)) + (let _lp9504_ ((_rest9506_ + (let () + (declare (not safe)) + (class-precedence-list _klass9501_)))) + (let* ((_rest95079515_ _rest9506_) + (_else95099523_ (lambda () '#f)) + (_K95119529_ + (lambda (_rest9526_ _klass9527_) + (if (let ((__tmp10767 + (let () + (declare (not safe)) + (##type-id _klass9527_)))) + (declare (not safe)) + (eq? _type-id9502_ __tmp10767)) + (let () + (declare (not safe)) + (mixin-find-method _rest9526_ _id9499_)) + (let () + (declare (not safe)) + (_lp9504_ _rest9526_)))))) + (if (let () (declare (not safe)) (##pair? _rest95079515_)) + (let ((_hd95129532_ + (let () + (declare (not safe)) + (##car _rest95079515_))) + (_tl95139534_ + (let () + (declare (not safe)) + (##cdr _rest95079515_)))) + (let* ((_klass9537_ _hd95129532_) + (_rest9539_ _tl95139534_)) + (declare (not safe)) + (_K95119529_ _rest9539_ _klass9537_))) + (let () (declare (not safe)) (_else95099523_))))) + (if (let () (declare (not safe)) (##type? _klass9501_)) + (let _lp9541_ ((_klass9543_ _klass9501_)) + (if (let ((__tmp10766 (let () (declare (not safe)) - (##type-id _klass7300_)))) + (##type-id _klass9543_)))) (declare (not safe)) - (eq? _type-id7247_ __tmp8782)) - (let ((__tmp8781 + (eq? _type-id9502_ __tmp10766)) + (let ((__tmp10765 (let () (declare (not safe)) - (##type-super _klass7300_)))) + (##type-super _klass9543_)))) (declare (not safe)) - (builtin-find-method __tmp8781 _id7244_)) - (let ((_$e7302_ + (builtin-find-method __tmp10765 _id9499_)) + (let ((_$e9545_ (let () (declare (not safe)) - (##type-super _klass7300_)))) - (if _$e7302_ - (let () (declare (not safe)) (_lp7298_ _$e7302_)) + (##type-super _klass9543_)))) + (if _$e9545_ + (let () (declare (not safe)) (_lp9541_ _$e9545_)) '#f)))) '#f))))) (define call-next-method - (lambda (_subklass7232_ _obj7233_ _id7234_ . _args7235_) - (let ((_$e7237_ + (lambda (_subklass9487_ _obj9488_ _id9489_ . _args9490_) + (let ((_$e9492_ (let () (declare (not safe)) - (next-method _subklass7232_ _obj7233_ _id7234_)))) - (if _$e7237_ - ((lambda (_methodf7240_) - (apply _methodf7240_ _obj7233_ _args7235_)) - _$e7237_) - (error '"Cannot find next method" _obj7233_ _id7234_))))) - (define write-style (lambda (_we7230_) (macro-writeenv-style _we7230_))) + (next-method _subklass9487_ _obj9488_ _id9489_)))) + (if _$e9492_ + ((lambda (_methodf9495_) + (apply _methodf9495_ _obj9488_ _args9490_)) + _$e9492_) + (error '"Cannot find next method" _obj9488_ _id9489_))))) + (define write-style (lambda (_we9485_) (macro-writeenv-style _we9485_))) (define write-object - (lambda (_we7222_ _obj7223_) - (let ((_$e7225_ - (let () (declare (not safe)) (method-ref _obj7223_ ':wr)))) - (if _$e7225_ - ((lambda (_method7228_) (_method7228_ _obj7223_ _we7222_)) - _$e7225_) + (lambda (_we9477_ _obj9478_) + (let ((_$e9480_ + (let () (declare (not safe)) (method-ref _obj9478_ ':wr)))) + (if _$e9480_ + ((lambda (_method9483_) (_method9483_ _obj9478_ _we9477_)) + _$e9480_) (let () (declare (not safe)) - (##default-wr _we7222_ _obj7223_)))))) + (##default-wr _we9477_ _obj9478_)))))) (let () (declare (not safe)) (##wr-set! write-object)))) diff --git a/src/bootstrap/gerbil/runtime/mop__1.scm b/src/bootstrap/gerbil/runtime/mop__1.scm index 7f57bd1ea..28ae4b8a5 100644 --- a/src/bootstrap/gerbil/runtime/mop__1.scm +++ b/src/bootstrap/gerbil/runtime/mop__1.scm @@ -1,228 +1,229 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |[:0:]#__slot-e| - (lambda (_$stx7104_) - (let* ((_g71087134_ - (lambda (_g71097130_) + (lambda (_$stx9359_) + (let* ((_g93639389_ + (lambda (_g93649385_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g71097130_))) - (_g71077218_ - (lambda (_g71097138_) - (if (gx#stx-pair? _g71097138_) - (let ((_e71167141_ (gx#syntax-e _g71097138_))) - (let ((_hd71157145_ - (let () (declare (not safe)) (##car _e71167141_))) - (_tl71147148_ - (let () (declare (not safe)) (##cdr _e71167141_)))) - (if (gx#stx-pair? _tl71147148_) - (let ((_e71197151_ (gx#syntax-e _tl71147148_))) - (let ((_hd71187155_ + _g93649385_))) + (_g93629473_ + (lambda (_g93649393_) + (if (gx#stx-pair? _g93649393_) + (let ((_e93719396_ (gx#syntax-e _g93649393_))) + (let ((_hd93709400_ + (let () (declare (not safe)) (##car _e93719396_))) + (_tl93699403_ + (let () (declare (not safe)) (##cdr _e93719396_)))) + (if (gx#stx-pair? _tl93699403_) + (let ((_e93749406_ (gx#syntax-e _tl93699403_))) + (let ((_hd93739410_ (let () (declare (not safe)) - (##car _e71197151_))) - (_tl71177158_ + (##car _e93749406_))) + (_tl93729413_ (let () (declare (not safe)) - (##cdr _e71197151_)))) - (if (gx#stx-pair? _tl71177158_) - (let ((_e71227161_ - (gx#syntax-e _tl71177158_))) - (let ((_hd71217165_ + (##cdr _e93749406_)))) + (if (gx#stx-pair? _tl93729413_) + (let ((_e93779416_ + (gx#syntax-e _tl93729413_))) + (let ((_hd93769420_ (let () (declare (not safe)) - (##car _e71227161_))) - (_tl71207168_ + (##car _e93779416_))) + (_tl93759423_ (let () (declare (not safe)) - (##cdr _e71227161_)))) - (if (gx#stx-pair? _tl71207168_) - (let ((_e71257171_ - (gx#syntax-e _tl71207168_))) - (let ((_hd71247175_ + (##cdr _e93779416_)))) + (if (gx#stx-pair? _tl93759423_) + (let ((_e93809426_ + (gx#syntax-e _tl93759423_))) + (let ((_hd93799430_ (let () (declare (not safe)) - (##car _e71257171_))) - (_tl71237178_ + (##car _e93809426_))) + (_tl93789433_ (let () (declare (not safe)) - (##cdr _e71257171_)))) - (if (gx#stx-pair? _tl71237178_) - (let ((_e71287181_ + (##cdr _e93809426_)))) + (if (gx#stx-pair? _tl93789433_) + (let ((_e93839436_ (gx#syntax-e - _tl71237178_))) - (let ((_hd71277185_ + _tl93789433_))) + (let ((_hd93829440_ (let () (declare (not safe)) - (##car _e71287181_))) - (_tl71267188_ + (##car _e93839436_))) + (_tl93819443_ (let () (declare (not safe)) - (##cdr _e71287181_)))) + (##cdr _e93839436_)))) (if (gx#stx-null? - _tl71267188_) - ((lambda (_L7191_ + _tl93819443_) + ((lambda (_L9446_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L7193_ - _L7194_ - _L7195_) - (let ((__tmp8832 (gx#datum->syntax '#f 'if)) - (__tmp8786 - (let ((__tmp8829 - (let ((__tmp8831 + _L9448_ + _L9449_ + _L9450_) + (let ((__tmp10814 (gx#datum->syntax '#f 'if)) + (__tmp10768 + (let ((__tmp10811 + (let ((__tmp10813 (gx#datum->syntax '#f 'object?)) - (__tmp8830 + (__tmp10812 (let () (declare (not safe)) - (cons _L7195_ '())))) + (cons _L9450_ '())))) (declare (not safe)) - (cons __tmp8831 __tmp8830))) - (__tmp8787 - (let ((__tmp8792 - (let ((__tmp8828 + (cons __tmp10813 __tmp10812))) + (__tmp10769 + (let ((__tmp10774 + (let ((__tmp10810 (gx#datum->syntax '#f 'let)) - (__tmp8793 - (let ((__tmp8822 - (let ((__tmp8827 + (__tmp10775 + (let ((__tmp10804 + (let ((__tmp10809 (gx#datum->syntax '#f 'klass)) - (__tmp8823 - (let ((__tmp8824 + (__tmp10805 + (let ((__tmp10806 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8826 + (let ((__tmp10808 (gx#datum->syntax '#f 'object-type)) - (__tmp8825 + (__tmp10807 (let () (declare (not safe)) - (cons _L7195_ '())))) + (cons _L9450_ '())))) (declare (not safe)) - (cons __tmp8826 __tmp8825)))) + (cons __tmp10808 __tmp10807)))) (declare (not safe)) - (cons __tmp8824 '())))) + (cons __tmp10806 '())))) (declare (not safe)) - (cons __tmp8827 __tmp8823))) - (__tmp8794 - (let ((__tmp8795 - (let ((__tmp8821 (gx#datum->syntax '#f 'cond)) - (__tmp8796 - (let ((__tmp8804 - (let ((__tmp8808 - (let ((__tmp8820 + (cons __tmp10809 __tmp10805))) + (__tmp10776 + (let ((__tmp10777 + (let ((__tmp10803 (gx#datum->syntax '#f 'cond)) + (__tmp10778 + (let ((__tmp10786 + (let ((__tmp10790 + (let ((__tmp10802 (gx#datum->syntax '#f 'and)) - (__tmp8809 - (let ((__tmp8816 - (let ((__tmp8819 + (__tmp10791 + (let ((__tmp10798 + (let ((__tmp10801 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'type-descriptor?)) - (__tmp8817 - (let ((__tmp8818 (gx#datum->syntax '#f 'klass))) + (__tmp10799 + (let ((__tmp10800 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp8818 '())))) + (cons __tmp10800 '())))) (declare (not safe)) - (cons __tmp8819 __tmp8817))) - (__tmp8810 - (let ((__tmp8811 - (let ((__tmp8815 - (gx#datum->syntax '#f 'class-slot-offset)) - (__tmp8812 - (let ((__tmp8814 (gx#datum->syntax '#f 'klass)) - (__tmp8813 + (cons __tmp10801 __tmp10799))) + (__tmp10792 + (let ((__tmp10793 + (let ((__tmp10797 + (gx#datum->syntax '#f 'class-slot-offset*)) + (__tmp10794 + (let ((__tmp10796 + (gx#datum->syntax '#f 'klass)) + (__tmp10795 (let () (declare (not safe)) - (cons _L7194_ '())))) + (cons _L9449_ '())))) (declare (not safe)) - (cons __tmp8814 __tmp8813)))) + (cons __tmp10796 __tmp10795)))) (declare (not safe)) - (cons __tmp8815 __tmp8812)))) + (cons __tmp10797 __tmp10794)))) (declare (not safe)) - (cons __tmp8811 '())))) + (cons __tmp10793 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8816 - __tmp8810)))) + (cons __tmp10798 + __tmp10792)))) (declare (not safe)) - (cons __tmp8820 __tmp8809))) - (__tmp8805 - (let ((__tmp8807 + (cons __tmp10802 __tmp10791))) + (__tmp10787 + (let ((__tmp10789 (gx#datum->syntax '#f '=>)) - (__tmp8806 + (__tmp10788 (let () (declare (not safe)) - (cons _L7193_ '())))) + (cons _L9448_ '())))) (declare (not safe)) - (cons __tmp8807 __tmp8806)))) + (cons __tmp10789 __tmp10788)))) (declare (not safe)) - (cons __tmp8808 __tmp8805))) - (__tmp8797 - (let ((__tmp8798 - (let ((__tmp8803 + (cons __tmp10790 __tmp10787))) + (__tmp10779 + (let ((__tmp10780 + (let ((__tmp10785 (gx#datum->syntax '#f 'else)) - (__tmp8799 - (let ((__tmp8800 - (let ((__tmp8801 + (__tmp10781 + (let ((__tmp10782 + (let ((__tmp10783 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8802 + (let ((__tmp10784 (let () (declare (not safe)) - (cons _L7194_ '())))) + (cons _L9449_ '())))) (declare (not safe)) - (cons _L7195_ __tmp8802)))) + (cons _L9450_ __tmp10784)))) (declare (not safe)) - (cons _L7191_ __tmp8801)))) + (cons _L9446_ __tmp10783)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8800 '())))) + (cons __tmp10782 '())))) (declare (not safe)) - (cons __tmp8803 __tmp8799)))) + (cons __tmp10785 __tmp10781)))) (declare (not safe)) - (cons __tmp8798 '())))) + (cons __tmp10780 '())))) (declare (not safe)) - (cons __tmp8804 __tmp8797)))) + (cons __tmp10786 __tmp10779)))) (declare (not safe)) - (cons __tmp8821 __tmp8796)))) + (cons __tmp10803 __tmp10778)))) (declare (not safe)) - (cons __tmp8795 '())))) + (cons __tmp10777 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8822 - __tmp8794)))) + (cons __tmp10804 + __tmp10776)))) (declare (not safe)) - (cons __tmp8828 __tmp8793))) - (__tmp8788 - (let ((__tmp8789 - (let ((__tmp8790 - (let ((__tmp8791 + (cons __tmp10810 __tmp10775))) + (__tmp10770 + (let ((__tmp10771 + (let ((__tmp10772 + (let ((__tmp10773 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L7194_ '())))) + (cons _L9449_ '())))) (declare (not safe)) - (cons _L7195_ __tmp8791)))) + (cons _L9450_ __tmp10773)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L7191_ __tmp8790)))) + (cons _L9446_ __tmp10772)))) (declare (not safe)) - (cons __tmp8789 '())))) + (cons __tmp10771 '())))) (declare (not safe)) - (cons __tmp8792 __tmp8788)))) + (cons __tmp10774 __tmp10770)))) (declare (not safe)) - (cons __tmp8829 __tmp8787)))) + (cons __tmp10811 __tmp10769)))) (declare (not safe)) - (cons __tmp8832 __tmp8786))) - _hd71277185_ - _hd71247175_ - _hd71217165_ - _hd71187155_) - (_g71087134_ _g71097138_)))) + (cons __tmp10814 __tmp10768))) + _hd93829440_ + _hd93799430_ + _hd93769420_ + _hd93739410_) + (_g93639389_ _g93649393_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g71087134_ _g71097138_)))) - (_g71087134_ _g71097138_)))) - (_g71087134_ _g71097138_)))) - (_g71087134_ _g71097138_)))) - (_g71087134_ _g71097138_))))) - (_g71077218_ _$stx7104_)))) + (_g93639389_ _g93649393_)))) + (_g93639389_ _g93649393_)))) + (_g93639389_ _g93649393_)))) + (_g93639389_ _g93649393_)))) + (_g93639389_ _g93649393_))))) + (_g93629473_ _$stx9359_)))) diff --git a/src/bootstrap/gerbil/runtime/mop__rt.scm b/src/bootstrap/gerbil/runtime/mop__rt.scm index c3d0ed4e7..f40ce8df5 100644 --- a/src/bootstrap/gerbil/runtime/mop__rt.scm +++ b/src/bootstrap/gerbil/runtime/mop__rt.scm @@ -2,5 +2,6 @@ (begin (begin (load-module "gerbil/runtime/gambit__rt") - (load-module "gerbil/runtime/util__rt")) + (load-module "gerbil/runtime/util__rt") + (load-module "gerbil/runtime/c3__rt")) (load-module "gerbil/runtime/mop__0")) diff --git a/src/bootstrap/gerbil/runtime/repl__0.scm b/src/bootstrap/gerbil/runtime/repl__0.scm index 2ca686e78..49d7c28d1 100644 --- a/src/bootstrap/gerbil/runtime/repl__0.scm +++ b/src/bootstrap/gerbil/runtime/repl__0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1701718632) + (define gerbil/runtime/repl::timestamp 1706585167) (define replx (lambda () - (letrec ((_write-reason16139_ - (lambda (_exn16145_) - (lambda (_cont16147_ _port16148_) + (letrec ((_write-reason18121_ + (lambda (_exn18127_) + (lambda (_cont18129_ _port18130_) (let () (declare (not safe)) (##display-exception-in-context - _exn16145_ - _cont16147_ - _port16148_)) + _exn18127_ + _cont18129_ + _port18130_)) '#f)))) (with-exception-handler - (lambda (_exn16141_) - (let ((__tmp16149 - (lambda (_cont16143_) - (let ((__tmp16150 + (lambda (_exn18123_) + (let ((__tmp18131 + (lambda (_cont18125_) + (let ((__tmp18132 (let () (declare (not safe)) - (_write-reason16139_ _exn16141_)))) + (_write-reason18121_ _exn18123_)))) (declare (not safe)) - (##repl-within _cont16143_ __tmp16150 _exn16141_))))) + (##repl-within _cont18125_ __tmp18132 _exn18123_))))) (declare (not safe)) - (##continuation-capture __tmp16149))) + (##continuation-capture __tmp18131))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index ca1433882..29a067467 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 1701718632) + (define gerbil/runtime/syntax::timestamp 1706585167) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args12703_ - (apply make-class-instance SyntaxError::t _$args12703_))) + (lambda _$args14685_ + (apply make-class-instance SyntaxError::t _$args14685_))) (define SyntaxError-message (make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -60,79 +60,79 @@ (define &SyntaxError-marks-set! (make-class-slot-unchecked-mutator SyntaxError::t 'marks)) (define SyntaxError::display-exception - (lambda (_self12606_ _port12607_) - (letrec ((_location12609_ + (lambda (_self14588_ _port14589_) + (letrec ((_location14591_ (lambda () - (let _lp12663_ ((_rest12665_ - (slot-ref _self12606_ 'irritants))) - (let* ((_rest1266612674_ _rest12665_) - (_else1266812682_ (lambda () '#f)) - (_K1267012691_ - (lambda (_rest12685_ _hd12686_) - (let ((_$e12688_ (__AST-source _hd12686_))) - (if _$e12688_ - _$e12688_ - (_lp12663_ _rest12685_)))))) - (if (##pair? _rest1266612674_) - (let ((_hd1267112694_ (##car _rest1266612674_)) - (_tl1267212696_ (##cdr _rest1266612674_))) - (let* ((_hd12699_ _hd1267112694_) - (_rest12701_ _tl1267212696_)) - (_K1267012691_ _rest12701_ _hd12699_))) - (_else1266812682_))))))) + (let _lp14645_ ((_rest14647_ + (slot-ref _self14588_ 'irritants))) + (let* ((_rest1464814656_ _rest14647_) + (_else1465014664_ (lambda () '#f)) + (_K1465214673_ + (lambda (_rest14667_ _hd14668_) + (let ((_$e14670_ (__AST-source _hd14668_))) + (if _$e14670_ + _$e14670_ + (_lp14645_ _rest14667_)))))) + (if (##pair? _rest1464814656_) + (let ((_hd1465314676_ (##car _rest1464814656_)) + (_tl1465414678_ (##cdr _rest1464814656_))) + (let* ((_hd14681_ _hd1465314676_) + (_rest14683_ _tl1465414678_)) + (_K1465214673_ _rest14683_ _hd14681_))) + (_else1465014664_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e12612_ (_location12609_))) - (if _$e12612_ - ((lambda (_where12615_) - (##display-locat _where12615_ '#t (current-output-port))) - _$e12612_) + (let ((_$e14594_ (_location14591_))) + (if _$e14594_ + ((lambda (_where14597_) + (##display-locat _where14597_ '#t (current-output-port))) + _$e14594_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e12617_ (slot-ref _self12606_ 'where))) - (if _$e12617_ - ((lambda (_where12620_) + (let ((_$e14599_ (slot-ref _self14588_ 'where))) + (if _$e14599_ + ((lambda (_where14602_) (displayln '" at " - _where12620_ + _where14602_ '": " - (slot-ref _self12606_ 'message))) - _$e12617_) - (displayln '": " (slot-ref _self12606_ 'message)))) - (let* ((_g1262112629_ (slot-ref _self12606_ 'irritants)) - (_else1262312637_ (lambda () '#!void)) - (_K1262512650_ - (lambda (_rest12640_ _stx12641_) + (slot-ref _self14588_ 'message))) + _$e14599_) + (displayln '": " (slot-ref _self14588_ 'message)))) + (let* ((_g1460314611_ (slot-ref _self14588_ 'irritants)) + (_else1460514619_ (lambda () '#!void)) + (_K1460714632_ + (lambda (_rest14622_ _stx14623_) (display '"... form: ") - (__pp-syntax _stx12641_) + (__pp-syntax _stx14623_) (for-each - (lambda (_detail12643_) + (lambda (_detail14625_) (display '"... detail: ") - (write (__AST->datum _detail12643_)) - (let ((_$e12645_ (__AST-source _detail12643_))) - (if _$e12645_ - ((lambda (_loc12648_) + (write (__AST->datum _detail14625_)) + (let ((_$e14627_ (__AST-source _detail14625_))) + (if _$e14627_ + ((lambda (_loc14630_) (display '" at ") (##display-locat - _loc12648_ + _loc14630_ '#t (current-output-port))) - _$e12645_) + _$e14627_) '#!void)) (newline)) - _rest12640_)))) - (if (##pair? _g1262112629_) - (let ((_hd1262612653_ (##car _g1262112629_)) - (_tl1262712655_ (##cdr _g1262112629_))) - (let* ((_stx12658_ _hd1262612653_) - (_rest12660_ _tl1262712655_)) - (_K1262512650_ _rest12660_ _stx12658_))) + _rest14622_)))) + (if (##pair? _g1460314611_) + (let ((_hd1460814635_ (##car _g1460314611_)) + (_tl1460914637_ (##cdr _g1460314611_))) + (let* ((_stx14640_ _hd1460814635_) + (_rest14642_ _tl1460914637_)) + (_K1460714632_ _rest14642_ _stx14640_))) '#!void))) current-output-port - _port12607_)))) + _port14589_)))) (bind-method! SyntaxError::t 'display-exception @@ -140,33 +140,33 @@ '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message12477_ - _irritants12478_ - _where12479_ - _context12480_ - _marks12481_ - _phi12482_) + (lambda (_message14459_ + _irritants14460_ + _where14461_ + _context14462_ + _marks14463_ + _phi14464_) (make-class-instance SyntaxError::t 'message: - _message12477_ + _message14459_ 'irritants: - _irritants12478_ + _irritants14460_ 'where: - _where12479_ + _where14461_ 'context: - _context12480_ + _context14462_ 'marks: - _marks12481_ + _marks14463_ 'phi: - _phi12482_))) + _phi14464_))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where12472_ _message12473_ _stx12474_ . _details12475_) + (lambda (_where14454_ _message14455_ _stx14456_ . _details14457_) (raise (make-syntax-error - _message12473_ - (cons _stx12474_ _details12475_) - _where12472_ + _message14455_ + (cons _stx14456_ _details14457_) + _where14454_ (__current-context) '#f '#f)))) @@ -175,7 +175,7 @@ (make-struct-type 'gerbil#AST::t '#f '2 'syntax '() '#f '(e source))) (define AST? (make-struct-predicate AST::t)) (define make-AST - (lambda _$args12469_ (apply make-struct-instance AST::t _$args12469_))) + (lambda _$args14451_ (apply make-struct-instance AST::t _$args14451_))) (define AST-e (make-struct-field-accessor AST::t '0)) (define AST-source (make-struct-field-accessor AST::t '1)) (define AST-e-set! (make-struct-field-mutator AST::t '0)) @@ -185,169 +185,169 @@ (define &AST-e-set! (make-struct-field-unchecked-mutator AST::t '0)) (define &AST-source-set! (make-struct-field-unchecked-mutator AST::t '1)) (define __AST-e - (lambda (_stx12467_) - (if (##structure-instance-of? _stx12467_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx12467_ '1 AST::t '#f) - _stx12467_))) + (lambda (_stx14449_) + (if (##structure-instance-of? _stx14449_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx14449_ '1 AST::t '#f) + _stx14449_))) (define __AST-source - (lambda (_stx12461_) - (let _lp12463_ ((_src12465_ _stx12461_)) - (if (##structure-instance-of? _src12465_ 'gerbil#AST::t) - (_lp12463_ (##unchecked-structure-ref _src12465_ '2 AST::t '#f)) - (if (##locat? _src12465_) _src12465_ '#f))))) + (lambda (_stx14443_) + (let _lp14445_ ((_src14447_ _stx14443_)) + (if (##structure-instance-of? _src14447_ 'gerbil#AST::t) + (_lp14445_ (##unchecked-structure-ref _src14447_ '2 AST::t '#f)) + (if (##locat? _src14447_) _src14447_ '#f))))) (define __AST - (lambda (_e12453_ _src-stx12454_) - (let ((_src12456_ (__AST-source _src-stx12454_))) - (if (or (##structure-instance-of? _e12453_ 'gerbil#AST::t) - (not _src12456_)) - _e12453_ - (##structure AST::t _e12453_ _src12456_))))) + (lambda (_e14435_ _src-stx14436_) + (let ((_src14438_ (__AST-source _src-stx14436_))) + (if (or (##structure-instance-of? _e14435_ 'gerbil#AST::t) + (not _src14438_)) + _e14435_ + (##structure AST::t _e14435_ _src14438_))))) (define __AST-eq? - (lambda (_stx12450_ _obj12451_) (eq? (__AST-e _stx12450_) _obj12451_))) - (define __AST-pair? (lambda (_stx12448_) (pair? (__AST-e _stx12448_)))) - (define __AST-null? (lambda (_stx12446_) (null? (__AST-e _stx12446_)))) + (lambda (_stx14432_ _obj14433_) (eq? (__AST-e _stx14432_) _obj14433_))) + (define __AST-pair? (lambda (_stx14430_) (pair? (__AST-e _stx14430_)))) + (define __AST-null? (lambda (_stx14428_) (null? (__AST-e _stx14428_)))) (define __AST-datum? - (lambda (_stx12427_) - (let* ((_e12429_ (__AST-e _stx12427_)) (_$e12431_ (number? _e12429_))) - (if _$e12431_ - _$e12431_ - (let ((_$e12434_ (string? _e12429_))) - (if _$e12434_ - _$e12434_ - (let ((_$e12437_ (char? _e12429_))) - (if _$e12437_ - _$e12437_ - (let ((_$e12440_ (keyword? _e12429_))) - (if _$e12440_ - _$e12440_ - (let ((_$e12443_ (boolean? _e12429_))) - (if _$e12443_ - _$e12443_ - (eq? _e12429_ '#!void))))))))))))) - (define __AST-id? (lambda (_stx12425_) (symbol? (__AST-e _stx12425_)))) + (lambda (_stx14409_) + (let* ((_e14411_ (__AST-e _stx14409_)) (_$e14413_ (number? _e14411_))) + (if _$e14413_ + _$e14413_ + (let ((_$e14416_ (string? _e14411_))) + (if _$e14416_ + _$e14416_ + (let ((_$e14419_ (char? _e14411_))) + (if _$e14419_ + _$e14419_ + (let ((_$e14422_ (keyword? _e14411_))) + (if _$e14422_ + _$e14422_ + (let ((_$e14425_ (boolean? _e14411_))) + (if _$e14425_ + _$e14425_ + (eq? _e14411_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx14407_) (symbol? (__AST-e _stx14407_)))) (define __AST-id-list?__% - (lambda (_stx12376_ _tail?12377_) - (let _lp12379_ ((_rest12381_ _stx12376_)) - (let* ((_$e12383_ _rest12381_) - (_$E1238512398_ + (lambda (_stx14358_ _tail?14359_) + (let _lp14361_ ((_rest14363_ _stx14358_)) + (let* ((_$e14365_ _rest14363_) + (_$E1436714380_ (lambda () - (let* ((_$E1238612393_ + (let* ((_$E1436814375_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e12383_))) - (_rest12396_ _$e12383_)) - (_tail?12377_ _rest12396_))))) - (if (__AST-pair? _$e12383_) - (let* ((_$tgt1238712401_ (__AST-e _$e12383_)) - (_$hd1238812404_ (##car _$tgt1238712401_)) - (_$tl1238912407_ (##cdr _$tgt1238712401_))) - (let* ((_hd12411_ _$hd1238812404_) - (_rest12413_ _$tl1238912407_)) - (if (__AST-id? _hd12411_) (_lp12379_ _rest12413_) '#f))) - (_$E1238512398_)))))) + _$e14365_))) + (_rest14378_ _$e14365_)) + (_tail?14359_ _rest14378_))))) + (if (__AST-pair? _$e14365_) + (let* ((_$tgt1436914383_ (__AST-e _$e14365_)) + (_$hd1437014386_ (##car _$tgt1436914383_)) + (_$tl1437114389_ (##cdr _$tgt1436914383_))) + (let* ((_hd14393_ _$hd1437014386_) + (_rest14395_ _$tl1437114389_)) + (if (__AST-id? _hd14393_) (_lp14361_ _rest14395_) '#f))) + (_$E1436714380_)))))) (define __AST-id-list?__0 - (lambda (_stx12418_) - (let ((_tail?12420_ __AST-null?)) - (__AST-id-list?__% _stx12418_ _tail?12420_)))) + (lambda (_stx14400_) + (let ((_tail?14402_ __AST-null?)) + (__AST-id-list?__% _stx14400_ _tail?14402_)))) (define __AST-id-list? - (lambda _g12798_ - (let ((_g12797_ (##length _g12798_))) - (cond ((##fx= _g12797_ 1) - (apply (lambda (_stx12418_) (__AST-id-list?__0 _stx12418_)) - _g12798_)) - ((##fx= _g12797_ 2) - (apply (lambda (_stx12422_ _tail?12423_) - (__AST-id-list?__% _stx12422_ _tail?12423_)) - _g12798_)) + (lambda _g14780_ + (let ((_g14779_ (##length _g14780_))) + (cond ((##fx= _g14779_ 1) + (apply (lambda (_stx14400_) (__AST-id-list?__0 _stx14400_)) + _g14780_)) + ((##fx= _g14779_ 2) + (apply (lambda (_stx14404_ _tail?14405_) + (__AST-id-list?__% _stx14404_ _tail?14405_)) + _g14780_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g12798_)))))) + _g14780_)))))) (define __AST-bind-list? - (lambda (_stx12368_) + (lambda (_stx14350_) (__AST-id-list?__% - _stx12368_ - (lambda (_e12370_) - (let ((_$e12372_ (__AST-null? _e12370_))) - (if _$e12372_ _$e12372_ (__AST-id? _e12370_))))))) + _stx14350_ + (lambda (_e14352_) + (let ((_$e14354_ (__AST-null? _e14352_))) + (if _$e14354_ _$e14354_ (__AST-id? _e14352_))))))) (define __AST-list?__% - (lambda (_stx12321_ _tail?12322_) - (let _lp12324_ ((_rest12326_ _stx12321_)) - (let* ((_$e12328_ _rest12326_) - (_$E1233012343_ + (lambda (_stx14303_ _tail?14304_) + (let _lp14306_ ((_rest14308_ _stx14303_)) + (let* ((_$e14310_ _rest14308_) + (_$E1431214325_ (lambda () - (let* ((_$E1233112338_ + (let* ((_$E1431314320_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e12328_))) - (_rest12341_ _$e12328_)) - (_tail?12322_ _rest12341_))))) - (if (__AST-pair? _$e12328_) - (let* ((_$tgt1233212346_ (__AST-e _$e12328_)) - (_$hd1233312349_ (##car _$tgt1233212346_)) - (_$tl1233412352_ (##cdr _$tgt1233212346_))) - (let ((_rest12356_ _$tl1233412352_)) - (_lp12324_ _rest12356_))) - (_$E1233012343_)))))) + _$e14310_))) + (_rest14323_ _$e14310_)) + (_tail?14304_ _rest14323_))))) + (if (__AST-pair? _$e14310_) + (let* ((_$tgt1431414328_ (__AST-e _$e14310_)) + (_$hd1431514331_ (##car _$tgt1431414328_)) + (_$tl1431614334_ (##cdr _$tgt1431414328_))) + (let ((_rest14338_ _$tl1431614334_)) + (_lp14306_ _rest14338_))) + (_$E1431214325_)))))) (define __AST-list?__0 - (lambda (_stx12361_) - (let ((_tail?12363_ __AST-null?)) - (__AST-list?__% _stx12361_ _tail?12363_)))) + (lambda (_stx14343_) + (let ((_tail?14345_ __AST-null?)) + (__AST-list?__% _stx14343_ _tail?14345_)))) (define __AST-list? - (lambda _g12800_ - (let ((_g12799_ (##length _g12800_))) - (cond ((##fx= _g12799_ 1) - (apply (lambda (_stx12361_) (__AST-list?__0 _stx12361_)) - _g12800_)) - ((##fx= _g12799_ 2) - (apply (lambda (_stx12365_ _tail?12366_) - (__AST-list?__% _stx12365_ _tail?12366_)) - _g12800_)) + (lambda _g14782_ + (let ((_g14781_ (##length _g14782_))) + (cond ((##fx= _g14781_ 1) + (apply (lambda (_stx14343_) (__AST-list?__0 _stx14343_)) + _g14782_)) + ((##fx= _g14781_ 2) + (apply (lambda (_stx14347_ _tail?14348_) + (__AST-list?__% _stx14347_ _tail?14348_)) + _g14782_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g12800_)))))) + _g14782_)))))) (define __AST->list - (lambda (_stx12286_) - (let* ((_$e12288_ _stx12286_) - (_$E1229012303_ + (lambda (_stx14268_) + (let* ((_$e14270_ _stx14268_) + (_$E1427214285_ (lambda () - (let* ((_$E1229112298_ + (let* ((_$E1427314280_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e12288_))) - (_rest12301_ _$e12288_)) - (__AST-e _rest12301_))))) - (if (__AST-pair? _$e12288_) - (let* ((_$tgt1229212306_ (__AST-e _$e12288_)) - (_$hd1229312309_ (##car _$tgt1229212306_)) - (_$tl1229412312_ (##cdr _$tgt1229212306_))) - (let* ((_hd12316_ _$hd1229312309_) - (_rest12318_ _$tl1229412312_)) - (cons _hd12316_ (__AST->list _rest12318_)))) - (_$E1229012303_))))) + _$e14270_))) + (_rest14283_ _$e14270_)) + (__AST-e _rest14283_))))) + (if (__AST-pair? _$e14270_) + (let* ((_$tgt1427414288_ (__AST-e _$e14270_)) + (_$hd1427514291_ (##car _$tgt1427414288_)) + (_$tl1427614294_ (##cdr _$tgt1427414288_))) + (let* ((_hd14298_ _$hd1427514291_) + (_rest14300_ _$tl1427614294_)) + (cons _hd14298_ (__AST->list _rest14300_)))) + (_$E1427214285_))))) (define __AST->datum - (lambda (_stx12284_) - (if (##structure-instance-of? _stx12284_ 'gerbil#AST::t) - (__AST->datum (__AST-e _stx12284_)) - (if (pair? _stx12284_) - (cons (__AST->datum (car _stx12284_)) - (__AST->datum (cdr _stx12284_))) - (if (vector? _stx12284_) - (vector-map __AST->datum _stx12284_) - (if (box? _stx12284_) - (box (__AST->datum (unbox _stx12284_))) - _stx12284_)))))) + (lambda (_stx14266_) + (if (##structure-instance-of? _stx14266_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx14266_)) + (if (pair? _stx14266_) + (cons (__AST->datum (car _stx14266_)) + (__AST->datum (cdr _stx14266_))) + (if (vector? _stx14266_) + (vector-map __AST->datum _stx14266_) + (if (box? _stx14266_) + (box (__AST->datum (unbox _stx14266_))) + _stx14266_)))))) (define get-readenv - (lambda (_port12282_) + (lambda (_port14264_) (##make-readenv - _port12282_ + _port14264_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -355,83 +355,83 @@ '() '#f))) (define read-syntax__% - (lambda (_in12270_) - (let ((_e12272_ (##read-datum-or-eof (get-readenv _in12270_)))) - (if (eof-object? (__AST-e _e12272_)) (__AST-e _e12272_) _e12272_)))) + (lambda (_in14252_) + (let ((_e14254_ (##read-datum-or-eof (get-readenv _in14252_)))) + (if (eof-object? (__AST-e _e14254_)) (__AST-e _e14254_) _e14254_)))) (define read-syntax__0 (lambda () - (let ((_in12278_ (current-input-port))) (read-syntax__% _in12278_)))) + (let ((_in14260_ (current-input-port))) (read-syntax__% _in14260_)))) (define read-syntax - (lambda _g12802_ - (let ((_g12801_ (##length _g12802_))) - (cond ((##fx= _g12801_ 0) - (apply (lambda () (read-syntax__0)) _g12802_)) - ((##fx= _g12801_ 1) - (apply (lambda (_in12280_) (read-syntax__% _in12280_)) - _g12802_)) + (lambda _g14784_ + (let ((_g14783_ (##length _g14784_))) + (cond ((##fx= _g14783_ 0) + (apply (lambda () (read-syntax__0)) _g14784_)) + ((##fx= _g14783_ 1) + (apply (lambda (_in14262_) (read-syntax__% _in14262_)) + _g14784_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g12802_)))))) + _g14784_)))))) (define read-syntax-from-file - (lambda (_path12265_) - (let ((_r12267_ + (lambda (_path14247_) + (let ((_r14249_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path12265_) + (path-normalize _path14247_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r12267_) - (cdr (__AST-e (vector-ref _r12267_ '1))) - (error (err-code->string _r12267_) _path12265_))))) + (if (vector? _r14249_) + (cdr (__AST-e (vector-ref _r14249_ '1))) + (error (err-code->string _r14249_) _path14247_))))) (define __wrap-syntax - (lambda (_re12262_ _e12263_) - (if (eof-object? _e12263_) - _e12263_ - (##structure AST::t _e12263_ (##readenv->locat _re12262_))))) - (define __unwrap-syntax (lambda (_re12259_ _e12260_) (__AST-e _e12260_))) - (define __pp-syntax (lambda (_stx12257_) (pp (__AST->datum _stx12257_)))) + (lambda (_re14244_ _e14245_) + (if (eof-object? _e14245_) + _e14245_ + (##structure AST::t _e14245_ (##readenv->locat _re14244_))))) + (define __unwrap-syntax (lambda (_re14241_ _e14242_) (__AST-e _e14242_))) + (define __pp-syntax (lambda (_stx14239_) (pp (__AST->datum _stx14239_)))) (define __make-readtable (lambda () - (let ((_rt12255_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _rt12255_ '#t) - (macro-readtable-bracket-handler-set! _rt12255_ '@list) - (macro-readtable-brace-handler-set! _rt12255_ '@method) + (let ((_rt14237_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt14237_ '#t) + (macro-readtable-bracket-handler-set! _rt14237_ '@list) + (macro-readtable-brace-handler-set! _rt14237_ '@method) (##readtable-char-sharp-handler-set! - _rt12255_ + _rt14237_ '#\! __read-sharp-bang) - _rt12255_))) + _rt14237_))) (define __readtable-bracket-keyword-set! - (lambda (_rt12251_ _kw12252_) - (macro-readtable-bracket-handler-set! _rt12251_ _kw12252_))) + (lambda (_rt14233_ _kw14234_) + (macro-readtable-bracket-handler-set! _rt14233_ _kw14234_))) (define __readtable-brace-keyword-set! - (lambda (_rt12248_ _kw12249_) - (macro-readtable-brace-handler-set! _rt12248_ _kw12249_))) + (lambda (_rt14230_ _kw14231_) + (macro-readtable-brace-handler-set! _rt14230_ _kw14231_))) (define __read-sharp-bang - (lambda (_re12239_ _next12240_ _start-pos12241_) - (if (eq? _start-pos12241_ '0) - (let* ((_line12243_ + (lambda (_re14221_ _next14222_ _start-pos14223_) + (if (eq? _start-pos14223_ '0) + (let* ((_line14225_ (##read-line - (macro-readenv-port _re12239_) + (macro-readenv-port _re14221_) '#\newline '#f ##max-fixnum)) - (_script-line12245_ - (substring _line12243_ '1 (string-length _line12243_)))) - (macro-readenv-script-line-set! _re12239_ _script-line12245_) + (_script-line14227_ + (substring _line14225_ '1 (string-length _line14225_)))) + (macro-readenv-script-line-set! _re14221_ _script-line14227_) (##script-marker)) - (##read-sharp-bang _re12239_ _next12240_ _start-pos12241_)))) + (##read-sharp-bang _re14221_ _next14222_ _start-pos14223_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj12237_) - (if (source-location? _obj12237_) - (string? (##locat-container _obj12237_)) + (lambda (_obj14219_) + (if (source-location? _obj14219_) + (string? (##locat-container _obj14219_)) '#f))) (define source-location-path - (lambda (_obj12235_) - (if (##locat? _obj12235_) - (##container->path (##locat-container _obj12235_)) + (lambda (_obj14217_) + (if (##locat? _obj14217_) + (##container->path (##locat-container _obj14217_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__1.scm b/src/bootstrap/gerbil/runtime/syntax__1.scm index 3a770215a..22c2f47e2 100644 --- a/src/bootstrap/gerbil/runtime/syntax__1.scm +++ b/src/bootstrap/gerbil/runtime/syntax__1.scm @@ -1,174 +1,174 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g12907_| + (define |[1]#_g14889_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g12913_| + (define |[1]#_g14895_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g12926_| + (define |[1]#_g14908_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12928_| + (define |[1]#_g14910_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12930_| + (define |[1]#_g14912_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12932_| + (define |[1]#_g14914_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12934_| + (define |[1]#_g14916_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12936_| + (define |[1]#_g14918_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12944_| + (define |[1]#_g14926_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g12946_| + (define |[1]#_g14928_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g12948_| + (define |[1]#_g14930_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g12950_| + (define |[1]#_g14932_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g12952_| + (define |[1]#_g14934_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g12954_| + (define |[1]#_g14936_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g12956_| + (define |[1]#_g14938_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g12958_| + (define |[1]#_g14940_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g12962_| + (define |[1]#_g14944_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g12963_| + (define |[1]#_g14945_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g12964_| + (define |[1]#_g14946_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g12973_| + (define |[1]#_g14955_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12975_| + (define |[1]#_g14957_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12979_| + (define |[1]#_g14961_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g12981_| + (define |[1]#_g14963_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g12983_| + (define |[1]#_g14965_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g12985_| + (define |[1]#_g14967_| (##structure gx#syntax-quote::t 'make-AST @@ -177,1254 +177,1254 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx11124_) - (let* ((_g1112811152_ - (lambda (_g1112911148_) + (lambda (_$stx13106_) + (let* ((_g1311013134_ + (lambda (_g1311113130_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1112911148_))) - (_g1112711238_ - (lambda (_g1112911156_) - (if (gx#stx-pair? _g1112911156_) - (let ((_e1113411159_ (gx#syntax-e _g1112911156_))) - (let ((_hd1113311163_ + _g1311113130_))) + (_g1310913220_ + (lambda (_g1311113138_) + (if (gx#stx-pair? _g1311113138_) + (let ((_e1311613141_ (gx#syntax-e _g1311113138_))) + (let ((_hd1311513145_ (let () (declare (not safe)) - (##car _e1113411159_))) - (_tl1113211166_ + (##car _e1311613141_))) + (_tl1311413148_ (let () (declare (not safe)) - (##cdr _e1113411159_)))) - (if (gx#stx-pair? _tl1113211166_) - (let ((_e1113711169_ - (gx#syntax-e _tl1113211166_))) - (let ((_hd1113611173_ + (##cdr _e1311613141_)))) + (if (gx#stx-pair? _tl1311413148_) + (let ((_e1311913151_ + (gx#syntax-e _tl1311413148_))) + (let ((_hd1311813155_ (let () (declare (not safe)) - (##car _e1113711169_))) - (_tl1113511176_ + (##car _e1311913151_))) + (_tl1311713158_ (let () (declare (not safe)) - (##cdr _e1113711169_)))) - (if (gx#stx-pair/null? _tl1113511176_) - (let ((_g12803_ + (##cdr _e1311913151_)))) + (if (gx#stx-pair/null? _tl1311713158_) + (let ((_g14785_ (gx#syntax-split-splice - _tl1113511176_ + _tl1311713158_ '0))) (begin - (let ((_g12804_ + (let ((_g14786_ (let () (declare (not safe)) - (if (##values? _g12803_) + (if (##values? _g14785_) (##vector-length - _g12803_) + _g14785_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g12804_ 2))) + (##fx= _g14786_ 2))) (error "Context expects 2 values" - _g12804_))) - (let ((_target1113811179_ + _g14786_))) + (let ((_target1312013161_ (let () (declare (not safe)) - (##vector-ref _g12803_ 0))) - (_tl1114011182_ + (##vector-ref _g14785_ 0))) + (_tl1312213164_ (let () (declare (not safe)) - (##vector-ref _g12803_ 1)))) - (if (gx#stx-null? _tl1114011182_) - (letrec ((_loop1114111185_ - (lambda (_hd1113911189_ + (##vector-ref _g14785_ 1)))) + (if (gx#stx-null? _tl1312213164_) + (letrec ((_loop1312313167_ + (lambda (_hd1312113171_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body1114511192_) - (if (gx#stx-pair? _hd1113911189_) - (let ((_e1114211195_ (gx#syntax-e _hd1113911189_))) - (let ((_lp-hd1114311199_ + _body1312713174_) + (if (gx#stx-pair? _hd1312113171_) + (let ((_e1312413177_ (gx#syntax-e _hd1312113171_))) + (let ((_lp-hd1312513181_ (let () (declare (not safe)) - (##car _e1114211195_))) - (_lp-tl1114411202_ + (##car _e1312413177_))) + (_lp-tl1312613184_ (let () (declare (not safe)) - (##cdr _e1114211195_)))) - (_loop1114111185_ - _lp-tl1114411202_ + (##cdr _e1312413177_)))) + (_loop1312313167_ + _lp-tl1312613184_ (let () (declare (not safe)) - (cons _lp-hd1114311199_ _body1114511192_))))) - (let ((_body1114611205_ (reverse _body1114511192_))) - ((lambda (_L11209_ _L11211_) - (let ((__tmp12816 (gx#datum->syntax '#f 'let)) - (__tmp12805 - (let ((__tmp12813 - (let ((__tmp12815 + (cons _lp-hd1312513181_ _body1312713174_))))) + (let ((_body1312813187_ (reverse _body1312713174_))) + ((lambda (_L13191_ _L13193_) + (let ((__tmp14798 (gx#datum->syntax '#f 'let)) + (__tmp14787 + (let ((__tmp14795 + (let ((__tmp14797 (gx#datum->syntax '#f '$e)) - (__tmp12814 + (__tmp14796 (let () (declare (not safe)) - (cons _L11211_ '())))) + (cons _L13193_ '())))) (declare (not safe)) - (cons __tmp12815 __tmp12814))) - (__tmp12806 - (let ((__tmp12807 - (let ((__tmp12812 + (cons __tmp14797 __tmp14796))) + (__tmp14788 + (let ((__tmp14789 + (let ((__tmp14794 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp12808 - (let ((__tmp12811 + (__tmp14790 + (let ((__tmp14793 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp12809 - (let ((__tmp12810 - (lambda (_g1122911232_ _g1123011235_) + (__tmp14791 + (let ((__tmp14792 + (lambda (_g1321113214_ _g1321213217_) (let () (declare (not safe)) - (cons _g1122911232_ _g1123011235_))))) + (cons _g1321113214_ _g1321213217_))))) (declare (not safe)) - (foldr1 __tmp12810 '() _L11209_)))) + (foldr1 __tmp14792 '() _L13191_)))) (declare (not safe)) - (cons __tmp12811 __tmp12809)))) + (cons __tmp14793 __tmp14791)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12812 - __tmp12808)))) + (cons __tmp14794 + __tmp14790)))) (declare (not safe)) - (cons __tmp12807 '())))) + (cons __tmp14789 '())))) (declare (not safe)) - (cons __tmp12813 __tmp12806)))) + (cons __tmp14795 __tmp14788)))) (declare (not safe)) - (cons __tmp12816 __tmp12805))) - _body1114611205_ - _hd1113611173_)))))) + (cons __tmp14798 __tmp14787))) + _body1312813187_ + _hd1311813155_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1114111185_ - _target1113811179_ + (_loop1312313167_ + _target1312013161_ '())) - (_g1112811152_ - _g1112911156_))))) - (_g1112811152_ _g1112911156_)))) - (_g1112811152_ _g1112911156_)))) - (_g1112811152_ _g1112911156_))))) - (_g1112711238_ _$stx11124_)))) + (_g1311013134_ + _g1311113138_))))) + (_g1311013134_ _g1311113138_)))) + (_g1311013134_ _g1311113138_)))) + (_g1311013134_ _g1311113138_))))) + (_g1310913220_ _$stx13106_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx11243_) - (letrec ((_generate111246_ - (lambda (_hd11787_ _tgt11789_ _K11790_ _E11791_ _kws11792_) - (let* ((_g1179411802_ - (lambda (_g1179511798_) + (lambda (_stx13225_) + (letrec ((_generate113228_ + (lambda (_hd13769_ _tgt13771_ _K13772_ _E13773_ _kws13774_) + (let* ((_g1377613784_ + (lambda (_g1377713780_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1179511798_))) - (_g1179312229_ - (lambda (_g1179511806_) - ((lambda (_L11809_) + _g1377713780_))) + (_g1377514211_ + (lambda (_g1377713788_) + ((lambda (_L13791_) (let () - (let* ((___stx1270612707_ _hd11787_) - (_g1182311837_ + (let* ((___stx1468814689_ _hd13769_) + (_g1380513819_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx1270612707_)))) - (let ((___kont1270912710_ - (lambda (_L12051_ _L12053_) - (let* ((_g1206412072_ - (lambda (_g1206512068_) + ___stx1468814689_)))) + (let ((___kont1469114692_ + (lambda (_L14033_ _L14035_) + (let* ((_g1404614054_ + (lambda (_g1404714050_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1206512068_))) - (_g1206312221_ - (lambda (_g1206512076_) - ((lambda (_L12079_) + _g1404714050_))) + (_g1404514203_ + (lambda (_g1404714058_) + ((lambda (_L14061_) (let () - (let* ((_g1209112099_ + (let* ((_g1407314081_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1209212095_) + (lambda (_g1407414077_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1209212095_))) - (_g1209012217_ - (lambda (_g1209212103_) - ((lambda (_L12106_) + _g1407414077_))) + (_g1407214199_ + (lambda (_g1407414085_) + ((lambda (_L14088_) (let () - (let* ((_g1211912127_ - (lambda (_g1212012123_) + (let* ((_g1410114109_ + (lambda (_g1410214105_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1212012123_))) - (_g1211812213_ - (lambda (_g1212012131_) - ((lambda (_L12134_) + _g1410214105_))) + (_g1410014195_ + (lambda (_g1410214113_) + ((lambda (_L14116_) (let () - (let* ((_g1214712155_ - (lambda (_g1214812151_) + (let* ((_g1412914137_ + (lambda (_g1413014133_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1214812151_))) - (_g1214612209_ - (lambda (_g1214812159_) - ((lambda (_L12162_) + _g1413014133_))) + (_g1412814191_ + (lambda (_g1413014141_) + ((lambda (_L14144_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g1217512183_ - (lambda (_g1217612179_) + (let* ((_g1415714165_ + (lambda (_g1415814161_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1217612179_))) - (_g1217412205_ - (lambda (_g1217612187_) - ((lambda (_L12190_) + _g1415814161_))) + (_g1415614187_ + (lambda (_g1415814169_) + ((lambda (_L14172_) (let () (let () - (let ((__tmp12845 + (let ((__tmp14827 (gx#datum->syntax '#f 'if)) - (__tmp12817 - (let ((__tmp12842 - (let ((__tmp12844 + (__tmp14799 + (let ((__tmp14824 + (let ((__tmp14826 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp12843 - (let () (declare (not safe)) (cons _L11809_ '())))) + (__tmp14825 + (let () (declare (not safe)) (cons _L13791_ '())))) (declare (not safe)) - (cons __tmp12844 __tmp12843))) - (__tmp12818 - (let ((__tmp12820 - (let ((__tmp12841 (gx#datum->syntax '#f 'let*)) - (__tmp12821 - (let ((__tmp12823 - (let ((__tmp12836 - (let ((__tmp12837 - (let ((__tmp12838 - (let ((__tmp12840 + (cons __tmp14826 __tmp14825))) + (__tmp14800 + (let ((__tmp14802 + (let ((__tmp14823 (gx#datum->syntax '#f 'let*)) + (__tmp14803 + (let ((__tmp14805 + (let ((__tmp14818 + (let ((__tmp14819 + (let ((__tmp14820 + (let ((__tmp14822 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp12839 - (let () (declare (not safe)) (cons _L11809_ '())))) + (__tmp14821 + (let () (declare (not safe)) (cons _L13791_ '())))) (declare (not safe)) - (cons __tmp12840 __tmp12839)))) + (cons __tmp14822 __tmp14821)))) (declare (not safe)) - (cons __tmp12838 '())))) + (cons __tmp14820 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L12079_ __tmp12837))) - (__tmp12824 - (let ((__tmp12831 - (let ((__tmp12832 - (let ((__tmp12833 + (cons _L14061_ __tmp14819))) + (__tmp14806 + (let ((__tmp14813 + (let ((__tmp14814 + (let ((__tmp14815 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12835 (gx#datum->syntax '#f '##car)) - (__tmp12834 + (let ((__tmp14817 (gx#datum->syntax '#f '##car)) + (__tmp14816 (let () (declare (not safe)) - (cons _L12079_ '())))) + (cons _L14061_ '())))) (declare (not safe)) - (cons __tmp12835 __tmp12834)))) + (cons __tmp14817 __tmp14816)))) (declare (not safe)) - (cons __tmp12833 '())))) + (cons __tmp14815 '())))) (declare (not safe)) - (cons _L12106_ __tmp12832))) + (cons _L14088_ __tmp14814))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp12825 - (let ((__tmp12826 - (let ((__tmp12827 + (__tmp14807 + (let ((__tmp14808 + (let ((__tmp14809 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12828 - (let ((__tmp12830 + (let ((__tmp14810 + (let ((__tmp14812 (gx#datum->syntax '#f '##cdr)) - (__tmp12829 + (__tmp14811 (let () (declare (not safe)) - (cons _L12079_ '())))) + (cons _L14061_ '())))) (declare (not safe)) - (cons __tmp12830 __tmp12829)))) + (cons __tmp14812 __tmp14811)))) (declare (not safe)) - (cons __tmp12828 '())))) + (cons __tmp14810 '())))) (declare (not safe)) - (cons _L12134_ __tmp12827)))) + (cons _L14116_ __tmp14809)))) (declare (not safe)) - (cons __tmp12826 '())))) + (cons __tmp14808 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12831 __tmp12825)))) + (cons __tmp14813 __tmp14807)))) (declare (not safe)) - (cons __tmp12836 __tmp12824))) - (__tmp12822 + (cons __tmp14818 __tmp14806))) + (__tmp14804 (let () (declare (not safe)) - (cons _L12162_ '())))) + (cons _L14144_ '())))) (declare (not safe)) - (cons __tmp12823 __tmp12822)))) + (cons __tmp14805 __tmp14804)))) (declare (not safe)) - (cons __tmp12841 __tmp12821))) - (__tmp12819 - (let () (declare (not safe)) (cons _L12190_ '())))) + (cons __tmp14823 __tmp14803))) + (__tmp14801 + (let () (declare (not safe)) (cons _L14172_ '())))) (declare (not safe)) - (cons __tmp12820 __tmp12819)))) + (cons __tmp14802 __tmp14801)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12842 - __tmp12818)))) + (cons __tmp14824 + __tmp14800)))) (declare (not safe)) - (cons __tmp12845 __tmp12817))))) - _g1217612187_)))) - (_g1217412205_ _E11791_)))) - _g1214812159_)))) + (cons __tmp14827 __tmp14799))))) + _g1415814169_)))) + (_g1415614187_ _E13773_)))) + _g1413014141_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1214612209_ - (_generate111246_ - _L12053_ - _L12106_ - (_generate111246_ - _L12051_ - _L12134_ - _K11790_ - _E11791_ - _kws11792_) - _E11791_ - _kws11792_))))) - _g1212012131_)))) - (_g1211812213_ (gx#genident '$tl))))) - _g1209212103_)))) - (_g1209012217_ (gx#genident '$hd))))) - _g1206512076_)))) + (_g1412814191_ + (_generate113228_ + _L14035_ + _L14088_ + (_generate113228_ + _L14033_ + _L14116_ + _K13772_ + _E13773_ + _kws13774_) + _E13773_ + _kws13774_))))) + _g1410214113_)))) + (_g1410014195_ (gx#genident '$tl))))) + _g1407414085_)))) + (_g1407214199_ (gx#genident '$hd))))) + _g1404714058_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1206312221_ + (_g1404514203_ (gx#genident '$tgt))))) - (___kont1271112712_ - (lambda (_L11926_) - (if (gx#underscore? _L11926_) - _K11790_ - (if (let ((__tmp12874 - (lambda (_g1193411936_) + (___kont1469314694_ + (lambda (_L13908_) + (if (gx#underscore? _L13908_) + _K13772_ + (if (let ((__tmp14856 + (lambda (_g1391613918_) (gx#bound-identifier=? - _g1193411936_ - _L11926_))) - (__tmp12873 + _g1391613918_ + _L13908_))) + (__tmp14855 (gx#syntax->list - _kws11792_))) + _kws13774_))) (declare (not safe)) - (find __tmp12874 - __tmp12873)) - (let* ((_g1194011955_ - (lambda (_g1194111951_) + (find __tmp14856 + __tmp14855)) + (let* ((_g1392213937_ + (lambda (_g1392313933_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g1194111951_))) - (_g1193912000_ - (lambda (_g1194111959_) - (if (gx#stx-pair? _g1194111959_) - (let ((_e1194611962_ (gx#syntax-e _g1194111959_))) - (let ((_hd1194511966_ + _g1392313933_))) + (_g1392113982_ + (lambda (_g1392313941_) + (if (gx#stx-pair? _g1392313941_) + (let ((_e1392813944_ (gx#syntax-e _g1392313941_))) + (let ((_hd1392713948_ (let () (declare (not safe)) - (##car _e1194611962_))) - (_tl1194411969_ + (##car _e1392813944_))) + (_tl1392613951_ (let () (declare (not safe)) - (##cdr _e1194611962_)))) - (if (gx#stx-pair? _tl1194411969_) - (let ((_e1194911972_ - (gx#syntax-e _tl1194411969_))) - (let ((_hd1194811976_ + (##cdr _e1392813944_)))) + (if (gx#stx-pair? _tl1392613951_) + (let ((_e1393113954_ + (gx#syntax-e _tl1392613951_))) + (let ((_hd1393013958_ (let () (declare (not safe)) - (##car _e1194911972_))) - (_tl1194711979_ + (##car _e1393113954_))) + (_tl1392913961_ (let () (declare (not safe)) - (##cdr _e1194911972_)))) - (if (gx#stx-null? _tl1194711979_) - ((lambda (_L11982_ _L11984_) + (##cdr _e1393113954_)))) + (if (gx#stx-null? _tl1392913961_) + ((lambda (_L13964_ _L13966_) (let () - (let ((__tmp12872 + (let ((__tmp14854 (gx#datum->syntax '#f 'if)) - (__tmp12852 - (let ((__tmp12855 - (let ((__tmp12871 + (__tmp14834 + (let ((__tmp14837 + (let ((__tmp14853 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp12856 - (let ((__tmp12868 - (let ((__tmp12870 + (__tmp14838 + (let ((__tmp14850 + (let ((__tmp14852 (gx#datum->syntax '#f '__AST-id?)) - (__tmp12869 + (__tmp14851 (let () (declare (not safe)) - (cons _L11809_ '())))) + (cons _L13791_ '())))) (declare (not safe)) - (cons __tmp12870 __tmp12869))) - (__tmp12857 - (let ((__tmp12858 - (let ((__tmp12867 + (cons __tmp14852 __tmp14851))) + (__tmp14839 + (let ((__tmp14840 + (let ((__tmp14849 (gx#datum->syntax '#f 'eq?)) - (__tmp12859 - (let ((__tmp12864 - (let ((__tmp12866 + (__tmp14841 + (let ((__tmp14846 + (let ((__tmp14848 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp12865 - (let () (declare (not safe)) (cons _L11809_ '())))) + (__tmp14847 + (let () (declare (not safe)) (cons _L13791_ '())))) (declare (not safe)) - (cons __tmp12866 __tmp12865))) - (__tmp12860 - (let ((__tmp12861 - (let ((__tmp12863 (gx#datum->syntax '#f 'quote)) - (__tmp12862 + (cons __tmp14848 __tmp14847))) + (__tmp14842 + (let ((__tmp14843 + (let ((__tmp14845 (gx#datum->syntax '#f 'quote)) + (__tmp14844 (let () (declare (not safe)) - (cons _L11926_ '())))) + (cons _L13908_ '())))) (declare (not safe)) - (cons __tmp12863 __tmp12862)))) + (cons __tmp14845 __tmp14844)))) (declare (not safe)) - (cons __tmp12861 '())))) + (cons __tmp14843 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12864 - __tmp12860)))) + (cons __tmp14846 + __tmp14842)))) (declare (not safe)) - (cons __tmp12867 __tmp12859)))) + (cons __tmp14849 __tmp14841)))) (declare (not safe)) - (cons __tmp12858 '())))) + (cons __tmp14840 '())))) (declare (not safe)) - (cons __tmp12868 __tmp12857)))) + (cons __tmp14850 __tmp14839)))) (declare (not safe)) - (cons __tmp12871 __tmp12856))) - (__tmp12853 - (let ((__tmp12854 + (cons __tmp14853 __tmp14838))) + (__tmp14835 + (let ((__tmp14836 (let () (declare (not safe)) - (cons _L11982_ '())))) + (cons _L13964_ '())))) (declare (not safe)) - (cons _L11984_ __tmp12854)))) + (cons _L13966_ __tmp14836)))) (declare (not safe)) - (cons __tmp12855 __tmp12853)))) + (cons __tmp14837 __tmp14835)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12872 - __tmp12852)))) - _hd1194811976_ - _hd1194511966_) - (_g1194011955_ _g1194111959_)))) - (_g1194011955_ _g1194111959_)))) - (_g1194011955_ _g1194111959_))))) - (_g1193912000_ (list _K11790_ _E11791_))) - (let* ((_g1200412012_ - (lambda (_g1200512008_) + (cons __tmp14854 + __tmp14834)))) + _hd1393013958_ + _hd1392713948_) + (_g1392213937_ _g1392313941_)))) + (_g1392213937_ _g1392313941_)))) + (_g1392213937_ _g1392313941_))))) + (_g1392113982_ (list _K13772_ _E13773_))) + (let* ((_g1398613994_ + (lambda (_g1398713990_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1200512008_))) - (_g1200312030_ - (lambda (_g1200512016_) - ((lambda (_L12019_) + _g1398713990_))) + (_g1398514012_ + (lambda (_g1398713998_) + ((lambda (_L14001_) (let () - (let ((__tmp12851 (gx#datum->syntax '#f 'let)) - (__tmp12846 - (let ((__tmp12848 - (let ((__tmp12849 - (let ((__tmp12850 + (let ((__tmp14833 (gx#datum->syntax '#f 'let)) + (__tmp14828 + (let ((__tmp14830 + (let ((__tmp14831 + (let ((__tmp14832 (let () (declare (not safe)) - (cons _L11809_ + (cons _L13791_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L11926_ - __tmp12850)))) + (cons _L13908_ + __tmp14832)))) (declare (not safe)) - (cons __tmp12849 '()))) - (__tmp12847 + (cons __tmp14831 '()))) + (__tmp14829 (let () (declare (not safe)) - (cons _L12019_ '())))) + (cons _L14001_ '())))) (declare (not safe)) - (cons __tmp12848 __tmp12847)))) + (cons __tmp14830 __tmp14829)))) (declare (not safe)) - (cons __tmp12851 __tmp12846)))) - _g1200512016_)))) - (_g1200312030_ _K11790_)))))) + (cons __tmp14833 __tmp14828)))) + _g1398713998_)))) + (_g1398514012_ _K13772_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1271312714_ - (lambda (_L11844_) - (let* ((_g1185511870_ - (lambda (_g1185611866_) + (___kont1469514696_ + (lambda (_L13826_) + (let* ((_g1383713852_ + (lambda (_g1383813848_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1185611866_))) - (_g1185411915_ - (lambda (_g1185611874_) + _g1383813848_))) + (_g1383613897_ + (lambda (_g1383813856_) (if (gx#stx-pair? - _g1185611874_) - (let ((_e1186111877_ + _g1383813856_) + (let ((_e1384313859_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1185611874_))) - (let ((_hd1186011881_ + (gx#syntax-e _g1383813856_))) + (let ((_hd1384213863_ (let () (declare (not safe)) - (##car _e1186111877_))) - (_tl1185911884_ + (##car _e1384313859_))) + (_tl1384113866_ (let () (declare (not safe)) - (##cdr _e1186111877_)))) - (if (gx#stx-pair? _tl1185911884_) - (let ((_e1186411887_ (gx#syntax-e _tl1185911884_))) - (let ((_hd1186311891_ + (##cdr _e1384313859_)))) + (if (gx#stx-pair? _tl1384113866_) + (let ((_e1384613869_ (gx#syntax-e _tl1384113866_))) + (let ((_hd1384513873_ (let () (declare (not safe)) - (##car _e1186411887_))) - (_tl1186211894_ + (##car _e1384613869_))) + (_tl1384413876_ (let () (declare (not safe)) - (##cdr _e1186411887_)))) - (if (gx#stx-null? _tl1186211894_) - ((lambda (_L11897_ _L11899_) + (##cdr _e1384613869_)))) + (if (gx#stx-null? _tl1384413876_) + ((lambda (_L13879_ _L13881_) (let () - (let ((__tmp12888 + (let ((__tmp14870 (gx#datum->syntax '#f 'if)) - (__tmp12875 - (let ((__tmp12878 - (let ((__tmp12887 + (__tmp14857 + (let ((__tmp14860 + (let ((__tmp14869 (gx#datum->syntax '#f 'equal?)) - (__tmp12879 - (let ((__tmp12884 + (__tmp14861 + (let ((__tmp14866 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12886 (gx#datum->syntax '#f '__AST-e)) - (__tmp12885 + (let ((__tmp14868 (gx#datum->syntax '#f '__AST-e)) + (__tmp14867 (let () (declare (not safe)) - (cons _L11809_ '())))) + (cons _L13791_ '())))) (declare (not safe)) - (cons __tmp12886 __tmp12885))) - (__tmp12880 - (let ((__tmp12881 - (let ((__tmp12883 + (cons __tmp14868 __tmp14867))) + (__tmp14862 + (let ((__tmp14863 + (let ((__tmp14865 (gx#datum->syntax '#f 'quote)) - (__tmp12882 + (__tmp14864 (let () (declare (not safe)) - (cons _L11844_ '())))) + (cons _L13826_ '())))) (declare (not safe)) - (cons __tmp12883 __tmp12882)))) + (cons __tmp14865 __tmp14864)))) (declare (not safe)) - (cons __tmp12881 '())))) + (cons __tmp14863 '())))) (declare (not safe)) - (cons __tmp12884 __tmp12880)))) + (cons __tmp14866 __tmp14862)))) (declare (not safe)) - (cons __tmp12887 __tmp12879))) - (__tmp12876 - (let ((__tmp12877 - (let () (declare (not safe)) (cons _L11897_ '())))) + (cons __tmp14869 __tmp14861))) + (__tmp14858 + (let ((__tmp14859 + (let () (declare (not safe)) (cons _L13879_ '())))) (declare (not safe)) - (cons _L11899_ __tmp12877)))) + (cons _L13881_ __tmp14859)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12878 - __tmp12876)))) + (cons __tmp14860 + __tmp14858)))) (declare (not safe)) - (cons __tmp12888 __tmp12875)))) - _hd1186311891_ - _hd1186011881_) - (_g1185511870_ _g1185611874_)))) - (_g1185511870_ _g1185611874_)))) - (_g1185511870_ _g1185611874_))))) + (cons __tmp14870 __tmp14857)))) + _hd1384513873_ + _hd1384213863_) + (_g1383713852_ _g1383813856_)))) + (_g1383713852_ _g1383813856_)))) + (_g1383713852_ _g1383813856_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1185411915_ - (list _K11790_ _E11791_)))))) - (let ((_g1182112034_ + (_g1383613897_ + (list _K13772_ _E13773_)))))) + (let ((_g1380314016_ (lambda () - (let ((_L11926_ - ___stx1270612707_)) - (if (gx#identifier? _L11926_) - (___kont1271112712_ - _L11926_) - (___kont1271312714_ - ___stx1270612707_)))))) - (if (gx#stx-pair? ___stx1270612707_) - (let ((_e1182912041_ + (let ((_L13908_ + ___stx1468814689_)) + (if (gx#identifier? _L13908_) + (___kont1469314694_ + _L13908_) + (___kont1469514696_ + ___stx1468814689_)))))) + (if (gx#stx-pair? ___stx1468814689_) + (let ((_e1381114023_ (gx#syntax-e - ___stx1270612707_))) - (let ((_tl1182712048_ + ___stx1468814689_))) + (let ((_tl1380914030_ (let () (declare (not safe)) - (##cdr _e1182912041_))) - (_hd1182812045_ + (##cdr _e1381114023_))) + (_hd1381014027_ (let () (declare (not safe)) - (##car _e1182912041_)))) - (___kont1270912710_ - _tl1182712048_ - _hd1182812045_))) + (##car _e1381114023_)))) + (___kont1469114692_ + _tl1380914030_ + _hd1381014027_))) (let () (declare (not safe)) - (_g1182112034_)))))))) - _g1179511806_)))) - (_g1179312229_ _tgt11789_))))) - (let* ((_g1124911277_ - (lambda (_g1125011273_) + (_g1380314016_)))))))) + _g1377713788_)))) + (_g1377514211_ _tgt13771_))))) + (let* ((_g1323113259_ + (lambda (_g1323213255_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1125011273_))) - (_g1124811783_ - (lambda (_g1125011281_) - (if (gx#stx-pair? _g1125011281_) - (let ((_e1125611284_ (gx#syntax-e _g1125011281_))) - (let ((_hd1125511288_ + _g1323213255_))) + (_g1323013765_ + (lambda (_g1323213263_) + (if (gx#stx-pair? _g1323213263_) + (let ((_e1323813266_ (gx#syntax-e _g1323213263_))) + (let ((_hd1323713270_ (let () (declare (not safe)) - (##car _e1125611284_))) - (_tl1125411291_ + (##car _e1323813266_))) + (_tl1323613273_ (let () (declare (not safe)) - (##cdr _e1125611284_)))) - (if (gx#stx-pair? _tl1125411291_) - (let ((_e1125911294_ - (gx#syntax-e _tl1125411291_))) - (let ((_hd1125811298_ + (##cdr _e1323813266_)))) + (if (gx#stx-pair? _tl1323613273_) + (let ((_e1324113276_ + (gx#syntax-e _tl1323613273_))) + (let ((_hd1324013280_ (let () (declare (not safe)) - (##car _e1125911294_))) - (_tl1125711301_ + (##car _e1324113276_))) + (_tl1323913283_ (let () (declare (not safe)) - (##cdr _e1125911294_)))) - (if (gx#stx-pair? _tl1125711301_) - (let ((_e1126211304_ - (gx#syntax-e _tl1125711301_))) - (let ((_hd1126111308_ + (##cdr _e1324113276_)))) + (if (gx#stx-pair? _tl1323913283_) + (let ((_e1324413286_ + (gx#syntax-e _tl1323913283_))) + (let ((_hd1324313290_ (let () (declare (not safe)) - (##car _e1126211304_))) - (_tl1126011311_ + (##car _e1324413286_))) + (_tl1324213293_ (let () (declare (not safe)) - (##cdr _e1126211304_)))) + (##cdr _e1324413286_)))) (if (gx#stx-pair/null? - _tl1126011311_) - (let ((_g12889_ + _tl1324213293_) + (let ((_g14871_ (gx#syntax-split-splice - _tl1126011311_ + _tl1324213293_ '0))) (begin - (let ((_g12890_ + (let ((_g14872_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g12889_) - (##vector-length _g12889_) + _g14871_) + (##vector-length _g14871_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g12890_ 2))) - (error "Context expects 2 values" _g12890_))) + (if (not (let () (declare (not safe)) (##fx= _g14872_ 2))) + (error "Context expects 2 values" _g14872_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1126311314_ + (let ((_target1324513296_ (let () (declare (not safe)) (##vector-ref - _g12889_ + _g14871_ 0))) - (_tl1126511317_ + (_tl1324713299_ (let () (declare (not safe)) (##vector-ref - _g12889_ + _g14871_ 1)))) (if (gx#stx-null? - _tl1126511317_) - (letrec ((_loop1126611320_ + _tl1324713299_) + (letrec ((_loop1324813302_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1126411324_ _clause1127011327_) - (if (gx#stx-pair? _hd1126411324_) - (let ((_e1126711330_ - (gx#syntax-e _hd1126411324_))) - (let ((_lp-hd1126811334_ + (lambda (_hd1324613306_ _clause1325213309_) + (if (gx#stx-pair? _hd1324613306_) + (let ((_e1324913312_ + (gx#syntax-e _hd1324613306_))) + (let ((_lp-hd1325013316_ (let () (declare (not safe)) - (##car _e1126711330_))) - (_lp-tl1126911337_ + (##car _e1324913312_))) + (_lp-tl1325113319_ (let () (declare (not safe)) - (##cdr _e1126711330_)))) - (_loop1126611320_ - _lp-tl1126911337_ + (##cdr _e1324913312_)))) + (_loop1324813302_ + _lp-tl1325113319_ (let () (declare (not safe)) - (cons _lp-hd1126811334_ - _clause1127011327_))))) - (let ((_clause1127111340_ - (reverse _clause1127011327_))) - ((lambda (_L11344_ _L11346_ _L11347_) - (let _recur11369_ ((_rest11372_ - (let ((__tmp12912 + (cons _lp-hd1325013316_ + _clause1325213309_))))) + (let ((_clause1325313322_ + (reverse _clause1325213309_))) + ((lambda (_L13326_ _L13328_ _L13329_) + (let _recur13351_ ((_rest13354_ + (let ((__tmp14894 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1177411777_ _g1177511780_) + (lambda (_g1375613759_ _g1375713762_) (let () (declare (not safe)) - (cons _g1177411777_ _g1177511780_))))) + (cons _g1375613759_ _g1375713762_))))) (declare (not safe)) - (foldr1 __tmp12912 '() _L11344_)))) + (foldr1 __tmp14894 '() _L13326_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest1137411383_ _rest11372_) - (_E1137711389_ + (let* ((_rest1335613365_ _rest13354_) + (_E1335913371_ (lambda () (error '"No clause matching" - _rest1137411383_)))) - (let ((_K1137911759_ - (lambda (_rest11405_ - _hd11407_) - (let* ((_g1140911417_ - (lambda (_g1141011413_) + _rest1335613365_)))) + (let ((_K1336113741_ + (lambda (_rest13387_ + _hd13389_) + (let* ((_g1339113399_ + (lambda (_g1339213395_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1141011413_))) - (_g1140811755_ - (lambda (_g1141011421_) - ((lambda (_L11424_) + _g1339213395_))) + (_g1339013737_ + (lambda (_g1339213403_) + ((lambda (_L13406_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g1144211450_ - (lambda (_g1144311446_) + (let* ((_g1342413432_ + (lambda (_g1342513428_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1144311446_))) - (_g1144111751_ - (lambda (_g1144311454_) - ((lambda (_L11457_) + _g1342513428_))) + (_g1342313733_ + (lambda (_g1342513436_) + ((lambda (_L13439_) (let () - (let* ((_g1147011478_ - (lambda (_g1147111474_) + (let* ((_g1345213460_ + (lambda (_g1345313456_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1147111474_))) - (_g1146911747_ - (lambda (_g1147111482_) - ((lambda (_L11485_) + _g1345313456_))) + (_g1345113729_ + (lambda (_g1345313464_) + ((lambda (_L13467_) (let () - (let* ((_g1149811506_ + (let* ((_g1348013488_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1149911502_) + (lambda (_g1348113484_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1149911502_))) - (_g1149711528_ - (lambda (_g1149911510_) - ((lambda (_L11513_) + _g1348113484_))) + (_g1347913510_ + (lambda (_g1348113492_) + ((lambda (_L13495_) (let () (let () - (let ((__tmp12899 + (let ((__tmp14881 (gx#datum->syntax '#f 'let)) - (__tmp12891 - (let ((__tmp12893 - (let ((__tmp12894 - (let ((__tmp12895 - (let ((__tmp12898 + (__tmp14873 + (let ((__tmp14875 + (let ((__tmp14876 + (let ((__tmp14877 + (let ((__tmp14880 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp12896 - (let ((__tmp12897 + (__tmp14878 + (let ((__tmp14879 (let () (declare (not safe)) - (cons _L11485_ '())))) + (cons _L13467_ '())))) (declare (not safe)) - (cons '() __tmp12897)))) + (cons '() __tmp14879)))) (declare (not safe)) - (cons __tmp12898 __tmp12896)))) + (cons __tmp14880 __tmp14878)))) (declare (not safe)) - (cons __tmp12895 '())))) + (cons __tmp14877 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L11424_ __tmp12894))) - (__tmp12892 + (cons _L13406_ __tmp14876))) + (__tmp14874 (let () (declare (not safe)) - (cons _L11513_ '())))) + (cons _L13495_ '())))) (declare (not safe)) - (cons __tmp12893 __tmp12892)))) + (cons __tmp14875 __tmp14874)))) (declare (not safe)) - (cons __tmp12899 __tmp12891))))) - _g1149911510_)))) - (_g1149711528_ - (let* ((___stx1272412725_ _hd11407_) - (_g1153411574_ + (cons __tmp14881 __tmp14873))))) + _g1348113492_)))) + (_g1347913510_ + (let* ((___stx1470614707_ _hd13389_) + (_g1351613556_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx1272412725_)))) - (let ((___kont1272712728_ - (lambda (_L11720_) - (let ((__tmp12902 (gx#datum->syntax '#f 'begin)) - (__tmp12900 - (let ((__tmp12901 - (lambda (_g1173411737_ - _g1173511740_) + ___stx1470614707_)))) + (let ((___kont1470914710_ + (lambda (_L13702_) + (let ((__tmp14884 (gx#datum->syntax '#f 'begin)) + (__tmp14882 + (let ((__tmp14883 + (lambda (_g1371613719_ + _g1371713722_) (let () (declare (not safe)) - (cons _g1173411737_ - _g1173511740_))))) + (cons _g1371613719_ + _g1371713722_))))) (declare (not safe)) - (foldr1 __tmp12901 '() _L11720_)))) + (foldr1 __tmp14883 '() _L13702_)))) (declare (not safe)) - (cons __tmp12902 __tmp12900)))) - (___kont1273112732_ - (lambda (_L11658_ _L11660_) - (_generate111246_ - _L11660_ - _L11347_ - _L11658_ - _L11457_ - _L11346_))) - (___kont1273312734_ - (lambda (_L11611_ _L11613_ _L11614_) - (_generate111246_ - _L11614_ - _L11347_ - (let ((__tmp12906 (gx#datum->syntax '#f 'if)) - (__tmp12903 - (let ((__tmp12904 - (let ((__tmp12905 + (cons __tmp14884 __tmp14882)))) + (___kont1471314714_ + (lambda (_L13640_ _L13642_) + (_generate113228_ + _L13642_ + _L13329_ + _L13640_ + _L13439_ + _L13328_))) + (___kont1471514716_ + (lambda (_L13593_ _L13595_ _L13596_) + (_generate113228_ + _L13596_ + _L13329_ + (let ((__tmp14888 (gx#datum->syntax '#f 'if)) + (__tmp14885 + (let ((__tmp14886 + (let ((__tmp14887 (let () (declare (not safe)) - (cons _L11457_ '())))) + (cons _L13439_ '())))) (declare (not safe)) - (cons _L11611_ __tmp12905)))) + (cons _L13593_ __tmp14887)))) (declare (not safe)) - (cons _L11613_ __tmp12904)))) + (cons _L13595_ __tmp14886)))) (declare (not safe)) - (cons __tmp12906 __tmp12903)) - _L11457_ - _L11346_)))) - (let ((___match1275312754_ - (lambda (_e1153911680_ - _hd1153811684_ - _tl1153711687_ - ___splice1272912730_ - _target1154011690_ - _tl1154211693_) - (letrec ((_loop1154311696_ - (lambda (_hd1154111700_ - _expr1154711703_) - (if (gx#stx-pair? _hd1154111700_) - (let ((_e1154411706_ + (cons __tmp14888 __tmp14885)) + _L13439_ + _L13328_)))) + (let ((___match1473514736_ + (lambda (_e1352113662_ + _hd1352013666_ + _tl1351913669_ + ___splice1471114712_ + _target1352213672_ + _tl1352413675_) + (letrec ((_loop1352513678_ + (lambda (_hd1352313682_ + _expr1352913685_) + (if (gx#stx-pair? _hd1352313682_) + (let ((_e1352613688_ (gx#syntax-e - _hd1154111700_))) - (let ((_lp-tl1154611713_ + _hd1352313682_))) + (let ((_lp-tl1352813695_ (let () (declare (not safe)) - (##cdr _e1154411706_))) - (_lp-hd1154511710_ + (##cdr _e1352613688_))) + (_lp-hd1352713692_ (let () (declare (not safe)) - (##car _e1154411706_)))) - (_loop1154311696_ - _lp-tl1154611713_ + (##car _e1352613688_)))) + (_loop1352513678_ + _lp-tl1352813695_ (let () (declare (not safe)) - (cons _lp-hd1154511710_ - _expr1154711703_))))) - (let ((_expr1154811716_ - (reverse _expr1154711703_))) - (___kont1272712728_ - _expr1154811716_)))))) - (_loop1154311696_ - _target1154011690_ + (cons _lp-hd1352713692_ + _expr1352913685_))))) + (let ((_expr1353013698_ + (reverse _expr1352913685_))) + (___kont1470914710_ + _expr1353013698_)))))) + (_loop1352513678_ + _target1352213672_ '()))))) - (if (gx#stx-pair? ___stx1272412725_) - (let ((_e1153911680_ - (gx#syntax-e ___stx1272412725_))) - (let ((_tl1153711687_ + (if (gx#stx-pair? ___stx1470614707_) + (let ((_e1352113662_ + (gx#syntax-e ___stx1470614707_))) + (let ((_tl1351913669_ (let () (declare (not safe)) - (##cdr _e1153911680_))) - (_hd1153811684_ + (##cdr _e1352113662_))) + (_hd1352013666_ (let () (declare (not safe)) - (##car _e1153911680_)))) - (if (gx#identifier? _hd1153811684_) + (##car _e1352113662_)))) + (if (gx#identifier? _hd1352013666_) (if (gx#free-identifier=? - |[1]#_g12907_| - _hd1153811684_) + |[1]#_g14889_| + _hd1352013666_) (if (gx#stx-pair/null? - _tl1153711687_) - (let ((___splice1272912730_ + _tl1351913669_) + (let ((___splice1471114712_ (gx#syntax-split-splice - _tl1153711687_ + _tl1351913669_ '0))) - (let ((_tl1154211693_ + (let ((_tl1352413675_ (let () (declare (not safe)) (##vector-ref - ___splice1272912730_ + ___splice1471114712_ '1))) - (_target1154011690_ + (_target1352213672_ (let () (declare (not safe)) (##vector-ref - ___splice1272912730_ + ___splice1471114712_ '0)))) (if (gx#stx-null? - _tl1154211693_) - (___match1275312754_ - _e1153911680_ - _hd1153811684_ - _tl1153711687_ - ___splice1272912730_ - _target1154011690_ - _tl1154211693_) + _tl1352413675_) + (___match1473514736_ + _e1352113662_ + _hd1352013666_ + _tl1351913669_ + ___splice1471114712_ + _target1352213672_ + _tl1352413675_) (if (gx#stx-pair? - _tl1153711687_) - (let ((_e1155611648_ + _tl1351913669_) + (let ((_e1353813630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1153711687_))) - (let ((_tl1155411655_ - (let () (declare (not safe)) (##cdr _e1155611648_))) - (_hd1155511652_ + (gx#syntax-e _tl1351913669_))) + (let ((_tl1353613637_ + (let () (declare (not safe)) (##cdr _e1353813630_))) + (_hd1353713634_ (let () (declare (not safe)) - (##car _e1155611648_)))) - (if (gx#stx-null? _tl1155411655_) - (___kont1273112732_ _hd1155511652_ _hd1153811684_) - (if (gx#stx-pair? _tl1155411655_) - (let ((_e1156811601_ - (gx#syntax-e _tl1155411655_))) - (let ((_tl1156611608_ + (##car _e1353813630_)))) + (if (gx#stx-null? _tl1353613637_) + (___kont1471314714_ _hd1353713634_ _hd1352013666_) + (if (gx#stx-pair? _tl1353613637_) + (let ((_e1355013583_ + (gx#syntax-e _tl1353613637_))) + (let ((_tl1354813590_ (let () (declare (not safe)) - (##cdr _e1156811601_))) - (_hd1156711605_ + (##cdr _e1355013583_))) + (_hd1354913587_ (let () (declare (not safe)) - (##car _e1156811601_)))) - (if (gx#stx-null? _tl1156611608_) - (___kont1273312734_ - _hd1156711605_ - _hd1155511652_ - _hd1153811684_) + (##car _e1355013583_)))) + (if (gx#stx-null? _tl1354813590_) + (___kont1471514716_ + _hd1354913587_ + _hd1353713634_ + _hd1352013666_) (let () (declare (not safe)) - (_g1153411574_))))) - (let () (declare (not safe)) (_g1153411574_)))))) - (let () (declare (not safe)) (_g1153411574_)))))) + (_g1351613556_))))) + (let () (declare (not safe)) (_g1351613556_)))))) + (let () (declare (not safe)) (_g1351613556_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl1153711687_) - (let ((_e1155611648_ + (if (gx#stx-pair? _tl1351913669_) + (let ((_e1353813630_ (gx#syntax-e - _tl1153711687_))) - (let ((_tl1155411655_ + _tl1351913669_))) + (let ((_tl1353613637_ (let () (declare (not safe)) - (##cdr _e1155611648_))) - (_hd1155511652_ + (##cdr _e1353813630_))) + (_hd1353713634_ (let () (declare (not safe)) - (##car _e1155611648_)))) + (##car _e1353813630_)))) (if (gx#stx-null? - _tl1155411655_) - (___kont1273112732_ - _hd1155511652_ - _hd1153811684_) + _tl1353613637_) + (___kont1471314714_ + _hd1353713634_ + _hd1352013666_) (if (gx#stx-pair? - _tl1155411655_) - (let ((_e1156811601_ + _tl1353613637_) + (let ((_e1355013583_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1155411655_))) - (let ((_tl1156611608_ + (gx#syntax-e _tl1353613637_))) + (let ((_tl1354813590_ (let () (declare (not safe)) - (##cdr _e1156811601_))) - (_hd1156711605_ + (##cdr _e1355013583_))) + (_hd1354913587_ (let () (declare (not safe)) - (##car _e1156811601_)))) - (if (gx#stx-null? _tl1156611608_) - (___kont1273312734_ - _hd1156711605_ - _hd1155511652_ - _hd1153811684_) - (let () (declare (not safe)) (_g1153411574_))))) - (let () (declare (not safe)) (_g1153411574_)))))) + (##car _e1355013583_)))) + (if (gx#stx-null? _tl1354813590_) + (___kont1471514716_ + _hd1354913587_ + _hd1353713634_ + _hd1352013666_) + (let () (declare (not safe)) (_g1351613556_))))) + (let () (declare (not safe)) (_g1351613556_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1153411574_)))) - (if (gx#stx-pair? _tl1153711687_) - (let ((_e1155611648_ + (_g1351613556_)))) + (if (gx#stx-pair? _tl1351913669_) + (let ((_e1353813630_ (gx#syntax-e - _tl1153711687_))) - (let ((_tl1155411655_ + _tl1351913669_))) + (let ((_tl1353613637_ (let () (declare (not safe)) - (##cdr _e1155611648_))) - (_hd1155511652_ + (##cdr _e1353813630_))) + (_hd1353713634_ (let () (declare (not safe)) - (##car _e1155611648_)))) + (##car _e1353813630_)))) (if (gx#stx-null? - _tl1155411655_) - (___kont1273112732_ - _hd1155511652_ - _hd1153811684_) + _tl1353613637_) + (___kont1471314714_ + _hd1353713634_ + _hd1352013666_) (if (gx#stx-pair? - _tl1155411655_) - (let ((_e1156811601_ + _tl1353613637_) + (let ((_e1355013583_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1155411655_))) - (let ((_tl1156611608_ - (let () (declare (not safe)) (##cdr _e1156811601_))) - (_hd1156711605_ + (gx#syntax-e _tl1353613637_))) + (let ((_tl1354813590_ + (let () (declare (not safe)) (##cdr _e1355013583_))) + (_hd1354913587_ (let () (declare (not safe)) - (##car _e1156811601_)))) - (if (gx#stx-null? _tl1156611608_) - (___kont1273312734_ - _hd1156711605_ - _hd1155511652_ - _hd1153811684_) - (let () (declare (not safe)) (_g1153411574_))))) - (let () (declare (not safe)) (_g1153411574_)))))) + (##car _e1355013583_)))) + (if (gx#stx-null? _tl1354813590_) + (___kont1471514716_ + _hd1354913587_ + _hd1353713634_ + _hd1352013666_) + (let () (declare (not safe)) (_g1351613556_))))) + (let () (declare (not safe)) (_g1351613556_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1153411574_)))) - (if (gx#stx-pair? _tl1153711687_) - (let ((_e1155611648_ - (gx#syntax-e _tl1153711687_))) - (let ((_tl1155411655_ + (_g1351613556_)))) + (if (gx#stx-pair? _tl1351913669_) + (let ((_e1353813630_ + (gx#syntax-e _tl1351913669_))) + (let ((_tl1353613637_ (let () (declare (not safe)) - (##cdr _e1155611648_))) - (_hd1155511652_ + (##cdr _e1353813630_))) + (_hd1353713634_ (let () (declare (not safe)) - (##car _e1155611648_)))) - (if (gx#stx-null? _tl1155411655_) - (___kont1273112732_ - _hd1155511652_ - _hd1153811684_) + (##car _e1353813630_)))) + (if (gx#stx-null? _tl1353613637_) + (___kont1471314714_ + _hd1353713634_ + _hd1352013666_) (if (gx#stx-pair? - _tl1155411655_) - (let ((_e1156811601_ + _tl1353613637_) + (let ((_e1355013583_ (gx#syntax-e - _tl1155411655_))) - (let ((_tl1156611608_ + _tl1353613637_))) + (let ((_tl1354813590_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e1156811601_))) - (_hd1156711605_ - (let () (declare (not safe)) (##car _e1156811601_)))) - (if (gx#stx-null? _tl1156611608_) - (___kont1273312734_ - _hd1156711605_ - _hd1155511652_ - _hd1153811684_) - (let () (declare (not safe)) (_g1153411574_))))) - (let () (declare (not safe)) (_g1153411574_)))))) + (##cdr _e1355013583_))) + (_hd1354913587_ + (let () (declare (not safe)) (##car _e1355013583_)))) + (if (gx#stx-null? _tl1354813590_) + (___kont1471514716_ + _hd1354913587_ + _hd1353713634_ + _hd1352013666_) + (let () (declare (not safe)) (_g1351613556_))))) + (let () (declare (not safe)) (_g1351613556_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1153411574_)))))) + (_g1351613556_)))))) (let () (declare (not safe)) - (_g1153411574_)))))))))) + (_g1351613556_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1147111482_)))) - (_g1146911747_ - (_recur11369_ _rest11405_))))) - _g1144311454_)))) - (_g1144111751_ + _g1345313464_)))) + (_g1345113729_ + (_recur13351_ _rest13387_))))) + _g1342513436_)))) + (_g1342313733_ (let () (declare (not safe)) - (cons _L11424_ '())))))) - _g1141011421_)))) - (_g1140811755_ (gx#genident '$E))))) + (cons _L13406_ '())))))) + _g1339213403_)))) + (_g1339013737_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K1137811397_ + (_K1336013379_ (lambda () - (let ((__tmp12911 + (let ((__tmp14893 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp12908 - (let ((__tmp12909 + (__tmp14890 + (let ((__tmp14891 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12910 + (let ((__tmp14892 (let () (declare (not safe)) - (cons _L11347_ '())))) + (cons _L13329_ '())))) (declare (not safe)) (cons '"Bad syntax; malformed ast clause" - __tmp12910)))) + __tmp14892)))) (declare (not safe)) - (cons '#f __tmp12909)))) + (cons '#f __tmp14891)))) (declare (not safe)) - (cons __tmp12911 __tmp12908))))) + (cons __tmp14893 __tmp14890))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match1137611401_ + (let ((_try-match1335813383_ (lambda () (if (let () (declare (not safe)) - (##null? _rest1137411383_)) - (_K1137811397_) - (_E1137711389_))))) + (##null? _rest1335613365_)) + (_K1336013379_) + (_E1335913371_))))) (if (let () (declare (not safe)) - (##pair? _rest1137411383_)) - (let ((_tl1138111766_ + (##pair? _rest1335613365_)) + (let ((_tl1336313748_ (let () (declare (not safe)) - (##cdr _rest1137411383_))) - (_hd1138011763_ + (##cdr _rest1335613365_))) + (_hd1336213745_ (let () (declare (not safe)) - (##car _rest1137411383_)))) - (let ((_hd11769_ - _hd1138011763_) - (_rest11772_ - _tl1138111766_)) - (_K1137911759_ - _rest11772_ - _hd11769_))) - (_try-match1137611401_))))))) - _clause1127111340_ - _hd1126111308_ - _hd1125811298_)))))) - (_loop1126611320_ _target1126311314_ '())) - (_g1124911277_ _g1125011281_))))) + (##car _rest1335613365_)))) + (let ((_hd13751_ + _hd1336213745_) + (_rest13754_ + _tl1336313748_)) + (_K1336113741_ + _rest13754_ + _hd13751_))) + (_try-match1335813383_))))))) + _clause1325313322_ + _hd1324313290_ + _hd1324013280_)))))) + (_loop1324813302_ _target1324513296_ '())) + (_g1323113259_ _g1323213263_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1124911277_ - _g1125011281_)))) - (_g1124911277_ _g1125011281_)))) - (_g1124911277_ _g1125011281_)))) - (_g1124911277_ _g1125011281_))))) - (_g1124811783_ _stx11243_))))) + (_g1323113259_ + _g1323213263_)))) + (_g1323113259_ _g1323213263_)))) + (_g1323113259_ _g1323213263_)))) + (_g1323113259_ _g1323213263_))))) + (_g1323013765_ _stx13225_))))) (define |[:0:]#SyntaxError| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g12913_| + |[1]#_g14895_| 'expander-identifiers: - (let ((__tmp12960 - (let ((__tmp12961 |[1]#_g12962_|)) + (let ((__tmp14942 + (let ((__tmp14943 |[1]#_g14944_|)) (declare (not safe)) - (cons __tmp12961 '()))) - (__tmp12914 - (let ((__tmp12959 |[1]#_g12913_|) - (__tmp12915 - (let ((__tmp12957 |[1]#_g12958_|) - (__tmp12916 - (let ((__tmp12955 |[1]#_g12956_|) - (__tmp12917 - (let ((__tmp12937 - (let ((__tmp12953 |[1]#_g12954_|) - (__tmp12938 - (let ((__tmp12951 - |[1]#_g12952_|) - (__tmp12939 - (let ((__tmp12949 - |[1]#_g12950_|) - (__tmp12940 - (let ((__tmp12947 + (cons __tmp14943 '()))) + (__tmp14896 + (let ((__tmp14941 |[1]#_g14895_|) + (__tmp14897 + (let ((__tmp14939 |[1]#_g14940_|) + (__tmp14898 + (let ((__tmp14937 |[1]#_g14938_|) + (__tmp14899 + (let ((__tmp14919 + (let ((__tmp14935 |[1]#_g14936_|) + (__tmp14920 + (let ((__tmp14933 + |[1]#_g14934_|) + (__tmp14921 + (let ((__tmp14931 + |[1]#_g14932_|) + (__tmp14922 + (let ((__tmp14929 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g12948_|) - (__tmp12941 - (let ((__tmp12945 |[1]#_g12946_|) - (__tmp12942 - (let ((__tmp12943 |[1]#_g12944_|)) + |[1]#_g14930_|) + (__tmp14923 + (let ((__tmp14927 |[1]#_g14928_|) + (__tmp14924 + (let ((__tmp14925 |[1]#_g14926_|)) (declare (not safe)) - (cons __tmp12943 '())))) + (cons __tmp14925 '())))) (declare (not safe)) - (cons __tmp12945 __tmp12942)))) + (cons __tmp14927 __tmp14924)))) (declare (not safe)) - (cons __tmp12947 __tmp12941)))) + (cons __tmp14929 __tmp14923)))) (declare (not safe)) - (cons __tmp12949 __tmp12940)))) + (cons __tmp14931 __tmp14922)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12951 - __tmp12939)))) + (cons __tmp14933 + __tmp14921)))) (declare (not safe)) - (cons __tmp12953 __tmp12938))) - (__tmp12918 - (let ((__tmp12919 - (let ((__tmp12935 - |[1]#_g12936_|) - (__tmp12920 - (let ((__tmp12933 - |[1]#_g12934_|) - (__tmp12921 - (let ((__tmp12931 + (cons __tmp14935 __tmp14920))) + (__tmp14900 + (let ((__tmp14901 + (let ((__tmp14917 + |[1]#_g14918_|) + (__tmp14902 + (let ((__tmp14915 + |[1]#_g14916_|) + (__tmp14903 + (let ((__tmp14913 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g12932_|) - (__tmp12922 - (let ((__tmp12929 |[1]#_g12930_|) - (__tmp12923 - (let ((__tmp12927 |[1]#_g12928_|) - (__tmp12924 - (let ((__tmp12925 |[1]#_g12926_|)) + |[1]#_g14914_|) + (__tmp14904 + (let ((__tmp14911 |[1]#_g14912_|) + (__tmp14905 + (let ((__tmp14909 |[1]#_g14910_|) + (__tmp14906 + (let ((__tmp14907 |[1]#_g14908_|)) (declare (not safe)) - (cons __tmp12925 '())))) + (cons __tmp14907 '())))) (declare (not safe)) - (cons __tmp12927 __tmp12924)))) + (cons __tmp14909 __tmp14906)))) (declare (not safe)) - (cons __tmp12929 __tmp12923)))) + (cons __tmp14911 __tmp14905)))) (declare (not safe)) - (cons __tmp12931 __tmp12922)))) + (cons __tmp14913 __tmp14904)))) (declare (not safe)) - (cons __tmp12933 __tmp12921)))) + (cons __tmp14915 __tmp14903)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12935 - __tmp12920)))) + (cons __tmp14917 + __tmp14902)))) (declare (not safe)) - (cons __tmp12919 '())))) + (cons __tmp14901 '())))) (declare (not safe)) - (cons __tmp12937 __tmp12918)))) + (cons __tmp14919 __tmp14900)))) (declare (not safe)) - (cons __tmp12955 __tmp12917)))) + (cons __tmp14937 __tmp14899)))) (declare (not safe)) - (cons __tmp12957 __tmp12916)))) + (cons __tmp14939 __tmp14898)))) (declare (not safe)) - (cons __tmp12959 __tmp12915)))) + (cons __tmp14941 __tmp14897)))) (declare (not safe)) - (cons __tmp12960 __tmp12914)) + (cons __tmp14942 __tmp14896)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g12963_|) + (list |[1]#_g14945_|) 'SyntaxError '#f '((final: . #t)) @@ -1432,49 +1432,49 @@ (define |[:0:]#AST| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g12964_| + |[1]#_g14946_| 'expander-identifiers: - (let ((__tmp12965 - (let ((__tmp12986 |[1]#_g12964_|) - (__tmp12966 - (let ((__tmp12984 |[1]#_g12985_|) - (__tmp12967 - (let ((__tmp12982 |[1]#_g12983_|) - (__tmp12968 - (let ((__tmp12976 - (let ((__tmp12980 |[1]#_g12981_|) - (__tmp12977 - (let ((__tmp12978 - |[1]#_g12979_|)) + (let ((__tmp14947 + (let ((__tmp14968 |[1]#_g14946_|) + (__tmp14948 + (let ((__tmp14966 |[1]#_g14967_|) + (__tmp14949 + (let ((__tmp14964 |[1]#_g14965_|) + (__tmp14950 + (let ((__tmp14958 + (let ((__tmp14962 |[1]#_g14963_|) + (__tmp14959 + (let ((__tmp14960 + |[1]#_g14961_|)) (declare (not safe)) - (cons __tmp12978 '())))) + (cons __tmp14960 '())))) (declare (not safe)) - (cons __tmp12980 __tmp12977))) - (__tmp12969 - (let ((__tmp12970 - (let ((__tmp12974 - |[1]#_g12975_|) - (__tmp12971 - (let ((__tmp12972 - |[1]#_g12973_|)) + (cons __tmp14962 __tmp14959))) + (__tmp14951 + (let ((__tmp14952 + (let ((__tmp14956 + |[1]#_g14957_|) + (__tmp14953 + (let ((__tmp14954 + |[1]#_g14955_|)) (declare (not safe)) - (cons __tmp12972 + (cons __tmp14954 '())))) (declare (not safe)) - (cons __tmp12974 - __tmp12971)))) + (cons __tmp14956 + __tmp14953)))) (declare (not safe)) - (cons __tmp12970 '())))) + (cons __tmp14952 '())))) (declare (not safe)) - (cons __tmp12976 __tmp12969)))) + (cons __tmp14958 __tmp14951)))) (declare (not safe)) - (cons __tmp12982 __tmp12968)))) + (cons __tmp14964 __tmp14950)))) (declare (not safe)) - (cons __tmp12984 __tmp12967)))) + (cons __tmp14966 __tmp14949)))) (declare (not safe)) - (cons __tmp12986 __tmp12966)))) + (cons __tmp14968 __tmp14948)))) (declare (not safe)) - (cons '#f __tmp12965)) + (cons '#f __tmp14947)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| 'gerbil#AST::t diff --git a/src/bootstrap/gerbil/runtime/system.ssi b/src/bootstrap/gerbil/runtime/system.ssi index eb1d315da..239b7357c 100644 --- a/src/bootstrap/gerbil/runtime/system.ssi +++ b/src/bootstrap/gerbil/runtime/system.ssi @@ -3,13 +3,45 @@ package: gerbil/runtime namespace: #f (%#begin (%#export #t) - (%#import :gerbil/runtime/gambit :gerbil/runtime/util) + (%#import + :gerbil/runtime/gambit + :gerbil/runtime/util + :gerbil/runtime/control) (%#define-runtime gerbil-version-string gerbil-version-string) + (%#begin (%#begin-syntax + (%#call (%#ref load-module) + (%#quote "gerbil/runtime/system__1"))) + (%#define-syntax defmutable |[:0:]#defmutable|)) + (%#define-runtime gerbil-system-manifest gerbil-system-manifest) + (%#define-runtime build-manifest build-manifest) + (%#begin (%#define-runtime + display-build-manifest__% + display-build-manifest__%) + (%#begin (%#define-runtime + display-build-manifest__0 + display-build-manifest__0) + (%#define-runtime + display-build-manifest__1 + display-build-manifest__1) + (%#define-runtime + display-build-manifest + display-build-manifest))) + (%#define-runtime build-manifest/layer build-manifest/layer) + (%#define-runtime build-manifest/head build-manifest/head) + (%#begin (%#define-runtime + build-manifest-string__% + build-manifest-string__%) + (%#begin (%#define-runtime + build-manifest-string__0 + build-manifest-string__0) + (%#define-runtime + build-manifest-string + build-manifest-string))) (%#define-runtime gerbil-system-version-string gerbil-system-version-string) - (%#define-runtime gerbil-system gerbil-system) (%#define-runtime gerbil-greeting gerbil-greeting) + (%#define-runtime gerbil-system gerbil-system) (%#define-runtime gerbil-home gerbil-home) (%#define-runtime gerbil-path gerbil-path) (%#define-runtime gerbil-runtime-smp? gerbil-runtime-smp?)) diff --git a/src/bootstrap/gerbil/runtime/system.ssxi.ss b/src/bootstrap/gerbil/runtime/system.ssxi.ss index e3f36da7b..06641ec28 100644 --- a/src/bootstrap/gerbil/runtime/system.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/system.ssxi.ss @@ -3,6 +3,22 @@ package: gerbil/runtime (begin (declare-type gerbil-version-string (@lambda 0 #f)) + (declare-type display-build-manifest__% (@lambda 2 #f)) + (declare-type display-build-manifest__0 (@lambda 0 #f)) + (declare-type display-build-manifest__1 (@lambda 1 #f)) + (declare-type + display-build-manifest + (@case-lambda + (0 display-build-manifest__0) + (1 display-build-manifest__1) + (2 display-build-manifest__%))) + (declare-type build-manifest/layer (@lambda 1 #f)) + (declare-type build-manifest/head (@lambda 0 #f)) + (declare-type build-manifest-string__% (@lambda 1 #f)) + (declare-type build-manifest-string__0 (@lambda 0 #f)) + (declare-type + build-manifest-string + (@case-lambda (0 build-manifest-string__0) (1 build-manifest-string__%))) (declare-type gerbil-system-version-string (@lambda 0 #f)) (declare-type gerbil-system (@lambda 0 #f)) (declare-type gerbil-home (@lambda 0 #f)) diff --git a/src/bootstrap/gerbil/runtime/system__0.scm b/src/bootstrap/gerbil/runtime/system__0.scm index f860b634f..ef71ec467 100644 --- a/src/bootstrap/gerbil/runtime/system__0.scm +++ b/src/bootstrap/gerbil/runtime/system__0.scm @@ -1,28 +1,160 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1701718632) + (define gerbil/runtime/system::timestamp 1706585167) (begin - (define gerbil-version-string (lambda () '"v0.18.1")) + (define gerbil-version-string (lambda () '"v0.18.1-34-g69cd461b")) + (define gerbil-system-manifest + (let ((__tmp8952 + (let ((__tmp8953 + (let () (declare (not safe)) (gerbil-version-string)))) + (declare (not safe)) + (cons '"Gerbil" __tmp8953))) + (__tmp8949 + (let ((__tmp8950 + (let ((__tmp8951 (system-version-string))) + (declare (not safe)) + (cons '"Gambit" __tmp8951)))) + (declare (not safe)) + (cons __tmp8950 '())))) + (declare (not safe)) + (cons __tmp8952 __tmp8949))) + (define build-manifest gerbil-system-manifest) + (set! build-manifest build-manifest) + (define display-build-manifest__% + (lambda (_manifest8893_ _port8894_) + (let ((_p8900_ (lambda (_g88958897_) (display _g88958897_ _port8894_))) + (_l8901_ (length _manifest8893_)) + (_i8902_ '0)) + (for-each + (lambda (_layer8904_) + (if (let () (declare (not safe)) (zero? _i8902_)) + '#!void + (if (= _i8902_ '1) + (let () (declare (not safe)) (_p8900_ '" on ")) + (let () (declare (not safe)) (_p8900_ '", ")))) + (let* ((_layer89058912_ _layer8904_) + (_E89078916_ + (lambda () (error '"No clause matching" _layer89058912_))) + (_K89088922_ + (lambda (_version8919_ _name8920_) + (let () (declare (not safe)) (_p8900_ _name8920_)) + (let () (declare (not safe)) (_p8900_ '" ")) + (let () (declare (not safe)) (_p8900_ _version8919_))))) + (if (let () (declare (not safe)) (##pair? _layer89058912_)) + (let ((_hd89098925_ + (let () + (declare (not safe)) + (##car _layer89058912_))) + (_tl89108927_ + (let () + (declare (not safe)) + (##cdr _layer89058912_)))) + (let* ((_name8930_ _hd89098925_) + (_version8932_ _tl89108927_)) + (declare (not safe)) + (_K89088922_ _version8932_ _name8930_))) + (let () (declare (not safe)) (_E89078916_)))) + (set! _i8902_ (+ _i8902_ '1))) + _manifest8893_)))) + (define display-build-manifest__0 + (lambda () + (let* ((_manifest8938_ build-manifest) + (_port8940_ (current-output-port))) + (declare (not safe)) + (display-build-manifest__% _manifest8938_ _port8940_)))) + (define display-build-manifest__1 + (lambda (_manifest8942_) + (let ((_port8944_ (current-output-port))) + (declare (not safe)) + (display-build-manifest__% _manifest8942_ _port8944_)))) + (define display-build-manifest + (lambda _g8955_ + (let ((_g8954_ (let () (declare (not safe)) (##length _g8955_)))) + (cond ((let () (declare (not safe)) (##fx= _g8954_ 0)) + (apply (lambda () + (let () + (declare (not safe)) + (display-build-manifest__0))) + _g8955_)) + ((let () (declare (not safe)) (##fx= _g8954_ 1)) + (apply (lambda (_manifest8942_) + (let () + (declare (not safe)) + (display-build-manifest__1 _manifest8942_))) + _g8955_)) + ((let () (declare (not safe)) (##fx= _g8954_ 2)) + (apply (lambda (_manifest8946_ _port8947_) + (let () + (declare (not safe)) + (display-build-manifest__% + _manifest8946_ + _port8947_))) + _g8955_)) + (else + (##raise-wrong-number-of-arguments-exception + display-build-manifest + _g8955_)))))) + (define build-manifest/layer + (lambda (_layer8888_) + (let ((_l8890_ (assoc _layer8888_ build-manifest))) + (if _l8890_ (let () (declare (not safe)) (cons _l8890_ '())) '())))) + (define build-manifest/head + (lambda () + (let ((__tmp8956 (car build-manifest))) + (declare (not safe)) + (cons __tmp8956 '())))) + (define build-manifest-string__% + (lambda (_manifest8875_) + (call-with-output-string + '() + (lambda (_p8877_) + (let () + (declare (not safe)) + (display-build-manifest__% _manifest8875_ _p8877_)))))) + (define build-manifest-string__0 + (lambda () + (let ((_manifest8883_ build-manifest)) + (declare (not safe)) + (build-manifest-string__% _manifest8883_)))) + (define build-manifest-string + (lambda _g8958_ + (let ((_g8957_ (let () (declare (not safe)) (##length _g8958_)))) + (cond ((let () (declare (not safe)) (##fx= _g8957_ 0)) + (apply (lambda () + (let () + (declare (not safe)) + (build-manifest-string__0))) + _g8958_)) + ((let () (declare (not safe)) (##fx= _g8957_ 1)) + (apply (lambda (_manifest8885_) + (let () + (declare (not safe)) + (build-manifest-string__% _manifest8885_))) + _g8958_)) + (else + (##raise-wrong-number-of-arguments-exception + build-manifest-string + _g8958_)))))) (define gerbil-system-version-string (lambda () - (string-append - '"Gerbil " - (let () (declare (not safe)) (gerbil-version-string)) - '" on Gambit " - (system-version-string)))) - (define gerbil-system (lambda () 'gerbil-gambit)) + (let () + (declare (not safe)) + (build-manifest-string__% gerbil-system-manifest)))) (define gerbil-greeting (let () (declare (not safe)) (gerbil-system-version-string))) (set! gerbil-greeting gerbil-greeting) + (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home - (lambda () (getenv '"GERBIL_HOME" (path-expand '"~~")))) + (lambda () + (let ((_$e8869_ (getenv '"GERBIL_HOME" '#f))) + (if _$e8869_ _$e8869_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_$e6807_ (getenv '"GERBIL_PATH" '#f))) - (if _$e6807_ _$e6807_ (path-expand '"~/.gerbil"))))) + (let ((_$e8865_ (getenv '"GERBIL_PATH" '#f))) + (if _$e8865_ _$e8865_ (path-expand '"~/.gerbil"))))) (define gerbil-runtime-smp? (lambda () (member '"--enable-smp" - (let ((__tmp6813 (configure-command-string))) + (let ((__tmp8959 (configure-command-string))) (declare (not safe)) - (string-split __tmp6813 '#\'))))))) + (string-split __tmp8959 '#\'))))))) diff --git a/src/bootstrap/gerbil/runtime/system__1.scm b/src/bootstrap/gerbil/runtime/system__1.scm new file mode 100644 index 000000000..650a04177 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/system__1.scm @@ -0,0 +1,92 @@ +(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) +(define |[:0:]#defmutable| + (lambda (_$stx8781_) + (let* ((_g87858803_ + (lambda (_g87868799_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g87868799_))) + (_g87848859_ + (lambda (_g87868807_) + (if (gx#stx-pair? _g87868807_) + (let ((_e87918810_ (gx#syntax-e _g87868807_))) + (let ((_hd87908814_ + (let () (declare (not safe)) (##car _e87918810_))) + (_tl87898817_ + (let () (declare (not safe)) (##cdr _e87918810_)))) + (if (gx#stx-pair? _tl87898817_) + (let ((_e87948820_ (gx#syntax-e _tl87898817_))) + (let ((_hd87938824_ + (let () + (declare (not safe)) + (##car _e87948820_))) + (_tl87928827_ + (let () + (declare (not safe)) + (##cdr _e87948820_)))) + (if (gx#stx-pair? _tl87928827_) + (let ((_e87978830_ + (gx#syntax-e _tl87928827_))) + (let ((_hd87968834_ + (let () + (declare (not safe)) + (##car _e87978830_))) + (_tl87958837_ + (let () + (declare (not safe)) + (##cdr _e87978830_)))) + (if (gx#stx-null? _tl87958837_) + ((lambda (_L8840_ _L8842_) + (let ((__tmp8973 + (gx#datum->syntax + '#f + 'begin)) + (__tmp8960 + (let ((__tmp8969 + (let ((__tmp8972 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'def)) + (__tmp8970 + (let ((__tmp8971 + (let () + (declare (not safe)) + (cons _L8840_ '())))) + (declare (not safe)) + (cons _L8842_ __tmp8971)))) + (declare (not safe)) + (cons __tmp8972 __tmp8970))) + (__tmp8961 + (let ((__tmp8965 + (let ((__tmp8968 (gx#datum->syntax '#f 'set!)) + (__tmp8966 + (let ((__tmp8967 + (let () + (declare (not safe)) + (cons _L8842_ '())))) + (declare (not safe)) + (cons _L8842_ __tmp8967)))) + (declare (not safe)) + (cons __tmp8968 __tmp8966))) + (__tmp8962 + (let ((__tmp8963 + (let ((__tmp8964 + (gx#datum->syntax '#f 'void))) + (declare (not safe)) + (cons __tmp8964 '())))) + (declare (not safe)) + (cons __tmp8963 '())))) + (declare (not safe)) + (cons __tmp8965 __tmp8962)))) + (declare (not safe)) + (cons __tmp8969 __tmp8961)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8973 __tmp8960))) + _hd87968834_ + _hd87938824_) + (_g87858803_ _g87868807_)))) + (_g87858803_ _g87868807_)))) + (_g87858803_ _g87868807_)))) + (_g87858803_ _g87868807_))))) + (_g87848859_ _$stx8781_)))) diff --git a/src/bootstrap/gerbil/runtime/system__rt.scm b/src/bootstrap/gerbil/runtime/system__rt.scm index b1735be9f..8c8b9579e 100644 --- a/src/bootstrap/gerbil/runtime/system__rt.scm +++ b/src/bootstrap/gerbil/runtime/system__rt.scm @@ -2,5 +2,6 @@ (begin (begin (load-module "gerbil/runtime/gambit__rt") - (load-module "gerbil/runtime/util__rt")) + (load-module "gerbil/runtime/util__rt") + (load-module "gerbil/runtime/control__rt")) (load-module "gerbil/runtime/system__0")) diff --git a/src/bootstrap/gerbil/runtime/thread__0.scm b/src/bootstrap/gerbil/runtime/thread__0.scm index 65cc731c6..9ecdebd71 100644 --- a/src/bootstrap/gerbil/runtime/thread__0.scm +++ b/src/bootstrap/gerbil/runtime/thread__0.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1701718632) + (define gerbil/runtime/thread::timestamp 1706585167) (begin (define spawn - (lambda (_f11103_ . _args11104_) - (if (let () (declare (not safe)) (procedure? _f11103_)) + (lambda (_f13085_ . _args13086_) + (if (let () (declare (not safe)) (procedure? _f13085_)) '#!void - (raise (let ((__tmp11105 - (let () (declare (not safe)) (cons _f11103_ '())))) + (raise (let ((__tmp13087 + (let () (declare (not safe)) (cons _f13085_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -15,16 +15,16 @@ 'where: 'spawn 'irritants: - __tmp11105)))) + __tmp13087)))) (let () (declare (not safe)) - (spawn-actor _f11103_ _args11104_ '#!void '#f)))) + (spawn-actor _f13085_ _args13086_ '#!void '#f)))) (define spawn/name - (lambda (_name11099_ _f11100_ . _args11101_) - (if (let () (declare (not safe)) (procedure? _f11100_)) + (lambda (_name13081_ _f13082_ . _args13083_) + (if (let () (declare (not safe)) (procedure? _f13082_)) '#!void - (raise (let ((__tmp11106 - (let () (declare (not safe)) (cons _f11100_ '())))) + (raise (let ((__tmp13088 + (let () (declare (not safe)) (cons _f13082_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -32,16 +32,16 @@ 'where: 'spawn/name 'irritants: - __tmp11106)))) + __tmp13088)))) (let () (declare (not safe)) - (spawn-actor _f11100_ _args11101_ _name11099_ '#f)))) + (spawn-actor _f13082_ _args13083_ _name13081_ '#f)))) (define spawn/group - (lambda (_name11093_ _f11094_ . _args11095_) - (if (let () (declare (not safe)) (procedure? _f11094_)) + (lambda (_name13075_ _f13076_ . _args13077_) + (if (let () (declare (not safe)) (procedure? _f13076_)) '#!void - (raise (let ((__tmp11107 - (let () (declare (not safe)) (cons _f11094_ '())))) + (raise (let ((__tmp13089 + (let () (declare (not safe)) (cons _f13076_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -49,174 +49,174 @@ 'where: 'spawn/group 'irritants: - __tmp11107)))) - (let ((_tgroup11097_ (make-thread-group _name11093_))) + __tmp13089)))) + (let ((_tgroup13079_ (make-thread-group _name13075_))) (declare (not safe)) - (spawn-actor _f11094_ _args11095_ _name11093_ _tgroup11097_)))) + (spawn-actor _f13076_ _args13077_ _name13075_ _tgroup13079_)))) (define spawn-actor - (lambda (_f11066_ _args11067_ _name11068_ _tgroup11069_) - (letrec ((_thread-main11071_ - (lambda (_thunk11085_) + (lambda (_f13048_ _args13049_ _name13050_ _tgroup13051_) + (letrec ((_thread-main13053_ + (lambda (_thunk13067_) (lambda () (with-exception-handler - (lambda (_exn11088_) - (let ((__tmp11108 - (lambda (_cont11090_) + (lambda (_exn13070_) + (let ((__tmp13090 + (lambda (_cont13072_) (if __unhandled-actor-exception-hook - (let ((__tmp11109 + (let ((__tmp13091 (lambda () (__unhandled-actor-exception-hook - _cont11090_ - _exn11088_)))) + _cont13072_ + _exn13070_)))) (declare (not safe)) - (with-catch void __tmp11109)) + (with-catch void __tmp13091)) '#!void) - (let ((__tmp11110 + (let ((__tmp13092 (let () (declare (not safe)) - (##continuation-last _cont11090_)))) + (##continuation-last _cont13072_)))) (declare (not safe)) (##continuation-graft - __tmp11110 + __tmp13092 ##primordial-exception-handler - _exn11088_))))) + _exn13070_))))) (declare (not safe)) - (##continuation-capture __tmp11108))) - _thunk11085_))))) - (let* ((_thunk11074_ - (if (let () (declare (not safe)) (null? _args11067_)) - _f11066_ - (lambda () (apply _f11066_ _args11067_)))) - (_thunk11077_ + (##continuation-capture __tmp13090))) + _thunk13067_))))) + (let* ((_thunk13056_ + (if (let () (declare (not safe)) (null? _args13049_)) + _f13048_ + (lambda () (apply _f13048_ _args13049_)))) + (_thunk13059_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk11074_)))) - (_tgroup11082_ - (let ((_$e11079_ _tgroup11069_)) - (if _$e11079_ - _$e11079_ + (with-exception-stack-trace__0 _thunk13056_)))) + (_tgroup13064_ + (let ((_$e13061_ _tgroup13051_)) + (if _$e13061_ + _$e13061_ (let () (declare (not safe)) (current-thread-group)))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (let () (declare (not safe)) (_thread-main11071_ _thunk11077_)) - _name11068_ - _tgroup11082_)))))) + (let () (declare (not safe)) (_thread-main13053_ _thunk13059_)) + _name13050_ + _tgroup13064_)))))) (define spawn-thread__% - (lambda (_thunk11044_ _name11045_ _tgroup11046_) - (thread-start! (make-thread _thunk11044_ _name11045_ _tgroup11046_)))) + (lambda (_thunk13026_ _name13027_ _tgroup13028_) + (thread-start! (make-thread _thunk13026_ _name13027_ _tgroup13028_)))) (define spawn-thread__0 - (lambda (_thunk11051_) - (let* ((_name11053_ absent-obj) (_tgroup11055_ absent-obj)) + (lambda (_thunk13033_) + (let* ((_name13035_ absent-obj) (_tgroup13037_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk11051_ _name11053_ _tgroup11055_)))) + (spawn-thread__% _thunk13033_ _name13035_ _tgroup13037_)))) (define spawn-thread__1 - (lambda (_thunk11057_ _name11058_) - (let ((_tgroup11060_ absent-obj)) + (lambda (_thunk13039_ _name13040_) + (let ((_tgroup13042_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk11057_ _name11058_ _tgroup11060_)))) + (spawn-thread__% _thunk13039_ _name13040_ _tgroup13042_)))) (define spawn-thread - (lambda _g11112_ - (let ((_g11111_ (let () (declare (not safe)) (##length _g11112_)))) - (cond ((let () (declare (not safe)) (##fx= _g11111_ 1)) - (apply (lambda (_thunk11051_) + (lambda _g13094_ + (let ((_g13093_ (let () (declare (not safe)) (##length _g13094_)))) + (cond ((let () (declare (not safe)) (##fx= _g13093_ 1)) + (apply (lambda (_thunk13033_) (let () (declare (not safe)) - (spawn-thread__0 _thunk11051_))) - _g11112_)) - ((let () (declare (not safe)) (##fx= _g11111_ 2)) - (apply (lambda (_thunk11057_ _name11058_) + (spawn-thread__0 _thunk13033_))) + _g13094_)) + ((let () (declare (not safe)) (##fx= _g13093_ 2)) + (apply (lambda (_thunk13039_ _name13040_) (let () (declare (not safe)) - (spawn-thread__1 _thunk11057_ _name11058_))) - _g11112_)) - ((let () (declare (not safe)) (##fx= _g11111_ 3)) - (apply (lambda (_thunk11062_ _name11063_ _tgroup11064_) + (spawn-thread__1 _thunk13039_ _name13040_))) + _g13094_)) + ((let () (declare (not safe)) (##fx= _g13093_ 3)) + (apply (lambda (_thunk13044_ _name13045_ _tgroup13046_) (let () (declare (not safe)) (spawn-thread__% - _thunk11062_ - _name11063_ - _tgroup11064_))) - _g11112_)) + _thunk13044_ + _name13045_ + _tgroup13046_))) + _g13094_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g11112_)))))) + _g13094_)))))) (define thread-local-ref__% - (lambda (_key11028_ _default11029_) - (let ((_tab11031_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key13010_ _default13011_) + (let ((_tab13013_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-ref _tab11031_ _key11028_ _default11029_)))) + (table-ref _tab13013_ _key13010_ _default13011_)))) (define thread-local-ref__0 - (lambda (_key11036_) - (let ((_default11038_ absent-obj)) + (lambda (_key13018_) + (let ((_default13020_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key11036_ _default11038_)))) + (thread-local-ref__% _key13018_ _default13020_)))) (define thread-local-ref - (lambda _g11114_ - (let ((_g11113_ (let () (declare (not safe)) (##length _g11114_)))) - (cond ((let () (declare (not safe)) (##fx= _g11113_ 1)) - (apply (lambda (_key11036_) + (lambda _g13096_ + (let ((_g13095_ (let () (declare (not safe)) (##length _g13096_)))) + (cond ((let () (declare (not safe)) (##fx= _g13095_ 1)) + (apply (lambda (_key13018_) (let () (declare (not safe)) - (thread-local-ref__0 _key11036_))) - _g11114_)) - ((let () (declare (not safe)) (##fx= _g11113_ 2)) - (apply (lambda (_key11040_ _default11041_) + (thread-local-ref__0 _key13018_))) + _g13096_)) + ((let () (declare (not safe)) (##fx= _g13095_ 2)) + (apply (lambda (_key13022_ _default13023_) (let () (declare (not safe)) - (thread-local-ref__% _key11040_ _default11041_))) - _g11114_)) + (thread-local-ref__% _key13022_ _default13023_))) + _g13096_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g11114_)))))) + _g13096_)))))) (define thread-local-get - (lambda (_key11025_) - (let () (declare (not safe)) (thread-local-ref _key11025_ '#f)))) + (lambda (_key13007_) + (let () (declare (not safe)) (thread-local-ref _key13007_ '#f)))) (define thread-local-set! - (lambda (_key11020_ _value11021_) - (let ((_tab11023_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key13002_ _value13003_) + (let ((_tab13005_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab11023_ _key11020_ _value11021_)))) + (table-set! _tab13005_ _key13002_ _value13003_)))) (define thread-local-clear! - (lambda (_key11016_) - (let ((_tab11018_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key12998_) + (let ((_tab13000_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab11018_ _key11016_)))) + (table-set! _tab13000_ _key12998_)))) (define thread-local-table (lambda () - (let ((_thr11002_ (current-thread))) - (if (let () (declare (not safe)) (actor-thread? _thr11002_)) - (let ((_$e11004_ (actor-thread-locals _thr11002_))) - (if _$e11004_ - (values _$e11004_) - (let ((_tab11007_ + (let ((_thr12984_ (current-thread))) + (if (let () (declare (not safe)) (actor-thread? _thr12984_)) + (let ((_$e12986_ (actor-thread-locals _thr12984_))) + (if _$e12986_ + (values _$e12986_) + (let ((_tab12989_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (actor-thread-locals-set! _thr11002_ _tab11007_) - _tab11007_))) + (actor-thread-locals-set! _thr12984_ _tab12989_) + _tab12989_))) (if (let () (declare (not safe)) - (eq? _thr11002_ ##primordial-thread)) + (eq? _thr12984_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e11009_ + (let ((_$e12991_ (let () (declare (not safe)) - (table-ref __thread-locals _thr11002_ '#f)))) - (if _$e11009_ - ((lambda (_tab11012_) + (table-ref __thread-locals _thr12984_ '#f)))) + (if _$e12991_ + ((lambda (_tab12994_) (mutex-unlock! __thread-locals-mutex) - _tab11012_) - _$e11009_) - (let ((_tab11014_ + _tab12994_) + _$e12991_) + (let ((_tab12996_ (let () (declare (not safe)) (make-table 'test: eq?)))) @@ -224,10 +224,10 @@ (declare (not safe)) (table-set! __thread-locals - _thr11002_ - _tab11014_)) + _thr12984_ + _tab12996_)) (mutex-unlock! __thread-locals-mutex) - _tab11014_))))))))) + _tab12996_))))))))) (define __primordial-thread-locals (let () (declare (not safe)) (make-table 'test: eq?))) (define __thread-locals @@ -235,13 +235,13 @@ (define __thread-locals-mutex (make-mutex 'thread-locals)) (define __unhandled-actor-exception-hook '#f) (define unhandled-actor-exception-hook-set! - (lambda (_proc10999_) - (if (let () (declare (not safe)) (procedure? _proc10999_)) + (lambda (_proc12981_) + (if (let () (declare (not safe)) (procedure? _proc12981_)) '#!void - (raise (let ((__tmp11115 + (raise (let ((__tmp13097 (let () (declare (not safe)) - (cons _proc10999_ '())))) + (cons _proc12981_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -249,122 +249,124 @@ 'where: 'unhandler-actor-exception-hook-set! 'irritants: - __tmp11115)))) - (set! __unhandled-actor-exception-hook _proc10999_))) + __tmp13097)))) + (set! __unhandled-actor-exception-hook _proc12981_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx10987_ _proc10988_) - (let ((_handler10990_ (current-exception-handler))) + (lambda (_mx12969_ _proc12970_) + (let ((_handler12972_ (current-exception-handler))) (with-exception-handler - (lambda (_e10992_) - (let ((__tmp11116 + (lambda (_e12974_) + (let ((__tmp13098 (lambda () - (mutex-unlock! _mx10987_) - (_handler10990_ _e10992_)))) + (mutex-unlock! _mx12969_) + (_handler12972_ _e12974_)))) (declare (not safe)) - (with-catch void __tmp11116)) + (with-catch void __tmp13098)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e10992_))) + (##thread-end-with-uncaught-exception! _e12974_))) (lambda () - (mutex-lock! _mx10987_) - (let ((_result10996_ (_proc10988_))) - (mutex-unlock! _mx10987_) - _result10996_)))))) + (mutex-lock! _mx12969_) + (let ((_result12978_ (_proc12970_))) + (mutex-unlock! _mx12969_) + _result12978_)))))) (define with-dynamic-lock - (lambda (_mx10982_ _proc10983_) + (lambda (_mx12964_ _proc12965_) (dynamic-wind - (lambda () (mutex-lock! _mx10982_)) - _proc10983_ - (lambda () (mutex-unlock! _mx10982_))))) + (lambda () (mutex-lock! _mx12964_)) + _proc12965_ + (lambda () (mutex-unlock! _mx12964_))))) (define with-exception-stack-trace__% - (lambda (_thunk10963_ _error-port10964_) + (lambda (_thunk12945_ _error-port12946_) (with-exception-handler - (let ((_E10966_ (current-exception-handler))) - (lambda (_exn10968_) + (let ((_E12948_ (current-exception-handler))) + (lambda (_exn12950_) (continuation-capture - (lambda (_cont10970_) - (let () - (declare (not safe)) - (dump-stack-trace!__% - _cont10970_ - _exn10968_ - _error-port10964_)) - (_E10966_ _exn10968_))))) - _thunk10963_))) + (lambda (_cont12952_) + (if (dump-stack-trace?) + (let () + (declare (not safe)) + (dump-stack-trace!__% + _cont12952_ + _exn12950_ + _error-port12946_)) + '#!void) + (_E12948_ _exn12950_))))) + _thunk12945_))) (define with-exception-stack-trace__0 - (lambda (_thunk10975_) - (let ((_error-port10977_ (current-error-port))) + (lambda (_thunk12957_) + (let ((_error-port12959_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk10975_ _error-port10977_)))) + (with-exception-stack-trace__% _thunk12957_ _error-port12959_)))) (define with-exception-stack-trace - (lambda _g11118_ - (let ((_g11117_ (let () (declare (not safe)) (##length _g11118_)))) - (cond ((let () (declare (not safe)) (##fx= _g11117_ 1)) - (apply (lambda (_thunk10975_) + (lambda _g13100_ + (let ((_g13099_ (let () (declare (not safe)) (##length _g13100_)))) + (cond ((let () (declare (not safe)) (##fx= _g13099_ 1)) + (apply (lambda (_thunk12957_) (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk10975_))) - _g11118_)) - ((let () (declare (not safe)) (##fx= _g11117_ 2)) - (apply (lambda (_thunk10979_ _error-port10980_) + (with-exception-stack-trace__0 _thunk12957_))) + _g13100_)) + ((let () (declare (not safe)) (##fx= _g13099_ 2)) + (apply (lambda (_thunk12961_ _error-port12962_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk10979_ - _error-port10980_))) - _g11118_)) + _thunk12961_ + _error-port12962_))) + _g13100_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g11118_)))))) + _g13100_)))))) (define dump-stack-trace!__% - (lambda (_cont10944_ _exn10945_ _error-port10946_) - (let ((_out10948_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _out10948_)) - (display '"*** Unhandled exception in " _out10948_) - (display (current-thread) _out10948_) - (newline _out10948_) - (display-exception _exn10945_ _out10948_) + (lambda (_cont12926_ _exn12927_ _error-port12928_) + (let ((_out12930_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _out12930_)) + (display '"*** Unhandled exception in " _out12930_) + (display (current-thread) _out12930_) + (newline _out12930_) + (display-exception _exn12927_ _out12930_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn10945_)) + (class-instance? StackTrace::t _exn12927_)) '#!void (begin - (display '"Continuation backtrace: " _out10948_) - (newline _out10948_) - (display-continuation-backtrace _cont10944_ _out10948_))) - (let ((__tmp11119 (get-output-string _out10948_))) + (display '"Continuation backtrace: " _out12930_) + (newline _out12930_) + (display-continuation-backtrace _cont12926_ _out12930_))) + (let ((__tmp13101 (get-output-string _out12930_))) (declare (not safe)) - (##write-string __tmp11119 _error-port10946_))))) + (##write-string __tmp13101 _error-port12928_))))) (define dump-stack-trace!__0 - (lambda (_cont10953_ _exn10954_) - (let ((_error-port10956_ (current-error-port))) + (lambda (_cont12935_ _exn12936_) + (let ((_error-port12938_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont10953_ _exn10954_ _error-port10956_)))) + (dump-stack-trace!__% _cont12935_ _exn12936_ _error-port12938_)))) (define dump-stack-trace! - (lambda _g11121_ - (let ((_g11120_ (let () (declare (not safe)) (##length _g11121_)))) - (cond ((let () (declare (not safe)) (##fx= _g11120_ 2)) - (apply (lambda (_cont10953_ _exn10954_) + (lambda _g13103_ + (let ((_g13102_ (let () (declare (not safe)) (##length _g13103_)))) + (cond ((let () (declare (not safe)) (##fx= _g13102_ 2)) + (apply (lambda (_cont12935_ _exn12936_) (let () (declare (not safe)) - (dump-stack-trace!__0 _cont10953_ _exn10954_))) - _g11121_)) - ((let () (declare (not safe)) (##fx= _g11120_ 3)) - (apply (lambda (_cont10958_ _exn10959_ _error-port10960_) + (dump-stack-trace!__0 _cont12935_ _exn12936_))) + _g13103_)) + ((let () (declare (not safe)) (##fx= _g13102_ 3)) + (apply (lambda (_cont12940_ _exn12941_ _error-port12942_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont10958_ - _exn10959_ - _error-port10960_))) - _g11121_)) + _cont12940_ + _exn12941_ + _error-port12942_))) + _g13103_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g11121_)))))) + _g13103_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util.ssi b/src/bootstrap/gerbil/runtime/util.ssi index fb8f99c2e..3b4b11bbd 100644 --- a/src/bootstrap/gerbil/runtime/util.ssi +++ b/src/bootstrap/gerbil/runtime/util.ssi @@ -90,6 +90,9 @@ namespace: #f (%#define-runtime foldr2 foldr2) (%#define-runtime foldr foldr) (%#define-runtime foldr* foldr*) + (%#define-runtime remove-nulls! remove-nulls!) + (%#define-runtime append1! append1!) + (%#define-runtime append-reverse append-reverse) (%#define-runtime andmap1 andmap1) (%#define-runtime andmap2 andmap2) (%#define-runtime andmap andmap) @@ -190,5 +193,9 @@ namespace: #f (%#define-runtime read-u8vector read-u8vector) (%#define-runtime write-u8vector write-u8vector) (%#define-runtime read-string read-string) - (%#define-runtime write-string write-string)) + (%#define-runtime write-string write-string) + (%#define-syntax DBG |[:0:]#DBG|) + (%#define-syntax DBG/1 |[:0:]#DBG/1|) + (%#define-runtime DBG-printer DBG-printer) + (%#define-runtime DBG-helper DBG-helper)) (%#call (%#ref load-module) (%#quote "gerbil/runtime/util__0")) diff --git a/src/bootstrap/gerbil/runtime/util.ssxi.ss b/src/bootstrap/gerbil/runtime/util.ssxi.ss index 27c36de1d..b31f20f99 100644 --- a/src/bootstrap/gerbil/runtime/util.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/util.ssxi.ss @@ -153,6 +153,9 @@ package: gerbil/runtime (declare-type foldr2 (@lambda 4 #f)) (declare-type foldr (@case-lambda (3 foldr1) (4 foldr2) ((5) foldr*))) (declare-type foldr* (@lambda (2) #f)) + (declare-type remove-nulls! (@lambda 1 #f)) + (declare-type append1! (@lambda 2 #f)) + (declare-type append-reverse (@lambda 2 #f)) (declare-type andmap1 (@lambda 2 #f)) (declare-type andmap2 (@lambda 3 #f)) (declare-type andmap (@case-lambda (2 andmap1) (3 andmap2) ((4) andmap*))) @@ -257,4 +260,5 @@ package: gerbil/runtime (declare-type read-u8vector (@lambda 2 #f)) (declare-type write-u8vector (@lambda 2 #f)) (declare-type read-string (@lambda 2 #f)) - (declare-type write-string (@lambda 2 #f))) + (declare-type write-string (@lambda 2 #f)) + (declare-type DBG-helper (@lambda 5 #f))) diff --git a/src/bootstrap/gerbil/runtime/util__0.scm b/src/bootstrap/gerbil/runtime/util__0.scm index 05ed788b7..d3f27a80b 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,2134 +1,2256 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1701718632) + (define gerbil/runtime/util::timestamp 1706585166) (begin (define displayln - (lambda _args6433_ - (let _lp6435_ ((_rest6437_ _args6433_)) - (let* ((_rest64386446_ _rest6437_) - (_else64406454_ (lambda () (newline))) - (_K64426460_ - (lambda (_rest6457_ _hd6458_) - (display _hd6458_) - (let () (declare (not safe)) (_lp6435_ _rest6457_))))) - (if (let () (declare (not safe)) (##pair? _rest64386446_)) - (let ((_hd64436463_ - (let () (declare (not safe)) (##car _rest64386446_))) - (_tl64446465_ - (let () (declare (not safe)) (##cdr _rest64386446_)))) - (let* ((_hd6468_ _hd64436463_) (_rest6470_ _tl64446465_)) + (lambda _args7760_ + (let _lp7762_ ((_rest7764_ _args7760_)) + (let* ((_rest77657773_ _rest7764_) + (_else77677781_ (lambda () (newline))) + (_K77697787_ + (lambda (_rest7784_ _hd7785_) + (display _hd7785_) + (let () (declare (not safe)) (_lp7762_ _rest7784_))))) + (if (let () (declare (not safe)) (##pair? _rest77657773_)) + (let ((_hd77707790_ + (let () (declare (not safe)) (##car _rest77657773_))) + (_tl77717792_ + (let () (declare (not safe)) (##cdr _rest77657773_)))) + (let* ((_hd7795_ _hd77707790_) (_rest7797_ _tl77717792_)) (declare (not safe)) - (_K64426460_ _rest6470_ _hd6468_))) + (_K77697787_ _rest7797_ _hd7795_))) (let () (declare (not safe)) (newline))))))) - (define display* (lambda _args6431_ (for-each display _args6431_))) + (define display* (lambda _args7758_ (for-each display _args7758_))) (define file-newer? - (lambda (_file16424_ _file26425_) - (letrec ((_modification-time6427_ - (lambda (_file6429_) - (let ((__tmp6482 + (lambda (_file17751_ _file27752_) + (letrec ((_modification-time7754_ + (lambda (_file7756_) + (let ((__tmp8185 (file-info-last-modification-time - (file-info _file6429_ '#t)))) + (file-info _file7756_ '#t)))) (declare (not safe)) - (##time->seconds __tmp6482))))) - (let ((__tmp6484 + (##time->seconds __tmp8185))))) + (let ((__tmp8187 (let () (declare (not safe)) - (_modification-time6427_ _file16424_))) - (__tmp6483 + (_modification-time7754_ _file17751_))) + (__tmp8186 (let () (declare (not safe)) - (_modification-time6427_ _file26425_)))) + (_modification-time7754_ _file27752_)))) (declare (not safe)) - (##fl> __tmp6484 __tmp6483))))) + (##fl> __tmp8187 __tmp8186))))) (define create-directory*__% - (lambda (_dir6398_ _perms6399_) - (letrec ((_create16401_ - (lambda (_path6412_) - (if (file-exists? _path6412_) - (if (let ((__tmp6485 (file-type _path6412_))) + (lambda (_dir7725_ _perms7726_) + (letrec ((_create17728_ + (lambda (_path7739_) + (if (file-exists? _path7739_) + (if (let ((__tmp8188 (file-type _path7739_))) (declare (not safe)) - (eq? __tmp6485 'directory)) + (eq? __tmp8188 'directory)) '#!void (error '"Path component is not a directory" - _path6412_)) - (if _perms6399_ + _path7739_)) + (if _perms7726_ (create-directory (list 'path: - _path6412_ + _path7739_ 'permissions: - _perms6399_)) - (create-directory _path6412_)))))) - (if (file-exists? _dir6398_) + _perms7726_)) + (create-directory _path7739_)))))) + (if (file-exists? _dir7725_) '#!void - (let _lp6403_ ((_start6405_ '0)) - (let ((_$e6407_ + (let _lp7730_ ((_start7732_ '0)) + (let ((_$e7734_ (let () (declare (not safe)) - (string-index _dir6398_ '#\/ _start6405_)))) - (if _$e6407_ - ((lambda (_x6410_) - (if (let () (declare (not safe)) (##fx> _x6410_ '0)) - (let ((__tmp6486 - (substring _dir6398_ '0 _x6410_))) + (string-index _dir7725_ '#\/ _start7732_)))) + (if _$e7734_ + ((lambda (_x7737_) + (if (let () (declare (not safe)) (##fx> _x7737_ '0)) + (let ((__tmp8189 + (substring _dir7725_ '0 _x7737_))) (declare (not safe)) - (_create16401_ __tmp6486)) + (_create17728_ __tmp8189)) '#!void) - (let ((__tmp6487 + (let ((__tmp8190 (let () (declare (not safe)) - (##fx+ _x6410_ '1)))) + (##fx+ _x7737_ '1)))) (declare (not safe)) - (_lp6403_ __tmp6487))) - _$e6407_) + (_lp7730_ __tmp8190))) + _$e7734_) (let () (declare (not safe)) - (_create16401_ _dir6398_))))))))) + (_create17728_ _dir7725_))))))))) (define create-directory*__0 - (lambda (_dir6417_) - (let ((_perms6419_ '493)) + (lambda (_dir7744_) + (let ((_perms7746_ '493)) (declare (not safe)) - (create-directory*__% _dir6417_ _perms6419_)))) + (create-directory*__% _dir7744_ _perms7746_)))) (define create-directory* - (lambda _g6489_ - (let ((_g6488_ (let () (declare (not safe)) (##length _g6489_)))) - (cond ((let () (declare (not safe)) (##fx= _g6488_ 1)) - (apply (lambda (_dir6417_) + (lambda _g8192_ + (let ((_g8191_ (let () (declare (not safe)) (##length _g8192_)))) + (cond ((let () (declare (not safe)) (##fx= _g8191_ 1)) + (apply (lambda (_dir7744_) (let () (declare (not safe)) - (create-directory*__0 _dir6417_))) - _g6489_)) - ((let () (declare (not safe)) (##fx= _g6488_ 2)) - (apply (lambda (_dir6421_ _perms6422_) + (create-directory*__0 _dir7744_))) + _g8192_)) + ((let () (declare (not safe)) (##fx= _g8191_ 2)) + (apply (lambda (_dir7748_ _perms7749_) (let () (declare (not safe)) - (create-directory*__% _dir6421_ _perms6422_))) - _g6489_)) + (create-directory*__% _dir7748_ _perms7749_))) + _g8192_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g6489_)))))) + _g8192_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _g6490_ '#t)) + (define true (lambda _g8193_ '#t)) (define true? - (lambda (_obj6394_) (let () (declare (not safe)) (eq? _obj6394_ '#t)))) - (define false (lambda _g6491_ '#f)) - (define void (lambda _g6492_ '#!void)) + (lambda (_obj7721_) (let () (declare (not safe)) (eq? _obj7721_ '#t)))) + (define false (lambda _g8194_ '#f)) + (define void (lambda _g8195_ '#!void)) (define void? - (lambda (_obj6390_) - (let () (declare (not safe)) (eq? _obj6390_ '#!void)))) - (define eof-object (lambda _g6493_ '#!eof)) - (define identity (lambda (_obj6387_) _obj6387_)) + (lambda (_obj7717_) + (let () (declare (not safe)) (eq? _obj7717_ '#!void)))) + (define eof-object (lambda _g8196_ '#!eof)) + (define identity (lambda (_obj7714_) _obj7714_)) (define dssl-object? - (lambda (_obj6385_) - (if (memq _obj6385_ '(#!key #!rest #!optional)) '#t '#f))) + (lambda (_obj7712_) + (if (memq _obj7712_ '(#!key #!rest #!optional)) '#t '#f))) (define dssl-key-object? - (lambda (_obj6383_) - (let () (declare (not safe)) (eq? _obj6383_ '#!key)))) + (lambda (_obj7710_) + (let () (declare (not safe)) (eq? _obj7710_ '#!key)))) (define dssl-rest-object? - (lambda (_obj6381_) - (let () (declare (not safe)) (eq? _obj6381_ '#!rest)))) + (lambda (_obj7708_) + (let () (declare (not safe)) (eq? _obj7708_ '#!rest)))) (define dssl-optional-object? - (lambda (_obj6379_) - (let () (declare (not safe)) (eq? _obj6379_ '#!optional)))) + (lambda (_obj7706_) + (let () (declare (not safe)) (eq? _obj7706_ '#!optional)))) (define immediate? - (lambda (_obj6375_) - (let* ((_t6377_ (let () (declare (not safe)) (##type _obj6375_))) - (__tmp6494 (let () (declare (not safe)) (##fxand _t6377_ '1)))) + (lambda (_obj7702_) + (let* ((_t7704_ (let () (declare (not safe)) (##type _obj7702_))) + (__tmp8197 (let () (declare (not safe)) (##fxand _t7704_ '1)))) (declare (not safe)) - (##fxzero? __tmp6494)))) + (##fxzero? __tmp8197)))) (define nonnegative-fixnum? - (lambda (_obj6373_) - (if (fixnum? _obj6373_) - (let ((__tmp6495 (fxnegative? _obj6373_))) + (lambda (_obj7700_) + (if (fixnum? _obj7700_) + (let ((__tmp8198 (fxnegative? _obj7700_))) (declare (not safe)) - (not __tmp6495)) + (not __tmp8198)) '#f))) (define values-count - (lambda (_obj6371_) - (if (let () (declare (not safe)) (##values? _obj6371_)) - (let () (declare (not safe)) (##vector-length _obj6371_)) + (lambda (_obj7698_) + (if (let () (declare (not safe)) (##values? _obj7698_)) + (let () (declare (not safe)) (##vector-length _obj7698_)) '1))) (define values-ref - (lambda (_obj6368_ _k6369_) - (if (let () (declare (not safe)) (##values? _obj6368_)) - (let () (declare (not safe)) (##vector-ref _obj6368_ _k6369_)) - _obj6368_))) + (lambda (_obj7695_ _k7696_) + (if (let () (declare (not safe)) (##values? _obj7695_)) + (let () (declare (not safe)) (##vector-ref _obj7695_ _k7696_)) + _obj7695_))) (define values->list - (lambda (_obj6366_) - (if (let () (declare (not safe)) (##values? _obj6366_)) - (let () (declare (not safe)) (##vector->list _obj6366_)) - (list _obj6366_)))) + (lambda (_obj7693_) + (if (let () (declare (not safe)) (##values? _obj7693_)) + (let () (declare (not safe)) (##vector->list _obj7693_)) + (list _obj7693_)))) (define subvector->list__% - (lambda (_obj6351_ _start6352_) - (let ((_lst6354_ - (let () (declare (not safe)) (##vector->list _obj6351_)))) - (list-tail _lst6354_ _start6352_)))) + (lambda (_obj7678_ _start7679_) + (let ((_lst7681_ + (let () (declare (not safe)) (##vector->list _obj7678_)))) + (list-tail _lst7681_ _start7679_)))) (define subvector->list__0 - (lambda (_obj6359_) - (let ((_start6361_ '0)) + (lambda (_obj7686_) + (let ((_start7688_ '0)) (declare (not safe)) - (subvector->list__% _obj6359_ _start6361_)))) + (subvector->list__% _obj7686_ _start7688_)))) (define subvector->list - (lambda _g6497_ - (let ((_g6496_ (let () (declare (not safe)) (##length _g6497_)))) - (cond ((let () (declare (not safe)) (##fx= _g6496_ 1)) - (apply (lambda (_obj6359_) + (lambda _g8200_ + (let ((_g8199_ (let () (declare (not safe)) (##length _g8200_)))) + (cond ((let () (declare (not safe)) (##fx= _g8199_ 1)) + (apply (lambda (_obj7686_) (let () (declare (not safe)) - (subvector->list__0 _obj6359_))) - _g6497_)) - ((let () (declare (not safe)) (##fx= _g6496_ 2)) - (apply (lambda (_obj6363_ _start6364_) + (subvector->list__0 _obj7686_))) + _g8200_)) + ((let () (declare (not safe)) (##fx= _g8199_ 2)) + (apply (lambda (_obj7690_ _start7691_) (let () (declare (not safe)) - (subvector->list__% _obj6363_ _start6364_))) - _g6497_)) + (subvector->list__% _obj7690_ _start7691_))) + _g8200_)) (else (##raise-wrong-number-of-arguments-exception subvector->list - _g6497_)))))) + _g8200_)))))) (define make-hash-table make-table) (define make-hash-table-eq - (lambda _args6348_ (apply make-table 'test: eq? _args6348_))) + (lambda _args7675_ (apply make-table 'test: eq? _args7675_))) (define make-hash-table-eqv - (lambda _args6346_ (apply make-table 'test: eqv? _args6346_))) + (lambda _args7673_ (apply make-table 'test: eqv? _args7673_))) (define list->hash-table list->table) (define list->hash-table-eq - (lambda (_lst6343_ . _args6344_) - (apply list->table _lst6343_ 'test: eq? _args6344_))) + (lambda (_lst7670_ . _args7671_) + (apply list->table _lst7670_ 'test: eq? _args7671_))) (define list->hash-table-eqv - (lambda (_lst6340_ . _args6341_) - (apply list->table _lst6340_ 'test: eqv? _args6341_))) + (lambda (_lst7667_ . _args7668_) + (apply list->table _lst7667_ 'test: eqv? _args7668_))) (define hash? table?) (define hash-table? table?) (define hash-length table-length) (define hash-ref table-ref) (define hash-get - (lambda (_ht6337_ _k6338_) (table-ref _ht6337_ _k6338_ '#f))) + (lambda (_ht7664_ _k7665_) (table-ref _ht7664_ _k7665_ '#f))) (define hash-put! - (lambda (_ht6333_ _k6334_ _v6335_) - (table-set! _ht6333_ _k6334_ _v6335_))) + (lambda (_ht7660_ _k7661_ _v7662_) + (table-set! _ht7660_ _k7661_ _v7662_))) (define hash-update!__% - (lambda (_ht6312_ _k6313_ _update6314_ _default6315_) - (let* ((_value6317_ + (lambda (_ht7639_ _k7640_ _update7641_ _default7642_) + (let* ((_value7644_ (let () (declare (not safe)) - (table-ref _ht6312_ _k6313_ _default6315_))) - (__tmp6498 (_update6314_ _value6317_))) + (table-ref _ht7639_ _k7640_ _default7642_))) + (__tmp8201 (_update7641_ _value7644_))) (declare (not safe)) - (table-set! _ht6312_ _k6313_ __tmp6498)))) + (table-set! _ht7639_ _k7640_ __tmp8201)))) (define hash-update!__0 - (lambda (_ht6322_ _k6323_ _update6324_) - (let ((_default6326_ '#!void)) + (lambda (_ht7649_ _k7650_ _update7651_) + (let ((_default7653_ '#!void)) (declare (not safe)) - (hash-update!__% _ht6322_ _k6323_ _update6324_ _default6326_)))) + (hash-update!__% _ht7649_ _k7650_ _update7651_ _default7653_)))) (define hash-update! - (lambda _g6500_ - (let ((_g6499_ (let () (declare (not safe)) (##length _g6500_)))) - (cond ((let () (declare (not safe)) (##fx= _g6499_ 3)) - (apply (lambda (_ht6322_ _k6323_ _update6324_) + (lambda _g8203_ + (let ((_g8202_ (let () (declare (not safe)) (##length _g8203_)))) + (cond ((let () (declare (not safe)) (##fx= _g8202_ 3)) + (apply (lambda (_ht7649_ _k7650_ _update7651_) (let () (declare (not safe)) - (hash-update!__0 _ht6322_ _k6323_ _update6324_))) - _g6500_)) - ((let () (declare (not safe)) (##fx= _g6499_ 4)) - (apply (lambda (_ht6328_ _k6329_ _update6330_ _default6331_) + (hash-update!__0 _ht7649_ _k7650_ _update7651_))) + _g8203_)) + ((let () (declare (not safe)) (##fx= _g8202_ 4)) + (apply (lambda (_ht7655_ _k7656_ _update7657_ _default7658_) (let () (declare (not safe)) (hash-update!__% - _ht6328_ - _k6329_ - _update6330_ - _default6331_))) - _g6500_)) + _ht7655_ + _k7656_ + _update7657_ + _default7658_))) + _g8203_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g6500_)))))) + _g8203_)))))) (define hash-remove! - (lambda (_ht6308_ _k6309_) (table-set! _ht6308_ _k6309_))) + (lambda (_ht7635_ _k7636_) (table-set! _ht7635_ _k7636_))) (define hash->list table->list) (define hash->plist - (lambda (_ht6306_) - (let () (declare (not safe)) (hash-fold cons* '() _ht6306_)))) + (lambda (_ht7633_) + (let () (declare (not safe)) (hash-fold cons* '() _ht7633_)))) (define plist->hash-table__% - (lambda (_plst6241_ _ht6242_) - (let _lp6244_ ((_rest6246_ _plst6241_)) - (let* ((_rest62476258_ _rest6246_) - (_E62506262_ - (lambda () (error '"No clause matching" _rest62476258_)))) - (let ((_K62526277_ - (lambda (_rest6273_ _v6274_ _k6275_) + (lambda (_plst7568_ _ht7569_) + (let _lp7571_ ((_rest7573_ _plst7568_)) + (let* ((_rest75747585_ _rest7573_) + (_E75777589_ + (lambda () (error '"No clause matching" _rest75747585_)))) + (let ((_K75797604_ + (lambda (_rest7600_ _v7601_ _k7602_) (let () (declare (not safe)) - (table-set! _ht6242_ _k6275_ _v6274_)) - (let () (declare (not safe)) (_lp6244_ _rest6273_)))) - (_K62516267_ (lambda () _ht6242_))) - (let ((_try-match62496270_ + (table-set! _ht7569_ _k7602_ _v7601_)) + (let () (declare (not safe)) (_lp7571_ _rest7600_)))) + (_K75787594_ (lambda () _ht7569_))) + (let ((_try-match75767597_ (lambda () (if (let () (declare (not safe)) - (##eq? _rest62476258_ '())) - (let () (declare (not safe)) (_K62516267_)) - (let () (declare (not safe)) (_E62506262_)))))) - (if (let () (declare (not safe)) (##pair? _rest62476258_)) - (let ((_tl62546282_ + (##eq? _rest75747585_ '())) + (let () (declare (not safe)) (_K75787594_)) + (let () (declare (not safe)) (_E75777589_)))))) + (if (let () (declare (not safe)) (##pair? _rest75747585_)) + (let ((_tl75817609_ (let () (declare (not safe)) - (##cdr _rest62476258_))) - (_hd62536280_ + (##cdr _rest75747585_))) + (_hd75807607_ (let () (declare (not safe)) - (##car _rest62476258_)))) - (if (let () (declare (not safe)) (##pair? _tl62546282_)) - (let ((_tl62566289_ + (##car _rest75747585_)))) + (if (let () (declare (not safe)) (##pair? _tl75817609_)) + (let ((_tl75837616_ (let () (declare (not safe)) - (##cdr _tl62546282_))) - (_hd62556287_ + (##cdr _tl75817609_))) + (_hd75827614_ (let () (declare (not safe)) - (##car _tl62546282_)))) - (let ((_k6285_ _hd62536280_) - (_v6292_ _hd62556287_) - (_rest6294_ _tl62566289_)) + (##car _tl75817609_)))) + (let ((_k7612_ _hd75807607_) + (_v7619_ _hd75827614_) + (_rest7621_ _tl75837616_)) (let () (declare (not safe)) - (_K62526277_ _rest6294_ _v6292_ _k6285_)))) - (let () (declare (not safe)) (_try-match62496270_)))) - (let () (declare (not safe)) (_try-match62496270_))))))))) + (_K75797604_ _rest7621_ _v7619_ _k7612_)))) + (let () (declare (not safe)) (_try-match75767597_)))) + (let () (declare (not safe)) (_try-match75767597_))))))))) (define plist->hash-table__0 - (lambda (_plst6299_) - (let ((_ht6301_ (let () (declare (not safe)) (make-table)))) + (lambda (_plst7626_) + (let ((_ht7628_ (let () (declare (not safe)) (make-table)))) (declare (not safe)) - (plist->hash-table__% _plst6299_ _ht6301_)))) + (plist->hash-table__% _plst7626_ _ht7628_)))) (define plist->hash-table - (lambda _g6502_ - (let ((_g6501_ (let () (declare (not safe)) (##length _g6502_)))) - (cond ((let () (declare (not safe)) (##fx= _g6501_ 1)) - (apply (lambda (_plst6299_) + (lambda _g8205_ + (let ((_g8204_ (let () (declare (not safe)) (##length _g8205_)))) + (cond ((let () (declare (not safe)) (##fx= _g8204_ 1)) + (apply (lambda (_plst7626_) (let () (declare (not safe)) - (plist->hash-table__0 _plst6299_))) - _g6502_)) - ((let () (declare (not safe)) (##fx= _g6501_ 2)) - (apply (lambda (_plst6303_ _ht6304_) + (plist->hash-table__0 _plst7626_))) + _g8205_)) + ((let () (declare (not safe)) (##fx= _g8204_ 2)) + (apply (lambda (_plst7630_ _ht7631_) (let () (declare (not safe)) - (plist->hash-table__% _plst6303_ _ht6304_))) - _g6502_)) + (plist->hash-table__% _plst7630_ _ht7631_))) + _g8205_)) (else (##raise-wrong-number-of-arguments-exception plist->hash-table - _g6502_)))))) + _g8205_)))))) (define plist->hash-table-eq - (lambda (_plst6238_) - (let ((__tmp6503 + (lambda (_plst7565_) + (let ((__tmp8206 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (plist->hash-table _plst6238_ __tmp6503)))) + (plist->hash-table _plst7565_ __tmp8206)))) (define plist->hash-table-eqv - (lambda (_plst6236_) - (let ((__tmp6504 + (lambda (_plst7563_) + (let ((__tmp8207 (let () (declare (not safe)) (make-table 'test: eqv?)))) (declare (not safe)) - (plist->hash-table _plst6236_ __tmp6504)))) + (plist->hash-table _plst7563_ __tmp8207)))) (define hash-key? - (lambda (_ht6233_ _k6234_) - (let ((__tmp6505 - (let ((__tmp6506 + (lambda (_ht7560_ _k7561_) + (let ((__tmp8208 + (let ((__tmp8209 (let () (declare (not safe)) - (table-ref _ht6233_ _k6234_ absent-value)))) + (table-ref _ht7560_ _k7561_ absent-value)))) (declare (not safe)) - (eq? __tmp6506 absent-value)))) + (eq? __tmp8209 absent-value)))) (declare (not safe)) - (not __tmp6505)))) + (not __tmp8208)))) (define hash-for-each table-for-each) (define hash-map - (lambda (_fun6226_ _ht6227_) - (let ((__tmp6507 - (lambda (_k6229_ _v6230_ _r6231_) - (let ((__tmp6508 (_fun6226_ _k6229_ _v6230_))) + (lambda (_fun7553_ _ht7554_) + (let ((__tmp8210 + (lambda (_k7556_ _v7557_ _r7558_) + (let ((__tmp8211 (_fun7553_ _k7556_ _v7557_))) (declare (not safe)) - (cons __tmp6508 _r6231_))))) + (cons __tmp8211 _r7558_))))) (declare (not safe)) - (hash-fold __tmp6507 '() _ht6227_)))) + (hash-fold __tmp8210 '() _ht7554_)))) (define hash-fold - (lambda (_fun6217_ _iv6218_ _ht6219_) - (let ((_ret6221_ _iv6218_)) - (let ((__tmp6509 - (lambda (_k6223_ _v6224_) - (set! _ret6221_ (_fun6217_ _k6223_ _v6224_ _ret6221_))))) + (lambda (_fun7544_ _iv7545_ _ht7546_) + (let ((_ret7548_ _iv7545_)) + (let ((__tmp8212 + (lambda (_k7550_ _v7551_) + (set! _ret7548_ (_fun7544_ _k7550_ _v7551_ _ret7548_))))) (declare (not safe)) - (table-for-each __tmp6509 _ht6219_)) - _ret6221_))) + (table-for-each __tmp8212 _ht7546_)) + _ret7548_))) (define hash-find table-search) (define hash-keys - (lambda (_ht6212_) - (let ((__tmp6510 (lambda (_k6214_ _v6215_) _k6214_))) + (lambda (_ht7539_) + (let ((__tmp8213 (lambda (_k7541_ _v7542_) _k7541_))) (declare (not safe)) - (hash-map __tmp6510 _ht6212_)))) + (hash-map __tmp8213 _ht7539_)))) (define hash-values - (lambda (_ht6207_) - (let ((__tmp6511 (lambda (_k6209_ _v6210_) _v6210_))) + (lambda (_ht7534_) + (let ((__tmp8214 (lambda (_k7536_ _v7537_) _v7537_))) (declare (not safe)) - (hash-map __tmp6511 _ht6207_)))) + (hash-map __tmp8214 _ht7534_)))) (define hash-copy - (lambda (_hd6202_ . _rest6203_) - (let ((_hd6205_ (table-copy _hd6202_))) - (if (let () (declare (not safe)) (null? _rest6203_)) - _hd6205_ - (apply hash-copy! _hd6205_ _rest6203_))))) + (lambda (_hd7529_ . _rest7530_) + (let ((_hd7532_ (table-copy _hd7529_))) + (if (let () (declare (not safe)) (null? _rest7530_)) + _hd7532_ + (apply hash-copy! _hd7532_ _rest7530_))))) (define hash-copy! - (lambda (_hd6197_ . _rest6198_) + (lambda (_hd7524_ . _rest7525_) (for-each - (lambda (_r6200_) (table-merge! _hd6197_ _r6200_)) - _rest6198_) - _hd6197_)) + (lambda (_r7527_) (table-merge! _hd7524_ _r7527_)) + _rest7525_) + _hd7524_)) (define hash-merge - (lambda (_hd6191_ . _rest6192_) - (let ((__tmp6512 - (lambda (_tab6194_ _r6195_) (table-merge _r6195_ _tab6194_)))) + (lambda (_hd7518_ . _rest7519_) + (let ((__tmp8215 + (lambda (_tab7521_ _r7522_) (table-merge _r7522_ _tab7521_)))) (declare (not safe)) - (foldl1 __tmp6512 _hd6191_ _rest6192_)))) + (foldl1 __tmp8215 _hd7518_ _rest7519_)))) (define hash-merge! - (lambda (_hd6185_ . _rest6186_) - (let ((__tmp6513 - (lambda (_tab6188_ _r6189_) (table-merge! _r6189_ _tab6188_)))) + (lambda (_hd7512_ . _rest7513_) + (let ((__tmp8216 + (lambda (_tab7515_ _r7516_) (table-merge! _r7516_ _tab7515_)))) (declare (not safe)) - (foldl1 __tmp6513 _hd6185_ _rest6186_)))) + (foldl1 __tmp8216 _hd7512_ _rest7513_)))) (define hash-clear!__% - (lambda (_ht6170_ _size6171_) - (let ((_gcht6173_ - (let () (declare (not safe)) (##vector-ref _ht6170_ '5)))) - (if (let ((__tmp6514 (fixnum? _gcht6173_))) + (lambda (_ht7497_ _size7498_) + (let ((_gcht7500_ + (let () (declare (not safe)) (##vector-ref _ht7497_ '5)))) + (if (let ((__tmp8217 (fixnum? _gcht7500_))) (declare (not safe)) - (not __tmp6514)) + (not __tmp8217)) (let () (declare (not safe)) - (##vector-set! _ht6170_ '5 _size6171_)) + (##vector-set! _ht7497_ '5 _size7498_)) '#!void)))) (define hash-clear!__0 - (lambda (_ht6178_) - (let ((_size6180_ '0)) + (lambda (_ht7505_) + (let ((_size7507_ '0)) (declare (not safe)) - (hash-clear!__% _ht6178_ _size6180_)))) + (hash-clear!__% _ht7505_ _size7507_)))) (define hash-clear! - (lambda _g6516_ - (let ((_g6515_ (let () (declare (not safe)) (##length _g6516_)))) - (cond ((let () (declare (not safe)) (##fx= _g6515_ 1)) - (apply (lambda (_ht6178_) + (lambda _g8219_ + (let ((_g8218_ (let () (declare (not safe)) (##length _g8219_)))) + (cond ((let () (declare (not safe)) (##fx= _g8218_ 1)) + (apply (lambda (_ht7505_) (let () (declare (not safe)) - (hash-clear!__0 _ht6178_))) - _g6516_)) - ((let () (declare (not safe)) (##fx= _g6515_ 2)) - (apply (lambda (_ht6182_ _size6183_) + (hash-clear!__0 _ht7505_))) + _g8219_)) + ((let () (declare (not safe)) (##fx= _g8218_ 2)) + (apply (lambda (_ht7509_ _size7510_) (let () (declare (not safe)) - (hash-clear!__% _ht6182_ _size6183_))) - _g6516_)) + (hash-clear!__% _ht7509_ _size7510_))) + _g8219_)) (else (##raise-wrong-number-of-arguments-exception hash-clear! - _g6516_)))))) + _g8219_)))))) (define make-list__% - (lambda (_k6151_ _val6152_) - (if (fixnum? _k6151_) + (lambda (_k7478_ _val7479_) + (if (fixnum? _k7478_) '#!void - (error '"expected argument 1 to be fixnum" _k6151_)) - (let _lp6154_ ((_n6156_ '0) (_r6157_ '())) - (if (let () (declare (not safe)) (##fx< _n6156_ _k6151_)) - (let ((__tmp6518 - (let () (declare (not safe)) (##fx+ _n6156_ '1))) - (__tmp6517 - (let () (declare (not safe)) (cons _val6152_ _r6157_)))) + (error '"expected argument 1 to be fixnum" _k7478_)) + (let _lp7481_ ((_n7483_ '0) (_r7484_ '())) + (if (let () (declare (not safe)) (##fx< _n7483_ _k7478_)) + (let ((__tmp8221 + (let () (declare (not safe)) (##fx+ _n7483_ '1))) + (__tmp8220 + (let () (declare (not safe)) (cons _val7479_ _r7484_)))) (declare (not safe)) - (_lp6154_ __tmp6518 __tmp6517)) - _r6157_)))) + (_lp7481_ __tmp8221 __tmp8220)) + _r7484_)))) (define make-list__0 - (lambda (_k6162_) - (let ((_val6164_ '#f)) + (lambda (_k7489_) + (let ((_val7491_ '#f)) (declare (not safe)) - (make-list__% _k6162_ _val6164_)))) + (make-list__% _k7489_ _val7491_)))) (define make-list - (lambda _g6520_ - (let ((_g6519_ (let () (declare (not safe)) (##length _g6520_)))) - (cond ((let () (declare (not safe)) (##fx= _g6519_ 1)) - (apply (lambda (_k6162_) - (let () (declare (not safe)) (make-list__0 _k6162_))) - _g6520_)) - ((let () (declare (not safe)) (##fx= _g6519_ 2)) - (apply (lambda (_k6166_ _val6167_) + (lambda _g8223_ + (let ((_g8222_ (let () (declare (not safe)) (##length _g8223_)))) + (cond ((let () (declare (not safe)) (##fx= _g8222_ 1)) + (apply (lambda (_k7489_) + (let () (declare (not safe)) (make-list__0 _k7489_))) + _g8223_)) + ((let () (declare (not safe)) (##fx= _g8222_ 2)) + (apply (lambda (_k7493_ _val7494_) (let () (declare (not safe)) - (make-list__% _k6166_ _val6167_))) - _g6520_)) + (make-list__% _k7493_ _val7494_))) + _g8223_)) (else (##raise-wrong-number-of-arguments-exception make-list - _g6520_)))))) + _g8223_)))))) (define cons* - (lambda (_x6141_ _y6142_ . _rest6143_) - (letrec ((_recur6145_ - (lambda (_x6147_ _rest6148_) - (if (let () (declare (not safe)) (pair? _rest6148_)) - (let ((__tmp6521 - (let ((__tmp6523 + (lambda (_x7468_ _y7469_ . _rest7470_) + (letrec ((_recur7472_ + (lambda (_x7474_ _rest7475_) + (if (let () (declare (not safe)) (pair? _rest7475_)) + (let ((__tmp8224 + (let ((__tmp8226 (let () (declare (not safe)) - (##car _rest6148_))) - (__tmp6522 + (##car _rest7475_))) + (__tmp8225 (let () (declare (not safe)) - (##cdr _rest6148_)))) + (##cdr _rest7475_)))) (declare (not safe)) - (_recur6145_ __tmp6523 __tmp6522)))) + (_recur7472_ __tmp8226 __tmp8225)))) (declare (not safe)) - (cons _x6147_ __tmp6521)) - _x6147_)))) - (let ((__tmp6524 + (cons _x7474_ __tmp8224)) + _x7474_)))) + (let ((__tmp8227 (let () (declare (not safe)) - (_recur6145_ _y6142_ _rest6143_)))) + (_recur7472_ _y7469_ _rest7470_)))) (declare (not safe)) - (cons _x6141_ __tmp6524))))) + (cons _x7468_ __tmp8227))))) (define foldl1 - (lambda (_f6099_ _iv6100_ _lst6101_) - (let _lp6103_ ((_rest6105_ _lst6101_) (_r6106_ _iv6100_)) - (let* ((_rest61076115_ _rest6105_) - (_else61096123_ (lambda () _r6106_)) - (_K61116129_ - (lambda (_rest6126_ _x6127_) - (let ((__tmp6525 (_f6099_ _x6127_ _r6106_))) + (lambda (_f7426_ _iv7427_ _lst7428_) + (let _lp7430_ ((_rest7432_ _lst7428_) (_r7433_ _iv7427_)) + (let* ((_rest74347442_ _rest7432_) + (_else74367450_ (lambda () _r7433_)) + (_K74387456_ + (lambda (_rest7453_ _x7454_) + (let ((__tmp8228 (_f7426_ _x7454_ _r7433_))) (declare (not safe)) - (_lp6103_ _rest6126_ __tmp6525))))) - (if (let () (declare (not safe)) (##pair? _rest61076115_)) - (let ((_hd61126132_ - (let () (declare (not safe)) (##car _rest61076115_))) - (_tl61136134_ - (let () (declare (not safe)) (##cdr _rest61076115_)))) - (let* ((_x6137_ _hd61126132_) (_rest6139_ _tl61136134_)) + (_lp7430_ _rest7453_ __tmp8228))))) + (if (let () (declare (not safe)) (##pair? _rest74347442_)) + (let ((_hd74397459_ + (let () (declare (not safe)) (##car _rest74347442_))) + (_tl74407461_ + (let () (declare (not safe)) (##cdr _rest74347442_)))) + (let* ((_x7464_ _hd74397459_) (_rest7466_ _tl74407461_)) (declare (not safe)) - (_K61116129_ _rest6139_ _x6137_))) - (let () (declare (not safe)) (_else61096123_))))))) + (_K74387456_ _rest7466_ _x7464_))) + (let () (declare (not safe)) (_else74367450_))))))) (define foldl2 - (lambda (_f6022_ _iv6023_ _lst16024_ _lst26025_) - (let _lp6027_ ((_rest16029_ _lst16024_) - (_rest26030_ _lst26025_) - (_r6031_ _iv6023_)) - (let* ((_rest160326040_ _rest16029_) - (_else60346048_ (lambda () _r6031_)) - (_K60366087_ - (lambda (_rest16051_ _x16052_) - (let* ((_rest260536061_ _rest26030_) - (_else60556069_ (lambda () _r6031_)) - (_K60576075_ - (lambda (_rest26072_ _x26073_) - (let ((__tmp6526 - (_f6022_ _x16052_ _x26073_ _r6031_))) + (lambda (_f7349_ _iv7350_ _lst17351_ _lst27352_) + (let _lp7354_ ((_rest17356_ _lst17351_) + (_rest27357_ _lst27352_) + (_r7358_ _iv7350_)) + (let* ((_rest173597367_ _rest17356_) + (_else73617375_ (lambda () _r7358_)) + (_K73637414_ + (lambda (_rest17378_ _x17379_) + (let* ((_rest273807388_ _rest27357_) + (_else73827396_ (lambda () _r7358_)) + (_K73847402_ + (lambda (_rest27399_ _x27400_) + (let ((__tmp8229 + (_f7349_ _x17379_ _x27400_ _r7358_))) (declare (not safe)) - (_lp6027_ - _rest16051_ - _rest26072_ - __tmp6526))))) + (_lp7354_ + _rest17378_ + _rest27399_ + __tmp8229))))) (if (let () (declare (not safe)) - (##pair? _rest260536061_)) - (let ((_hd60586078_ + (##pair? _rest273807388_)) + (let ((_hd73857405_ (let () (declare (not safe)) - (##car _rest260536061_))) - (_tl60596080_ + (##car _rest273807388_))) + (_tl73867407_ (let () (declare (not safe)) - (##cdr _rest260536061_)))) - (let* ((_x26083_ _hd60586078_) - (_rest26085_ _tl60596080_)) + (##cdr _rest273807388_)))) + (let* ((_x27410_ _hd73857405_) + (_rest27412_ _tl73867407_)) (declare (not safe)) - (_K60576075_ _rest26085_ _x26083_))) - (let () (declare (not safe)) (_else60556069_))))))) - (if (let () (declare (not safe)) (##pair? _rest160326040_)) - (let ((_hd60376090_ - (let () (declare (not safe)) (##car _rest160326040_))) - (_tl60386092_ - (let () (declare (not safe)) (##cdr _rest160326040_)))) - (let* ((_x16095_ _hd60376090_) (_rest16097_ _tl60386092_)) + (_K73847402_ _rest27412_ _x27410_))) + (let () (declare (not safe)) (_else73827396_))))))) + (if (let () (declare (not safe)) (##pair? _rest173597367_)) + (let ((_hd73647417_ + (let () (declare (not safe)) (##car _rest173597367_))) + (_tl73657419_ + (let () (declare (not safe)) (##cdr _rest173597367_)))) + (let* ((_x17422_ _hd73647417_) (_rest17424_ _tl73657419_)) (declare (not safe)) - (_K60366087_ _rest16097_ _x16095_))) - (let () (declare (not safe)) (_else60346048_))))))) + (_K73637414_ _rest17424_ _x17422_))) + (let () (declare (not safe)) (_else73617375_))))))) (define foldl - (lambda _g6528_ - (let ((_g6527_ (let () (declare (not safe)) (##length _g6528_)))) - (cond ((let () (declare (not safe)) (##fx= _g6527_ 3)) - (apply (lambda (_f6007_ _iv6008_ _lst6009_) + (lambda _g8231_ + (let ((_g8230_ (let () (declare (not safe)) (##length _g8231_)))) + (cond ((let () (declare (not safe)) (##fx= _g8230_ 3)) + (apply (lambda (_f7334_ _iv7335_ _lst7336_) (let () (declare (not safe)) - (foldl1 _f6007_ _iv6008_ _lst6009_))) - _g6528_)) - ((let () (declare (not safe)) (##fx= _g6527_ 4)) - (apply (lambda (_f6011_ _iv6012_ _lst16013_ _lst26014_) + (foldl1 _f7334_ _iv7335_ _lst7336_))) + _g8231_)) + ((let () (declare (not safe)) (##fx= _g8230_ 4)) + (apply (lambda (_f7338_ _iv7339_ _lst17340_ _lst27341_) (let () (declare (not safe)) - (foldl2 _f6011_ _iv6012_ _lst16013_ _lst26014_))) - _g6528_)) - ((let () (declare (not safe)) (##fx>= _g6527_ 4)) - (apply foldl* _g6528_)) + (foldl2 _f7338_ _iv7339_ _lst17340_ _lst27341_))) + _g8231_)) + ((let () (declare (not safe)) (##fx>= _g8230_ 4)) + (apply foldl* _g8231_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g6528_)))))) + _g8231_)))))) (define foldl* - (lambda (_f5995_ _iv5996_ . _rest5997_) - (let _recur5999_ ((_iv6001_ _iv5996_) (_rest6002_ _rest5997_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest6002_)) - (let ((__tmp6530 - (apply _f5995_ - (let ((__tmp6532 - (lambda (_xs6004_ _r6005_) - (let ((__tmp6533 (car _xs6004_))) + (lambda (_f7322_ _iv7323_ . _rest7324_) + (let _recur7326_ ((_iv7328_ _iv7323_) (_rest7329_ _rest7324_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest7329_)) + (let ((__tmp8233 + (apply _f7322_ + (let ((__tmp8235 + (lambda (_xs7331_ _r7332_) + (let ((__tmp8236 (car _xs7331_))) (declare (not safe)) - (cons __tmp6533 _r6005_)))) - (__tmp6531 (list _iv6001_))) + (cons __tmp8236 _r7332_)))) + (__tmp8234 (list _iv7328_))) (declare (not safe)) - (foldr1 __tmp6532 __tmp6531 _rest6002_)))) - (__tmp6529 (map cdr _rest6002_))) + (foldr1 __tmp8235 __tmp8234 _rest7329_)))) + (__tmp8232 (map cdr _rest7329_))) (declare (not safe)) - (_recur5999_ __tmp6530 __tmp6529)) - _iv6001_)))) + (_recur7326_ __tmp8233 __tmp8232)) + _iv7328_)))) (define foldr1 - (lambda (_f5954_ _iv5955_ _lst5956_) - (let _recur5958_ ((_rest5960_ _lst5956_)) - (let* ((_rest59615969_ _rest5960_) - (_else59635977_ (lambda () _iv5955_)) - (_K59655983_ - (lambda (_rest5980_ _x5981_) - (_f5954_ _x5981_ + (lambda (_f7281_ _iv7282_ _lst7283_) + (let _recur7285_ ((_rest7287_ _lst7283_)) + (let* ((_rest72887296_ _rest7287_) + (_else72907304_ (lambda () _iv7282_)) + (_K72927310_ + (lambda (_rest7307_ _x7308_) + (_f7281_ _x7308_ (let () (declare (not safe)) - (_recur5958_ _rest5980_)))))) - (if (let () (declare (not safe)) (##pair? _rest59615969_)) - (let ((_hd59665986_ - (let () (declare (not safe)) (##car _rest59615969_))) - (_tl59675988_ - (let () (declare (not safe)) (##cdr _rest59615969_)))) - (let* ((_x5991_ _hd59665986_) (_rest5993_ _tl59675988_)) + (_recur7285_ _rest7307_)))))) + (if (let () (declare (not safe)) (##pair? _rest72887296_)) + (let ((_hd72937313_ + (let () (declare (not safe)) (##car _rest72887296_))) + (_tl72947315_ + (let () (declare (not safe)) (##cdr _rest72887296_)))) + (let* ((_x7318_ _hd72937313_) (_rest7320_ _tl72947315_)) (declare (not safe)) - (_K59655983_ _rest5993_ _x5991_))) - (let () (declare (not safe)) (_else59635977_))))))) + (_K72927310_ _rest7320_ _x7318_))) + (let () (declare (not safe)) (_else72907304_))))))) (define foldr2 - (lambda (_f5878_ _iv5879_ _lst15880_ _lst25881_) - (let _recur5883_ ((_rest15885_ _lst15880_) (_rest25886_ _lst25881_)) - (let* ((_rest158875895_ _rest15885_) - (_else58895903_ (lambda () _iv5879_)) - (_K58915942_ - (lambda (_rest15906_ _x15907_) - (let* ((_rest259085916_ _rest25886_) - (_else59105924_ (lambda () _iv5879_)) - (_K59125930_ - (lambda (_rest25927_ _x25928_) - (_f5878_ _x15907_ - _x25928_ + (lambda (_f7205_ _iv7206_ _lst17207_ _lst27208_) + (let _recur7210_ ((_rest17212_ _lst17207_) (_rest27213_ _lst27208_)) + (let* ((_rest172147222_ _rest17212_) + (_else72167230_ (lambda () _iv7206_)) + (_K72187269_ + (lambda (_rest17233_ _x17234_) + (let* ((_rest272357243_ _rest27213_) + (_else72377251_ (lambda () _iv7206_)) + (_K72397257_ + (lambda (_rest27254_ _x27255_) + (_f7205_ _x17234_ + _x27255_ (let () (declare (not safe)) - (_recur5883_ - _rest15906_ - _rest25927_)))))) + (_recur7210_ + _rest17233_ + _rest27254_)))))) (if (let () (declare (not safe)) - (##pair? _rest259085916_)) - (let ((_hd59135933_ + (##pair? _rest272357243_)) + (let ((_hd72407260_ (let () (declare (not safe)) - (##car _rest259085916_))) - (_tl59145935_ + (##car _rest272357243_))) + (_tl72417262_ (let () (declare (not safe)) - (##cdr _rest259085916_)))) - (let* ((_x25938_ _hd59135933_) - (_rest25940_ _tl59145935_)) + (##cdr _rest272357243_)))) + (let* ((_x27265_ _hd72407260_) + (_rest27267_ _tl72417262_)) (declare (not safe)) - (_K59125930_ _rest25940_ _x25938_))) - (let () (declare (not safe)) (_else59105924_))))))) - (if (let () (declare (not safe)) (##pair? _rest158875895_)) - (let ((_hd58925945_ - (let () (declare (not safe)) (##car _rest158875895_))) - (_tl58935947_ - (let () (declare (not safe)) (##cdr _rest158875895_)))) - (let* ((_x15950_ _hd58925945_) (_rest15952_ _tl58935947_)) + (_K72397257_ _rest27267_ _x27265_))) + (let () (declare (not safe)) (_else72377251_))))))) + (if (let () (declare (not safe)) (##pair? _rest172147222_)) + (let ((_hd72197272_ + (let () (declare (not safe)) (##car _rest172147222_))) + (_tl72207274_ + (let () (declare (not safe)) (##cdr _rest172147222_)))) + (let* ((_x17277_ _hd72197272_) (_rest17279_ _tl72207274_)) (declare (not safe)) - (_K58915942_ _rest15952_ _x15950_))) - (let () (declare (not safe)) (_else58895903_))))))) + (_K72187269_ _rest17279_ _x17277_))) + (let () (declare (not safe)) (_else72167230_))))))) (define foldr - (lambda _g6535_ - (let ((_g6534_ (let () (declare (not safe)) (##length _g6535_)))) - (cond ((let () (declare (not safe)) (##fx= _g6534_ 3)) - (apply (lambda (_f5863_ _iv5864_ _lst5865_) + (lambda _g8238_ + (let ((_g8237_ (let () (declare (not safe)) (##length _g8238_)))) + (cond ((let () (declare (not safe)) (##fx= _g8237_ 3)) + (apply (lambda (_f7190_ _iv7191_ _lst7192_) (let () (declare (not safe)) - (foldr1 _f5863_ _iv5864_ _lst5865_))) - _g6535_)) - ((let () (declare (not safe)) (##fx= _g6534_ 4)) - (apply (lambda (_f5867_ _iv5868_ _lst15869_ _lst25870_) + (foldr1 _f7190_ _iv7191_ _lst7192_))) + _g8238_)) + ((let () (declare (not safe)) (##fx= _g8237_ 4)) + (apply (lambda (_f7194_ _iv7195_ _lst17196_ _lst27197_) (let () (declare (not safe)) - (foldr2 _f5867_ _iv5868_ _lst15869_ _lst25870_))) - _g6535_)) - ((let () (declare (not safe)) (##fx>= _g6534_ 4)) - (apply foldr* _g6535_)) + (foldr2 _f7194_ _iv7195_ _lst17196_ _lst27197_))) + _g8238_)) + ((let () (declare (not safe)) (##fx>= _g8237_ 4)) + (apply foldr* _g8238_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g6535_)))))) + _g8238_)))))) (define foldr* - (lambda (_f5852_ _iv5853_ . _rest5854_) - (let _recur5856_ ((_rest5858_ _rest5854_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest5858_)) - (apply _f5852_ - (let ((__tmp6538 - (lambda (_xs5860_ _r5861_) - (let ((__tmp6539 (car _xs5860_))) + (lambda (_f7179_ _iv7180_ . _rest7181_) + (let _recur7183_ ((_rest7185_ _rest7181_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest7185_)) + (apply _f7179_ + (let ((__tmp8241 + (lambda (_xs7187_ _r7188_) + (let ((__tmp8242 (car _xs7187_))) (declare (not safe)) - (cons __tmp6539 _r5861_)))) - (__tmp6536 - (list (let ((__tmp6537 (map cdr _rest5858_))) + (cons __tmp8242 _r7188_)))) + (__tmp8239 + (list (let ((__tmp8240 (map cdr _rest7185_))) (declare (not safe)) - (_recur5856_ __tmp6537))))) + (_recur7183_ __tmp8240))))) (declare (not safe)) - (foldr1 __tmp6538 __tmp6536 _rest5858_))) - _iv5853_)))) + (foldr1 __tmp8241 __tmp8239 _rest7185_))) + _iv7180_)))) + (define remove-nulls! + (lambda (_l7066_) + (let* ((_l70677080_ _l7066_) + (_E70717084_ + (lambda () (error '"No clause matching" _l70677080_)))) + (let ((_K70767169_ + (lambda (_r7167_) + (let () (declare (not safe)) (remove-nulls! _r7167_)))) + (_K70737156_ + (lambda (_r7096_) + (let _loop7098_ ((_l7100_ _l7066_) (_r7101_ _r7096_)) + (let* ((_r71027115_ _r7101_) + (_E71067119_ + (lambda () + (error '"No clause matching" _r71027115_)))) + (let ((_K71117146_ + (lambda (_rr7144_) + (set-cdr! + _l7100_ + (let () + (declare (not safe)) + (remove-nulls! _rr7144_))))) + (_K71087133_ + (lambda (_rr7131_) + (let () + (declare (not safe)) + (_loop7098_ _r7101_ _rr7131_)))) + (_K71077124_ (lambda () '#!void))) + (if (let () + (declare (not safe)) + (##pair? _r71027115_)) + (let ((_tl71137151_ + (let () + (declare (not safe)) + (##cdr _r71027115_))) + (_hd71127149_ + (let () + (declare (not safe)) + (##car _r71027115_)))) + (if (let () + (declare (not safe)) + (##null? _hd71127149_)) + (let ((_rr7154_ _tl71137151_)) + (declare (not safe)) + (_K71117146_ _rr7154_)) + (let ((_rr7139_ _tl71137151_)) + (declare (not safe)) + (_K71087133_ _rr7139_)))) + '#!void)))) + _l7066_)) + (_K70727089_ (lambda () _l7066_))) + (if (let () (declare (not safe)) (##pair? _l70677080_)) + (let ((_tl70787174_ + (let () (declare (not safe)) (##cdr _l70677080_))) + (_hd70777172_ + (let () (declare (not safe)) (##car _l70677080_)))) + (if (let () (declare (not safe)) (##null? _hd70777172_)) + (let ((_r7177_ _tl70787174_)) + (declare (not safe)) + (remove-nulls! _r7177_)) + (let ((_r7162_ _tl70787174_)) + (declare (not safe)) + (_K70737156_ _r7162_)))) + (let () (declare (not safe)) (_K70727089_))))))) + (define append1! + (lambda (_l7061_ _x7062_) + (let ((_l27064_ (let () (declare (not safe)) (cons _x7062_ '())))) + (if (let () (declare (not safe)) (pair? _l7061_)) + (set-cdr! + (let () (declare (not safe)) (##last-pair _l7061_)) + _l27064_) + _l27064_)))) + (define append-reverse + (lambda (_rev-head7058_ _tail7059_) + (let () (declare (not safe)) (foldl1 cons _tail7059_ _rev-head7058_)))) (define andmap1 - (lambda (_f5812_ _lst5813_) - (let _lp5815_ ((_rest5817_ _lst5813_)) - (let* ((_rest58185826_ _rest5817_) - (_else58205834_ (lambda () '#t)) - (_K58225840_ - (lambda (_rest5837_ _x5838_) - (if (_f5812_ _x5838_) - (let () (declare (not safe)) (_lp5815_ _rest5837_)) + (lambda (_f7018_ _lst7019_) + (let _lp7021_ ((_rest7023_ _lst7019_)) + (let* ((_rest70247032_ _rest7023_) + (_else70267040_ (lambda () '#t)) + (_K70287046_ + (lambda (_rest7043_ _x7044_) + (if (_f7018_ _x7044_) + (let () (declare (not safe)) (_lp7021_ _rest7043_)) '#f)))) - (if (let () (declare (not safe)) (##pair? _rest58185826_)) - (let ((_hd58235843_ - (let () (declare (not safe)) (##car _rest58185826_))) - (_tl58245845_ - (let () (declare (not safe)) (##cdr _rest58185826_)))) - (let* ((_x5848_ _hd58235843_) (_rest5850_ _tl58245845_)) + (if (let () (declare (not safe)) (##pair? _rest70247032_)) + (let ((_hd70297049_ + (let () (declare (not safe)) (##car _rest70247032_))) + (_tl70307051_ + (let () (declare (not safe)) (##cdr _rest70247032_)))) + (let* ((_x7054_ _hd70297049_) (_rest7056_ _tl70307051_)) (declare (not safe)) - (_K58225840_ _rest5850_ _x5848_))) - (let () (declare (not safe)) (_else58205834_))))))) + (_K70287046_ _rest7056_ _x7054_))) + (let () (declare (not safe)) (_else70267040_))))))) (define andmap2 - (lambda (_f5737_ _lst15738_ _lst25739_) - (let _lp5741_ ((_rest15743_ _lst15738_) (_rest25744_ _lst25739_)) - (let* ((_rest157455753_ _rest15743_) - (_else57475761_ (lambda () '#t)) - (_K57495800_ - (lambda (_rest15764_ _x15765_) - (let* ((_rest257665774_ _rest25744_) - (_else57685782_ (lambda () '#t)) - (_K57705788_ - (lambda (_rest25785_ _x25786_) - (if (_f5737_ _x15765_ _x25786_) + (lambda (_f6943_ _lst16944_ _lst26945_) + (let _lp6947_ ((_rest16949_ _lst16944_) (_rest26950_ _lst26945_)) + (let* ((_rest169516959_ _rest16949_) + (_else69536967_ (lambda () '#t)) + (_K69557006_ + (lambda (_rest16970_ _x16971_) + (let* ((_rest269726980_ _rest26950_) + (_else69746988_ (lambda () '#t)) + (_K69766994_ + (lambda (_rest26991_ _x26992_) + (if (_f6943_ _x16971_ _x26992_) (let () (declare (not safe)) - (_lp5741_ _rest15764_ _rest25785_)) + (_lp6947_ _rest16970_ _rest26991_)) '#f)))) (if (let () (declare (not safe)) - (##pair? _rest257665774_)) - (let ((_hd57715791_ + (##pair? _rest269726980_)) + (let ((_hd69776997_ (let () (declare (not safe)) - (##car _rest257665774_))) - (_tl57725793_ + (##car _rest269726980_))) + (_tl69786999_ (let () (declare (not safe)) - (##cdr _rest257665774_)))) - (let* ((_x25796_ _hd57715791_) - (_rest25798_ _tl57725793_)) + (##cdr _rest269726980_)))) + (let* ((_x27002_ _hd69776997_) + (_rest27004_ _tl69786999_)) (declare (not safe)) - (_K57705788_ _rest25798_ _x25796_))) - (let () (declare (not safe)) (_else57685782_))))))) - (if (let () (declare (not safe)) (##pair? _rest157455753_)) - (let ((_hd57505803_ - (let () (declare (not safe)) (##car _rest157455753_))) - (_tl57515805_ - (let () (declare (not safe)) (##cdr _rest157455753_)))) - (let* ((_x15808_ _hd57505803_) (_rest15810_ _tl57515805_)) + (_K69766994_ _rest27004_ _x27002_))) + (let () (declare (not safe)) (_else69746988_))))))) + (if (let () (declare (not safe)) (##pair? _rest169516959_)) + (let ((_hd69567009_ + (let () (declare (not safe)) (##car _rest169516959_))) + (_tl69577011_ + (let () (declare (not safe)) (##cdr _rest169516959_)))) + (let* ((_x17014_ _hd69567009_) (_rest17016_ _tl69577011_)) (declare (not safe)) - (_K57495800_ _rest15810_ _x15808_))) - (let () (declare (not safe)) (_else57475761_))))))) + (_K69557006_ _rest17016_ _x17014_))) + (let () (declare (not safe)) (_else69536967_))))))) (define andmap - (lambda _g6541_ - (let ((_g6540_ (let () (declare (not safe)) (##length _g6541_)))) - (cond ((let () (declare (not safe)) (##fx= _g6540_ 2)) - (apply (lambda (_f5725_ _lst5726_) + (lambda _g8244_ + (let ((_g8243_ (let () (declare (not safe)) (##length _g8244_)))) + (cond ((let () (declare (not safe)) (##fx= _g8243_ 2)) + (apply (lambda (_f6931_ _lst6932_) (let () (declare (not safe)) - (andmap1 _f5725_ _lst5726_))) - _g6541_)) - ((let () (declare (not safe)) (##fx= _g6540_ 3)) - (apply (lambda (_f5728_ _lst15729_ _lst25730_) + (andmap1 _f6931_ _lst6932_))) + _g8244_)) + ((let () (declare (not safe)) (##fx= _g8243_ 3)) + (apply (lambda (_f6934_ _lst16935_ _lst26936_) (let () (declare (not safe)) - (andmap2 _f5728_ _lst15729_ _lst25730_))) - _g6541_)) - ((let () (declare (not safe)) (##fx>= _g6540_ 3)) - (apply andmap* _g6541_)) + (andmap2 _f6934_ _lst16935_ _lst26936_))) + _g8244_)) + ((let () (declare (not safe)) (##fx>= _g8243_ 3)) + (apply andmap* _g8244_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g6541_)))))) + _g8244_)))))) (define andmap* - (lambda (_f5718_ . _rest5719_) - (let _recur5721_ ((_rest5723_ _rest5719_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest5723_)) - (if (apply _f5718_ (map car _rest5723_)) - (let ((__tmp6542 (map cdr _rest5723_))) + (lambda (_f6924_ . _rest6925_) + (let _recur6927_ ((_rest6929_ _rest6925_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest6929_)) + (if (apply _f6924_ (map car _rest6929_)) + (let ((__tmp8245 (map cdr _rest6929_))) (declare (not safe)) - (_recur5721_ __tmp6542)) + (_recur6927_ __tmp8245)) '#f) '#t)))) (define ormap1 - (lambda (_f5675_ _lst5676_) - (let _lp5678_ ((_rest5680_ _lst5676_)) - (let* ((_rest56815689_ _rest5680_) - (_else56835697_ (lambda () '#f)) - (_K56855706_ - (lambda (_rest5700_ _x5701_) - (let ((_$e5703_ (_f5675_ _x5701_))) - (if _$e5703_ - _$e5703_ + (lambda (_f6881_ _lst6882_) + (let _lp6884_ ((_rest6886_ _lst6882_)) + (let* ((_rest68876895_ _rest6886_) + (_else68896903_ (lambda () '#f)) + (_K68916912_ + (lambda (_rest6906_ _x6907_) + (let ((_$e6909_ (_f6881_ _x6907_))) + (if _$e6909_ + _$e6909_ (let () (declare (not safe)) - (_lp5678_ _rest5700_))))))) - (if (let () (declare (not safe)) (##pair? _rest56815689_)) - (let ((_hd56865709_ - (let () (declare (not safe)) (##car _rest56815689_))) - (_tl56875711_ - (let () (declare (not safe)) (##cdr _rest56815689_)))) - (let* ((_x5714_ _hd56865709_) (_rest5716_ _tl56875711_)) + (_lp6884_ _rest6906_))))))) + (if (let () (declare (not safe)) (##pair? _rest68876895_)) + (let ((_hd68926915_ + (let () (declare (not safe)) (##car _rest68876895_))) + (_tl68936917_ + (let () (declare (not safe)) (##cdr _rest68876895_)))) + (let* ((_x6920_ _hd68926915_) (_rest6922_ _tl68936917_)) (declare (not safe)) - (_K56855706_ _rest5716_ _x5714_))) - (let () (declare (not safe)) (_else56835697_))))))) + (_K68916912_ _rest6922_ _x6920_))) + (let () (declare (not safe)) (_else68896903_))))))) (define ormap2 - (lambda (_f5597_ _lst15598_ _lst25599_) - (let _lp5601_ ((_rest15603_ _lst15598_) (_rest25604_ _lst25599_)) - (let* ((_rest156055613_ _rest15603_) - (_else56075621_ (lambda () '#f)) - (_K56095663_ - (lambda (_rest15624_ _x15625_) - (let* ((_rest256265634_ _rest25604_) - (_else56285642_ (lambda () '#f)) - (_K56305651_ - (lambda (_rest25645_ _x25646_) - (let ((_$e5648_ (_f5597_ _x15625_ _x25646_))) - (if _$e5648_ - _$e5648_ + (lambda (_f6803_ _lst16804_ _lst26805_) + (let _lp6807_ ((_rest16809_ _lst16804_) (_rest26810_ _lst26805_)) + (let* ((_rest168116819_ _rest16809_) + (_else68136827_ (lambda () '#f)) + (_K68156869_ + (lambda (_rest16830_ _x16831_) + (let* ((_rest268326840_ _rest26810_) + (_else68346848_ (lambda () '#f)) + (_K68366857_ + (lambda (_rest26851_ _x26852_) + (let ((_$e6854_ (_f6803_ _x16831_ _x26852_))) + (if _$e6854_ + _$e6854_ (let () (declare (not safe)) - (_lp5601_ _rest15624_ _rest25645_))))))) + (_lp6807_ _rest16830_ _rest26851_))))))) (if (let () (declare (not safe)) - (##pair? _rest256265634_)) - (let ((_hd56315654_ + (##pair? _rest268326840_)) + (let ((_hd68376860_ (let () (declare (not safe)) - (##car _rest256265634_))) - (_tl56325656_ + (##car _rest268326840_))) + (_tl68386862_ (let () (declare (not safe)) - (##cdr _rest256265634_)))) - (let* ((_x25659_ _hd56315654_) - (_rest25661_ _tl56325656_)) + (##cdr _rest268326840_)))) + (let* ((_x26865_ _hd68376860_) + (_rest26867_ _tl68386862_)) (declare (not safe)) - (_K56305651_ _rest25661_ _x25659_))) - (let () (declare (not safe)) (_else56285642_))))))) - (if (let () (declare (not safe)) (##pair? _rest156055613_)) - (let ((_hd56105666_ - (let () (declare (not safe)) (##car _rest156055613_))) - (_tl56115668_ - (let () (declare (not safe)) (##cdr _rest156055613_)))) - (let* ((_x15671_ _hd56105666_) (_rest15673_ _tl56115668_)) + (_K68366857_ _rest26867_ _x26865_))) + (let () (declare (not safe)) (_else68346848_))))))) + (if (let () (declare (not safe)) (##pair? _rest168116819_)) + (let ((_hd68166872_ + (let () (declare (not safe)) (##car _rest168116819_))) + (_tl68176874_ + (let () (declare (not safe)) (##cdr _rest168116819_)))) + (let* ((_x16877_ _hd68166872_) (_rest16879_ _tl68176874_)) (declare (not safe)) - (_K56095663_ _rest15673_ _x15671_))) - (let () (declare (not safe)) (_else56075621_))))))) + (_K68156869_ _rest16879_ _x16877_))) + (let () (declare (not safe)) (_else68136827_))))))) (define ormap - (lambda _g6544_ - (let ((_g6543_ (let () (declare (not safe)) (##length _g6544_)))) - (cond ((let () (declare (not safe)) (##fx= _g6543_ 2)) - (apply (lambda (_f5585_ _lst5586_) + (lambda _g8247_ + (let ((_g8246_ (let () (declare (not safe)) (##length _g8247_)))) + (cond ((let () (declare (not safe)) (##fx= _g8246_ 2)) + (apply (lambda (_f6791_ _lst6792_) (let () (declare (not safe)) - (ormap1 _f5585_ _lst5586_))) - _g6544_)) - ((let () (declare (not safe)) (##fx= _g6543_ 3)) - (apply (lambda (_f5588_ _lst15589_ _lst25590_) + (ormap1 _f6791_ _lst6792_))) + _g8247_)) + ((let () (declare (not safe)) (##fx= _g8246_ 3)) + (apply (lambda (_f6794_ _lst16795_ _lst26796_) (let () (declare (not safe)) - (ormap2 _f5588_ _lst15589_ _lst25590_))) - _g6544_)) - ((let () (declare (not safe)) (##fx>= _g6543_ 3)) - (apply ormap* _g6544_)) + (ormap2 _f6794_ _lst16795_ _lst26796_))) + _g8247_)) + ((let () (declare (not safe)) (##fx>= _g8246_ 3)) + (apply ormap* _g8247_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g6544_)))))) + _g8247_)))))) (define ormap* - (lambda (_f5575_ . _rest5576_) - (let _recur5578_ ((_rest5580_ _rest5576_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest5580_)) - (let ((_$e5582_ (apply _f5575_ (map car _rest5580_)))) - (if _$e5582_ - _$e5582_ - (let ((__tmp6545 (map cdr _rest5580_))) + (lambda (_f6781_ . _rest6782_) + (let _recur6784_ ((_rest6786_ _rest6782_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest6786_)) + (let ((_$e6788_ (apply _f6781_ (map car _rest6786_)))) + (if _$e6788_ + _$e6788_ + (let ((__tmp8248 (map cdr _rest6786_))) (declare (not safe)) - (_recur5578_ __tmp6545)))) + (_recur6784_ __tmp8248)))) '#f)))) (define filter - (lambda (_f5533_ _lst5534_) - (let _recur5536_ ((_lst5538_ _lst5534_)) - (let* ((_lst55395547_ _lst5538_) - (_else55415555_ (lambda () '())) - (_K55435563_ - (lambda (_rest5558_ _hd5559_) - (if (_f5533_ _hd5559_) - (let ((_tail5561_ + (lambda (_f6739_ _lst6740_) + (let _recur6742_ ((_lst6744_ _lst6740_)) + (let* ((_lst67456753_ _lst6744_) + (_else67476761_ (lambda () '())) + (_K67496769_ + (lambda (_rest6764_ _hd6765_) + (if (_f6739_ _hd6765_) + (let ((_tail6767_ (let () (declare (not safe)) - (_recur5536_ _rest5558_)))) + (_recur6742_ _rest6764_)))) (if (let () (declare (not safe)) - (eq? _tail5561_ _rest5558_)) - _lst5538_ + (eq? _tail6767_ _rest6764_)) + _lst6744_ (let () (declare (not safe)) - (cons _hd5559_ _tail5561_)))) + (cons _hd6765_ _tail6767_)))) (let () (declare (not safe)) - (_recur5536_ _rest5558_)))))) - (if (let () (declare (not safe)) (##pair? _lst55395547_)) - (let ((_hd55445566_ - (let () (declare (not safe)) (##car _lst55395547_))) - (_tl55455568_ - (let () (declare (not safe)) (##cdr _lst55395547_)))) - (let* ((_hd5571_ _hd55445566_) (_rest5573_ _tl55455568_)) + (_recur6742_ _rest6764_)))))) + (if (let () (declare (not safe)) (##pair? _lst67456753_)) + (let ((_hd67506772_ + (let () (declare (not safe)) (##car _lst67456753_))) + (_tl67516774_ + (let () (declare (not safe)) (##cdr _lst67456753_)))) + (let* ((_hd6777_ _hd67506772_) (_rest6779_ _tl67516774_)) (declare (not safe)) - (_K55435563_ _rest5573_ _hd5571_))) - (let () (declare (not safe)) (_else55415555_))))))) + (_K67496769_ _rest6779_ _hd6777_))) + (let () (declare (not safe)) (_else67476761_))))))) (define filter-map1 - (lambda (_f5488_ _lst5489_) - (let _recur5491_ ((_rest5493_ _lst5489_)) - (let* ((_rest54945502_ _rest5493_) - (_else54965510_ (lambda () '())) - (_K54985521_ - (lambda (_rest5513_ _x5514_) - (let ((_$e5516_ (_f5488_ _x5514_))) - (if _$e5516_ - ((lambda (_r5519_) - (let ((__tmp6546 + (lambda (_f6694_ _lst6695_) + (let _recur6697_ ((_rest6699_ _lst6695_)) + (let* ((_rest67006708_ _rest6699_) + (_else67026716_ (lambda () '())) + (_K67046727_ + (lambda (_rest6719_ _x6720_) + (let ((_$e6722_ (_f6694_ _x6720_))) + (if _$e6722_ + ((lambda (_r6725_) + (let ((__tmp8249 (let () (declare (not safe)) - (_recur5491_ _rest5513_)))) + (_recur6697_ _rest6719_)))) (declare (not safe)) - (cons _r5519_ __tmp6546))) - _$e5516_) + (cons _r6725_ __tmp8249))) + _$e6722_) (let () (declare (not safe)) - (_recur5491_ _rest5513_))))))) - (if (let () (declare (not safe)) (##pair? _rest54945502_)) - (let ((_hd54995524_ - (let () (declare (not safe)) (##car _rest54945502_))) - (_tl55005526_ - (let () (declare (not safe)) (##cdr _rest54945502_)))) - (let* ((_x5529_ _hd54995524_) (_rest5531_ _tl55005526_)) + (_recur6697_ _rest6719_))))))) + (if (let () (declare (not safe)) (##pair? _rest67006708_)) + (let ((_hd67056730_ + (let () (declare (not safe)) (##car _rest67006708_))) + (_tl67066732_ + (let () (declare (not safe)) (##cdr _rest67006708_)))) + (let* ((_x6735_ _hd67056730_) (_rest6737_ _tl67066732_)) (declare (not safe)) - (_K54985521_ _rest5531_ _x5529_))) - (let () (declare (not safe)) (_else54965510_))))))) + (_K67046727_ _rest6737_ _x6735_))) + (let () (declare (not safe)) (_else67026716_))))))) (define filter-map2 - (lambda (_f5408_ _lst15409_ _lst25410_) - (let _recur5412_ ((_rest15414_ _lst15409_) (_rest25415_ _lst25410_)) - (let* ((_rest154165424_ _rest15414_) - (_else54185432_ (lambda () '())) - (_K54205476_ - (lambda (_rest15435_ _x15436_) - (let* ((_rest254375445_ _rest25415_) - (_else54395453_ (lambda () '())) - (_K54415464_ - (lambda (_rest25456_ _x25457_) - (let ((_$e5459_ (_f5408_ _x15436_ _x25457_))) - (if _$e5459_ - ((lambda (_r5462_) - (let ((__tmp6547 + (lambda (_f6614_ _lst16615_ _lst26616_) + (let _recur6618_ ((_rest16620_ _lst16615_) (_rest26621_ _lst26616_)) + (let* ((_rest166226630_ _rest16620_) + (_else66246638_ (lambda () '())) + (_K66266682_ + (lambda (_rest16641_ _x16642_) + (let* ((_rest266436651_ _rest26621_) + (_else66456659_ (lambda () '())) + (_K66476670_ + (lambda (_rest26662_ _x26663_) + (let ((_$e6665_ (_f6614_ _x16642_ _x26663_))) + (if _$e6665_ + ((lambda (_r6668_) + (let ((__tmp8250 (let () (declare (not safe)) - (_recur5412_ - _rest15435_ - _rest25456_)))) + (_recur6618_ + _rest16641_ + _rest26662_)))) (declare (not safe)) - (cons _r5462_ __tmp6547))) - _$e5459_) + (cons _r6668_ __tmp8250))) + _$e6665_) (let () (declare (not safe)) - (_recur5412_ - _rest15435_ - _rest25456_))))))) + (_recur6618_ + _rest16641_ + _rest26662_))))))) (if (let () (declare (not safe)) - (##pair? _rest254375445_)) - (let ((_hd54425467_ + (##pair? _rest266436651_)) + (let ((_hd66486673_ (let () (declare (not safe)) - (##car _rest254375445_))) - (_tl54435469_ + (##car _rest266436651_))) + (_tl66496675_ (let () (declare (not safe)) - (##cdr _rest254375445_)))) - (let* ((_x25472_ _hd54425467_) - (_rest25474_ _tl54435469_)) + (##cdr _rest266436651_)))) + (let* ((_x26678_ _hd66486673_) + (_rest26680_ _tl66496675_)) (declare (not safe)) - (_K54415464_ _rest25474_ _x25472_))) - (let () (declare (not safe)) (_else54395453_))))))) - (if (let () (declare (not safe)) (##pair? _rest154165424_)) - (let ((_hd54215479_ - (let () (declare (not safe)) (##car _rest154165424_))) - (_tl54225481_ - (let () (declare (not safe)) (##cdr _rest154165424_)))) - (let* ((_x15484_ _hd54215479_) (_rest15486_ _tl54225481_)) + (_K66476670_ _rest26680_ _x26678_))) + (let () (declare (not safe)) (_else66456659_))))))) + (if (let () (declare (not safe)) (##pair? _rest166226630_)) + (let ((_hd66276685_ + (let () (declare (not safe)) (##car _rest166226630_))) + (_tl66286687_ + (let () (declare (not safe)) (##cdr _rest166226630_)))) + (let* ((_x16690_ _hd66276685_) (_rest16692_ _tl66286687_)) (declare (not safe)) - (_K54205476_ _rest15486_ _x15484_))) - (let () (declare (not safe)) (_else54185432_))))))) + (_K66266682_ _rest16692_ _x16690_))) + (let () (declare (not safe)) (_else66246638_))))))) (define filter-map - (lambda _g6549_ - (let ((_g6548_ (let () (declare (not safe)) (##length _g6549_)))) - (cond ((let () (declare (not safe)) (##fx= _g6548_ 2)) - (apply (lambda (_f5396_ _lst5397_) + (lambda _g8252_ + (let ((_g8251_ (let () (declare (not safe)) (##length _g8252_)))) + (cond ((let () (declare (not safe)) (##fx= _g8251_ 2)) + (apply (lambda (_f6602_ _lst6603_) (let () (declare (not safe)) - (filter-map1 _f5396_ _lst5397_))) - _g6549_)) - ((let () (declare (not safe)) (##fx= _g6548_ 3)) - (apply (lambda (_f5399_ _lst15400_ _lst25401_) + (filter-map1 _f6602_ _lst6603_))) + _g8252_)) + ((let () (declare (not safe)) (##fx= _g8251_ 3)) + (apply (lambda (_f6605_ _lst16606_ _lst26607_) (let () (declare (not safe)) - (filter-map2 _f5399_ _lst15400_ _lst25401_))) - _g6549_)) - ((let () (declare (not safe)) (##fx>= _g6548_ 3)) - (apply filter-map* _g6549_)) + (filter-map2 _f6605_ _lst16606_ _lst26607_))) + _g8252_)) + ((let () (declare (not safe)) (##fx>= _g8251_ 3)) + (apply filter-map* _g8252_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g6549_)))))) + _g8252_)))))) (define filter-map* - (lambda (_f5384_ . _rest5385_) - (let _recur5387_ ((_rest5389_ _rest5385_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest5389_)) - (let ((_$e5391_ (apply _f5384_ (map car _rest5389_)))) - (if _$e5391_ - ((lambda (_r5394_) - (let ((__tmp6551 - (let ((__tmp6552 (map cdr _rest5389_))) + (lambda (_f6590_ . _rest6591_) + (let _recur6593_ ((_rest6595_ _rest6591_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest6595_)) + (let ((_$e6597_ (apply _f6590_ (map car _rest6595_)))) + (if _$e6597_ + ((lambda (_r6600_) + (let ((__tmp8254 + (let ((__tmp8255 (map cdr _rest6595_))) (declare (not safe)) - (_recur5387_ __tmp6552)))) + (_recur6593_ __tmp8255)))) (declare (not safe)) - (cons _r5394_ __tmp6551))) - _$e5391_) - (let ((__tmp6550 (map cdr _rest5389_))) + (cons _r6600_ __tmp8254))) + _$e6597_) + (let ((__tmp8253 (map cdr _rest6595_))) (declare (not safe)) - (_recur5387_ __tmp6550)))) + (_recur6593_ __tmp8253)))) '())))) (define iota__% - (lambda (_count5352_ _start5353_ _step5354_) - (if (fixnum? _count5352_) + (lambda (_count6558_ _start6559_ _step6560_) + (if (fixnum? _count6558_) '#!void - (error '"expected fixnum" _count5352_)) - (if (let () (declare (not safe)) (number? _start5353_)) + (error '"expected fixnum" _count6558_)) + (if (let () (declare (not safe)) (number? _start6559_)) '#!void - (error '"expected number" _start5353_)) - (if (let () (declare (not safe)) (number? _step5354_)) + (error '"expected number" _start6559_)) + (if (let () (declare (not safe)) (number? _step6560_)) '#!void - (error '"expected number" _step5354_)) - (let ((_root5356_ (let () (declare (not safe)) (cons '#f '())))) - (let _lp5358_ ((_i5360_ '0) - (_x5361_ _start5353_) - (_tl5362_ _root5356_)) - (if (let () (declare (not safe)) (##fx< _i5360_ _count5352_)) - (let ((_tl*5364_ - (let () (declare (not safe)) (cons _x5361_ '())))) - (let () (declare (not safe)) (##set-cdr! _tl5362_ _tl*5364_)) - (let ((__tmp6554 - (let () (declare (not safe)) (##fx+ _i5360_ '1))) - (__tmp6553 (+ _x5361_ _step5354_))) + (error '"expected number" _step6560_)) + (let ((_root6562_ (let () (declare (not safe)) (cons '#f '())))) + (let _lp6564_ ((_i6566_ '0) + (_x6567_ _start6559_) + (_tl6568_ _root6562_)) + (if (let () (declare (not safe)) (##fx< _i6566_ _count6558_)) + (let ((_tl*6570_ + (let () (declare (not safe)) (cons _x6567_ '())))) + (let () (declare (not safe)) (##set-cdr! _tl6568_ _tl*6570_)) + (let ((__tmp8257 + (let () (declare (not safe)) (##fx+ _i6566_ '1))) + (__tmp8256 (+ _x6567_ _step6560_))) (declare (not safe)) - (_lp5358_ __tmp6554 __tmp6553 _tl*5364_))) - (let () (declare (not safe)) (##cdr _root5356_))))))) + (_lp6564_ __tmp8257 __tmp8256 _tl*6570_))) + (let () (declare (not safe)) (##cdr _root6562_))))))) (define iota__0 - (lambda (_count5369_) - (let* ((_start5371_ '0) (_step5373_ '1)) + (lambda (_count6575_) + (let* ((_start6577_ '0) (_step6579_ '1)) (declare (not safe)) - (iota__% _count5369_ _start5371_ _step5373_)))) + (iota__% _count6575_ _start6577_ _step6579_)))) (define iota__1 - (lambda (_count5375_ _start5376_) - (let ((_step5378_ '1)) + (lambda (_count6581_ _start6582_) + (let ((_step6584_ '1)) (declare (not safe)) - (iota__% _count5375_ _start5376_ _step5378_)))) + (iota__% _count6581_ _start6582_ _step6584_)))) (define iota - (lambda _g6556_ - (let ((_g6555_ (let () (declare (not safe)) (##length _g6556_)))) - (cond ((let () (declare (not safe)) (##fx= _g6555_ 1)) - (apply (lambda (_count5369_) - (let () (declare (not safe)) (iota__0 _count5369_))) - _g6556_)) - ((let () (declare (not safe)) (##fx= _g6555_ 2)) - (apply (lambda (_count5375_ _start5376_) + (lambda _g8259_ + (let ((_g8258_ (let () (declare (not safe)) (##length _g8259_)))) + (cond ((let () (declare (not safe)) (##fx= _g8258_ 1)) + (apply (lambda (_count6575_) + (let () (declare (not safe)) (iota__0 _count6575_))) + _g8259_)) + ((let () (declare (not safe)) (##fx= _g8258_ 2)) + (apply (lambda (_count6581_ _start6582_) (let () (declare (not safe)) - (iota__1 _count5375_ _start5376_))) - _g6556_)) - ((let () (declare (not safe)) (##fx= _g6555_ 3)) - (apply (lambda (_count5380_ _start5381_ _step5382_) + (iota__1 _count6581_ _start6582_))) + _g8259_)) + ((let () (declare (not safe)) (##fx= _g8258_ 3)) + (apply (lambda (_count6586_ _start6587_ _step6588_) (let () (declare (not safe)) - (iota__% _count5380_ _start5381_ _step5382_))) - _g6556_)) + (iota__% _count6586_ _start6587_ _step6588_))) + _g8259_)) (else (##raise-wrong-number-of-arguments-exception iota - _g6556_)))))) + _g8259_)))))) (define last-pair - (lambda (_lst5326_) - (let* ((_lst53275334_ _lst5326_) - (_E53295338_ - (lambda () (error '"No clause matching" _lst53275334_))) - (_K53305343_ - (lambda (_rest5341_) - (if (let () (declare (not safe)) (pair? _rest5341_)) - (let () (declare (not safe)) (last-pair _rest5341_)) - _lst5326_)))) - (if (let () (declare (not safe)) (##pair? _lst53275334_)) - (let* ((_tl53325346_ - (let () (declare (not safe)) (##cdr _lst53275334_))) - (_rest5349_ _tl53325346_)) + (lambda (_lst6532_) + (let* ((_lst65336540_ _lst6532_) + (_E65356544_ + (lambda () (error '"No clause matching" _lst65336540_))) + (_K65366549_ + (lambda (_rest6547_) + (if (let () (declare (not safe)) (pair? _rest6547_)) + (let () (declare (not safe)) (last-pair _rest6547_)) + _lst6532_)))) + (if (let () (declare (not safe)) (##pair? _lst65336540_)) + (let* ((_tl65386552_ + (let () (declare (not safe)) (##cdr _lst65336540_))) + (_rest6555_ _tl65386552_)) (declare (not safe)) - (_K53305343_ _rest5349_)) - (let () (declare (not safe)) (_E53295338_)))))) + (_K65366549_ _rest6555_)) + (let () (declare (not safe)) (_E65356544_)))))) (define last - (lambda (_lst5324_) - (car (let () (declare (not safe)) (last-pair _lst5324_))))) + (lambda (_lst6530_) + (car (let () (declare (not safe)) (last-pair _lst6530_))))) (define assgetq__% - (lambda (_key5302_ _lst5304_ _default5306_) - (let ((_$e5309_ - (if (let () (declare (not safe)) (pair? _lst5304_)) - (assq _key5302_ _lst5304_) + (lambda (_key6508_ _lst6510_ _default6512_) + (let ((_$e6515_ + (if (let () (declare (not safe)) (pair? _lst6510_)) + (assq _key6508_ _lst6510_) '#f))) - (if _$e5309_ - (cdr _$e5309_) - (if (let () (declare (not safe)) (procedure? _default5306_)) - (_default5306_ _key5302_) - _default5306_))))) + (if _$e6515_ + (cdr _$e6515_) + (if (let () (declare (not safe)) (procedure? _default6512_)) + (_default6512_ _key6508_) + _default6512_))))) (define assgetq__0 - (lambda (_key5315_ _lst5316_) - (let ((_default5318_ '#f)) + (lambda (_key6521_ _lst6522_) + (let ((_default6524_ '#f)) (declare (not safe)) - (assgetq__% _key5315_ _lst5316_ _default5318_)))) + (assgetq__% _key6521_ _lst6522_ _default6524_)))) (define assgetq - (lambda _g6558_ - (let ((_g6557_ (let () (declare (not safe)) (##length _g6558_)))) - (cond ((let () (declare (not safe)) (##fx= _g6557_ 2)) - (apply (lambda (_key5315_ _lst5316_) + (lambda _g8261_ + (let ((_g8260_ (let () (declare (not safe)) (##length _g8261_)))) + (cond ((let () (declare (not safe)) (##fx= _g8260_ 2)) + (apply (lambda (_key6521_ _lst6522_) (let () (declare (not safe)) - (assgetq__0 _key5315_ _lst5316_))) - _g6558_)) - ((let () (declare (not safe)) (##fx= _g6557_ 3)) - (apply (lambda (_key5320_ _lst5321_ _default5322_) + (assgetq__0 _key6521_ _lst6522_))) + _g8261_)) + ((let () (declare (not safe)) (##fx= _g8260_ 3)) + (apply (lambda (_key6526_ _lst6527_ _default6528_) (let () (declare (not safe)) - (assgetq__% _key5320_ _lst5321_ _default5322_))) - _g6558_)) + (assgetq__% _key6526_ _lst6527_ _default6528_))) + _g8261_)) (else (##raise-wrong-number-of-arguments-exception assgetq - _g6558_)))))) + _g8261_)))))) (define assgetv__% - (lambda (_key5279_ _lst5281_ _default5283_) - (let ((_$e5286_ - (if (let () (declare (not safe)) (pair? _lst5281_)) - (assv _key5279_ _lst5281_) + (lambda (_key6485_ _lst6487_ _default6489_) + (let ((_$e6492_ + (if (let () (declare (not safe)) (pair? _lst6487_)) + (assv _key6485_ _lst6487_) '#f))) - (if _$e5286_ - (cdr _$e5286_) - (if (let () (declare (not safe)) (procedure? _default5283_)) - (_default5283_ _key5279_) - _default5283_))))) + (if _$e6492_ + (cdr _$e6492_) + (if (let () (declare (not safe)) (procedure? _default6489_)) + (_default6489_ _key6485_) + _default6489_))))) (define assgetv__0 - (lambda (_key5292_ _lst5293_) - (let ((_default5295_ '#f)) + (lambda (_key6498_ _lst6499_) + (let ((_default6501_ '#f)) (declare (not safe)) - (assgetv__% _key5292_ _lst5293_ _default5295_)))) + (assgetv__% _key6498_ _lst6499_ _default6501_)))) (define assgetv - (lambda _g6560_ - (let ((_g6559_ (let () (declare (not safe)) (##length _g6560_)))) - (cond ((let () (declare (not safe)) (##fx= _g6559_ 2)) - (apply (lambda (_key5292_ _lst5293_) + (lambda _g8263_ + (let ((_g8262_ (let () (declare (not safe)) (##length _g8263_)))) + (cond ((let () (declare (not safe)) (##fx= _g8262_ 2)) + (apply (lambda (_key6498_ _lst6499_) (let () (declare (not safe)) - (assgetv__0 _key5292_ _lst5293_))) - _g6560_)) - ((let () (declare (not safe)) (##fx= _g6559_ 3)) - (apply (lambda (_key5297_ _lst5298_ _default5299_) + (assgetv__0 _key6498_ _lst6499_))) + _g8263_)) + ((let () (declare (not safe)) (##fx= _g8262_ 3)) + (apply (lambda (_key6503_ _lst6504_ _default6505_) (let () (declare (not safe)) - (assgetv__% _key5297_ _lst5298_ _default5299_))) - _g6560_)) + (assgetv__% _key6503_ _lst6504_ _default6505_))) + _g8263_)) (else (##raise-wrong-number-of-arguments-exception assgetv - _g6560_)))))) + _g8263_)))))) (define assget__% - (lambda (_key5256_ _lst5258_ _default5260_) - (let ((_$e5263_ - (if (let () (declare (not safe)) (pair? _lst5258_)) - (assoc _key5256_ _lst5258_) + (lambda (_key6462_ _lst6464_ _default6466_) + (let ((_$e6469_ + (if (let () (declare (not safe)) (pair? _lst6464_)) + (assoc _key6462_ _lst6464_) '#f))) - (if _$e5263_ - (cdr _$e5263_) - (if (let () (declare (not safe)) (procedure? _default5260_)) - (_default5260_ _key5256_) - _default5260_))))) + (if _$e6469_ + (cdr _$e6469_) + (if (let () (declare (not safe)) (procedure? _default6466_)) + (_default6466_ _key6462_) + _default6466_))))) (define assget__0 - (lambda (_key5269_ _lst5270_) - (let ((_default5272_ '#f)) + (lambda (_key6475_ _lst6476_) + (let ((_default6478_ '#f)) (declare (not safe)) - (assget__% _key5269_ _lst5270_ _default5272_)))) + (assget__% _key6475_ _lst6476_ _default6478_)))) (define assget - (lambda _g6562_ - (let ((_g6561_ (let () (declare (not safe)) (##length _g6562_)))) - (cond ((let () (declare (not safe)) (##fx= _g6561_ 2)) - (apply (lambda (_key5269_ _lst5270_) + (lambda _g8265_ + (let ((_g8264_ (let () (declare (not safe)) (##length _g8265_)))) + (cond ((let () (declare (not safe)) (##fx= _g8264_ 2)) + (apply (lambda (_key6475_ _lst6476_) (let () (declare (not safe)) - (assget__0 _key5269_ _lst5270_))) - _g6562_)) - ((let () (declare (not safe)) (##fx= _g6561_ 3)) - (apply (lambda (_key5274_ _lst5275_ _default5276_) + (assget__0 _key6475_ _lst6476_))) + _g8265_)) + ((let () (declare (not safe)) (##fx= _g8264_ 3)) + (apply (lambda (_key6480_ _lst6481_ _default6482_) (let () (declare (not safe)) - (assget__% _key5274_ _lst5275_ _default5276_))) - _g6562_)) + (assget__% _key6480_ _lst6481_ _default6482_))) + _g8265_)) (else (##raise-wrong-number-of-arguments-exception assget - _g6562_)))))) + _g8265_)))))) (define pgetq__% - (lambda (_key5185_ _lst5187_ _default5189_) - (let _lp5192_ ((_rest5195_ _lst5187_)) - (let* ((_rest51975207_ _rest5195_) - (_else51995215_ + (lambda (_key6391_ _lst6393_ _default6395_) + (let _lp6398_ ((_rest6401_ _lst6393_)) + (let* ((_rest64036413_ _rest6401_) + (_else64056421_ (lambda () (if (let () (declare (not safe)) - (procedure? _default5189_)) - (_default5189_ _key5185_) - _default5189_))) - (_K52015224_ - (lambda (_rest5218_ _v5219_ _k5221_) - (if (let () (declare (not safe)) (eq? _k5221_ _key5185_)) - _v5219_ - (let () (declare (not safe)) (_lp5192_ _rest5218_)))))) - (if (let () (declare (not safe)) (##pair? _rest51975207_)) - (let ((_hd52025227_ - (let () (declare (not safe)) (##car _rest51975207_))) - (_tl52035229_ - (let () (declare (not safe)) (##cdr _rest51975207_)))) - (let ((_k5232_ _hd52025227_)) - (if (let () (declare (not safe)) (##pair? _tl52035229_)) - (let ((_hd52045234_ + (procedure? _default6395_)) + (_default6395_ _key6391_) + _default6395_))) + (_K64076430_ + (lambda (_rest6424_ _v6425_ _k6427_) + (if (let () (declare (not safe)) (eq? _k6427_ _key6391_)) + _v6425_ + (let () (declare (not safe)) (_lp6398_ _rest6424_)))))) + (if (let () (declare (not safe)) (##pair? _rest64036413_)) + (let ((_hd64086433_ + (let () (declare (not safe)) (##car _rest64036413_))) + (_tl64096435_ + (let () (declare (not safe)) (##cdr _rest64036413_)))) + (let ((_k6438_ _hd64086433_)) + (if (let () (declare (not safe)) (##pair? _tl64096435_)) + (let ((_hd64106440_ (let () (declare (not safe)) - (##car _tl52035229_))) - (_tl52055236_ + (##car _tl64096435_))) + (_tl64116442_ (let () (declare (not safe)) - (##cdr _tl52035229_)))) - (let* ((_v5239_ _hd52045234_) - (_rest5241_ _tl52055236_)) + (##cdr _tl64096435_)))) + (let* ((_v6445_ _hd64106440_) + (_rest6447_ _tl64116442_)) (declare (not safe)) - (_K52015224_ _rest5241_ _v5239_ _k5232_))) - (let () (declare (not safe)) (_else51995215_))))) - (let () (declare (not safe)) (_else51995215_))))))) + (_K64076430_ _rest6447_ _v6445_ _k6438_))) + (let () (declare (not safe)) (_else64056421_))))) + (let () (declare (not safe)) (_else64056421_))))))) (define pgetq__0 - (lambda (_key5246_ _lst5247_) - (let ((_default5249_ '#f)) + (lambda (_key6452_ _lst6453_) + (let ((_default6455_ '#f)) (declare (not safe)) - (pgetq__% _key5246_ _lst5247_ _default5249_)))) + (pgetq__% _key6452_ _lst6453_ _default6455_)))) (define pgetq - (lambda _g6564_ - (let ((_g6563_ (let () (declare (not safe)) (##length _g6564_)))) - (cond ((let () (declare (not safe)) (##fx= _g6563_ 2)) - (apply (lambda (_key5246_ _lst5247_) + (lambda _g8267_ + (let ((_g8266_ (let () (declare (not safe)) (##length _g8267_)))) + (cond ((let () (declare (not safe)) (##fx= _g8266_ 2)) + (apply (lambda (_key6452_ _lst6453_) (let () (declare (not safe)) - (pgetq__0 _key5246_ _lst5247_))) - _g6564_)) - ((let () (declare (not safe)) (##fx= _g6563_ 3)) - (apply (lambda (_key5251_ _lst5252_ _default5253_) + (pgetq__0 _key6452_ _lst6453_))) + _g8267_)) + ((let () (declare (not safe)) (##fx= _g8266_ 3)) + (apply (lambda (_key6457_ _lst6458_ _default6459_) (let () (declare (not safe)) - (pgetq__% _key5251_ _lst5252_ _default5253_))) - _g6564_)) + (pgetq__% _key6457_ _lst6458_ _default6459_))) + _g8267_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g6564_)))))) + _g8267_)))))) (define pgetv__% - (lambda (_key5114_ _lst5116_ _default5118_) - (let _lp5121_ ((_rest5124_ _lst5116_)) - (let* ((_rest51265136_ _rest5124_) - (_else51285144_ + (lambda (_key6320_ _lst6322_ _default6324_) + (let _lp6327_ ((_rest6330_ _lst6322_)) + (let* ((_rest63326342_ _rest6330_) + (_else63346350_ (lambda () (if (let () (declare (not safe)) - (procedure? _default5118_)) - (_default5118_ _key5114_) - _default5118_))) - (_K51305153_ - (lambda (_rest5147_ _v5148_ _k5150_) - (if (let () (declare (not safe)) (eqv? _k5150_ _key5114_)) - _v5148_ - (let () (declare (not safe)) (_lp5121_ _rest5147_)))))) - (if (let () (declare (not safe)) (##pair? _rest51265136_)) - (let ((_hd51315156_ - (let () (declare (not safe)) (##car _rest51265136_))) - (_tl51325158_ - (let () (declare (not safe)) (##cdr _rest51265136_)))) - (let ((_k5161_ _hd51315156_)) - (if (let () (declare (not safe)) (##pair? _tl51325158_)) - (let ((_hd51335163_ + (procedure? _default6324_)) + (_default6324_ _key6320_) + _default6324_))) + (_K63366359_ + (lambda (_rest6353_ _v6354_ _k6356_) + (if (let () (declare (not safe)) (eqv? _k6356_ _key6320_)) + _v6354_ + (let () (declare (not safe)) (_lp6327_ _rest6353_)))))) + (if (let () (declare (not safe)) (##pair? _rest63326342_)) + (let ((_hd63376362_ + (let () (declare (not safe)) (##car _rest63326342_))) + (_tl63386364_ + (let () (declare (not safe)) (##cdr _rest63326342_)))) + (let ((_k6367_ _hd63376362_)) + (if (let () (declare (not safe)) (##pair? _tl63386364_)) + (let ((_hd63396369_ (let () (declare (not safe)) - (##car _tl51325158_))) - (_tl51345165_ + (##car _tl63386364_))) + (_tl63406371_ (let () (declare (not safe)) - (##cdr _tl51325158_)))) - (let* ((_v5168_ _hd51335163_) - (_rest5170_ _tl51345165_)) + (##cdr _tl63386364_)))) + (let* ((_v6374_ _hd63396369_) + (_rest6376_ _tl63406371_)) (declare (not safe)) - (_K51305153_ _rest5170_ _v5168_ _k5161_))) - (let () (declare (not safe)) (_else51285144_))))) - (let () (declare (not safe)) (_else51285144_))))))) + (_K63366359_ _rest6376_ _v6374_ _k6367_))) + (let () (declare (not safe)) (_else63346350_))))) + (let () (declare (not safe)) (_else63346350_))))))) (define pgetv__0 - (lambda (_key5175_ _lst5176_) - (let ((_default5178_ '#f)) + (lambda (_key6381_ _lst6382_) + (let ((_default6384_ '#f)) (declare (not safe)) - (pgetv__% _key5175_ _lst5176_ _default5178_)))) + (pgetv__% _key6381_ _lst6382_ _default6384_)))) (define pgetv - (lambda _g6566_ - (let ((_g6565_ (let () (declare (not safe)) (##length _g6566_)))) - (cond ((let () (declare (not safe)) (##fx= _g6565_ 2)) - (apply (lambda (_key5175_ _lst5176_) + (lambda _g8269_ + (let ((_g8268_ (let () (declare (not safe)) (##length _g8269_)))) + (cond ((let () (declare (not safe)) (##fx= _g8268_ 2)) + (apply (lambda (_key6381_ _lst6382_) (let () (declare (not safe)) - (pgetv__0 _key5175_ _lst5176_))) - _g6566_)) - ((let () (declare (not safe)) (##fx= _g6565_ 3)) - (apply (lambda (_key5180_ _lst5181_ _default5182_) + (pgetv__0 _key6381_ _lst6382_))) + _g8269_)) + ((let () (declare (not safe)) (##fx= _g8268_ 3)) + (apply (lambda (_key6386_ _lst6387_ _default6388_) (let () (declare (not safe)) - (pgetv__% _key5180_ _lst5181_ _default5182_))) - _g6566_)) + (pgetv__% _key6386_ _lst6387_ _default6388_))) + _g8269_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g6566_)))))) + _g8269_)))))) (define pget__% - (lambda (_key5043_ _lst5045_ _default5047_) - (let _lp5050_ ((_rest5053_ _lst5045_)) - (let* ((_rest50555065_ _rest5053_) - (_else50575073_ + (lambda (_key6249_ _lst6251_ _default6253_) + (let _lp6256_ ((_rest6259_ _lst6251_)) + (let* ((_rest62616271_ _rest6259_) + (_else62636279_ (lambda () (if (let () (declare (not safe)) - (procedure? _default5047_)) - (_default5047_ _key5043_) - _default5047_))) - (_K50595082_ - (lambda (_rest5076_ _v5077_ _k5079_) + (procedure? _default6253_)) + (_default6253_ _key6249_) + _default6253_))) + (_K62656288_ + (lambda (_rest6282_ _v6283_ _k6285_) (if (let () (declare (not safe)) - (equal? _k5079_ _key5043_)) - _v5077_ - (let () (declare (not safe)) (_lp5050_ _rest5076_)))))) - (if (let () (declare (not safe)) (##pair? _rest50555065_)) - (let ((_hd50605085_ - (let () (declare (not safe)) (##car _rest50555065_))) - (_tl50615087_ - (let () (declare (not safe)) (##cdr _rest50555065_)))) - (let ((_k5090_ _hd50605085_)) - (if (let () (declare (not safe)) (##pair? _tl50615087_)) - (let ((_hd50625092_ + (equal? _k6285_ _key6249_)) + _v6283_ + (let () (declare (not safe)) (_lp6256_ _rest6282_)))))) + (if (let () (declare (not safe)) (##pair? _rest62616271_)) + (let ((_hd62666291_ + (let () (declare (not safe)) (##car _rest62616271_))) + (_tl62676293_ + (let () (declare (not safe)) (##cdr _rest62616271_)))) + (let ((_k6296_ _hd62666291_)) + (if (let () (declare (not safe)) (##pair? _tl62676293_)) + (let ((_hd62686298_ (let () (declare (not safe)) - (##car _tl50615087_))) - (_tl50635094_ + (##car _tl62676293_))) + (_tl62696300_ (let () (declare (not safe)) - (##cdr _tl50615087_)))) - (let* ((_v5097_ _hd50625092_) - (_rest5099_ _tl50635094_)) + (##cdr _tl62676293_)))) + (let* ((_v6303_ _hd62686298_) + (_rest6305_ _tl62696300_)) (declare (not safe)) - (_K50595082_ _rest5099_ _v5097_ _k5090_))) - (let () (declare (not safe)) (_else50575073_))))) - (let () (declare (not safe)) (_else50575073_))))))) + (_K62656288_ _rest6305_ _v6303_ _k6296_))) + (let () (declare (not safe)) (_else62636279_))))) + (let () (declare (not safe)) (_else62636279_))))))) (define pget__0 - (lambda (_key5104_ _lst5105_) - (let ((_default5107_ '#f)) + (lambda (_key6310_ _lst6311_) + (let ((_default6313_ '#f)) (declare (not safe)) - (pget__% _key5104_ _lst5105_ _default5107_)))) + (pget__% _key6310_ _lst6311_ _default6313_)))) (define pget - (lambda _g6568_ - (let ((_g6567_ (let () (declare (not safe)) (##length _g6568_)))) - (cond ((let () (declare (not safe)) (##fx= _g6567_ 2)) - (apply (lambda (_key5104_ _lst5105_) + (lambda _g8271_ + (let ((_g8270_ (let () (declare (not safe)) (##length _g8271_)))) + (cond ((let () (declare (not safe)) (##fx= _g8270_ 2)) + (apply (lambda (_key6310_ _lst6311_) (let () (declare (not safe)) - (pget__0 _key5104_ _lst5105_))) - _g6568_)) - ((let () (declare (not safe)) (##fx= _g6567_ 3)) - (apply (lambda (_key5109_ _lst5110_ _default5111_) + (pget__0 _key6310_ _lst6311_))) + _g8271_)) + ((let () (declare (not safe)) (##fx= _g8270_ 3)) + (apply (lambda (_key6315_ _lst6316_ _default6317_) (let () (declare (not safe)) - (pget__% _key5109_ _lst5110_ _default5111_))) - _g6568_)) + (pget__% _key6315_ _lst6316_ _default6317_))) + _g8271_)) (else (##raise-wrong-number-of-arguments-exception pget - _g6568_)))))) + _g8271_)))))) (define find - (lambda (_pred5036_ _lst5037_) - (let ((_$e5039_ - (let () (declare (not safe)) (memf _pred5036_ _lst5037_)))) - (if _$e5039_ (car _$e5039_) '#f)))) + (lambda (_pred6242_ _lst6243_) + (let ((_$e6245_ + (let () (declare (not safe)) (memf _pred6242_ _lst6243_)))) + (if _$e6245_ (car _$e6245_) '#f)))) (define memf - (lambda (_proc4996_ _lst4997_) - (let _lp4999_ ((_rest5001_ _lst4997_)) - (let* ((_rest50025010_ _rest5001_) - (_else50045018_ (lambda () '#f)) - (_K50065024_ - (lambda (_tl5021_ _hd5022_) - (if (_proc4996_ _hd5022_) - _rest5001_ - (let () (declare (not safe)) (_lp4999_ _tl5021_)))))) - (if (let () (declare (not safe)) (##pair? _rest50025010_)) - (let ((_hd50075027_ - (let () (declare (not safe)) (##car _rest50025010_))) - (_tl50085029_ - (let () (declare (not safe)) (##cdr _rest50025010_)))) - (let* ((_hd5032_ _hd50075027_) (_tl5034_ _tl50085029_)) + (lambda (_proc6202_ _lst6203_) + (let _lp6205_ ((_rest6207_ _lst6203_)) + (let* ((_rest62086216_ _rest6207_) + (_else62106224_ (lambda () '#f)) + (_K62126230_ + (lambda (_tl6227_ _hd6228_) + (if (_proc6202_ _hd6228_) + _rest6207_ + (let () (declare (not safe)) (_lp6205_ _tl6227_)))))) + (if (let () (declare (not safe)) (##pair? _rest62086216_)) + (let ((_hd62136233_ + (let () (declare (not safe)) (##car _rest62086216_))) + (_tl62146235_ + (let () (declare (not safe)) (##cdr _rest62086216_)))) + (let* ((_hd6238_ _hd62136233_) (_tl6240_ _tl62146235_)) (declare (not safe)) - (_K50065024_ _tl5034_ _hd5032_))) - (let () (declare (not safe)) (_else50045018_))))))) + (_K62126230_ _tl6240_ _hd6238_))) + (let () (declare (not safe)) (_else62106224_))))))) (define remove1 - (lambda (_el4949_ _lst4951_) - (let _lp4954_ ((_rest4957_ _lst4951_) (_r4959_ '())) - (let* ((_rest49614969_ _rest4957_) - (_else49634977_ (lambda () _lst4951_)) - (_K49654984_ - (lambda (_rest4980_ _hd4981_) + (lambda (_el6155_ _lst6157_) + (let _lp6160_ ((_rest6163_ _lst6157_) (_r6165_ '())) + (let* ((_rest61676175_ _rest6163_) + (_else61696183_ (lambda () _lst6157_)) + (_K61716190_ + (lambda (_rest6186_ _hd6187_) (if (let () (declare (not safe)) - (equal? _el4949_ _hd4981_)) + (equal? _el6155_ _hd6187_)) (let () (declare (not safe)) - (foldl1 cons _rest4980_ _r4959_)) - (let ((__tmp6569 + (foldl1 cons _rest6186_ _r6165_)) + (let ((__tmp8272 (let () (declare (not safe)) - (cons _hd4981_ _r4959_)))) + (cons _hd6187_ _r6165_)))) (declare (not safe)) - (_lp4954_ _rest4980_ __tmp6569)))))) - (if (let () (declare (not safe)) (##pair? _rest49614969_)) - (let ((_hd49664987_ - (let () (declare (not safe)) (##car _rest49614969_))) - (_tl49674989_ - (let () (declare (not safe)) (##cdr _rest49614969_)))) - (let* ((_hd4992_ _hd49664987_) (_rest4994_ _tl49674989_)) + (_lp6160_ _rest6186_ __tmp8272)))))) + (if (let () (declare (not safe)) (##pair? _rest61676175_)) + (let ((_hd61726193_ + (let () (declare (not safe)) (##car _rest61676175_))) + (_tl61736195_ + (let () (declare (not safe)) (##cdr _rest61676175_)))) + (let* ((_hd6198_ _hd61726193_) (_rest6200_ _tl61736195_)) (declare (not safe)) - (_K49654984_ _rest4994_ _hd4992_))) - (let () (declare (not safe)) (_else49634977_))))))) + (_K61716190_ _rest6200_ _hd6198_))) + (let () (declare (not safe)) (_else61696183_))))))) (define remv - (lambda (_el4902_ _lst4904_) - (let _lp4907_ ((_rest4910_ _lst4904_) (_r4912_ '())) - (let* ((_rest49144922_ _rest4910_) - (_else49164930_ (lambda () _lst4904_)) - (_K49184937_ - (lambda (_rest4933_ _hd4934_) - (if (let () (declare (not safe)) (eqv? _el4902_ _hd4934_)) + (lambda (_el6108_ _lst6110_) + (let _lp6113_ ((_rest6116_ _lst6110_) (_r6118_ '())) + (let* ((_rest61206128_ _rest6116_) + (_else61226136_ (lambda () _lst6110_)) + (_K61246143_ + (lambda (_rest6139_ _hd6140_) + (if (let () (declare (not safe)) (eqv? _el6108_ _hd6140_)) (let () (declare (not safe)) - (foldl1 cons _rest4933_ _r4912_)) - (let ((__tmp6570 + (foldl1 cons _rest6139_ _r6118_)) + (let ((__tmp8273 (let () (declare (not safe)) - (cons _hd4934_ _r4912_)))) + (cons _hd6140_ _r6118_)))) (declare (not safe)) - (_lp4907_ _rest4933_ __tmp6570)))))) - (if (let () (declare (not safe)) (##pair? _rest49144922_)) - (let ((_hd49194940_ - (let () (declare (not safe)) (##car _rest49144922_))) - (_tl49204942_ - (let () (declare (not safe)) (##cdr _rest49144922_)))) - (let* ((_hd4945_ _hd49194940_) (_rest4947_ _tl49204942_)) + (_lp6113_ _rest6139_ __tmp8273)))))) + (if (let () (declare (not safe)) (##pair? _rest61206128_)) + (let ((_hd61256146_ + (let () (declare (not safe)) (##car _rest61206128_))) + (_tl61266148_ + (let () (declare (not safe)) (##cdr _rest61206128_)))) + (let* ((_hd6151_ _hd61256146_) (_rest6153_ _tl61266148_)) (declare (not safe)) - (_K49184937_ _rest4947_ _hd4945_))) - (let () (declare (not safe)) (_else49164930_))))))) + (_K61246143_ _rest6153_ _hd6151_))) + (let () (declare (not safe)) (_else61226136_))))))) (define remq - (lambda (_el4855_ _lst4857_) - (let _lp4860_ ((_rest4863_ _lst4857_) (_r4865_ '())) - (let* ((_rest48674875_ _rest4863_) - (_else48694883_ (lambda () _lst4857_)) - (_K48714890_ - (lambda (_rest4886_ _hd4887_) - (if (let () (declare (not safe)) (eq? _el4855_ _hd4887_)) + (lambda (_el6061_ _lst6063_) + (let _lp6066_ ((_rest6069_ _lst6063_) (_r6071_ '())) + (let* ((_rest60736081_ _rest6069_) + (_else60756089_ (lambda () _lst6063_)) + (_K60776096_ + (lambda (_rest6092_ _hd6093_) + (if (let () (declare (not safe)) (eq? _el6061_ _hd6093_)) (let () (declare (not safe)) - (foldl1 cons _rest4886_ _r4865_)) - (let ((__tmp6571 + (foldl1 cons _rest6092_ _r6071_)) + (let ((__tmp8274 (let () (declare (not safe)) - (cons _hd4887_ _r4865_)))) + (cons _hd6093_ _r6071_)))) (declare (not safe)) - (_lp4860_ _rest4886_ __tmp6571)))))) - (if (let () (declare (not safe)) (##pair? _rest48674875_)) - (let ((_hd48724893_ - (let () (declare (not safe)) (##car _rest48674875_))) - (_tl48734895_ - (let () (declare (not safe)) (##cdr _rest48674875_)))) - (let* ((_hd4898_ _hd48724893_) (_rest4900_ _tl48734895_)) + (_lp6066_ _rest6092_ __tmp8274)))))) + (if (let () (declare (not safe)) (##pair? _rest60736081_)) + (let ((_hd60786099_ + (let () (declare (not safe)) (##car _rest60736081_))) + (_tl60796101_ + (let () (declare (not safe)) (##cdr _rest60736081_)))) + (let* ((_hd6104_ _hd60786099_) (_rest6106_ _tl60796101_)) (declare (not safe)) - (_K48714890_ _rest4900_ _hd4898_))) - (let () (declare (not safe)) (_else48694883_))))))) + (_K60776096_ _rest6106_ _hd6104_))) + (let () (declare (not safe)) (_else60756089_))))))) (define remf - (lambda (_proc4814_ _lst4815_) - (let _lp4817_ ((_rest4819_ _lst4815_) (_r4820_ '())) - (let* ((_rest48214829_ _rest4819_) - (_else48234837_ (lambda () _lst4815_)) - (_K48254843_ - (lambda (_rest4840_ _hd4841_) - (if (_proc4814_ _hd4841_) + (lambda (_proc6020_ _lst6021_) + (let _lp6023_ ((_rest6025_ _lst6021_) (_r6026_ '())) + (let* ((_rest60276035_ _rest6025_) + (_else60296043_ (lambda () _lst6021_)) + (_K60316049_ + (lambda (_rest6046_ _hd6047_) + (if (_proc6020_ _hd6047_) (let () (declare (not safe)) - (foldl1 cons _rest4840_ _r4820_)) - (let ((__tmp6572 + (foldl1 cons _rest6046_ _r6026_)) + (let ((__tmp8275 (let () (declare (not safe)) - (cons _hd4841_ _r4820_)))) + (cons _hd6047_ _r6026_)))) (declare (not safe)) - (_lp4817_ _rest4840_ __tmp6572)))))) - (if (let () (declare (not safe)) (##pair? _rest48214829_)) - (let ((_hd48264846_ - (let () (declare (not safe)) (##car _rest48214829_))) - (_tl48274848_ - (let () (declare (not safe)) (##cdr _rest48214829_)))) - (let* ((_hd4851_ _hd48264846_) (_rest4853_ _tl48274848_)) + (_lp6023_ _rest6046_ __tmp8275)))))) + (if (let () (declare (not safe)) (##pair? _rest60276035_)) + (let ((_hd60326052_ + (let () (declare (not safe)) (##car _rest60276035_))) + (_tl60336054_ + (let () (declare (not safe)) (##cdr _rest60276035_)))) + (let* ((_hd6057_ _hd60326052_) (_rest6059_ _tl60336054_)) (declare (not safe)) - (_K48254843_ _rest4853_ _hd4851_))) - (let () (declare (not safe)) (_else48234837_))))))) - (define 1+ (lambda (_x4812_) (+ _x4812_ '1))) - (define 1- (lambda (_x4810_) (- _x4810_ '1))) - (define fx1+ (lambda (_x4808_) (fx+ _x4808_ '1))) - (define fx1- (lambda (_x4806_) (fx- _x4806_ '1))) + (_K60316049_ _rest6059_ _hd6057_))) + (let () (declare (not safe)) (_else60296043_))))))) + (define 1+ (lambda (_x6018_) (+ _x6018_ '1))) + (define 1- (lambda (_x6016_) (- _x6016_ '1))) + (define fx1+ (lambda (_x6014_) (fx+ _x6014_ '1))) + (define fx1- (lambda (_x6012_) (fx- _x6012_ '1))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_x4804_) - (if (fixnum? _x4804_) - (let () (declare (not safe)) (##fx>= _x4804_ '0)) + (lambda (_x6010_) + (if (fixnum? _x6010_) + (let () (declare (not safe)) (##fx>= _x6010_ '0)) '#f))) (define fx>0? - (lambda (_x4802_) - (if (fixnum? _x4802_) - (let () (declare (not safe)) (##fx> _x4802_ '0)) + (lambda (_x6008_) + (if (fixnum? _x6008_) + (let () (declare (not safe)) (##fx> _x6008_ '0)) '#f))) (define fx=0? - (lambda (_x4800_) (let () (declare (not safe)) (eq? _x4800_ '0)))) + (lambda (_x6006_) (let () (declare (not safe)) (eq? _x6006_ '0)))) (define fx<0? - (lambda (_x4798_) - (if (fixnum? _x4798_) - (let () (declare (not safe)) (##fx< _x4798_ '0)) + (lambda (_x6004_) + (if (fixnum? _x6004_) + (let () (declare (not safe)) (##fx< _x6004_ '0)) '#f))) (define fx<=0? - (lambda (_x4796_) - (if (fixnum? _x4796_) - (let () (declare (not safe)) (##fx<= _x4796_ '0)) + (lambda (_x6002_) + (if (fixnum? _x6002_) + (let () (declare (not safe)) (##fx<= _x6002_ '0)) '#f))) (define interned-symbol? - (lambda (_x4794_) - (if (let () (declare (not safe)) (symbol? _x4794_)) - (let ((__tmp6573 (uninterned-symbol? _x4794_))) + (lambda (_x6000_) + (if (let () (declare (not safe)) (symbol? _x6000_)) + (let ((__tmp8276 (uninterned-symbol? _x6000_))) (declare (not safe)) - (not __tmp6573)) + (not __tmp8276)) '#f))) (define display-as-string - (lambda (_x4766_ _port4767_) - (if (or (let () (declare (not safe)) (string? _x4766_)) - (let () (declare (not safe)) (symbol? _x4766_)) - (keyword? _x4766_) - (let () (declare (not safe)) (number? _x4766_)) - (let () (declare (not safe)) (char? _x4766_))) - (display _x4766_ _port4767_) - (if (let () (declare (not safe)) (pair? _x4766_)) + (lambda (_x5972_ _port5973_) + (if (or (let () (declare (not safe)) (string? _x5972_)) + (let () (declare (not safe)) (symbol? _x5972_)) + (keyword? _x5972_) + (let () (declare (not safe)) (number? _x5972_)) + (let () (declare (not safe)) (char? _x5972_))) + (display _x5972_ _port5973_) + (if (let () (declare (not safe)) (pair? _x5972_)) (begin - (let ((__tmp6574 (car _x4766_))) + (let ((__tmp8277 (car _x5972_))) (declare (not safe)) - (display-as-string __tmp6574 _port4767_)) - (let ((__tmp6575 (cdr _x4766_))) + (display-as-string __tmp8277 _port5973_)) + (let ((__tmp8278 (cdr _x5972_))) (declare (not safe)) - (display-as-string __tmp6575 _port4767_))) - (if (let () (declare (not safe)) (vector? _x4766_)) + (display-as-string __tmp8278 _port5973_))) + (if (let () (declare (not safe)) (vector? _x5972_)) (vector-for-each - (lambda (_g47804782_) + (lambda (_g59865988_) (let () (declare (not safe)) - (display-as-string _g47804782_ _port4767_))) - _x4766_) - (if (or (let () (declare (not safe)) (null? _x4766_)) - (let () (declare (not safe)) (eq? _x4766_ '#!void)) - (let () (declare (not safe)) (eof-object? _x4766_)) - (let () (declare (not safe)) (boolean? _x4766_))) + (display-as-string _g59865988_ _port5973_))) + _x5972_) + (if (or (let () (declare (not safe)) (null? _x5972_)) + (let () (declare (not safe)) (eq? _x5972_ '#!void)) + (let () (declare (not safe)) (eof-object? _x5972_)) + (let () (declare (not safe)) (boolean? _x5972_))) '#!void - (error '"cannot convert as string" _x4766_))))))) + (error '"cannot convert as string" _x5972_))))))) (define as-string__0 - (lambda (_x4754_) - (if (let () (declare (not safe)) (string? _x4754_)) - _x4754_ - (if (let () (declare (not safe)) (symbol? _x4754_)) - (symbol->string _x4754_) - (if (keyword? _x4754_) - (keyword->string _x4754_) + (lambda (_x5960_) + (if (let () (declare (not safe)) (string? _x5960_)) + _x5960_ + (if (let () (declare (not safe)) (symbol? _x5960_)) + (symbol->string _x5960_) + (if (keyword? _x5960_) + (keyword->string _x5960_) (call-with-output-string '() - (lambda (_g47554757_) + (lambda (_g59615963_) (let () (declare (not safe)) - (display-as-string _x4754_ _g47554757_))))))))) + (display-as-string _x5960_ _g59615963_))))))))) (define as-string__1 - (lambda _args4760_ + (lambda _args5966_ (call-with-output-string '() - (lambda (_g47614763_) + (lambda (_g59675969_) (let () (declare (not safe)) - (display-as-string _args4760_ _g47614763_)))))) + (display-as-string _args5966_ _g59675969_)))))) (define as-string - (lambda _g6577_ - (let ((_g6576_ (let () (declare (not safe)) (##length _g6577_)))) - (cond ((let () (declare (not safe)) (##fx= _g6576_ 1)) - (apply (lambda (_x4754_) - (let () (declare (not safe)) (as-string__0 _x4754_))) - _g6577_)) - (#t (apply as-string__1 _g6577_)) + (lambda _g8280_ + (let ((_g8279_ (let () (declare (not safe)) (##length _g8280_)))) + (cond ((let () (declare (not safe)) (##fx= _g8279_ 1)) + (apply (lambda (_x5960_) + (let () (declare (not safe)) (as-string__0 _x5960_))) + _g8280_)) + (#t (apply as-string__1 _g8280_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g6577_)))))) + _g8280_)))))) (define make-symbol__0 - (lambda (_x4750_) - (if (interned-symbol? _x4750_) - _x4750_ + (lambda (_x5956_) + (if (interned-symbol? _x5956_) + _x5956_ (string->symbol - (let () (declare (not safe)) (as-string__0 _x4750_)))))) + (let () (declare (not safe)) (as-string__0 _x5956_)))))) (define make-symbol__1 - (lambda _args4752_ (string->symbol (apply as-string _args4752_)))) + (lambda _args5958_ (string->symbol (apply as-string _args5958_)))) (define make-symbol - (lambda _g6579_ - (let ((_g6578_ (let () (declare (not safe)) (##length _g6579_)))) - (cond ((let () (declare (not safe)) (##fx= _g6578_ 1)) - (apply (lambda (_x4750_) + (lambda _g8282_ + (let ((_g8281_ (let () (declare (not safe)) (##length _g8282_)))) + (cond ((let () (declare (not safe)) (##fx= _g8281_ 1)) + (apply (lambda (_x5956_) (let () (declare (not safe)) - (make-symbol__0 _x4750_))) - _g6579_)) - (#t (apply make-symbol__1 _g6579_)) + (make-symbol__0 _x5956_))) + _g8282_)) + (#t (apply make-symbol__1 _g8282_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g6579_)))))) + _g8282_)))))) (define make-keyword__0 - (lambda (_x4746_) - (if (interned-keyword? _x4746_) - _x4746_ + (lambda (_x5952_) + (if (interned-keyword? _x5952_) + _x5952_ (string->keyword - (let () (declare (not safe)) (as-string__0 _x4746_)))))) + (let () (declare (not safe)) (as-string__0 _x5952_)))))) (define make-keyword__1 - (lambda _args4748_ (string->keyword (apply as-string _args4748_)))) + (lambda _args5954_ (string->keyword (apply as-string _args5954_)))) (define make-keyword - (lambda _g6581_ - (let ((_g6580_ (let () (declare (not safe)) (##length _g6581_)))) - (cond ((let () (declare (not safe)) (##fx= _g6580_ 1)) - (apply (lambda (_x4746_) + (lambda _g8284_ + (let ((_g8283_ (let () (declare (not safe)) (##length _g8284_)))) + (cond ((let () (declare (not safe)) (##fx= _g8283_ 1)) + (apply (lambda (_x5952_) (let () (declare (not safe)) - (make-keyword__0 _x4746_))) - _g6581_)) - (#t (apply make-keyword__1 _g6581_)) + (make-keyword__0 _x5952_))) + _g8284_)) + (#t (apply make-keyword__1 _g8284_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g6581_)))))) + _g8284_)))))) (define interned-keyword? - (lambda (_x4744_) - (if (keyword? _x4744_) - (let ((__tmp6582 (uninterned-keyword? _x4744_))) + (lambda (_x5950_) + (if (keyword? _x5950_) + (let ((__tmp8285 (uninterned-keyword? _x5950_))) (declare (not safe)) - (not __tmp6582)) + (not __tmp8285)) '#f))) (define symbol->keyword - (lambda (_sym4742_) - ((if (uninterned-symbol? _sym4742_) + (lambda (_sym5948_) + ((if (uninterned-symbol? _sym5948_) string->uninterned-keyword string->keyword) - (symbol->string _sym4742_)))) + (symbol->string _sym5948_)))) (define keyword->symbol - (lambda (_kw4740_) - ((if (uninterned-keyword? _kw4740_) + (lambda (_kw5946_) + ((if (uninterned-keyword? _kw5946_) string->uninterned-symbol string->symbol) - (keyword->string _kw4740_)))) + (keyword->string _kw5946_)))) (define bytes->string__% - (lambda (_bstr4718_ _enc4719_) - (if (let () (declare (not safe)) (eq? _enc4719_ 'UTF-8)) - (utf8->string _bstr4718_) - (let* ((_in4721_ + (lambda (_bstr5924_ _enc5925_) + (if (let () (declare (not safe)) (eq? _enc5925_ 'UTF-8)) + (utf8->string _bstr5924_) + (let* ((_in5927_ (open-input-u8vector - (let ((__tmp6583 - (let ((__tmp6584 - (let ((__tmp6585 + (let ((__tmp8286 + (let ((__tmp8287 + (let ((__tmp8288 (let () (declare (not safe)) - (cons _bstr4718_ '())))) + (cons _bstr5924_ '())))) (declare (not safe)) - (cons 'init: __tmp6585)))) + (cons 'init: __tmp8288)))) (declare (not safe)) - (cons _enc4719_ __tmp6584)))) + (cons _enc5925_ __tmp8287)))) (declare (not safe)) - (cons 'char-encoding: __tmp6583)))) - (_len4723_ (u8vector-length _bstr4718_)) - (_out4725_ (make-string _len4723_)) - (_n4727_ (read-substring _out4725_ '0 _len4723_ _in4721_))) - (string-shrink! _out4725_ _n4727_) - _out4725_)))) + (cons 'char-encoding: __tmp8286)))) + (_len5929_ (u8vector-length _bstr5924_)) + (_out5931_ (make-string _len5929_)) + (_n5933_ (read-substring _out5931_ '0 _len5929_ _in5927_))) + (string-shrink! _out5931_ _n5933_) + _out5931_)))) (define bytes->string__0 - (lambda (_bstr4733_) - (let ((_enc4735_ 'UTF-8)) + (lambda (_bstr5939_) + (let ((_enc5941_ 'UTF-8)) (declare (not safe)) - (bytes->string__% _bstr4733_ _enc4735_)))) + (bytes->string__% _bstr5939_ _enc5941_)))) (define bytes->string - (lambda _g6587_ - (let ((_g6586_ (let () (declare (not safe)) (##length _g6587_)))) - (cond ((let () (declare (not safe)) (##fx= _g6586_ 1)) - (apply (lambda (_bstr4733_) + (lambda _g8290_ + (let ((_g8289_ (let () (declare (not safe)) (##length _g8290_)))) + (cond ((let () (declare (not safe)) (##fx= _g8289_ 1)) + (apply (lambda (_bstr5939_) (let () (declare (not safe)) - (bytes->string__0 _bstr4733_))) - _g6587_)) - ((let () (declare (not safe)) (##fx= _g6586_ 2)) - (apply (lambda (_bstr4737_ _enc4738_) + (bytes->string__0 _bstr5939_))) + _g8290_)) + ((let () (declare (not safe)) (##fx= _g8289_ 2)) + (apply (lambda (_bstr5943_ _enc5944_) (let () (declare (not safe)) - (bytes->string__% _bstr4737_ _enc4738_))) - _g6587_)) + (bytes->string__% _bstr5943_ _enc5944_))) + _g8290_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g6587_)))))) + _g8290_)))))) (define string->bytes__% - (lambda (_str4704_ _enc4705_) - (if (let () (declare (not safe)) (eq? _enc4705_ 'UTF-8)) - (string->utf8 _str4704_) + (lambda (_str5910_ _enc5911_) + (if (let () (declare (not safe)) (eq? _enc5911_ 'UTF-8)) + (string->utf8 _str5910_) (substring->bytes - _str4704_ + _str5910_ '0 - (string-length _str4704_) - _enc4705_)))) + (string-length _str5910_) + _enc5911_)))) (define string->bytes__0 - (lambda (_str4710_) - (let ((_enc4712_ 'UTF-8)) + (lambda (_str5916_) + (let ((_enc5918_ 'UTF-8)) (declare (not safe)) - (string->bytes__% _str4710_ _enc4712_)))) + (string->bytes__% _str5916_ _enc5918_)))) (define string->bytes - (lambda _g6589_ - (let ((_g6588_ (let () (declare (not safe)) (##length _g6589_)))) - (cond ((let () (declare (not safe)) (##fx= _g6588_ 1)) - (apply (lambda (_str4710_) + (lambda _g8292_ + (let ((_g8291_ (let () (declare (not safe)) (##length _g8292_)))) + (cond ((let () (declare (not safe)) (##fx= _g8291_ 1)) + (apply (lambda (_str5916_) (let () (declare (not safe)) - (string->bytes__0 _str4710_))) - _g6589_)) - ((let () (declare (not safe)) (##fx= _g6588_ 2)) - (apply (lambda (_str4714_ _enc4715_) + (string->bytes__0 _str5916_))) + _g8292_)) + ((let () (declare (not safe)) (##fx= _g8291_ 2)) + (apply (lambda (_str5920_ _enc5921_) (let () (declare (not safe)) - (string->bytes__% _str4714_ _enc4715_))) - _g6589_)) + (string->bytes__% _str5920_ _enc5921_))) + _g8292_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g6589_)))))) + _g8292_)))))) (define substring->bytes__% - (lambda (_str4682_ _start4683_ _end4684_ _enc4685_) - (if (let () (declare (not safe)) (eq? _enc4685_ 'UTF-8)) - (string->utf8 _str4682_ _start4683_ _end4684_) - (let ((_out4687_ + (lambda (_str5888_ _start5889_ _end5890_ _enc5891_) + (if (let () (declare (not safe)) (eq? _enc5891_ 'UTF-8)) + (string->utf8 _str5888_ _start5889_ _end5890_) + (let ((_out5893_ (open-output-u8vector - (let ((__tmp6590 - (let () (declare (not safe)) (cons _enc4685_ '())))) + (let ((__tmp8293 + (let () (declare (not safe)) (cons _enc5891_ '())))) (declare (not safe)) - (cons 'char-encoding: __tmp6590))))) - (write-substring _str4682_ _start4683_ _end4684_ _out4687_) - (get-output-u8vector _out4687_))))) + (cons 'char-encoding: __tmp8293))))) + (write-substring _str5888_ _start5889_ _end5890_ _out5893_) + (get-output-u8vector _out5893_))))) (define substring->bytes__0 - (lambda (_str4692_ _start4693_ _end4694_) - (let ((_enc4696_ 'UTF-8)) + (lambda (_str5898_ _start5899_ _end5900_) + (let ((_enc5902_ 'UTF-8)) (declare (not safe)) - (substring->bytes__% _str4692_ _start4693_ _end4694_ _enc4696_)))) + (substring->bytes__% _str5898_ _start5899_ _end5900_ _enc5902_)))) (define substring->bytes - (lambda _g6592_ - (let ((_g6591_ (let () (declare (not safe)) (##length _g6592_)))) - (cond ((let () (declare (not safe)) (##fx= _g6591_ 3)) - (apply (lambda (_str4692_ _start4693_ _end4694_) + (lambda _g8295_ + (let ((_g8294_ (let () (declare (not safe)) (##length _g8295_)))) + (cond ((let () (declare (not safe)) (##fx= _g8294_ 3)) + (apply (lambda (_str5898_ _start5899_ _end5900_) (let () (declare (not safe)) (substring->bytes__0 - _str4692_ - _start4693_ - _end4694_))) - _g6592_)) - ((let () (declare (not safe)) (##fx= _g6591_ 4)) - (apply (lambda (_str4698_ _start4699_ _end4700_ _enc4701_) + _str5898_ + _start5899_ + _end5900_))) + _g8295_)) + ((let () (declare (not safe)) (##fx= _g8294_ 4)) + (apply (lambda (_str5904_ _start5905_ _end5906_ _enc5907_) (let () (declare (not safe)) (substring->bytes__% - _str4698_ - _start4699_ - _end4700_ - _enc4701_))) - _g6592_)) + _str5904_ + _start5905_ + _end5906_ + _enc5907_))) + _g8295_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g6592_)))))) + _g8295_)))))) (define string-empty? - (lambda (_str4679_) - (let ((__tmp6593 (string-length _str4679_))) + (lambda (_str5885_) + (let ((__tmp8296 (string-length _str5885_))) (declare (not safe)) - (##fxzero? __tmp6593)))) + (##fxzero? __tmp8296)))) (define string-prefix? - (lambda (_prefix4669_ _str4670_) - (let ((_str-len4672_ (string-length _str4670_)) - (_prefix-len4673_ (string-length _prefix4669_))) + (lambda (_prefix5875_ _str5876_) + (let ((_str-len5878_ (string-length _str5876_)) + (_prefix-len5879_ (string-length _prefix5875_))) (if (let () (declare (not safe)) - (##fx<= _prefix-len4673_ _str-len4672_)) - (let _lp4675_ ((_i4677_ '0)) + (##fx<= _prefix-len5879_ _str-len5878_)) + (let _lp5881_ ((_i5883_ '0)) (if (let () (declare (not safe)) - (##fx< _i4677_ _prefix-len4673_)) - (if (let ((__tmp6596 + (##fx< _i5883_ _prefix-len5879_)) + (if (let ((__tmp8299 (let () (declare (not safe)) - (##string-ref _str4670_ _i4677_))) - (__tmp6595 + (##string-ref _str5876_ _i5883_))) + (__tmp8298 (let () (declare (not safe)) - (##string-ref _prefix4669_ _i4677_)))) + (##string-ref _prefix5875_ _i5883_)))) (declare (not safe)) - (eq? __tmp6596 __tmp6595)) - (let ((__tmp6594 + (eq? __tmp8299 __tmp8298)) + (let ((__tmp8297 (let () (declare (not safe)) - (##fx+ _i4677_ '1)))) + (##fx+ _i5883_ '1)))) (declare (not safe)) - (_lp4675_ __tmp6594)) + (_lp5881_ __tmp8297)) '#f) '#t)) '#f)))) (define string-index__% - (lambda (_str4647_ _char4648_ _start4649_) - (let ((_len4651_ (string-length _str4647_))) - (let _lp4653_ ((_k4655_ _start4649_)) - (if (let () (declare (not safe)) (##fx< _k4655_ _len4651_)) - (if (let ((__tmp6598 + (lambda (_str5853_ _char5854_ _start5855_) + (let ((_len5857_ (string-length _str5853_))) + (let _lp5859_ ((_k5861_ _start5855_)) + (if (let () (declare (not safe)) (##fx< _k5861_ _len5857_)) + (if (let ((__tmp8301 (let () (declare (not safe)) - (##string-ref _str4647_ _k4655_)))) + (##string-ref _str5853_ _k5861_)))) (declare (not safe)) - (eq? _char4648_ __tmp6598)) - _k4655_ - (let ((__tmp6597 - (let () (declare (not safe)) (##fx+ _k4655_ '1)))) + (eq? _char5854_ __tmp8301)) + _k5861_ + (let ((__tmp8300 + (let () (declare (not safe)) (##fx+ _k5861_ '1)))) (declare (not safe)) - (_lp4653_ __tmp6597))) + (_lp5859_ __tmp8300))) '#f))))) (define string-index__0 - (lambda (_str4660_ _char4661_) - (let ((_start4663_ '0)) + (lambda (_str5866_ _char5867_) + (let ((_start5869_ '0)) (declare (not safe)) - (string-index__% _str4660_ _char4661_ _start4663_)))) + (string-index__% _str5866_ _char5867_ _start5869_)))) (define string-index - (lambda _g6600_ - (let ((_g6599_ (let () (declare (not safe)) (##length _g6600_)))) - (cond ((let () (declare (not safe)) (##fx= _g6599_ 2)) - (apply (lambda (_str4660_ _char4661_) + (lambda _g8303_ + (let ((_g8302_ (let () (declare (not safe)) (##length _g8303_)))) + (cond ((let () (declare (not safe)) (##fx= _g8302_ 2)) + (apply (lambda (_str5866_ _char5867_) (let () (declare (not safe)) - (string-index__0 _str4660_ _char4661_))) - _g6600_)) - ((let () (declare (not safe)) (##fx= _g6599_ 3)) - (apply (lambda (_str4665_ _char4666_ _start4667_) + (string-index__0 _str5866_ _char5867_))) + _g8303_)) + ((let () (declare (not safe)) (##fx= _g8302_ 3)) + (apply (lambda (_str5871_ _char5872_ _start5873_) (let () (declare (not safe)) (string-index__% - _str4665_ - _char4666_ - _start4667_))) - _g6600_)) + _str5871_ + _char5872_ + _start5873_))) + _g8303_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g6600_)))))) + _g8303_)))))) (define string-rindex__% - (lambda (_str4618_ _char4619_ _start4620_) - (let* ((_len4622_ (string-length _str4618_)) - (_start4627_ - (let ((_$e4624_ _start4620_)) - (if _$e4624_ - _$e4624_ - (let () (declare (not safe)) (##fx- _len4622_ '1)))))) - (let _lp4630_ ((_k4632_ _start4627_)) - (if (let () (declare (not safe)) (##fx>= _k4632_ '0)) - (if (let ((__tmp6602 + (lambda (_str5824_ _char5825_ _start5826_) + (let* ((_len5828_ (string-length _str5824_)) + (_start5833_ + (let ((_$e5830_ _start5826_)) + (if _$e5830_ + _$e5830_ + (let () (declare (not safe)) (##fx- _len5828_ '1)))))) + (let _lp5836_ ((_k5838_ _start5833_)) + (if (let () (declare (not safe)) (##fx>= _k5838_ '0)) + (if (let ((__tmp8305 (let () (declare (not safe)) - (##string-ref _str4618_ _k4632_)))) + (##string-ref _str5824_ _k5838_)))) (declare (not safe)) - (eq? _char4619_ __tmp6602)) - _k4632_ - (let ((__tmp6601 - (let () (declare (not safe)) (##fx- _k4632_ '1)))) + (eq? _char5825_ __tmp8305)) + _k5838_ + (let ((__tmp8304 + (let () (declare (not safe)) (##fx- _k5838_ '1)))) (declare (not safe)) - (_lp4630_ __tmp6601))) + (_lp5836_ __tmp8304))) '#f))))) (define string-rindex__0 - (lambda (_str4637_ _char4638_) - (let ((_start4640_ '#f)) + (lambda (_str5843_ _char5844_) + (let ((_start5846_ '#f)) (declare (not safe)) - (string-rindex__% _str4637_ _char4638_ _start4640_)))) + (string-rindex__% _str5843_ _char5844_ _start5846_)))) (define string-rindex - (lambda _g6604_ - (let ((_g6603_ (let () (declare (not safe)) (##length _g6604_)))) - (cond ((let () (declare (not safe)) (##fx= _g6603_ 2)) - (apply (lambda (_str4637_ _char4638_) + (lambda _g8307_ + (let ((_g8306_ (let () (declare (not safe)) (##length _g8307_)))) + (cond ((let () (declare (not safe)) (##fx= _g8306_ 2)) + (apply (lambda (_str5843_ _char5844_) (let () (declare (not safe)) - (string-rindex__0 _str4637_ _char4638_))) - _g6604_)) - ((let () (declare (not safe)) (##fx= _g6603_ 3)) - (apply (lambda (_str4642_ _char4643_ _start4644_) + (string-rindex__0 _str5843_ _char5844_))) + _g8307_)) + ((let () (declare (not safe)) (##fx= _g8306_ 3)) + (apply (lambda (_str5848_ _char5849_ _start5850_) (let () (declare (not safe)) (string-rindex__% - _str4642_ - _char4643_ - _start4644_))) - _g6604_)) + _str5848_ + _char5849_ + _start5850_))) + _g8307_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g6604_)))))) + _g8307_)))))) (define string-split - (lambda (_str4602_ _char4603_) - (let ((_len4605_ (string-length _str4602_))) - (let _lp4607_ ((_start4609_ '0) (_r4610_ '())) - (let ((_$e4612_ + (lambda (_str5808_ _char5809_) + (let ((_len5811_ (string-length _str5808_))) + (let _lp5813_ ((_start5815_ '0) (_r5816_ '())) + (let ((_$e5818_ (let () (declare (not safe)) - (string-index _str4602_ _char4603_ _start4609_)))) - (if _$e4612_ - ((lambda (_end4615_) - (let ((__tmp6608 - (let () (declare (not safe)) (##fx+ _end4615_ '1))) - (__tmp6606 - (let ((__tmp6607 + (string-index _str5808_ _char5809_ _start5815_)))) + (if _$e5818_ + ((lambda (_end5821_) + (let ((__tmp8311 + (let () (declare (not safe)) (##fx+ _end5821_ '1))) + (__tmp8309 + (let ((__tmp8310 (let () (declare (not safe)) (##substring - _str4602_ - _start4609_ - _end4615_)))) + _str5808_ + _start5815_ + _end5821_)))) (declare (not safe)) - (cons __tmp6607 _r4610_)))) + (cons __tmp8310 _r5816_)))) (declare (not safe)) - (_lp4607_ __tmp6608 __tmp6606))) - _$e4612_) + (_lp5813_ __tmp8311 __tmp8309))) + _$e5818_) (if (let () (declare (not safe)) - (##fx< _start4609_ _len4605_)) - (let ((__tmp6605 + (##fx< _start5815_ _len5811_)) + (let ((__tmp8308 (list (let () (declare (not safe)) (##substring - _str4602_ - _start4609_ - _len4605_))))) + _str5808_ + _start5815_ + _len5811_))))) (declare (not safe)) - (foldl1 cons __tmp6605 _r4610_)) - (reverse _r4610_)))))))) + (foldl1 cons __tmp8308 _r5816_)) + (reverse _r5816_)))))))) (define string-join - (lambda (_strs4507_ _join4508_) - (letrec ((_join-length4510_ - (lambda (_strs4561_ _jlen4562_) - (let _lp4564_ ((_rest4566_ _strs4561_) (_len4567_ '0)) - (let* ((_rest45684576_ _rest4566_) - (_else45704584_ (lambda () '0)) - (_K45724590_ - (lambda (_rest4587_ _hd4588_) + (lambda (_strs5713_ _join5714_) + (letrec ((_join-length5716_ + (lambda (_strs5767_ _jlen5768_) + (let _lp5770_ ((_rest5772_ _strs5767_) (_len5773_ '0)) + (let* ((_rest57745782_ _rest5772_) + (_else57765790_ (lambda () '0)) + (_K57785796_ + (lambda (_rest5793_ _hd5794_) (if (let () (declare (not safe)) - (string? _hd4588_)) + (string? _hd5794_)) (if (let () (declare (not safe)) - (pair? _rest4587_)) - (let ((__tmp6610 - (let ((__tmp6611 + (pair? _rest5793_)) + (let ((__tmp8313 + (let ((__tmp8314 (let () (declare (not safe)) (##string-length - _hd4588_)))) + _hd5794_)))) (declare (not safe)) - (##fx+ __tmp6611 - _jlen4562_ - _len4567_)))) + (##fx+ __tmp8314 + _jlen5768_ + _len5773_)))) (declare (not safe)) - (_lp4564_ _rest4587_ __tmp6610)) - (let ((__tmp6609 + (_lp5770_ _rest5793_ __tmp8313)) + (let ((__tmp8312 (let () (declare (not safe)) - (##string-length _hd4588_)))) + (##string-length _hd5794_)))) (declare (not safe)) - (##fx+ __tmp6609 _len4567_))) - (error '"expected string" _hd4588_))))) + (##fx+ __tmp8312 _len5773_))) + (error '"expected string" _hd5794_))))) (if (let () (declare (not safe)) - (##pair? _rest45684576_)) - (let ((_hd45734593_ + (##pair? _rest57745782_)) + (let ((_hd57795799_ (let () (declare (not safe)) - (##car _rest45684576_))) - (_tl45744595_ + (##car _rest57745782_))) + (_tl57805801_ (let () (declare (not safe)) - (##cdr _rest45684576_)))) - (let* ((_hd4598_ _hd45734593_) - (_rest4600_ _tl45744595_)) + (##cdr _rest57745782_)))) + (let* ((_hd5804_ _hd57795799_) + (_rest5806_ _tl57805801_)) (declare (not safe)) - (_K45724590_ _rest4600_ _hd4598_))) + (_K57785796_ _rest5806_ _hd5804_))) (let () (declare (not safe)) - (_else45704584_)))))))) - (let* ((_join4512_ - (if (let () (declare (not safe)) (char? _join4508_)) - (string _join4508_) - (if (let () (declare (not safe)) (string? _join4508_)) - _join4508_ - (error '"expected string or char" _join4508_)))) - (_jlen4514_ - (let () (declare (not safe)) (##string-length _join4512_))) - (_olen4516_ + (_else57765790_)))))))) + (let* ((_join5718_ + (if (let () (declare (not safe)) (char? _join5714_)) + (string _join5714_) + (if (let () (declare (not safe)) (string? _join5714_)) + _join5714_ + (error '"expected string or char" _join5714_)))) + (_jlen5720_ + (let () (declare (not safe)) (##string-length _join5718_))) + (_olen5722_ (let () (declare (not safe)) - (_join-length4510_ _strs4507_ _jlen4514_))) - (_ostr4518_ (make-string _olen4516_))) - (let _lp4521_ ((_rest4523_ _strs4507_) (_k4524_ '0)) - (let* ((_rest45254533_ _rest4523_) - (_else45274541_ (lambda () '"")) - (_K45294549_ - (lambda (_rest4544_ _hd4545_) - (let ((_hdlen4547_ + (_join-length5716_ _strs5713_ _jlen5720_))) + (_ostr5724_ (make-string _olen5722_))) + (let _lp5727_ ((_rest5729_ _strs5713_) (_k5730_ '0)) + (let* ((_rest57315739_ _rest5729_) + (_else57335747_ (lambda () '"")) + (_K57355755_ + (lambda (_rest5750_ _hd5751_) + (let ((_hdlen5753_ (let () (declare (not safe)) - (##string-length _hd4545_)))) - (if (let () (declare (not safe)) (pair? _rest4544_)) + (##string-length _hd5751_)))) + (if (let () (declare (not safe)) (pair? _rest5750_)) (begin (let () (declare (not safe)) (##substring-move! - _hd4545_ + _hd5751_ '0 - _hdlen4547_ - _ostr4518_ - _k4524_)) - (let ((__tmp6612 + _hdlen5753_ + _ostr5724_ + _k5730_)) + (let ((__tmp8315 (let () (declare (not safe)) - (##fx+ _k4524_ _hdlen4547_)))) + (##fx+ _k5730_ _hdlen5753_)))) (declare (not safe)) (##substring-move! - _join4512_ + _join5718_ '0 - _jlen4514_ - _ostr4518_ - __tmp6612)) - (let ((__tmp6613 + _jlen5720_ + _ostr5724_ + __tmp8315)) + (let ((__tmp8316 (let () (declare (not safe)) - (##fx+ _k4524_ - _hdlen4547_ - _jlen4514_)))) + (##fx+ _k5730_ + _hdlen5753_ + _jlen5720_)))) (declare (not safe)) - (_lp4521_ _rest4544_ __tmp6613))) + (_lp5727_ _rest5750_ __tmp8316))) (begin (let () (declare (not safe)) (##substring-move! - _hd4545_ + _hd5751_ '0 - _hdlen4547_ - _ostr4518_ - _k4524_)) - _ostr4518_)))))) - (if (let () (declare (not safe)) (##pair? _rest45254533_)) - (let ((_hd45304552_ + _hdlen5753_ + _ostr5724_ + _k5730_)) + _ostr5724_)))))) + (if (let () (declare (not safe)) (##pair? _rest57315739_)) + (let ((_hd57365758_ (let () (declare (not safe)) - (##car _rest45254533_))) - (_tl45314554_ + (##car _rest57315739_))) + (_tl57375760_ (let () (declare (not safe)) - (##cdr _rest45254533_)))) - (let* ((_hd4557_ _hd45304552_) (_rest4559_ _tl45314554_)) + (##cdr _rest57315739_)))) + (let* ((_hd5763_ _hd57365758_) (_rest5765_ _tl57375760_)) (declare (not safe)) - (_K45294549_ _rest4559_ _hd4557_))) - (let () (declare (not safe)) (_else45274541_))))))))) + (_K57355755_ _rest5765_ _hd5763_))) + (let () (declare (not safe)) (_else57335747_))))))))) (define read-u8vector - (lambda (_bytes4504_ _port4505_) + (lambda (_bytes5710_ _port5711_) (read-subu8vector - _bytes4504_ + _bytes5710_ '0 - (u8vector-length _bytes4504_) - _port4505_))) + (u8vector-length _bytes5710_) + _port5711_))) (define write-u8vector - (lambda (_bytes4501_ _port4502_) + (lambda (_bytes5707_ _port5708_) (write-subu8vector - _bytes4501_ + _bytes5707_ '0 - (u8vector-length _bytes4501_) - _port4502_))) + (u8vector-length _bytes5707_) + _port5708_))) (define read-string - (lambda (_str4498_ _port4499_) - (read-substring _str4498_ '0 (string-length _str4498_) _port4499_))) + (lambda (_str5704_ _port5705_) + (read-substring _str5704_ '0 (string-length _str5704_) _port5705_))) (define write-string - (lambda (_str4495_ _port4496_) - (write-substring _str4495_ '0 (string-length _str4495_) _port4496_))))) + (lambda (_str5701_ _port5702_) + (write-substring _str5701_ '0 (string-length _str5701_) _port5702_))) + (define DBG-printer (make-parameter write)) + (define DBG-helper + (lambda (_tag5672_ + _dbg-exprs5673_ + _dbg-thunks5674_ + _expr5675_ + _thunk5676_) + (letrec ((_fo5678_ + (lambda () + (force-output (current-error-port)) + (force-output (current-output-port)))) + (_d5679_ (lambda (_x5687_) + (display _x5687_ (current-error-port)))) + (_p5680_ (DBG-printer)) + (_w5681_ (lambda (_x5689_) + (_p5680_ _x5689_ (current-error-port)))) + (_n5682_ (lambda () (newline (current-error-port)))) + (_v5683_ (lambda (_l5692_) + (for-each + (lambda (_x5694_) + (let () (declare (not safe)) (_d5679_ '" ")) + (let () (declare (not safe)) (_w5681_ _x5694_))) + _l5692_) + (let () (declare (not safe)) (_n5682_)))) + (_x5684_ (lambda (_expr5696_ _thunk5697_) + (let () (declare (not safe)) (_d5679_ '" ")) + (let () (declare (not safe)) (_w5681_ _expr5696_)) + (let () (declare (not safe)) (_d5679_ '" =>")) + (call-with-values + _thunk5697_ + (lambda _x5699_ + (let () (declare (not safe)) (_v5683_ _x5699_)) + (apply values _x5699_)))))) + (if _tag5672_ + (begin + (if (let () (declare (not safe)) (eq? _tag5672_ '#!void)) + '#!void + (begin + (let () (declare (not safe)) (_d5679_ _tag5672_)) + (let () (declare (not safe)) (_n5682_)))) + (for-each _x5684_ _dbg-exprs5673_ _dbg-thunks5674_) + (if _thunk5676_ + (let () + (declare (not safe)) + (_x5684_ _expr5675_ _thunk5676_)) + '#!void)) + (if _thunk5676_ (_thunk5676_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util__1.scm b/src/bootstrap/gerbil/runtime/util__1.scm index 96a72e5cc..6f7fbd830 100644 --- a/src/bootstrap/gerbil/runtime/util__1.scm +++ b/src/bootstrap/gerbil/runtime/util__1.scm @@ -1,731 +1,2268 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[:0:]#defassget| - (lambda (_$stx4251_) - (let* ((_g42554273_ - (lambda (_g42564269_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g42564269_))) - (_g42544329_ - (lambda (_g42564277_) - (if (gx#stx-pair? _g42564277_) - (let ((_e42614280_ (gx#syntax-e _g42564277_))) - (let ((_hd42604284_ - (let () (declare (not safe)) (##car _e42614280_))) - (_tl42594287_ - (let () - (declare (not safe)) - (##cdr _e42614280_)))) - (if (gx#stx-pair? _tl42594287_) - (let ((_e42644290_ (gx#syntax-e _tl42594287_))) - (let ((_hd42634294_ - (let () - (declare (not safe)) - (##car _e42644290_))) - (_tl42624297_ - (let () - (declare (not safe)) - (##cdr _e42644290_)))) - (if (gx#stx-pair? _tl42624297_) - (let ((_e42674300_ - (gx#syntax-e _tl42624297_))) - (let ((_hd42664304_ - (let () - (declare (not safe)) - (##car _e42674300_))) - (_tl42654307_ - (let () - (declare (not safe)) - (##cdr _e42674300_)))) - (if (gx#stx-null? _tl42654307_) - ((lambda (_L4310_ _L4312_) - (let ((__tmp6662 - (gx#datum->syntax - '#f - 'def)) - (__tmp6614 - (let ((__tmp6653 - (let ((__tmp6654 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp6661 (gx#datum->syntax '#f 'key)) - (__tmp6655 - (let ((__tmp6660 - (gx#datum->syntax '#f 'lst)) - (__tmp6656 - (let ((__tmp6657 - (let ((__tmp6659 - (gx#datum->syntax - '#f - 'default)) - (__tmp6658 - (let () - (declare (not safe)) - (cons '#f '())))) - (declare (not safe)) - (cons __tmp6659 - __tmp6658)))) - (declare (not safe)) - (cons __tmp6657 '())))) - (declare (not safe)) - (cons __tmp6660 __tmp6656)))) - (declare (not safe)) - (cons __tmp6661 __tmp6655)))) - (declare (not safe)) - (cons _L4312_ __tmp6654))) - (__tmp6615 - (let ((__tmp6616 - (let ((__tmp6652 (gx#datum->syntax '#f 'cond)) - (__tmp6617 - (let ((__tmp6634 - (let ((__tmp6639 - (let ((__tmp6651 + (define |[1]#_g8604_| + (##structure + gx#syntax-quote::t + 'quote + #f + (gx#current-expander-context) + '())) + (define |[1]#_g8605_| + (##structure + gx#syntax-quote::t + 'quote + #f + (gx#current-expander-context) + '())) + (begin + (define |[:0:]#defassget| + (lambda (_$stx4251_) + (let* ((_g42554273_ + (lambda (_g42564269_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g42564269_))) + (_g42544329_ + (lambda (_g42564277_) + (if (gx#stx-pair? _g42564277_) + (let ((_e42614280_ (gx#syntax-e _g42564277_))) + (let ((_hd42604284_ + (let () + (declare (not safe)) + (##car _e42614280_))) + (_tl42594287_ + (let () + (declare (not safe)) + (##cdr _e42614280_)))) + (if (gx#stx-pair? _tl42594287_) + (let ((_e42644290_ (gx#syntax-e _tl42594287_))) + (let ((_hd42634294_ + (let () + (declare (not safe)) + (##car _e42644290_))) + (_tl42624297_ + (let () + (declare (not safe)) + (##cdr _e42644290_)))) + (if (gx#stx-pair? _tl42624297_) + (let ((_e42674300_ + (gx#syntax-e _tl42624297_))) + (let ((_hd42664304_ + (let () + (declare (not safe)) + (##car _e42674300_))) + (_tl42654307_ + (let () + (declare (not safe)) + (##cdr _e42674300_)))) + (if (gx#stx-null? _tl42654307_) + ((lambda (_L4310_ _L4312_) + (let ((__tmp8365 (gx#datum->syntax '#f - 'and)) - (__tmp6640 - (let ((__tmp6647 - (let ((__tmp6650 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'pair?)) - (__tmp6648 - (let ((__tmp6649 (gx#datum->syntax '#f 'lst))) - (declare (not safe)) - (cons __tmp6649 '())))) - (declare (not safe)) - (cons __tmp6650 __tmp6648))) - (__tmp6641 - (let ((__tmp6642 - (let ((__tmp6643 - (let ((__tmp6646 - (gx#datum->syntax '#f 'key)) - (__tmp6644 - (let ((__tmp6645 - (gx#datum->syntax - '#f - 'lst))) + 'def)) + (__tmp8317 + (let ((__tmp8356 + (let ((__tmp8357 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp8364 (gx#datum->syntax '#f 'key)) + (__tmp8358 + (let ((__tmp8363 + (gx#datum->syntax '#f 'lst)) + (__tmp8359 + (let ((__tmp8360 + (let ((__tmp8362 + (gx#datum->syntax + '#f + 'default)) + (__tmp8361 + (let () + (declare + (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp8362 + __tmp8361)))) (declare (not safe)) - (cons __tmp6645 '())))) + (cons __tmp8360 '())))) (declare (not safe)) - (cons __tmp6646 __tmp6644)))) + (cons __tmp8363 __tmp8359)))) (declare (not safe)) - (cons _L4310_ __tmp6643)))) + (cons __tmp8364 __tmp8358)))) (declare (not safe)) - (cons __tmp6642 '())))) - (declare (not safe)) - (cons __tmp6647 __tmp6641)))) + (cons _L4312_ __tmp8357))) + (__tmp8318 + (let ((__tmp8319 + (let ((__tmp8355 (gx#datum->syntax '#f 'cond)) + (__tmp8320 + (let ((__tmp8337 + (let ((__tmp8342 + (let ((__tmp8354 + (gx#datum->syntax + '#f + 'and)) + (__tmp8343 + (let ((__tmp8350 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp8353 (gx#datum->syntax '#f 'pair?)) + (__tmp8351 + (let ((__tmp8352 (gx#datum->syntax '#f 'lst))) + (declare (not safe)) + (cons __tmp8352 '())))) + (declare (not safe)) + (cons __tmp8353 __tmp8351))) + (__tmp8344 + (let ((__tmp8345 + (let ((__tmp8346 + (let ((__tmp8349 + (gx#datum->syntax '#f 'key)) + (__tmp8347 + (let ((__tmp8348 + (gx#datum->syntax + '#f + 'lst))) + (declare (not safe)) + (cons __tmp8348 '())))) + (declare (not safe)) + (cons __tmp8349 __tmp8347)))) + (declare (not safe)) + (cons _L4310_ __tmp8346)))) + (declare (not safe)) + (cons __tmp8345 '())))) + (declare (not safe)) + (cons __tmp8350 __tmp8344)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp6651 __tmp6640))) - (__tmp6635 - (let ((__tmp6638 - (gx#datum->syntax - '#f - '=>)) - (__tmp6636 - (let ((__tmp6637 - (gx#datum->syntax - '#f - 'cdr))) - (declare (not safe)) - (cons __tmp6637 - '())))) - (declare (not safe)) - (cons __tmp6638 - __tmp6636)))) - (declare (not safe)) - (cons __tmp6639 __tmp6635))) - (__tmp6618 - (let ((__tmp6624 - (let ((__tmp6630 - (let ((__tmp6633 - (gx#datum->syntax - '#f - 'procedure?)) - (__tmp6631 - (let ((__tmp6632 + (declare (not safe)) + (cons __tmp8354 + __tmp8343))) + (__tmp8338 + (let ((__tmp8341 + (gx#datum->syntax + '#f + '=>)) + (__tmp8339 + (let ((__tmp8340 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'default))) - (declare (not safe)) - (cons __tmp6632 '())))) - (declare (not safe)) - (cons __tmp6633 __tmp6631))) - (__tmp6625 - (let ((__tmp6626 - (let ((__tmp6629 (gx#datum->syntax '#f 'default)) - (__tmp6627 - (let ((__tmp6628 (gx#datum->syntax '#f 'key))) - (declare (not safe)) - (cons __tmp6628 '())))) - (declare (not safe)) - (cons __tmp6629 __tmp6627)))) - (declare (not safe)) - (cons __tmp6626 '())))) + (gx#datum->syntax '#f 'cdr))) + (declare (not safe)) + (cons __tmp8340 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp6630 __tmp6625))) - (__tmp6619 - (let ((__tmp6620 - (let ((__tmp6623 - (gx#datum->syntax - '#f - 'else)) - (__tmp6621 - (let ((__tmp6622 + (declare (not safe)) + (cons __tmp8341 + __tmp8339)))) + (declare (not safe)) + (cons __tmp8342 __tmp8338))) + (__tmp8321 + (let ((__tmp8327 + (let ((__tmp8333 + (let ((__tmp8336 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'procedure?)) + (__tmp8334 + (let ((__tmp8335 (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp8335 '())))) + (declare (not safe)) + (cons __tmp8336 __tmp8334))) + (__tmp8328 + (let ((__tmp8329 + (let ((__tmp8332 (gx#datum->syntax '#f 'default)) + (__tmp8330 + (let ((__tmp8331 (gx#datum->syntax '#f 'key))) + (declare (not safe)) + (cons __tmp8331 '())))) + (declare (not safe)) + (cons __tmp8332 __tmp8330)))) + (declare (not safe)) + (cons __tmp8329 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8333 + __tmp8328))) + (__tmp8322 + (let ((__tmp8323 + (let ((__tmp8326 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'default))) + (gx#datum->syntax '#f 'else)) + (__tmp8324 + (let ((__tmp8325 (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp8325 '())))) + (declare (not safe)) + (cons __tmp8326 __tmp8324)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8323 '())))) + (declare (not safe)) + (cons __tmp8327 __tmp8322)))) + (declare (not safe)) + (cons __tmp8337 __tmp8321)))) + (declare (not safe)) + (cons __tmp8355 __tmp8320)))) (declare (not safe)) - (cons __tmp6622 '())))) + (cons __tmp8319 '())))) (declare (not safe)) - (cons __tmp6623 __tmp6621)))) + (cons __tmp8356 __tmp8318)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp6620 '())))) - (declare (not safe)) - (cons __tmp6624 __tmp6619)))) - (declare (not safe)) - (cons __tmp6634 __tmp6618)))) - (declare (not safe)) - (cons __tmp6652 __tmp6617)))) - (declare (not safe)) - (cons __tmp6616 '())))) - (declare (not safe)) - (cons __tmp6653 __tmp6615)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons __tmp8365 __tmp8317))) + _hd42664304_ + _hd42634294_) + (_g42554273_ _g42564277_)))) + (_g42554273_ _g42564277_)))) + (_g42554273_ _g42564277_)))) + (_g42554273_ _g42564277_))))) + (_g42544329_ _$stx4251_)))) + (define |[:0:]#defpget| + (lambda (_$stx4333_) + (let* ((_g43374355_ + (lambda (_g43384351_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g43384351_))) + (_g43364410_ + (lambda (_g43384359_) + (if (gx#stx-pair? _g43384359_) + (let ((_e43434362_ (gx#syntax-e _g43384359_))) + (let ((_hd43424366_ + (let () + (declare (not safe)) + (##car _e43434362_))) + (_tl43414369_ + (let () + (declare (not safe)) + (##cdr _e43434362_)))) + (if (gx#stx-pair? _tl43414369_) + (let ((_e43464372_ (gx#syntax-e _tl43414369_))) + (let ((_hd43454376_ + (let () + (declare (not safe)) + (##car _e43464372_))) + (_tl43444379_ + (let () + (declare (not safe)) + (##cdr _e43464372_)))) + (if (gx#stx-pair? _tl43444379_) + (let ((_e43494382_ + (gx#syntax-e _tl43444379_))) + (let ((_hd43484386_ + (let () (declare (not safe)) - (cons __tmp6662 __tmp6614))) - _hd42664304_ - _hd42634294_) - (_g42554273_ _g42564277_)))) - (_g42554273_ _g42564277_)))) - (_g42554273_ _g42564277_)))) - (_g42554273_ _g42564277_))))) - (_g42544329_ _$stx4251_)))) - (define |[:0:]#defpget| - (lambda (_$stx4333_) - (let* ((_g43374355_ - (lambda (_g43384351_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g43384351_))) - (_g43364410_ - (lambda (_g43384359_) - (if (gx#stx-pair? _g43384359_) - (let ((_e43434362_ (gx#syntax-e _g43384359_))) - (let ((_hd43424366_ - (let () (declare (not safe)) (##car _e43434362_))) - (_tl43414369_ - (let () - (declare (not safe)) - (##cdr _e43434362_)))) - (if (gx#stx-pair? _tl43414369_) - (let ((_e43464372_ (gx#syntax-e _tl43414369_))) - (let ((_hd43454376_ - (let () - (declare (not safe)) - (##car _e43464372_))) - (_tl43444379_ - (let () - (declare (not safe)) - (##cdr _e43464372_)))) - (if (gx#stx-pair? _tl43444379_) - (let ((_e43494382_ - (gx#syntax-e _tl43444379_))) - (let ((_hd43484386_ - (let () - (declare (not safe)) - (##car _e43494382_))) - (_tl43474389_ - (let () - (declare (not safe)) - (##cdr _e43494382_)))) - (if (gx#stx-null? _tl43474389_) - ((lambda (_L4392_ _L4394_) - (let ((__tmp6732 - (gx#datum->syntax - '#f - 'def)) - (__tmp6663 - (let ((__tmp6723 - (let ((__tmp6724 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp6731 (gx#datum->syntax '#f 'key)) - (__tmp6725 - (let ((__tmp6730 - (gx#datum->syntax '#f 'lst)) - (__tmp6726 - (let ((__tmp6727 - (let ((__tmp6729 + (##car _e43494382_))) + (_tl43474389_ + (let () + (declare (not safe)) + (##cdr _e43494382_)))) + (if (gx#stx-null? _tl43474389_) + ((lambda (_L4392_ _L4394_) + (let ((__tmp8435 (gx#datum->syntax '#f - 'default)) - (__tmp6728 - (let () - (declare (not safe)) - (cons '#f '())))) - (declare (not safe)) - (cons __tmp6729 - __tmp6728)))) - (declare (not safe)) - (cons __tmp6727 '())))) - (declare (not safe)) - (cons __tmp6730 __tmp6726)))) - (declare (not safe)) - (cons __tmp6731 __tmp6725)))) - (declare (not safe)) - (cons _L4394_ __tmp6724))) - (__tmp6664 - (let ((__tmp6665 - (let ((__tmp6722 (gx#datum->syntax '#f 'let)) - (__tmp6666 - (let ((__tmp6721 (gx#datum->syntax '#f 'lp)) - (__tmp6667 - (let ((__tmp6716 - (let ((__tmp6717 - (let ((__tmp6720 - (gx#datum->syntax - '#f - 'rest)) - (__tmp6718 - (let ((__tmp6719 + 'def)) + (__tmp8366 + (let ((__tmp8426 + (let ((__tmp8427 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'lst))) - (declare (not safe)) - (cons __tmp6719 '())))) - (declare (not safe)) - (cons __tmp6720 __tmp6718)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp6717 '()))) - (__tmp6668 - (let ((__tmp6669 - (let ((__tmp6715 - (gx#datum->syntax - '#f - 'match)) - (__tmp6670 - (let ((__tmp6714 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'rest)) - (__tmp6671 - (let ((__tmp6690 - (let ((__tmp6707 - (let ((__tmp6713 - (gx#datum->syntax - '#f - '@list)) - (__tmp6708 - (let ((__tmp6712 + (let ((__tmp8434 (gx#datum->syntax '#f 'key)) + (__tmp8428 + (let ((__tmp8433 + (gx#datum->syntax '#f 'lst)) + (__tmp8429 + (let ((__tmp8430 + (let ((__tmp8432 (gx#datum->syntax '#f - 'k)) - (__tmp6709 - (let ((__tmp6711 + 'default)) + (__tmp8431 + (let () + (declare + (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp8432 + __tmp8431)))) + (declare (not safe)) + (cons __tmp8430 '())))) + (declare (not safe)) + (cons __tmp8433 __tmp8429)))) + (declare (not safe)) + (cons __tmp8434 __tmp8428)))) + (declare (not safe)) + (cons _L4394_ __tmp8427))) + (__tmp8367 + (let ((__tmp8368 + (let ((__tmp8425 (gx#datum->syntax '#f 'let)) + (__tmp8369 + (let ((__tmp8424 + (gx#datum->syntax '#f 'lp)) + (__tmp8370 + (let ((__tmp8419 + (let ((__tmp8420 + (let ((__tmp8423 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'v)) - (__tmp6710 (gx#datum->syntax '#f 'rest))) + (gx#datum->syntax '#f 'rest)) + (__tmp8421 + (let ((__tmp8422 (gx#datum->syntax '#f 'lst))) + (declare (not safe)) + (cons __tmp8422 '())))) (declare (not safe)) - (cons __tmp6711 __tmp6710)))) + (cons __tmp8423 __tmp8421)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp6712 - __tmp6709)))) - (declare (not safe)) - (cons __tmp6713 __tmp6708))) - (__tmp6691 - (let ((__tmp6692 - (let ((__tmp6706 - (gx#datum->syntax - '#f - 'if)) - (__tmp6693 - (let ((__tmp6701 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp6702 - (let ((__tmp6705 (gx#datum->syntax '#f 'k)) - (__tmp6703 - (let ((__tmp6704 - (gx#datum->syntax '#f 'key))) - (declare (not safe)) - (cons __tmp6704 '())))) - (declare (not safe)) - (cons __tmp6705 __tmp6703)))) - (declare (not safe)) - (cons _L4392_ __tmp6702))) - (__tmp6694 - (let ((__tmp6700 (gx#datum->syntax '#f 'v)) - (__tmp6695 - (let ((__tmp6696 - (let ((__tmp6699 - (gx#datum->syntax '#f 'lp)) - (__tmp6697 - (let ((__tmp6698 + (cons __tmp8420 '()))) + (__tmp8371 + (let ((__tmp8372 + (let ((__tmp8418 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'match)) + (__tmp8373 + (let ((__tmp8417 (gx#datum->syntax '#f 'rest)) + (__tmp8374 + (let ((__tmp8393 + (let ((__tmp8410 + (let ((__tmp8416 (gx#datum->syntax '#f - 'rest))) + '@list)) + (__tmp8411 + (let ((__tmp8415 + (gx#datum->syntax + '#f + 'k)) + (__tmp8412 + (let ((__tmp8414 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'v)) + (__tmp8413 (gx#datum->syntax '#f 'rest))) + (declare (not safe)) + (cons __tmp8414 __tmp8413)))) + (declare (not safe)) + (cons __tmp8415 __tmp8412)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp6698 '())))) - (declare (not safe)) - (cons __tmp6699 __tmp6697)))) - (declare (not safe)) - (cons __tmp6696 '())))) - (declare (not safe)) - (cons __tmp6700 __tmp6695)))) - (declare (not safe)) - (cons __tmp6701 __tmp6694)))) + (cons __tmp8416 __tmp8411))) + (__tmp8394 + (let ((__tmp8395 + (let ((__tmp8409 + (gx#datum->syntax + '#f + 'if)) + (__tmp8396 + (let ((__tmp8404 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp8405 + (let ((__tmp8408 (gx#datum->syntax '#f 'k)) + (__tmp8406 + (let ((__tmp8407 + (gx#datum->syntax '#f 'key))) + (declare (not safe)) + (cons __tmp8407 '())))) + (declare (not safe)) + (cons __tmp8408 __tmp8406)))) + (declare (not safe)) + (cons _L4392_ __tmp8405))) + (__tmp8397 + (let ((__tmp8403 (gx#datum->syntax '#f 'v)) + (__tmp8398 + (let ((__tmp8399 + (let ((__tmp8402 + (gx#datum->syntax '#f 'lp)) + (__tmp8400 + (let ((__tmp8401 + (gx#datum->syntax + '#f + 'rest))) + (declare (not safe)) + (cons __tmp8401 '())))) + (declare (not safe)) + (cons __tmp8402 __tmp8400)))) + (declare (not safe)) + (cons __tmp8399 '())))) + (declare (not safe)) + (cons __tmp8403 __tmp8398)))) + (declare (not safe)) + (cons __tmp8404 __tmp8397)))) + (declare (not safe)) + (cons __tmp8409 __tmp8396)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp6706 - __tmp6693)))) - (declare (not safe)) - (cons __tmp6692 '())))) - (declare (not safe)) - (cons __tmp6707 __tmp6691))) - (__tmp6672 - (let ((__tmp6673 - (let ((__tmp6689 - (gx#datum->syntax - '#f - 'else)) - (__tmp6674 - (let ((__tmp6675 - (let ((__tmp6688 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'if)) - (__tmp6676 - (let ((__tmp6684 - (let ((__tmp6687 - (gx#datum->syntax '#f 'procedure?)) - (__tmp6685 - (let ((__tmp6686 - (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp8395 '())))) (declare (not safe)) - (cons __tmp6686 '())))) - (declare (not safe)) - (cons __tmp6687 __tmp6685))) - (__tmp6677 - (let ((__tmp6680 - (let ((__tmp6683 - (gx#datum->syntax '#f 'default)) - (__tmp6681 - (let ((__tmp6682 + (cons __tmp8410 __tmp8394))) + (__tmp8375 + (let ((__tmp8376 + (let ((__tmp8392 (gx#datum->syntax '#f - 'key))) + 'else)) + (__tmp8377 + (let ((__tmp8378 + (let ((__tmp8391 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'if)) + (__tmp8379 + (let ((__tmp8387 + (let ((__tmp8390 + (gx#datum->syntax '#f 'procedure?)) + (__tmp8388 + (let ((__tmp8389 + (gx#datum->syntax + '#f + 'default))) + (declare (not safe)) + (cons __tmp8389 '())))) + (declare (not safe)) + (cons __tmp8390 __tmp8388))) + (__tmp8380 + (let ((__tmp8383 + (let ((__tmp8386 + (gx#datum->syntax + '#f + 'default)) + (__tmp8384 + (let ((__tmp8385 + (gx#datum->syntax + '#f + 'key))) + (declare (not safe)) + (cons __tmp8385 '())))) + (declare (not safe)) + (cons __tmp8386 __tmp8384))) + (__tmp8381 + (let ((__tmp8382 + (gx#datum->syntax + '#f + 'default))) + (declare (not safe)) + (cons __tmp8382 '())))) + (declare (not safe)) + (cons __tmp8383 __tmp8381)))) + (declare (not safe)) + (cons __tmp8387 __tmp8380)))) + (declare (not safe)) + (cons __tmp8391 __tmp8379)))) + (declare (not safe)) + (cons __tmp8378 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp6682 '())))) - (declare (not safe)) - (cons __tmp6683 __tmp6681))) - (__tmp6678 - (let ((__tmp6679 - (gx#datum->syntax '#f 'default))) + (cons __tmp8392 __tmp8377)))) (declare (not safe)) - (cons __tmp6679 '())))) + (cons __tmp8376 '())))) (declare (not safe)) - (cons __tmp6680 __tmp6678)))) + (cons __tmp8393 __tmp8375)))) (declare (not safe)) - (cons __tmp6684 __tmp6677)))) + (cons __tmp8417 __tmp8374)))) (declare (not safe)) - (cons __tmp6688 __tmp6676)))) + (cons __tmp8418 __tmp8373)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp6675 '())))) + (cons __tmp8372 '())))) (declare (not safe)) - (cons __tmp6689 __tmp6674)))) + (cons __tmp8419 __tmp8371)))) (declare (not safe)) - (cons __tmp6673 '())))) + (cons __tmp8424 __tmp8370)))) (declare (not safe)) - (cons __tmp6690 __tmp6672)))) + (cons __tmp8425 __tmp8369)))) (declare (not safe)) - (cons __tmp6714 __tmp6671)))) + (cons __tmp8368 '())))) (declare (not safe)) - (cons __tmp6715 __tmp6670)))) + (cons __tmp8426 __tmp8367)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp6669 '())))) - (declare (not safe)) - (cons __tmp6716 __tmp6668)))) - (declare (not safe)) - (cons __tmp6721 __tmp6667)))) - (declare (not safe)) - (cons __tmp6722 __tmp6666)))) - (declare (not safe)) - (cons __tmp6665 '())))) - (declare (not safe)) - (cons __tmp6723 __tmp6664)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons __tmp8435 __tmp8366))) + _hd43484386_ + _hd43454376_) + (_g43374355_ _g43384359_)))) + (_g43374355_ _g43384359_)))) + (_g43374355_ _g43384359_)))) + (_g43374355_ _g43384359_))))) + (_g43364410_ _$stx4333_)))) + (define |[:0:]#defremove1| + (lambda (_$stx4414_) + (let* ((_g44184436_ + (lambda (_g44194432_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g44194432_))) + (_g44174491_ + (lambda (_g44194440_) + (if (gx#stx-pair? _g44194440_) + (let ((_e44244443_ (gx#syntax-e _g44194440_))) + (let ((_hd44234447_ + (let () + (declare (not safe)) + (##car _e44244443_))) + (_tl44224450_ + (let () + (declare (not safe)) + (##cdr _e44244443_)))) + (if (gx#stx-pair? _tl44224450_) + (let ((_e44274453_ (gx#syntax-e _tl44224450_))) + (let ((_hd44264457_ + (let () + (declare (not safe)) + (##car _e44274453_))) + (_tl44254460_ + (let () + (declare (not safe)) + (##cdr _e44274453_)))) + (if (gx#stx-pair? _tl44254460_) + (let ((_e44304463_ + (gx#syntax-e _tl44254460_))) + (let ((_hd44294467_ + (let () (declare (not safe)) - (cons __tmp6732 __tmp6663))) - _hd43484386_ - _hd43454376_) - (_g43374355_ _g43384359_)))) - (_g43374355_ _g43384359_)))) - (_g43374355_ _g43384359_)))) - (_g43374355_ _g43384359_))))) - (_g43364410_ _$stx4333_)))) - (define |[:0:]#defremove1| - (lambda (_$stx4414_) - (let* ((_g44184436_ - (lambda (_g44194432_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g44194432_))) - (_g44174491_ - (lambda (_g44194440_) - (if (gx#stx-pair? _g44194440_) - (let ((_e44244443_ (gx#syntax-e _g44194440_))) - (let ((_hd44234447_ - (let () (declare (not safe)) (##car _e44244443_))) - (_tl44224450_ - (let () - (declare (not safe)) - (##cdr _e44244443_)))) - (if (gx#stx-pair? _tl44224450_) - (let ((_e44274453_ (gx#syntax-e _tl44224450_))) - (let ((_hd44264457_ - (let () - (declare (not safe)) - (##car _e44274453_))) - (_tl44254460_ - (let () - (declare (not safe)) - (##cdr _e44274453_)))) - (if (gx#stx-pair? _tl44254460_) - (let ((_e44304463_ - (gx#syntax-e _tl44254460_))) - (let ((_hd44294467_ - (let () - (declare (not safe)) - (##car _e44304463_))) - (_tl44284470_ - (let () - (declare (not safe)) - (##cdr _e44304463_)))) - (if (gx#stx-null? _tl44284470_) - ((lambda (_L4473_ _L4475_) - (let ((__tmp6803 - (gx#datum->syntax - '#f - 'def)) - (__tmp6733 - (let ((__tmp6798 - (let ((__tmp6799 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp6802 (gx#datum->syntax '#f 'el)) - (__tmp6800 - (let ((__tmp6801 - (gx#datum->syntax '#f 'lst))) - (declare (not safe)) - (cons __tmp6801 '())))) - (declare (not safe)) - (cons __tmp6802 __tmp6800)))) - (declare (not safe)) - (cons _L4475_ __tmp6799))) - (__tmp6734 - (let ((__tmp6735 - (let ((__tmp6797 (gx#datum->syntax '#f 'let)) - (__tmp6736 - (let ((__tmp6796 (gx#datum->syntax '#f 'lp)) - (__tmp6737 - (let ((__tmp6785 - (let ((__tmp6792 - (let ((__tmp6795 - (gx#datum->syntax - '#f - 'rest)) - (__tmp6793 - (let ((__tmp6794 + (##car _e44304463_))) + (_tl44284470_ + (let () + (declare (not safe)) + (##cdr _e44304463_)))) + (if (gx#stx-null? _tl44284470_) + ((lambda (_L4473_ _L4475_) + (let ((__tmp8506 + (gx#datum->syntax + '#f + 'def)) + (__tmp8436 + (let ((__tmp8501 + (let ((__tmp8502 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'lst))) - (declare (not safe)) - (cons __tmp6794 '())))) - (declare (not safe)) - (cons __tmp6795 __tmp6793))) - (__tmp6786 - (let ((__tmp6787 - (let ((__tmp6791 (gx#datum->syntax '#f 'r)) - (__tmp6788 - (let ((__tmp6789 - (let ((__tmp6790 - (gx#datum->syntax '#f '@list))) + (let ((__tmp8505 (gx#datum->syntax '#f 'el)) + (__tmp8503 + (let ((__tmp8504 + (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp6790 '())))) + (cons __tmp8504 '())))) (declare (not safe)) - (cons __tmp6789 '())))) + (cons __tmp8505 __tmp8503)))) (declare (not safe)) - (cons __tmp6791 __tmp6788)))) - (declare (not safe)) - (cons __tmp6787 '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp6792 __tmp6786))) - (__tmp6738 - (let ((__tmp6739 - (let ((__tmp6784 - (gx#datum->syntax - '#f - 'match)) - (__tmp6740 - (let ((__tmp6783 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'rest)) - (__tmp6741 - (let ((__tmp6747 - (let ((__tmp6778 - (let ((__tmp6782 - (gx#datum->syntax - '#f - '@list)) - (__tmp6779 - (let ((__tmp6781 - (gx#datum->syntax - '#f - 'hd)) - (__tmp6780 - (gx#datum->syntax - '#f - 'rest))) - (declare (not safe)) - (cons __tmp6781 - __tmp6780)))) - (declare (not safe)) - (cons __tmp6782 __tmp6779))) - (__tmp6748 - (let ((__tmp6749 - (let ((__tmp6777 - (gx#datum->syntax - '#f - 'if)) - (__tmp6750 - (let ((__tmp6772 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp6773 - (let ((__tmp6776 (gx#datum->syntax '#f 'el)) - (__tmp6774 - (let ((__tmp6775 - (gx#datum->syntax '#f 'hd))) + (cons _L4475_ __tmp8502))) + (__tmp8437 + (let ((__tmp8438 + (let ((__tmp8500 (gx#datum->syntax '#f 'let)) + (__tmp8439 + (let ((__tmp8499 + (gx#datum->syntax '#f 'lp)) + (__tmp8440 + (let ((__tmp8488 + (let ((__tmp8495 + (let ((__tmp8498 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'rest)) + (__tmp8496 + (let ((__tmp8497 (gx#datum->syntax '#f 'lst))) + (declare (not safe)) + (cons __tmp8497 '())))) + (declare (not safe)) + (cons __tmp8498 __tmp8496))) + (__tmp8489 + (let ((__tmp8490 + (let ((__tmp8494 (gx#datum->syntax '#f 'r)) + (__tmp8491 + (let ((__tmp8492 + (let ((__tmp8493 + (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp6775 '())))) + (cons __tmp8493 '())))) (declare (not safe)) - (cons __tmp6776 __tmp6774)))) + (cons __tmp8492 '())))) (declare (not safe)) - (cons _L4473_ __tmp6773))) - (__tmp6751 - (let ((__tmp6764 - (let ((__tmp6771 - (gx#datum->syntax '#f 'foldl1)) - (__tmp6765 - (let ((__tmp6770 - (gx#datum->syntax '#f 'cons)) - (__tmp6766 - (let ((__tmp6769 + (cons __tmp8494 __tmp8491)))) + (declare (not safe)) + (cons __tmp8490 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8495 + __tmp8489))) + (__tmp8441 + (let ((__tmp8442 + (let ((__tmp8487 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'match)) + (__tmp8443 + (let ((__tmp8486 (gx#datum->syntax '#f 'rest)) + (__tmp8444 + (let ((__tmp8450 + (let ((__tmp8481 + (let ((__tmp8485 (gx#datum->syntax '#f - 'rest)) - (__tmp6767 - (let ((__tmp6768 + '@list)) + (__tmp8482 + (let ((__tmp8484 (gx#datum->syntax '#f - 'r))) + 'hd)) + (__tmp8483 + (gx#datum->syntax + '#f + 'rest))) (declare (not safe)) - (cons __tmp6768 '())))) + (cons __tmp8484 + __tmp8483)))) (declare (not safe)) - (cons __tmp6769 __tmp6767)))) - (declare (not safe)) - (cons __tmp6770 __tmp6766)))) - (declare (not safe)) - (cons __tmp6771 __tmp6765))) - (__tmp6752 - (let ((__tmp6753 - (let ((__tmp6763 - (gx#datum->syntax '#f 'lp)) - (__tmp6754 - (let ((__tmp6762 - (gx#datum->syntax - '#f - 'rest)) - (__tmp6755 - (let ((__tmp6756 - (let ((__tmp6761 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'cons)) - (__tmp6757 - (let ((__tmp6760 (gx#datum->syntax '#f 'hd)) - (__tmp6758 - (let ((__tmp6759 (gx#datum->syntax '#f 'r))) + (cons __tmp8485 __tmp8482))) + (__tmp8451 + (let ((__tmp8452 + (let ((__tmp8480 + (gx#datum->syntax + '#f + 'if)) + (__tmp8453 + (let ((__tmp8475 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp8476 + (let ((__tmp8479 (gx#datum->syntax '#f 'el)) + (__tmp8477 + (let ((__tmp8478 + (gx#datum->syntax '#f 'hd))) + (declare (not safe)) + (cons __tmp8478 '())))) (declare (not safe)) - (cons __tmp6759 '())))) + (cons __tmp8479 __tmp8477)))) (declare (not safe)) - (cons __tmp6760 __tmp6758)))) + (cons _L4473_ __tmp8476))) + (__tmp8454 + (let ((__tmp8467 + (let ((__tmp8474 + (gx#datum->syntax '#f 'foldl1)) + (__tmp8468 + (let ((__tmp8473 + (gx#datum->syntax '#f 'cons)) + (__tmp8469 + (let ((__tmp8472 + (gx#datum->syntax + '#f + 'rest)) + (__tmp8470 + (let ((__tmp8471 + (gx#datum->syntax + '#f + 'r))) + (declare (not safe)) + (cons __tmp8471 + '())))) + (declare (not safe)) + (cons __tmp8472 __tmp8470)))) + (declare (not safe)) + (cons __tmp8473 __tmp8469)))) + (declare (not safe)) + (cons __tmp8474 __tmp8468))) + (__tmp8455 + (let ((__tmp8456 + (let ((__tmp8466 + (gx#datum->syntax '#f 'lp)) + (__tmp8457 + (let ((__tmp8465 + (gx#datum->syntax + '#f + 'rest)) + (__tmp8458 + (let ((__tmp8459 + (let ((__tmp8464 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'cons)) + (__tmp8460 + (let ((__tmp8463 (gx#datum->syntax '#f 'hd)) + (__tmp8461 + (let ((__tmp8462 + (gx#datum->syntax '#f 'r))) + (declare (not safe)) + (cons __tmp8462 '())))) + (declare (not safe)) + (cons __tmp8463 __tmp8461)))) + (declare (not safe)) + (cons __tmp8464 __tmp8460)))) + (declare (not safe)) + (cons __tmp8459 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8465 __tmp8458)))) + (declare (not safe)) + (cons __tmp8466 __tmp8457)))) + (declare (not safe)) + (cons __tmp8456 '())))) + (declare (not safe)) + (cons __tmp8467 __tmp8455)))) (declare (not safe)) - (cons __tmp6761 __tmp6757)))) + (cons __tmp8475 __tmp8454)))) (declare (not safe)) - (cons __tmp6756 '())))) + (cons __tmp8480 __tmp8453)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp6762 __tmp6755)))) + (cons __tmp8452 '())))) (declare (not safe)) - (cons __tmp6763 __tmp6754)))) + (cons __tmp8481 __tmp8451))) + (__tmp8445 + (let ((__tmp8446 + (let ((__tmp8449 + (gx#datum->syntax + '#f + 'else)) + (__tmp8447 + (let ((__tmp8448 + (gx#datum->syntax + '#f + 'lst))) + (declare (not safe)) + (cons __tmp8448 '())))) + (declare (not safe)) + (cons __tmp8449 __tmp8447)))) + (declare (not safe)) + (cons __tmp8446 '())))) (declare (not safe)) - (cons __tmp6753 '())))) + (cons __tmp8450 __tmp8445)))) (declare (not safe)) - (cons __tmp6764 __tmp6752)))) + (cons __tmp8486 __tmp8444)))) (declare (not safe)) - (cons __tmp6772 __tmp6751)))) + (cons __tmp8487 __tmp8443)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp6777 - __tmp6750)))) + (cons __tmp8442 '())))) (declare (not safe)) - (cons __tmp6749 '())))) + (cons __tmp8488 __tmp8441)))) (declare (not safe)) - (cons __tmp6778 __tmp6748))) - (__tmp6742 - (let ((__tmp6743 - (let ((__tmp6746 - (gx#datum->syntax - '#f - 'else)) - (__tmp6744 - (let ((__tmp6745 - (gx#datum->syntax - '#f - 'lst))) - (declare (not safe)) - (cons __tmp6745 '())))) - (declare (not safe)) - (cons __tmp6746 __tmp6744)))) - (declare (not safe)) - (cons __tmp6743 '())))) + (cons __tmp8499 __tmp8440)))) (declare (not safe)) - (cons __tmp6747 __tmp6742)))) + (cons __tmp8500 __tmp8439)))) (declare (not safe)) - (cons __tmp6783 __tmp6741)))) + (cons __tmp8438 '())))) (declare (not safe)) - (cons __tmp6784 __tmp6740)))) + (cons __tmp8501 __tmp8437)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp6739 '())))) + (cons __tmp8506 __tmp8436))) + _hd44294467_ + _hd44264457_) + (_g44184436_ _g44194440_)))) + (_g44184436_ _g44194440_)))) + (_g44184436_ _g44194440_)))) + (_g44184436_ _g44194440_))))) + (_g44174491_ _$stx4414_)))) + (define |[:0:]#DBG| + (lambda (_$stx4495_) + (let* ((_g44994510_ + (lambda (_g45004506_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g45004506_))) + (_g44984539_ + (lambda (_g45004514_) + (if (gx#stx-pair? _g45004514_) + (let ((_e45044517_ (gx#syntax-e _g45004514_))) + (let ((_hd45034521_ + (let () + (declare (not safe)) + (##car _e45044517_))) + (_tl45024524_ + (let () + (declare (not safe)) + (##cdr _e45044517_)))) + ((lambda (_L4527_) + (let ((__tmp8508 (gx#datum->syntax '#f 'DBG/1)) + (__tmp8507 + (let () + (declare (not safe)) + (cons '1 _L4527_)))) + (declare (not safe)) + (cons __tmp8508 __tmp8507))) + _tl45024524_))) + (_g44994510_ _g45004514_))))) + (_g44984539_ _$stx4495_)))) + (define |[:0:]#DBG/1| + (lambda (_$stx4543_) + (let* ((___stx78327833_ _$stx4543_) + (_g45544768_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + ___stx78327833_)))) + (let ((___kont78357836_ + (lambda (_L5621_ _L5623_ _L5624_ _L5625_ _L5626_) + (let ((__tmp8509 + (let ((__tmp8510 + (let ((__tmp8511 + (let ((__tmp8515 + (let ((__tmp8516 + (lambda (_g56565659_ + _g56575662_) + (let () + (declare (not safe)) + (cons _g56565659_ + _g56575662_))))) + (declare (not safe)) + (foldr1 __tmp8516 + '() + _L5624_))) + (__tmp8512 + (let ((__tmp8513 + (let ((__tmp8514 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _L5621_ '())))) + (declare (not safe)) + (cons _L5623_ __tmp8514)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L5625_ __tmp8513)))) + (declare (not safe)) + (cons __tmp8515 __tmp8512)))) + (declare (not safe)) + (cons '() __tmp8511)))) + (declare (not safe)) + (cons '2 __tmp8510)))) + (declare (not safe)) + (cons _L5626_ __tmp8509)))) + (___kont78397840_ + (lambda (_L5474_ _L5476_ _L5477_ _L5478_) + (let ((__tmp8517 + (let ((__tmp8518 + (let ((__tmp8519 + (let ((__tmp8523 + (let ((__tmp8524 + (lambda (_g55015504_ + _g55025507_) + (let () + (declare (not safe)) + (cons _g55015504_ + _g55025507_))))) + (declare (not safe)) + (foldr1 __tmp8524 + '() + _L5476_))) + (__tmp8520 + (let ((__tmp8521 + (let ((__tmp8522 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _L5474_ '())))) + (declare (not safe)) + (cons _L5474_ __tmp8522)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L5477_ __tmp8521)))) + (declare (not safe)) + (cons __tmp8523 __tmp8520)))) + (declare (not safe)) + (cons '() __tmp8519)))) + (declare (not safe)) + (cons '2 __tmp8518)))) + (declare (not safe)) + (cons _L5478_ __tmp8517)))) + (___kont78437844_ + (lambda (_L5377_) + (let ((__tmp8536 (gx#datum->syntax '#f 'DBG-helper)) + (__tmp8525 + (let ((__tmp8526 + (let ((__tmp8533 + (let ((__tmp8535 + (gx#datum->syntax '#f 'quote)) + (__tmp8534 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons __tmp8535 __tmp8534))) + (__tmp8527 + (let ((__tmp8530 + (let ((__tmp8532 + (gx#datum->syntax + '#f + 'quote)) + (__tmp8531 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons __tmp8532 __tmp8531))) + (__tmp8528 + (let ((__tmp8529 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons '#f __tmp8529)))) + (declare (not safe)) + (cons __tmp8530 __tmp8528)))) + (declare (not safe)) + (cons __tmp8533 __tmp8527)))) + (declare (not safe)) + (cons _L5377_ __tmp8526)))) + (declare (not safe)) + (cons __tmp8536 __tmp8525)))) + (___kont78457846_ + (lambda (_L5300_ _L5302_ _L5303_ _L5304_ _L5305_ _L5306_) + (let ((__tmp8537 + (let ((__tmp8538 + (let ((__tmp8540 + (let ((__tmp8541 + (let ((__tmp8542 + (let () + (declare (not safe)) + (cons _L5303_ '())))) + (declare (not safe)) + (cons _L5304_ __tmp8542)))) + (declare (not safe)) + (cons __tmp8541 _L5305_))) + (__tmp8539 + (let () + (declare (not safe)) + (cons _L5302_ _L5300_)))) + (declare (not safe)) + (cons __tmp8540 __tmp8539)))) + (declare (not safe)) + (cons '2 __tmp8538)))) + (declare (not safe)) + (cons _L5306_ __tmp8537)))) + (___kont78477848_ + (lambda (_L5181_ _L5183_ _L5184_ _L5185_ _L5186_) + (let ((__tmp8543 + (let ((__tmp8544 + (let ((__tmp8546 + (let ((__tmp8547 + (let ((__tmp8548 + (let () + (declare (not safe)) + (cons _L5184_ '())))) + (declare (not safe)) + (cons _L5184_ __tmp8548)))) + (declare (not safe)) + (cons __tmp8547 _L5185_))) + (__tmp8545 + (let () + (declare (not safe)) + (cons _L5183_ _L5181_)))) + (declare (not safe)) + (cons __tmp8546 __tmp8545)))) + (declare (not safe)) + (cons '2 __tmp8544)))) + (declare (not safe)) + (cons _L5186_ __tmp8543)))) + (___kont78497850_ + (lambda (_L5098_ _L5100_ _L5101_) + (let ((__tmp8549 + (let ((__tmp8550 + (let ((__tmp8551 + (let () + (declare (not safe)) + (cons _L5100_ _L5098_)))) + (declare (not safe)) + (cons '() __tmp8551)))) + (declare (not safe)) + (cons '3 __tmp8550)))) + (declare (not safe)) + (cons _L5101_ __tmp8549)))) + (___kont78517852_ + (lambda (_L5019_ _L5021_ _L5022_ _L5023_ _L5024_) + (let ((__tmp8552 + (let ((__tmp8553 + (let ((__tmp8555 + (let () + (declare (not safe)) + (cons _L5022_ _L5023_))) + (__tmp8554 + (let () + (declare (not safe)) + (cons _L5021_ _L5019_)))) + (declare (not safe)) + (cons __tmp8555 __tmp8554)))) + (declare (not safe)) + (cons '3 __tmp8553)))) + (declare (not safe)) + (cons _L5024_ __tmp8552)))) + (___kont78537854_ + (lambda (_L4903_ _L4905_ _L4906_ _L4907_ _L4908_ _L4909_) + (let ((__tmp8603 (gx#datum->syntax '#f 'let)) + (__tmp8556 + (let ((__tmp8591 + (let ((__tmp8600 + (let ((__tmp8602 + (gx#datum->syntax '#f 'tagval)) + (__tmp8601 + (let () + (declare (not safe)) + (cons _L4906_ '())))) + (declare (not safe)) + (cons __tmp8602 __tmp8601))) + (__tmp8592 + (let ((__tmp8593 + (let ((__tmp8599 + (gx#datum->syntax + '#f + 'thunk)) + (__tmp8594 + (let ((__tmp8595 + (let ((__tmp8598 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'lambda)) + (__tmp8596 + (let ((__tmp8597 + (let () + (declare (not safe)) + (cons _L4903_ '())))) + (declare (not safe)) + (cons '() __tmp8597)))) + (declare (not safe)) + (cons __tmp8598 __tmp8596)))) + (declare (not safe)) + (cons __tmp8595 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8599 __tmp8594)))) + (declare (not safe)) + (cons __tmp8593 '())))) + (declare (not safe)) + (cons __tmp8600 __tmp8592))) + (__tmp8557 + (let ((__tmp8558 + (let ((__tmp8590 + (gx#datum->syntax '#f 'if)) + (__tmp8559 + (let ((__tmp8589 + (gx#datum->syntax + '#f + 'tagval)) + (__tmp8560 + (let ((__tmp8564 + (let ((__tmp8588 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'DBG-helper)) + (__tmp8565 + (let ((__tmp8587 (gx#datum->syntax '#f 'tagval)) + (__tmp8566 + (let ((__tmp8582 + (let ((__tmp8586 + (gx#datum->syntax '#f 'quote)) + (__tmp8583 + (let ((__tmp8584 + (let ((__tmp8585 + (lambda (_g49434946_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g49444949_) + (let () + (declare (not safe)) + (cons _g49434946_ _g49444949_))))) + (declare (not safe)) + (foldr1 __tmp8585 '() _L4908_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8584 '())))) (declare (not safe)) - (cons __tmp6785 __tmp6738)))) + (cons __tmp8586 __tmp8583))) + (__tmp8567 + (let ((__tmp8574 + (let ((__tmp8581 + (gx#datum->syntax + '#f + 'list)) + (__tmp8575 + (let ((__tmp8576 + (lambda (_g49414952_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g49424955_) + (let ((__tmp8577 + (let ((__tmp8580 + (gx#datum->syntax '#f 'lambda)) + (__tmp8578 + (let ((__tmp8579 + (let () + (declare (not safe)) + (cons _g49414952_ '())))) + (declare (not safe)) + (cons '() __tmp8579)))) + (declare (not safe)) + (cons __tmp8580 __tmp8578)))) + (declare (not safe)) + (cons __tmp8577 _g49424955_))))) + (declare (not safe)) + (foldr1 __tmp8576 '() _L4907_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8581 __tmp8575))) + (__tmp8568 + (let ((__tmp8571 + (let ((__tmp8573 + (gx#datum->syntax + '#f + 'quote)) + (__tmp8572 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _L4905_ '())))) + (declare (not safe)) + (cons __tmp8573 __tmp8572))) + (__tmp8569 + (let ((__tmp8570 (gx#datum->syntax '#f 'thunk))) + (declare (not safe)) + (cons __tmp8570 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8571 + __tmp8569)))) + (declare (not safe)) + (cons __tmp8574 __tmp8568)))) (declare (not safe)) - (cons __tmp6796 __tmp6737)))) + (cons __tmp8582 __tmp8567)))) + (declare (not safe)) + (cons __tmp8587 __tmp8566)))) + (declare (not safe)) + (cons __tmp8588 __tmp8565))) + (__tmp8561 + (let ((__tmp8562 + (let ((__tmp8563 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp6797 __tmp6736)))) + (cons __tmp8563 '())))) (declare (not safe)) - (cons __tmp6735 '())))) + (cons __tmp8562 '())))) (declare (not safe)) - (cons __tmp6798 __tmp6734)))) + (cons __tmp8564 __tmp8561)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp6803 __tmp6733))) - _hd44294467_ - _hd44264457_) - (_g44184436_ _g44194440_)))) - (_g44184436_ _g44194440_)))) - (_g44184436_ _g44194440_)))) - (_g44184436_ _g44194440_))))) - (_g44174491_ _$stx4414_))))) + (cons __tmp8589 __tmp8560)))) + (declare (not safe)) + (cons __tmp8590 __tmp8559)))) + (declare (not safe)) + (cons __tmp8558 '())))) + (declare (not safe)) + (cons __tmp8591 __tmp8557)))) + (declare (not safe)) + (cons __tmp8603 __tmp8556))))) + (let* ((___match81838184_ + (lambda (_e47264775_ + _hd47254779_ + _tl47244782_ + _e47294785_ + _hd47284789_ + _tl47274792_ + _e47304795_ + _e47334799_ + _hd47324803_ + _tl47314806_ + ___splice78557856_ + _target47344809_ + _tl47364812_) + (letrec ((_loop47374815_ + (lambda (_hd47354819_ + _exprs47414822_ + _names47424824_) + (if (gx#stx-pair? _hd47354819_) + (let ((_e47384827_ + (gx#syntax-e _hd47354819_))) + (let ((_lp-tl47404834_ + (let () + (declare (not safe)) + (##cdr _e47384827_))) + (_lp-hd47394831_ + (let () + (declare (not safe)) + (##car _e47384827_)))) + (if (gx#stx-pair? _lp-hd47394831_) + (let ((_e47474837_ + (gx#syntax-e + _lp-hd47394831_))) + (let ((_tl47454844_ + (let () + (declare (not safe)) + (##cdr _e47474837_))) + (_hd47464841_ + (let () + (declare (not safe)) + (##car _e47474837_)))) + (if (gx#stx-pair? + _tl47454844_) + (let ((_e47504847_ + (gx#syntax-e + _tl47454844_))) + (let ((_tl47484854_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##cdr _e47504847_))) + (_hd47494851_ + (let () (declare (not safe)) (##car _e47504847_)))) + (if (gx#stx-null? _tl47484854_) + (_loop47374815_ + _lp-tl47404834_ + (let () + (declare (not safe)) + (cons _hd47494851_ _exprs47414822_)) + (let () + (declare (not safe)) + (cons _hd47464841_ _names47424824_))) + (let () (declare (not safe)) (_g45544768_))))) + (let () (declare (not safe)) (_g45544768_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g45544768_))))) + (let ((_names47444860_ + (reverse _names47424824_)) + (_exprs47434857_ + (reverse _exprs47414822_))) + (if (gx#stx-pair? _tl47314806_) + (let ((_e47534863_ + (gx#syntax-e _tl47314806_))) + (let ((_tl47514870_ + (let () + (declare (not safe)) + (##cdr _e47534863_))) + (_hd47524867_ + (let () + (declare (not safe)) + (##car _e47534863_)))) + (if (gx#stx-null? _hd47524867_) + (if (gx#stx-pair? + _tl47514870_) + (let ((_e47564873_ + (gx#syntax-e + _tl47514870_))) + (let ((_tl47544880_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e47564873_))) + (_hd47554877_ + (let () (declare (not safe)) (##car _e47564873_)))) + (if (gx#stx-pair? _tl47544880_) + (let ((_e47594883_ (gx#syntax-e _tl47544880_))) + (let ((_tl47574890_ + (let () + (declare (not safe)) + (##cdr _e47594883_))) + (_hd47584887_ + (let () + (declare (not safe)) + (##car _e47594883_)))) + (if (gx#stx-pair? _tl47574890_) + (let ((_e47624893_ (gx#syntax-e _tl47574890_))) + (let ((_tl47604900_ + (let () + (declare (not safe)) + (##cdr _e47624893_))) + (_hd47614897_ + (let () + (declare (not safe)) + (##car _e47624893_)))) + (if (gx#stx-null? _tl47604900_) + (___kont78537854_ + _hd47614897_ + _hd47584887_ + _hd47554877_ + _exprs47434857_ + _names47444860_ + _hd47254779_) + (let () + (declare (not safe)) + (_g45544768_))))) + (let () (declare (not safe)) (_g45544768_))))) + (let () (declare (not safe)) (_g45544768_))))) + (let () (declare (not safe)) (_g45544768_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g45544768_))))) + (let () + (declare (not safe)) + (_g45544768_)))))))) + (_loop47374815_ _target47344809_ '() '())))) + (___match79617962_ + (lambda (_e45985400_ + _hd45975404_ + _tl45965407_ + _e46015410_ + _hd46005414_ + _tl45995417_ + _e46025420_ + _e46055424_ + _hd46045428_ + _tl46035431_ + ___splice78417842_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (letrec ((_loop46095450_ + (lambda (_hd46075454_ _exprs46135457_) + (if (gx#stx-pair? _hd46075454_) + (let ((_e46105460_ + (gx#syntax-e _hd46075454_))) + (let ((_lp-tl46125467_ + (let () + (declare (not safe)) + (##cdr _e46105460_))) + (_lp-hd46115464_ + (let () + (declare (not safe)) + (##car _e46105460_)))) + (_loop46095450_ + _lp-tl46125467_ + (let () + (declare (not safe)) + (cons _lp-hd46115464_ + _exprs46135457_))))) + (let ((_exprs46145470_ + (reverse _exprs46135457_))) + (___kont78397840_ + _hd46165444_ + _exprs46145470_ + _hd46045428_ + _hd45975404_)))))) + (_loop46095450_ _target46065434_ '())))) + (___match79217922_ + (lambda (_e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice78377838_ + _target45715551_ + _tl45735554_ + _e45825557_ + _hd45815561_ + _tl45805564_ + _e45855567_ + _hd45845571_ + _tl45835574_ + _e45885577_ + _hd45875581_ + _tl45865584_ + _e45915587_ + _hd45905591_ + _tl45895594_) + (letrec ((_loop45745597_ + (lambda (_hd45725601_ _exprs45785604_) + (if (gx#stx-pair? _hd45725601_) + (let ((_e45755607_ + (gx#syntax-e _hd45725601_))) + (let ((_lp-tl45775614_ + (let () + (declare (not safe)) + (##cdr _e45755607_))) + (_lp-hd45765611_ + (let () + (declare (not safe)) + (##car _e45755607_)))) + (_loop45745597_ + _lp-tl45775614_ + (let () + (declare (not safe)) + (cons _lp-hd45765611_ + _exprs45785604_))))) + (let ((_exprs45795617_ + (reverse _exprs45785604_))) + (___kont78357836_ + _hd45905591_ + _hd45875581_ + _exprs45795617_ + _hd45695545_ + _hd45625521_)))))) + (_loop45745597_ _target45715551_ '()))))) + (if (gx#stx-pair? ___stx78327833_) + (let ((_e45635517_ (gx#syntax-e ___stx78327833_))) + (let ((_tl45615524_ + (let () (declare (not safe)) (##cdr _e45635517_))) + (_hd45625521_ + (let () (declare (not safe)) (##car _e45635517_)))) + (if (gx#stx-pair? _tl45615524_) + (let ((_e45665527_ (gx#syntax-e _tl45615524_))) + (let ((_tl45645534_ + (let () + (declare (not safe)) + (##cdr _e45665527_))) + (_hd45655531_ + (let () + (declare (not safe)) + (##car _e45665527_)))) + (if (gx#stx-datum? _hd45655531_) + (let ((_e45675537_ (gx#stx-e _hd45655531_))) + (if (let () + (declare (not safe)) + (equal? _e45675537_ '1)) + (if (gx#stx-pair? _tl45645534_) + (let ((_e45705541_ + (gx#syntax-e _tl45645534_))) + (let ((_tl45685548_ + (let () + (declare (not safe)) + (##cdr _e45705541_))) + (_hd45695545_ + (let () + (declare (not safe)) + (##car _e45705541_)))) + (if (gx#stx-pair/null? + _tl45685548_) + (if (fx>= (gx#stx-length + _tl45685548_) + '2) + (let ((___splice78377838_ + (gx#syntax-split-splice + _tl45685548_ + '2))) + (let ((_tl45735554_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (##vector-ref ___splice78377838_ '1))) + (_target45715551_ + (let () + (declare (not safe)) + (##vector-ref ___splice78377838_ '0)))) + (if (gx#stx-pair? _tl45735554_) + (let ((_e45825557_ (gx#syntax-e _tl45735554_))) + (let ((_tl45805564_ + (let () + (declare (not safe)) + (##cdr _e45825557_))) + (_hd45815561_ + (let () + (declare (not safe)) + (##car _e45825557_)))) + (if (gx#stx-pair? _hd45815561_) + (let ((_e45855567_ (gx#syntax-e _hd45815561_))) + (let ((_tl45835574_ + (let () + (declare (not safe)) + (##cdr _e45855567_))) + (_hd45845571_ + (let () + (declare (not safe)) + (##car _e45855567_)))) + (if (gx#identifier? _hd45845571_) + (if (gx#free-identifier=? + |[1]#_g8605_| + _hd45845571_) + (if (gx#stx-pair? _tl45835574_) + (let ((_e45885577_ + (gx#syntax-e + _tl45835574_))) + (let ((_tl45865584_ + (let () + (declare (not safe)) + (##cdr _e45885577_))) + (_hd45875581_ + (let () + (declare (not safe)) + (##car _e45885577_)))) + (if (gx#stx-null? + _tl45865584_) + (if (gx#stx-pair? + _tl45805564_) + (let ((_e45915587_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _tl45805564_))) + (let ((_tl45895594_ + (let () (declare (not safe)) (##cdr _e45915587_))) + (_hd45905591_ + (let () + (declare (not safe)) + (##car _e45915587_)))) + (if (gx#stx-null? _tl45895594_) + (___match79217922_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice78377838_ + _target45715551_ + _tl45735554_ + _e45825557_ + _hd45815561_ + _tl45805564_ + _e45855567_ + _hd45845571_ + _tl45835574_ + _e45885577_ + _hd45875581_ + _tl45865584_ + _e45915587_ + _hd45905591_ + _tl45895594_) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice78417842_ + (gx#syntax-split-splice + _tl45685548_ + '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref + ___splice78417842_ + '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref + ___splice78417842_ + '0)))) + (if (gx#stx-pair? _tl46085437_) + (let ((_e46175440_ + (gx#syntax-e _tl46085437_))) + (let ((_tl46155447_ + (let () + (declare (not safe)) + (##cdr _e46175440_))) + (_hd46165444_ + (let () + (declare (not safe)) + (##car _e46175440_)))) + (if (gx#stx-null? _tl46155447_) + (___match79617962_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice78417842_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ + _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))))) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice78417842_ + (gx#syntax-split-splice _tl45685548_ '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref ___splice78417842_ '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref ___splice78417842_ '0)))) + (if (gx#stx-pair? _tl46085437_) + (let ((_e46175440_ (gx#syntax-e _tl46085437_))) + (let ((_tl46155447_ + (let () + (declare (not safe)) + (##cdr _e46175440_))) + (_hd46165444_ + (let () + (declare (not safe)) + (##car _e46175440_)))) + (if (gx#stx-null? _tl46155447_) + (___match79617962_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice78417842_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_))))) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice78417842_ + (gx#syntax-split-splice _tl45685548_ '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref ___splice78417842_ '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref ___splice78417842_ '0)))) + (if (gx#stx-pair? _tl46085437_) + (let ((_e46175440_ (gx#syntax-e _tl46085437_))) + (let ((_tl46155447_ + (let () + (declare (not safe)) + (##cdr _e46175440_))) + (_hd46165444_ + (let () + (declare (not safe)) + (##car _e46175440_)))) + (if (gx#stx-null? _tl46155447_) + (___match79617962_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice78417842_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (fx>= (gx#stx-length + _tl45685548_) + '1) + (let ((___splice78417842_ + (gx#syntax-split-splice + _tl45685548_ + '1))) + (let ((_tl46085437_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##vector-ref ___splice78417842_ '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref ___splice78417842_ '0)))) + (if (gx#stx-pair? _tl46085437_) + (let ((_e46175440_ (gx#syntax-e _tl46085437_))) + (let ((_tl46155447_ + (let () (declare (not safe)) (##cdr _e46175440_))) + (_hd46165444_ + (let () + (declare (not safe)) + (##car _e46175440_)))) + (if (gx#stx-null? _tl46155447_) + (___match79617962_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice78417842_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? + _tl45685548_) + (___kont78437844_ + _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))) + (if (fx>= (gx#stx-length + _tl45685548_) + '1) + (let ((___splice78417842_ + (gx#syntax-split-splice + _tl45685548_ + '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref + ___splice78417842_ + '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref + ___splice78417842_ + '0)))) + (if (gx#stx-pair? + _tl46085437_) + (let ((_e46175440_ + (gx#syntax-e + _tl46085437_))) + (let ((_tl46155447_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e46175440_))) + (_hd46165444_ + (let () (declare (not safe)) (##car _e46175440_)))) + (if (gx#stx-null? _tl46155447_) + (___match79617962_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice78417842_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ + _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))) + (if (fx>= (gx#stx-length _tl45685548_) + '1) + (let ((___splice78417842_ + (gx#syntax-split-splice + _tl45685548_ + '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref + ___splice78417842_ + '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref + ___splice78417842_ + '0)))) + (if (gx#stx-pair? _tl46085437_) + (let ((_e46175440_ + (gx#syntax-e + _tl46085437_))) + (let ((_tl46155447_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e46175440_))) + (_hd46165444_ + (let () (declare (not safe)) (##car _e46175440_)))) + (if (gx#stx-null? _tl46155447_) + (___match79617962_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice78417842_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? + _tl45685548_) + (___kont78437844_ + _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))))) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice78417842_ + (gx#syntax-split-splice + _tl45685548_ + '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref + ___splice78417842_ + '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref + ___splice78417842_ + '0)))) + (if (gx#stx-pair? _tl46085437_) + (let ((_e46175440_ + (gx#syntax-e _tl46085437_))) + (let ((_tl46155447_ + (let () + (declare (not safe)) + (##cdr _e46175440_))) + (_hd46165444_ + (let () + (declare (not safe)) + (##car _e46175440_)))) + (if (gx#stx-null? _tl46155447_) + (___match79617962_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice78417842_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? + _tl45685548_) + (___kont78437844_ + _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))))) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice78417842_ + (gx#syntax-split-splice _tl45685548_ '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref ___splice78417842_ '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref ___splice78417842_ '0)))) + (if (gx#stx-pair? _tl46085437_) + (let ((_e46175440_ + (gx#syntax-e _tl46085437_))) + (let ((_tl46155447_ + (let () + (declare (not safe)) + (##cdr _e46175440_))) + (_hd46165444_ + (let () + (declare (not safe)) + (##car _e46175440_)))) + (if (gx#stx-null? _tl46155447_) + (___match79617962_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice78417842_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))))) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice78417842_ + (gx#syntax-split-splice _tl45685548_ '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref ___splice78417842_ '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref ___splice78417842_ '0)))) + (if (gx#stx-pair? _tl46085437_) + (let ((_e46175440_ (gx#syntax-e _tl46085437_))) + (let ((_tl46155447_ + (let () + (declare (not safe)) + (##cdr _e46175440_))) + (_hd46165444_ + (let () + (declare (not safe)) + (##car _e46175440_)))) + (if (gx#stx-null? _tl46155447_) + (___match79617962_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice78417842_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont78437844_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? + _tl45685548_) + (___kont78437844_ + _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (let () + (declare (not safe)) + (_g45544768_))) + (if (let () + (declare (not safe)) + (equal? _e45675537_ '2)) + (if (gx#stx-pair? _tl45645534_) + (let ((_e46445240_ + (gx#syntax-e + _tl45645534_))) + (let ((_tl46425247_ + (let () + (declare (not safe)) + (##cdr _e46445240_))) + (_hd46435244_ + (let () + (declare (not safe)) + (##car _e46445240_)))) + (if (gx#stx-pair? + _tl46425247_) + (let ((_e46475250_ + (gx#syntax-e + _tl46425247_))) + (let ((_tl46455257_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e46475250_))) + (_hd46465254_ + (let () (declare (not safe)) (##car _e46475250_)))) + (if (gx#stx-pair? _hd46465254_) + (let ((_e46505260_ (gx#syntax-e _hd46465254_))) + (let ((_tl46485267_ + (let () + (declare (not safe)) + (##cdr _e46505260_))) + (_hd46495264_ + (let () + (declare (not safe)) + (##car _e46505260_)))) + (if (gx#stx-pair? _hd46495264_) + (let ((_e46535270_ (gx#syntax-e _hd46495264_))) + (let ((_tl46515277_ + (let () + (declare (not safe)) + (##cdr _e46535270_))) + (_hd46525274_ + (let () + (declare (not safe)) + (##car _e46535270_)))) + (if (gx#identifier? _hd46525274_) + (if (gx#free-identifier=? + |[1]#_g8604_| + _hd46525274_) + (if (gx#stx-pair? _tl46515277_) + (let ((_e46565280_ + (gx#syntax-e + _tl46515277_))) + (let ((_tl46545287_ + (let () + (declare (not safe)) + (##cdr _e46565280_))) + (_hd46555284_ + (let () + (declare (not safe)) + (##car _e46565280_)))) + (if (gx#stx-null? + _tl46545287_) + (if (gx#stx-pair? + _tl46485267_) + (let ((_e46595290_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _tl46485267_))) + (let ((_tl46575297_ + (let () (declare (not safe)) (##cdr _e46595290_))) + (_hd46585294_ + (let () + (declare (not safe)) + (##car _e46595290_)))) + (___kont78457846_ + _tl46455257_ + _tl46575297_ + _hd46585294_ + _hd46555284_ + _hd46435244_ + _hd45625521_))) + (___kont78477848_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)) + (___kont78477848_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont78477848_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)) + (___kont78477848_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)) + (___kont78477848_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)))) + (___kont78477848_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)))) + (if (gx#stx-null? _hd46465254_) + (___kont78497850_ + _tl46455257_ + _hd46435244_ + _hd45625521_) + (let () (declare (not safe)) (_g45544768_)))))) + (let () (declare (not safe)) (_g45544768_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g45544768_))) + (if (let () + (declare (not safe)) + (equal? _e45675537_ '3)) + (if (gx#stx-pair? _tl45645534_) + (let ((_e47114989_ + (gx#syntax-e + _tl45645534_))) + (let ((_tl47094996_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##cdr _e47114989_))) + (_hd47104993_ + (let () (declare (not safe)) (##car _e47114989_)))) + (if (gx#stx-pair? _tl47094996_) + (let ((_e47144999_ (gx#syntax-e _tl47094996_))) + (let ((_tl47125006_ + (let () (declare (not safe)) (##cdr _e47144999_))) + (_hd47135003_ + (let () + (declare (not safe)) + (##car _e47144999_)))) + (if (gx#stx-pair? _hd47135003_) + (let ((_e47175009_ (gx#syntax-e _hd47135003_))) + (let ((_tl47155016_ + (let () + (declare (not safe)) + (##cdr _e47175009_))) + (_hd47165013_ + (let () + (declare (not safe)) + (##car _e47175009_)))) + (___kont78517852_ + _tl47125006_ + _tl47155016_ + _hd47165013_ + _hd47104993_ + _hd45625521_))) + (if (gx#stx-pair/null? _hd47104993_) + (let ((___splice78557856_ + (gx#syntax-split-splice + _hd47104993_ + '0))) + (let ((_tl47364812_ + (let () + (declare (not safe)) + (##vector-ref + ___splice78557856_ + '1))) + (_target47344809_ + (let () + (declare (not safe)) + (##vector-ref + ___splice78557856_ + '0)))) + (if (gx#stx-null? _tl47364812_) + (___match81838184_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e47114989_ + _hd47104993_ + _tl47094996_ + ___splice78557856_ + _target47344809_ + _tl47364812_) + (let () + (declare (not safe)) + (_g45544768_))))) + (let () (declare (not safe)) (_g45544768_)))))) + (if (gx#stx-pair/null? _hd47104993_) + (let ((___splice78557856_ + (gx#syntax-split-splice _hd47104993_ '0))) + (let ((_tl47364812_ + (let () + (declare (not safe)) + (##vector-ref ___splice78557856_ '1))) + (_target47344809_ + (let () + (declare (not safe)) + (##vector-ref ___splice78557856_ '0)))) + (if (gx#stx-null? _tl47364812_) + (___match81838184_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e47114989_ + _hd47104993_ + _tl47094996_ + ___splice78557856_ + _target47344809_ + _tl47364812_) + (let () (declare (not safe)) (_g45544768_))))) + (let () (declare (not safe)) (_g45544768_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g45544768_))) + (let () + (declare (not safe)) + (_g45544768_)))))) + (let () + (declare (not safe)) + (_g45544768_))))) + (let () (declare (not safe)) (_g45544768_))))) + (let () (declare (not safe)) (_g45544768_)))))))))) diff --git a/src/bootstrap/gerbil/runtime__0.scm b/src/bootstrap/gerbil/runtime__0.scm index f1acdbb6f..8af9aca90 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 1701718632) '#!void) +(begin (define gerbil/runtime::timestamp 1706585167) '#!void) diff --git a/src/bootstrap/gerbil/runtime__rt.scm b/src/bootstrap/gerbil/runtime__rt.scm index 4b8674d4d..707191c12 100644 --- a/src/bootstrap/gerbil/runtime__rt.scm +++ b/src/bootstrap/gerbil/runtime__rt.scm @@ -5,6 +5,7 @@ (load-module "gerbil/runtime/util__rt") (load-module "gerbil/runtime/loader__rt") (load-module "gerbil/runtime/control__rt") + (load-module "gerbil/runtime/c3__rt") (load-module "gerbil/runtime/mop__rt") (load-module "gerbil/runtime/error__rt") (load-module "gerbil/runtime/thread__rt") diff --git a/src/build/build-bach.ss b/src/build/build-bach.ss index cc10d60c6..b95eafaf3 100644 --- a/src/build/build-bach.ss +++ b/src/build/build-bach.ss @@ -27,6 +27,7 @@ "gerbil/runtime/system" "gerbil/runtime/loader" "gerbil/runtime/control" + "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" "gerbil/runtime/thread" diff --git a/src/build/build-libgerbil.ss b/src/build/build-libgerbil.ss index 0b143d191..ff56ce667 100755 --- a/src/build/build-libgerbil.ss +++ b/src/build/build-libgerbil.ss @@ -37,6 +37,7 @@ "gerbil/runtime/system" "gerbil/runtime/loader" "gerbil/runtime/control" + "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" "gerbil/runtime/thread" diff --git a/src/build/build-release.ss b/src/build/build-release.ss index be916436e..3d3542b9a 100755 --- a/src/build/build-release.ss +++ b/src/build/build-release.ss @@ -6,7 +6,7 @@ (import (only-in :std/cli/getopt argument optional-argument option) (only-in :std/cli/multicall define-multicall-main define-entry-point set-default-entry-point!) - #;(only-in :std/error dump-stack-trace?) ;; Only in v0.19 + (only-in :std/error dump-stack-trace?) (only-in :std/misc/list when/list) (only-in :std/misc/path path-absolute?) (only-in :std/misc/ports read-file-string read-all-as-lines) @@ -124,5 +124,5 @@ sudo mkdir /opt/src ; sudo chown $USER /opt/src")) " -zcf " deps-tarball)] directory: "/")) (set-default-entry-point! 'build-tarballs) -#;(dump-stack-trace? #f) ;; Only in v0.19 +(dump-stack-trace? #f) (define-multicall-main) diff --git a/src/build/build1.ss b/src/build/build1.ss index 9774fdbe0..f7568fe93 100644 --- a/src/build/build1.ss +++ b/src/build/build1.ss @@ -9,6 +9,7 @@ "gerbil/runtime/system.ss" "gerbil/runtime/loader.ss" "gerbil/runtime/control.ss" + "gerbil/runtime/c3.ss" "gerbil/runtime/mop.ss" "gerbil/runtime/error.ss" "gerbil/runtime/thread.ss" diff --git a/src/gerbil/boot/gerbil-boot.scm b/src/gerbil/boot/gerbil-boot.scm index ffed640e9..932387ffb 100644 --- a/src/gerbil/boot/gerbil-boot.scm +++ b/src/gerbil/boot/gerbil-boot.scm @@ -4,6 +4,7 @@ "gerbil/runtime/system" "gerbil/runtime/loader" "gerbil/runtime/control" + "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" "gerbil/runtime/thread" diff --git a/src/gerbil/compiler/driver.ss b/src/gerbil/compiler/driver.ss index db57111db..a578523d2 100644 --- a/src/gerbil/compiler/driver.ss +++ b/src/gerbil/compiler/driver.ss @@ -64,6 +64,7 @@ namespace: gxc "gerbil/runtime/system" "gerbil/runtime/loader" "gerbil/runtime/control" + "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" "gerbil/runtime/thread" diff --git a/src/gerbil/compiler/optimize-top.ss b/src/gerbil/compiler/optimize-top.ss index eee210f78..87ae237c0 100644 --- a/src/gerbil/compiler/optimize-top.ss +++ b/src/gerbil/compiler/optimize-top.ss @@ -294,6 +294,9 @@ namespace: gxc (def (basic-expression-type-make-struct-field-unchecked-mutator stx args) (basic-expression-type-make-struct-field-mutator stx args #t)) +;; TODO: Support the new unified struct-and-class type descriptors from mop.ss +;; In particular, struct fields are now also class slots, and the same name if +;; repeated should not lead to distinct fields but to the same slot. (def (basic-expression-type-make-class-type stx args) (def (mixin-expr->list stx) (let/cc return diff --git a/src/gerbil/main.ss b/src/gerbil/main.ss index edf741ec2..d312223e1 100644 --- a/src/gerbil/main.ss +++ b/src/gerbil/main.ss @@ -19,6 +19,7 @@ package: gerbil "gerbil/runtime/system" "gerbil/runtime/loader" "gerbil/runtime/control" + "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" "gerbil/runtime/syntax" diff --git a/src/gerbil/prelude/core.ss b/src/gerbil/prelude/core.ss index 063fd1dbd..872c2c673 100644 --- a/src/gerbil/prelude/core.ss +++ b/src/gerbil/prelude/core.ss @@ -129,6 +129,7 @@ package: gerbil list-set list-set! remove1 remq remv remf pgetq pgetv pget + append-reverse append1! remove-nulls! subvector subvector->list subvector-fill! vector-copy! vector-map vector-for-each vector-copy vector-copy! vector-append @@ -159,16 +160,20 @@ package: gerbil string-split string-join string-empty? string-prefix? string->keyword keyword->string make-uninterned-keyword symbol->keyword keyword->symbol + ;; c3 linearization + c3-linearize ;; MOP type-descriptor? - struct-type? - class-type? - make-struct-type + type-id type-descriptor-precedence-all-slots type-descriptor-precedence-list type-descriptor-properties type-descriptor-constructor type-descriptor-slot-table type-descriptor-methods + type-final? type-struct? struct-type? class-type? + make-struct-type make-struct-type* make-struct-predicate make-struct-field-accessor make-struct-field-mutator make-struct-field-unchecked-accessor make-struct-field-unchecked-mutator + base-struct + class-precedence-list struct-precedence-list struct-field-ref struct-field-set! unchecked-field-ref @@ -181,13 +186,13 @@ package: gerbil make-class-slot-unchecked-mutator class-slot-ref class-slot-set! - class-slot-offset + class-slot-offset class-slot-offset* unchecked-slot-ref unchecked-slot-set! object? object-type struct-instance? class-instance? direct-instance? direct-struct-instance? direct-class-instance? - make-object + make-object make-object* struct-copy struct->list class->list make-struct-instance @@ -203,6 +208,7 @@ package: gerbil find-method next-method call-next-method struct-subtype? class-subtype? + substruct? subclass? ;; write-env style write-style ;; control @@ -217,7 +223,7 @@ package: gerbil error raise exception? error-object? error-message error-irritants error-trace - display-exception + display-exception dump-stack-trace? ;; OS exit getenv setenv current-directory create-directory create-directory* @@ -270,7 +276,9 @@ package: gerbil ;; keyword argument dispatch keyword-dispatch keyword-rest ;; gerbil specifics - gerbil-version-string gerbil-system-version-string system-version + gerbil-version-string gerbil-system-version-string system-version gerbil-system-manifest + ;; build manifest + build-manifest build-manifest/layer build-manifest/head display-build-manifest build-manifest-string ;; system type information gerbil-system system-type ;; voodoo doll @@ -628,7 +636,14 @@ package: gerbil ((_ message detail ...) (stx-string? #'message) (apply raise-syntax-error #f (stx-e #'message) stx - (syntax->list #'(detail ...))))))) + (syntax->list #'(detail ...)))))) + + (defrules defmutable () + ((_ var value) + (begin + (def var value) + (set! var var) + (void))))) (import (phi: +1 )) @@ -1653,16 +1668,12 @@ package: gerbil ((field getf setf) [off #'getf #'setf]))) - (def (field-id field) - (syntax-case field () - ((getf setf) ':) - ((field getf setf) #'field))) - - (def (struct-opt? key) - (memq (stx-e key) '(fields: id: name: plist: constructor: unchecked:))) + (def (slot-name slot-spec) + (syntax-case slot-spec () + ((slot getf setf) #'slot))) - (def (class-opt? key) - (memq (stx-e key) '(slots: id: name: plist: constructor: unchecked:))) + (def (class-opt? key) + (memq (stx-e key) '(slots: id: name: properties: constructor: unchecked:))) (def (module-type-id type-t) (cond @@ -1678,10 +1689,10 @@ package: gerbil (or (identifier? #'make) (stx-false? #'make)) (identifier? #'instance?) - (stx-plist? #'rest (if struct? struct-opt? class-opt?))) + (stx-plist? #'rest class-opt?)) - (with-syntax* (((values els) - (or (stx-getq (if struct? fields: slots:) #'rest) + (with-syntax* (((values slots) + (or (stx-getq slots: #'rest) [])) ((make-instance make-predicate make-getf make-setf @@ -1707,27 +1718,24 @@ package: gerbil (type-name (or (stx-getq name: #'rest) #'type-t)) - (type-plist - (or (stx-getq plist: #'rest) + (type-properties + (or (stx-getq properties: #'rest) #'[])) - (type-ctor + (type-constructor (stx-getq constructor: #'rest)) + ((slot ...) + (stx-map slot-name slots)) (type-rtd (if struct? - (with-syntax ((fields (stx-length els)) - ((field-id ...) - (stx-map field-id els))) + (with-syntax ((fields (stx-length slots))) #'(make-struct-type 'type-id super fields - 'type-name type-plist 'type-ctor - '(field-id ...))) - (with-syntax (((super ...) - #'super) - ((slot ...) - (stx-map stx-car els))) + 'type-name type-properties 'type-constructor + '(slot ...))) + (with-syntax (((super ...) #'super)) #'(make-class-type 'type-id [super ...] '(slot ...) - 'type-name type-plist 'type-ctor)))) + 'type-name type-properties 'type-constructor)))) (def-type (wrap #'(def type-t type-rtd))) (def-make @@ -1740,8 +1748,8 @@ package: gerbil (wrap #'(def instance? (make-predicate type-t)))) ((values attrs) (if struct? - (stx-map slotify els (iota (stx-length els))) - els)) + (stx-map slotify slots (iota (stx-length slots))) + slots)) (((def-getf def-setf) ...) (stx-map (lambda (ref) @@ -1801,8 +1809,8 @@ package: gerbil runtime-type-id runtime-type-id-set! runtime-type-super runtime-type-super-set! runtime-type-name runtime-type-name-set! - runtime-type-ctor runtime-type-ctor-set! - runtime-type-plist runtime-type-plist-set! + runtime-type-constructor runtime-type-constructor-set! + runtime-type-properties runtime-type-properties-set! runtime-struct-fields runtime-struct-fields-set! runtime-class-slots runtime-class-slots-set! expander-type-identifiers expander-type-identifiers-set! @@ -1865,24 +1873,30 @@ package: gerbil (defstruct-type runtime-rtd-exhibitor::t #f #f runtime-type-exhibitor? - fields: - ((id runtime-type-id runtime-type-id-set!) - (super runtime-type-super runtime-type-super-set!) - (name runtime-type-name runtime-type-name-set!) - (ctor runtime-type-ctor runtime-type-ctor-set!) - (plist runtime-type-plist runtime-type-plist-set!)) + slots: + ((id runtime-type-id runtime-type-id-set!) + (super runtime-type-super runtime-type-super-set!) + (name runtime-type-name runtime-type-name-set!) + (constructor runtime-type-constructor runtime-type-constructor-set!) + (properties runtime-type-properties runtime-type-properties-set!)) id: gerbil.core#runtime-rtd-exhibitor::t) + ;; TODO: remove after bootstrap + (def runtime-type-ctor runtime-type-constructor) + (def runtime-type-ctor-set! runtime-type-constructor-set!) + (def runtime-type-plist runtime-type-properties) + (def runtime-type-plist-set! runtime-type-properties-set!) + (defstruct-type runtime-struct-exhibitor::t runtime-rtd-exhibitor::t make-runtime-struct-exhibitor runtime-struct-exhibitor? - fields: + slots: ((fields runtime-struct-fields runtime-struct-fields-set!)) id: gerbil.core#runtime-struct-exhibitor::t name: struct-exhibitor) (defstruct-type runtime-class-exhibitor::t runtime-rtd-exhibitor::t make-runtime-class-exhibitor runtime-class-exhibitor? - fields: + slots: ((slots runtime-class-slots runtime-class-slots-set!)) id: gerbil.core#runtime-class-exhibitor::t name: class-exhibitor) @@ -1916,10 +1930,10 @@ package: gerbil (def (typedef-body? stx) (def (body-opt? key) (memq (stx-e key) - '(id: name: constructor: transparent: final: plist: unchecked: print: equal:))) + '(id: name: constructor: transparent: final: properties: unchecked: print: equal:))) (stx-plist? stx body-opt?)) - (def (generate-typedef stx id super-ref els body struct?) + (def (generate-typedef stx id super-ref slots body struct?) (def (wrap e-stx) (stx-wrap-source e-stx (stx-source stx))) @@ -1929,7 +1943,7 @@ package: gerbil (lambda args (apply stx-identifier id args)))) - (check-duplicate-identifiers els stx) + (check-duplicate-identifiers slots stx) (with-syntax* (((values name) (symbol->string (stx-e id))) @@ -1949,58 +1963,57 @@ package: gerbil (if struct? (and super (runtime-type-identifier super)) (map runtime-type-identifier super))) - ((attr ...) - els) + ((slot ...) + slots) ((getf ...) - (stx-map (cut make-id name "-" <>) els)) + (stx-map (cut make-id name "-" <>) slots)) ((setf ...) - (stx-map (cut make-id name "-" <> "-set!") els)) + (stx-map (cut make-id name "-" <> "-set!") slots)) ((values type-attr) (cond - ((stx-null? els) []) - (struct? [fields: #'((attr getf setf) ...)]) - (else [slots: #'((attr getf setf) ...)]))) + ((stx-null? slots) []) + (else [slots: #'((slot getf setf) ...)]))) ((values type-name) [name: (or (stx-getq name: body) id)]) ((values type-id) (or (alet (e (stx-getq id: body)) [id: e]) [])) - ((values type-ctor) + ((values type-constructor) (or (alet (e (stx-getq constructor: body)) [constructor: e]) [])) - ((values plist) - (let* ((plist - (or (stx-getq plist: body) + ((values properties) + (let* ((properties + (or (stx-getq properties: body) [])) - (plist + (properties (if (stx-e (stx-getq transparent: body)) - (cons [transparent: . #t] plist) - plist)) - (plist + (cons [transparent: . #t] properties) + properties)) + (properties (if (stx-e (stx-getq final: body)) - (cons [final: . #t] plist) - plist)) - (plist + (cons [final: . #t] properties) + properties)) + (properties (cond ((stx-e (stx-getq print: body)) => (lambda (print) - (let (print (if (eq? print #t) els print)) - (cons [print: . print] plist)))) - (else plist))) - (plist + (let (print (if (eq? print #t) slots print)) + (cons [print: . print] properties)))) + (else properties))) + (properties (cond ((stx-e (stx-getq equal: body)) => (lambda (equal) - (let (equal (if (eq? equal #t) els equal)) - (cons [equal: . equal] plist)))) - (else plist)))) - plist)) - ((values type-plist) - (if (null? plist) plist - (with-syntax ((plist plist)) - [plist: #'(quote plist)]))) + (let (equal (if (eq? equal #t) slots equal)) + (cons [equal: . equal] properties)))) + (else properties)))) + properties)) + ((values type-properties) + (if (null? properties) properties + (with-syntax ((properties properties)) + [properties: #'(quote properties)]))) ((values type-unchecked) (or (alet (e (stx-getq unchecked: body)) [unchecked: e]) @@ -2009,8 +2022,8 @@ package: gerbil [type-attr ... type-id ... type-name ... - type-ctor ... - type-plist ... + type-constructor ... + type-properties ... type-unchecked ...]) (typedef (wrap @@ -2044,10 +2057,10 @@ package: gerbil (cons 'list (map quote-e super-ref))))) (meta-rtd-name (cadr type-name)) - (meta-rtd-ctor - (and (not (null? type-ctor)) - (cadr type-ctor))) - (meta-rtd-plist plist) + (meta-rtd-constructor + (and (not (null? type-constructor)) + (cadr type-constructor))) + (meta-rtd-properties properties) (metadef (wrap #'(defsyntax type @@ -2064,9 +2077,9 @@ package: gerbil (make-exhibitor (quote meta-rtd-id) meta-rtd-super (quote meta-rtd-name) - (quote meta-rtd-ctor) - (quote meta-rtd-plist) - (quote (attr ...)))))))) + (quote meta-rtd-constructor) + (quote meta-rtd-properties) + (quote (slot ...)))))))) (wrap #'(begin typedef metadef))))) @@ -2687,7 +2700,7 @@ package: gerbil (fx+ (length (runtime-struct-fields rtd)) k)) k))) ((values final?) - (and rtd (assgetq final: (runtime-type-plist rtd)))) + (and rtd (assgetq final: (runtime-type-properties rtd)))) (target tgt) (instance-check (if (expander-type-info? info) @@ -2730,7 +2743,7 @@ package: gerbil false)) (def final? - (and rtd (assgetq final: (runtime-type-plist rtd)))) + (and rtd (assgetq final: (runtime-type-properties rtd)))) (def (rtd-known-slot? rtd slot) (and rtd diff --git a/src/gerbil/prelude/core.ssxi.ss b/src/gerbil/prelude/core.ssxi.ss index afb06c212..416db40ee 100644 --- a/src/gerbil/prelude/core.ssxi.ss +++ b/src/gerbil/prelude/core.ssxi.ss @@ -45,7 +45,9 @@ package: gerbil ...) (%#call (%#ref error) (%#quote "struct-instance-init!: too many arguments for struct") - (%#ref self))))) + (%#ref self) + (%#quote count) + (%#call (%#ref ##vector-length) (%#ref self)))))) ((%#call recur self arg ...) (with-syntax (($self (make-symbol (gensym '__self)))) #'(%#let-values ((($self) self)) diff --git a/src/gerbil/runtime.ss b/src/gerbil/runtime.ss index 5ae4e13bc..1e8ecce66 100644 --- a/src/gerbil/runtime.ss +++ b/src/gerbil/runtime.ss @@ -12,6 +12,7 @@ package: gerbil "runtime/util" "runtime/loader" "runtime/control" + "runtime/c3" "runtime/mop" "runtime/error" "runtime/thread" @@ -25,6 +26,7 @@ package: gerbil "runtime/util" "runtime/loader" "runtime/control" + "runtime/c3" "runtime/mop" "runtime/error" "runtime/syntax" diff --git a/src/gerbil/runtime/c3.ss b/src/gerbil/runtime/c3.ss new file mode 100644 index 000000000..38f682891 --- /dev/null +++ b/src/gerbil/runtime/c3.ss @@ -0,0 +1,84 @@ +;;; -*- Gerbil -*- +;;; © fare +;;; The C3 Linearization algorithm to topologically sort an inheritance DAG +;;; into a precedence list such that: +;;; 1. The precedence list is a linearization of the inheritance DAG +;;; 2. Every precedence list includes as a sublist the precedence list of every super +;;; 3. The list of supers is a sublist of the precedence list +;;; 4. The elements that appear earlier in the list of precedence lists followed by +;;; the super list appear earlier in the precedence list. +;;; (This heuristic choice of an order makes the linearization deterministic). +;;; In the above, sublist means that the super list includes all the sublist elements +;;; in the same order but not necessarily consecutively. +;;; +;;; C3 has since been adopted for multiple inheritance by many modern object systems +;;; for its ordering consistency properties: +;;; OpenDylan, Python, Raku, Parrot, Solidity, PGF/TikZ. +;;; https://en.wikipedia.org/wiki/C3_linearization +;;; https://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.19.3910 +;;; +;;; See tests in ../test/c3-test.ss + +prelude: :gerbil/core +package: gerbil/runtime +namespace: #f + +(export c3-linearize) +(import "util") + +;; C3 linearization algorithm: given a top object x from which to compute the precedence list, +;; - rhead is [x] or [] depending on whether to include x as head of the result. +;; - supers is (get-supers x), the list of direct supers of x +;; - get-precedence-list gets the precedence list for a super s, including s itself in front +;; - eqpred is an equality predicate between list elements +;; (passed around because somehow equal? doesn't work correctly on runtime type-descriptors). +;; - get-name gets the name of a object/class, for debugging only. +;; : (List X) (List X) (X -> (NonEmptyList X)) ?(X X -> Bool) ?(X -> Y) -> (List X) +(def (c3-linearize rhead supers get-precedence-list (eqpred eq?) (get-name identity)) + (let (tails (map get-precedence-list supers)) ;; : (List (NonEmptyList X)) + (append1! tails supers) + (c3-linearize-loop rhead tails eqpred get-name))) + +;; The main loop for c3 +;; : (List X) (List X) ?(X X -> Bool) ?(X -> Y) -> (List X) +(def (c3-linearize-loop rhead tails (eqpred eq?) (get-name identity)) + (let loop ((rhead rhead) (tails tails)) + (let (tails (remove-nulls! tails)) + (match tails + ([] + (reverse rhead)) + ([tail] + (append-reverse rhead tail)) + (else + (let* ((err (cut error "Inconsistent precedence graph" + head: (map get-name (reverse rhead)) + tails: (map (cut map get-name <>) tails))) + (next (c3-select-next tails eqpred err))) + (loop (cons next rhead) + (remove-next! next tails eqpred)))))))) + +;; Next super selection loop, enforcing the ordering constraint and +;; otherwise implementing the earlier-in-list-first search heuristic. +;; : (NonEmptyList (NonEmptyList X)) ?(X X -> Bool) ?(-> Bottom) -> X +(def (c3-select-next tails eqpred err) + (let (candidate? ;; : X -> Bool + (lambda (c) (andmap (lambda (tail) (not (member c (cdr tail) eqpred))) tails))) + (let loop ((ts tails)) + (match ts + ([[c . _] . rts] + (if (candidate? c) + c + (loop rts))) + (else + (err)))))) + +;; Cleanup after lists after next element in the precedence list was chosen +;; : X (List (NonEmptyList X)) ?(X X -> Bool) -> (List (NonEmptyList X)) +(def (remove-next! next tails (eqpred eq?)) + (let loop ((t tails)) + (match t + ([] tails) + ([[head . tail] . more] + (when (eqpred head next) + (set-car! t tail)) + (loop more))))) diff --git a/src/gerbil/runtime/error.ss b/src/gerbil/runtime/error.ss index 61058868e..eca50cc51 100644 --- a/src/gerbil/runtime/error.ss +++ b/src/gerbil/runtime/error.ss @@ -136,6 +136,8 @@ namespace: #f (unchecked-slot-set! self 'message message) (apply class-instance-init! self rest)))) +(def dump-stack-trace? (make-parameter #t)) + (defmethod {display-exception Error} (lambda (self port) (let ((tmp-port (open-output-string)) @@ -158,7 +160,7 @@ namespace: #f (lambda (obj) (write obj) (write-char #\space)) irritants) (newline))) - (when (StackTrace? self) + (when (and (StackTrace? self) (dump-stack-trace?)) (alet (cont (&StackTrace-continuation self)) (displayln "--- continuation backtrace:") (display-continuation-backtrace cont)))) diff --git a/src/gerbil/runtime/mop.ss b/src/gerbil/runtime/mop.ss index 1ece287a8..c7de7a33c 100644 --- a/src/gerbil/runtime/mop.ss +++ b/src/gerbil/runtime/mop.ss @@ -6,13 +6,9 @@ package: gerbil/runtime namespace: #f (export #t) -(import "gambit" "util") +(import "gambit" "util" "c3") -;; Gerbil rtd [runtime type descriptor]: -;; {##struct-t id super fields name plist ctor slots methods} -;; {##class-t id super fields name plist ctor slots methods} -;; -;; Gambit structure rtd: +;; Gambit structure rtd [runtime type descriptor] ;; (define-type type ;; (id unprintable: equality-test:) ;; (name unprintable: equality-skip:) @@ -20,435 +16,489 @@ namespace: #f ;; (super unprintable: equality-skip:) ;; (fields unprintable: equality-skip:)) ;; -;; Gerbil rtd on gambit -;; ##structure ##type-type -;; 1 ##type-id -;; 2 ##type-name -;; 3 ##type-flags -;; 4 ##type-super -;; 5 ##type-fields -;; 6 type-descriptor-mixin -;; 7 type-descriptor-fields -;; 8 type-descriptor-plist -;; 9 type-descriptor-ctor -;; 10 type-descriptor-slots -;; 11 type-descriptor-methods +;; Gerbil rtd on Gambit, extending the above (index, accessor, type) +;; 0 ##structure-type : (Exactly ##type-type) +;; 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] ...) +;; 6 type-descriptor-precedence-list : (List TypeDescriptor) ; doesn't contain the class itself +;; 7 type-descriptor-all-slots : (Vector (OrFalse Symbol)) ; first is false +;; 8 type-descriptor-slot-table : (Table (Or Symbol Keyword) -> Fixnum) +;; 9 type-descriptor-properties : AList ; NB: not PList, despite the name "properties" +;; 10 type-descriptor-constructor : (OrFalse Symbol) +;; 11 type-descriptor-methods : (Table Symbol -> Function) +;; +;; The ##type-fields contains 3 entries by Gambit structure field, field name, flags and default value +;; +;; Standard "properties" keys: +;; direct-slots: (List Symbol) list of direct slots in order, for inheritance +;; direct-supers: (List TypeDescriptor) list of direct supers in order, for introspection only +;; struct: Bool is this a struct? i.e. only single inheritance for structs +;; final: Bool is this class final? i.e. no subclasses allowed +;; 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 + +(def (type-id klass) + (cond + ((type-descriptor? klass) (##type-id klass)) + ((not klass) #f) + (else (error "Not a class or #f" klass)))) + +(def (type=? x y) + (eq? (type-id x) (type-id y))) (def (type-descriptor? klass) (and (##type? klass) (eq? (##structure-length klass) 12))) +(def (type-struct? klass) + (assgetq struct: (type-descriptor-properties klass))) + +(def (type-final? klass) + (assgetq final: (type-descriptor-properties klass))) + (def (struct-type? klass) - (and (type-descriptor? klass) - (not (type-descriptor-mixin klass)))) + (and (type-descriptor? klass) (type-struct? klass))) (def (class-type? klass) - (and (type-descriptor? klass) - (type-descriptor-mixin klass) - #t)) + (and (type-descriptor? klass) (not (type-struct? klass)))) + +;; TODO for debugging only +(def (properties-form properties) + (map (match <> + ([key . val] + (if (eq? key 'direct-supers:) + [key :: (map type-id val)] + [key :: val]))) + properties)) -;;; meta constructor: create type descriptors for struct or class types (def (make-type-descriptor type-id type-name type-super rtd-mixin rtd-fields rtd-plist rtd-ctor rtd-slots rtd-methods) - - (def (put-props! ht key) - (def (put-plist! ht key plist) - (cond - ((assgetq key plist) - => (lambda (lst) - (for-each (lambda (id) (hash-put! ht id #t)) lst))))) - - (put-plist! ht key rtd-plist) - (when rtd-mixin - (for-each (lambda (klass) - (when (type-descriptor-mixin klass) ; ignore structs - (let (plist (type-descriptor-plist klass)) - (if (assgetq transparent: plist) - (put-plist! ht slots: plist) - (put-plist! ht key plist))))) - rtd-mixin))) - - (let* ((transparent? (assgetq transparent: rtd-plist)) - (field-names - (cond - ((assq fields: rtd-plist) => cdr) - (else '()))) - (field-names - (cond - ((assq slots: rtd-plist) - => (lambda (slots) - (append field-names (cdr slots)))) - (else field-names))) - (_ - (unless (fx= rtd-fields (length field-names)) - (error "Bad field descriptor; length mismatch" type-id rtd-fields field-names))) - (canonical-fields + (make-type-descriptor* type-id type-name type-super + rtd-mixin rtd-fields rtd-plist + rtd-ctor rtd-slots rtd-methods)) + +;; Bootstrap issue: all-slots is now a vector, not a list +;; Compute the flags and field-info and create a type-descriptor +(def (make-type-descriptor* type-id type-name type-super + precedence-list all-slots properties + constructor slot-table methods) + ;; compute a table of slots with print: or equal: or transparent: flag + ;; ht: table to which to add according slots + ;; key: either print: or equal: (both implied by transparent:) + (def (make-props! key) + (def ht (make-hash-table-eq)) + (def (put-slots! ht slots) + (for-each (cut hash-put! ht <> #t) slots)) + (def (put-alist! ht key alist) + (cond ((assgetq key alist) => (cut put-slots! ht <>)))) + (put-alist! ht key properties) + (for-each (lambda (mixin) + (let (alist (type-descriptor-properties mixin)) + (if (or (assgetq transparent: alist) (eq? #t (assgetq key alist))) + (put-slots! ht (cdr (vector->list (type-descriptor-all-slots mixin)))) + (put-alist! ht key alist)))) + precedence-list) + ht) + + (let* ((transparent? (assgetq transparent: properties)) + (all-slots-printable? (or transparent? (eq? #t (assgetq print: properties)))) + (printable (and (not all-slots-printable?) (make-props! print:))) + (all-slots-equalable? (or transparent? (eq? #t (assgetq equal: properties)))) + (equalable (and (not all-slots-equalable?) (make-props! equal:))) + (first-new-field (if type-super - (list-tail field-names (type-descriptor-fields type-super)) - field-names)) - (printable - (if transparent? - #f ; all printable - (let (ht (make-hash-table-eq)) - (put-props! ht print:) - ht))) - (equality - (if transparent? - #f ; all equality comparable - (let (ht (make-hash-table-eq)) - (put-props! ht equal:) - ht))) - (field-info - (let recur ((rest canonical-fields)) - (match rest - ([id . rest] - (let (flags - (if transparent? 0 - (##fxior (if (hash-get printable id) 0 1) - (if (hash-get equality id) 0 4)))) - (cons* id flags #f (recur rest)))) - (else '())))) + (##vector-length (type-descriptor-all-slots type-super)) + 1)) + (field-info-length (##fx* 3 (##fx- (##vector-length all-slots) first-new-field))) + (field-info (make-vector field-info-length #f)) (opaque? - (if (or transparent? (assq equal: rtd-plist)) - (if type-super - (##fx= (##fxand (##type-flags type-super) 1) 1) - #f) - #t))) + (or (not all-slots-equalable?) + (and type-super (##fx= (##fxand (##type-flags type-super) 1) 1))))) + (let loop ((i first-new-field) + (j 0)) + (when (##fx< j field-info-length) + (let* ((slot (##vector-ref all-slots i)) + (flags + (if transparent? 0 + (##fxior (if (or all-slots-printable? (hash-get printable slot)) 0 1) + (if (or all-slots-equalable? (hash-get equalable slot)) 0 4))))) + (vector-set! field-info j slot) + (vector-set! field-info (##fx+ j 1) flags) + (loop (##fx+ i 1) (##fx+ j 3))))) (##structure ##type-type type-id type-name - (+ 24 (if opaque? 1 0)) + (if opaque? 25 24) type-super - (list->vector field-info) - rtd-mixin rtd-fields rtd-plist rtd-ctor - rtd-slots rtd-methods))) + field-info + precedence-list all-slots slot-table properties constructor methods))) ;;; type descriptor utilities -(def (make-struct-type-descriptor id name super fields plist ctor) - (make-type-descriptor id name super #f fields plist ctor #f #f)) - -(def (make-class-type-descriptor id name super mixin fields plist ctor slots) - (make-type-descriptor id name super mixin fields plist ctor slots #f)) - -(def (type-descriptor-mixin klass) +(def (type-descriptor-precedence-list klass) (##vector-ref klass 6)) -(def (type-descriptor-fields klass) +(def (type-descriptor-all-slots klass) (##vector-ref klass 7)) -(def (type-descriptor-plist klass) +(def (type-descriptor-slot-table klass) (##vector-ref klass 8)) -(def (type-descriptor-ctor klass) +(def (type-descriptor-properties klass) (##vector-ref klass 9)) -(def (type-descriptor-slots klass) +(def (type-descriptor-constructor klass) (##vector-ref klass 10)) (def (type-descriptor-methods klass) (##vector-ref klass 11)) (def (type-descriptor-methods-set! klass ht) (##vector-set! klass 11 ht)) +;; TODO: remove after cleanup of clients + new bootstrap +(def type-descriptor-mixin type-descriptor-precedence-list) +(def type-descriptor-plist type-descriptor-properties) +(def type-descriptor-ctor type-descriptor-constructor) +(def (type-descriptor-fields klass) + (##fx- (##vector-length (type-descriptor-all-slots klass)) 1)) (def (type-descriptor-sealed? klass) (##fxbit-set? 20 (##type-flags klass))) (def (type-descriptor-seal! klass) (##vector-set! klass 3 (##fxior (##fxarithmetic-shift 1 20) (##type-flags klass)))) ;;; struct types -(def (make-struct-type id super fields name plist ctor (field-names #f)) +;; TODO: rename after bootstrap +(def (make-struct-type id super n-direct-slots name properties constructor (direct-slots #f)) + (make-struct-type* id name super + (or direct-slots + (map (cut make-symbol "_" <>) + (iota n-direct-slots + (if super (##vector-length (type-descriptor-all-slots super)) + 1)))) + properties constructor)) + +;; : Symbol Symbol StructTypeDescriptor (List Symbol) Alist Constructor -> StructTypeDescriptor +(def (make-struct-type* id name super direct-slots properties constructor) (when (and super (not (struct-type? super))) (error "Illegal super type; not a struct-type" super)) - (when (and super (assgetq final: (type-descriptor-plist super))) - (error "Cannot extend final struct" super)) - - (let* ((super-fields - (if super (type-descriptor-fields super) 0)) - (std-fields - (fx+ fields super-fields)) - (std-field-names - (let* ((super-fields - (if super - (assgetq fields: (type-descriptor-plist super)) - '())) - (field-names - (or field-names (make-list fields ':)))) - (append super-fields field-names))) - (_ - (unless (##fx= std-fields (length std-field-names)) - (error "Bad field specification; length mismatch" id std-fields std-field-names))) - (std-plist - (cons (cons fields: std-field-names) plist)) - (ctor - (or ctor (and super (type-descriptor-ctor super))))) - (make-struct-type-descriptor id name super std-fields std-plist ctor))) + ;; Consistency check for slots: they must all be new + (let* ((type (make-class-type* id name (if super [super] []) direct-slots + [[struct: . #t] . properties] constructor)) + (all-slots (type-descriptor-all-slots type)) + (len (length direct-slots)) + (start (##fx- (##vector-length all-slots) len))) + (unless (andmap (lambda (slot i) (eq? slot (##vector-ref all-slots i))) + direct-slots (iota len start)) + (error "Non-unique slots in struct" name direct-slots)) + type)) (def (make-struct-predicate klass) (let (tid (##type-id klass)) - (if (assgetq final: (type-descriptor-plist klass)) + (if (type-final? klass) (lambda (obj) (##structure-direct-instance-of? obj tid)) (lambda (obj) (##structure-instance-of? obj tid))))) (def (make-struct-field-accessor klass field) - (let (off (##fx+ (struct-field-offset klass field) 1)) - (lambda (obj) - (##structure-ref obj off klass #f)))) + (make-struct-field-accessor* klass (struct-field-offset* klass field))) + +(def (make-struct-field-accessor* klass field) + (lambda (obj) (##structure-ref obj field klass #f))) (def (make-struct-field-mutator klass field) - (let (off (##fx+ (struct-field-offset klass field) 1)) - (lambda (obj val) - (##structure-set! obj val off klass #f)))) + (make-struct-field-mutator* klass (struct-field-offset* klass field))) -(def (make-struct-field-unchecked-accessor klass field) - (let (off (##fx+ (struct-field-offset klass field) 1)) - (lambda (obj) - (##unchecked-structure-ref obj off klass #f)))) +(def (make-struct-field-mutator* klass field) + (lambda (obj val) (##structure-set! obj val field klass #f))) -(def (make-struct-field-unchecked-mutator klass field) - (let (off (##fx+ (struct-field-offset klass field) 1)) - (lambda (obj val) - (##unchecked-structure-set! obj val off klass #f)))) +(def (make-struct-field-unchecked-accessor klass field) + (make-struct-field-unchecked-accessor* klass (struct-field-offset* klass field))) -(def (struct-field-offset klass field) - (##fx+ field - (cond - ((##type-super klass) => type-descriptor-fields) - (else 0)))) +(def (make-struct-field-unchecked-accessor* klass field) + (lambda (obj) (##unchecked-structure-ref obj field klass #f))) -(def (struct-field-ref klass obj off) - (##structure-ref obj (##fx+ off 1) klass #f)) +(def (make-struct-field-unchecked-mutator klass field) + (make-struct-field-unchecked-mutator* klass (struct-field-offset* klass field))) -(def (struct-field-set! klass obj off val) - (##structure-set! obj val (##fx+ off 1) klass #f)) +(def (make-struct-field-unchecked-mutator* klass field) + (lambda (obj val) (##unchecked-structure-set! obj val field klass #f))) -(def (struct-subtype? klass xklass) - (let (klass-t (##type-id klass)) - (let lp ((next xklass)) +(def (struct-field-offset* klass field) + (##fx+ field + (let (super (##type-super klass)) + (if super + (##vector-length (type-descriptor-all-slots super)) + 1)))) + +;; TODO: this seems exported but otherwise unused, and we changed the offset meaning by 1. Remove? +(def (struct-field-ref klass obj field) + (##structure-ref obj field klass #f)) + +;; TODO: this seems exported but otherwise unused, and we changed the offset meaning by 1. Remove? +(def (struct-field-set! klass obj field val) + (##structure-set! obj val field klass #f)) + +;; Is maybe-sub-struct a subclass of maybe-super-struct? +; : TypeDescriptor TypeDescriptor -> Bool +(def (substruct? maybe-sub-struct maybe-super-struct) + (let (maybe-super-struct-id (##type-id maybe-super-struct)) + (let lp ((super-struct maybe-sub-struct)) (cond - ((not next) + ((not super-struct) #f) - ((eq? klass-t (##type-id next)) + ((eq? maybe-super-struct-id (type-id super-struct)) #t) (else - (lp (##type-super next))))))) + (lp (##type-super super-struct))))))) -;;; class types -(def (make-class-type id super slots name plist ctor) - (def (class-slots klass) - (assgetq slots: (type-descriptor-plist klass))) - - (def (make-slots off) - (let (slot-table (make-hash-table-eq)) - (let lp ((rest super) (off off) (slot-list '())) - (match rest - ([hd . rest] - (merge-slots slot-table (class-slots hd) off slot-list - (lambda (off slot-list) - (lp rest off slot-list)))) - (else - (merge-slots slot-table slots off slot-list - (lambda (off slot-list) - (values off slot-table (reverse slot-list))))))))) - - (def (merge-slots ht lst off r K) - (let lp ((rest lst) (off off) (r r)) - (match rest - ([slot . rest] - (if (hash-get ht slot) - (lp rest off r) - (begin - (hash-put! ht slot off) - (hash-put! ht (symbol->keyword slot) off) - (lp rest (##fx+ off 1) (cons slot r))))) - (else - (K off r))))) - - (def (find-super-ctor super) - (let lp ((rest super) (ctor #f)) - (match rest - ([hd . rest] - (cond - ((type-descriptor-ctor hd) - => (lambda (xctor) - (if (or (not ctor) (eq? ctor xctor)) - (lp rest xctor) - (error "Conflicting implicit constructors" ctor xctor)))) - (else (lp rest ctor)))) - (else ctor)))) - - (def (find-super-struct super) - (def (base-struct super-struct klass) - (cond - (super-struct - (cond - ((struct-subtype? super-struct klass) - (let lp ((klass klass)) - (if (struct-type? klass) - klass - (lp (##type-super klass))))) - ((struct-subtype? klass super-struct) - super-struct) - (else - (error "Bad mixin: incompatible struct bases" klass super-struct)))) - ((struct-type? klass) klass) - ((class-type? klass) - (let lp ((next (##type-super klass))) - (cond - ((not next) - #f) - ((struct-type? next) - next) - ((class-type? next) - (lp next)) - (else #f)))) - (else #f))) - - (let lp ((rest super) (super-struct #f)) - (match rest - ([hd . rest] - (lp rest (base-struct super-struct hd))) - (else super-struct)))) - - (def (expand-struct-mixin super) - (let lp ((rest super) (mixin '())) - (match rest - ([hd . rest] - (if (struct-type? hd) - (let lp2 ((next hd) (mixin mixin)) - (cond - ((not next) - (lp rest mixin)) - ((struct-type? next) - (lp2 (##type-super next) (cons next mixin))) - (else - (lp rest mixin)))) - (lp rest (cons hd mixin)))) - (else - (reverse mixin))))) +(def (struct-subtype? maybe-super-struct maybe-sub-struct) + (substruct? maybe-sub-struct maybe-super-struct)) ;; TODO: remove after bootstrap +;; Which is the most specific struct class if any that klass is or inherits from? +;; : TypeDescriptor -> (OrFalse StructTypeDescriptor) +(def (base-struct/1 klass) (cond - ((find (lambda (klass) (not (type-descriptor? klass))) super) - => (lambda (klass) - (error "Illegal super class; not a type descriptor" klass))) - ((find (lambda (klass) - (assgetq final: (type-descriptor-plist klass))) - super) - => (lambda (klass) - (error "Cannot extend final class" klass)))) - - (let* ((std-super (find-super-struct super)) - (mixin (if std-super (expand-struct-mixin super) super))) - (let-values (((std-fields std-slots std-slot-list) - (make-slots (if std-super (type-descriptor-fields std-super) 0)))) - (let* ((std-mixin (class-linearize-mixins mixin)) - (std-plist (if std-super - (let (fields (assgetq fields: (type-descriptor-plist std-super))) - (cons (cons fields: fields) plist)) - plist)) - (std-plist (cons (cons slots: std-slot-list) std-plist)) - (std-ctor (or ctor (find-super-ctor super)))) - (make-class-type-descriptor id name std-super std-mixin std-fields std-plist std-ctor std-slots))))) - -(def (class-linearize-mixins klass-lst) - (def (class->list klass) - (cons klass (or (type-descriptor-mixin klass) '()))) - - (match klass-lst - ([] []) - ([klass] - (class->list klass)) - (else - (__linearize-mixins - (map class->list klass-lst))))) - -(def (__linearize-mixins lst) - (def (K rest r) + ((struct-type? klass) klass) + ((class-type? klass) (##type-super klass)) + ((not klass) #f) + (else (error "Not a class or false" klass)))) + +;; Which is the most specific struct class if any that both klass1 and klass2 are or inherit from? +;; : TypeDescriptor TypeDescriptor -> (OrFalse StructTypeDescriptor) +(def (base-struct/2 klass1 klass2) + (let ((s1 (base-struct/1 klass1)) + (s2 (base-struct/1 klass2))) + (cond + ((or (not s1) (and s2 (substruct? s1 s2))) s2) + ((or (not s2) (and s1 (substruct? s2 s1))) s1) + (else (error "Bad mixin: incompatible struct bases" klass1 klass2 s1 s2))))) + +;; Which is the most specific struct class if any that all argument classes are or inherit from? +;; : TypeDescriptor ... -> (OrFalse StructTypeDescriptor) +(def (base-struct/list all-supers) + (match all-supers + ([] #f) + ([x] (base-struct/1 x)) + ([x y] (base-struct/2 x y)) + ([x y ...] (foldr base-struct/2 x y)))) + +(def (base-struct . all-supers) + (base-struct/list all-supers)) + +;; Find the constructor method name for the TypeDescriptor +;; : (List TypeDescriptor) -> Symbol +(def (find-super-ctor super) + (find-super-constructor super)) + +(def (find-super-constructor super) + (let lp ((rest super) (constructor #f)) (match rest ([hd . rest] - (linearize1 hd rest r)) - (else - (reverse r)))) - - (def (linearize1 hd rest r) - (match hd - ([hd-first . hd-rest] - (if (findq hd-first rest) - (linearize2 rest (list hd) r) - (K (cons hd-rest rest) - (putq hd-first r)))) - (else - (K rest r)))) - - (def (linearize2 rest pre r) - (let lp ((rest rest) (pre pre)) - (match rest - ([hd . rest] - (match hd - ([hd-first . hd-rest] - (if (findq hd-first rest) - (lp rest (cons hd pre)) - (K (foldl cons (cons hd-rest rest) pre) - (putq hd-first r)))) - (else - (lp rest pre))))))) - - (def (putq hd lst) - (if (memq hd lst) lst - (cons hd lst))) - - (def (findq hd rest) - (find (lambda (lst) (memq hd lst)) rest)) + (cond + ((type-descriptor-constructor hd) + => (lambda (xconstructor) + (if (or (not constructor) (eq? constructor xconstructor)) + (lp rest xconstructor) + (error "Conflicting implicit constructors" constructor xconstructor)))) + (else (lp rest constructor)))) + (else constructor)))) + +;; Given a struct super class (or false if none), +;; a list of super-classes (not including the class being created), and +;; a list of direct slots from the class being created, +;; return the all-slots vector of slots (with #f in position 0) and the slot-table. +;; a table mapping symbol and keyword names to offset, and +;; : (OrFalse StructTypeDescriptor) (List TypeDescriptor) (List Symbol) \ +;; -> (Vector Symbol) (Table (Or Symbol Keyword) -> Fixnum) +(def (compute-class-slots super-struct class-precedence-list direct-slots) + (let* ((previous-slots + (if super-struct (type-descriptor-all-slots super-struct) '#(#f))) + (next-slot + (##vector-length previous-slots)) + (slot-table + (if super-struct + (hash-copy (type-descriptor-slot-table super-struct)) + (make-hash-table-eq))) + (r-slots []) + (process-slot + (lambda (slot) + (unless (symbol? slot) + (error "invalid slot name" slot)) + (unless (hash-key? slot-table slot) ;; ignore if already registered as a slot + (hash-put! slot-table slot next-slot) + (hash-put! slot-table (symbol->keyword slot) next-slot) + (set! r-slots (cons slot r-slots)) + (set! next-slot (##fx+ next-slot 1))))) + (process-slots (cut for-each process-slot <>))) + (for-each (lambda (mixin) + (unless (type-struct? mixin) ;; skip structure classes, already processed via super + (process-slots + (assgetq direct-slots: (type-descriptor-properties mixin) [])))) + (reverse class-precedence-list)) + (process-slots direct-slots) + (let (all-slots (make-vector next-slot #f)) + (vector-copy! all-slots 0 previous-slots) + (for-each (lambda (slot) + (set! next-slot (##fx- next-slot 1)) + (vector-set! all-slots next-slot slot)) + r-slots) + (values all-slots slot-table)))) + +;;; ClassTypeDescriptor +;; : Symbol (List TypeDescriptor) (List Symbol) Symbol Alist Constructor -> ClassTypeDescriptor +(def (make-class-type id direct-supers direct-slots name properties constructor) + (make-class-type* id name direct-supers direct-slots properties constructor)) + +;; : Symbol Symbol (List TypeDescriptor) (List Symbol) Alist Constructor -> ClassTypeDescriptor +(def (make-class-type* id name direct-supers direct-slots properties constructor) + (cond + ((find (lambda (klass) (not (type-descriptor? klass))) direct-supers) + => (cut error "Illegal super class; not a type descriptor" <>)) + ((find type-final? direct-supers) + => (cut error "Cannot extend final class" <>))) + + (let* ((struct-super (base-struct/list direct-supers)) ;; super struct, if any + (precedence-list (class-linearize-mixins direct-supers)) ;; class precedence list, excluding current class + ((values all-slots slot-table) + (compute-class-slots struct-super precedence-list direct-slots)) + (properties + [[direct-slots: . direct-slots] + [direct-supers: . direct-supers] + properties ...]) + (constructor* (or constructor (find-super-constructor direct-supers)))) + + (make-type-descriptor* id name struct-super + precedence-list all-slots properties + constructor* slot-table #f))) + +(def (class-precedence-list klass) + (cons klass (type-descriptor-precedence-list klass))) + +(def (struct-precedence-list strukt) + (cons strukt (cond ((##type-super strukt) => struct-precedence-list) (else [])))) - (K lst '())) +(def (class-linearize-mixins klass-lst) + (c3-linearize [] klass-lst class-precedence-list eq? ##type-name)) (def (make-class-predicate klass) - (if (assgetq final: (type-descriptor-plist klass)) - (lambda (obj) - (direct-class-instance? klass obj)) - (lambda (obj) - (class-instance? klass obj)))) + (if (type-final? klass) + (cut direct-class-instance? klass <>) + (cut class-instance? klass <>))) + +;; Given a klass descriptor, a slot name (symbol), and three accessor-makers +;; for the respective cases of (a) the descriptor being a struct or final +;; (so all direct or indirect instances have the slot is at a fixed field), +;; (b) the field being part of the struct base of the class +;; (same as above but you have a more expensive argument class check to be safe) +;; or (c) the slot being a regular class slot (the more expensive code path), +;; return an accessor for this klass and slot. +(def (if-class-slot-field klass slot if-struct if-struct-field if-class-slot) + (let (field (hash-get (type-descriptor-slot-table klass) slot)) + (cond + ((or (type-final? klass) (type-struct? klass)) + (if-struct klass field)) + ((let (strukt (base-struct/1 klass)) + (and strukt (##fx< field (##vector-length (type-descriptor-all-slots strukt))))) + (if-struct-field klass field)) + (else + (if-class-slot klass slot field))))) (def (make-class-slot-accessor klass slot) + (if-class-slot-field klass slot + make-struct-field-accessor* + make-struct-subclass-field-accessor + make-class-cached-slot-accessor)) + +(def (make-struct-subclass-field-accessor klass field) (lambda (obj) - (slot-ref obj slot))) + (if (class-instance? klass obj) + (unchecked-field-ref obj field) + (error "Trying to access a slot of a value that is not an instance of the declared class" + (vector-ref (type-descriptor-all-slots klass) field) obj klass)))) + +(def (make-class-cached-slot-accessor klass slot field) + (lambda (obj) + (cond + ((direct-instance? klass obj) + (unchecked-field-ref obj field)) + ((class-instance? klass obj) + (slot-ref obj slot)) + (else + (error "Trying to get a slot of an object that is not a class instance" + slot obj klass))))) (def (make-class-slot-mutator klass slot) + (if-class-slot-field klass slot + make-struct-field-mutator* + make-struct-subclass-field-mutator + make-class-cached-slot-mutator)) + +(def (make-struct-subclass-field-mutator klass field) (lambda (obj val) - (slot-set! obj slot val))) + (if (class-instance? klass obj) + (unchecked-field-set! obj field val) + (error "Trying to set a slot of an object that is not a class instance" + (vector-ref (type-descriptor-all-slots klass) field) obj klass val)))) + +(def (make-class-cached-slot-mutator klass slot field) + (lambda (obj val) + (if (direct-instance? klass obj) + (unchecked-field-set! obj field val) + (slot-set! obj slot val)))) (def (make-class-slot-unchecked-accessor klass slot) + (if-class-slot-field klass slot + make-struct-field-unchecked-accessor* + make-struct-field-unchecked-accessor* + make-class-cached-slot-unchecked-accessor)) + +(def (make-class-cached-slot-unchecked-accessor klass slot field) (lambda (obj) - (unchecked-slot-ref obj slot))) + (if (direct-instance? klass obj) + (unchecked-field-ref obj field) + (unchecked-slot-ref obj slot)))) (def (make-class-slot-unchecked-mutator klass slot) + (if-class-slot-field klass slot + make-struct-field-unchecked-mutator* + make-struct-field-unchecked-mutator* + make-class-cached-slot-unchecked-mutator)) + +(def (make-class-cached-slot-unchecked-mutator klass slot field) (lambda (obj val) - (unchecked-slot-set! obj slot val))) + (if (direct-instance? klass obj) + (unchecked-field-set! obj field val) + (unchecked-slot-set! obj slot val)))) (def (class-slot-offset klass slot) - (cond - ((type-descriptor-slots klass) - => (lambda (slots) (hash-get slots slot))) - (else #f))) + (let (off (class-slot-offset* klass slot)) + (and off (##fx- off 1)))) + +(def (class-slot-offset* klass slot) + (hash-get (type-descriptor-slot-table klass) slot)) (def (class-slot-ref klass obj slot) (if (class-instance? klass obj) - (let (off (class-slot-offset (object-type obj) slot)) - (##unchecked-structure-ref obj (##fx+ off 1) klass #f)) + (let (off (class-slot-offset* (object-type obj) slot)) + (##unchecked-structure-ref obj off klass #f)) (error "not an instance" klass obj))) (def (class-slot-set! klass obj slot val) (if (class-instance? klass obj) - (let (off (class-slot-offset (object-type obj) slot)) - (##unchecked-structure-set! obj val (##fx+ off 1) klass #f)) + (let (off (class-slot-offset* (object-type obj) slot)) + (##unchecked-structure-set! obj val off klass #f)) (error "not an instance" klass obj))) -(def (class-subtype? klass xklass) - (let (klass-t (##type-id klass)) - (cond - ((eq? klass-t (##type-id xklass))) - ((type-descriptor-mixin xklass) - => (lambda (mixin) - (and (find (lambda (xklass) (eq? klass-t (##type-id xklass))) - mixin) - #t))) - (else #f)))) +;; Is maybe-sub-class a subclass of maybe-super-class? +; : TypeDescriptor TypeDescriptor -> Bool +(def (subclass? maybe-sub-class maybe-super-class) + (let (maybe-super-class-id (##type-id maybe-super-class)) + (or (eq? maybe-super-class-id (##type-id maybe-sub-class)) + (ormap (lambda (super-class) (eq? (##type-id super-class) maybe-super-class-id)) + (type-descriptor-precedence-list maybe-sub-class))))) +;; Is maybe-sub-class a subclass of maybe-super-class? +;; NB: Reverse order of argument. TODO: remove after bootstrap +(def (class-subtype? maybe-super-class maybe-sub-class) + (subclass? maybe-sub-class maybe-super-class)) ;;; generic object utilities (def object? @@ -467,42 +517,39 @@ namespace: #f (def (class-instance? klass obj) (and (object? obj) - (let ((klass-id (##type-id klass)) - (type (object-type obj))) + (let (type (object-type obj)) (and (type-descriptor? type) - (or (eq? (##type-id type) klass-id) - (cond - ((type-descriptor-mixin type) - => (lambda (mixin) - (ormap (lambda (type) (eq? (##type-id type) klass-id)) - mixin))) - (else #f))))))) + (subclass? type klass))))) (def direct-class-instance? direct-instance?) (def (make-object klass k) - (let (obj (##make-vector (##fx+ k 1) #f)) + (make-object* klass (##fx+ k 1))) + +(def (make-object* klass (k (##vector-length (type-descriptor-all-slots klass)))) + (let (obj (##make-vector k #f)) (##vector-set! obj 0 klass) (##subtype-set! obj (macro-subtype-structure)) obj)) (def (make-struct-instance klass . args) - (let (fields (type-descriptor-fields klass)) + (let* ((all-slots (type-descriptor-all-slots klass)) + (size (##vector-length all-slots))) (cond - ((type-descriptor-ctor klass) + ((type-descriptor-constructor klass) => (lambda (kons-id) - (__constructor-init! klass kons-id (make-object klass fields) args))) - ((##fx= fields (length args)) + (__constructor-init! klass kons-id (make-object* klass size) args))) + ((##fx= (##fx- size 1) (length args)) (apply ##structure klass args)) (else (error "Arguments don't match object size" - klass fields args))))) + klass (##fx- size 1) args))))) (def (make-class-instance klass . args) - (let (obj (make-object klass (type-descriptor-fields klass))) + (let ((obj (make-object* klass (##vector-length (type-descriptor-all-slots klass))))) (cond - ((type-descriptor-ctor klass) + ((type-descriptor-constructor klass) => (lambda (kons-id) (__constructor-init! klass kons-id obj args))) (else @@ -529,9 +576,9 @@ namespace: #f (match rest ([key val . rest] (cond - ((class-slot-offset klass key) + ((class-slot-offset* klass key) => (lambda (off) - (##vector-set! obj (##fx+ off 1) val) + (##vector-set! obj off val) (lp rest))) (else (error "No slot for keyword initializer" klass key)))) @@ -565,45 +612,43 @@ namespace: #f (if (object? obj) (let (klass (object-type obj)) (if (type-descriptor? klass) - (cond - ((type-descriptor-slots klass) - => (lambda (slots) - (cons klass - (hash-fold - (lambda (slot off r) - (if (keyword? slot) - (cons* slot (unchecked-field-ref obj off) r) - r)) - '() slots)))) - (else - (list klass))) + (let (all-slots (type-descriptor-all-slots klass)) + (let loop ((index (##fx- (##vector-length all-slots) 1)) + (plist [])) + (if (##fx< index 1) + (cons klass plist) + (let ((slot (##vector-ref all-slots index))) + (loop (##fx- index 1) + (cons* (symbol->keyword slot) + (unchecked-field-ref obj index) + plist)))))) (error "Not a class type" obj klass))) (error "Not an object" obj))) (def (unchecked-field-ref obj off) - (##vector-ref obj (##fx+ off 1))) + (##vector-ref obj off)) (def (unchecked-field-set! obj off val) - (##vector-set! obj (##fx+ off 1) val)) + (##vector-set! obj off val)) (def (unchecked-slot-ref obj slot) - (unchecked-field-ref obj (class-slot-offset (object-type obj) slot))) + (unchecked-field-ref obj (class-slot-offset* (object-type obj) slot))) (def (unchecked-slot-set! obj slot val) - (unchecked-field-set! obj (class-slot-offset (object-type obj) slot) val)) + (unchecked-field-set! obj (class-slot-offset* (object-type obj) slot) val)) (defrules __slot-e () ((_ obj slot K E) (if (object? obj) (let (klass (object-type obj)) (cond - ((and (type-descriptor? klass) (class-slot-offset klass slot)) + ((and (type-descriptor? klass) (class-slot-offset* klass slot)) => K) (else (E obj slot)))) (E obj slot)))) (def (slot-ref obj slot (E __slot-error)) - (__slot-e obj slot (lambda (off) (##vector-ref obj (##fx+ off 1))) E)) + (__slot-e obj slot (lambda (off) (##vector-ref obj off)) E)) (def (slot-set! obj slot val (E __slot-error)) - (__slot-e obj slot (lambda (off) (##vector-set! obj (##fx+ off 1) val)) E)) + (__slot-e obj slot (lambda (off) (##vector-set! obj off val)) E)) (def (__slot-error obj slot) (error "Cannot find slot" obj slot)) @@ -641,47 +686,26 @@ namespace: #f (apply method obj args)))) (def (find-method klass id) - (cond - ((type-descriptor? klass) - (__find-method klass id)) - ((##type? klass) - (or (builtin-method-ref klass id) - (builtin-find-method (##type-super klass) id))) - (else #f))) + (if (type-descriptor? klass) + (__find-method klass id) + (builtin-find-method klass id))) (def (__find-method klass id) (cond ((direct-method-ref klass id)) ((type-descriptor-sealed? klass) #f) - ((type-descriptor-mixin klass) - => (lambda (mixin) - (mixin-find-method mixin id))) (else - (struct-find-method (##type-super klass) id)))) + (mixin-method-ref klass id)))) -(def (struct-find-method klass id) - (cond - ((type-descriptor? klass) - (or (direct-method-ref klass id) - (struct-find-method (##type-super klass) id))) - ((##type? klass) - (or (builtin-method-ref klass id) - (builtin-find-method (##type-super klass) id))) - (else #f))) +(def struct-find-method find-method) ;; TODO: remove after bootstrap (def (class-find-method klass id) (and (type-descriptor? klass) - (or (direct-method-ref klass id) - (mixin-method-ref klass id)))) + (__find-method klass id))) -(def (mixin-find-method mixin id) - (let lp ((rest mixin)) - (match rest - ([klass . rest] - (or (direct-method-ref klass id) - (lp rest))) - (else #f)))) +(def (mixin-find-method mixins id) + (ormap (cut direct-method-ref <> id) mixins)) (def (builtin-find-method klass id) (and (##type? klass) @@ -695,17 +719,12 @@ namespace: #f (else #f))) (def (mixin-method-ref klass id) - (cond - ((type-descriptor-mixin klass) - => (lambda (mixin) - (mixin-find-method mixin id))) - (else #f))) + (mixin-find-method (type-descriptor-precedence-list klass) id)) (def (builtin-method-ref klass id) (cond ((hash-get __builtin-type-methods (##type-id klass)) - => (lambda (mtab) - (hash-get mtab id))) + => (lambda (mtab) (hash-get mtab id))) (else #f))) (def (bind-method! klass id proc (rebind? #t)) @@ -753,35 +772,12 @@ namespace: #f (cond ((type-descriptor-methods klass) => merge!))) - (cond - ((type-descriptor-mixin klass) - => (lambda (mixin) - (let recur ((rest mixin)) - (match rest - ([klass . rest] - (recur rest) - (cond - ((type-descriptor? klass) - (collect-direct-methods! klass)) - ((and (##type? klass) (hash-get __builtin-type-methods (##type-id klass))) - => merge!))) - (else (void)))))) - (else - (let recur ((klass (##type-super klass))) - (cond - ((type-descriptor? klass) - (recur (##type-super klass)) - (collect-direct-methods! klass)) - ((##type? klass) - (recur (##type-super klass)) - (cond - ((hash-get __builtin-type-methods (##type-id klass)) - => merge!))))))) - (collect-direct-methods! klass)) + (for-each collect-direct-methods! + (reverse (class-precedence-list klass)))) (when (type-descriptor? klass) (unless (type-descriptor-sealed? klass) - (unless (assgetq final: (type-descriptor-plist klass)) + (unless (type-final? klass) (error "Cannot seal non-final class" klass)) (let ((vtab (make-hash-table-eq)) (mtab (make-hash-table-eq))) @@ -793,7 +789,7 @@ namespace: #f => (lambda (specializer) (let ((proc (specializer klass)) (gid (make-symbol (##type-id klass) "::[" id "]"))) - ;; give the proecure a name and make it accesible to the debugger + ;; give the procedure a name and make it accessible to the debugger (eval `(def ,gid (quote ,proc))) (hash-put! vtab id proc)))) (else @@ -802,29 +798,28 @@ namespace: #f (type-descriptor-methods-set! klass vtab) (type-descriptor-seal! klass))))) +;; NB: 1. This implementation has quadratic complexity in the general case, but +;; 2. is somewhat simpler and slightly faster in the common case that has no +;; next-method, while not being too slow if the method list remains short. +;; +;; The trade-off may or may not be acceptable to all users. +;; Changing the protocol to access an explicit super argument would be +;; semantically nicer and would enable linear complexity for next-method +;; (in the number of classes, or even just in the number of applicable method, +;; if resolved only once), but would be notably more complex and somewhat +;; incompatible (or involve some cleverness for backward compatibility). (def (next-method subklass obj id) (let ((klass (object-type obj)) (type-id (##type-id subklass))) (cond ((type-descriptor? klass) - (cond - ((type-descriptor-mixin klass) - => (lambda (mixin) - (let lp ((rest (cons klass mixin))) - (match rest - ([klass . rest] - (if (eq? type-id (##type-id klass)) - (mixin-find-method rest id) - (lp rest))) - (else #f))))) - (else - (let lp ((klass klass)) - (cond - ((eq? type-id (##type-id klass)) - (struct-find-method (##type-super klass) id)) - ((##type-super klass) - => lp) - (else #f)))))) + (let lp ((rest (class-precedence-list klass))) + (match rest + ([klass . rest] + (if (eq? type-id (##type-id klass)) + (mixin-find-method rest id) + (lp rest))) + (else #f)))) ((##type? klass) (let lp ((klass klass)) (cond diff --git a/src/gerbil/runtime/system.ss b/src/gerbil/runtime/system.ss index 8b5a93415..0d3cff01b 100644 --- a/src/gerbil/runtime/system.ss +++ b/src/gerbil/runtime/system.ss @@ -6,21 +6,54 @@ package: gerbil/runtime namespace: #f (export #t) -(import "gambit" "util") +(import "gambit" "util" "control") (include "version.ss") +;; Redundantly define this macro here until the version in the prelude is fully bootstrapped. +(defrules defmutable () + ((_ var value) (begin (def var value) (set! var var) (void)))) + +(def gerbil-system-manifest + [["Gerbil" :: (gerbil-version-string)] + ["Gambit" :: (system-version-string)]]) + +(defmutable build-manifest gerbil-system-manifest) + +(def (display-build-manifest (manifest build-manifest) (port (current-output-port))) + (let ((p (cut display <> port)) + (l (length manifest)) + (i 0)) + (for-each ;; we can't use for (for ((i (in-range l)) (layer manifest)) ...) + (lambda (layer) + (cond + ((zero? i) (void)) + ((= i 1) (p " on ")) + (else (p ", "))) + (match layer ([name . version] (p name) (p " ") (p version))) + (set! i (+ i 1))) + manifest))) + +(def (build-manifest/layer layer) + (let (l (assoc layer build-manifest)) + (if l [l] []))) + +(def (build-manifest/head) + [(car build-manifest)]) + +(def (build-manifest-string (manifest build-manifest)) + (call-with-output-string [] (lambda (p) (display-build-manifest manifest p)))) + (def (gerbil-system-version-string) - (string-append "Gerbil " (gerbil-version-string) " on Gambit " (system-version-string))) + (build-manifest-string gerbil-system-manifest)) + +(defmutable gerbil-greeting (gerbil-system-version-string)) (def (gerbil-system) 'gerbil-gambit) -(def gerbil-greeting - (gerbil-system-version-string)) -(set! gerbil-greeting gerbil-greeting) ; allow user mutation - (def (gerbil-home) - (getenv "GERBIL_HOME" (path-expand "~~"))) + (or (getenv "GERBIL_HOME" #f) + (path-expand "~~"))) (def (gerbil-path) (or (getenv "GERBIL_PATH" #f) diff --git a/src/gerbil/runtime/thread.ss b/src/gerbil/runtime/thread.ss index fecc49424..436e0baed 100644 --- a/src/gerbil/runtime/thread.ss +++ b/src/gerbil/runtime/thread.ss @@ -151,7 +151,8 @@ namespace: #f (lambda (exn) (continuation-capture (lambda (cont) - (dump-stack-trace! cont exn error-port) + (when (dump-stack-trace?) + (dump-stack-trace! cont exn error-port)) (E exn))))) thunk)) diff --git a/src/gerbil/runtime/util.ss b/src/gerbil/runtime/util.ss index 18a04fbb0..5ecfb3022 100644 --- a/src/gerbil/runtime/util.ss +++ b/src/gerbil/runtime/util.ss @@ -294,6 +294,34 @@ namespace: #f rest)) iv))) +;; 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 (remove-nulls! rr))) + ([_ . rr] (loop r rr)) + (_ (void)))) + l) + (_ l))) ;; [] + +;; : (List X) X -> (NonEmptyList X) +(def (append1! l x) + (let (l2 [x]) + (if (pair? l) + (set-cdr! (##last-pair l) l2) + l2))) + +;; Append the reverse of the list in first argument and the list in second argument +;; = (append (reverse rev-head) tail) ;; same as in SRFI 1. +;; : (List X) (List X) -> (List X) +(def (append-reverse rev-head tail) + (foldl cons tail rev-head)) + (def (andmap1 f lst) (let lp ((rest lst)) (match rest @@ -689,3 +717,59 @@ namespace: #f (read-substring str 0 (string-length str) port)) (def (write-string str port) (write-substring str 0 (string-length str) port)) + +(defrules DBG () + ((_ . a) (DBG/1 1 . a))) + +(defrules DBG/1 (quote) + ;; Each expr can be optionally prefixed by a quoted name, which defaults to the quoted expr + ;; 1. Specially recognize the last expression and its name (if any) + ((d 1 tag exprs ... 'name expr) + (d 2 () (exprs ...) tag name expr)) + ((d 1 tag exprs ... expr) + (d 2 () (exprs ...) tag expr expr)) + ((_ 1 tag) + (DBG-helper tag '() '() #f #f)) + ;; 2. Process each intermediate expr and its name, accumulating (name expr) in reverse + ((d 2 l ('name expr . r) . a) + (d 2 ((name expr) . l) r . a)) + ((d 2 l (expr . r) . a) + (d 2 ((expr expr) . l) r . a)) + ((d 2 l () . a) + (d 3 () l . a)) + ;; 3. reverse intermediate exprs back in order, then expand to DBG-helper + ((d 3 l (h . r) . a) + (d 3 (h . l) r . a)) + ((d 3 ((names exprs) ...) () tag name expr) + (let ((tagval tag) + (thunk (lambda () expr))) + (if tagval + (DBG-helper tagval '(names ...) (list (lambda () exprs) ...) + 'name thunk) + (thunk))))) + +(def DBG-printer (make-parameter write)) + +;; NB: fprintf uses the current-error-port and calls force-output +(def (DBG-helper tag dbg-exprs dbg-thunks expr thunk) + (letrec + ((fo (lambda () (force-output (current-error-port)) + (force-output (current-output-port)))) + (d (lambda (x) (display x (current-error-port)))) + (p (DBG-printer)) + (w (lambda (x) (p x (current-error-port)))) + (n (lambda () (newline (current-error-port)))) + (v (lambda (l) + (for-each (lambda (x) (d " ") (w x)) l) + (n))) + (x (lambda (expr thunk) + (d " ") + (w expr) (d " =>") + (call-with-values thunk (lambda x (v x) (apply values x)))))) + (if tag + (begin + (unless (void? tag) (d tag) (n)) + (for-each x dbg-exprs dbg-thunks) + (if thunk (x expr thunk) (void))) + (if thunk (thunk) (void))))) + diff --git a/src/gerbil/test/c3-test.ss b/src/gerbil/test/c3-test.ss new file mode 100644 index 000000000..1f6093118 --- /dev/null +++ b/src/gerbil/test/c3-test.ss @@ -0,0 +1,162 @@ +;; -*- Gerbil -*- +;;; © fare@tunes.org +;;;; Testing the c3 linearization algorithm + +(export c3-test) + +(import + ;; :gerbil/runtime/c3 + (only-in :gerbil/runtime/mop type-descriptor-all-slots) + (only-in :std/sugar defrule) + (only-in :std/test test-suite test-case check check-exception)) + +(define gerbil/runtime 'gerbil/runtime) +(define :gerbil/core ':gerbil/core) +(include "../../gerbil/runtime/c3.ss") + +;; This variant of c3-linearize is meant for testing only: +;; it recursively applies the algorithm on each super, +;; rather than use a cached precedence lists. +;; The can take exponential time in the complexity of the DAG. +;; : X (X -> (List X)) ?(X -> Y) -> (NonEmptyList X) +(def (c3-linearize* x get-supers (eqpred eqv?) (get-name identity)) + (c3-linearize [x] + (get-supers x) + (get-supers->get-precedence-list get-supers eqpred get-name) + eqpred + get-name)) + +;; : (X -> (List X)) ?(X -> Y) -> (X -> (NonEmptyList X)) +(def (get-supers->get-precedence-list get-supers (eqpred eqv?) (get-name identity)) + (def (gpl x) (c3-linearize [x] (get-supers x) gpl eqpred get-name)) + gpl) + +;;; Previous implementation: +(def (old-linearize-supers x (get-supers my-get-supers)) + (cons x (class-linearize-mixins (get-supers x) get-supers))) + +(def (class-linearize-mixins klass-lst (get-supers my-get-supers)) + (def (class->list klass) + ;;(cons klass (or (type-descriptor-mixin klass) '()))) ;;<-- in the original code + (old-linearize-supers klass get-supers)) + + (match klass-lst + ([] []) + ([klass] + (class->list klass)) + (else + (__linearize-mixins + (map class->list klass-lst))))) + +(def (__linearize-mixins lst) + (def (K rest r) + (match rest + ([hd . rest] + (linearize1 hd rest r)) + (else + (reverse r)))) + + (def (linearize1 hd rest r) + (match hd + ([hd-first . hd-rest] + (if (findq hd-first rest) + (linearize2 rest (list hd) r) + (K (cons hd-rest rest) + (putq hd-first r)))) + (else + (K rest r)))) + + (def (linearize2 rest pre r) + (let lp ((rest rest) (pre pre)) + (match rest + ([hd . rest] + (match hd + ([hd-first . hd-rest] + (if (findq hd-first rest) + (lp rest (cons hd pre)) + (K (foldl cons (cons hd-rest rest) pre) + (putq hd-first r)))) + (else + (lp rest pre))))))) + + (def (putq hd lst) + (if (memq hd lst) lst + (cons hd lst))) + + (def (findq hd rest) + (find (lambda (lst) (memq hd lst)) rest)) + + (K lst '())) + +(def (copy-list lst) (foldr cons '() lst)) + +(defrule (def-alist-getter getter alist table) + (begin (def table (list->hash-table alist)) (def getter (cut hash-get table <>)))) + +(defrule (defhierarchy (my-objects my-supers) (object supers ...) ...) + (begin + (def my-objects '(object ...)) + (def my-supers '((object supers ...) ...)) + (defclass (object supers ...) (object) transparent: #t) ...)) + +(defhierarchy (my-objects my-supers) + (O) (A O) (B O) (C O) (D O) (E O) + ;; Example from 2021 https://en.wikipedia.org/wiki/C3_linearization + (K1 A B C) (K2 D B E) (K3 D A) (Z K1 K2 K3) + ;; Example from 2023 https://en.wikipedia.org/wiki/C3_linearization with K->J, Z->Y + (J1 C A B) (J2 B D E) (J3 A D) (Y J1 J3 J2) + ;; Example from the C3 paper https://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.19.3910 + ;; keeping only the initials of the classes + ;; object boat day-boat wheel-boat engine-less small-multihull pedal-wheel-boat small-catamaron pedalo + (DB B) (WB B) (EL DB) (SM DB) (PWB EL WB) (SC SM) (P PWB SC) + ;; Other example from the paper, that leads to order inconsistency + ;; also keeping only the initials of the classes + ;; object grid-layout horizontal-grid vertical-grid hv-grid vh-grid ;; omitting confused-grid for now + (GL O) (HG GL) (VG GL) (HVG HG VG) (VHG VG HG) #; (CG HVG VHG) + ;; https://stackoverflow.com/questions/40478154/does-pythons-mro-c3-linearization-work-depth-first-empirically-it-does-not + (h) (g h) (i g) (f h) (e h) (d f) (c e f g) (b) (a b c d)) + +(def my-precedence-lists + '((O) (A O) (B O) (C O) (D O) (E O) + (K1 A B C O) (K2 D B E O) (K3 D A O) (Z K1 K2 K3 D A B C E O) + (J1 C A B O) (J2 B D E O) (J3 A D O) (Y J1 C J3 A J2 B D E O) + (DB B O) (WB B O) (EL DB B O) (SM DB B O) (PWB EL DB WB B O) (SC SM DB B O) + (P PWB EL SC SM DB WB B O) + (GL O) (HG GL O) (VG GL O) (HVG HG VG GL O) (VHG VG HG GL O) #;(CG --- error!) + (h) (g h) (i g h) (f h) (e h) (d f h) (c e f g h) (b) (a b c e d f g h))) + +(def-alist-getter my-get-supers my-supers my-supers-table) +(def-alist-getter my-get-precedence-list my-precedence-lists my-precedence-lists-table) +(def (my-compute-precedence-list x) (c3-linearize* x my-get-supers eqv?)) + +(def c3-test + (test-suite "test :gerbil/runtime/c3" + (test-case "c3 linearization" + (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)) + (check (old-linearize-supers 'Z) => '(Z K1 K2 K3 D B E A C O)) ; different: B A C bad! + (check (my-compute-precedence-list 'Y) => '(Y J1 C J3 A J2 B D E O)) + (check (old-linearize-supers 'Y) => '(Y J1 C J3 A J2 B D E O)) ; same + (check (my-compute-precedence-list 'P) => '(P PWB EL SC SM DB WB B O)) + (check (old-linearize-supers 'P) => '(P PWB EL SC SM DB WB B O)) ; same + (check (my-compute-precedence-list 'a) => '(a b c e d f g h)) + (check (old-linearize-supers 'a) => '(a b c e d f g h)) ; same + + ;; 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)) + (check-exception (my-compute-precedence-list 'CG) true) + + ;; Legacy implementation: BAD. We want everything to match the precedence-list (or its reverse) + (check (map ##type-name (class-precedence-list Z::t)) => '(Z K1 K2 K3 D A B C E O)) ;; FIXED! + (check (map ##type-name (class-precedence-list Y::t)) => '(Y J1 C J3 A J2 B D E O)) ;; same! + + ;; Slot computation order now follows the MRO! + ;; Previously returned (O A B C K1 D E K2 K3 Z), which is so wrong: + (check (type-descriptor-all-slots Z::t) => #(#f 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 (type-descriptor-all-slots Y::t) => #(#f O E D B J2 A J3 C J1 Y)) + + (check (c3-linearize-loop [] (map copy-list '((import-expander user-expander) (export-expander user-expander) (import-expander export-expander)))) => '(import-expander export-expander user-expander)) + ))) diff --git a/src/std/cli/multicall.ss b/src/std/cli/multicall.ss index 2a44c5aca..9b2d9d017 100644 --- a/src/std/cli/multicall.ss +++ b/src/std/cli/multicall.ss @@ -48,7 +48,7 @@ (begin (def (id . formals) body ...) (register-entry-point id id: 'id options ...))) -(def multicall-default 'help) ;; NB: after v0.19, we can use defmutable +(defmutable multicall-default 'help) (def (set-default-entry-point! x) (set! multicall-default x)) @@ -56,7 +56,7 @@ (define-entry-point (help (command #f)) (help: "Print help about available commands" getopt: [(optional-argument 'command help: "subcommand for which to display help")]) - #;(displayln (display-build-manifest (build-manifest/head))) ;; only available in v0.19 + (displayln (display-build-manifest (build-manifest/head))) (def gopt (apply getopt (entry-points-getopt-spec))) (def program (current-program-string (cdr (current-program)))) (if command @@ -69,9 +69,7 @@ getopt: []) (displayln (string-join (sort (map as-string (hash-keys entry-points)) string" expr) - (call-with-values thunk (lambda x (v x) (apply values x)))))) - (if tag - (begin - (unless (void? tag) (f "~a~%" tag)) - (for-each x dbg-exprs dbg-thunks) - (if thunk (x expr thunk) (void))) - (if thunk (thunk) (void))))) +(DBG-printer pr) diff --git a/src/std/error.ss b/src/std/error.ss index 70f3bdc77..74f0152d4 100644 --- a/src/std/error.ss +++ b/src/std/error.ss @@ -29,6 +29,7 @@ (rename: raise-bug BUG) is-it-bug? with-exception-stack-trace + dump-stack-trace? dump-stack-trace! exit-with-error exit-on-error? @@ -363,14 +364,15 @@ (def port (current-error-port)) (defrules ignore-errors () ((_ body ...) (with-catch void (lambda () body ...)))) (ignore-errors (force-output port)) - #;(ignore-errors (display-build-manifest build-manifest port)) ;; only available in v0.19 + (ignore-errors (display-build-manifest build-manifest port)) (ignore-errors (newline port)) (ignore-errors (display-exception e port)) ;; If the stack trace was printed, making the message out of reach of the user, ;; then redundantly print the error message at the bottom without the stack trace. (ignore-errors - (when (StackTrace? e) - (display-exception e port))) + (when (and (dump-stack-trace?) (StackTrace? e)) + (parameterize ((dump-stack-trace? #f)) + (display-exception e port)))) (ignore-errors (force-output port)) (exit 2)) diff --git a/src/std/generic/dispatch.ss b/src/std/generic/dispatch.ss index 149b86ca4..cde1a38cc 100644 --- a/src/std/generic/dispatch.ss +++ b/src/std/generic/dispatch.ss @@ -77,33 +77,21 @@ ((##eq? obj #!eof) '(eof t)) (else '(unknown))))))) -(extern namespace: #f type-descriptor-mixin) ; runtime +(extern namespace: #f class-precedence-list) ; runtime (def (type-linearize-class klass) - (if (type-descriptor? klass) - (if (type-descriptor-mixin klass) - (type-linearize-class-type klass) - (type-linearize-struct-type klass)) - (type-linearize-record-type klass))) + (cond + ((type-descriptor? klass) (type-linearize-class-type klass)) + ((##type? klass) (type-linearize-struct-type klass)) + (else (error "Not a type object")))) (def (type-linearize-class-type klass) - (let lp ((rest (type-descriptor-mixin klass)) - (r [(##type-id klass)])) - (match rest - ([klass . rest] - (lp rest (cons (##type-id klass) r))) - (else - (foldl cons '(object t) r))))) + (append (map ##type-id (class-precedence-list klass)) + '(object t))) (def (type-linearize-struct-type klass) - (type-linearize-record-type klass '(object t))) - -(def (type-linearize-record-type klass (base '(t))) - (let lp ((klass klass) (r [])) - (if (##type? klass) - (lp (##type-super klass) - (cons (##type-id klass) r)) - (foldl cons base r)))) + (append (map ##type-id (struct-precedence-list klass)) + '(object t))) (def +subtype-id+ (make-vector 32 'unknown)) (def +subtype-linear+ (make-vector 32 '(unknown))) diff --git a/src/std/generic/macros.ss b/src/std/generic/macros.ss index 47e553ea3..87a92c411 100644 --- a/src/std/generic/macros.ss +++ b/src/std/generic/macros.ss @@ -4,7 +4,7 @@ (import :std/generic/dispatch (for-syntax :std/stxutil) - (rename-in (defmethod defmethod~))) + (rename-in (only-in defmethod) (defmethod defmethod~))) (export #t (phi: +1 #t)) (begin-syntax diff --git a/src/std/iter.ss b/src/std/iter.ss index 689eddc74..b32c6e5b6 100644 --- a/src/std/iter.ss +++ b/src/std/iter.ss @@ -45,6 +45,8 @@ (iter-vector obj)) (defmethod (:iter (obj )) (iter-string obj)) +(defmethod (:iter (obj )) + (iter-u8vector obj)) (defmethod (:iter (obj )) (iter-hash-table obj)) (defmethod (:iter (obj )) @@ -85,6 +87,7 @@ (defiter-vector iter-vector ##vector-length ##vector-ref) (defiter-vector iter-string ##string-length ##string-ref) +(defiter-vector iter-u8vector ##u8vector-length ##u8vector-ref) (def (iter-hash-table ht) (def (iterate) diff --git a/src/std/misc/func.ss b/src/std/misc/func.ss index 22d983a06..22ec3366f 100644 --- a/src/std/misc/func.ss +++ b/src/std/misc/func.ss @@ -15,7 +15,7 @@ ;; Repeat value or call function N times and return the result as list. ;; (repeat 2 5) -> (2 2 2 2 2) ; repeat the value 2 -;; (repeat random-interger 3 10) -> (8 3 5) ; repeated function call with passed argument +;; (repeat random-integer 3 10) -> (8 3 5) ; repeated function call with passed argument (def (repeat v-or-fn n-times . args) (declare (fixnum) (not safe)) (unless (fixnum? n-times) diff --git a/src/std/misc/repr.ss b/src/std/misc/repr.ss index 4c7de05bc..d4cda2c81 100644 --- a/src/std/misc/repr.ss +++ b/src/std/misc/repr.ss @@ -154,7 +154,7 @@ ((and (object? x) (let (t (object-type x)) - (and (type-descriptor? t) (assgetq transparent: (type-descriptor-plist t))))) + (and (type-descriptor? t) (assgetq transparent: (type-descriptor-properties t))))) (display-separated (if (struct-type? (object-type x)) (cdr (struct->list x)) diff --git a/src/std/misc/rtd.ss b/src/std/misc/rtd.ss index 72f528d31..a30d7b457 100644 --- a/src/std/misc/rtd.ss +++ b/src/std/misc/rtd.ss @@ -3,22 +3,23 @@ ;;; safe type descriptor accessors (import :std/error) (export (rename: checked-object-type object-type) - type? type-id type-name type-super + type? type=? type-id type-name type-super type-descriptor? - (rename: checked-type-descriptor-mixin type-descriptor-mixin) - (rename: checked-type-descriptor-fields type-descriptor-fields) - (rename: checked-type-descriptor-plist type-descriptor-plist) - (rename: checked-type-descriptor-ctor type-descriptor-ctor) - (rename: checked-type-descriptor-slots type-descriptor-slots) + (rename: checked-type-descriptor-precedence-list type-descriptor-precedence-list) + (rename: checked-type-descriptor-all-slots type-descriptor-all-slots) + (rename: checked-type-descriptor-properties type-descriptor-properties) + (rename: checked-type-descriptor-constructor type-descriptor-constructor) + (rename: checked-type-descriptor-slot-table type-descriptor-slot-table) (rename: checked-type-descriptor-methods type-descriptor-methods)) (extern namespace: #f - type-descriptor-mixin - type-descriptor-fields - type-descriptor-plist - type-descriptor-ctor - type-descriptor-slots - type-descriptor-methods) + type-descriptor-precedence-list + type-descriptor-all-slots + type-descriptor-properties + type-descriptor-constructor + type-descriptor-slot-table + type-descriptor-methods + type=?) (def (checked-object-type obj) (if (object? obj) @@ -46,9 +47,9 @@ (defcheck-type type-name ##type-name) (defcheck-type type-super ##type-super) -(defcheck-type-descriptor checked-type-descriptor-mixin type-descriptor-mixin) -(defcheck-type-descriptor checked-type-descriptor-fields type-descriptor-fields) -(defcheck-type-descriptor checked-type-descriptor-plist type-descriptor-plist) -(defcheck-type-descriptor checked-type-descriptor-ctor type-descriptor-ctor) -(defcheck-type-descriptor checked-type-descriptor-slots type-descriptor-slots) +(defcheck-type-descriptor checked-type-descriptor-precedence-list type-descriptor-precedence-list) +(defcheck-type-descriptor checked-type-descriptor-all-slots type-descriptor-all-slots) +(defcheck-type-descriptor checked-type-descriptor-properties type-descriptor-properties) +(defcheck-type-descriptor checked-type-descriptor-constructor type-descriptor-constructor) +(defcheck-type-descriptor checked-type-descriptor-slot-table type-descriptor-slot-table) (defcheck-type-descriptor checked-type-descriptor-methods type-descriptor-methods) diff --git a/src/std/protobuf/macros.ss b/src/std/protobuf/macros.ss index 99438c414..81b5d7284 100644 --- a/src/std/protobuf/macros.ss +++ b/src/std/protobuf/macros.ss @@ -191,11 +191,11 @@ (id id)) #'(begin (defstruct-type id::t #f make-id id? - fields: ((field-id getf setf) ...) + slots: ((field-id getf setf) ...) name: id constructor: :init! unchecked: #t - plist: '((final: . #t) (transparent: . #t))) + properties: '((final: . #t) (transparent: . #t))) (defsyntax id (make-message-type-info runtime-identifier: (quote-syntax id::t) diff --git a/src/std/srfi/9.ss b/src/std/srfi/9.ss index 9a3a3f95e..401668741 100644 --- a/src/std/srfi/9.ss +++ b/src/std/srfi/9.ss @@ -48,8 +48,8 @@ (module-type-id type-id) (gensym (stx-e type-id)))) (field-count (length fields)) - (plist [[fields: fields ...]])) - #'(define klass (make-struct-type 'id #f field-count 'klass 'plist #f)))) + ((field ...) fields)) + #'(define klass (make-struct-type 'id #f field-count 'klass '() #f '(field ...))))) (def (generate-predicate type-id predicate-id) (with-syntax ((klass type-id) diff --git a/src/std/text/json/util.ss b/src/std/text/json/util.ss index 3d17dce17..b6546782f 100644 --- a/src/std/text/json/util.ss +++ b/src/std/text/json/util.ss @@ -1,5 +1,5 @@ ;;; -*- Gerbil -*- -;;; ̧© vyzo, fare +;;; © vyzo, fare ;;; json utilities (import :gerbil/gambit @@ -84,51 +84,50 @@ ,@(plist->alist plist)))))) (def (trivial-json-object->class klass json) - (def (find-key s) - (or (and (symbol? s) s) - (##find-interned-keyword s) - (error "invalid json key for class" s klass))) + (def (find-key key) + (or (and (symbol? key) key) + (##find-interned-keyword key) + (error "invalid json key for class" key klass))) (apply make-class-instance klass (alist->plist (map (cut map/car find-key <>) (hash->list json))))) (def (trivial-struct->json-object struct) - (defvalues (strukt fields) (cons->values (struct->list struct))) - (def names (cdr (assoc fields: (type-descriptor-plist strukt)))) - (def json (make-hash-table)) - (def f (if (json-symbolic-keys) identity symbol->string)) - (for ((name names) (v fields)) (hash-put! json (f name) v)) - json) + (with ([strukt . fields] (struct->list struct)) + (let (f (if (json-symbolic-keys) cons (lambda (slot v) (cons (symbol->string slot) v)))) + (walist (map f (cdr (vector->list (type-descriptor-all-slots strukt))) fields))))) (def (trivial-json-object->struct strukt json (defaults #f)) (unless defaults (set! defaults (hash))) - (def names (list->vector (cdr (assoc fields: (type-descriptor-plist strukt))))) - (def positions (invert-hash<-vector names)) - (def (pos<-field f) - (def s (cond - ((symbol? f) f) - ((string? f) (##find-interned-symbol f)) - (else #f))) - (or (hash-get positions s) - (error "invalid json key for struct" f strukt json))) - (def n (vector-length names)) - (def fields (make-vector n #f)) + (def offsets (type-descriptor-slot-table strukt)) + (def slots (type-descriptor-all-slots strukt)) + (def n (vector-length slots)) + (def (get-pos key) + (def slot + (cond + ((symbol? key) key) + ((string? key) (##find-interned-symbol key)) + (else #f))) + (or (hash-get offsets slot) + (error "invalid json key for struct" key strukt json))) + (def object (make-object* strukt n)) (def bound? (make-vector n #f)) + (vector-set! bound? 0 #t) (for (((values k v) (in-hash json))) - (let (p (pos<-field k)) + (let (p (get-pos k)) (when (vector-ref bound? p) (error "field multiply defined" k strukt json)) (vector-set! bound? p #t) - (vector-set! fields p v))) + (##vector-set! object p v))) (def unbounds (with-list-builder (c) - (for ((i (in-naturals)) - (b? bound?) - (name names)) - (cond - (b? (void)) - ((hash-key? defaults name) (vector-set! fields i (hash-ref defaults name))) - (else (c name)))))) + (for ((p (in-range 1 n))) + (let ((b? (vector-ref bound? p)) + (slot (vector-ref slots p))) + (cond + (b? (void)) + ((hash-key? defaults slot) (##vector-set! object p (hash-ref defaults slot))) + (else (c slot))))))) (unless (null? unbounds) (error "unbound fields" unbounds strukt json)) - (apply make-struct-instance strukt (vector->list fields))) + object) ;; Mixin for a trivial method that just lists all slots (defclass JSON ())