diff --git a/doc/reference/dev/bootstrap.md b/doc/reference/dev/bootstrap.md index 92a50a29f2..0e42a9e841 100644 --- a/doc/reference/dev/bootstrap.md +++ b/doc/reference/dev/bootstrap.md @@ -30,7 +30,7 @@ summarized in a quotable one liner: ## 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,7 +41,7 @@ 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. @@ -71,7 +71,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 +91,61 @@ 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 more systematic names. +- The *old* API will temporarily coexist with use the *new* API. +- When shared data structures are involved, the *old* API may have + to be translated in terms of the *new* API. +- 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 now bootstrap a next version 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” wanted 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. + +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 +171,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 +207,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 4ea4381d4a..39494b1542 100644 --- a/doc/reference/gerbil/runtime/MOP.md +++ b/doc/reference/gerbil/runtime/MOP.md @@ -305,15 +305,16 @@ 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 alist 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 + direct-supers := list of type-descriptors or #f; super types + direct-slots := list of symbols; class slot names + alist := alist; type properties + 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 diff --git a/doc/reference/std/debug.md b/doc/reference/std/debug.md index eeb6d0aa19..5791baaa11 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 eb1f8768c5..93f9c92139 100644 --- a/doc/reference/std/errors.md +++ b/doc/reference/std/errors.md @@ -426,7 +426,23 @@ 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 `with-exception-stack-trace` +will actually dump a stack trace to standard error. + +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. ### dump-stack-trace! ```scheme diff --git a/doc/reference/std/misc/rtd.md b/doc/reference/std/misc/rtd.md index 31e9c907c9..2b02c6dade 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, but at present +`equal?` seems to be broken, by considering types as equal +that you would want to distinguish. + +::: 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 diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index 0fb7d46645..3f067d7927 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 1697117338) + (define gerbil/compiler/base::timestamp 1701173525) (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/base__1.scm b/src/bootstrap/gerbil/compiler/base__1.scm index 432c9f0540..6b47036897 100644 --- a/src/bootstrap/gerbil/compiler/base__1.scm +++ b/src/bootstrap/gerbil/compiler/base__1.scm @@ -62,7 +62,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g5372_)))) (_g51380_ (lambda (_g5380_) @@ -153,7 +153,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g156168_)))) (_g154233_ (lambda (_g156176_) @@ -294,7 +294,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx53725373_))))) (let ((___kont53755376_ (lambda (_L353_ _L355_) @@ -488,7 +488,10 @@ (lambda (_g391400_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g391400_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g391400_)))) (_g389445_ (lambda (_g391408_) (if (let () (declare (not safe)) (gx#stx-pair? _g391408_)) diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index 073fd9d7cf..f362cce28a 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssi +++ b/src/bootstrap/gerbil/compiler/compile.ssi @@ -9,15 +9,15 @@ namespace: gxc (in: :gerbil/core ) (spec: (:gerbil/gambit) + (0 s32vector? 0 s32vector?) (0 f32vector? 0 f32vector?) - (0 f64vector? 0 f64vector?) (0 s64vector? 0 s64vector?) (0 s8vector? 0 s8vector?) - (0 s32vector? 0 s32vector?) + (0 s16vector? 0 s16vector?) + (0 f64vector? 0 f64vector?) (0 u64vector? 0 u64vector?) (0 u32vector? 0 u32vector?) (0 u16vector? 0 u16vector?) - (0 s16vector? 0 s16vector?) (0 u8vector? 0 u8vector?))) (%#export #t) (%#define-runtime gambit-annotations gxc#gambit-annotations) diff --git a/src/bootstrap/gerbil/compiler/compile__0.scm b/src/bootstrap/gerbil/compiler/compile__0.scm index 5240778091..f90194071d 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 1697117338) + (define gerbil/compiler/compile::timestamp 1701173525) (begin (define gxc#_g18463_ (gx#core-deserialize-mark - '(0 (else . _else16755_) (hd . _hd16778_)) + '(0 (hd . _hd16778_) (else . _else16755_)) (gx#current-expander-context))) (define gxc#_g18464_ (##structure @@ -15,7 +15,7 @@ (list gxc#_g18463_))) (define gxc#_g18469_ (gx#core-deserialize-mark - '(0 (else . _else16816_) (hd . _hd16839_)) + '(0 (hd . _hd16839_) (else . _else16816_)) (gx#current-expander-context))) (define gxc#_g18470_ (##structure @@ -26,7 +26,7 @@ (list gxc#_g18469_))) (define gxc#_g18475_ (gx#core-deserialize-mark - '(0 (else . _else16878_) (hd . _hd16901_)) + '(0 (hd . _hd16901_) (else . _else16878_)) (gx#current-expander-context))) (define gxc#_g18476_ (##structure @@ -37,7 +37,7 @@ (list gxc#_g18475_))) (define gxc#_g18481_ (gx#core-deserialize-mark - '(0 (else . _else16941_) (hd . _hd16964_)) + '(0 (hd . _hd16964_) (else . _else16941_)) (gx#current-expander-context))) (define gxc#_g18482_ (##structure @@ -107,7 +107,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1698016981_))))) (let ((___kont1698216983_ (lambda (_L16770_) @@ -160,7 +160,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1699416995_))))) (let ((___kont1699616997_ (lambda (_L16831_) @@ -213,7 +213,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1700817009_))))) (let ((___kont1701017011_ (lambda (_L16893_) @@ -269,7 +269,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1702217023_))))) (let ((___kont1702417025_ (lambda (_L16956_) @@ -1835,7 +1835,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1642616432_)))) (_g1642416469_ (lambda (_g1642616438_) @@ -1921,7 +1921,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1635216362_)))) (_g1635016415_ (lambda (_g1635216368_) @@ -2030,7 +2030,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1627516288_)))) (_g1627316345_ (lambda (_g1627516294_) @@ -2143,7 +2143,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1619816211_)))) (_g1619616268_ (lambda (_g1619816217_) @@ -2256,7 +2256,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1612016133_)))) (_g1611816191_ (lambda (_g1612016139_) @@ -2376,7 +2376,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1604316056_)))) (_g1604116113_ (lambda (_g1604316062_) @@ -2489,7 +2489,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1591815942_)))) (_g1591616036_ (lambda (_g1591815948_) @@ -2687,7 +2687,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1576415795_)))) (_g1576215911_ (lambda (_g1576415801_) @@ -2953,7 +2953,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1568715700_)))) (_g1568515757_ (lambda (_g1568715706_) @@ -3066,7 +3066,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1559315608_)))) (_g1559115680_ (lambda (_g1559315614_) @@ -3209,7 +3209,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1552315536_)))) (_g1552115586_ (lambda (_g1552315542_) @@ -3303,7 +3303,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1545615469_)))) (_g1545415517_ (lambda (_g1545615475_) @@ -3387,7 +3387,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1539915409_)))) (_g1539715450_ (lambda (_g1539915415_) @@ -3974,7 +3974,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1509215098_)))) (_g1509015130_ (lambda (_g1509215104_) @@ -4019,7 +4019,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1505215058_)))) (_g1505015084_ (lambda (_g1505215064_) @@ -4060,7 +4060,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1715317154_))))) (let ((___kont1715517156_ (lambda (_L15031_ _L15032_) @@ -4456,7 +4456,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1477714783_)))) (_g1477514811_ (lambda (_g1477714789_) @@ -4500,7 +4500,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1452414537_)))) (_g1452214771_ (lambda (_g1452414543_) @@ -4564,7 +4564,7 @@ (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1726117262_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((___kont1726317264_ @@ -4624,7 +4624,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1723117232_))))) (let ((___kont1723317234_ (lambda (_L14704_) @@ -5337,7 +5337,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1441814431_)))) (_g1441614479_ (lambda (_g1441814437_) @@ -5477,7 +5477,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1729317294_))))) (let ((___kont1729517296_ (lambda (_L14293_ _L14294_ _L14295_) '#t)) @@ -7476,7 +7476,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1743717438_))))) (let ((___kont1743917440_ (lambda (_L13569_ _L13570_ _L13571_) @@ -8646,7 +8646,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1292312947_)))) (_g1292113052_ (lambda (_g1292312953_) @@ -9549,7 +9549,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1774817749_))))) (let ((___kont1775017751_ (lambda (_L12359_ _L12360_) @@ -9560,7 +9560,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1770417705_))))) (let ((___kont1770617707_ (lambda (_L12473_ _L12474_) @@ -9862,7 +9862,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1220112214_)))) (_g1219912263_ (lambda (_g1220112220_) @@ -9986,7 +9986,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1776217763_))))) (let ((___kont1776417765_ (lambda (_L12176_) @@ -10111,7 +10111,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1783617837_))))) (let ((___kont1783817839_ (lambda (_L11899_ _L11900_) @@ -10122,7 +10122,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1779217793_))))) (let ((___kont1779417795_ (lambda (_L12047_ _L12048_) @@ -10456,7 +10456,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1177511788_)))) (_g1177311837_ (lambda (_g1177511794_) @@ -10602,7 +10602,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1785017851_))))) (let ((___kont1785217853_ (lambda (_L11732_ _L11733_) @@ -10846,7 +10846,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1151111524_)))) (_g1150911578_ (lambda (_g1151111530_) @@ -10954,7 +10954,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1789417895_))))) (let ((___kont1789617897_ (lambda (_L11465_ _L11466_) '#t)) @@ -11011,7 +11011,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1135511368_)))) (_g1135311417_ (lambda (_g1135511374_) @@ -11390,7 +11390,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1111011119_)))) (_g1110811156_ (lambda (_g1111011125_) @@ -11468,7 +11468,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1794117942_))))) (let ((___kont1794317944_ (lambda (_L11032_ _L11033_ _L11034_ _L11035_) @@ -11885,7 +11885,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1062810638_)))) (_g1062610846_ (lambda (_g1062810644_) @@ -11936,7 +11936,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1805718058_))))) (let ((___kont1805918060_ (lambda () @@ -11982,7 +11982,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1801118012_))))) (let ((___kont1801318014_ (lambda () @@ -12220,7 +12220,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1812918130_))))) (let ((___kont1813118132_ (lambda (_L10478_ _L10479_) @@ -12279,7 +12279,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1808318084_))))) (let ((___kont1808518086_ (lambda () @@ -12698,7 +12698,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1022910246_)))) (_g1022710308_ (lambda (_g1022910252_) @@ -12867,7 +12867,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1017610185_)))) (_g1017410221_ (lambda (_g1017610191_) @@ -12929,7 +12929,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g1010910122_)))) (_g1010710170_ (lambda (_g1010910128_) @@ -13024,7 +13024,10 @@ (lambda (_g99219934_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g99219934_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g99219934_)))) (_g991910103_ (lambda (_g99219940_) (if (let () @@ -13134,7 +13137,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1816718168_))))) (let ((___kont1816918170_ (lambda () @@ -13312,7 +13315,10 @@ (lambda (_g97339746_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g97339746_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g97339746_)))) (_g97319915_ (lambda (_g97339752_) (if (let () @@ -13422,7 +13428,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1821318214_))))) (let ((___kont1821518216_ (lambda () @@ -13599,7 +13605,10 @@ (lambda (_g96509667_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g96509667_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g96509667_)))) (_g96489727_ (lambda (_g96509673_) (if (let () @@ -13723,7 +13732,10 @@ (lambda (_g95519572_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g95519572_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g95519572_)))) (_g95499644_ (lambda (_g95519578_) (if (let () @@ -13870,7 +13882,10 @@ (lambda (_g94689485_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g94689485_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g94689485_)))) (_g94669545_ (lambda (_g94689491_) (if (let () @@ -13994,7 +14009,10 @@ (lambda (_g93699390_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g93699390_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g93699390_)))) (_g93679462_ (lambda (_g93699396_) (if (let () @@ -14141,7 +14159,10 @@ (lambda (_g91659182_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g91659182_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g91659182_)))) (_g91639363_ (lambda (_g91659188_) (if (let () @@ -14292,7 +14313,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1825918260_))))) (let ((___kont1826118262_ (lambda () @@ -14471,7 +14492,10 @@ (lambda (_g89458966_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g89458966_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g89458966_)))) (_g89439159_ (lambda (_g89458972_) (if (let () @@ -14644,7 +14668,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1830518306_))))) (let ((___kont1830718308_ (lambda () @@ -14972,7 +14996,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g88018807_)))) (_g87998891_ (lambda (_g88018813_) @@ -15540,7 +15564,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g86258634_)))) (_g86238676_ (lambda (_g86258640_) @@ -15632,7 +15656,10 @@ (lambda (_g85488561_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g85488561_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g85488561_)))) (_g85468609_ (lambda (_g85488567_) (if (let () @@ -15723,7 +15750,10 @@ (lambda (_g84988504_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g84988504_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g84988504_)))) (_g84968542_ (lambda (_g84988510_) (if (let () @@ -15775,7 +15805,10 @@ (lambda (_g84068412_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g84068412_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g84068412_)))) (_g84048491_ (lambda (_g84068418_) (if (let () @@ -15833,7 +15866,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g84478453_)))) (_g84458488_ (lambda (_g84478459_) @@ -15935,7 +15968,10 @@ (lambda (_g83378347_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g83378347_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g83378347_)))) (_g83358399_ (lambda (_g83378353_) (if (let () @@ -16255,7 +16291,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g80968102_)))) (_g80948246_ (lambda (_g80968108_) @@ -16550,7 +16586,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g79047910_)))) (_g79028082_ (lambda (_g79047916_) @@ -16785,7 +16821,10 @@ (lambda (_g78627868_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g78627868_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g78627868_)))) (_g78607894_ (lambda (_g78627874_) (if (let () @@ -16847,7 +16886,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g77357759_)))) (_g77337850_ (lambda (_g77357765_) @@ -17076,7 +17115,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g75267539_)))) (_g75247689_ (lambda (_g75267545_) @@ -17141,7 +17180,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1838218383_))))) (let ((___kont1838418385_ (lambda (_L7676_) @@ -17243,7 +17282,10 @@ (lambda (_g74207433_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g74207433_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g74207433_)))) (_g74187516_ (lambda (_g74207439_) (if (let () @@ -17319,7 +17361,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g74897492_)))) (_g74877513_ (lambda (_g74897498_) @@ -17442,7 +17484,10 @@ (lambda (_g73527365_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g73527365_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g73527365_)))) (_g73507413_ (lambda (_g73527371_) (if (let () @@ -17654,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)) @@ -17929,7 +17978,10 @@ (lambda (_g70547063_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g70547063_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g70547063_)))) (_g70527104_ (lambda (_g70547069_) (if (let () @@ -18005,7 +18057,10 @@ (lambda (_g69816994_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g69816994_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g69816994_)))) (_g69797047_ (lambda (_g69817000_) (if (let () @@ -18108,7 +18163,10 @@ (lambda (_g69426948_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g69426948_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g69426948_)))) (_g69406974_ (lambda (_g69426954_) (if (let () @@ -18142,7 +18200,10 @@ (lambda (_g69046910_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g69046910_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g69046910_)))) (_g69026936_ (lambda (_g69046916_) (if (let () @@ -18179,7 +18240,10 @@ (lambda (_g68376850_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g68376850_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g68376850_)))) (_g68356898_ (lambda (_g68376856_) (if (let () @@ -18257,7 +18321,10 @@ (lambda (_g67706783_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g67706783_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g67706783_)))) (_g67686831_ (lambda (_g67706789_) (if (let () @@ -18336,7 +18403,10 @@ (lambda (_g66866701_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g66866701_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g66866701_)))) (_g66846762_ (lambda (_g66866707_) (if (let () @@ -18449,7 +18519,10 @@ (lambda (_g66196632_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g66196632_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g66196632_)))) (_g66176680_ (lambda (_g66196638_) (if (let () @@ -18527,7 +18600,10 @@ (lambda (_g65526565_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g65526565_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g65526565_)))) (_g65506613_ (lambda (_g65526571_) (if (let () @@ -18608,7 +18684,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1841218413_))))) (let ((___kont1841418415_ (lambda (_L6516_ _L6517_) @@ -18798,7 +18874,10 @@ (lambda (_g63236340_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g63236340_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g63236340_)))) (_g63216413_ (lambda (_g63236346_) (if (let () diff --git a/src/bootstrap/gerbil/compiler/compile__1.scm b/src/bootstrap/gerbil/compiler/compile__1.scm index 68b1d06056..4de295470d 100644 --- a/src/bootstrap/gerbil/compiler/compile__1.scm +++ b/src/bootstrap/gerbil/compiler/compile__1.scm @@ -161,7 +161,10 @@ (lambda (_g54855502_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g54855502_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g54855502_)))) (_g54835576_ (lambda (_g54855510_) (if (let () (declare (not safe)) (gx#stx-pair? _g54855510_)) @@ -477,7 +480,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx1703617037_))))) (let ((___kont1703917040_ (lambda (_L5962_ _L5964_ _L5965_ _L5966_) @@ -1310,7 +1313,10 @@ (lambda (_g59946007_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g59946007_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g59946007_)))) (_g59926066_ (lambda (_g59946015_) (if (let () (declare (not safe)) (gx#stx-pair? _g59946015_)) @@ -1726,7 +1732,10 @@ (lambda (_g60756105_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g60756105_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g60756105_)))) (_g60736234_ (lambda (_g60756113_) (if (let () (declare (not safe)) (gx#stx-pair? _g60756113_)) @@ -2414,7 +2423,10 @@ (lambda (_g62446257_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g62446257_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g62446257_)))) (_g62426316_ (lambda (_g62446265_) (if (let () (declare (not safe)) (gx#stx-pair? _g62446265_)) diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index 6f75e65c98..9a207cb738 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 1697117343) + (define gerbil/compiler/driver::timestamp 1701173530) (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/driver__1.scm b/src/bootstrap/gerbil/compiler/driver__1.scm index 7b6821447c..ed650575b6 100644 --- a/src/bootstrap/gerbil/compiler/driver__1.scm +++ b/src/bootstrap/gerbil/compiler/driver__1.scm @@ -6,7 +6,10 @@ (lambda (_g6978069789_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g6978069789_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6978069789_)))) (_g6977869835_ (lambda (_g6978069797_) (if (let () (declare (not safe)) (gx#stx-pair? _g6978069797_)) @@ -88,7 +91,10 @@ (lambda (_g6984469853_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g6984469853_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6984469853_)))) (_g6984269898_ (lambda (_g6984469861_) (if (let () (declare (not safe)) (gx#stx-pair? _g6984469861_)) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index dac23f4619..2cff4a0298 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 1697117342) + (define gerbil/compiler/optimize-ann::timestamp 1701173529) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated @@ -151,7 +151,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5866358664_))))) (let ((___kont5866558666_ (lambda (_L58566_ _L58567_) @@ -537,7 +537,10 @@ (lambda (_g5770157727_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g5770157727_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g5770157727_)))) (_g5769958396_ (lambda (_g5770157733_) (if (let () @@ -687,7 +690,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5890158902_))))) (let ((___kont5890358904_ (lambda (_L58195_) @@ -698,7 +701,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5883758838_))))) (let ((___kont5883958840_ (lambda (_L58335_ _L58336_ _L58337_) @@ -1069,7 +1072,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5872158722_))))) (let ((___kont5872358724_ (lambda (_L58132_ _L58133_ _L58134_) @@ -1766,7 +1769,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g5759357605_)))) (_g5759157653_ (lambda (_g5759357611_) @@ -2286,7 +2289,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5900959010_))))) (let ((___kont5901159012_ (lambda (_L57244_ _L57245_ _L57246_) @@ -2332,7 +2335,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5899158992_))))) (let ((___kont5899358994_ (lambda () @@ -3256,7 +3259,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g5673356745_)))) (_g5673156798_ (lambda (_g5673356751_) @@ -3508,7 +3511,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g5659456606_)))) (_g5659256664_ (lambda (_g5659456612_) @@ -3667,7 +3670,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g5642156443_)))) (_g5641956547_ (lambda (_g5642156449_) @@ -4318,7 +4321,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5926759268_))))) (let ((___kont5926959270_ (lambda (_L56151_ _L56152_) @@ -4364,7 +4367,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5917359174_))))) (let ((___kont5917559176_ (lambda (_L55972_ _L55973_) @@ -4605,7 +4608,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5924159242_))))) (let ((___kont5924359244_ (lambda (_L56073_) @@ -6232,7 +6235,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5971959720_))))) (let ((___kont5972159722_ (lambda (_L54967_ _L54968_ _L54969_) @@ -7709,7 +7712,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5996959970_))))) (let ((___kont5997159972_ (lambda (_L54030_ _L54031_) @@ -7744,7 +7747,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx5993159932_))))) (let ((___kont5993359934_ (lambda (_L54131_ _L54132_ _L54133_) @@ -9257,7 +9260,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6027560276_))))) (let ((___kont6027760278_ (lambda (_L53228_ _L53229_) @@ -9296,7 +9299,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6018160182_))))) (let ((___kont6018360184_ (lambda (_L53052_ @@ -9523,7 +9526,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6024960250_))))) (let ((___kont6025160252_ (lambda (_L53151_) @@ -11560,7 +11563,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g5166251684_)))) (_g5166051777_ (lambda (_g5166251690_) @@ -11771,7 +11774,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6074560746_))))) (let ((___kont6074760748_ (lambda () '#t)) (___kont6074960750_ @@ -11783,7 +11786,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6072760728_))))) (let ((___kont6072960730_ (lambda () '#f)) @@ -12302,7 +12305,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g5121251234_)))) (_g5121051312_ (lambda (_g5121251240_) @@ -12742,7 +12745,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6084960850_))))) (let ((___kont6085160852_ (lambda (_L50748_ _L50749_ _L50750_) @@ -13368,7 +13371,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g5019850220_)))) (_g5019650300_ (lambda (_g5019850226_) @@ -13593,7 +13596,10 @@ (lambda (_g4980349829_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g4980349829_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g4980349829_)))) (_g4980150166_ (lambda (_g4980349835_) (if (let () @@ -13738,7 +13744,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6102161022_))))) (let ((___kont6102361024_ (lambda (_L50138_ _L50139_ _L50140_) @@ -14406,7 +14412,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6122361224_))))) (let ((___kont6122561226_ (lambda (_L49704_ _L49705_ _L49706_) @@ -14648,7 +14654,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6112561126_))))) (let ((___kont6112761128_ (lambda (_L49298_ @@ -16428,7 +16434,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4870548741_)))) (_g4870348870_ (lambda (_g4870548747_) @@ -16784,7 +16790,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4861648632_)))) (_g4861448696_ (lambda (_g4861648638_) @@ -17039,7 +17045,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6148361484_))))) (let ((___kont6148561486_ (lambda (_L48464_ _L48465_ _L48466_) @@ -17887,7 +17893,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4785347869_)))) (_g4785147936_ (lambda (_g4785347875_) @@ -18073,7 +18079,10 @@ (lambda (_g4762147634_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g4762147634_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g4762147634_)))) (_g4761947827_ (lambda (_g4762147640_) (if (let () @@ -18171,7 +18180,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6171961720_))))) (let ((___kont6172161722_ (lambda (_L47785_ _L47786_) @@ -18343,7 +18352,10 @@ (lambda (_g4753647553_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g4753647553_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g4753647553_)))) (_g4753447613_ (lambda (_g4753647559_) (if (let () @@ -18479,7 +18491,10 @@ (lambda (_g4745647471_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g4745647471_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g4745647471_)))) (_g4745447528_ (lambda (_g4745647477_) (if (let () diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index abcb6d72dc..23a63fdf2c 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 1697117338) + (define gerbil/compiler/optimize-base::timestamp 1701173525) (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 8b0e2f8305..0dfdcb85a4 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 1697117343) + (define gerbil/compiler/optimize-call::timestamp 1701173530) (begin (define gxc#&optimize-call (make-promise @@ -52,7 +52,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6554865549_))))) (let ((___kont6555065551_ (lambda (_L65432_ _L65433_) @@ -112,7 +112,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6553065531_))))) (let ((___kont6553265533_ (lambda (_L65489_) @@ -282,7 +282,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6558665587_))))) (let ((___kont6558865589_ (lambda (_L65305_) @@ -796,7 +796,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6563465635_))))) (let ((___kont6563665637_ (lambda (_L64796_) @@ -1028,7 +1028,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6566765668_))))) (let ((___kont6566965670_ (lambda (_L64502_ _L64503_) @@ -1285,7 +1285,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6570665707_))))) (let ((___kont6570865709_ (lambda (_L64213_) @@ -1600,7 +1600,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6574665747_))))) (let ((___kont6574865749_ (lambda (_L63784_) @@ -1714,7 +1714,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6576265763_))))) (let ((___kont6576465765_ (lambda (_L63566_ _L63567_) @@ -2454,7 +2454,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6579365794_))))) (let ((___kont6579565796_ (lambda (_L62730_ _L62731_) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm index 21a56a1002..f683d619c8 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 1697117340) + (define gerbil/compiler/optimize-spec::timestamp 1701173527) (begin (define gxc#&generate-method-specializers (make-promise @@ -904,7 +904,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx4538145382_))))) (let ((___kont4538345384_ (lambda (_L41979_ _L41980_) @@ -1035,7 +1035,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx4529545296_))))) (let ((___kont4529745298_ (lambda (_L42575_ _L42576_ _L42577_) @@ -1400,7 +1400,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4272842743_)))) (_g4272643097_ (lambda (_g4272842749_) @@ -1490,7 +1490,7 @@ (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx4532145322_))))) (let ((___kont4532345324_ (lambda (_L42842_ @@ -1734,7 +1734,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx4534145342_))))) (let ((___kont4534345344_ (lambda (_L43032_ @@ -1903,7 +1903,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4310143127_)))) (_g4309943818_ (lambda (_g4310143133_) @@ -2040,7 +2040,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4321743231_)))) (_g4321543285_ (lambda (_g4321743237_) @@ -2120,7 +2120,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4328943304_)))) (_g4328743426_ (lambda (_g4328943310_) @@ -2209,7 +2209,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4336043371_)))) (_g4335843416_ (lambda (_g4336043377_) @@ -2502,7 +2502,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4354243556_)))) (_g4354043632_ (lambda (_g4354243562_) @@ -2609,7 +2609,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4364143656_)))) (_g4363943793_ (lambda (_g4364143662_) @@ -2703,7 +2703,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx4536145362_))))) (let ((___kont4536345364_ (lambda (_L43757_ @@ -2976,7 +2976,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4382243871_)))) (_g4382045146_ (lambda (_g4382243877_) @@ -3254,7 +3254,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4403544093_)))) (_g4403345143_ (lambda (_g4403544099_) @@ -3618,7 +3618,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4429844308_)))) (_g4429644482_ (lambda (_g4429844314_) @@ -4013,7 +4013,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4448644512_)))) (_g4448445140_ (lambda (_g4448644518_) @@ -4147,7 +4147,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4460244612_)))) (_g4460044656_ (lambda (_g4460244618_) @@ -4219,7 +4219,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4466044675_)))) (_g4465844783_ (lambda (_g4466044681_) @@ -4306,7 +4306,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4473144738_)))) (_g4472944773_ (lambda (_g4473144744_) @@ -4549,7 +4549,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4489944909_)))) (_g4489744976_ (lambda (_g4489944915_) @@ -4635,7 +4635,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4498545000_)))) (_g4498345115_ (lambda (_g4498545006_) @@ -4732,7 +4732,7 @@ (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g4505845065_)))) (_g4505645103_ (lambda (_g4505845071_) @@ -5355,7 +5355,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx4541745418_))))) (let ((___kont4541945420_ (lambda (_L41854_ _L41855_ _L41856_ _L41857_) @@ -7873,7 +7873,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx4615746158_))))) (let ((___kont4615946160_ (lambda (_L40351_ _L40352_ _L40353_ _L40354_) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index c8bcce60c5..8d082606cd 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 1697117339) + (define gerbil/compiler/optimize-top::timestamp 1701173526) (begin (define gxc#&collect-top-level-type-info (make-promise @@ -345,7 +345,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3507735078_))))) (let ((___kont3507935080_ (lambda (_L34937_ _L34938_) @@ -487,7 +487,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3511335114_))))) (let ((___kont3511535116_ (lambda (_L34842_ _L34843_) @@ -704,7 +704,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3516935170_))))) (let ((___kont3517135172_ (lambda (_L34704_) @@ -776,7 +776,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g3451634547_)))) (_g3451434667_ (lambda (_g3451634553_) @@ -1027,7 +1027,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3518535186_))))) (let ((___kont3518735188_ (lambda (_L34461_ _L34462_ _L34463_ _L34464_ _L34465_) @@ -2724,7 +2724,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3544535446_))))) (let ((___kont3544735448_ (lambda (_L33987_) @@ -2767,7 +2767,10 @@ (lambda (_g3387933892_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g3387933892_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g3387933892_)))) (_g3387733940_ (lambda (_g3387933898_) (if (let () @@ -2849,7 +2852,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3546735468_))))) (let ((___kont3546935470_ (lambda (_L33864_) @@ -6906,7 +6909,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g3218932195_)))) (_g3218732224_ (lambda (_g3218932201_) @@ -6945,7 +6948,10 @@ (lambda (_g3211932132_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g3211932132_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g3211932132_)))) (_g3211732181_ (lambda (_g3211932138_) (if (let () @@ -7037,7 +7043,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3608136082_))))) (let ((___kont3608336084_ (lambda (_L32088_ _L32089_) @@ -7143,7 +7149,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3611936120_))))) (let ((___kont3612136122_ (lambda (_L31970_ _L31971_ _L31972_ _L31973_ _L31974_) @@ -7857,7 +7863,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3638736388_))))) (let ((___kont3638936390_ (lambda (_L31483_) @@ -7939,7 +7945,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3642136422_))))) (let ((___kont3642336424_ (lambda (_L31389_ _L31390_) @@ -8122,7 +8128,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3647936480_))))) (let ((___kont3648136482_ (lambda (_L31259_ _L31260_) @@ -8326,7 +8332,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3653736538_))))) (let ((___kont3653936540_ (lambda (_L31130_ _L31131_ _L31132_) @@ -9555,7 +9561,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3667936680_))))) (let ((___kont3668136682_ (lambda (_L30555_ _L30556_ _L30557_ _L30558_ _L30559_) @@ -11451,7 +11457,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3692936930_))))) (let ((___kont3693136932_ (lambda (_L30084_) @@ -11533,7 +11539,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3696336964_))))) (let ((___kont3696536966_ (lambda (_L29990_ _L29991_) @@ -11716,7 +11722,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3702137022_))))) (let ((___kont3702337024_ (lambda (_L29860_ _L29861_) @@ -11984,7 +11990,10 @@ (lambda (_g2971429723_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2971429723_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2971429723_)))) (_g2971229759_ (lambda (_g2971429729_) (if (let () @@ -12050,7 +12059,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3707937080_))))) (let ((___kont3708137082_ (lambda (_L29631_ _L29632_ _L29633_) '#t)) (___kont3708737088_ @@ -13968,7 +13977,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3722337224_))))) (let ((___kont3722537226_ (lambda (_L28911_ _L28912_ _L28913_) @@ -14958,7 +14967,10 @@ (lambda (_g2822028230_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2822028230_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2822028230_)))) (_g2821828410_ (lambda (_g2822028236_) (if (let () @@ -15002,7 +15014,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3734537346_))))) (let ((___kont3734737348_ (lambda (_L28389_) @@ -15174,7 +15186,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3737337374_))))) (let ((___kont3737537376_ (lambda (_L28203_) '#t)) (___kont3737737378_ (lambda () '#f))) @@ -15206,7 +15218,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3739137392_))))) (let ((___kont3739337394_ (lambda (_L28156_) '#t)) (___kont3739537396_ (lambda () '#f))) @@ -15238,7 +15250,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3740937410_))))) (let ((___kont3741137412_ (lambda (_L28093_ _L28094_ _L28095_) @@ -15398,7 +15410,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3747137472_))))) (let ((___kont3747337474_ (lambda (_L27866_ @@ -16486,7 +16498,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g2709327100_)))) (_g2709127288_ (lambda (_g2709327106_) @@ -16553,7 +16565,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3785537856_))))) (let ((___kont3785737858_ (lambda (_L27264_) @@ -16957,7 +16969,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3790337904_))))) (let ((___kont3790537906_ (lambda (_L26955_ _L26956_) @@ -16968,7 +16980,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3788337884_))))) (let ((___kont3788537886_ (lambda (_L27031_) _stx26336_)) @@ -17113,7 +17125,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g2679126817_)))) (_g2678926915_ (lambda (_g2679126823_) @@ -17400,7 +17412,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g2650526554_)))) (_g2650326733_ (lambda (_g2650526560_) @@ -18238,7 +18250,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3803938040_))))) (let ((___kont3804138042_ (lambda (_L26214_ _L26215_) @@ -18249,7 +18261,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3801938020_))))) (let ((___kont3802138022_ (lambda (_L26292_) @@ -18393,7 +18405,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g2605826084_)))) (_g2605626182_ (lambda (_g2605826090_) @@ -18875,7 +18887,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3810738108_))))) (let ((___kont3810938110_ (lambda (_L25884_ _L25885_) @@ -18972,7 +18984,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3813738138_))))) (let ((___kont3813938140_ (lambda (_L25566_ _L25567_) @@ -18982,7 +18994,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g2558225631_)))) (_g2558025810_ (lambda (_g2558225637_) @@ -19628,7 +19640,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3818138182_))))) (let ((___kont3818338184_ (lambda (_L25362_ _L25363_) @@ -20076,7 +20088,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3823138232_))))) (let ((___kont3823338234_ (lambda (_L25146_ _L25147_) @@ -20087,7 +20099,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3821138212_))))) (let ((___kont3821338214_ (lambda (_L25224_) @@ -20224,7 +20236,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g2499025016_)))) (_g2498825114_ (lambda (_g2499025022_) @@ -20478,7 +20490,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g2471424763_)))) (_g2471224942_ (lambda (_g2471424769_) @@ -21197,7 +21209,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3832338324_))))) (let ((___kont3832538326_ (lambda (_L24505_ _L24506_ _L24507_) @@ -21411,7 +21423,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx3835338354_))))) (let ((___kont3835538356_ (lambda (_L24386_ _L24387_) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__1.scm b/src/bootstrap/gerbil/compiler/optimize-top__1.scm index 5d92fc9222..9e8cfde0a6 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__1.scm @@ -5,7 +5,10 @@ (lambda (_g2419624220_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2419624220_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2419624220_)))) (_g2419424325_ (lambda (_g2419624228_) (if (let () (declare (not safe)) (gx#stx-pair? _g2419624228_)) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index 4cd8571a9c..83cfedc63f 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 1697117339) + (define gerbil/compiler/optimize-xform::timestamp 1701173525) (begin (define gxc#&identity-expression (make-promise @@ -724,7 +724,10 @@ (lambda (_g2363823644_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2363823644_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2363823644_)))) (_g2363623672_ (lambda (_g2363823650_) (if (let () @@ -767,7 +770,10 @@ (lambda (_g2359623602_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2359623602_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2359623602_)))) (_g2359423631_ (lambda (_g2359623608_) (if (let () @@ -825,7 +831,10 @@ (lambda (_g2352423534_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2352423534_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2352423534_)))) (_g2352223589_ (lambda (_g2352423540_) (if (let () @@ -950,7 +959,10 @@ (lambda (_g2344523458_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2344523458_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2344523458_)))) (_g2344323517_ (lambda (_g2344523464_) (if (let () @@ -1069,7 +1081,10 @@ (lambda (_g2336523378_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2336523378_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2336523378_)))) (_g2336323438_ (lambda (_g2336523384_) (if (let () @@ -1198,7 +1213,10 @@ (lambda (_g2328623299_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2328623299_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2328623299_)))) (_g2328423358_ (lambda (_g2328623305_) (if (let () @@ -1317,7 +1335,10 @@ (lambda (_g2322923239_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2322923239_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2322923239_)))) (_g2322723279_ (lambda (_g2322923245_) (if (let () @@ -1389,7 +1410,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g2318523192_)))) (_g2318323222_ (lambda (_g2318523198_) @@ -1430,7 +1451,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g2314423150_)))) (_g2314223179_ (lambda (_g2314423156_) @@ -1473,7 +1494,10 @@ (lambda (_g2293622965_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2293622965_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2293622965_)))) (_g2293423135_ (lambda (_g2293622971_) (if (let () @@ -1628,7 +1652,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g2305623068_)))) (_g2305423125_ (lambda (_g2305623074_) @@ -1809,7 +1833,10 @@ (lambda (_g2289222899_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2289222899_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2289222899_)))) (_g2289022929_ (lambda (_g2289222905_) (if (let () @@ -1854,7 +1881,10 @@ (lambda (_g2281322826_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2281322826_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2281322826_)))) (_g2281122885_ (lambda (_g2281322832_) (if (let () @@ -1973,7 +2003,10 @@ (lambda (_g2274322756_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2274322756_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2274322756_)))) (_g2274122806_ (lambda (_g2274322762_) (if (let () @@ -2072,7 +2105,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx2383823839_))))) (let ((___kont2384023841_ (lambda (_L22690_ _L22691_ _L22692_ _L22693_ _L22694_) @@ -2568,7 +2601,10 @@ (lambda (_g2224622255_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2224622255_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2224622255_)))) (_g2224422291_ (lambda (_g2224622261_) (if (let () @@ -2644,7 +2680,10 @@ (lambda (_g2218622195_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2218622195_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2218622195_)))) (_g2218422238_ (lambda (_g2218622201_) (if (let () @@ -2729,7 +2768,10 @@ (lambda (_g2211522128_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2211522128_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2211522128_)))) (_g2211322179_ (lambda (_g2211522134_) (if (let () @@ -2836,7 +2878,10 @@ (lambda (_g2203822051_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2203822051_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2203822051_)))) (_g2203622107_ (lambda (_g2203822057_) (if (let () @@ -2947,7 +2992,10 @@ (lambda (_g2198421993_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2198421993_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2198421993_)))) (_g2198222031_ (lambda (_g2198421999_) (if (let () @@ -3013,7 +3061,10 @@ (lambda (_g2191421927_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2191421927_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2191421927_)))) (_g2191221977_ (lambda (_g2191421933_) (if (let () @@ -3105,7 +3156,10 @@ (lambda (_g2182721842_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2182721842_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2182721842_)))) (_g2182521907_ (lambda (_g2182721848_) (if (let () @@ -3218,7 +3272,10 @@ (lambda (_g2175921772_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2175921772_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2175921772_)))) (_g2175721820_ (lambda (_g2175921778_) (if (let () @@ -3298,7 +3355,10 @@ (lambda (_g2169121704_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2169121704_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2169121704_)))) (_g2168921752_ (lambda (_g2169121710_) (if (let () @@ -3378,7 +3438,10 @@ (lambda (_g2157321597_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2157321597_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2157321597_)))) (_g2157121684_ (lambda (_g2157321603_) (if (let () @@ -3546,7 +3609,10 @@ (lambda (_g2142321454_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2142321454_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2142321454_)))) (_g2142121566_ (lambda (_g2142321460_) (if (let () @@ -3779,7 +3845,10 @@ (lambda (_g2135521368_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2135521368_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2135521368_)))) (_g2135321416_ (lambda (_g2135521374_) (if (let () @@ -3859,7 +3928,10 @@ (lambda (_g2129921308_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2129921308_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2129921308_)))) (_g2129721348_ (lambda (_g2129921314_) (if (let () @@ -3923,7 +3995,10 @@ (lambda (_g2122321236_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g2122321236_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2122321236_)))) (_g2122121292_ (lambda (_g2122321242_) (if (let () diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index e9f06b1218..7b75b55f23 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 1697117343) + (define gerbil/compiler/optimize::timestamp 1701173530) (begin (define gxc#optimizer-info-init! (lambda () @@ -427,7 +427,10 @@ (lambda (_g6921269218_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g6921269218_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6921269218_)))) (_g6921069245_ (lambda (_g6921269224_) (if (let () @@ -474,7 +477,10 @@ (lambda (_g6915269162_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g6915269162_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6915269162_)))) (_g6915069206_ (lambda (_g6915269168_) (if (let () @@ -596,7 +602,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6938169382_))))) (let ((___kont6938369384_ (lambda (_L69120_) @@ -922,7 +928,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx6943969440_))))) (let ((___kont6944169442_ (lambda (_L68909_ _L68910_ _L68911_ _L68912_ _L68913_) diff --git a/src/bootstrap/gerbil/compiler/ssxi__1.scm b/src/bootstrap/gerbil/compiler/ssxi__1.scm index 673661dc32..85bc6cb914 100644 --- a/src/bootstrap/gerbil/compiler/ssxi__1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi__1.scm @@ -6,7 +6,10 @@ (lambda (_g7446374476_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7446374476_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7446374476_)))) (_g7446174535_ (lambda (_g7446374484_) (if (let () (declare (not safe)) (gx#stx-pair? _g7446374484_)) @@ -102,7 +105,10 @@ (lambda (_g7454474568_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7454474568_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7454474568_)))) (_g7454274672_ (lambda (_g7454474576_) (if (let () (declare (not safe)) (gx#stx-pair? _g7454474576_)) @@ -279,7 +285,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx7867878679_))))) (let ((___kont7868178682_ (lambda (_L74852_ _L74854_ _L74855_ _L74856_) @@ -519,7 +525,10 @@ (lambda (_g7488674916_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7488674916_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7488674916_)))) (_g7488475039_ (lambda (_g7488674924_) (if (let () (declare (not safe)) (gx#stx-pair? _g7488674924_)) @@ -724,7 +733,10 @@ (lambda (_g7504975077_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7504975077_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7504975077_)))) (_g7504775195_ (lambda (_g7504975085_) (if (let () (declare (not safe)) (gx#stx-pair? _g7504975085_)) @@ -922,7 +934,10 @@ (lambda (_g7520575214_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7520575214_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7520575214_)))) (_g7520375259_ (lambda (_g7520575222_) (if (let () (declare (not safe)) (gx#stx-pair? _g7520575222_)) @@ -1000,7 +1015,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx7874678747_))))) (let ((___kont7874978750_ (lambda (_L75557_ _L75559_ _L75560_ _L75561_ _L75562_) @@ -1200,7 +1215,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx7885478855_))))) (let ((___kont7885778858_ (lambda (_L75816_ _L75818_ _L75819_ _L75820_) @@ -1851,7 +1866,10 @@ (lambda (_g7585375862_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7585375862_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7585375862_)))) (_g7585175907_ (lambda (_g7585375870_) (if (let () (declare (not safe)) (gx#stx-pair? _g7585375870_)) @@ -1926,7 +1944,10 @@ (lambda (_g7591675925_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7591675925_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7591675925_)))) (_g7591475970_ (lambda (_g7591675933_) (if (let () (declare (not safe)) (gx#stx-pair? _g7591675933_)) @@ -2004,7 +2025,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx7894678947_))))) (let ((___kont7894978950_ (lambda (_L76114_ _L76116_ _L76117_) @@ -2149,7 +2170,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx7900279003_))))) (let ((___kont7900579006_ (lambda (_L76279_ _L76281_ _L76282_) @@ -2291,7 +2312,10 @@ (lambda (_g7630976342_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7630976342_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7630976342_)))) (_g7630776471_ (lambda (_g7630976350_) (if (let () (declare (not safe)) (gx#stx-pair? _g7630976350_)) @@ -2562,7 +2586,10 @@ (lambda (_g7648076489_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7648076489_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7648076489_)))) (_g7647876534_ (lambda (_g7648076497_) (if (let () (declare (not safe)) (gx#stx-pair? _g7648076497_)) @@ -2637,7 +2664,10 @@ (lambda (_g7654376552_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7654376552_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7654376552_)))) (_g7654176597_ (lambda (_g7654376560_) (if (let () (declare (not safe)) (gx#stx-pair? _g7654376560_)) @@ -2715,7 +2745,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx7905879059_))))) (let ((___kont7906179062_ (lambda (_L76741_ _L76743_ _L76744_) @@ -2886,7 +2916,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx7911479115_))))) (let ((___kont7911779118_ (lambda (_L76906_ _L76908_ _L76909_) @@ -3057,7 +3087,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx7917079171_))))) (let ((___kont7917379174_ (lambda (_L77285_ _L77287_) @@ -3540,7 +3570,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx7931079311_))))) (let ((___kont7931379314_ (lambda (_L77554_ _L77556_) @@ -4158,7 +4188,10 @@ (lambda (_g7759677609_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7759677609_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7759677609_)))) (_g7759477668_ (lambda (_g7759677617_) (if (let () (declare (not safe)) (gx#stx-pair? _g7759677617_)) @@ -4276,7 +4309,10 @@ (lambda (_g7767777690_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7767777690_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7767777690_)))) (_g7767577749_ (lambda (_g7767777698_) (if (let () (declare (not safe)) (gx#stx-pair? _g7767777698_)) @@ -4399,7 +4435,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx7936479365_))))) (let ((___kont7936779368_ (lambda (_L78122_ _L78124_) @@ -5061,7 +5097,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx7948679487_))))) (let ((___kont7948979490_ (lambda (_L78310_ _L78312_) @@ -5304,7 +5340,10 @@ (lambda (_g7833778367_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7833778367_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7833778367_)))) (_g7833578499_ (lambda (_g7833778375_) (if (let () (declare (not safe)) (gx#stx-pair? _g7833778375_)) @@ -5518,7 +5557,10 @@ (lambda (_g7851078540_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7851078540_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g7851078540_)))) (_g7850878672_ (lambda (_g7851078548_) (if (let () (declare (not safe)) (gx#stx-pair? _g7851078548_)) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index a728ed7213..0c94578981 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -267,6 +267,11 @@ namespace: gerbil/core (fx= fx=) (fx>= fx>=) (fx> fx>) + (fx<0? fx<0?) + (fx<=0? fx<=0?) + (fx=0? fx=0?) + (fx>=0? fx>=0?) + (fx>0? fx>0?) (flonum? flonum?) (fl+ fl+) (fl- fl-) @@ -413,17 +418,46 @@ namespace: gerbil/core (make-uninterned-keyword make-uninterned-keyword) (symbol->keyword symbol->keyword) (keyword->symbol keyword->symbol) + (c3-linearize c3-linearize) + (not-null? not-null?) + (remove-nulls remove-nulls) + (append-reverse append-reverse) (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-alist type-descriptor-alist) + (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-accessor* make-struct-field-accessor*) (make-struct-field-mutator make-struct-field-mutator) + (make-struct-field-mutator* make-struct-field-mutator*) (make-struct-field-unchecked-accessor make-struct-field-unchecked-accessor) + (make-struct-field-unchecked-accessor* + make-struct-field-unchecked-accessor*) (make-struct-field-unchecked-mutator make-struct-field-unchecked-mutator) + (make-struct-field-unchecked-mutator* + make-struct-field-unchecked-mutator*) + (base-struct/1 base-struct/1) + (base-struct/2 base-struct/2) + (base-struct/list base-struct/list) + (base-struct* base-struct*) + (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) @@ -439,6 +473,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?) @@ -449,6 +484,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) @@ -472,6 +508,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) @@ -490,6 +528,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) @@ -581,6 +620,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?) @@ -932,7 +977,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 @@ -1153,16 +1201,19 @@ 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-alist runtime-type-alist) + (spec: + 1 + runtime-type-alist-set! + runtime-type-alist-set!) (spec: 1 runtime-struct-fields @@ -1315,11 +1366,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-alist + |gerbil/core$$[1]#runtime-type-alist|) (%#define-runtime runtime-type-id-set! |gerbil/core$$[1]#runtime-type-id-set!|) @@ -1329,9 +1380,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-alist-set! + |gerbil/core$$[1]#runtime-type-alist-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 afb06c212b..416db40ee7 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 0dbec49fc8..8676a907f3 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]#_g42830_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42944_| + (define |gerbil/core$[1]#_g42831_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42948_| + (define |gerbil/core$[1]#_g42835_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42949_| + (define |gerbil/core$[1]#_g42836_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42950_| + (define |gerbil/core$[1]#_g42837_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42952_| + (define |gerbil/core$[1]#_g42839_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42953_| + (define |gerbil/core$[1]#_g42840_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42954_| + (define |gerbil/core$[1]#_g42841_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42955_| + (define |gerbil/core$[1]#_g42842_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42956_| + (define |gerbil/core$[1]#_g42843_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42957_| + (define |gerbil/core$[1]#_g42844_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42958_| + (define |gerbil/core$[1]#_g42845_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42959_| + (define |gerbil/core$[1]#_g42846_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42960_| + (define |gerbil/core$[1]#_g42847_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42961_| + (define |gerbil/core$[1]#_g42848_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43024_| + (define |gerbil/core$[1]#_g42911_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43108_| + (define |gerbil/core$[1]#_g42933_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43111_| + (define |gerbil/core$[1]#_g42936_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43112_| + (define |gerbil/core$[1]#_g42937_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43118_| + (define |gerbil/core$[1]#_g42943_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43119_| + (define |gerbil/core$[1]#_g42944_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43120_| + (define |gerbil/core$[1]#_g42945_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43121_| + (define |gerbil/core$[1]#_g42946_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43122_| + (define |gerbil/core$[1]#_g42947_| (##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 ((__tmp42829 (gx#syntax-local-value _stx30278_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#match-macro::t| - __tmp42942)) + __tmp42829)) '#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" - ___stx4012440125_)))) - (let ((___kont4012740128_ - (lambda (_L30107_ _L30109_) - (let* ((___stx4004440045_ _L30107_) - (_g3012630159_ + '"Bad syntax; invalid match target" + ___stx4001440015_)))) + (let ((___kont4001740018_ + (lambda (_L30041_ _L30043_) + (let* ((___stx3993439935_ _L30041_) + (_g3006030093_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx4004440045_)))) - (let ((___kont4004740048_ + '"Bad syntax; invalid match target" + ___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]#_g42831_| + _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]#_g42830_| + _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" - ___stx4002640027_)))) - (let ((___kont4002940030_ - (lambda (_L30063_) + '"Bad syntax; invalid match target" + ___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" - ___stx4000840009_)))) - (let ((___kont4001140012_ - (lambda (_L29978_) + '"Bad syntax; invalid match target" + ___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 ((__tmp42832 (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'cons*) - (cons _L29799_ _L29797_)))) + (cons _L29733_ _L29731_)))) (declare (not safe)) - (_parse128654_ __tmp42945)) + (_parse128588_ __tmp42832)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (___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 ((__tmp42833 + (foldr (lambda (_g2950029503_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2956729572_) - (cons _g2956629569_ _g2956729572_)) + _g2950129506_) + (cons _g2950029503_ _g2950129506_)) '() - _L29553_))) + _L29487_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_parse-vector28657_ __tmp42946)) + (_parse-vector28591_ __tmp42833)) '())))) - (___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 ((__tmp42834 (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_ __tmp42834)))) + (___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]#_g42836_| + _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]#_g42835_| + _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]#_g42836_| + _hd2906229397_) + (___match4034140342_ + _e2906329393_ + _hd2906229397_ + _tl2906129400_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g42948_| - _hd2912829463_) - (___match4045140452_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_) + |gerbil/core$[1]#_g42835_| + _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]#_g42837_| + _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 ((__tmp42838 + (cons _lp-hd2905029477_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body2911829536_))) + _body2905229470_))) (declare (not safe)) - (_loop2911429529_ _lp-tl2911729546_ __tmp42951)))) + (_loop2904829463_ _lp-tl2905129480_ __tmp42838)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (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]#_g42848_| + _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]#_g42847_| + _hd2897230025_) + (___match4009340094_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42959_| - _hd2903830091_) - (___match4021340214_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_) + |gerbil/core$[1]#_g42846_| + _hd2897230025_) + (___match4010340104_ + _e2897330021_ + _hd2897230025_ + _tl2897130028_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42958_| - _hd2903830091_) + |gerbil/core$[1]#_g42845_| + _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]#_g42844_| + _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]#_g42843_| + _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]#_g42842_| + _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]#_g42841_| + _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]#_g42840_| + _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]#_g42839_| + _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" - ___stx4045440455_)))) - (let ((___kont4045740458_ - (lambda (_L28989_) + '"Bad syntax; invalid match target" + ___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" - ___stx4050640507_)))) - (let ((___kont4050940510_ - (lambda (_L28814_ _L28816_) - (if (not (gx#ellipsis? _L28816_)) + '"Bad syntax; invalid match target" + ___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" - ___stx4052240523_)))) - (let ((___kont4052540526_ - (lambda (_L28743_ _L28745_ _L28746_) - (cons* _L28746_ + '"Bad syntax; invalid match target" + ___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" - _g2866928671_)))) + '"Bad syntax; invalid match target" + _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 _g42850_ + (let ((_g42849_ (let () (declare (not safe)) (##length _g42850_)))) + (cond ((let () (declare (not safe)) (##fx= _g42849_ 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_))) + _g42850_)) + ((let () (declare (not safe)) (##fx= _g42849_ 2)) + (apply (lambda (_stx30274_ _match-stx30276_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _stx30340_ - _match-stx30342_))) - _g42963_)) + _stx30274_ + _match-stx30276_))) + _g42850_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$[1]#parse-match-pattern| - _g42963_)))))) + _g42850_)))))) (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" - ___stx4064040641_)))) - (let ((___kont4064340644_ - (lambda (_L28415_) - (let* ((___stx4056040561_ _L28415_) - (_g2843228466_ + '"Bad syntax; invalid match target" + ___stx4053040531_)))) + (let ((___kont4053340534_ + (lambda (_L28349_) + (let* ((___stx4045040451_ _L28349_) + (_g2836628400_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx4056040561_)))) - (let ((___kont4056340564_ - (lambda (_L28615_) + '"Bad syntax; invalid match target" + ___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" - ___stx4054440545_)))) - (let ((___kont4054740548_ - (lambda (_L28360_ _L28362_) - (let ((__tmp42964 - (lambda (_g2837428376_) - (let ((__tmp42965 - (cons _L28304_ - _L28360_))) + '"Bad syntax; invalid match target" + ___stx4043440435_)))) + (let ((___kont4043740438_ + (lambda (_L28294_ _L28296_) + (let ((__tmp42851 + (lambda (_g2830828310_) + (let ((__tmp42852 + (cons _L28238_ + _L28294_))) (declare (not safe)) - (_loop27372_ - __tmp42965 - _g2837428376_ - _K27662_))))) + (_loop27306_ + __tmp42852 + _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_ + __tmp42851)))) + (___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 ((__tmp42853 + (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_ + __tmp42853)))) + (___kont4054140542_ + (lambda (_L28087_ _L28089_) + (let ((__tmp42854 + (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_ + __tmp42854)))) + (___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" - ___stx4089840899_)))) - (let ((___kont4090140902_ - (lambda (_L27641_) + '"Bad syntax; invalid match target" + ___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" - ___stx4094840949_)))) - (let ((___kont4095140952_ - (lambda (_L27511_ _L27513_) - (let ((__tmp42968 - (lambda (_g2752527527_) + '"Bad syntax; invalid match target" + ___stx4083840839_)))) + (let ((___kont4084140842_ + (lambda (_L27445_ _L27447_) + (let ((__tmp42855 + (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_ + __tmp42855)))) + (___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" - ___stx4096440965_)))) - (let ((___kont4096740968_ - (lambda (_L27437_ _L27439_) - (let ((__tmp42969 - (lambda (_g2745527457_) + '"Bad syntax; invalid match target" + ___stx4085440855_)))) + (let ((___kont4085740858_ + (lambda (_L27371_ _L27373_) + (let ((__tmp42856 + (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_ + __tmp42856)))) + (___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" - _g2558925592_))) - (_g2558727365_ - (lambda (_g2558925600_) - ((lambda (_L25603_) + '"Bad syntax; invalid match target" + _g2552325526_))) + (_g2552127299_ + (lambda (_g2552325534_) + ((lambda (_L25537_) (let () - (let* ((___stx4120041201_ _ptree25584_) - (_g2563025772_ + (let* ((___stx4109041091_ _ptree25518_) + (_g2556425706_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx4120041201_)))) - (let ((___kont4120341204_ - (lambda (_L27080_ _L27082_) - (let* ((___stx4111841119_ - _L27080_) - (_g2709927134_ + '"Bad syntax; invalid match target" + ___stx4109041091_)))) + (let ((___kont4109341094_ + (lambda (_L27014_ _L27016_) + (let* ((___stx4100841009_ + _L27014_) + (_g2703327068_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx4111841119_)))) - (let ((___kont4112141122_ + '"Bad syntax; invalid match target" + ___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" - _g2728827291_))) - (_g2728627314_ - (lambda (_g2728827299_) - ((lambda (_L27302_) + '"Bad syntax; invalid match target" + _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_))) + (__tmp42857 (gx#genident 'e))) (declare (not safe)) - (_g2728627314_ __tmp42970)))) - (___kont4112741128_ - (lambda (_L27189_ _L27191_) - (let* ((_g2721127219_ - (lambda (_g2721227215_) + (_g2722027248_ __tmp42857)))) + (___kont4101741018_ + (lambda (_L27123_ _L27125_) + (let* ((_g2714527153_ + (lambda (_g2714627149_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2721227215_))) - (_g2721027238_ - (lambda (_g2721227223_) - ((lambda (_L27226_) + '"Bad syntax; invalid match target" + _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_))) + (__tmp42858 (gx#genident 'e))) (declare (not safe)) - (_g2721027238_ __tmp42971))))) + (_g2714427172_ __tmp42858))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (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" - ___stx4110241103_)))) - (let ((___kont4110541106_ - (lambda (_L27030_ - _L27032_) - (let ((__tmp42972 - (let ((__tmp42973 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'and: _L27030_))) + '"Bad syntax; invalid match target" + ___stx4099240993_)))) + (let ((___kont4099540996_ + (lambda (_L26964_ + _L26966_) + (let ((__tmp42859 + (let ((__tmp42860 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons 'and: _L26964_))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - __tmp42973 - _K25585_ - _E25586_)))) + (_generate123893_ + _tgt25516_ + __tmp42860 + _K25519_ + _E25520_)))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - _L27032_ - __tmp42972 - _E25586_)))) - (___kont4110741108_ (lambda () _K25585_))) + (_generate123893_ + _tgt25516_ + _L26966_ + __tmp42859 + _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" - ___stx4108641087_)))) - (let ((___kont4108941090_ - (lambda (_L26937_ - _L26939_) - (let ((__tmp42974 - (let ((__tmp42975 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'or: _L26937_))) + '"Bad syntax; invalid match target" + ___stx4097640977_)))) + (let ((___kont4097940980_ + (lambda (_L26871_ + _L26873_) + (let ((__tmp42861 + (let ((__tmp42862 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons 'or: _L26871_))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - __tmp42975 - _K25585_ - _E25586_)))) + (_generate123893_ + _tgt25516_ + __tmp42862 + _K25519_ + _E25520_)))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - _L26939_ - _K25585_ - __tmp42974)))) - (___kont4109141092_ (lambda () _E25586_))) + (_generate123893_ + _tgt25516_ + _L26873_ + _K25519_ + __tmp42861)))) + (___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" - _g2675126761_))) - (_g2674926814_ - (lambda (_g2675126769_) + '"Bad syntax; invalid match target" + _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 ((__tmp42863 (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_ + __tmp42863 + _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 + (__tmp42864 (list (gx#genident 'hd) (gx#genident 'tl)))) (declare (not safe)) - (_g2674926814_ __tmp42977)))) - (___kont4121341214_ + (_g2668326748_ __tmp42864)))) + (___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" - _g2657626579_))) - (_g2657426602_ - (lambda (_g2657626587_) - ((lambda (_L26590_) + '"Bad syntax; invalid match target" + _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 + (__tmp42865 (gx#genident 'e))) (declare (not safe)) - (_g2657426602_ __tmp42978)))) - (___kont4121941220_ - (lambda (_L26366_) - (let* ((___stx4103641037_ - _L26366_) - (_g2638126404_ + (_g2650826536_ __tmp42865)))) + (___kont4110941110_ + (lambda (_L26300_) + (let* ((___stx4092640927_ + _L26300_) + (_g2631526338_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx4103641037_)))) - (let ((___kont4103941040_ - (lambda (_L26481_) - (let* ((_g2649526503_ + '"Bad syntax; invalid match target" + ___stx4092640927_)))) + (let ((___kont4092940930_ + (lambda (_L26415_) + (let* ((_g2642926437_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2649626499_) + (lambda (_g2643026433_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2649626499_))) - (_g2649426522_ - (lambda (_g2649626507_) - ((lambda (_L26510_) + '"Bad syntax; invalid match target" + _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_))) + (__tmp42866 (gx#stx-length _L26415_))) (declare (not safe)) - (_g2649426522_ __tmp42979)))) - (___kont4104141042_ - (lambda (_L26435_) + (_g2642826456_ __tmp42866)))) + (___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" - ___stx4098640987_)))) - (let ((___kont4098940990_ - (lambda (_L26286_) - (let* ((_g2630026308_ + '"Bad syntax; invalid match target" + ___stx4087640877_)))) + (let ((___kont4087940880_ + (lambda (_L26220_) + (let* ((_g2623426242_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2630126304_) + (lambda (_g2623526238_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2630126304_))) - (_g2629926327_ - (lambda (_g2630126312_) - ((lambda (_L26315_) + '"Bad syntax; invalid match target" + _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_))) + (__tmp42867 (gx#stx-length _L26220_))) (declare (not safe)) - (_g2629926327_ __tmp42980)))) - (___kont4099140992_ - (lambda (_L26240_) + (_g2623326261_ __tmp42867)))) + (___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 ((__tmp42868 + (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_ + __tmp42868 + _tgt25516_ + _L26056_ + _K25519_ + _E25520_)))) + (___kont4111541116_ + (lambda (_L25997_ _L25999_) + (let ((__tmp42869 + (gx#stx-e _L25999_))) (declare (not safe)) - (_generate-class23965_ - __tmp42982 - _tgt25582_ - _L26063_ - _K25585_ - _E25586_)))) - (___kont4122741228_ - (lambda (_L25966_) - (let* ((_g2598025988_ - (lambda (_g2598125984_) + (_generate-class23899_ + __tmp42869 + _tgt25516_ + _L25997_ + _K25519_ + _E25520_)))) + (___kont4111741118_ + (lambda (_L25900_) + (let* ((_g2591425922_ + (lambda (_g2591525918_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2598125984_))) - (_g2597926007_ - (lambda (_g2598125992_) - ((lambda (_L25995_) + '"Bad syntax; invalid match target" + _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_ + (__tmp42870 + (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_ __tmp42870)))) + (___kont4111941120_ + (lambda (_L25820_ _L25822_) + (let* ((_g2583825846_ + (lambda (_g2583925842_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2590525908_))) - (_g2590325931_ - (lambda (_g2590525916_) - ((lambda (_L25919_) + '"Bad syntax; invalid match target" + _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 + (__tmp42871 (gx#genident 'e))) (declare (not safe)) - (_g2590325931_ __tmp42984)))) - (___kont4123141232_ - (lambda (_L25828_) + (_g2583725865_ __tmp42871)))) + (___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" - _g2496224974_))) - (_g2496025578_ - (lambda (_g2496224982_) - (if (gx#stx-pair/null? _g2496224982_) - (let ((_g42985_ + '"Bad syntax; invalid match target" + _g2489624908_))) + (_g2489425512_ + (lambda (_g2489624916_) + (if (gx#stx-pair/null? _g2489624916_) + (let ((_g42872_ (gx#syntax-split-splice - _g2496224982_ + _g2489624916_ '0))) (begin - (let ((_g42986_ + (let ((_g42873_ (let () (declare (not safe)) - (if (##values? _g42985_) - (##vector-length _g42985_) + (if (##values? _g42872_) + (##vector-length _g42872_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42986_ 2))) + (##fx= _g42873_ 2))) (error "Context expects 2 values" - _g42986_))) - (let ((_target2496424985_ + _g42873_))) + (let ((_target2489824919_ (let () (declare (not safe)) - (##vector-ref _g42985_ 0))) - (_tl2496624988_ + (##vector-ref _g42872_ 0))) + (_tl2490024922_ (let () (declare (not safe)) - (##vector-ref _g42985_ 1)))) - (if (gx#stx-null? _tl2496624988_) - (letrec ((_loop2496724991_ - (lambda (_hd2496524995_ - _var2497124998_) + (##vector-ref _g42872_ 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 ((__tmp42891 + (cons _lp-hd2490324939_ _var2490524932_))) (declare (not safe)) - (_loop2496724991_ _lp-tl2497025008_ __tmp43004)))) - (let ((_var2497225011_ (reverse _var2497124998_))) - ((lambda (_L25015_) + (_loop2490124925_ _lp-tl2490424942_ __tmp42891)))) + (let ((_var2490624945_ (reverse _var2490524932_))) + ((lambda (_L24949_) (let () - (let* ((_g2503125048_ - (lambda (_g2503225044_) + (let* ((_g2496524982_ + (lambda (_g2496624978_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2503225044_))) - (_g2503025566_ - (lambda (_g2503225052_) - (if (gx#stx-pair/null? _g2503225052_) - (let ((_g42987_ + '"Bad syntax; invalid match target" + _g2496624978_))) + (_g2496425500_ + (lambda (_g2496624986_) + (if (gx#stx-pair/null? _g2496624986_) + (let ((_g42874_ (gx#syntax-split-splice - _g2503225052_ + _g2496624986_ '0))) (begin - (let ((_g42988_ + (let ((_g42875_ (let () (declare (not safe)) - (if (##values? _g42987_) + (if (##values? _g42874_) (##vector-length - _g42987_) + _g42874_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42988_ 2))) + (##fx= _g42875_ 2))) (error "Context expects 2 values" - _g42988_))) - (let ((_target2503425055_ + _g42875_))) + (let ((_target2496824989_ (let () (declare (not safe)) (##vector-ref - _g42987_ + _g42874_ 0))) - (_tl2503625058_ + (_tl2497024992_ (let () (declare (not safe)) (##vector-ref - _g42987_ + _g42874_ 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 ((__tmp42889 + (cons _lp-hd2497325009_ + _var-r2497525002_))) (declare (not safe)) - (_loop2503725061_ - _lp-tl2504025078_ - __tmp43002)))) - (let ((_var-r2504225081_ - (reverse _var-r2504125068_))) - ((lambda (_L25085_) + (_loop2497124995_ + _lp-tl2497425012_ + __tmp42889)))) + (let ((_var-r2497625015_ + (reverse _var-r2497525002_))) + ((lambda (_L25019_) (let () - (let* ((_g2510225119_ - (lambda (_g2510325115_) + (let* ((_g2503625053_ + (lambda (_g2503725049_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2510325115_))) - (_g2510125554_ - (lambda (_g2510325123_) + '"Bad syntax; invalid match target" + _g2503725049_))) + (_g2503525488_ + (lambda (_g2503725057_) (if (gx#stx-pair/null? - _g2510325123_) - (let ((_g42989_ + _g2503725057_) + (let ((_g42876_ (gx#syntax-split-splice - _g2510325123_ + _g2503725057_ '0))) (begin - (let ((_g42990_ + (let ((_g42877_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42989_) - (##vector-length _g42989_) + _g42876_) + (##vector-length _g42876_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42990_ 2))) - (error "Context expects 2 values" _g42990_))) + (if (not (let () (declare (not safe)) (##fx= _g42877_ 2))) + (error "Context expects 2 values" _g42877_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2510525126_ + (let ((_target2503925060_ (let () (declare (not safe)) (##vector-ref - _g42989_ + _g42876_ 0))) - (_tl2510725129_ + (_tl2504125063_ (let () (declare (not safe)) (##vector-ref - _g42989_ + _g42876_ 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 ((__tmp42887 + (cons _lp-hd2504425080_ + _init2504625073_))) (declare (not safe)) - (_loop2510825132_ - _lp-tl2511125149_ - __tmp43000)))) - (let ((_init2511325152_ - (reverse _init2511225139_))) - ((lambda (_L25156_) + (_loop2504225066_ + _lp-tl2504525083_ + __tmp42887)))) + (let ((_init2504725086_ + (reverse _init2504625073_))) + ((lambda (_L25090_) (let () - (let* ((_g2517325181_ - (lambda (_g2517425177_) + (let* ((_g2510725115_ + (lambda (_g2510825111_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2517425177_))) - (_g2517225550_ - (lambda (_g2517425185_) - ((lambda (_L25188_) + '"Bad syntax; invalid match target" + _g2510825111_))) + (_g2510625484_ + (lambda (_g2510825119_) + ((lambda (_L25122_) (let () - (let* ((_g2520125209_ - (lambda (_g2520225205_) + (let* ((_g2513525143_ + (lambda (_g2513625139_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f - '"Bad syntax" - _g2520225205_))) - (_g2520025546_ - (lambda (_g2520225213_) - ((lambda (_L25216_) + '"Bad syntax; invalid match target" + _g2513625139_))) + (_g2513425480_ + (lambda (_g2513625147_) + ((lambda (_L25150_) (let () - (let* ((_g2522925237_ - (lambda (_g2523025233_) + (let* ((_g2516325171_ + (lambda (_g2516425167_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2523025233_))) - (_g2522825542_ - (lambda (_g2523025241_) - ((lambda (_L25244_) + '"Bad syntax; invalid match target" + _g2516425167_))) + (_g2516225476_ + (lambda (_g2516425175_) + ((lambda (_L25178_) (let () - (let* ((_g2525725265_ - (lambda (_g2525825261_) + (let* ((_g2519125199_ + (lambda (_g2519225195_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2525825261_))) - (_g2525625538_ - (lambda (_g2525825269_) - ((lambda (_L25272_) + '"Bad syntax; invalid match target" + _g2519225195_))) + (_g2519025472_ + (lambda (_g2519225203_) + ((lambda (_L25206_) (let () - (let* ((_g2528525293_ + (let* ((_g2521925227_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2528625289_) + (lambda (_g2522025223_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2528625289_))) - (_g2528425534_ - (lambda (_g2528625297_) - ((lambda (_L25300_) + '"Bad syntax; invalid match target" + _g2522025223_))) + (_g2521825468_ + (lambda (_g2522025231_) + ((lambda (_L25234_) (let () - (let* ((_g2531325321_ - (lambda (_g2531425317_) + (let* ((_g2524725255_ + (lambda (_g2524825251_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2531425317_))) - (_g2531225530_ - (lambda (_g2531425325_) - ((lambda (_L25328_) + '"Bad syntax; invalid match target" + _g2524825251_))) + (_g2524625464_ + (lambda (_g2524825259_) + ((lambda (_L25262_) (let () - (let* ((_g2534125349_ - (lambda (_g2534225345_) + (let* ((_g2527525283_ + (lambda (_g2527625279_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2534225345_))) - (_g2534025526_ - (lambda (_g2534225353_) - ((lambda (_L25356_) + '"Bad syntax; invalid match target" + _g2527625279_))) + (_g2527425460_ + (lambda (_g2527625287_) + ((lambda (_L25290_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g2536925377_ - (lambda (_g2537025373_) + (let* ((_g2530325311_ + (lambda (_g2530425307_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2537025373_))) - (_g2536825511_ - (lambda (_g2537025381_) - ((lambda (_L25384_) + '"Bad syntax; invalid match target" + _g2530425307_))) + (_g2530225445_ + (lambda (_g2530425315_) + ((lambda (_L25318_) (let () - (let* ((_g2539725405_ - (lambda (_g2539825401_) + (let* ((_g2533125339_ + (lambda (_g2533225335_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2539825401_))) - (_g2539625499_ - (lambda (_g2539825409_) - ((lambda (_L25412_) + '"Bad syntax; invalid match target" + _g2533225335_))) + (_g2533025433_ + (lambda (_g2533225343_) + ((lambda (_L25346_) (let () - (let* ((_g2542525433_ - (lambda (_g2542625429_) + (let* ((_g2535925367_ + (lambda (_g2536025363_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f - '"Bad syntax" - _g2542625429_))) - (_g2542425495_ - (lambda (_g2542625437_) - ((lambda (_L25440_) + '"Bad syntax; invalid match target" + _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,1269 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#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_))) + (__tmp42878 (let () (declare (not safe)) - (_generate123959_ - _L25300_ - _hd24956_ - _L25384_ - _L25412_)))) + (_generate123893_ + _L25234_ + _hd24890_ + _L25318_ + _L25346_)))) (declare (not safe)) - (_g2542425495_ __tmp42991)))) + (_g2535825429_ __tmp42878)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2539825409_))) - (__tmp42992 - (cons _L25216_ - (cons _L25328_ - (foldr (lambda (_g2550225505_ + _g2533225343_))) + (__tmp42879 + (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_ __tmp42879)))) + _g2530425315_))) + (__tmp42880 + (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_ __tmp42880)))) + _g2527625287_))) + (__tmp42881 (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_ + __tmp42881)))) + _g2524825259_))) + (__tmp42882 (gx#genident 'rest))) (declare (not safe)) - (_g2531225530_ __tmp42995)))) - _g2528625297_))) - (__tmp42996 (gx#genident 'hd))) + (_g2524625464_ __tmp42882)))) + _g2522025231_))) + (__tmp42883 (gx#genident 'hd))) (declare (not safe)) - (_g2528425534_ __tmp42996)))) - _g2525825269_))) + (_g2521825468_ __tmp42883)))) + _g2519225203_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42997 + (__tmp42884 (gx#genident 'splice-try))) (declare (not safe)) - (_g2525625538_ __tmp42997)))) - _g2523025241_))) - (__tmp42998 (gx#genident 'splice-loop))) + (_g2519025472_ __tmp42884)))) + _g2516425175_))) + (__tmp42885 (gx#genident 'splice-loop))) (declare (not safe)) - (_g2522825542_ __tmp42998)))) - _g2520225213_))) - (__tmp42999 (gx#genident 'splice-rest))) + (_g2516225476_ __tmp42885)))) + _g2513625147_))) + (__tmp42886 (gx#genident 'splice-rest))) (declare (not safe)) - (_g2520025546_ __tmp42999)))) + (_g2513425480_ __tmp42886)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _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_))))) + (__tmp42888 (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_ __tmp42888)))) + _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_))))) + (__tmp42890 (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_ __tmp42890)))) + _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_))))) + (__tmp42892 (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_ __tmp42892)))) + (_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" - ___stx4155841559_)))) - (let ((___kont4156141562_ - (lambda (_L24851_ _L24853_) - (let* ((_g2486824887_ - (lambda (_g2486924883_) + '"Bad syntax; invalid match target" + ___stx4144841449_)))) + (let ((___kont4145141452_ + (lambda (_L24785_ _L24787_) + (let* ((_g2480224821_ + (lambda (_g2480324817_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2486924883_))) - (_g2486724946_ - (lambda (_g2486924891_) - (if (gx#stx-pair? _g2486924891_) - (let ((_e2487524894_ + '"Bad syntax; invalid match target" + _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 ((__tmp42893 + (let ((__tmp42894 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (fx1+ _off24808_))) + (fx1+ _off24742_))) (declare (not safe)) - (_recur24803_ _L24851_ __tmp43007)))) + (_recur24737_ _L24785_ __tmp42894)))) (declare (not safe)) - (_generate123959_ _L24927_ _L24853_ __tmp43006 _E24801_)) + (_generate123893_ _L24861_ _L24787_ __tmp42893 _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_))))) + (__tmp42895 (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_ __tmp42895)))) + (___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" - _g2469624699_))) - (_g2469424792_ - (lambda (_g2469624707_) - ((lambda (_L24710_) + '"Bad syntax; invalid match target" + _g2463024633_))) + (_g2462824726_ + (lambda (_g2463024641_) + ((lambda (_L24644_) (let () - (let* ((_g2472224730_ - (lambda (_g2472324726_) + (let* ((_g2465624664_ + (lambda (_g2465724660_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2472324726_))) - (_g2472124788_ - (lambda (_g2472324734_) - ((lambda (_L24737_) + '"Bad syntax; invalid match target" + _g2465724660_))) + (_g2465524722_ + (lambda (_g2465724668_) + ((lambda (_L24671_) (let () - (let* ((_g2475024758_ - (lambda (_g2475124754_) + (let* ((_g2468424692_ + (lambda (_g2468524688_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2475124754_))) - (_g2474924780_ - (lambda (_g2475124762_) - ((lambda (_L24765_) + '"Bad syntax; invalid match target" + _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_))) + (__tmp42896 + (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_ + __tmp42896)))) + _g2465724668_)))) (declare (not safe)) - (_g2472124788_ _tgt24688_)))) - _g2469624707_))) - (__tmp43010 (gx#genident 'e))) + (_g2465524722_ _tgt24622_)))) + _g2463024641_))) + (__tmp42897 (gx#genident 'e))) (declare (not safe)) - (_g2469424792_ __tmp43010)))) - (_generate-struct23964_ - (lambda (_info24346_ - _tgt24348_ - _body24349_ - _K24350_ - _E24351_) - (let* ((_rtd24353_ + (_g2462824726_ __tmp42897)))) + (_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 ((__tmp42899 + (let ((__tmp42900 (##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 + __tmp42900))) + (__tmp42898 (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_ __tmp42899 __tmp42898)) + _k24295_))) + (_final?24300_ + (if _rtd24287_ (assgetq 'final: - (##structure-ref - _rtd24353_ - '5 - |gerbil/core$$[1]#runtime-rtd-exhibitor::t| - '#f)) + (gx#syntax->datum + (##structure-ref + _rtd24287_ + '5 + |gerbil/core$$[1]#runtime-rtd-exhibitor::t| + '#f))) '#f)) - (_g2436924377_ - (lambda (_g2437024373_) + (_g2430324311_ + (lambda (_g2430424307_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2437024373_))) - (_g2436824684_ - (lambda (_g2437024381_) - ((lambda (_L24384_) + '"Bad syntax; invalid match target" + _g2430424307_))) + (_g2430224618_ + (lambda (_g2430424315_) + ((lambda (_L24318_) (let () - (let* ((_g2439924407_ - (lambda (_g2440024403_) + (let* ((_g2433324341_ + (lambda (_g2433424337_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2440024403_))) - (_g2439824586_ - (lambda (_g2440024411_) - ((lambda (_L24414_) + '"Bad syntax; invalid match target" + _g2433424337_))) + (_g2433224520_ + (lambda (_g2433424345_) + ((lambda (_L24348_) (let () (let () - (let* ((___stx4157441575_ - _body24349_) - (_g2443024453_ + (let* ((___stx4146441465_ + _body24283_) + (_g2436424387_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx4157441575_)))) - (let ((___kont4157741578_ - (lambda (_L24532_) - (let ((_K24546_ + '"Bad syntax; invalid match target" + ___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" - _g2455124554_))) - (_g2454924578_ - (lambda (_g2455124562_) - ((lambda (_L24565_) + '"Bad syntax; invalid match target" + _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_))) + (__tmp42901 (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" - _g2459124594_))) - (_g2458924617_ - (lambda (_g2459124602_) - ((lambda (_L24605_) + '"Bad syntax; invalid match target" + _g2452524528_))) + (_g2452324551_ + (lambda (_g2452524536_) + ((lambda (_L24539_) (let () - (cons _L24605_ + (cons _L24539_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L24384_ '())))) - _g2459124602_))) - (__tmp43016 + (cons _L24318_ '())))) + _g2452524536_))) + (__tmp42903 (cadddr (let () (declare (not safe)) (unchecked-slot-ref - _info24346_ + _info24280_ 'expander-identifiers))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2458924617_ __tmp43016)) - (let* ((_g2462124636_ - (lambda (_g2462224632_) + (_g2452324551_ __tmp42903)) + (let* ((_g2455524570_ + (lambda (_g2455624566_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2462224632_))) - (_g2462024680_ - (lambda (_g2462224640_) + '"Bad syntax; invalid match target" + _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_))))) + (__tmp42902 (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_ __tmp42902))))) (declare (not safe)) - (_g2439824586_ __tmp43014)))) - _g2437024381_)))) + (_g2433224520_ __tmp42901)))) + _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_ - '5 - |gerbil/core$$[1]#runtime-rtd-exhibitor::t| - '#f)) + (gx#syntax->datum + (##structure-ref + _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" - ___stx4162441625_)))) - (let ((___kont4162741628_ - (lambda (_L24172_ _L24174_ _L24175_) - (let* ((_g2419124199_ - (lambda (_g2419224195_) + '"Bad syntax; invalid match target" + ___stx4151441515_)))) + (let ((___kont4151741518_ + (lambda (_L24106_ _L24108_ _L24109_) + (let* ((_g2412524133_ + (lambda (_g2412624129_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2419224195_))) - (_g2419024319_ - (lambda (_g2419224203_) - ((lambda (_L24206_) + '"Bad syntax; invalid match target" + _g2412624129_))) + (_g2412424253_ + (lambda (_g2412624137_) + ((lambda (_L24140_) (let () - (let* ((_g2421824226_ + (let* ((_g2415224160_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2421924222_) + (lambda (_g2415324156_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2421924222_))) - (_g2421724315_ - (lambda (_g2421924230_) - ((lambda (_L24233_) + '"Bad syntax; invalid match target" + _g2415324156_))) + (_g2415124249_ + (lambda (_g2415324164_) + ((lambda (_L24167_) (let () - (let* ((_g2424624254_ - (lambda (_g2424724250_) + (let* ((_g2418024188_ + (lambda (_g2418124184_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2424724250_))) - (_g2424524311_ - (lambda (_g2424724258_) - ((lambda (_L24261_) + '"Bad syntax; invalid match target" + _g2418124184_))) + (_g2417924245_ + (lambda (_g2418124192_) + ((lambda (_L24195_) (let () - (let* ((_g2427424282_ - (lambda (_g2427524278_) + (let* ((_g2420824216_ + (lambda (_g2420924212_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2427524278_))) - (_g2427324307_ - (lambda (_g2427524286_) - ((lambda (_L24289_) + '"Bad syntax; invalid match target" + _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 ((__tmp42904 (let () (declare (not safe)) - (_recur23979_ - _klass24113_ - _L24172_)))) + (_recur23913_ + _klass24047_ + _L24106_)))) (declare (not safe)) - (_generate123959_ - _L24289_ - _L24174_ - __tmp43017 - _E23972_)) + (_generate123893_ + _L24223_ + _L24108_ + __tmp42904 + _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_))) + (__tmp42905 (gx#genident 'e))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2427324307_ - __tmp43018)))) - _g2424724258_))) - (__tmp43019 (gx#genident 'slot))) + (_g2420724241_ + __tmp42905)))) + _g2418124192_))) + (__tmp42906 (gx#genident 'slot))) (declare (not safe)) - (_g2424524311_ __tmp43019)))) - _g2421924230_)))) + (_g2417924245_ __tmp42906)))) + _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" - _g2398223985_))) - (_g2398024109_ - (lambda (_g2398223993_) - ((lambda (_L23996_) + '"Bad syntax; invalid match target" + _g2391623919_))) + (_g2391424043_ + (lambda (_g2391623927_) + ((lambda (_L23930_) (let () - (let* ((_g2401124019_ - (lambda (_g2401224015_) + (let* ((_g2394523953_ + (lambda (_g2394623949_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2401224015_))) - (_g2401024105_ - (lambda (_g2401224023_) - ((lambda (_L24026_) + '"Bad syntax; invalid match target" + _g2394623949_))) + (_g2394424039_ + (lambda (_g2394623957_) + ((lambda (_L23960_) (let () - (let* ((_g2403924047_ - (lambda (_g2404024043_) + (let* ((_g2397323981_ + (lambda (_g2397423977_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2404024043_))) - (_g2403824101_ - (lambda (_g2404024051_) - ((lambda (_L24054_) + '"Bad syntax; invalid match target" + _g2397423977_))) + (_g2397224035_ + (lambda (_g2397423985_) + ((lambda (_L23988_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2406724075_ - (lambda (_g2406824071_) + (let* ((_g2400124009_ + (lambda (_g2400224005_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2406824071_))) - (_g2406624097_ - (lambda (_g2406824079_) - ((lambda (_L24082_) + '"Bad syntax; invalid match target" + _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_))) + (__tmp42907 + (if _final?23911_ (gx#datum->syntax '#f 'direct-instance?) (gx#datum->syntax '#f 'class-instance?)))) (declare (not safe)) - (_g2406624097_ __tmp43020)))) - _g2404024051_))) - (__tmp43021 + (_g2400024031_ __tmp42907)))) + _g2397423985_))) + (__tmp42908 (let () (declare (not safe)) - (unchecked-slot-ref _info23967_ 'runtime-identifier)))) + (unchecked-slot-ref _info23901_ 'runtime-identifier)))) (declare (not safe)) - (_g2403824101_ __tmp43021)))) + (_g2397224035_ __tmp42908)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2401224023_)))) + _g2394623957_)))) (declare (not safe)) - (_g2401024105_ _tgt23969_)))) - _g2398223993_))) - (__tmp43022 (gx#genident 'class))) + (_g2394424039_ _tgt23903_)))) + _g2391623927_))) + (__tmp42909 (gx#genident 'class))) (declare (not safe)) - (_g2398024109_ __tmp43022)))))) + (_g2391424043_ __tmp42909)))))) (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" - ___stx4167441675_)))) - (let ((___kont4167741678_ - (lambda (_L23825_ _L23827_) - (let* ((___stx4164641647_ _L23827_) - (_g2384423860_ + '"Bad syntax; invalid match target" + ___stx4156441565_)))) + (let ((___kont4156741568_ + (lambda (_L23759_ _L23761_) + (let* ((___stx4153641537_ _L23761_) + (_g2377823794_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx4164641647_)))) - (let ((___kont4164941650_ - (lambda (_L23929_) - (if (gx#stx-null? _L23825_) + '"Bad syntax; invalid match target" + ___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 ((__tmp42910 (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_ + __tmp42910)))) + (___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]#_g42911_| + _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" - _g2356323566_))) - (_g2356123770_ - (lambda (_g2356323574_) - ((lambda (_L23577_) + '"Bad syntax; invalid match target" + _g2349723500_))) + (_g2349523704_ + (lambda (_g2349723508_) + ((lambda (_L23511_) (let () - (let* ((_g2358923606_ - (lambda (_g2359023602_) + (let* ((_g2352323540_ + (lambda (_g2352423536_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2359023602_))) - (_g2358823766_ - (lambda (_g2359023610_) + '"Bad syntax; invalid match target" + _g2352423536_))) + (_g2352223700_ + (lambda (_g2352423544_) (if (gx#stx-pair/null? - _g2359023610_) - (let ((_g43087_ + _g2352423544_) + (let ((_g42912_ (gx#syntax-split-splice - _g2359023610_ + _g2352423544_ '0))) (begin - (let ((_g43088_ + (let ((_g42913_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g43087_) - (##vector-length _g43087_) + _g42912_) + (##vector-length _g42912_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g43088_ 2))) - (error "Context expects 2 values" _g43088_))) + (if (not (let () (declare (not safe)) (##fx= _g42913_ 2))) + (error "Context expects 2 values" _g42913_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2359223613_ + (let ((_target2352623547_ (let () (declare (not safe)) (##vector-ref - _g43087_ + _g42912_ 0))) - (_tl2359423616_ + (_tl2352823550_ (let () (declare (not safe)) (##vector-ref - _g43087_ + _g42912_ 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 ((__tmp43093 - (cons _lp-hd2359723633_ - _target2359923626_))) + (##cdr _e2353023563_)))) + (let ((__tmp42918 + (cons _lp-hd2353123567_ + _target2353323560_))) (declare (not safe)) - (_loop2359523619_ - _lp-tl2359823636_ - __tmp43093)))) - (let ((_target2360023639_ - (reverse _target2359923626_))) - ((lambda (_L23643_) + (_loop2352923553_ + _lp-tl2353223570_ + __tmp42918)))) + (let ((_target2353423573_ + (reverse _target2353323560_))) + ((lambda (_L23577_) (let () - (let* ((_g2366023668_ - (lambda (_g2366123664_) + (let* ((_g2359423602_ + (lambda (_g2359523598_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2366123664_))) - (_g2365923754_ - (lambda (_g2366123672_) - ((lambda (_L23675_) + '"Bad syntax; invalid match target" + _g2359523598_))) + (_g2359323688_ + (lambda (_g2359523606_) + ((lambda (_L23609_) (let () - (let* ((_g2368823696_ + (let* ((_g2362223630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2368923692_) + (lambda (_g2362323626_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2368923692_))) - (_g2368723750_ - (lambda (_g2368923700_) - ((lambda (_L23703_) + '"Bad syntax; invalid match target" + _g2362323626_))) + (_g2362123684_ + (lambda (_g2362323634_) + ((lambda (_L23637_) (let () - (let* ((_g2371623724_ - (lambda (_g2371723720_) + (let* ((_g2365023658_ + (lambda (_g2365123654_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2371723720_))) - (_g2371523746_ - (lambda (_g2371723728_) - ((lambda (_L23731_) + '"Bad syntax; invalid match target" + _g2365123654_))) + (_g2364923680_ + (lambda (_g2365123662_) + ((lambda (_L23665_) (let () (let () (cons (gx#datum->syntax @@ -4981,33 +4983,33 @@ (cons (gx#datum->syntax '#f '@match) - (cons _L23731_ + (cons _L23665_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2371723728_))) - (__tmp43089 + _g2365123662_))) + (__tmp42914 (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_ __tmp43089)))) - _g2368923700_))) - (__tmp43090 - (let ((__tmp43091 (cons _L23577_ '()))) + (_g2364923680_ __tmp42914)))) + _g2362323634_))) + (__tmp42915 + (let ((__tmp42916 (cons _L23511_ '()))) (declare (not safe)) - (_generate-clauses22856_ _body23559_ __tmp43091)))) + (_generate-clauses22790_ _body23493_ __tmp42916)))) (declare (not safe)) - (_g2368723750_ __tmp43090)))) + (_g2362123684_ __tmp42915)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2366123672_))) - (__tmp43092 + _g2359523606_))) + (__tmp42917 (gx#stx-wrap-source (cons (gx#datum->syntax '#f @@ -5018,259 +5020,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_ __tmp43092)))) - _target2360023639_)))))) + (_g2359323688_ __tmp42917)))) + _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_))) - (__tmp43094 (gx#genident 'E))) + (_g2352223700_ _tgt-lst22784_)))) + _g2349723508_))) + (__tmp42919 (gx#genident 'E))) (declare (not safe)) - (_g2356123770_ __tmp43094)))) - (_generate-clauses22856_ - (lambda (_rest23211_ _E23213_) - (let* ((___stx4169041691_ _rest23211_) - (_g2321723233_ + (_g2349523704_ __tmp42919)))) + (_generate-clauses22790_ + (lambda (_rest23145_ _E23147_) + (let* ((___stx4158041581_ _rest23145_) + (_g2315123167_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx4169041691_)))) - (let ((___kont4169341694_ - (lambda (_L23467_) - (let* ((_g2347823496_ - (lambda (_g2347923492_) + '"Bad syntax; invalid match target" + ___stx4158041581_)))) + (let ((___kont4158341584_ + (lambda (_L23401_) + (let* ((_g2341223430_ + (lambda (_g2341323426_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2347923492_))) - (_g2347723551_ - (lambda (_g2347923500_) - (if (gx#stx-pair? _g2347923500_) - (let ((_e2348423503_ + '"Bad syntax; invalid match target" + _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" - _g2327723291_))) - (_g2327523446_ - (lambda (_g2327723299_) - (if (gx#stx-pair? _g2327723299_) - (let ((_e2328323302_ + '"Bad syntax; invalid match target" + _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" - _g2335323363_))) - (_g2335123412_ - (lambda (_g2335323371_) - (if (gx#stx-pair? _g2335323371_) - (let ((_e2335823374_ + '"Bad syntax; invalid match target" + _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_))))) - (__tmp43097 + (_g2328623301_ + _g2328723305_))))) + (__tmp42922 (list (let () (declare (not safe)) - (_generate122857_ - _L23334_ - _L23332_ - _E23213_)) - (let ((__tmp43098 - (cons _L23335_ '()))) + (_generate122791_ + _L23268_ + _L23266_ + _E23147_)) + (let ((__tmp42923 + (cons _L23269_ '()))) (declare (not safe)) - (_generate-clauses22856_ - _L23261_ - __tmp43098))))) + (_generate-clauses22790_ + _L23195_ + __tmp42923))))) (declare (not safe)) - (_g2335123412_ __tmp43097)) - (let* ((_g2341623424_ - (lambda (_g2341723420_) + (_g2328523346_ __tmp42922)) + (let* ((_g2335023358_ + (lambda (_g2335123354_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2341723420_))) - (_g2341523442_ - (lambda (_g2341723428_) - ((lambda (_L23431_) + '"Bad syntax; invalid match target" + _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,766 +5284,769 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _L23332_ '()))) + (cons '() (cons _L23266_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _L23431_ '()))))) + (cons _L23365_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2341723428_))) - (__tmp43095 - (let ((__tmp43096 - (cons _L23335_ '()))) + _g2335123362_))) + (__tmp42920 + (let ((__tmp42921 + (cons _L23269_ '()))) (declare (not safe)) - (_generate-clauses22856_ - _L23261_ - __tmp43096)))) + (_generate-clauses22790_ + _L23195_ + __tmp42921)))) (declare (not safe)) - (_g2341523442_ __tmp43095)))) - _hd2328823326_ - _hd2328523316_ - _hd2328223306_) + (_g2334923376_ __tmp42920)))) + _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" - _g2286522884_))) - (_g2286323207_ - (lambda (_g2286522892_) - (if (gx#stx-pair? _g2286522892_) - (let ((_e2287022895_ - (gx#syntax-e _g2286522892_))) - (let ((_hd2286922899_ + '"Bad syntax; invalid match target" + _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 ((_g43099_ + _hd2280622843_) + (let ((_g42924_ (gx#syntax-split-splice - _hd2287222909_ + _hd2280622843_ '0))) (begin - (let ((_g43100_ + (let ((_g42925_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g43099_) - (##vector-length _g43099_) + (if (##values? _g42924_) + (##vector-length _g42924_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g43100_ 2))) - (error "Context expects 2 values" _g43100_))) - (let ((_target2287422915_ - (let () (declare (not safe)) (##vector-ref _g43099_ 0))) - (_tl2287622918_ - (let () (declare (not safe)) (##vector-ref _g43099_ 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= _g42925_ 2))) + (error "Context expects 2 values" _g42925_))) + (let ((_target2280822849_ + (let () (declare (not safe)) (##vector-ref _g42924_ 0))) + (_tl2281022852_ + (let () (declare (not safe)) (##vector-ref _g42924_ 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 ((__tmp43104 - (cons _lp-hd2287922935_ - _var2288122928_))) + (##cdr _e2281222865_)))) + (let ((__tmp42929 + (cons _lp-hd2281322869_ + _var2281522862_))) (declare (not safe)) - (_loop2287722921_ - _lp-tl2288022938_ - __tmp43104)))) - (let ((_var2288222941_ - (reverse _var2288122928_))) - (if (gx#stx-null? _tl2287122912_) - ((lambda (_L22945_ _L22947_) + (_loop2281122855_ + _lp-tl2281422872_ + __tmp42929)))) + (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" - _g2297822981_))) - (_g2297623079_ - (lambda (_g2297822989_) - ((lambda (_L22992_) + '"Bad syntax; invalid match target" + _g2291222915_))) + (_g2291023013_ + (lambda (_g2291222923_) + ((lambda (_L22926_) (let () - (let* ((_g2300523013_ + (let* ((_g2293922947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2300623009_) + (lambda (_g2294022943_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2300623009_))) - (_g2300423075_ - (lambda (_g2300623017_) - ((lambda (_L23020_) + '"Bad syntax; invalid match target" + _g2294022943_))) + (_g2293823009_ + (lambda (_g2294022951_) + ((lambda (_L22954_) (let () - (let* ((_g2303323041_ - (lambda (_g2303423037_) + (let* ((_g2296722975_ + (lambda (_g2296822971_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2303423037_))) - (_g2303223063_ - (lambda (_g2303423045_) - ((lambda (_L23048_) + '"Bad syntax; invalid match target" + _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_))) - (__tmp43101 + _g2296822979_))) + (__tmp42926 (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_ __tmp43101)))) - _g2300623017_)))) + (_g2296622997_ __tmp42926)))) + _g2294022951_)))) (declare (not safe)) - (_g2300423075_ _body22861_)))) - _g2297822989_))) - (__tmp43102 - (let _recur23083_ ((_rest23086_ _clause22859_) - (_rest-targets23088_ _tgt-lst22850_)) - (let* ((___stx4171641717_ _rest23086_) - (_g2309123103_ + (_g2293823009_ _body22795_)))) + _g2291222923_))) + (__tmp42927 + (let _recur23017_ ((_rest23020_ _clause22793_) + (_rest-targets23022_ _tgt-lst22784_)) + (let* ((___stx4160641607_ _rest23020_) + (_g2302523037_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx4171641717_)))) - (let ((___kont4171941720_ - (lambda (_L23139_ _L23141_) - (let* ((_g2315623168_ - (lambda (_g2315723164_) + '"Bad syntax; invalid match target" + ___stx4160641607_)))) + (let ((___kont4160941610_ + (lambda (_L23073_ _L23075_) + (let* ((_g2309023102_ + (lambda (_g2309123098_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2315723164_))) - (_g2315523199_ - (lambda (_g2315723172_) - (if (gx#stx-pair? _g2315723172_) - (let ((_e2316223175_ - (gx#syntax-e _g2315723172_))) - (let ((_hd2316123179_ + '"Bad syntax; invalid match target" + _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 ((__tmp43103 + (##cdr _e2309623109_)))) + ((lambda (_L23119_ _L23121_) + (let ((__tmp42928 (let () (declare (not safe)) - (_recur23083_ - _L23139_ - _L23185_)))) + (_recur23017_ + _L23073_ + _L23119_)))) (declare (not safe)) (|gerbil/core$[1]#generate-match1| - _stx22848_ - _L23187_ - _L23141_ - __tmp43103 - _E22862_))) - _tl2316023182_ - _hd2316123179_))) + _stx22782_ + _L23121_ + _L23075_ + __tmp42928 + _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_ __tmp43102)))) - _var2288222941_ - _hd2286922899_) + (_g2291023013_ __tmp42927)))) + _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_))))) - (__tmp43105 + (_g2279822822_ _g2279922826_))))) + (__tmp42930 (list (gx#genident 'K) (apply append (map |gerbil/core$[1]#match-pattern-vars| - _clause22859_))))) + _clause22793_))))) (declare (not safe)) - (_g2286323207_ __tmp43105))))) - (let ((__tmp43106 - (let ((__tmp43107 (gx#stx-length _tgt-lst22850_))) + (_g2279723141_ __tmp42930))))) + (let ((__tmp42931 + (let ((__tmp42932 (gx#stx-length _tgt-lst22784_))) (declare (not safe)) - (_parse-body22853_ __tmp43107)))) + (_parse-body22787_ __tmp42932)))) (declare (not safe)) - (_generate-body22855_ __tmp43106))))) + (_generate-body22789_ __tmp42931))))) (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" - ___stx4173241733_)))) - (let ((___kont4173541736_ (lambda () _clause22758_)) - (___kont4173741738_ - (lambda (_L22806_ _L22808_) + '"Bad syntax; invalid match target" + ___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]#_g43108_| - _hd2276622834_) - (___kont4173541736_) - (___kont4173741738_ - _tl2276522837_ - _hd2276622834_)) - (___kont4173741738_ - _tl2276522837_ - _hd2276622834_)))) - (___kont4173941740_))))))) - (let ((__tmp43110 (cons _tgt22752_ '())) - (__tmp43109 (gx#stx-map _reclause22755_ _clauses22753_))) + |gerbil/core$[1]#_g42933_| + _hd2270022768_) + (___kont4162541626_) + (___kont4162741628_ + _tl2269922771_ + _hd2270022768_)) + (___kont4162741628_ + _tl2269922771_ + _hd2270022768_)))) + (___kont4162941630_))))))) + (let ((__tmp42935 (cons _tgt22686_ '())) + (__tmp42934 (gx#stx-map _reclause22689_ _clauses22687_))) (declare (not safe)) (|gerbil/core$[1]#generate-match*| - _stx22750_ - __tmp43110 - __tmp43109))))) + _stx22684_ + __tmp42935 + __tmp42934))))) (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" - ___stx4176041761_)))) - (let ((___kont4176341764_ - (lambda (_L30633_) - (let* ((_g3064630654_ - (lambda (_g3064730650_) + '"Bad syntax; invalid match target" + ___stx4165041651_)))) + (let ((___kont4165341654_ + (lambda (_L30567_) + (let* ((_g3058030588_ + (lambda (_g3058130584_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g3064730650_))) - (_g3064530707_ - (lambda (_g3064730658_) - ((lambda (_L30661_) + '"Bad syntax; invalid match target" + _g3058130584_))) + (_g3057930641_ + (lambda (_g3058130592_) + ((lambda (_L30595_) (let () - (let* ((_g3067330681_ - (lambda (_g3067430677_) + (let* ((_g3060730615_ + (lambda (_g3060830611_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g3067430677_))) - (_g3067230703_ - (lambda (_g3067430685_) - ((lambda (_L30688_) + '"Bad syntax; invalid match target" + _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" - _g3054230545_))) - (_g3054030602_ - (lambda (_g3054230553_) - ((lambda (_L30556_) + '"Bad syntax; invalid match target" + _g3047630479_))) + (_g3047430536_ + (lambda (_g3047630487_) + ((lambda (_L30490_) (let () - (let* ((_g3056830576_ - (lambda (_g3056930572_) + (let* ((_g3050230510_ + (lambda (_g3050330506_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g3056930572_))) - (_g3056730598_ - (lambda (_g3056930580_) - ((lambda (_L30583_) + '"Bad syntax; invalid match target" + _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" - _g3043730440_))) - (_g3043530497_ - (lambda (_g3043730448_) - ((lambda (_L30451_) + '"Bad syntax; invalid match target" + _g3037130374_))) + (_g3036930431_ + (lambda (_g3037130382_) + ((lambda (_L30385_) (let () - (let* ((_g3046330471_ - (lambda (_g3046430467_) + (let* ((_g3039730405_ + (lambda (_g3039830401_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g3046430467_))) - (_g3046230493_ - (lambda (_g3046430475_) - ((lambda (_L30478_) + '"Bad syntax; invalid match target" + _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]#_g43112_| - _hd3037130627_) - (___match4178541786_ - _e3036930613_ - _hd3036830617_ - _tl3036730620_ - _e3037230623_ - _hd3037130627_ - _tl3037030630_) + |gerbil/core$[1]#_g42937_| + _hd3030530561_) + (___match4167541676_ + _e3030330547_ + _hd3030230551_ + _tl3030130554_ + _e3030630557_ + _hd3030530561_ + _tl3030430564_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43111_| - _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]#_g42936_| + _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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3071930738_))) - (_g3071730954_ - (lambda (_g3071930746_) - (if (gx#stx-pair? _g3071930746_) - (let ((_e3072430749_ (gx#syntax-e _g3071930746_))) - (let ((_hd3072330753_ + (lambda (_stx30649_) + (let* ((_g3065230676_ + (lambda (_g3065330672_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43113_ + (##cdr _e3066130693_)))) + (if (gx#stx-pair/null? _hd3066030697_) + (let ((_g42938_ (gx#syntax-split-splice - _hd3072630763_ + _hd3066030697_ '0))) (begin - (let ((_g43114_ + (let ((_g42939_ (let () (declare (not safe)) - (if (##values? _g43113_) + (if (##values? _g42938_) (##vector-length - _g43113_) + _g42938_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43114_ 2))) + (##fx= _g42939_ 2))) (error "Context expects 2 values" - _g43114_))) - (let ((_target3072830769_ + _g42939_))) + (let ((_target3066230703_ (let () (declare (not safe)) - (##vector-ref _g43113_ 0))) - (_tl3073030772_ + (##vector-ref _g42938_ 0))) + (_tl3066430706_ (let () (declare (not safe)) - (##vector-ref _g43113_ 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 _g42938_ 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" - _g3082030832_))) - (_g3081830942_ - (lambda (_g3082030840_) + '"Bad syntax; invalid match target" + _g3075430766_))) + (_g3075230876_ + (lambda (_g3075430774_) (if (gx#stx-pair/null? - _g3082030840_) - (let ((_g43115_ + _g3075430774_) + (let ((_g42940_ (gx#syntax-split-splice - _g3082030840_ + _g3075430774_ '0))) (begin - (let ((_g43116_ + (let ((_g42941_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g43115_) - (##vector-length _g43115_) + _g42940_) + (##vector-length _g42940_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g43116_ 2))) - (error "Context expects 2 values" _g43116_))) + (##fx= _g42941_ 2))) + (error "Context expects 2 values" _g42941_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3082230843_ + (let ((_target3075630777_ (let () (declare (not safe)) (##vector-ref - _g43115_ + _g42940_ 0))) - (_tl3082430846_ + (_tl3075830780_ (let () (declare (not safe)) (##vector-ref - _g43115_ + _g42940_ 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" - _g3089030893_))) - (_g3088830930_ - (lambda (_g3089030901_) - ((lambda (_L30904_) + '"Bad syntax; invalid match target" + _g3082430827_))) + (_g3082230864_ + (lambda (_g3082430835_) + ((lambda (_L30838_) (let () (let () (cons (gx#datum->syntax @@ -6050,984 +6055,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 ((__tmp43117 - (foldr (lambda (_g3093330936_ + _g3082430835_)))) + (_g3082230864_ + (let ((__tmp42942 + (foldr (lambda (_g3086730870_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3093430939_) - (cons _g3093330936_ _g3093430939_)) + _g3086830873_) + (cons _g3086730870_ _g3086830873_)) '() - _L30873_))) + _L30807_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (|gerbil/core$[1]#generate-match*| - _stx30715_ - __tmp43117 - _L30799_)))))) - _$e3083030869_)))))) - (_loop3082530849_ _target3082230843_ '())) - (_g3081930836_ _g3082030840_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3081930836_ - _g3082030840_))))) - (_g3081830942_ + _stx30649_ + __tmp42942 + _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" - ___stx4181641817_)))) - (let ((___kont4181941820_ - (lambda (_L31379_) + '"Bad syntax; invalid match target" + ___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" - ___stx4191241913_)))) - (let ((___kont4191541916_ - (lambda (_L31639_ _L31641_ _L31642_ _L31643_ _L31644_) + '"Bad syntax; invalid match target" + ___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" - ___stx4198841989_)))) - (let ((___kont4199141992_ - (lambda (_L32445_ _L32447_ _L32448_) + '"Bad syntax; invalid match target" + ___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 @@ -7036,20 +7041,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 @@ -7058,1746 +7063,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]#_g43119_| - _hd3179232045_) - (if (gx#stx-pair? _tl3179132048_) - (let ((_e3179632051_ - (gx#syntax-e _tl3179132048_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42943_| + _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]#_g43119_| - _hd3179232045_) - (if (gx#stx-pair? _tl3179132048_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42943_| + _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]#_g43122_| - _hd3170732399_) + |gerbil/core$[1]#_g42947_| + _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]#_g43119_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42943_| + _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]#_g43119_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42943_| + _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]#_g43121_| - _hd3170732399_) + |gerbil/core$[1]#_g42946_| + _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]#_g43119_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42943_| + _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]#_g43119_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42943_| + _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]#_g43120_| - _hd3170732399_) + |gerbil/core$[1]#_g42945_| + _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]#_g43119_| - _hd3176132229_) - (if (gx#stx-pair? _tl3176032232_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ + |gerbil/core$[1]#_g42943_| + _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]#_g43119_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ + |gerbil/core$[1]#_g42943_| + _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]#_g43119_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42943_| + _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]#_g43119_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + |gerbil/core$[1]#_g42943_| + _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]#_g43119_| - _hd3177232155_) + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) + |gerbil/core$[1]#_g42943_| + _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]#_g43119_| - _hd3177232155_) + |gerbil/core$[1]#_g42944_| + _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]#_g43118_| - _hd3183131896_) + |gerbil/core$[1]#_g42943_| + _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" - ___stx4225642257_)))) - (let ((___kont4225942260_ - (lambda (_L32627_ _L32629_ _L32630_) + '"Bad syntax; invalid match target" + ___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) @@ -8809,9 +8814,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) @@ -8868,11 +8873,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 @@ -8883,141 +8888,144 @@ '#f 'raise-syntax-error) (cons '#f - (cons '"Bad syntax" + (cons '"Bad syntax; no macro definition for defsyntax-for-match" (cons (gx#datum->syntax '#f '$stx) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3265732667_))) - (_g3265532714_ - (lambda (_g3265732675_) - (if (gx#stx-pair? _g3265732675_) - (let ((_e3266232678_ (gx#syntax-e _g3265732675_))) - (let ((_hd3266132682_ + (lambda (_$stx32586_) + (let* ((_g3259032605_ + (lambda (_g3259132601_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 9dd58f1ffe..3017dab1de 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]#_g43027_| + (define |gerbil/core$[2]#_g42950_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43029_| + (define |gerbil/core$[2]#_g42952_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43030_| + (define |gerbil/core$[2]#_g42953_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43031_| + (define |gerbil/core$[2]#_g42954_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43032_| + (define |gerbil/core$[2]#_g42955_| (##structure gx#syntax-quote::t 'match-macro? @@ -36,20 +36,20 @@ (gx#current-expander-context) '())) (define |gerbil/core$[:1:]#match-macro| - (let ((__tmp43033 |gerbil/core$[2]#_g43030_|) - (__tmp43028 - (cons (cons |gerbil/core$[2]#_g43029_| '()) - (cons |gerbil/core$[2]#_g43030_| - (cons |gerbil/core$[2]#_g43031_| - (cons |gerbil/core$[2]#_g43032_| + (let ((__tmp42956 |gerbil/core$[2]#_g42953_|) + (__tmp42951 + (cons (cons |gerbil/core$[2]#_g42952_| '()) + (cons |gerbil/core$[2]#_g42953_| + (cons |gerbil/core$[2]#_g42954_| + (cons |gerbil/core$[2]#_g42955_| (cons '() (cons '() '()))))))) - (__tmp43025 - (let ((__tmp43026 (list |gerbil/core$[2]#_g43027_|))) + (__tmp42948 + (let ((__tmp42949 (list |gerbil/core$[2]#_g42950_|))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#match-macro::t - __tmp43026 + __tmp42949 'match-macro '#f '() @@ -58,8 +58,8 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp43033 + __tmp42956 'expander-identifiers: - __tmp43028 + __tmp42951 'type-exhibitor: - __tmp43025)))) + __tmp42948)))) diff --git a/src/bootstrap/gerbil/core__12.scm b/src/bootstrap/gerbil/core__12.scm index 6e9be250b3..c69c6a90e5 100644 --- a/src/bootstrap/gerbil/core__12.scm +++ b/src/bootstrap/gerbil/core__12.scm @@ -1,29 +1,41 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#:| - (lambda (_$stx32719_) - (let ((_g3272232729_ - (lambda (_g3272332725_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3272332725_)))) - (_g3272232729_ _$stx32719_)))) + (lambda (_$stx32653_) + (let ((_g3265632663_ + (lambda (_g3265732659_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g3265732659_)))) + (_g3265632663_ _$stx32653_)))) (define |gerbil/core$[:0:]#:~| - (lambda (_$stx32733_) - (let ((_g3273632743_ - (lambda (_g3273732739_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3273732739_)))) - (_g3273632743_ _$stx32733_)))) + (lambda (_$stx32667_) + (let ((_g3267032677_ + (lambda (_g3267132673_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g3267132673_)))) + (_g3267032677_ _$stx32667_)))) (define |gerbil/core$[:0:]#:-| - (lambda (_$stx32747_) - (let ((_g3275032757_ - (lambda (_g3275132753_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3275132753_)))) - (_g3275032757_ _$stx32747_)))) + (lambda (_$stx32681_) + (let ((_g3268432691_ + (lambda (_g3268532687_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g3268532687_)))) + (_g3268432691_ _$stx32681_)))) (define |gerbil/core$[:0:]#:=| - (lambda (_$stx32761_) - (let ((_g3276432771_ - (lambda (_g3276532767_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3276532767_)))) - (_g3276432771_ _$stx32761_)))) + (lambda (_$stx32695_) + (let ((_g3269832705_ + (lambda (_g3269932701_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g3269932701_)))) + (_g3269832705_ _$stx32695_)))) (define |gerbil/core$[1]#setq-macro::t| (make-class-type 'gerbil.core#setq-macro::t @@ -35,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 @@ -50,1202 +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 ((__tmp43034 (gx#syntax-local-value _stx32779_ false))) + (lambda (_stx32713_) + (if (gx#identifier? _stx32713_) + (let ((__tmp42957 (gx#syntax-local-value _stx32713_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setf-macro::t| - __tmp43034)) + __tmp42957)) '#f))) (define |gerbil/core$[1]#syntax-local-setq-macro?| - (lambda (_stx32776_) - (if (gx#identifier? _stx32776_) - (let ((__tmp43035 (gx#syntax-local-value _stx32776_ false))) + (lambda (_stx32710_) + (if (gx#identifier? _stx32710_) + (let ((__tmp42958 (gx#syntax-local-value _stx32710_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setq-macro::t| - __tmp43035)) + __tmp42958)) '#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" ___stx4231242313_)))) - (let ((___kont4231542316_ - (lambda (_L33128_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + ___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" - _g3305333056_))) - (_g3305133087_ - (lambda (_g3305333064_) - ((lambda (_L33067_) + '"Bad syntax; invalid match target" + _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 ((__tmp43036 + (##car _e3274133052_)))) + (if (let ((__tmp42959 (gx#datum->syntax '#f 'setfid))) (declare (not safe)) (|gerbil/core$[1]#syntax-local-setf-macro?| - __tmp43036)) - (let ((_L33128_ _hd3280633122_)) - (___kont4231542316_ _L33128_)) - (if (gx#stx-pair/null? _tl3280533125_) - (let ((___splice4231942320_ + __tmp42959)) + (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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3315233171_))) - (_g3315033353_ - (lambda (_g3315233179_) - (if (gx#stx-pair? _g3315233179_) - (let ((_e3315733182_ (gx#syntax-e _g3315233179_))) - (let ((_hd3315633186_ + (lambda (_stx33082_) + (let* ((_g3308533109_ + (lambda (_g3308633105_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43037_ + (##cdr _e3309133116_)))) + (if (gx#stx-pair/null? _tl3308933123_) + (if (fx>= (gx#stx-length _tl3308933123_) '1) + (let ((_g42960_ (gx#syntax-split-splice - _tl3315533189_ + _tl3308933123_ '1))) (begin - (let ((_g43038_ + (let ((_g42961_ (let () (declare (not safe)) - (if (##values? _g43037_) - (##vector-length _g43037_) + (if (##values? _g42960_) + (##vector-length _g42960_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43038_ 2))) + (##fx= _g42961_ 2))) (error "Context expects 2 values" - _g43038_))) - (let ((_target3315833192_ + _g42961_))) + (let ((_target3309233126_ (let () (declare (not safe)) - (##vector-ref _g43037_ 0))) - (_tl3316033195_ + (##vector-ref _g42960_ 0))) + (_tl3309433129_ (let () (declare (not safe)) - (##vector-ref _g43037_ 1)))) - (if (gx#stx-pair? _tl3316033195_) - (let ((_e3316933198_ - (gx#syntax-e _tl3316033195_))) - (let ((_hd3316833202_ + (##vector-ref _g42960_ 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" - _g3325333265_))) - (_g3325133341_ - (lambda (_g3325333273_) - (if (gx#stx-pair/null? _g3325333273_) - (let ((_g43039_ + '"Bad syntax; invalid match target" + _g3318733199_))) + (_g3318533275_ + (lambda (_g3318733207_) + (if (gx#stx-pair/null? _g3318733207_) + (let ((_g42962_ (gx#syntax-split-splice - _g3325333273_ + _g3318733207_ '0))) (begin - (let ((_g43040_ + (let ((_g42963_ (let () (declare (not safe)) (if (##values? - _g43039_) + _g42962_) (##vector-length - _g43039_) + _g42962_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43040_ + (##fx= _g42963_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g43040_))) + (error "Context expects 2 values" _g42963_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3325533276_ + (let ((_target3318933210_ (let () (declare (not safe)) (##vector-ref - _g43039_ + _g42962_ 0))) - (_tl3325733279_ + (_tl3319133213_ (let () (declare (not safe)) (##vector-ref - _g43039_ + _g42962_ 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" ___stx4240642407_)))) - (let ((___kont4240942410_ - (lambda (_L33755_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + ___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" - _g3355933562_))) - (_g3355733686_ - (lambda (_g3355933570_) - ((lambda (_L33573_) + '"Bad syntax; invalid match target" + _g3349333496_))) + (_g3349133620_ + (lambda (_g3349333504_) + ((lambda (_L33507_) (let () - (let* ((_g3358533602_ - (lambda (_g3358633598_) + (let* ((_g3351933536_ + (lambda (_g3352033532_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g3358633598_))) - (_g3358433666_ - (lambda (_g3358633606_) - (if (gx#stx-pair/null? _g3358633606_) - (let ((_g43041_ + '"Bad syntax; invalid match target" + _g3352033532_))) + (_g3351833600_ + (lambda (_g3352033540_) + (if (gx#stx-pair/null? _g3352033540_) + (let ((_g42964_ (gx#syntax-split-splice - _g3358633606_ + _g3352033540_ '0))) (begin - (let ((_g43042_ + (let ((_g42965_ (let () (declare (not safe)) (if (##values? - _g43041_) + _g42964_) (##vector-length - _g43041_) + _g42964_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g43042_ 2))) - (error "Context expects 2 values" _g43042_))) + (##fx= _g42965_ 2))) + (error "Context expects 2 values" _g42965_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3358833609_ + (let ((_target3352233543_ (let () (declare (not safe)) (##vector-ref - _g43041_ + _g42964_ 0))) - (_tl3359033612_ + (_tl3352433546_ (let () (declare (not safe)) (##vector-ref - _g43041_ + _g42964_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3379333812_))) - (_g3379133901_ - (lambda (_g3379333820_) - (if (gx#stx-pair? _g3379333820_) - (let ((_e3379833823_ (gx#syntax-e _g3379333820_))) - (let ((_hd3379733827_ + (lambda (_$stx33722_) + (let* ((_g3372633750_ + (lambda (_g3372733746_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43043_ + (##cdr _e3373533767_)))) + (if (gx#stx-pair/null? _tl3373333774_) + (let ((_g42966_ (gx#syntax-split-splice - _tl3379933840_ + _tl3373333774_ '0))) (begin - (let ((_g43044_ + (let ((_g42967_ (let () (declare (not safe)) - (if (##values? _g43043_) - (##vector-length _g43043_) + (if (##values? _g42966_) + (##vector-length _g42966_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43044_ 2))) + (##fx= _g42967_ 2))) (error "Context expects 2 values" - _g43044_))) - (let ((_target3380233843_ + _g42967_))) + (let ((_target3373633777_ (let () (declare (not safe)) - (##vector-ref _g43043_ 0))) - (_tl3380433846_ + (##vector-ref _g42966_ 0))) + (_tl3373833780_ (let () (declare (not safe)) - (##vector-ref _g43043_ 1)))) - (if (gx#stx-null? _tl3380433846_) - (letrec ((_loop3380533849_ - (lambda (_hd3380333853_ + (##vector-ref _g42966_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3391133930_))) - (_g3390934019_ - (lambda (_g3391133938_) - (if (gx#stx-pair? _g3391133938_) - (let ((_e3391633941_ (gx#syntax-e _g3391133938_))) - (let ((_hd3391533945_ + (lambda (_$stx33840_) + (let* ((_g3384433868_ + (lambda (_g3384533864_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43045_ + (##cdr _e3385333885_)))) + (if (gx#stx-pair/null? _tl3385133892_) + (let ((_g42968_ (gx#syntax-split-splice - _tl3391733958_ + _tl3385133892_ '0))) (begin - (let ((_g43046_ + (let ((_g42969_ (let () (declare (not safe)) - (if (##values? _g43045_) - (##vector-length _g43045_) + (if (##values? _g42968_) + (##vector-length _g42968_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43046_ 2))) + (##fx= _g42969_ 2))) (error "Context expects 2 values" - _g43046_))) - (let ((_target3392033961_ + _g42969_))) + (let ((_target3385433895_ (let () (declare (not safe)) - (##vector-ref _g43045_ 0))) - (_tl3392233964_ + (##vector-ref _g42968_ 0))) + (_tl3385633898_ (let () (declare (not safe)) - (##vector-ref _g43045_ 1)))) - (if (gx#stx-null? _tl3392233964_) - (letrec ((_loop3392333967_ - (lambda (_hd3392133971_ + (##vector-ref _g42968_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3402934052_))) - (_g3402734155_ - (lambda (_g3402934060_) - (if (gx#stx-pair? _g3402934060_) - (let ((_e3403534063_ (gx#syntax-e _g3402934060_))) - (let ((_hd3403434067_ + (lambda (_$stx33958_) + (let* ((_g3396233990_ + (lambda (_g3396333986_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43047_ + (##cdr _e3397534017_)))) + (if (gx#stx-pair/null? _tl3397334024_) + (let ((_g42970_ (gx#syntax-split-splice - _tl3403934090_ + _tl3397334024_ '0))) (begin - (let ((_g43048_ + (let ((_g42971_ (let () (declare (not safe)) (if (##values? - _g43047_) + _g42970_) (##vector-length - _g43047_) + _g42970_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43048_ + (##fx= _g42971_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g43048_))) + (error "Context expects 2 values" _g42971_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3404234093_ + (let ((_target3397634027_ (let () (declare (not safe)) (##vector-ref - _g43047_ + _g42970_ 0))) - (_tl3404434096_ + (_tl3397834030_ (let () (declare (not safe)) (##vector-ref - _g43047_ + _g42970_ 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) @@ -1253,7 +1283,7 @@ '#f 'lambda) (cons '() - (cons _L34126_ + (cons _L34060_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1262,77 +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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3416434173_))) - (_g3416234249_ - (lambda (_g3416434181_) - (if (gx#stx-pair? _g3416434181_) - (let ((_e3416834184_ (gx#syntax-e _g3416434181_))) - (let ((_hd3416734188_ + (lambda (_stx34094_) + (let* ((_g3409734111_ + (lambda (_g3409834107_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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" - _g3421934222_))) - (_g3421734245_ - (lambda (_g3421934230_) - ((lambda (_L34233_) + '"Bad syntax; invalid match target" + _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 7657f690fb..0b731890e5 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]#_g43051_| + (define |gerbil/core$[2]#_g42974_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43053_| + (define |gerbil/core$[2]#_g42976_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43054_| + (define |gerbil/core$[2]#_g42977_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43055_| + (define |gerbil/core$[2]#_g42978_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43056_| + (define |gerbil/core$[2]#_g42979_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43061_| + (define |gerbil/core$[2]#_g42984_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43062_| + (define |gerbil/core$[2]#_g42985_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43063_| + (define |gerbil/core$[2]#_g42986_| (##structure gx#syntax-quote::t 'setf-macro? @@ -58,20 +58,20 @@ '())) (begin (define |gerbil/core$[:1:]#setq-macro| - (let ((__tmp43057 |gerbil/core$[2]#_g43054_|) - (__tmp43052 - (cons (cons |gerbil/core$[2]#_g43053_| '()) - (cons |gerbil/core$[2]#_g43054_| - (cons |gerbil/core$[2]#_g43055_| - (cons |gerbil/core$[2]#_g43056_| + (let ((__tmp42980 |gerbil/core$[2]#_g42977_|) + (__tmp42975 + (cons (cons |gerbil/core$[2]#_g42976_| '()) + (cons |gerbil/core$[2]#_g42977_| + (cons |gerbil/core$[2]#_g42978_| + (cons |gerbil/core$[2]#_g42979_| (cons '() (cons '() '()))))))) - (__tmp43049 - (let ((__tmp43050 (list |gerbil/core$[2]#_g43051_|))) + (__tmp42972 + (let ((__tmp42973 (list |gerbil/core$[2]#_g42974_|))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#setq-macro::t - __tmp43050 + __tmp42973 'setq-macro '#f '() @@ -80,26 +80,26 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp43057 + __tmp42980 'expander-identifiers: - __tmp43052 + __tmp42975 'type-exhibitor: - __tmp43049))) + __tmp42972))) (define |gerbil/core$[:1:]#setf-macro| - (let ((__tmp43064 |gerbil/core$[2]#_g43061_|) - (__tmp43060 - (cons (cons |gerbil/core$[2]#_g43053_| '()) - (cons |gerbil/core$[2]#_g43061_| - (cons |gerbil/core$[2]#_g43062_| - (cons |gerbil/core$[2]#_g43063_| + (let ((__tmp42987 |gerbil/core$[2]#_g42984_|) + (__tmp42983 + (cons (cons |gerbil/core$[2]#_g42976_| '()) + (cons |gerbil/core$[2]#_g42984_| + (cons |gerbil/core$[2]#_g42985_| + (cons |gerbil/core$[2]#_g42986_| (cons '() (cons '() '()))))))) - (__tmp43058 - (let ((__tmp43059 (list |gerbil/core$[2]#_g43051_|))) + (__tmp42981 + (let ((__tmp42982 (list |gerbil/core$[2]#_g42974_|))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#setf-macro::t - __tmp43059 + __tmp42982 'setf-macro '#f '() @@ -108,8 +108,8 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp43064 + __tmp42987 'expander-identifiers: - __tmp43060 + __tmp42983 'type-exhibitor: - __tmp43058))))) + __tmp42981))))) diff --git a/src/bootstrap/gerbil/core__14.scm b/src/bootstrap/gerbil/core__14.scm index 08569392c6..598c568b60 100644 --- a/src/bootstrap/gerbil/core__14.scm +++ b/src/bootstrap/gerbil/core__14.scm @@ -1,36 +1,42 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#identifier-rules| - (lambda (_$stx34256_) - (let* ((_g3426034271_ - (lambda (_g3426134267_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3426134267_))) - (_g3425934301_ - (lambda (_g3426134275_) - (if (gx#stx-pair? _g3426134275_) - (let ((_e3426534278_ (gx#syntax-e _g3426134275_))) - (let ((_hd3426434282_ + (lambda (_$stx34190_) + (let* ((_g3419434205_ + (lambda (_g3419534201_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3430934311_)))) - (_g3430834315_ _$stx34305_))))) + (lambda (_$stx34239_) + (let ((_g3424234249_ + (lambda (_g3424334245_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g3424334245_)))) + (_g3424234249_ _$stx34239_))))) diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index 615c011531..08db6b1184 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -1,2572 +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" ___stx4246442465_)))) - (let ((___kont4246742468_ + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + ___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" ___stx4249442495_)))) - (let ((___kont4249742498_ - (lambda (_L34598_ _L34600_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + ___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" ___stx4255242553_)))) - (let ((___kont4255542556_ - (lambda (_L34803_ _L34805_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + ___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" ___stx4261042611_)))) - (let ((___kont4261342614_ - (lambda (_L35008_ _L35010_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + ___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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3503435049_))) - (_g3503235124_ - (lambda (_g3503435057_) - (if (gx#stx-pair? _g3503435057_) - (let ((_e3503835060_ (gx#syntax-e _g3503435057_))) - (let ((_hd3503735064_ + (lambda (_stx34964_) + (let* ((_g3496734987_ + (lambda (_g3496834983_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43065_ + (##cdr _e3497234994_)))) + (if (gx#stx-pair/null? _tl3497035001_) + (let ((_g42988_ (gx#syntax-split-splice - _tl3503635067_ + _tl3497035001_ '0))) (begin - (let ((_g43066_ + (let ((_g42989_ (let () (declare (not safe)) - (if (##values? _g43065_) - (##vector-length _g43065_) + (if (##values? _g42988_) + (##vector-length _g42988_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43066_ 2))) + (##fx= _g42989_ 2))) (error "Context expects 2 values" - _g43066_))) - (let ((_target3503935070_ + _g42989_))) + (let ((_target3497335004_ (let () (declare (not safe)) - (##vector-ref _g43065_ 0))) - (_tl3504135073_ + (##vector-ref _g42988_ 0))) + (_tl3497535007_ (let () (declare (not safe)) - (##vector-ref _g43065_ 1)))) - (if (gx#stx-null? _tl3504135073_) - (letrec ((_loop3504235076_ - (lambda (_hd3504035080_ - _body3504635083_) + (##vector-ref _g42988_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3513335148_))) - (_g3513135223_ - (lambda (_g3513335156_) - (if (gx#stx-pair? _g3513335156_) - (let ((_e3513735159_ (gx#syntax-e _g3513335156_))) - (let ((_hd3513635163_ + (lambda (_stx35063_) + (let* ((_g3506635086_ + (lambda (_g3506735082_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43067_ + (##cdr _e3507135093_)))) + (if (gx#stx-pair/null? _tl3506935100_) + (let ((_g42990_ (gx#syntax-split-splice - _tl3513535166_ + _tl3506935100_ '0))) (begin - (let ((_g43068_ + (let ((_g42991_ (let () (declare (not safe)) - (if (##values? _g43067_) - (##vector-length _g43067_) + (if (##values? _g42990_) + (##vector-length _g42990_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43068_ 2))) + (##fx= _g42991_ 2))) (error "Context expects 2 values" - _g43068_))) - (let ((_target3513835169_ + _g42991_))) + (let ((_target3507235103_ (let () (declare (not safe)) - (##vector-ref _g43067_ 0))) - (_tl3514035172_ + (##vector-ref _g42990_ 0))) + (_tl3507435106_ (let () (declare (not safe)) - (##vector-ref _g43067_ 1)))) - (if (gx#stx-null? _tl3514035172_) - (letrec ((_loop3514135175_ - (lambda (_hd3513935179_ - _body3514535182_) + (##vector-ref _g42990_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3523235251_))) - (_g3523035377_ - (lambda (_g3523235259_) - (if (gx#stx-pair? _g3523235259_) - (let ((_e3523735262_ (gx#syntax-e _g3523235259_))) - (let ((_hd3523635266_ + (lambda (_stx35162_) + (let* ((_g3516535189_ + (lambda (_g3516635185_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43069_ + (##cdr _e3517435206_)))) + (if (gx#stx-pair/null? _tl3517235213_) + (let ((_g42992_ (gx#syntax-split-splice - _tl3523835279_ + _tl3517235213_ '0))) (begin - (let ((_g43070_ + (let ((_g42993_ (let () (declare (not safe)) - (if (##values? _g43069_) + (if (##values? _g42992_) (##vector-length - _g43069_) + _g42992_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43070_ 2))) + (##fx= _g42993_ 2))) (error "Context expects 2 values" - _g43070_))) - (let ((_target3524135282_ + _g42993_))) + (let ((_target3517535216_ (let () (declare (not safe)) - (##vector-ref _g43069_ 0))) - (_tl3524335285_ + (##vector-ref _g42992_ 0))) + (_tl3517735219_ (let () (declare (not safe)) - (##vector-ref _g43069_ 1)))) - (if (gx#stx-null? _tl3524335285_) - (letrec ((_loop3524435288_ - (lambda (_hd3524235292_ + (##vector-ref _g42992_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3538635405_))) - (_g3538435531_ - (lambda (_g3538635413_) - (if (gx#stx-pair? _g3538635413_) - (let ((_e3539135416_ (gx#syntax-e _g3538635413_))) - (let ((_hd3539035420_ + (lambda (_stx35316_) + (let* ((_g3531935343_ + (lambda (_g3532035339_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43071_ + (##cdr _e3532835360_)))) + (if (gx#stx-pair/null? _tl3532635367_) + (let ((_g42994_ (gx#syntax-split-splice - _tl3539235433_ + _tl3532635367_ '0))) (begin - (let ((_g43072_ + (let ((_g42995_ (let () (declare (not safe)) - (if (##values? _g43071_) + (if (##values? _g42994_) (##vector-length - _g43071_) + _g42994_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43072_ 2))) + (##fx= _g42995_ 2))) (error "Context expects 2 values" - _g43072_))) - (let ((_target3539535436_ + _g42995_))) + (let ((_target3532935370_ (let () (declare (not safe)) - (##vector-ref _g43071_ 0))) - (_tl3539735439_ + (##vector-ref _g42994_ 0))) + (_tl3533135373_ (let () (declare (not safe)) - (##vector-ref _g43071_ 1)))) - (if (gx#stx-null? _tl3539735439_) - (letrec ((_loop3539835442_ - (lambda (_hd3539635446_ + (##vector-ref _g42994_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3559135619_))) - (_g3558935809_ - (lambda (_g3559135627_) - (if (gx#stx-pair? _g3559135627_) - (let ((_e3559735630_ (gx#syntax-e _g3559135627_))) - (let ((_hd3559635634_ + (lambda (_stx35521_) + (let* ((_g3552435557_ + (lambda (_g3552535553_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43073_ + (##cdr _e3553435574_)))) + (if (gx#stx-pair/null? _tl3553235581_) + (let ((_g42996_ (gx#syntax-split-splice - _tl3559835647_ + _tl3553235581_ '0))) (begin - (let ((_g43074_ + (let ((_g42997_ (let () (declare (not safe)) - (if (##values? _g43073_) + (if (##values? _g42996_) (##vector-length - _g43073_) + _g42996_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43074_ 2))) + (##fx= _g42997_ 2))) (error "Context expects 2 values" - _g43074_))) - (let ((_target3560135650_ + _g42997_))) + (let ((_target3553535584_ (let () (declare (not safe)) - (##vector-ref _g43073_ 0))) - (_tl3560335653_ + (##vector-ref _g42996_ 0))) + (_tl3553735587_ (let () (declare (not safe)) - (##vector-ref _g43073_ 1)))) - (if (gx#stx-null? _tl3560335653_) - (letrec ((_loop3560435656_ - (lambda (_hd3560235660_ + (##vector-ref _g42996_ 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)) - (_g43075_ + _L35638_))) + (let* ((_keytab35676_ (make-hash-table)) + (_found35679_ (make-hash-table)) + (_g42998_ (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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3581935832_))) - (_g3581735915_ - (lambda (_g3581935840_) - (if (gx#stx-pair? _g3581935840_) - (let ((_e3582435843_ (gx#syntax-e _g3581935840_))) - (let ((_hd3582335847_ + (lambda (_stx35749_) + (let* ((_g3575235770_ + (lambda (_g3575335766_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((__tmp43076 - (_rename-e35900_ + _name35831_ + _pre35825_)))) + (_fold-e35844_ + (letrec ((_fold-e35837_ + (lambda (_in35840_ _r35842_) + (if (gx#module-import? _in35840_) + (cons (let ((__tmp42999 + (_rename-e35834_ (gx#module-import-name - _in35906_)))) + _in35840_)))) (declare (not safe)) (|gerbil/core$[1]#module-import-rename| - _in35906_ - __tmp43076)) - _r35908_) - (if (gx#import-set? _in35906_) - (foldl _fold-e35903_ - _r35908_ + _in35840_ + __tmp42999)) + _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" - ___stx4266842669_)))) - (let ((___kont4267142672_ - (lambda (_L36140_ _L36142_) - (map (lambda (_mod36157_) + '"Bad syntax; invalid match target" + ___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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3592735946_))) - (_g3592536041_ - (lambda (_g3592735954_) - (if (gx#stx-pair? _g3592735954_) - (let ((_e3593235957_ (gx#syntax-e _g3592735954_))) - (let ((_hd3593135961_ + (_g3598336027_))))))))) + (let* ((_g3586035884_ + (lambda (_g3586135880_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43077_ + (##cdr _e3586935901_)))) + (if (gx#stx-pair/null? _tl3586735908_) + (let ((_g43000_ (gx#syntax-split-splice - _tl3593335974_ + _tl3586735908_ '0))) (begin - (let ((_g43078_ + (let ((_g43001_ (let () (declare (not safe)) - (if (##values? _g43077_) + (if (##values? _g43000_) (##vector-length - _g43077_) + _g43000_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43078_ 2))) + (##fx= _g43001_ 2))) (error "Context expects 2 values" - _g43078_))) - (let ((_target3593635977_ + _g43001_))) + (let ((_target3587035911_ (let () (declare (not safe)) - (##vector-ref _g43077_ 0))) - (_tl3593835980_ + (##vector-ref _g43000_ 0))) + (_tl3587235914_ (let () (declare (not safe)) (##vector-ref - _g43077_ + _g43000_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3619036209_))) - (_g3618836335_ - (lambda (_g3619036217_) - (if (gx#stx-pair? _g3619036217_) - (let ((_e3619536220_ (gx#syntax-e _g3619036217_))) - (let ((_hd3619436224_ + (lambda (_stx36120_) + (let* ((_g3612336147_ + (lambda (_g3612436143_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43079_ + (##cdr _e3613236164_)))) + (if (gx#stx-pair/null? _tl3613036171_) + (let ((_g43002_ (gx#syntax-split-splice - _tl3619636237_ + _tl3613036171_ '0))) (begin - (let ((_g43080_ + (let ((_g43003_ (let () (declare (not safe)) - (if (##values? _g43079_) + (if (##values? _g43002_) (##vector-length - _g43079_) + _g43002_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43080_ 2))) + (##fx= _g43003_ 2))) (error "Context expects 2 values" - _g43080_))) - (let ((_target3619936240_ + _g43003_))) + (let ((_target3613336174_ (let () (declare (not safe)) - (##vector-ref _g43079_ 0))) - (_tl3620136243_ + (##vector-ref _g43002_ 0))) + (_tl3613536177_ (let () (declare (not safe)) - (##vector-ref _g43079_ 1)))) - (if (gx#stx-null? _tl3620136243_) - (letrec ((_loop3620236246_ - (lambda (_hd3620036250_ + (##vector-ref _g43002_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3634836376_))) - (_g3634636566_ - (lambda (_g3634836384_) - (if (gx#stx-pair? _g3634836384_) - (let ((_e3635436387_ (gx#syntax-e _g3634836384_))) - (let ((_hd3635336391_ + (lambda (_stx36278_) + (let* ((_g3628136314_ + (lambda (_g3628236310_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43081_ + (##cdr _e3629136331_)))) + (if (gx#stx-pair/null? _tl3628936338_) + (let ((_g43004_ (gx#syntax-split-splice - _tl3635536404_ + _tl3628936338_ '0))) (begin - (let ((_g43082_ + (let ((_g43005_ (let () (declare (not safe)) - (if (##values? _g43081_) + (if (##values? _g43004_) (##vector-length - _g43081_) + _g43004_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43082_ 2))) + (##fx= _g43005_ 2))) (error "Context expects 2 values" - _g43082_))) - (let ((_target3635836407_ + _g43005_))) + (let ((_target3629236341_ (let () (declare (not safe)) - (##vector-ref _g43081_ 0))) - (_tl3636036410_ + (##vector-ref _g43004_ 0))) + (_tl3629436344_ (let () (declare (not safe)) - (##vector-ref _g43081_ 1)))) - (if (gx#stx-null? _tl3636036410_) - (letrec ((_loop3636136413_ - (lambda (_hd3635936417_ + (##vector-ref _g43004_ 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)) - (_g43083_ + _L36395_))) + (let* ((_keytab36433_ (make-hash-table)) + (_found36436_ (make-hash-table)) + (_g43006_ (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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3657636589_))) - (_g3657436672_ - (lambda (_g3657636597_) - (if (gx#stx-pair? _g3657636597_) - (let ((_e3658136600_ (gx#syntax-e _g3657636597_))) - (let ((_hd3658036604_ + (lambda (_stx36506_) + (let* ((_g3650936527_ + (lambda (_g3651036523_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((__tmp43084 - (_rename-e36657_ + _name36588_ + _pre36582_)))) + (_fold-e36601_ + (letrec ((_fold-e36594_ + (lambda (_out36597_ _r36599_) + (if (gx#module-export? _out36597_) + (cons (let ((__tmp43007 + (_rename-e36591_ (gx#module-export-name - _out36663_)))) + _out36597_)))) (declare (not safe)) (|gerbil/core$[1]#module-export-rename| - _out36663_ - __tmp43084)) - _r36665_) - (if (gx#export-set? _out36663_) - (foldl _fold-e36660_ - _r36665_ + _out36597_ + __tmp43007)) + _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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3668036695_))) - (_g3667836934_ - (lambda (_g3668036703_) - (if (gx#stx-pair? _g3668036703_) - (let ((_e3668436706_ (gx#syntax-e _g3668036703_))) - (let ((_hd3668336710_ + (lambda (_stx36610_) + (let* ((_g3661336633_ + (lambda (_g3661436629_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g43085_ + (##cdr _e3661836640_)))) + (if (gx#stx-pair/null? _tl3661636647_) + (let ((_g43008_ (gx#syntax-split-splice - _tl3668236713_ + _tl3661636647_ '0))) (begin - (let ((_g43086_ + (let ((_g43009_ (let () (declare (not safe)) - (if (##values? _g43085_) - (##vector-length _g43085_) + (if (##values? _g43008_) + (##vector-length _g43008_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43086_ 2))) + (##fx= _g43009_ 2))) (error "Context expects 2 values" - _g43086_))) - (let ((_target3668536716_ + _g43009_))) + (let ((_target3661936650_ (let () (declare (not safe)) - (##vector-ref _g43085_ 0))) - (_tl3668736719_ + (##vector-ref _g43008_ 0))) + (_tl3662136653_ (let () (declare (not safe)) - (##vector-ref _g43085_ 1)))) - (if (gx#stx-null? _tl3668736719_) - (letrec ((_loop3668836722_ - (lambda (_hd3668636726_ - _id3669236729_) + (##vector-ref _g43008_ 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" - ___stx4269442695_)))) - (let ((___kont4269742698_ - (lambda (_L36810_ _L36812_) - (let ((_info36827_ + '"Bad syntax; invalid match target" + ___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 5267d19396..7b58bf8a08 100644 --- a/src/bootstrap/gerbil/core__16.scm +++ b/src/bootstrap/gerbil/core__16.scm @@ -1,37 +1,40 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |gerbil/core$[:0:]#eval-when-compile| - (lambda (_stx36940_) - (let* ((_g3694336957_ - (lambda (_g3694436953_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3694436953_))) - (_g3694236999_ - (lambda (_g3694436961_) - (if (gx#stx-pair? _g3694436961_) - (let ((_e3694836964_ (gx#syntax-e _g3694436961_))) - (let ((_hd3694736968_ - (let () (declare (not safe)) (##car _e3694836964_))) - (_tl3694636971_ + (lambda (_stx36874_) + (let* ((_g3687736891_ + (lambda (_g3687836887_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 f9cbab9d58..6620209fc4 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 @@ -11,7 +11,10 @@ (define |gerbil/core$[:0:]#syntax-rules| (lambda (_stx42_) (let* ((_g4569_ (lambda (_g4665_) - (gx#raise-syntax-error '#f '"Bad syntax" _g4665_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g4665_))) (_g44374_ (lambda (_g4673_) (if (gx#stx-pair? _g4673_) @@ -31,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_ @@ -80,15 +83,15 @@ (let* ((_body291_ (gx#stx-map (lambda (_clause148_) - (let* ((___stx3700637007_ + (let* ((___stx3694036941_ _clause148_) (_g152179_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx3700637007_)))) - (let ((___kont3700937010_ + '"Bad syntax; invalid match target" + ___stx3694036941_)))) + (let ((___kont3694336944_ (lambda (_L264_ _L266_) (cons _L266_ (cons (cons (gx#datum->syntax @@ -98,7 +101,7 @@ (cons _L264_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3701137012_ + (___kont3694536946_ (lambda (_L216_ _L218_ _L219_) @@ -110,10 +113,10 @@ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx3700637007_) + ___stx3694036941_) (let ((_e158244_ (gx#syntax-e - ___stx3700637007_))) + ___stx3694036941_))) (let ((_tl156251_ (let () (declare @@ -129,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_ @@ -141,7 +144,7 @@ (declare (not safe)) (##car _e173206_)))) (if (gx#stx-null? _tl171213_) - (___kont3701137012_ + (___kont3694536946_ _hd172210_ _hd160258_ _hd157248_) @@ -162,46 +165,46 @@ (lambda (_g295307_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g295307_))) (_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_) @@ -263,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" - ___stx3705037051_)))) - (let ((___kont3705337054_ + '"Bad syntax; invalid match target" + ___stx3698436985_)))) + (let ((___kont3698736988_ (lambda (_L810_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -278,7 +281,7 @@ (cons _g826829_ _g827832_)) '() _L810_))))) - (___kont3705737058_ + (___kont3699136992_ (lambda (_L718_ _L720_ _L721_) (cons (gx#datum->syntax '#f 'syntax-case) (cons _L720_ @@ -296,7 +299,7 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (___kont3706137062_ + (___kont3699536996_ (lambda (_L581_ _L583_ _L584_) (cons (gx#datum->syntax '#f 'syntax-case) (cons (cons (gx#datum->syntax '#f 'list) @@ -324,14 +327,14 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (let* ((___match3715137152_ + (let* ((___match3708537086_ (lambda (_e435477_ _hd434481_ _tl433484_ _e438487_ _hd437491_ _tl436494_ - ___splice3706337064_ + ___splice3699736998_ _target439497_ _tl441500_) (letrec ((_loop442503_ @@ -384,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))) @@ -392,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_ @@ -419,7 +422,7 @@ _lp-tl462574_ (cons _lp-hd461571_ _body463564_)))) (let ((_body464577_ (reverse _body463564_))) - (___kont3706137062_ + (___kont3699536996_ _body464577_ _e448545_ _pat449548_)))))) @@ -432,7 +435,7 @@ (declare (not safe)) (_g385470_)))))))) (_loop442503_ _target439497_ '() '())))) - (___match3713137132_ + (___match3706537066_ (lambda (_e408638_ _hd407642_ _tl406645_ @@ -448,7 +451,7 @@ _e420678_ _hd419682_ _tl418685_ - ___splice3705937060_ + ___splice3699336994_ _target421688_ _tl423691_) (letrec ((_loop424694_ @@ -469,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_ @@ -502,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_ @@ -522,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))) @@ -530,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))) @@ -560,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 () @@ -589,7 +592,7 @@ (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) @@ -597,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 () @@ -658,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_ @@ -689,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))) @@ -701,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 () @@ -727,7 +730,7 @@ (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) @@ -735,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 () @@ -759,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 () @@ -789,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_))))) @@ -839,7 +842,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) @@ -848,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 () @@ -877,7 +880,7 @@ (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3699736998_ (gx#syntax-split-splice _hd392774_ '0))) @@ -885,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 () @@ -914,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" - ___stx3715437155_)))) - (let ((___kont3715737158_ + '"Bad syntax; invalid match target" + ___stx3708837089_)))) + (let ((___kont3709137092_ (lambda (_L1221_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -929,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_ '())) '()) @@ -943,7 +946,7 @@ _L1123_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3716537166_ + (___kont3709937100_ (lambda (_L992_ _L994_ _L995_ _L996_) (cons (gx#datum->syntax '#f 'with-syntax) (cons (cons _L995_ '()) @@ -957,7 +960,7 @@ _L992_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((___match3726737268_ + (let* ((___match3720137202_ (lambda (_e904932_ _hd903936_ _tl902939_ @@ -967,7 +970,7 @@ _e910952_ _hd909956_ _tl908959_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (letrec ((_loop914968_ @@ -988,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_ @@ -1013,7 +1016,7 @@ _e8881083_ _hd8871087_ _tl8861090_ - ___splice3716337164_ + ___splice3709737098_ _target8891093_ _tl8911096_) (letrec ((_loop8921099_ @@ -1035,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_ @@ -1071,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_ @@ -1091,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))) @@ -1099,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 () @@ -1161,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_))) @@ -1175,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))) @@ -1183,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_ @@ -1211,7 +1214,7 @@ _e8881083_ _hd8871087_ _tl8861090_ - ___splice3716337164_ + ___splice3709737098_ _target8891093_ _tl8911096_) (let () @@ -1221,7 +1224,7 @@ (declare (not safe)) (_g848925_))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3710137102_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1229,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_ @@ -1248,7 +1251,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (let () @@ -1258,7 +1261,7 @@ (declare (not safe)) (_g848925_)))))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3710137102_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1266,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_ @@ -1285,7 +1288,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (let () @@ -1293,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_ @@ -1318,7 +1321,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (let () @@ -1326,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_ @@ -1347,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_ @@ -1374,7 +1377,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (let () (declare (not safe)) (_g848925_))))) @@ -1382,7 +1385,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3710137102_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1391,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_ @@ -1412,7 +1415,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3710137102_ _target911962_ _tl913965_) (let () @@ -1431,7 +1434,10 @@ (lambda (_stx1253_) (let* ((_g12561274_ (lambda (_g12571270_) - (gx#raise-syntax-error '#f '"Bad syntax" _g12571270_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g12571270_))) (_g12551329_ (lambda (_g12571278_) (if (gx#stx-pair? _g12571278_) diff --git a/src/bootstrap/gerbil/core__3.scm b/src/bootstrap/gerbil/core__3.scm index 788b9f43bb..b0bb4eb66c 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 @@ -28,7 +28,10 @@ (lambda (_$stx1335_) (let* ((_g13391367_ (lambda (_g13401363_) - (gx#raise-syntax-error '#f '"Bad syntax" _g13401363_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g13401363_))) (_g13381468_ (lambda (_g13401371_) (if (gx#stx-pair? _g13401371_) @@ -63,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_) @@ -147,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" - ___stx3727037271_)))) - (let ((___kont3727337274_ + '"Bad syntax; invalid match target" + ___stx3720437205_)))) + (let ((___kont3720737208_ (lambda (_L1639_ _L1641_ _L1642_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _L1642_ @@ -168,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_ @@ -184,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_ @@ -204,7 +207,7 @@ (declare (not safe)) (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3725937260_ _e15051524_ _hd15041528_ _tl15031531_ @@ -218,7 +221,7 @@ (declare (not safe)) (_g14781517_))))) (let () (declare (not safe)) (_g14781517_))))) - (___match3730537306_ + (___match3723937240_ (lambda (_e14851579_ _hd14841583_ _tl14831586_ @@ -228,7 +231,7 @@ _e14911599_ _hd14901603_ _tl14891606_ - ___splice3727537276_ + ___splice3720937210_ _target14921609_ _tl14941612_) (letrec ((_loop14951615_ @@ -254,11 +257,11 @@ (_L1641_ _tl14891606_) (_L1642_ _hd14901603_)) (if (gx#identifier? _L1642_) - (___kont3727337274_ + (___kont3720737208_ _L1639_ _L1641_ _L1642_) - (___match3731737318_ + (___match3725137252_ _e14851579_ _hd14841583_ _tl14831586_ @@ -266,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_ @@ -294,7 +297,7 @@ (declare (not safe)) (##car _e14911599_)))) (if (gx#stx-pair/null? _tl14861596_) - (let ((___splice3727537276_ + (let ((___splice3720937210_ (gx#syntax-split-splice _tl14861596_ '0))) @@ -302,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_ @@ -321,7 +324,7 @@ _e14911599_ _hd14901603_ _tl14891606_ - ___splice3727537276_ + ___splice3720937210_ _target14921609_ _tl14941612_) (if (gx#stx-pair? @@ -337,7 +340,7 @@ (_hd15101548_ (let () (declare (not safe)) (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3725937260_ _e14851579_ _hd14841583_ _tl14831586_ @@ -364,7 +367,7 @@ (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3725937260_ _e14851579_ _hd14841583_ _tl14831586_ @@ -392,7 +395,7 @@ (declare (not safe)) (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3725937260_ _e14851579_ _hd14841583_ _tl14831586_ @@ -414,7 +417,10 @@ (lambda (_$stx1675_) (let* ((_g16791697_ (lambda (_g16801693_) - (gx#raise-syntax-error '#f '"Bad syntax" _g16801693_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g16801693_))) (_g16781752_ (lambda (_g16801701_) (if (gx#stx-pair? _g16801701_) @@ -467,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" - ___stx3732837329_)))) - (let ((___kont3733137332_ + '"Bad syntax; invalid match target" + ___stx3726237263_)))) + (let ((___kont3726537266_ (lambda (_L1922_ _L1924_ _L1925_) (cons (gx#datum->syntax '#f 'define-values) (cons (cons _L1925_ '()) @@ -488,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_ @@ -504,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_ @@ -524,7 +530,7 @@ (declare (not safe)) (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3731737318_ _e17881807_ _hd17871811_ _tl17861814_ @@ -538,7 +544,7 @@ (declare (not safe)) (_g17611800_))))) (let () (declare (not safe)) (_g17611800_))))) - (___match3736337364_ + (___match3729737298_ (lambda (_e17681862_ _hd17671866_ _tl17661869_ @@ -548,7 +554,7 @@ _e17741882_ _hd17731886_ _tl17721889_ - ___splice3733337334_ + ___splice3726737268_ _target17751892_ _tl17771895_) (letrec ((_loop17781898_ @@ -574,11 +580,11 @@ (_L1924_ _tl17721889_) (_L1925_ _hd17731886_)) (if (gx#identifier? _L1925_) - (___kont3733137332_ + (___kont3726537266_ _L1922_ _L1924_ _L1925_) - (___match3737537376_ + (___match3730937310_ _e17681862_ _hd17671866_ _tl17661869_ @@ -586,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_ @@ -614,7 +620,7 @@ (declare (not safe)) (##car _e17741882_)))) (if (gx#stx-pair/null? _tl17691879_) - (let ((___splice3733337334_ + (let ((___splice3726737268_ (gx#syntax-split-splice _tl17691879_ '0))) @@ -622,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_ @@ -641,7 +647,7 @@ _e17741882_ _hd17731886_ _tl17721889_ - ___splice3733337334_ + ___splice3726737268_ _target17751892_ _tl17771895_) (if (gx#stx-pair? @@ -657,7 +663,7 @@ (_hd17931831_ (let () (declare (not safe)) (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3731737318_ _e17681862_ _hd17671866_ _tl17661869_ @@ -684,7 +690,7 @@ (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3731737318_ _e17681862_ _hd17671866_ _tl17661869_ @@ -712,7 +718,7 @@ (declare (not safe)) (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3731737318_ _e17681862_ _hd17671866_ _tl17661869_ @@ -732,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" - ___stx3738637387_)))) - (let ((___kont3738937390_ + '"Bad syntax; invalid match target" + ___stx3732037321_)))) + (let ((___kont3732337324_ (lambda (_L2166_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -747,7 +753,7 @@ (cons _g21822185_ _g21832188_)) '() _L2166_))))) - (___kont3739337394_ + (___kont3732737328_ (lambda (_L2075_ _L2077_ _L2078_ _L2079_) (cons (gx#datum->syntax '#f 'let-values) (cons (cons _L2078_ '()) @@ -761,7 +767,7 @@ _L2075_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((___match3744537446_ + (let* ((___match3737937380_ (lambda (_e19872015_ _hd19862019_ _tl19852022_ @@ -771,7 +777,7 @@ _e19932035_ _hd19922039_ _tl19912042_ - ___splice3739537396_ + ___splice3732937330_ _target19942045_ _tl19962048_) (letrec ((_loop19972051_ @@ -793,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_ @@ -828,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_ @@ -849,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))) @@ -857,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 () @@ -894,7 +900,7 @@ (declare (not safe)) (##car _e19932035_)))) (if (gx#stx-pair/null? _tl19692133_) - (let ((___splice3739537396_ + (let ((___splice3732937330_ (gx#syntax-split-splice _tl19692133_ '0))) @@ -902,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_ @@ -922,7 +928,7 @@ _e19932035_ _hd19922039_ _tl19912042_ - ___splice3739537396_ + ___splice3732937330_ _target19942045_ _tl19962048_) (let () @@ -938,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" - ___stx3744837449_)))) - (let ((___kont3745137452_ + '"Bad syntax; invalid match target" + ___stx3738237383_)))) + (let ((___kont3738537386_ (lambda (_L2472_ _L2474_ _L2475_ _L2476_ _L2477_) (cons (cons (gx#datum->syntax '#f 'letrec-values) (cons (cons (cons (cons _L2477_ '()) @@ -970,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) @@ -979,14 +985,14 @@ (cons _g23422345_ _g23432348_)) '() _L2323_))))))) - (let* ((___match3750537506_ + (let* ((___match3743937440_ (lambda (_e22482273_ _hd22472277_ _tl22462280_ _e22512283_ _hd22502287_ _tl22492290_ - ___splice3745937460_ + ___splice3739337394_ _target22522293_ _tl22542296_) (letrec ((_loop22552299_ @@ -1008,11 +1014,11 @@ _body22592306_)))) (let ((_body22602319_ (reverse _body22592306_))) - (___kont3745737458_ + (___kont3739137392_ _body22602319_ _hd22502287_)))))) (_loop22552299_ _target22522293_ '())))) - (___match3749737498_ + (___match3743137432_ (lambda (_e22482273_ _hd22472277_ _tl22462280_ @@ -1020,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_ @@ -1055,7 +1061,7 @@ _e22172378_ _hd22162382_ _tl22152385_ - ___splice3745337454_ + ___splice3738737388_ _target22182388_ _tl22202391_) (letrec ((_loop22212394_ @@ -1102,14 +1108,14 @@ _lp-tl22242413_ (cons _hd22332430_ _arg22252401_) (cons _hd22302420_ _var22262403_)) - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ _e22142368_ _hd22132372_ _tl22122375_)))) - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1117,7 +1123,7 @@ _hd22132372_ _tl22122375_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1129,7 +1135,7 @@ (_arg22272436_ (reverse _arg22252401_))) (if (gx#stx-pair/null? _tl22152385_) - (let ((___splice3745537456_ + (let ((___splice3738937390_ (gx#syntax-split-splice _tl22152385_ '0))) @@ -1137,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_ @@ -1170,13 +1176,13 @@ (_L2476_ _var22282439_) (_L2477_ _hd22132372_)) (if (gx#identifier? _L2477_) - (___kont3745137452_ + (___kont3738537386_ _L2472_ _L2474_ _L2475_ _L2476_ _L2477_) - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1185,14 +1191,14 @@ _tl22122375_)))))))) (_loop22382448_ _target22352442_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ _e22142368_ _hd22132372_ _tl22122375_)))) - (___match3749737498_ + (___match3743137432_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1200,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_ @@ -1228,7 +1234,7 @@ (declare (not safe)) (##car _e22172378_)))) (if (gx#stx-pair/null? _hd22162382_) - (let ((___splice3745337454_ + (let ((___splice3738737388_ (gx#syntax-split-splice _hd22162382_ '0))) @@ -1236,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_ @@ -1254,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))) @@ -1266,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 () @@ -1293,7 +1299,7 @@ (declare (not safe)) (_g22022266_)))))) (if (gx#stx-pair/null? _tl22122375_) - (let ((___splice3745937460_ + (let ((___splice3739337394_ (gx#syntax-split-splice _tl22122375_ '0))) @@ -1301,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 () @@ -1332,7 +1338,10 @@ (lambda (_$stx2534_) (let* ((_g25382562_ (lambda (_g25392558_) - (gx#raise-syntax-error '#f '"Bad syntax" _g25392558_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g25392558_))) (_g25372647_ (lambda (_g25392566_) (if (gx#stx-pair? _g25392566_) @@ -1356,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_ @@ -1425,7 +1434,10 @@ (lambda (_$stx2652_) (let* ((_g26562680_ (lambda (_g26572676_) - (gx#raise-syntax-error '#f '"Bad syntax" _g26572676_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g26572676_))) (_g26552765_ (lambda (_g26572684_) (if (gx#stx-pair? _g26572684_) @@ -1449,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_ @@ -1518,7 +1530,10 @@ (lambda (_$stx2770_) (let* ((_g27742798_ (lambda (_g27752794_) - (gx#raise-syntax-error '#f '"Bad syntax" _g27752794_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g27752794_))) (_g27732883_ (lambda (_g27752802_) (if (gx#stx-pair? _g27752802_) @@ -1542,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_ @@ -1611,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" - ___stx3750837509_)))) - (let ((___kont3751137512_ + '"Bad syntax; invalid match target" + ___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)) @@ -1636,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" - ___stx3752837529_)))) - (let ((___kont3753137532_ (lambda (_L3354_) _L3354_)) - (___kont3753337534_ (lambda () (list _x3311_)))) - (if (gx#stx-pair? ___stx3752837529_) + '"Bad syntax; invalid match target" + ___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)) @@ -1666,61 +1681,61 @@ (##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" - ___stx3754837549_)))) - (let ((___kont3755137552_ + '"Bad syntax; invalid match target" + ___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_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g31233135_))) (_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_ @@ -1781,7 +1796,7 @@ (cons _g32143217_ _g32153220_)) '() _L3086_))))))) - (let* ((___match3761737618_ + (let* ((___match3755137552_ (lambda (_e29242969_ _hd29232973_ _tl29222976_ @@ -1791,7 +1806,7 @@ _e29302989_ _hd29292993_ _tl29282996_ - ___splice3755537556_ + ___splice3748937490_ _target29312999_ _tl29333002_) (letrec ((_loop29343005_ @@ -1847,7 +1862,7 @@ (_e29403047_ (reverse _e29383012_))) (if (gx#stx-pair/null? _tl29282996_) - (let ((___splice3755737558_ + (let ((___splice3749137492_ (gx#syntax-split-splice _tl29282996_ '0))) @@ -1855,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_) @@ -1893,7 +1908,7 @@ (cons _g31133116_ _g31143119_)) '() _L3086_)) - (___kont3755337554_ + (___kont3748737488_ _L3083_ _L3085_ _L3086_ @@ -1908,7 +1923,7 @@ (declare (not safe)) (_g28962962_)))))))) (_loop29343005_ _target29312999_ '() '())))) - (___match3759137592_ + (___match3752537526_ (lambda (_e29053230_ _hd29043234_ _tl29033237_ @@ -1930,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))) @@ -1945,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_ @@ -1964,7 +1979,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3748937490_ _target29312999_ _tl29333002_) (let () @@ -1973,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_ @@ -2026,7 +2041,7 @@ (_hd29163274_ (let () (declare (not safe)) (##car _e29173270_)))) (if (gx#stx-null? _tl29153277_) - (___match3759137592_ + (___match3752537526_ _e29053230_ _hd29043234_ _tl29033237_ @@ -2043,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_ @@ -2064,7 +2079,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3748937490_ _target29312999_ _tl29333002_) (let () (declare (not safe)) (_g28962962_))))) @@ -2072,7 +2087,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29103254_) - (let ((___splice3755537556_ + (let ((___splice3748937490_ (gx#syntax-split-splice _hd29103254_ '0))) @@ -2080,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_ @@ -2096,7 +2111,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3748937490_ _target29312999_ _tl29333002_) (let () (declare (not safe)) (_g28962962_))))) @@ -2104,7 +2119,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29103254_) - (let ((___splice3755537556_ + (let ((___splice3748937490_ (gx#syntax-split-splice _hd29103254_ '0))) @@ -2112,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_ @@ -2132,7 +2147,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3748937490_ _target29312999_ _tl29333002_) (let () @@ -2148,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" - ___stx3762037621_)))) - (let ((___kont3762337624_ (lambda () '#t)) - (___kont3762537626_ (lambda (_L3538_) _L3538_)) - (___kont3762737628_ + '"Bad syntax; invalid match target" + ___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_ @@ -2182,8 +2197,8 @@ (declare (not safe)) (##car _e34513528_)))) (if (gx#stx-null? _tl34493535_) - (___kont3762537626_ _hd34503532_) - (___kont3762737628_ + (___kont3755937560_ _hd34503532_) + (___kont3756137562_ _tl34493535_ _hd34503532_ _hd34433562_)))) @@ -2191,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" - ___stx3766637667_)))) - (let ((___kont3766937670_ (lambda () '#f)) - (___kont3767137672_ (lambda (_L3680_) _L3680_)) - (___kont3767337674_ + '"Bad syntax; invalid match target" + ___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) @@ -2216,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_ @@ -2235,8 +2250,8 @@ (declare (not safe)) (##car _e35933670_)))) (if (gx#stx-null? _tl35913677_) - (___kont3767137672_ _hd35923674_) - (___kont3767337674_ + (___kont3760537606_ _hd35923674_) + (___kont3760737608_ _tl35913677_ _hd35923674_ _hd35853704_)))) @@ -2244,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" - ___stx3771237713_)))) - (let ((___kont3771537716_ (lambda () '#!void)) - (___kont3771737718_ + '"Bad syntax; invalid match target" + ___stx3764637647_)))) + (let ((___kont3764937650_ (lambda () '#!void)) + (___kont3765137652_ (lambda (_L4165_) (cons (gx#datum->syntax '#f '%#expression) (cons (cons (gx#datum->syntax '#f 'begin) @@ -2261,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) @@ -2281,7 +2296,7 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3772537726_ + (___kont3765937660_ (lambda (_L3976_ _L3978_ _L3979_ _L3980_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2297,7 +2312,7 @@ (cons (cons _L3980_ _L3976_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3772737728_ + (___kont3766137662_ (lambda (_L3885_ _L3887_ _L3888_ _L3889_) (cons (gx#datum->syntax '#f 'if) (cons _L3888_ @@ -2309,7 +2324,7 @@ '() _L3887_)) (cons (cons _L3889_ _L3885_) '()))))))) - (let* ((___match3787337874_ + (let* ((___match3780737808_ (lambda (_e37973825_ _hd37963829_ _tl37953832_ @@ -2319,7 +2334,7 @@ _e38033845_ _hd38023849_ _tl38013852_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (letrec ((_loop38073861_ @@ -2341,13 +2356,13 @@ _body38113868_)))) (let ((_body38123881_ (reverse _body38113868_))) - (___kont3772737728_ + (___kont3766137662_ _tl37983842_ _body38123881_ _hd38023849_ _hd37963829_)))))) (_loop38073861_ _target38043855_ '())))) - (___match3776937770_ + (___match3770337704_ (lambda (_e37354105_ _hd37344109_ _tl37334112_ @@ -2357,7 +2372,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3771937720_ + ___splice3765337654_ _target37424135_ _tl37444138_) (letrec ((_loop37454141_ @@ -2380,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_ @@ -2414,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))) @@ -2426,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_ @@ -2442,15 +2457,15 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3771937720_ + ___splice3765337654_ _target37424135_ _tl37444138_) - (___kont3772137722_)))) - (___kont3772137722_)) + (___kont3765537656_)))) + (___kont3765537656_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl37394132_) - (___kont3772337724_ + (___kont3765737658_ _tl37364122_ _hd37404129_ _hd37304204_) @@ -2465,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_ @@ -2479,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))) @@ -2493,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_ @@ -2513,7 +2528,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2523,7 +2538,7 @@ (declare (not safe)) (_g37273818_)))))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2531,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_ @@ -2550,7 +2565,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2560,7 +2575,7 @@ (declare (not safe)) (_g37273818_)))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2568,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_ @@ -2587,7 +2602,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2595,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_ @@ -2620,7 +2635,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2628,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_ @@ -2649,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_) @@ -2674,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_))) @@ -2687,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))) @@ -2701,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_ @@ -2720,7 +2735,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2730,7 +2745,7 @@ (declare (not safe)) (_g37273818_)))))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3766337664_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2738,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_ @@ -2757,7 +2772,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2765,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_ @@ -2790,7 +2805,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2798,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_ @@ -2819,7 +2834,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () @@ -2827,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_ @@ -2848,7 +2863,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3766337664_ _target38043855_ _tl38063858_) (let () (declare (not safe)) (_g37273818_))))) @@ -2863,7 +2878,10 @@ (lambda (_$stx4220_) (let* ((_g42244248_ (lambda (_g42254244_) - (gx#raise-syntax-error '#f '"Bad syntax" _g42254244_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g42254244_))) (_g42234333_ (lambda (_g42254252_) (if (gx#stx-pair? _g42254252_) @@ -2887,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_ @@ -2960,7 +2978,10 @@ (lambda (_$stx4338_) (let* ((_g43424366_ (lambda (_g43434362_) - (gx#raise-syntax-error '#f '"Bad syntax" _g43434362_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g43434362_))) (_g43414451_ (lambda (_g43434370_) (if (gx#stx-pair? _g43434370_) @@ -2984,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_ @@ -3058,7 +3079,10 @@ (lambda (_stx4456_) (let* ((_g44594483_ (lambda (_g44604479_) - (gx#raise-syntax-error '#f '"Bad syntax" _g44604479_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g44604479_))) (_g44584568_ (lambda (_g44604487_) (if (gx#stx-pair? _g44604487_) @@ -3082,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_ @@ -3150,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 49ec074806..95371e9107 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]#_g42692_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42803_| + (define |gerbil/core$$[1]#_g42693_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42804_| + (define |gerbil/core$$[1]#_g42694_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42811_| + (define |gerbil/core$$[1]#_g42701_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42812_| + (define |gerbil/core$$[1]#_g42702_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42813_| + (define |gerbil/core$$[1]#_g42703_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42814_| + (define |gerbil/core$$[1]#_g42704_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42815_| + (define |gerbil/core$$[1]#_g42705_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42816_| + (define |gerbil/core$$[1]#_g42706_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42817_| + (define |gerbil/core$$[1]#_g42707_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42818_| + (define |gerbil/core$$[1]#_g42708_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42819_| + (define |gerbil/core$$[1]#_g42709_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42820_| + (define |gerbil/core$$[1]#_g42710_| (##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" - ___stx3790037901_)))) - (let ((___kont3790337904_ - (lambda (_L7881_ _L7883_) - (let* ((___stx3787637877_ _L7883_) - (_g78997913_ + '"Bad syntax; invalid match target" + ___stx3783437835_)))) + (let ((___kont3783737838_ + (lambda (_L7962_ _L7964_) + (let* ((___stx3781037811_ _L7964_) + (_g79807994_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx3787637877_)))) - (let ((___kont3787937880_ - (lambda (_L7951_) - (_lp7829_ _L7881_ '#t))) - (___kont3788137882_ + '"Bad syntax; invalid match target" + ___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" - ___stx3794037941_)))) - (let ((___kont3794337944_ - (lambda (_L7730_ _L7732_) - (let* ((___stx3791637917_ _L7732_) - (_g77487763_ + '"Bad syntax; invalid match target" + ___stx3787437875_)))) + (let ((___kont3787737878_ + (lambda (_L7811_ _L7813_) + (let* ((___stx3785037851_ _L7813_) + (_g78297844_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx3791637917_)))) - (let ((___kont3791937920_ - (lambda (_L7801_ _L7803_) - (_lp7681_ - _L7730_ - _pre7686_ - (cons (cons (_generate-bind4583_ - _L7803_) - _L7801_) - _opt7687_)))) - (___kont3792137922_ + '"Bad syntax; invalid match target" + ___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" - ___stx3800438005_)))) - (let ((___kont3800738008_ - (lambda (_L7585_ _L7587_ _L7588_) - (let* ((___stx3798037981_ _L7587_) - (_g76037617_ + '"Bad syntax; invalid match target" + ___stx3793837939_)))) + (let ((___kont3794137942_ + (lambda (_L7666_ _L7668_ _L7669_) + (let* ((___stx3791437915_ _L7668_) + (_g76847698_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx3798037981_)))) - (let ((___kont3798337984_ - (lambda (_L7655_) - (if (gx#identifier? _L7655_) - (_lp7349_ - _L7585_ - _opt?7354_ + '"Bad syntax; invalid match target" + ___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" - ___stx3795637957_)))) - (let ((___kont3795937960_ - (lambda (_L7492_) - (if (gx#identifier? _L7492_) - (_lp7349_ - _L7422_ + '"Bad syntax; invalid match target" + ___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" - ___stx3807838079_)))) - (let ((___kont3808138082_ - (lambda (_L7243_ _L7245_ _L7246_) - (let ((_key7260_ (gx#stx-e _L7246_))) - (if (find (lambda (_kwarg7263_) - (eq? _key7260_ - (car _kwarg7263_))) - _kwargs7088_) + '"Bad syntax; invalid match target" + ___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" - ___stx3805438055_)))) - (let ((___kont3805738058_ - (lambda (_L7320_ _L7322_) - (_lp7082_ - _L7243_ - _kwvar7087_ - (cons (list _key7260_ - (_generate-bind4583_ - _L7322_) - _L7320_) - _kwargs7088_) - _args7089_))) - (___kont3805938060_ + '"Bad syntax; invalid match target" + ___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" - ___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_) + '"Bad syntax; invalid match target" + ___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" - _g68466855_))) - (_g68446900_ - (lambda (_g68466863_) + '"Bad syntax; invalid match target" + _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" - _g69056912_))) - (_g69037018_ - (lambda (_g69056920_) + '"Bad syntax; invalid match target" + _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" - ___stx3812838129_)))) - (let ((___kont3813138132_ - (lambda (_L6999_) - (_lp6779_ - _L6933_ - (_cons-id6776_ _L6999_ _ids6784_)))) - (___kont3813338134_ + '"Bad syntax; invalid match target" + ___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" - _g70237030_))) - (_g70217064_ - (lambda (_g70237038_) + '"Bad syntax; invalid match target" + _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" - _g65726608_))) - (_g65706769_ - (lambda (_g65726616_) - (if (gx#stx-pair? _g65726616_) - (let ((_e65796619_ - (gx#syntax-e _g65726616_))) - (let ((_hd65786623_ + '"Bad syntax; invalid match target" + _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" - _g61396151_))) - (_g61376338_ - (lambda (_g61396159_) - (if (gx#stx-pair/null? _g61396159_) - (let ((_g42742_ + '"Bad syntax; invalid match target" + _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" - _g62146226_))) - (_g62126334_ - (lambda (_g62146234_) - (if (gx#stx-pair/null? _g62146234_) - (let ((_g42744_ + '"Bad syntax; invalid match target" + _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" - _g62856288_))) - (_g62836330_ - (lambda (_g62856296_) - ((lambda (_L6299_) + '"Bad syntax; invalid match target" + _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" - _g63436379_))) - (_g63416555_ - (lambda (_g63436387_) - (if (gx#stx-pair? _g63436387_) - (let ((_e63506390_ - (gx#syntax-e _g63436387_))) - (let ((_hd63496394_ + '"Bad syntax; invalid match target" + _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" - _g58335836_))) - (_g58315929_ - (lambda (_g58335844_) - ((lambda (_L5847_) + '"Bad syntax; invalid match target" + _g59145917_))) + (_g59126010_ + (lambda (_g59145925_) + ((lambda (_L5928_) (let () - (let* ((_g58635871_ - (lambda (_g58645867_) + (let* ((_g59445952_ + (lambda (_g59455948_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g58645867_))) - (_g58625925_ - (lambda (_g58645875_) - ((lambda (_L5878_) + '"Bad syntax; invalid match target" + _g59455948_))) + (_g59436006_ + (lambda (_g59455956_) + ((lambda (_L5959_) (let () - (let* ((_g58915899_ - (lambda (_g58925895_) + (let* ((_g59725980_ + (lambda (_g59735976_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f - '"Bad syntax" - _g58925895_))) - (_g58905921_ - (lambda (_g58925903_) - ((lambda (_L5906_) + '"Bad syntax; invalid match target" + _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" - _g59345966_))) - (_g59326112_ - (lambda (_g59345974_) - (if (gx#stx-pair? _g59345974_) - (let ((_e59405977_ - (gx#syntax-e _g59345974_))) - (let ((_hd59395981_ + '"Bad syntax; invalid match target" + _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" - _g57085726_))) - (_g57065810_ - (lambda (_g57085734_) - (if (gx#stx-pair? _g57085734_) - (let ((_e57155737_ + '"Bad syntax; invalid match target" + _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" - _g54925495_))) - (_g54905675_ - (lambda (_g54925503_) - ((lambda (_L5506_) + '"Bad syntax; invalid match target" + _g55735576_))) + (_g55715756_ + (lambda (_g55735584_) + ((lambda (_L5587_) (let () - (let* ((_g55185535_ - (lambda (_g55195531_) + (let* ((_g55995616_ + (lambda (_g56005612_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g55195531_))) - (_g55175671_ - (lambda (_g55195539_) + '"Bad syntax; invalid match target" + _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" - _g55905593_))) - (_g55885667_ - (lambda (_g55905601_) - ((lambda (_L5604_) + '"Bad syntax; invalid match target" + _g56715674_))) + (_g56695748_ + (lambda (_g56715682_) + ((lambda (_L5685_) (let () - (let* ((_g56175625_ - (lambda (_g56185621_) + (let* ((_g56985706_ + (lambda (_g56995702_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g56185621_))) - (_g56165655_ - (lambda (_g56185629_) - ((lambda (_L5632_) + '"Bad syntax; invalid match target" + _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" - _g53035306_))) - (_g53015481_ - (lambda (_g53035314_) - ((lambda (_L5317_) + '"Bad syntax; invalid match target" + _g53845387_))) + (_g53825562_ + (lambda (_g53845395_) + ((lambda (_L5398_) (let () - (let* ((_g53295346_ - (lambda (_g53305342_) + (let* ((_g54105427_ + (lambda (_g54115423_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g53305342_))) - (_g53285442_ - (lambda (_g53305350_) + '"Bad syntax; invalid match target" + _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" - _g54015404_))) - (_g53995438_ - (lambda (_g54015412_) - ((lambda (_L5415_) + '"Bad syntax; invalid match target" + _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" - _g54505453_))) - (_g54485477_ - (lambda (_g54505461_) - ((lambda (_L5464_) + '"Bad syntax; invalid match target" + _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" - _g52025205_))) - (_g52005295_ - (lambda (_g52025213_) - ((lambda (_L5216_) + '"Bad syntax; invalid match target" + _g52835286_))) + (_g52815376_ + (lambda (_g52835294_) + ((lambda (_L5297_) (let () - (let* ((_g52295237_ - (lambda (_g52305233_) + (let* ((_g53105318_ + (lambda (_g53115314_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g52305233_))) - (_g52285291_ - (lambda (_g52305241_) - ((lambda (_L5244_) + '"Bad syntax; invalid match target" + _g53115314_))) + (_g53095372_ + (lambda (_g53115322_) + ((lambda (_L5325_) (let () - (let* ((_g52575265_ - (lambda (_g52585261_) + (let* ((_g53385346_ + (lambda (_g53395342_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g52585261_))) - (_g52565287_ - (lambda (_g52585269_) - ((lambda (_L5272_) + '"Bad syntax; invalid match target" + _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" - _g51095123_))) - (_g51075186_ - (lambda (_g51095131_) - (if (gx#stx-pair? _g51095131_) - (let ((_e51155134_ - (gx#syntax-e _g51095131_))) - (let ((_hd51145138_ + '"Bad syntax; invalid match target" + _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,2484 +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" - ___stx3816838169_)))) - (let ((___kont3817138172_ - (lambda (_L5058_ _L5060_) + '"Bad syntax; invalid match target" + ___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" - _g48514854_))) - (_g48495027_ - (lambda (_g48514862_) - ((lambda (_L4865_) + '"Bad syntax; invalid match target" + _g49324935_))) + (_g49305108_ + (lambda (_g49324943_) + ((lambda (_L4946_) (let () - (let* ((_g48784886_ - (lambda (_g48794882_) + (let* ((_g49594967_ + (lambda (_g49604963_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g48794882_))) - (_g48775023_ - (lambda (_g48794890_) - ((lambda (_L4893_) + '"Bad syntax; invalid match target" + _g49604963_))) + (_g49585104_ + (lambda (_g49604971_) + ((lambda (_L4974_) (let () - (let* ((_g49064923_ + (let* ((_g49875004_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g49074919_) + (lambda (_g49885000_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g49074919_))) - (_g49055019_ - (lambda (_g49074927_) - (if (gx#stx-pair/null? _g49074927_) - (let ((_g42756_ - (gx#syntax-split-splice _g49074927_ '0))) + '"Bad syntax; invalid match target" + _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" - _g49784981_))) - (_g49765007_ - (lambda (_g49784989_) - ((lambda (_L4992_) + '"Bad syntax; invalid match target" + _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" - _g46724674_))) - (_g46704799_ - (lambda (_g46724682_) + '"Bad syntax; invalid match target" + _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" - _g46974700_))) - (_g46954795_ - (lambda (_g46974708_) - ((lambda (_L4711_) + '"Bad syntax; invalid match target" + _g47784781_))) + (_g47764876_ + (lambda (_g47784789_) + ((lambda (_L4792_) (let () - (let* ((_g47294737_ + (let* ((_g48104818_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g47304733_) + (lambda (_g48114814_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g47304733_))) - (_g47284791_ - (lambda (_g47304741_) - ((lambda (_L4744_) + '"Bad syntax; invalid match target" + _g48114814_))) + (_g48094872_ + (lambda (_g48114822_) + ((lambda (_L4825_) (let () - (let* ((_g47574765_ - (lambda (_g47584761_) + (let* ((_g48384846_ + (lambda (_g48394842_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g47584761_))) - (_g47564787_ - (lambda (_g47584769_) - ((lambda (_L4772_) + '"Bad syntax; invalid match target" + _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" - ___stx3821638217_)))) - (let ((___kont3821938220_ - (lambda (_L8290_ _L8292_ _L8293_ _L8294_) + '"Bad syntax; invalid match target" + ___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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g83368355_))) - (_g83348444_ - (lambda (_g83368363_) - (if (gx#stx-pair? _g83368363_) - (let ((_e83418366_ (gx#syntax-e _g83368363_))) - (let ((_hd83408370_ + (lambda (_$stx8412_) + (let* ((_g84168440_ + (lambda (_g84178436_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g84548467_))) - (_g84528526_ - (lambda (_g84548475_) - (if (gx#stx-pair? _g84548475_) - (let ((_e84598478_ (gx#syntax-e _g84548475_))) - (let ((_hd84588482_ + (lambda (_$stx8530_) + (let* ((_g85348552_ + (lambda (_g85358548_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g85358554_))) - (_g85338643_ - (lambda (_g85358562_) - (if (gx#stx-pair? _g85358562_) - (let ((_e85408565_ (gx#syntax-e _g85358562_))) - (let ((_hd85398569_ + (lambda (_$stx8611_) + (let* ((_g86158639_ + (lambda (_g86168635_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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" - ___stx3840638407_)))) - (let ((___kont3840938410_ - (lambda (_L11172_ _L11174_) - (let* ((___stx3831038311_ _L11174_) - (_g1119211265_ + '"Bad syntax; invalid match target" + ___stx3834038341_)))) + (let ((___kont3834338344_ + (lambda (_L11253_ _L11255_) + (let* ((___stx3824438245_ _L11255_) + (_g1127311346_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx3831038311_)))) - (let ((___kont3831338314_ - (lambda (_L11630_) - (if (gx#stx-null? _L11172_) - (let* ((_g1164511653_ - (lambda (_g1164611649_) + '"Bad syntax; invalid match target" + ___stx3824438245_)))) + (let ((___kont3824738248_ + (lambda (_L11711_) + (if (gx#stx-null? _L11253_) + (let* ((_g1172611734_ + (lambda (_g1172711730_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1164611649_))) - (_g1164411672_ - (lambda (_g1164611657_) - ((lambda (_L11660_) + '"Bad syntax; invalid match target" + _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" - _g1148511488_))) - (_g1148311519_ - (lambda (_g1148511496_) - ((lambda (_L11499_) + '"Bad syntax; invalid match target" + _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" - _g1083110834_))) - (_g1082911056_ - (lambda (_g1083110842_) - ((lambda (_L10845_) + '"Bad syntax; invalid match target" + _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" - ___stx3842438425_)))) - (let ((___kont3842738428_ - (lambda (_L10944_ _L10946_) - (let* ((_g1096610978_ - (lambda (_g1096710974_) + '"Bad syntax; invalid match target" + ___stx3835838359_)))) + (let ((___kont3836138362_ + (lambda (_L11025_ _L11027_) + (let* ((_g1104711059_ + (lambda (_g1104811055_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1096710974_))) - (_g1096511048_ - (lambda (_g1096710982_) + '"Bad syntax; invalid match target" + _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" - _g1101011013_))) - (_g1100811044_ - (lambda (_g1101011021_) - ((lambda (_L11024_) + '"Bad syntax; invalid match target" + _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" - ___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_)) + '"Bad syntax; invalid match target" + ___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" - _g1027010303_))) - (_g1026810438_ - (lambda (_g1027010311_) - (if (gx#stx-pair? _g1027010311_) - (let ((_e1028010314_ - (gx#syntax-e _g1027010311_))) - (let ((_hd1027910318_ + '"Bad syntax; invalid match target" + _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_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -4674,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 @@ -4692,7 +4701,7 @@ '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _L10394_ '()))) + (cons _L10475_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -4700,7 +4709,7 @@ '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _L10399_ + (cons _L10480_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -4711,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" - _g1044310482_))) - (_g1044110642_ - (lambda (_g1044310490_) - (if (gx#stx-pair? _g1044310490_) - (let ((_e1045310493_ - (gx#syntax-e _g1044310490_))) - (let ((_hd1045210497_ + '"Bad syntax; invalid match target" + _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*) @@ -4914,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 @@ -4923,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 @@ -4949,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 @@ -4964,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" - _g98269855_))) - (_g98249976_ - (lambda (_g98269863_) - (if (gx#stx-pair? _g98269863_) - (let ((_e98359866_ + '"Bad syntax; invalid match target" + _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 @@ -5182,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 @@ -5199,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" - _g998110020_))) - (_g997910180_ - (lambda (_g998110028_) - (if (gx#stx-pair? _g998110028_) - (let ((_e999110031_ - (gx#syntax-e _g998110028_))) - (let ((_hd999010035_ + '"Bad syntax; invalid match target" + _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) @@ -5410,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) @@ -5426,7 +5436,7 @@ '#f 'x) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _L10136_ + (cons _L10217_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -5438,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" - _g96009639_))) - (_g95989803_ - (lambda (_g96009647_) - (if (gx#stx-pair? _g96009647_) - (let ((_e96109650_ - (gx#syntax-e _g96009647_))) - (let ((_hd96099654_ + '"Bad syntax; invalid match target" + _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 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5658,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 @@ -5691,7 +5701,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _L9757_ '()))) + (cons _L9838_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5708,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" - _g93059344_))) - (_g93039549_ - (lambda (_g93059352_) - (if (gx#stx-pair? _g93059352_) - (let ((_e93159355_ - (gx#syntax-e _g93059352_))) - (let ((_hd93149359_ + '"Bad syntax; invalid match target" + _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" - _g95029505_))) - (_g95009529_ - (lambda (_g95029513_) - ((lambda (_L9516_) + '"Bad syntax; invalid match target" + _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_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -5954,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) @@ -5978,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" - _g90809119_))) - (_g90789283_ - (lambda (_g90809127_) - (if (gx#stx-pair? _g90809127_) - (let ((_e90909130_ - (gx#syntax-e _g90809127_))) - (let ((_hd90899134_ + '"Bad syntax; invalid match target" + _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 ((_g42665_ + (gx#syntax-split-splice _hd91799245_ '0))) (begin - (let ((_g42776_ + (let ((_g42666_ (let () (declare (not safe)) - (if (##values? _g42775_) - (##vector-length _g42775_) + (if (##values? _g42665_) + (##vector-length _g42665_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42776_ 2))) + (##fx= _g42666_ 2))) (error "Context expects 2 values" - _g42776_))) - (let ((_target91009170_ + _g42666_))) + (let ((_target91819251_ (let () (declare (not safe)) - (##vector-ref _g42775_ 0))) - (_tl91029173_ + (##vector-ref _g42665_ 0))) + (_tl91839254_ (let () (declare (not safe)) - (##vector-ref _g42775_ 1)))) - (if (gx#stx-null? _tl91029173_) - (letrec ((_loop91039176_ - (lambda (_hd91019180_ - _dispatch91079183_) + (##vector-ref _g42665_ 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) @@ -6232,7 +6242,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _L9237_ '()))) + (cons _L9318_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6249,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 ((_g42667_ + (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 _g42667_ 0))) + (_hashf8890_ (let () (declare (not safe)) - (##vector-ref _g42777_ 1))) - (_eqf8810_ + (##vector-ref _g42667_ 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 _g42667_ 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" - _g88218868_))) - (_g88199061_ - (lambda (_g88218876_) - (if (gx#stx-pair? _g88218876_) - (let ((_e88338879_ - (gx#syntax-e _g88218876_))) - (let ((_hd88328883_ + '"Bad syntax; invalid match target" + _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 ((_g42668_ (gx#syntax-split-splice - _hd88418913_ + _hd89228994_ '0))) (begin - (let ((_g42779_ + (let ((_g42669_ (let () (declare (not safe)) - (if (##values? _g42778_) - (##vector-length _g42778_) + (if (##values? _g42668_) + (##vector-length _g42668_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42779_ 2))) + (##fx= _g42669_ 2))) (error "Context expects 2 values" - _g42779_))) - (let ((_target88438919_ + _g42669_))) + (let ((_target89249000_ (let () (declare (not safe)) - (##vector-ref _g42778_ 0))) - (_tl88458922_ + (##vector-ref _g42668_ 0))) + (_tl89269003_ (let () (declare (not safe)) - (##vector-ref _g42778_ 1)))) - (if (gx#stx-null? _tl88458922_) - (letrec ((_loop88468925_ - (lambda (_hd88448929_ - _dispatch88508932_) + (##vector-ref _g42668_ 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_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6507,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 @@ -6515,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 @@ -6533,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 @@ -6554,263 +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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g86788697_))) - (_g86768797_ - (lambda (_g86788705_) - (if (gx#stx-pair? _g86788705_) - (let ((_e86838708_ (gx#syntax-e _g86788705_))) - (let ((_hd86828712_ + _dispatch8885_ + _default8886_ + _tab8896_ + (vector-length _tab8896_) + _hashf8890_ + _eqf8891_)))))))))) + (let* ((_g87588782_ + (lambda (_g87598778_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g42670_ (gx#syntax-split-splice - _tl86848725_ + _tl87658806_ '0))) (begin - (let ((_g42781_ + (let ((_g42671_ (let () (declare (not safe)) - (if (##values? _g42780_) + (if (##values? _g42670_) (##vector-length - _g42780_) + _g42670_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42781_ 2))) + (##fx= _g42671_ 2))) (error "Context expects 2 values" - _g42781_))) - (let ((_target86878728_ + _g42671_))) + (let ((_target87688809_ (let () (declare (not safe)) (##vector-ref - _g42780_ + _g42670_ 0))) - (_tl86898731_ + (_tl87708812_ (let () (declare (not safe)) (##vector-ref - _g42780_ + _g42670_ 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 ((_g42672_ + (_parse-clauses8732_ + _L8841_ + (foldr (lambda (_g88598862_ _g88608865_) + (cons _g88598862_ _g88608865_)) '() - _L8758_)))) + _L8839_)))) (begin - (let ((_g42783_ + (let ((_g42673_ (let () (declare (not safe)) - (if (##values? _g42782_) - (##vector-length _g42782_) + (if (##values? _g42672_) + (##vector-length _g42672_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42783_ 3))) + (##fx= _g42673_ 3))) (error "Context expects 3 values" - _g42783_))) - (let ((_datums8787_ + _g42673_))) + (let ((_datums8868_ (let () (declare (not safe)) - (##vector-ref _g42782_ 0))) - (_dispatch8789_ + (##vector-ref _g42672_ 0))) + (_dispatch8870_ (let () (declare (not safe)) - (##vector-ref _g42782_ 1))) - (_default8790_ + (##vector-ref _g42672_ 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 _g42672_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1170311716_))) - (_g1170111786_ - (lambda (_g1170311724_) - (if (gx#stx-pair? _g1170311724_) - (let ((_e1170811727_ (gx#syntax-e _g1170311724_))) - (let ((_hd1170711731_ + (lambda (_stx11780_) + (let* ((_g1178311801_ + (lambda (_g1178411797_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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?) @@ -6818,190 +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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1179511814_))) - (_g1179311903_ - (lambda (_g1179511822_) - (if (gx#stx-pair? _g1179511822_) - (let ((_e1180011825_ (gx#syntax-e _g1179511822_))) - (let ((_hd1179911829_ + (lambda (_$stx11871_) + (let* ((_g1187511899_ + (lambda (_g1187611895_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g42674_ (gx#syntax-split-splice - _tl1180111842_ + _tl1188211923_ '0))) (begin - (let ((_g42785_ + (let ((_g42675_ (let () (declare (not safe)) - (if (##values? _g42784_) + (if (##values? _g42674_) (##vector-length - _g42784_) + _g42674_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42785_ 2))) + (##fx= _g42675_ 2))) (error "Context expects 2 values" - _g42785_))) - (let ((_target1180411845_ + _g42675_))) + (let ((_target1188511926_ (let () (declare (not safe)) - (##vector-ref _g42784_ 0))) - (_tl1180611848_ + (##vector-ref _g42674_ 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 _g42674_ 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" - ___stx3847638477_)))) - (let ((___kont3847938480_ - (lambda (_L12488_ _L12490_) + '"Bad syntax; invalid match target" + ___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" - _g1235312356_))) - (_g1235112379_ - (lambda (_g1235312364_) - ((lambda (_L12367_) + '"Bad syntax; invalid match target" + _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" - _g1220712217_))) - (_g1220512266_ - (lambda (_g1220712225_) - (if (gx#stx-pair? _g1220712225_) - (let ((_e1221212228_ - (gx#syntax-e _g1220712225_))) - (let ((_hd1221112232_ + '"Bad syntax; invalid match target" + _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 @@ -7010,2067 +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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1251712540_))) - (_g1251512870_ - (lambda (_g1251712548_) - (if (gx#stx-pair? _g1251712548_) - (let ((_e1252312551_ (gx#syntax-e _g1251712548_))) - (let ((_hd1252212555_ + (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" + _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 ((_g42676_ (gx#syntax-split-splice - _tl1252712578_ + _tl1260812659_ '0))) (begin - (let ((_g42787_ + (let ((_g42677_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42786_) - (##vector-length _g42786_) + _g42676_) + (##vector-length _g42676_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42787_ 2))) - (error "Context expects 2 values" _g42787_))) + (if (not (let () (declare (not safe)) (##fx= _g42677_ 2))) + (error "Context expects 2 values" _g42677_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1253012581_ + (let ((_target1261112662_ (let () (declare (not safe)) (##vector-ref - _g42786_ + _g42676_ 0))) - (_tl1253212584_ + (_tl1261312665_ (let () (declare (not safe)) (##vector-ref - _g42786_ + _g42676_ 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)) + (_g42678_ + (_split12594_ + (foldr (lambda (_g1273012733_ + _g1273112736_) + (cons _g1273012733_ + _g1273112736_)) '() - _L12611_) - _mid12647_))) + _L12692_) + _mid12728_))) (begin - (let ((_g42789_ + (let ((_g42679_ (let () (declare (not safe)) - (if (##values? _g42788_) + (if (##values? _g42678_) (##vector-length - _g42788_) + _g42678_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42789_ 2))) + (##fx= _g42679_ 2))) (error "Context expects 2 values" - _g42789_))) - (let ((_left12658_ + _g42679_))) + (let ((_left12739_ (let () (declare (not safe)) - (##vector-ref _g42788_ 0))) - (_right12660_ + (##vector-ref _g42678_ 0))) + (_right12741_ (let () (declare (not safe)) (##vector-ref - _g42788_ + _g42678_ 1)))) (let () - (let* ((_g1266412705_ - (lambda (_g1266512701_) + (let* ((_g1274512786_ + (lambda (_g1274612782_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1266512701_))) - (_g1266312866_ - (lambda (_g1266512709_) + '"Bad syntax; invalid match target" + _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 ((_g42680_ (gx#syntax-split-splice - _hd1267412726_ + _hd1275512807_ '0))) (begin - (let ((_g42791_ + (let ((_g42681_ (let () (declare (not safe)) - (if (##values? _g42790_) + (if (##values? _g42680_) (##vector-length - _g42790_) + _g42680_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42791_ 2))) + (##fx= _g42681_ 2))) (error "Context expects 2 values" - _g42791_))) - (let ((_target1267612732_ + _g42681_))) + (let ((_target1275712813_ (let () (declare (not safe)) - (##vector-ref _g42790_ 0))) - (_tl1267812735_ + (##vector-ref _g42680_ 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 _g42680_ 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 ((_g42682_ (gx#syntax-split-splice - _hd1268612766_ + _hd1276712847_ '0))) (begin - (let ((_g42793_ + (let ((_g42683_ (let () (declare (not safe)) - (if (##values? _g42792_) + (if (##values? _g42682_) (##vector-length - _g42792_) + _g42682_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42793_ 2))) + (##fx= _g42683_ 2))) (error "Context expects 2 values" - _g42793_))) - (let ((_target1268812772_ + _g42683_))) + (let ((_target1276912853_ (let () (declare (not safe)) - (##vector-ref _g42792_ 0))) - (_tl1269012775_ + (##vector-ref _g42682_ 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 _g42682_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1289512961_))) - (_g1289313254_ - (lambda (_g1289512969_) - (if (gx#stx-pair? _g1289512969_) - (let ((_e1290412972_ (gx#syntax-e _g1289512969_))) - (let ((_hd1290312976_ + (lambda (_$stx12971_) + (let* ((_g1297513046_ + (lambda (_g1297613042_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g42684_ (gx#syntax-split-splice - _hd1290612986_ + _hd1298713067_ '0))) (begin - (let ((_g42795_ + (let ((_g42685_ (let () (declare (not safe)) - (if (##values? _g42794_) + (if (##values? _g42684_) (##vector-length - _g42794_) + _g42684_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42795_ 2))) + (##fx= _g42685_ 2))) (error "Context expects 2 values" - _g42795_))) - (let ((_target1290812992_ + _g42685_))) + (let ((_target1298913073_ (let () (declare (not safe)) - (##vector-ref _g42794_ 0))) - (_tl1291012995_ + (##vector-ref _g42684_ 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 _g42684_ 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 ((_g42690_ (gx#syntax-split-splice - _tl1292413039_ + _tl1300513120_ '0))) (begin - (let ((_g42801_ + (let ((_g42691_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42800_) - (##vector-length _g42800_) + _g42690_) + (##vector-length _g42690_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42801_ 2))) - (error "Context expects 2 values" _g42801_))) + (if (not (let () (declare (not safe)) (##fx= _g42691_ 2))) + (error "Context expects 2 values" _g42691_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1292713042_ + (let ((_target1300813123_ (let () (declare (not safe)) (##vector-ref - _g42800_ + _g42690_ 0))) - (_tl1292913045_ + (_tl1301013126_ (let () (declare (not safe)) (##vector-ref - _g42800_ + _g42690_ 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 ((_g42686_ (gx#syntax-split-splice - _tl1293913097_ + _tl1302013178_ '0))) (begin - (let ((_g42797_ + (let ((_g42687_ (let () (declare (not safe)) (if (##values? - _g42796_) + _g42686_) (##vector-length - _g42796_) + _g42686_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42797_ 2))) - (error "Context expects 2 values" _g42797_))) + (##fx= _g42687_ 2))) + (error "Context expects 2 values" _g42687_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1294213100_ + (let ((_target1302313181_ (let () (declare (not safe)) (##vector-ref - _g42796_ + _g42686_ 0))) - (_tl1294413103_ + (_tl1302513184_ (let () (declare (not safe)) (##vector-ref - _g42796_ + _g42686_ 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 ((_g42688_ (gx#syntax-split-splice - _tl1293613087_ + _tl1301713168_ '0))) (begin - (let ((_g42799_ + (let ((_g42689_ (let () (declare (not safe)) - (if (##values? _g42798_) + (if (##values? _g42688_) (##vector-length - _g42798_) + _g42688_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42799_ 2))) + (##fx= _g42689_ 2))) (error "Context expects 2 values" - _g42799_))) - (let ((_target1295113130_ + _g42689_))) + (let ((_target1303213211_ (let () (declare (not safe)) - (##vector-ref _g42798_ 0))) - (_tl1295313133_ + (##vector-ref _g42688_ 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 _g42688_ 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1326713285_))) - (_g1326513360_ - (lambda (_g1326713293_) - (if (gx#stx-pair? _g1326713293_) - (let ((_e1327413296_ (gx#syntax-e _g1326713293_))) - (let ((_hd1327313300_ + (lambda (_$stx13343_) + (let* ((_g1334713370_ + (lambda (_g1334813366_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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" - ___stx3863638637_)))) - (let ((___kont3863938640_ (lambda (_L13512_) _L13512_)) - (___kont3864138642_ - (lambda (_L13457_ _L13459_) + '"Bad syntax; invalid match target" + ___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" - ___stx3868238683_)))) - (let ((___kont3868538686_ - (lambda (_L13791_ _L13793_) + '"Bad syntax; invalid match target" + ___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]#_g42692_| + _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" - ___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_ + '"Bad syntax; invalid match target" + ___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" - ___stx3880638807_)))) - (let ((___kont3880938810_ - (lambda (_L14720_ _L14722_) _x14641_)) - (___kont3881138812_ - (lambda (_L14681_) + '"Bad syntax; invalid match target" + ___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" - ___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_ + '"Bad syntax; invalid match target" + ___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]#_g42693_| + _hd1467014699_) + (___kont3877538776_ _tl1466914702_) + (___kont3877738778_)) + (___kont3877738778_)))) + (___kont3877738778_)))))) + (_let-head13901_ + (lambda (_x14602_) + (let* ((___stx3879238793_ _x14602_) + (_g1460614617_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx3885838859_)))) - (let ((___kont3886138862_ (lambda (_L14564_) _L14564_)) - (___kont3886338864_ (lambda () (list _x14521_)))) - (if (gx#stx-pair? ___stx3885838859_) - (let ((_e1453014554_ - (gx#syntax-e ___stx3885838859_))) - (let ((_tl1452814561_ + '"Bad syntax; invalid match target" + ___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]#_g42694_| + _hd1461014639_) + (___kont3879538796_ _tl1460914642_) + (___kont3879738798_)) + (___kont3879738798_)))) + (___kont3879738798_))))))) + (let* ((___stx3881238813_ _stx13894_) + (_g1390513977_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx3887838879_)))) - (let ((___kont3888138882_ - (lambda (_L14494_ _L14496_ _L14497_ _L14498_) - (cons _L14498_ - (cons (cons (cons _L14497_ (cons _L14496_ '())) '()) - _L14494_)))) - (___kont3888338884_ - (lambda (_L14416_ _L14418_) + '"Bad syntax; invalid match target" + ___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" - _g1401714038_))) - (_g1401514327_ - (lambda (_g1401714046_) - (if (gx#stx-pair/null? _g1401714046_) - (let ((_g42805_ + '"Bad syntax; invalid match target" + _g1409814119_))) + (_g1409614408_ + (lambda (_g1409814127_) + (if (gx#stx-pair/null? _g1409814127_) + (let ((_g42695_ (gx#syntax-split-splice - _g1401714046_ + _g1409814127_ '0))) (begin - (let ((_g42806_ + (let ((_g42696_ (let () (declare (not safe)) - (if (##values? _g42805_) - (##vector-length _g42805_) + (if (##values? _g42695_) + (##vector-length _g42695_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42806_ 2))) + (##fx= _g42696_ 2))) (error "Context expects 2 values" - _g42806_))) - (let ((_target1402014049_ + _g42696_))) + (let ((_target1410114130_ (let () (declare (not safe)) - (##vector-ref _g42805_ 0))) - (_tl1402214052_ + (##vector-ref _g42695_ 0))) + (_tl1410314133_ (let () (declare (not safe)) - (##vector-ref _g42805_ 1)))) - (if (gx#stx-null? _tl1402214052_) - (letrec ((_loop1402314055_ - (lambda (_hd1402114059_ - _e1402714062_ - _hd1402814064_) + (##vector-ref _g42695_ 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" - _g1412214134_))) - (_g1412014315_ - (lambda (_g1412214142_) - (if (gx#stx-pair/null? _g1412214142_) - (let ((_g42807_ + '"Bad syntax; invalid match target" + _g1420314215_))) + (_g1420114396_ + (lambda (_g1420314223_) + (if (gx#stx-pair/null? _g1420314223_) + (let ((_g42697_ (gx#syntax-split-splice - _g1412214142_ + _g1420314223_ '0))) (begin - (let ((_g42808_ + (let ((_g42698_ (let () (declare (not safe)) - (if (##values? _g42807_) + (if (##values? _g42697_) (##vector-length - _g42807_) + _g42697_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42808_ 2))) + (##fx= _g42698_ 2))) (error "Context expects 2 values" - _g42808_))) - (let ((_target1412414145_ + _g42698_))) + (let ((_target1420514226_ (let () (declare (not safe)) (##vector-ref - _g42807_ + _g42697_ 0))) - (_tl1412614148_ + (_tl1420714229_ (let () (declare (not safe)) (##vector-ref - _g42807_ + _g42697_ 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" - _g1419314205_))) - (_g1419114303_ - (lambda (_g1419314213_) + '"Bad syntax; invalid match target" + _g1427414286_))) + (_g1427214384_ + (lambda (_g1427414294_) (if (gx#stx-pair/null? - _g1419314213_) - (let ((_g42809_ + _g1427414294_) + (let ((_g42699_ (gx#syntax-split-splice - _g1419314213_ + _g1427414294_ '0))) (begin - (let ((_g42810_ + (let ((_g42700_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42809_) - (##vector-length _g42809_) + _g42699_) + (##vector-length _g42699_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42810_ 2))) - (error "Context expects 2 values" _g42810_))) + (if (not (let () (declare (not safe)) (##fx= _g42700_ 2))) + (error "Context expects 2 values" _g42700_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1419514216_ + (let ((_target1427614297_ (let () (declare (not safe)) (##vector-ref - _g42809_ + _g42699_ 0))) - (_tl1419714219_ + (_tl1427814300_ (let () (declare (not safe)) (##vector-ref - _g42809_ + _g42699_ 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 @@ -9078,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" - ___stx3897838979_)))) - (let ((___kont3898138982_ (lambda () '#t)) - (___kont3898338984_ - (lambda (_L15071_) + '"Bad syntax; invalid match target" + ___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" - ___stx3905839059_)))) - (let ((___kont3906139062_ + '"Bad syntax; invalid match target" + ___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]#_g42702_| + _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]#_g42701_| + _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" - ___stx3921839219_)))) - (let ((___kont3922139222_ (lambda () '#f)) - (___kont3922339224_ (lambda () '#f)) - (___kont3922539226_ - (lambda (_L16447_ _L16449_) - (if (_simple-quote?15596_ _L16449_) - (_simple-quote?15596_ _L16447_) + '"Bad syntax; invalid match target" + ___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]#_g42704_| + _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]#_g42703_| + _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" - ___stx3929639297_)))) - (let ((___kont3929939300_ - (lambda (_L16240_) - (let* ((_g1625316261_ - (lambda (_g1625416257_) + '"Bad syntax; invalid match target" + ___stx3923039231_)))) + (let ((___kont3923339234_ + (lambda (_L16321_) + (let* ((_g1633416342_ + (lambda (_g1633516338_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1625416257_))) - (_g1625216280_ - (lambda (_g1625416265_) - ((lambda (_L16268_) + '"Bad syntax; invalid match target" + _g1633516338_))) + (_g1633316361_ + (lambda (_g1633516346_) + ((lambda (_L16349_) (let () (cons (gx#datum->syntax '#f @@ -10482,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" - _g1618316186_))) - (_g1618116209_ - (lambda (_g1618316194_) - ((lambda (_L16197_) + '"Bad syntax; invalid match target" + _g1626416267_))) + (_g1626216290_ + (lambda (_g1626416275_) + ((lambda (_L16278_) (let () (cons (gx#datum->syntax '#f @@ -10511,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" - _g1611216115_))) - (_g1611016138_ - (lambda (_g1611216123_) - ((lambda (_L16126_) + '"Bad syntax; invalid match target" + _g1619316196_))) + (_g1619116219_ + (lambda (_g1619316204_) + ((lambda (_L16207_) (let () (cons (gx#datum->syntax '#f @@ -10547,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" - _g1604116044_))) - (_g1603916067_ - (lambda (_g1604116052_) - ((lambda (_L16055_) + '"Bad syntax; invalid match target" + _g1612216125_))) + (_g1612016148_ + (lambda (_g1612216133_) + ((lambda (_L16136_) (let () (cons (gx#datum->syntax '#f @@ -10572,603 +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" - _g1592315933_))) - (_g1592115982_ - (lambda (_g1592315941_) - (if (gx#stx-pair? _g1592315941_) - (let ((_e1592815944_ + '"Bad syntax; invalid match target" + _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" - _g1585415857_))) - (_g1585215880_ - (lambda (_g1585415865_) - ((lambda (_L15868_) + '"Bad syntax; invalid match target" + _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" - _g1576815771_))) - (_g1576615794_ - (lambda (_g1576815779_) - ((lambda (_L15782_) + '"Bad syntax; invalid match target" + _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]#_g42708_| + _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]#_g42707_| + _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]#_g42706_| + _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]#_g42705_| + _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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1560115610_))) - (_g1559915656_ - (lambda (_g1560115618_) - (if (gx#stx-pair? _g1560115618_) - (let ((_e1560515621_ (gx#syntax-e _g1560115618_))) - (let ((_hd1560415625_ + (_g1574915973_))))))))) + (let* ((_g1568115695_ + (lambda (_g1568215691_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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" - ___stx3942239423_)))) - (let ((___kont3942539426_ - (lambda (_L16622_) - (cons (gx#datum->syntax '#f 'quote) (cons _L16622_ '())))) - (___kont3942739428_ - (lambda (_L16581_) + '"Bad syntax; invalid match target" + ___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" - ___stx3948039481_)))) - (let ((___kont3948339484_ - (lambda (_L16813_ _L16815_) - (let* ((___stx3946039461_ _L16815_) - (_g1683216839_ + '"Bad syntax; invalid match target" + ___stx3941439415_)))) + (let ((___kont3941739418_ + (lambda (_L16894_ _L16896_) + (let* ((___stx3939439395_ _L16896_) + (_g1691316920_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx3946039461_)))) - (let ((___kont3946339464_ + '"Bad syntax; invalid match target" + ___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" - _stx16639_ - _L16815_)))) - (___kont3946739468_ + '"Bad syntax; cut ellipsis <...> not in tail position" + _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]#_g42710_| + ___stx3939439395_) + (___kont3939739398_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42819_| - ___stx3946039461_) - (___kont3946539466_) - (___kont3946739468_))) - (___kont3946739468_)))))) - (___kont3948539486_ + |gerbil/core$$[1]#_g42709_| + ___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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1664616652_))) - (_g1664416757_ - (lambda (_g1664616660_) - (if (gx#stx-pair? _g1664616660_) - (let ((_e1665016663_ (gx#syntax-e _g1664616660_))) - (let ((_hd1664916667_ + (##car _e1686016884_)))) + (___kont3941739418_ + _tl1685816891_ + _hd1685916888_))) + (___kont3941939420_)))))))) + (let* ((_g1672616737_ + (lambda (_g1672716733_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g42711_ (_generate16723_ _L16754_))) (begin - (let ((_g42822_ + (let ((_g42712_ (let () (declare (not safe)) - (if (##values? _g42821_) - (##vector-length _g42821_) + (if (##values? _g42711_) + (##vector-length _g42711_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42822_ 3))) + (##fx= _g42712_ 3))) (error "Context expects 3 values" - _g42822_))) - (let ((_hd16686_ + _g42712_))) + (let ((_hd16767_ (let () (declare (not safe)) - (##vector-ref _g42821_ 0))) - (_body16688_ + (##vector-ref _g42711_ 0))) + (_body16769_ (let () (declare (not safe)) - (##vector-ref _g42821_ 1))) - (_tail?16689_ + (##vector-ref _g42711_ 1))) + (_tail?16770_ (let () (declare (not safe)) - (##vector-ref _g42821_ 2)))) - (let* ((_g1669116699_ - (lambda (_g1669216695_) + (##vector-ref _g42711_ 2)))) + (let* ((_g1677216780_ + (lambda (_g1677316776_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1669216695_))) - (_g1669016753_ - (lambda (_g1669216703_) - ((lambda (_L16706_) + '"Bad syntax; invalid match target" + _g1677316776_))) + (_g1677116834_ + (lambda (_g1677316784_) + ((lambda (_L16787_) (let () - (let* ((_g1671916727_ - (lambda (_g1672016723_) + (let* ((_g1680016808_ + (lambda (_g1680116804_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f - '"Bad syntax" - _g1672016723_))) - (_g1671816749_ - (lambda (_g1672016731_) - ((lambda (_L16734_) + '"Bad syntax; invalid match target" + _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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1689116893_)))) - (_g1689016897_ _$stx16887_)))) + (lambda (_$stx16968_) + (let ((_g1697116978_ + (lambda (_g1697216974_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1697216974_)))) + (_g1697116978_ _$stx16968_)))) (define |gerbil/core$$[:0:]#<...>| - (lambda (_$stx16901_) - (let ((_g1690416911_ - (lambda (_g1690516907_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1690516907_)))) - (_g1690416911_ _$stx16901_)))))) + (lambda (_$stx16982_) + (let ((_g1698516992_ + (lambda (_g1698616988_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1698616988_)))) + (_g1698516992_ _$stx16982_)))))) diff --git a/src/bootstrap/gerbil/core__5.scm b/src/bootstrap/gerbil/core__5.scm index 2f16caabc0..00584cccb5 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]#_g42719_| (##structure gx#syntax-quote::t 'quote @@ -9,571 +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" - ___stx3949639497_)))) - (let ((___kont3949939500_ - (lambda (_L17083_ _L17085_ _L17086_) + '"Bad syntax; invalid match target" + ___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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1712317155_))) - (_g1712117520_ - (lambda (_g1712317163_) - (if (gx#stx-pair? _g1712317163_) - (let ((_e1712917166_ (gx#syntax-e _g1712317163_))) - (let ((_hd1712817170_ + (lambda (_stx17200_) + (let* ((_g1720317240_ + (lambda (_g1720417236_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g42713_ (gx#syntax-split-splice - _tl1713317193_ + _tl1721417274_ '0))) (begin - (let ((_g42824_ + (let ((_g42714_ (let () (declare (not safe)) (if (##values? - _g42823_) + _g42713_) (##vector-length - _g42823_) + _g42713_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42824_ 2))) - (error "Context expects 2 values" _g42824_))) + (##fx= _g42714_ 2))) + (error "Context expects 2 values" _g42714_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1713617196_ + (let ((_target1721717277_ (let () (declare (not safe)) (##vector-ref - _g42823_ + _g42713_ 0))) - (_tl1713817199_ + (_tl1721917280_ (let () (declare (not safe)) (##vector-ref - _g42823_ + _g42713_ 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 ((_g42715_ (gx#syntax-split-splice - _tl1713017183_ + _tl1721117264_ '0))) (begin - (let ((_g42826_ + (let ((_g42716_ (let () (declare (not safe)) - (if (##values? _g42825_) + (if (##values? _g42715_) (##vector-length - _g42825_) + _g42715_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42826_ 2))) + (##fx= _g42716_ 2))) (error "Context expects 2 values" - _g42826_))) - (let ((_target1714517226_ + _g42716_))) + (let ((_target1722617307_ (let () (declare (not safe)) - (##vector-ref _g42825_ 0))) - (_tl1714717229_ + (##vector-ref _g42715_ 0))) + (_tl1722817310_ (let () (declare (not safe)) - (##vector-ref _g42825_ 1)))) - (if (gx#stx-null? _tl1714717229_) - (letrec ((_loop1714817232_ - (lambda (_hd1714617236_ + (##vector-ref _g42715_ 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" - _g1729317296_))) - (_g1729117516_ - (lambda (_g1729317304_) - ((lambda (_L17307_) + '"Bad syntax; invalid match target" + _g1737417377_))) + (_g1737217597_ + (lambda (_g1737417385_) + ((lambda (_L17388_) (let () - (let* ((_g1731917336_ - (lambda (_g1732017332_) + (let* ((_g1740017417_ + (lambda (_g1740117413_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1732017332_))) - (_g1731817504_ - (lambda (_g1732017340_) + '"Bad syntax; invalid match target" + _g1740117413_))) + (_g1739917585_ + (lambda (_g1740117421_) (if (gx#stx-pair/null? - _g1732017340_) - (let ((_g42827_ + _g1740117421_) + (let ((_g42717_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _g1732017340_ '0))) + (gx#syntax-split-splice _g1740117421_ '0))) (begin - (let ((_g42828_ + (let ((_g42718_ (let () (declare (not safe)) - (if (##values? _g42827_) - (##vector-length _g42827_) + (if (##values? _g42717_) + (##vector-length _g42717_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42828_ 2))) - (error "Context expects 2 values" _g42828_))) - (let ((_target1732217343_ + (##fx= _g42718_ 2))) + (error "Context expects 2 values" _g42718_))) + (let ((_target1740317424_ (let () (declare (not safe)) - (##vector-ref _g42827_ 0))) - (_tl1732417346_ + (##vector-ref _g42717_ 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 _g42717_ 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" - _g1739117394_))) - (_g1738917468_ - (lambda (_g1739117402_) - ((lambda (_L17405_) + '"Bad syntax; invalid match target" + _g1747217475_))) + (_g1747017549_ + (lambda (_g1747217483_) + ((lambda (_L17486_) (let () - (let* ((_g1741817426_ - (lambda (_g1741917422_) + (let* ((_g1749917507_ + (lambda (_g1750017503_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1741917422_))) - (_g1741717448_ - (lambda (_g1741917430_) - ((lambda (_L17433_) + '"Bad syntax; invalid match target" + _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 @@ -586,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" - ___stx3955439555_)))) - (let ((___kont3955739558_ - (lambda (_L17682_ _L17684_) + '"Bad syntax; invalid match target" + ___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 @@ -654,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]#_g42719_| + _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 1491dc0860..bcff0c94a9 100644 --- a/src/bootstrap/gerbil/core__6.scm +++ b/src/bootstrap/gerbil/core__6.scm @@ -1,1401 +1,1303 @@ (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" - ___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_ + '"Bad syntax; invalid match target" + ___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" - ___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_ + '"Bad syntax; invalid match target" + _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: alist: 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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1772217744_))) - (_g1772019022_ - (lambda (_g1772217752_) - (if (gx#stx-pair? _g1772217752_) - (let ((_e1773017755_ (gx#syntax-e _g1772217752_))) - (let ((_hd1772917759_ + _type-t19029_))))))) + (let* ((_g1780117828_ + (lambda (_g1780217824_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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" - _g1784817874_))) - (_g1784619018_ - (lambda (_g1784817882_) - (if (gx#stx-pair? _g1784817882_) - (let ((_e1785717885_ - (gx#syntax-e _g1784817882_))) - (let ((_hd1785617889_ + '"Bad syntax; invalid match target" + _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" - _g1798117984_))) - (_g1797919010_ - (lambda (_g1798117992_) - ((lambda (_L17995_) + '"Bad syntax; invalid match target" + _g1806118064_))) + (_g1805919013_ + (lambda (_g1806118072_) + ((lambda (_L18075_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g1800818016_ - (lambda (_g1800918012_) + (let* ((_g1808818096_ + (lambda (_g1808918092_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1800918012_))) - (_g1800719002_ - (lambda (_g1800918020_) - ((lambda (_L18023_) + '"Bad syntax; invalid match target" + _g1808918092_))) + (_g1808719005_ + (lambda (_g1808918100_) + ((lambda (_L18103_) (let () - (let* ((_g1803618044_ - (lambda (_g1803718040_) + (let* ((_g1811618124_ + (lambda (_g1811718120_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1803718040_))) - (_g1803518994_ - (lambda (_g1803718048_) - ((lambda (_L18051_) + '"Bad syntax; invalid match target" + _g1811718120_))) + (_g1811518997_ + (lambda (_g1811718128_) + ((lambda (_L18131_) (let () - (let* ((_g1806418072_ + (let* ((_g1814418152_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1806518068_) + (lambda (_g1814518148_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1806518068_))) - (_g1806318990_ - (lambda (_g1806518076_) - ((lambda (_L18079_) + '"Bad syntax; invalid match target" + _g1814518148_))) + (_g1814318993_ + (lambda (_g1814518156_) + ((lambda (_L18159_) (let () - (let* ((_g1809218100_ - (lambda (_g1809318096_) + (let* ((_g1817218189_ + (lambda (_g1817318185_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1809318096_))) - (_g1809118706_ - (lambda (_g1809318104_) - ((lambda (_L18107_) - (let () - (let* ((_g1812018128_ - (lambda (_g1812118124_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g1812118124_))) - (_g1811918702_ - (lambda (_g1812118132_) - ((lambda (_L18135_) - (let () - (let* ((_g1814818156_ + '"Bad syntax; invalid match target" + _g1817318185_))) + (_g1817118989_ + (lambda (_g1817318193_) + (if (gx#stx-pair/null? _g1817318193_) + (let ((_g42720_ + (gx#syntax-split-splice + _g1817318193_ + '0))) + (begin + (let ((_g42721_ + (let () + (declare (not safe)) + (if (##values? + _g42720_) + (##vector-length + _g42720_) + 1)))) + (if (not (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1814918152_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g1814918152_))) - (_g1814718698_ - (lambda (_g1814918160_) - ((lambda (_L18163_) - (let () - (let* ((_g1817618184_ - (lambda (_g1817718180_) - (gx#raise-syntax-error - '#f - '"Bad syntax" - _g1817718180_))) - (_g1817518694_ - (lambda (_g1817718188_) - ((lambda (_L18191_) - (let () - (let* ((_attrs18204_ - (if _struct?17711_ - (gx#stx-map + (not safe)) + (##fx= _g42721_ 2))) + (error "Context expects 2 values" _g42721_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_target1817518196_ + (let () + (declare (not safe)) + (##vector-ref + _g42720_ + 0))) + (_tl1817718199_ + (let () + (declare (not safe)) + (##vector-ref + _g42720_ + 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" _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 ((__tmp42749 + (cons _lp-hd1818018216_ + _slot1818218209_))) + (declare (not safe)) + (_loop1817818202_ + _lp-tl1818118219_ + __tmp42749)))) + (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" - _g1831518336_))) - (_g1831318454_ - (lambda (_g1831518344_) - (if (gx#stx-pair/null? _g1831518344_) - (let ((_g42832_ + '"Bad syntax; invalid match target" + _g1835918380_))) + (_g1835718757_ + (lambda (_g1835918388_) + (if (gx#stx-pair/null? _g1835918388_) + (let ((_g42722_ (gx#syntax-split-splice - _g1831518344_ + _g1835918388_ '0))) (begin - (let ((_g42833_ + (let ((_g42723_ (let () (declare (not safe)) - (if (##values? _g42832_) - (##vector-length _g42832_) + (if (##values? _g42722_) + (##vector-length _g42722_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42833_ 2))) + (##fx= _g42723_ 2))) (error "Context expects 2 values" - _g42833_))) - (let ((_target1831818347_ + _g42723_))) + (let ((_target1836218391_ (let () (declare (not safe)) - (##vector-ref _g42832_ 0))) - (_tl1832018350_ + (##vector-ref _g42722_ 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 _g42722_ 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 ((__tmp42734 + (cons _hd1837718433_ + _def-setf1836918404_)) + (__tmp42733 + (cons _hd1837418423_ + _def-getf1837018406_))) (declare (not safe)) - (_loop1832118353_ - _lp-tl1832418372_ - __tmp42836 - __tmp42835)) + (_loop1836518397_ + _lp-tl1836818416_ + __tmp42734 + __tmp42733)) (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 ((_g42724_ + (gx#syntax-split-splice + _g1846618495_ + '0))) + (begin + (let ((_g42725_ + (let () + (declare (not safe)) + (if (##values? _g42724_) + (##vector-length + _g42724_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g42725_ 2))) + (error "Context expects 2 values" + _g42725_))) + (let ((_target1846918498_ + (let () + (declare (not safe)) + (##vector-ref + _g42724_ + 0))) + (_tl1847118501_ + (let () + (declare (not safe)) + (##vector-ref + _g42724_ + 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 ((__tmp42728 + (cons _hd1848418540_ + _def-usetf1847618511_)) + (__tmp42727 + (cons _hd1848118530_ + _def-ugetf1847718513_))) + (declare (not safe)) + (_loop1847218504_ + _lp-tl1847518523_ + __tmp42728 + __tmp42727)) + (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" - _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 ((__tmp42726 + (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_ __tmp42726))))) + _def-usetf1847818546_ + _def-ugetf1847918549_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1847218504_ + _target1846918498_ + '() + '()))) + (let () + (declare (not safe)) + (_g1846518491_ + _g1846618495_)))))) + (let () + (declare (not safe)) + (_g1846518491_ _g1846618495_))))) + (__tmp42729 + (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" - _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 ((__tmp42730 + (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_ __tmp42730)) + (cons (let ((__tmp42731 + (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_ __tmp42731)) + '())))) + _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" - _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_)))))) + (__tmp42732 + (list (gx#stx-identifier + _L18670_ + '"&" + _L18670_) + (gx#stx-identifier + _L18668_ + '"&" + _L18668_)))) + (declare (not safe)) + (_g1868818749_ __tmp42732))) + _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_ __tmp42729)))) + _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" - _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_))))) + (__tmp42735 + (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 ((__tmp42736 + (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_ __tmp42736)) + (cons (let ((__tmp42737 + (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_ __tmp42737)) + '()))) + _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_ __tmp42735)))) + _g1832818339_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp42738 + (let ((__tmp42739 + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'def) + (cons _L17887_ + (cons (cons _L18030_ (cons _L17890_ '())) + '()))))) + (declare (not safe)) + (_wrap17794_ __tmp42739)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__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_ __tmp42738)))) + _g1830018311_))) + (__tmp42740 + (if (gx#stx-false? _L17888_) + (cons (gx#datum->syntax '#f 'begin) + '()) + (let ((__tmp42741 + (cons (gx#datum->syntax '#f - '"Bad syntax" - _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_ __tmp42741))))) + (declare (not safe)) + (_g1829818849_ __tmp42740)))) + _g1827218283_))) + (__tmp42742 + (let ((__tmp42743 + (cons (gx#datum->syntax '#f 'def) + (cons _L17890_ (cons _L18258_ '()))))) + (declare (not safe)) + (_wrap17794_ __tmp42743)))) + (declare (not safe)) + (_g1827018853_ __tmp42742)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1824418255_))) + (__tmp42744 + (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_))) + (__tmp42748 (gx#stx-length _slots17924_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_super1884018901_ - (reverse _super1883918888_))) - (if (gx#stx-pair? - _tl1882918872_) - (let ((_e1884318905_ + (declare (not safe)) + (_g1886018896_ + __tmp42748)) + (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 ((_g42745_ + (gx#syntax-split-splice _g1890118921_ '0))) + (begin + (let ((_g42746_ + (let () + (declare (not safe)) + (if (##values? _g42745_) + (##vector-length _g42745_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g42746_ 2))) + (error "Context expects 2 values" + _g42746_))) + (let ((_target1890318924_ + (let () + (declare (not safe)) + (##vector-ref _g42745_ 0))) + (_tl1890518927_ + (let () + (declare (not safe)) + (##vector-ref _g42745_ 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 ((__tmp42747 + (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_ __tmp42747)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (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_ __tmp42744)))) + _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_))))) + (__tmp42750 + (gx#stx-map + _slot-name17797_ + _slots17924_))) (declare (not safe)) - (_g1809118706_ __tmp42852)))) - _g1806518076_))) - (__tmp42864 (gx#stx-getq 'constructor: _L17805_))) + (_g1817118989_ __tmp42750)))) + _g1814518156_))) + (__tmp42751 (gx#stx-getq 'constructor: _L17885_))) (declare (not safe)) - (_g1806318990_ __tmp42864)))) + (_g1814318993_ __tmp42751)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1803718048_))) - (__tmp42865 - (let ((_$e18998_ + _g1811718128_))) + (__tmp42752 + (let ((_$e19001_ (gx#stx-getq - 'plist: - _L17805_))) - (if _$e18998_ - _$e18998_ + 'alist: + _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_ __tmp42752)))) + _g1808918100_))) + (__tmp42753 + (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_ __tmp42753)))) + _g1806118072_))) + (__tmp42754 + (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_ __tmp42754)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _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_))))) + (__tmp42755 + (if _struct?17792_ (cons (gx#datum->syntax '#f 'make-struct-instance) @@ -1439,39 +1341,39 @@ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1784619018_ __tmp42868)) + (_g1792619021_ __tmp42755)) (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 8c2ce3ee1b..982f837d61 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]#_g42799_| (##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 alist))) (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-alist| (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-alist-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-alist|) + (define |gerbil/core$$[1]#runtime-type-plist-set!| + |gerbil/core$$[1]#runtime-type-alist-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,998 +246,984 @@ |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 _g42757_ + (let ((_g42756_ (let () (declare (not safe)) (##length _g42757_)))) + (cond ((let () (declare (not safe)) (##fx= _g42756_ 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_))) + _g42757_)) + ((let () (declare (not safe)) (##fx= _g42756_ 2)) + (apply (lambda (_stx20714_ _is?20716_) (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__%| - _stx20780_ - _is?20782_))) - _g42870_)) + _stx20714_ + _is?20716_))) + _g42757_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$$[1]#syntax-local-type-info?| - _g42870_)))))) + _g42757_)))))) (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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2051520530_))) - (_g2051320741_ - (lambda (_g2051520538_) - (if (gx#stx-pair? _g2051520538_) - (let ((_e2051920541_ (gx#syntax-e _g2051520538_))) - (let ((_hd2051820545_ + (lambda (_self20444_ _stx20446_) + (let* ((_g2044820468_ + (lambda (_g2044920464_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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 ((_g42758_ (gx#syntax-split-splice - _tl2051720548_ + _tl2045120482_ '0))) (begin - (let ((_g42872_ + (let ((_g42759_ (let () (declare (not safe)) - (if (##values? _g42871_) - (##vector-length _g42871_) + (if (##values? _g42758_) + (##vector-length _g42758_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42872_ 2))) + (##fx= _g42759_ 2))) (error "Context expects 2 values" - _g42872_))) - (let ((_target2052020551_ + _g42759_))) + (let ((_target2045420485_ (let () (declare (not safe)) - (##vector-ref _g42871_ 0))) - (_tl2052220554_ + (##vector-ref _g42758_ 0))) + (_tl2045620488_ (let () (declare (not safe)) - (##vector-ref _g42871_ 1)))) - (if (gx#stx-null? _tl2052220554_) - (letrec ((_loop2052320557_ - (lambda (_hd2052120561_ - _arg2052720564_) + (##vector-ref _g42758_ 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 ((__tmp42761 + (cons _lp-hd2045920505_ _arg2046120498_))) (declare (not safe)) - (_loop2052320557_ _lp-tl2052620574_ __tmp42874)))) - (let ((_arg2052820577_ (reverse _arg2052720564_))) - ((lambda (_L20581_) - (let* ((_g2059720628_ - (lambda (_g2059820624_) + (_loop2045720491_ _lp-tl2046020508_ __tmp42761)))) + (let ((_arg2046220511_ (reverse _arg2046120498_))) + ((lambda (_L20515_) + (let* ((_g2053120562_ + (lambda (_g2053220558_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2059820624_))) - (_g2059620737_ - (lambda (_g2059820632_) - (if (gx#stx-pair? _g2059820632_) - (let ((_e2060720635_ - (gx#syntax-e _g2059820632_))) - (let ((_hd2060620639_ + '"Bad syntax; invalid match target" + _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_))))) + (__tmp42760 (let () (declare (not safe)) (unchecked-slot-ref - _self20510_ + _self20444_ 'expander-identifiers)))) (declare (not safe)) - (_g2059620737_ __tmp42873))) - _arg2052820577_)))))) + (_g2053020671_ __tmp42760))) + _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: + alist: 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 _g42762_ (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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1934819351_))) - (_g1934620489_ - (lambda (_g1934819359_) - ((lambda (_L19362_) + (map gx#syntax-local-value _super-ref19280_))) + (_g1929519303_ + (lambda (_g1929619299_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1929619299_))) + (_g1929420423_ + (lambda (_g1929619307_) + ((lambda (_L19310_) (let () - (let* ((_g1937819386_ - (lambda (_g1937919382_) + (let* ((_g1932619334_ + (lambda (_g1932719330_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1937919382_))) - (_g1937720485_ - (lambda (_g1937919390_) - ((lambda (_L19393_) + '"Bad syntax; invalid match target" + _g1932719330_))) + (_g1932520419_ + (lambda (_g1932719338_) + ((lambda (_L19341_) (let () - (let* ((_g1940619414_ - (lambda (_g1940719410_) + (let* ((_g1935419362_ + (lambda (_g1935519358_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1940719410_))) - (_g1940520481_ - (lambda (_g1940719418_) - ((lambda (_L19421_) + '"Bad syntax; invalid match target" + _g1935519358_))) + (_g1935320415_ + (lambda (_g1935519366_) + ((lambda (_L19369_) (let () - (let* ((_g1943419442_ - (lambda (_g1943519438_) + (let* ((_g1938219390_ + (lambda (_g1938319386_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f - '"Bad syntax" - _g1943519438_))) - (_g1943320477_ - (lambda (_g1943519446_) - ((lambda (_L19449_) + '"Bad syntax; invalid match target" + _g1938319386_))) + (_g1938120411_ + (lambda (_g1938319394_) + ((lambda (_L19397_) (let () - (let* ((_g1946219470_ - (lambda (_g1946319466_) + (let* ((_g1941019418_ + (lambda (_g1941119414_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1946319466_))) - (_g1946120473_ - (lambda (_g1946319474_) - ((lambda (_L19477_) + '"Bad syntax; invalid match target" + _g1941119414_))) + (_g1940920407_ + (lambda (_g1941119422_) + ((lambda (_L19425_) (let () - (let* ((_g1949019498_ - (lambda (_g1949119494_) + (let* ((_g1943819446_ + (lambda (_g1943919442_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1949119494_))) - (_g1948920469_ - (lambda (_g1949119502_) - ((lambda (_L19505_) + '"Bad syntax; invalid match target" + _g1943919442_))) + (_g1943720403_ + (lambda (_g1943919450_) + ((lambda (_L19453_) (let () - (let* ((_g1951819535_ + (let* ((_g1946619483_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1951919531_) + (lambda (_g1946719479_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1951919531_))) - (_g1951720465_ - (lambda (_g1951919539_) - (if (gx#stx-pair/null? _g1951919539_) - (let ((_g42876_ + '"Bad syntax; invalid match target" + _g1946719479_))) + (_g1946520399_ + (lambda (_g1946719487_) + (if (gx#stx-pair/null? _g1946719487_) + (let ((_g42763_ (gx#syntax-split-splice - _g1951919539_ + _g1946719487_ '0))) (begin - (let ((_g42877_ + (let ((_g42764_ (let () (declare (not safe)) - (if (##values? _g42876_) - (##vector-length _g42876_) + (if (##values? _g42763_) + (##vector-length _g42763_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42877_ 2))) + (##fx= _g42764_ 2))) (error "Context expects 2 values" - _g42877_))) - (let ((_target1952119542_ + _g42764_))) + (let ((_target1946919490_ (let () (declare (not safe)) - (##vector-ref _g42876_ 0))) - (_tl1952319545_ + (##vector-ref _g42763_ 0))) + (_tl1947119493_ (let () (declare (not safe)) - (##vector-ref _g42876_ 1)))) - (if (gx#stx-null? _tl1952319545_) - (letrec ((_loop1952419548_ - (lambda (_hd1952219552_ - _attr1952819555_) + (##vector-ref _g42763_ 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 ((__tmp42792 + (cons _lp-hd1947419510_ _slot1947619503_))) (declare (not safe)) - (_loop1952419548_ _lp-tl1952719565_ __tmp42905)))) - (let ((_attr1952919568_ (reverse _attr1952819555_))) - ((lambda (_L19572_) + (_loop1947219496_ _lp-tl1947519513_ __tmp42792)))) + (let ((_slot1947719516_ (reverse _slot1947619503_))) + ((lambda (_L19520_) (let () - (let* ((_g1958919606_ - (lambda (_g1959019602_) + (let* ((_g1953719554_ + (lambda (_g1953819550_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1959019602_))) - (_g1958820456_ - (lambda (_g1959019610_) - (if (gx#stx-pair/null? _g1959019610_) - (let ((_g42878_ + '"Bad syntax; invalid match target" + _g1953819550_))) + (_g1953620390_ + (lambda (_g1953819558_) + (if (gx#stx-pair/null? _g1953819558_) + (let ((_g42765_ (gx#syntax-split-splice - _g1959019610_ + _g1953819558_ '0))) (begin - (let ((_g42879_ + (let ((_g42766_ (let () (declare (not safe)) - (if (##values? _g42878_) + (if (##values? _g42765_) (##vector-length - _g42878_) + _g42765_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42879_ 2))) + (##fx= _g42766_ 2))) (error "Context expects 2 values" - _g42879_))) - (let ((_target1959219613_ + _g42766_))) + (let ((_target1954019561_ (let () (declare (not safe)) (##vector-ref - _g42878_ + _g42765_ 0))) - (_tl1959419616_ + (_tl1954219564_ (let () (declare (not safe)) (##vector-ref - _g42878_ + _g42765_ 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 ((__tmp42790 + (cons _lp-hd1954519581_ + _getf1954719574_))) (declare (not safe)) - (_loop1959519619_ - _lp-tl1959819636_ - __tmp42903)))) - (let ((_getf1960019639_ (reverse _getf1959919626_))) - ((lambda (_L19643_) + (_loop1954319567_ + _lp-tl1954619584_ + __tmp42790)))) + (let ((_getf1954819587_ (reverse _getf1954719574_))) + ((lambda (_L19591_) (let () - (let* ((_g1966019677_ - (lambda (_g1966119673_) + (let* ((_g1960819625_ + (lambda (_g1960919621_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1966119673_))) - (_g1965920447_ - (lambda (_g1966119681_) + '"Bad syntax; invalid match target" + _g1960919621_))) + (_g1960720381_ + (lambda (_g1960919629_) (if (gx#stx-pair/null? - _g1966119681_) - (let ((_g42880_ + _g1960919629_) + (let ((_g42767_ (gx#syntax-split-splice - _g1966119681_ + _g1960919629_ '0))) (begin - (let ((_g42881_ + (let ((_g42768_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42880_) - (##vector-length _g42880_) + _g42767_) + (##vector-length _g42767_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42881_ 2))) - (error "Context expects 2 values" _g42881_))) + (if (not (let () (declare (not safe)) (##fx= _g42768_ 2))) + (error "Context expects 2 values" _g42768_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1966319684_ + (let ((_target1961119632_ (let () (declare (not safe)) (##vector-ref - _g42880_ + _g42767_ 0))) - (_tl1966519687_ + (_tl1961319635_ (let () (declare (not safe)) (##vector-ref - _g42880_ + _g42767_ 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 ((__tmp42788 + (cons _lp-hd1961619652_ + _setf1961819645_))) (declare (not safe)) - (_loop1966619690_ - _lp-tl1966919707_ - __tmp42901)))) - (let ((_setf1967119710_ - (reverse _setf1967019697_))) - ((lambda (_L19714_) + (_loop1961419638_ + _lp-tl1961719655_ + __tmp42788)))) + (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_ + (_alist19774_ + (let* ((_alist19737_ + (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_)))) + 'alist: + _body19282_))) + (if _$e19733_ _$e19733_ '()))) + (_alist19740_ + (if (gx#stx-e (gx#stx-getq 'transparent: _body19282_)) + (cons (cons 'transparent: '#t) _alist19737_) + _alist19737_)) + (_alist19743_ + (if (gx#stx-e (gx#stx-getq 'final: _body19282_)) + (cons (cons 'final: '#t) _alist19740_) + _alist19740_)) + (_alist19756_ + (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_) _alist19743_))) + _$e19746_) + _alist19743_))) + (_alist19769_ + (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_) _alist19756_))) + _$e19759_) + _alist19756_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _plist19835_)) - (_type-plist19880_ - (if (null? _plist19840_) - _plist19840_ - (let* ((_g1984319851_ - (lambda (_g1984419847_) + _alist19769_)) + (_type-alist19814_ + (if (null? _alist19774_) + _alist19774_ + (let* ((_g1977719785_ + (lambda (_g1977819781_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1984419847_))) - (_g1984219876_ - (lambda (_g1984419855_) - ((lambda (_L19858_) + '"Bad syntax; invalid match target" + _g1977819781_))) + (_g1977619810_ + (lambda (_g1977819789_) + ((lambda (_L19792_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (cons 'plist: + (cons 'alist: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L19858_ '())) + (cons _L19792_ '())) '())))) - _g1984419855_)))) + _g1977819789_)))) (declare (not safe)) - (_g1984219876_ _plist19840_)))) + (_g1977619810_ _alist19774_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_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" - _g1989919911_))) - (_g1989720443_ - (lambda (_g1989919919_) + '"Bad syntax; invalid match target" + _g1983319845_))) + (_g1983120377_ + (lambda (_g1983319853_) (if (gx#stx-pair/null? - _g1989919919_) - (let ((_g42882_ + _g1983319853_) + (let ((_g42769_ (gx#syntax-split-splice - _g1989919919_ + _g1983319853_ '0))) (begin - (let ((_g42883_ + (let ((_g42770_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g42882_) - (##vector-length _g42882_) + (if (##values? _g42769_) + (##vector-length _g42769_) 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= _g42770_ 2))) + (error "Context expects 2 values" _g42770_))) + (let ((_target1983519856_ (let () (declare (not safe)) - (##vector-ref _g42882_ 0))) - (_tl1990319925_ + (##vector-ref _g42769_ 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 _g42769_ 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 ((__tmp42786 + (cons _lp-hd1984019876_ + _type-body1984219869_))) (declare (not safe)) - (_loop1990419928_ - _lp-tl1990719945_ - __tmp42899)))) - (let ((_type-body1990919948_ - (reverse _type-body1990819935_))) - ((lambda (_L19952_) + (_loop1983819862_ + _lp-tl1984119879_ + __tmp42786)))) + (let ((_type-body1984319882_ + (reverse _type-body1984219869_))) + ((lambda (_L19886_) (let () - (let* ((_g1996919977_ - (lambda (_g1997019973_) + (let* ((_g1990319911_ + (lambda (_g1990419907_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1997019973_))) - (_g1996820431_ - (lambda (_g1997019981_) - ((lambda (_L19984_) + '"Bad syntax; invalid match target" + _g1990419907_))) + (_g1990220365_ + (lambda (_g1990419915_) + ((lambda (_L19918_) (let () - (let* ((_g1999720005_ + (let* ((_g1993119939_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1999820001_) + (lambda (_g1993219935_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1999820001_))) - (_g1999620427_ - (lambda (_g1999820009_) - ((lambda (_L20012_) + '"Bad syntax; invalid match target" + _g1993219935_))) + (_g1993020361_ + (lambda (_g1993219943_) + ((lambda (_L19946_) (let () - (let* ((_g2002520033_ - (lambda (_g2002620029_) + (let* ((_g1995919967_ + (lambda (_g1996019963_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2002620029_))) - (_g2002420341_ - (lambda (_g2002620037_) - ((lambda (_L20040_) + '"Bad syntax; invalid match target" + _g1996019963_))) + (_g1995820275_ + (lambda (_g1996019971_) + ((lambda (_L19974_) (let () - (let* ((_g2005320061_ - (lambda (_g2005420057_) + (let* ((_g1998719995_ + (lambda (_g1998819991_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2005420057_))) - (_g2005220337_ - (lambda (_g2005420065_) - ((lambda (_L20068_) + '"Bad syntax; invalid match target" + _g1998819991_))) + (_g1998620271_ + (lambda (_g1998819999_) + ((lambda (_L20002_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2008120089_ - (lambda (_g2008220085_) + (let* ((_g2001520023_ + (lambda (_g2001620019_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2008220085_))) - (_g2008020333_ - (lambda (_g2008220093_) - ((lambda (_L20096_) + '"Bad syntax; invalid match target" + _g2001620019_))) + (_g2001420267_ + (lambda (_g2001620027_) + ((lambda (_L20030_) (let () - (let* ((_g2010920117_ - (lambda (_g2011020113_) + (let* ((_g2004320051_ + (lambda (_g2004420047_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2011020113_))) - (_g2010820291_ - (lambda (_g2011020121_) - ((lambda (_L20124_) + '"Bad syntax; invalid match target" + _g2004420047_))) + (_g2004220225_ + (lambda (_g2004420055_) + ((lambda (_L20058_) (let () - (let* ((_g2013720145_ + (let* ((_g2007120079_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2013820141_) + (lambda (_g2007220075_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2013820141_))) - (_g2013620287_ - (lambda (_g2013820149_) - ((lambda (_L20152_) + '"Bad syntax; invalid match target" + _g2007220075_))) + (_g2007020221_ + (lambda (_g2007220083_) + ((lambda (_L20086_) (let () - (let* ((_g2016520173_ - (lambda (_g2016620169_) + (let* ((_g2009920107_ + (lambda (_g2010020103_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2016620169_))) - (_g2016420283_ - (lambda (_g2016620177_) - ((lambda (_L20180_) + '"Bad syntax; invalid match target" + _g2010020103_))) + (_g2009820217_ + (lambda (_g2010020111_) + ((lambda (_L20114_) (let () - (let* ((_g2019320201_ - (lambda (_g2019420197_) + (let* ((_g2012720135_ + (lambda (_g2012820131_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2019420197_))) - (_g2019220279_ - (lambda (_g2019420205_) - ((lambda (_L20208_) + '"Bad syntax; invalid match target" + _g2012820131_))) + (_g2012620213_ + (lambda (_g2012820139_) + ((lambda (_L20142_) (let () - (let* ((_g2022120229_ + (let* ((_g2015520163_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2022220225_) + (lambda (_g2015620159_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2022220225_))) - (_g2022020251_ - (lambda (_g2022220233_) - ((lambda (_L20236_) + '"Bad syntax; invalid match target" + _g2015620159_))) + (_g2015420185_ + (lambda (_g2015620167_) + ((lambda (_L20170_) (let () (let () - (let ((__tmp42884 + (let ((__tmp42771 (cons (gx#datum->syntax '#f 'begin) - (cons _L19984_ - (cons _L20236_ + (cons _L19918_ + (cons _L20170_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19337_ __tmp42884))))) - _g2022220233_))) - (__tmp42885 - (let ((__tmp42886 + (_wrap19285_ __tmp42771))))) + _g2015620167_))) + (__tmp42772 + (let ((__tmp42773 (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_) '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1238,188 +1232,188 @@ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19337_ __tmp42886)))) + (_wrap19285_ __tmp42773)))) (declare (not safe)) - (_g2022020251_ __tmp42885)))) - _g2019420205_)))) + (_g2015420185_ __tmp42772)))) + _g2012820139_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2019220279_ - _plist19840_)))) - _g2016620177_))) - (__tmp42887 - (if (not (null? _type-ctor19796_)) - (cadr _type-ctor19796_) + (_g2012620213_ + _alist19774_)))) + _g2010020111_))) + (__tmp42774 + (if (not (null? _type-constructor19730_)) + (cadr _type-constructor19730_) '#f))) (declare (not safe)) - (_g2016420283_ __tmp42887)))) - _g2013820149_))) - (__tmp42888 (cadr _type-name19766_))) + (_g2009820217_ __tmp42774)))) + _g2007220083_))) + (__tmp42775 (cadr _type-name19700_))) (declare (not safe)) - (_g2013620287_ __tmp42888)))) - _g2011020121_))) + (_g2007020221_ __tmp42775)))) + _g2004420055_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42889 - (let ((_quote-e20330_ - (lambda (_x-ref20295_) - (if _x-ref20295_ - (let* ((_g2029820306_ + (__tmp42776 + (let ((_quote-e20264_ + (lambda (_x-ref20229_) + (if _x-ref20229_ + (let* ((_g2023220240_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2029920302_) + (lambda (_g2023320236_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2029920302_))) - (_g2029720326_ - (lambda (_g2029920310_) - ((lambda (_L20313_) + '"Bad syntax; invalid match target" + _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_ __tmp42776)))) + _g2001620027_))) + (__tmp42777 + (if (not (null? _type-id19715_)) + (cadr _type-id19715_) '#f))) (declare (not safe)) - (_g2008020333_ __tmp42890)))) - _g2005420065_))) - (__tmp42891 - (if _struct?19335_ + (_g2001420267_ __tmp42777)))) + _g1998819999_))) + (__tmp42778 + (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_ __tmp42778)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2002620037_))) - (__tmp42892 - (if _struct?19335_ - (if _super19344_ + _g1996019971_))) + (__tmp42779 + (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" - _g2034620358_))) - (_g2034420423_ - (lambda (_g2034620366_) + '"Bad syntax; invalid match target" + _g2028020292_))) + (_g2027820357_ + (lambda (_g2028020300_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2034620366_) - (let ((_g42893_ - (gx#syntax-split-splice _g2034620366_ '0))) + _g2028020300_) + (let ((_g42780_ + (gx#syntax-split-splice _g2028020300_ '0))) (begin - (let ((_g42894_ + (let ((_g42781_ (let () (declare (not safe)) - (if (##values? _g42893_) - (##vector-length _g42893_) + (if (##values? _g42780_) + (##vector-length _g42780_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42894_ 2))) - (error "Context expects 2 values" _g42894_))) - (let ((_target2034820369_ + (##fx= _g42781_ 2))) + (error "Context expects 2 values" _g42781_))) + (let ((_target2028220303_ (let () (declare (not safe)) - (##vector-ref _g42893_ 0))) - (_tl2035020372_ + (##vector-ref _g42780_ 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 _g42780_ 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 ((__tmp42782 + (cons _lp-hd2028720323_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _super-id2035520382_))) + _super-id2028920316_))) (declare (not safe)) - (_loop2035120375_ _lp-tl2035420392_ __tmp42895)))) + (_loop2028520309_ _lp-tl2028820326_ __tmp42782)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (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_ __tmp42779)))) + _g1993219943_))) + (__tmp42783 + (if _struct?19283_ (gx#datum->syntax '#f 'make-extended-struct-info) @@ -1427,628 +1421,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_ __tmp42783)))) + _g1990419915_))) + (__tmp42784 + (let ((__tmp42785 + (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_ __tmp42785)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1996820431_ __tmp42897)))) - _type-body1990919948_)))))) + (_g1990220365_ __tmp42784)))) + _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 + (__tmp42787 (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-alist19814_) + _type-constructor19730_) + _type-name19700_) + _type-id19715_) + _type-attr19693_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1989720443_ __tmp42900)))) - _setf1967119710_)))))) + (_g1983120377_ __tmp42787)))) + _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_))))) + (__tmp42789 (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_ __tmp42789)))) + _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_))))) + (__tmp42791 (gx#stx-map - (lambda (_g2045920461_) - (_make-id19339_ - _name19341_ + (lambda (_g2039320395_) + (_make-id19287_ + _name19289_ '"-" - _g2045920461_)) - _els19333_))) + _g2039320395_)) + _slots19281_))) (declare (not safe)) - (_g1958820456_ __tmp42904)))) - _attr1952919568_)))))) + (_g1953620390_ __tmp42791)))) + _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_ + (__tmp42793 + (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_ __tmp42793)))) + _g1941119422_))) + (__tmp42794 + (_make-id19287_ _name19289_ '"?"))) (declare (not safe)) - (_g1946120473_ __tmp42907)))) - _g1943519446_))) - (__tmp42908 (_make-id19339_ '"make-" _name19341_))) + (_g1940920407_ __tmp42794)))) + _g1938319394_))) + (__tmp42795 (_make-id19287_ '"make-" _name19289_))) (declare (not safe)) - (_g1943320477_ __tmp42908)))) + (_g1938120411_ __tmp42795)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1940719418_))) - (__tmp42909 - (_make-id19339_ - _name19341_ + _g1935519366_))) + (__tmp42796 + (_make-id19287_ + _name19289_ '"::t"))) (declare (not safe)) - (_g1940520481_ __tmp42909)))) - _g1937919390_)))) + (_g1935320415_ __tmp42796)))) + _g1932719338_)))) (declare (not safe)) - (_g1937720485_ _id19331_)))) - _g1934819359_))) - (__tmp42910 - (if _struct?19335_ + (_g1932520419_ _id19279_)))) + _g1929619307_))) + (__tmp42797 + (if _struct?19283_ (gx#datum->syntax '#f 'defstruct-type) (gx#datum->syntax '#f 'defclass-type)))) (declare (not safe)) - (_g1934620489_ __tmp42910))))) + (_g1929420423_ __tmp42797))))) (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" - ___stx3971039711_)))) - (let ((___kont3971339714_ - (lambda (_L20963_ _L20965_) + '"Bad syntax; invalid match target" + ___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" - _stx20817_ - _hd20904_))))) - (let ((___match3973139732_ - (lambda (_e2091620943_ - _hd2091520947_ - _tl2091420950_ - _e2091920953_ - _hd2091820957_ - _tl2091720960_) - (let ((_L20963_ _hd2091820957_) - (_L20965_ _hd2091520947_)) - (if (and (gx#identifier? _L20965_) + '"Bad syntax; struct name not an identifier" + _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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2082420838_))) - (_g2082220900_ - (lambda (_g2082420846_) - (if (gx#stx-pair? _g2082420846_) - (let ((_e2083020849_ (gx#syntax-e _g2082420846_))) - (let ((_hd2082920853_ + (##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" + _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" - ___stx3973439735_)))) - (let ((___kont3973739738_ - (lambda (_L21117_ _L21119_) - (let ((__tmp42911 (gx#syntax->list _L21117_))) + '"Bad syntax; invalid match target" + ___stx3962439625_)))) + (let ((___kont3962739628_ + (lambda (_L21051_ _L21053_) + (let ((__tmp42798 (gx#syntax->list _L21051_))) (declare (not safe)) (|gerbil/core$$[1]#generate-typedef| - _stx20984_ - _L21119_ - __tmp42911 - _slots21073_ - _body21074_ + _stx20918_ + _L21053_ + __tmp42798 + _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" - _stx20984_ - _hd21071_))))) - (let ((___match3974739748_ - (lambda (_e2108321107_ - _hd2108221111_ - _tl2108121114_) - (let ((_L21117_ _tl2108121114_) - (_L21119_ _hd2108221111_)) - (if (and (gx#stx-list? _L21117_) + '"Bad syntax; class name should be an identifier" + _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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2099121005_))) - (_g2098921067_ - (lambda (_g2099121013_) - (if (gx#stx-pair? _g2099121013_) - (let ((_e2099721016_ (gx#syntax-e _g2099121013_))) - (let ((_hd2099621020_ + (##car _e2101721041_)))) + (___match3963739638_ + _e2101721041_ + _hd2101621045_ + _tl2101521048_))) + (___kont3962939630_)))))))) + (let* ((_g2092420943_ + (lambda (_g2092520939_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _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_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2114421168_))) - (_g2114221469_ - (lambda (_g2114421176_) - (if (gx#stx-pair? _g2114421176_) - (let ((_e2115121179_ (gx#syntax-e _g2114421176_))) - (let ((_hd2115021183_ + _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" + _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]#_g42799_| + _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" - _g2127521278_))) - (_g2127321465_ - (lambda (_g2127521286_) - ((lambda (_L21289_) + '"Bad syntax; invalid match target" + _g2120921212_))) + (_g2120721399_ + (lambda (_g2120921220_) + ((lambda (_L21223_) (let () - (let* ((_g2130321311_ + (let* ((_g2123721245_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2130421307_) + (lambda (_g2123821241_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2130421307_))) - (_g2130221461_ - (lambda (_g2130421315_) - ((lambda (_L21318_) + '"Bad syntax; invalid match target" + _g2123821241_))) + (_g2123621395_ + (lambda (_g2123821249_) + ((lambda (_L21252_) (let () - (let* ((_g2133121339_ - (lambda (_g2133221335_) + (let* ((_g2126521273_ + (lambda (_g2126621269_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2133221335_))) - (_g2133021457_ - (lambda (_g2133221343_) - ((lambda (_L21346_) + '"Bad syntax; invalid match target" + _g2126621269_))) + (_g2126421391_ + (lambda (_g2126621277_) + ((lambda (_L21280_) (let () - (let* ((_g2135921367_ - (lambda (_g2136021363_) + (let* ((_g2129321301_ + (lambda (_g2129421297_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2136021363_))) - (_g2135821453_ - (lambda (_g2136021371_) - ((lambda (_L21374_) + '"Bad syntax; invalid match target" + _g2129421297_))) + (_g2129221387_ + (lambda (_g2129421305_) + ((lambda (_L21308_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2138721395_ - (lambda (_g2138821391_) + (let* ((_g2132121329_ + (lambda (_g2132221325_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2138821391_))) - (_g2138621449_ - (lambda (_g2138821399_) - ((lambda (_L21402_) + '"Bad syntax; invalid match target" + _g2132221325_))) + (_g2132021383_ + (lambda (_g2132221333_) + ((lambda (_L21336_) (let () - (let* ((_g2141521423_ - (lambda (_g2141621419_) + (let* ((_g2134921357_ + (lambda (_g2135021353_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2141621419_))) - (_g2141421445_ - (lambda (_g2141621427_) - ((lambda (_L21430_) + '"Bad syntax; invalid match target" + _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 @@ -2067,11 +2070,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 '...) '())))))) @@ -2081,133 +2084,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" - ___stx3975039751_)))) - (let ((___kont3975339754_ - (lambda (_L21997_ _L21999_ _L22000_) - (let* ((_g2202822043_ - (lambda (_g2202922039_) + '"Bad syntax; invalid match target" + ___stx3964039641_)))) + (let ((___kont3964339644_ + (lambda (_L21931_ _L21933_ _L21934_) + (let* ((_g2196221977_ + (lambda (_g2196321973_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g2202922039_))) - (_g2202722096_ - (lambda (_g2202922047_) - (if (gx#stx-pair? _g2202922047_) - (let ((_e2203422050_ - (gx#syntax-e _g2202922047_))) - (let ((_hd2203322054_ + '"Bad syntax; invalid match target" + _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 @@ -2216,1385 +2219,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" - _g2185921869_))) - (_g2185721926_ - (lambda (_g2185921877_) - (if (gx#stx-pair? _g2185921877_) - (let ((_e2186421880_ - (gx#syntax-e _g2185921877_))) - (let ((_hd2186321884_ + '"Bad syntax; invalid match target" + _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" - ___stx3987239873_)))) - (let ((___kont3987539876_ - (lambda (_L22311_ _L22313_) + '"Bad syntax; invalid match target" + ___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" - ___stx3993039931_)))) - (let ((___kont3993339934_ - (lambda (_L22566_ _L22568_ _L22569_) + '"Bad syntax; invalid match target" + ___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 eba12c6bf5..dfc7131082 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 3706da757e..6398a8b9b8 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]#_g42801_| (##structure gx#syntax-quote::t 'runtime-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42916_| + (define |gerbil/core$$[2]#_g42803_| (##structure gx#syntax-quote::t 'runtime-struct-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42918_| + (define |gerbil/core$$[2]#_g42805_| (##structure gx#syntax-quote::t 'runtime-class-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42920_| + (define |gerbil/core$$[2]#_g42807_| (##structure gx#syntax-quote::t 'expander-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42922_| + (define |gerbil/core$$[2]#_g42809_| (##structure gx#syntax-quote::t 'extended-runtime-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42924_| + (define |gerbil/core$$[2]#_g42811_| (##structure gx#syntax-quote::t 'extended-struct-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42926_| + (define |gerbil/core$$[2]#_g42813_| (##structure gx#syntax-quote::t 'extended-class-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42928_| + (define |gerbil/core$$[2]#_g42815_| (##structure gx#syntax-quote::t 'runtime-rtd-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42930_| + (define |gerbil/core$$[2]#_g42817_| (##structure gx#syntax-quote::t 'runtime-struct-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42932_| + (define |gerbil/core$$[2]#_g42819_| (##structure gx#syntax-quote::t 'runtime-class-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42936_| + (define |gerbil/core$$[2]#_g42823_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42937_| + (define |gerbil/core$$[2]#_g42824_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42938_| + (define |gerbil/core$$[2]#_g42825_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42939_| + (define |gerbil/core$$[2]#_g42826_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42940_| + (define |gerbil/core$$[2]#_g42827_| (##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 ((__tmp42800 |gerbil/core$$[2]#_g42801_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42913))) + __tmp42800))) (define |gerbil/core$$[:1:]#runtime-struct-info| - (let ((__tmp42915 |gerbil/core$$[2]#_g42916_|)) + (let ((__tmp42802 |gerbil/core$$[2]#_g42803_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42915))) + __tmp42802))) (define |gerbil/core$$[:1:]#runtime-class-info| - (let ((__tmp42917 |gerbil/core$$[2]#_g42918_|)) + (let ((__tmp42804 |gerbil/core$$[2]#_g42805_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42917))) + __tmp42804))) (define |gerbil/core$$[:1:]#expander-type-info| - (let ((__tmp42919 |gerbil/core$$[2]#_g42920_|)) + (let ((__tmp42806 |gerbil/core$$[2]#_g42807_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42919))) + __tmp42806))) (define |gerbil/core$$[:1:]#extended-runtime-type-info| - (let ((__tmp42921 |gerbil/core$$[2]#_g42922_|)) + (let ((__tmp42808 |gerbil/core$$[2]#_g42809_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42921))) + __tmp42808))) (define |gerbil/core$$[:1:]#extended-struct-info| - (let ((__tmp42923 |gerbil/core$$[2]#_g42924_|)) + (let ((__tmp42810 |gerbil/core$$[2]#_g42811_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42923))) + __tmp42810))) (define |gerbil/core$$[:1:]#extended-class-info| - (let ((__tmp42925 |gerbil/core$$[2]#_g42926_|)) + (let ((__tmp42812 |gerbil/core$$[2]#_g42813_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42925))) + __tmp42812))) (define |gerbil/core$$[:1:]#runtime-rtd-exhibitor| - (let ((__tmp42927 |gerbil/core$$[2]#_g42928_|)) + (let ((__tmp42814 |gerbil/core$$[2]#_g42815_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42927))) + __tmp42814))) (define |gerbil/core$$[:1:]#runtime-struct-exhibitor| - (let ((__tmp42929 |gerbil/core$$[2]#_g42930_|)) + (let ((__tmp42816 |gerbil/core$$[2]#_g42817_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42929))) + __tmp42816))) (define |gerbil/core$$[:1:]#runtime-class-exhibitor| - (let ((__tmp42931 |gerbil/core$$[2]#_g42932_|)) + (let ((__tmp42818 |gerbil/core$$[2]#_g42819_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42931))) + __tmp42818))) (define |gerbil/core$$[:1:]#macro-object| - (let ((__tmp42941 |gerbil/core$$[2]#_g42936_|) - (__tmp42935 + (let ((__tmp42828 |gerbil/core$$[2]#_g42823_|) + (__tmp42822 (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]#_g42823_| + (cons |gerbil/core$$[2]#_g42824_| + (cons |gerbil/core$$[2]#_g42825_| + (cons (cons |gerbil/core$$[2]#_g42826_| '()) - (cons (cons |gerbil/core$$[2]#_g42940_| + (cons (cons |gerbil/core$$[2]#_g42827_| '()) '()))))))) - (__tmp42933 - (let ((__tmp42934 (list))) + (__tmp42820 + (let ((__tmp42821 (list))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#macro-object::t - __tmp42934 + __tmp42821 'macro-object '#f '() @@ -203,8 +203,8 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp42941 + __tmp42828 'expander-identifiers: - __tmp42935 + __tmp42822 'type-exhibitor: - __tmp42933))))) + __tmp42820))))) diff --git a/src/bootstrap/gerbil/expander/common__0.scm b/src/bootstrap/gerbil/expander/common__0.scm index 1a6920ab81..2de6ee5d4a 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 1697117331) + (define gerbil/expander/common::timestamp 1701173300) (begin (define gx#AST::t (let () diff --git a/src/bootstrap/gerbil/expander/common__1.scm b/src/bootstrap/gerbil/expander/common__1.scm index ba0d9b2cba..9a38ea8aa7 100644 --- a/src/bootstrap/gerbil/expander/common__1.scm +++ b/src/bootstrap/gerbil/expander/common__1.scm @@ -114,7 +114,10 @@ (define |gx[:0:]#check-procedure| (lambda (_$stx39_) (let* ((_g4357_ (lambda (_g4453_) - (gx#raise-syntax-error '#f '"Bad syntax" _g4453_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g4453_))) (_g42100_ (lambda (_g4461_) (if (gx#stx-pair? _g4461_) @@ -186,7 +189,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx55315532_)))) (let ((___kont55345535_ (lambda (_L1300_ _L1302_) @@ -208,7 +211,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case pattern" _stx104_ _hd1171_)))) (if (gx#stx-pair? ___stx55315532_) @@ -273,14 +276,17 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx55775578_)))) (let ((___kont55805581_ (lambda (_L961_ _L963_) (let* ((_g974982_ (lambda (_g975978_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error '#f '"Bad syntax" _g975978_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g975978_))) (_g9731163_ (lambda (_g975986_) ((lambda (_L989_) @@ -289,7 +295,7 @@ (lambda (_g10021005_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g10021005_))) (_g10001159_ (lambda (_g10021013_) @@ -299,7 +305,7 @@ (lambda (_g10301033_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g10301033_))) (_g10281155_ (lambda (_g10301041_) @@ -310,7 +316,7 @@ (lambda (_g10581061_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g10581061_))) (_g10561151_ (lambda (_g10581069_) @@ -320,7 +326,7 @@ (lambda (_g10861089_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g10861089_))) (_g10841147_ (lambda (_g10861097_) @@ -330,7 +336,7 @@ (lambda (_g11141117_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g11141117_))) (_g11121143_ (lambda (_g11141125_) @@ -486,7 +492,7 @@ (lambda (_g694704_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g694704_))) (_g692759_ (lambda (_g694712_) @@ -592,7 +598,7 @@ (lambda (_g764774_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g764774_))) (_g762822_ (lambda (_g764782_) @@ -659,7 +665,7 @@ (lambda (_g827830_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g827830_))) (_g825852_ (lambda (_g827838_) @@ -705,7 +711,7 @@ (lambda (_g857871_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g857871_))) (_g855933_ (lambda (_g857879_) @@ -813,7 +819,7 @@ 'equal?))))))) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case head" _stx104_ _where649_ _hd659_))))))) @@ -861,7 +867,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx56135614_)))) (let ((___kont56165617_ (lambda (_L476_ _L478_) @@ -870,7 +876,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" ___stx55935594_)))) (let ((___kont55965597_ (lambda (_L630_) @@ -913,7 +919,7 @@ (cons __tmp5743 _r396_)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid else body" _stx104_ _L478_)) (gx#raise-syntax-error @@ -927,7 +933,10 @@ (let* ((_g512520_ (lambda (_g513516_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error '#f '"Bad syntax" _g513516_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g513516_))) (_g511609_ (lambda (_g513524_) ((lambda (_L527_) @@ -936,7 +945,7 @@ (lambda (_g544547_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g544547_))) (_g542605_ (lambda (_g544555_) @@ -946,7 +955,7 @@ (lambda (_g572575_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g572575_))) (_g570601_ (lambda (_g572583_) @@ -1021,7 +1030,7 @@ (lambda (_g423426_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g423426_))) (_g421455_ (lambda (_g423434_) @@ -1049,7 +1058,8 @@ (declare (not safe)) (cons _L437_ '())))) (declare (not safe)) - (cons '"Bad syntax" __tmp5766)))) + (cons '"Bad syntax; invalid syntax-case clause" + __tmp5766)))) (declare (not safe)) (cons '#f __tmp5765)))) (declare (not safe)) @@ -1092,7 +1102,7 @@ (lambda (_g270282_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g270282_))) (_g268383_ (lambda (_g270290_) @@ -1146,7 +1156,7 @@ (lambda (_g342345_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g342345_))) (_g340379_ (lambda (_g342353_) @@ -1192,7 +1202,10 @@ (_g268383_ _bind266_)))))) (let* ((_g110129_ (lambda (_g111125_) - (gx#raise-syntax-error '#f '"Bad syntax" _g111125_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g111125_))) (_g109252_ (lambda (_g111133_) (if (gx#stx-pair? _g111133_) @@ -1234,7 +1247,7 @@ (lambda (_g188191_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g188191_))) (_g186248_ (lambda (_g188199_) @@ -1245,7 +1258,7 @@ (lambda (_g215218_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _g215218_))) (_g213244_ (lambda (_g215226_) diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index cb96480f2d..587f1e55cb 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 1697117331) + (define gerbil/expander/compile::timestamp 1701173300) (begin (declare (not safe)) (define gx#core-compile-top-syntax @@ -8,7 +8,10 @@ (let* ((_e1860418611_ _stx18603_) (_E1860618615_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1860418611_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1860418611_))) (_E1860518629_ (lambda () (if (gx#stx-pair? _e1860418611_) @@ -66,7 +69,10 @@ (let* ((_e1840818415_ _stx18407_) (_E1841018419_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1840818415_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1840818415_))) (_E1840918433_ (lambda () (if (gx#stx-pair? _e1840818415_) @@ -87,7 +93,10 @@ (let* ((_e1837718384_ _stx18376_) (_E1837918388_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1837718384_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1837718384_))) (_E1837818403_ (lambda () (if (gx#stx-pair? _e1837718384_) @@ -112,7 +121,10 @@ (let* ((_e1834718354_ _stx18346_) (_E1834918358_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1834718354_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1834718354_))) (_E1834818372_ (lambda () (if (gx#stx-pair? _e1834718354_) @@ -130,7 +142,10 @@ (let* ((_e1829318306_ _stx18292_) (_E1829518310_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1829318306_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1829318306_))) (_E1829418342_ (lambda () (if (gx#stx-pair? _e1829318306_) @@ -166,7 +181,10 @@ (let* ((_e1826318270_ _stx18262_) (_E1826518274_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1826318270_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1826318270_))) (_E1826418288_ (lambda () (if (gx#stx-pair? _e1826318270_) @@ -184,7 +202,10 @@ (let* ((_e1822018230_ _stx18219_) (_E1822218234_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1822018230_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1822018230_))) (_E1822118258_ (lambda () (if (gx#stx-pair? _e1822018230_) @@ -218,7 +239,10 @@ (let* ((_e1819018197_ _stx18189_) (_E1819218201_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1819018197_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1819018197_))) (_E1819118215_ (lambda () (if (gx#stx-pair? _e1819018197_) @@ -236,7 +260,10 @@ (let* ((_e1816018167_ _stx18159_) (_E1816218171_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1816018167_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1816018167_))) (_E1816118185_ (lambda () (if (gx#stx-pair? _e1816018167_) @@ -254,7 +281,10 @@ (let* ((_e1813018137_ _stx18129_) (_E1813218141_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1813018137_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1813018137_))) (_E1813118155_ (lambda () (if (gx#stx-pair? _e1813018137_) @@ -272,7 +302,10 @@ (let* ((_e1807618089_ _stx18075_) (_E1807818093_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1807618089_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1807618089_))) (_E1807718125_ (lambda () (if (gx#stx-pair? _e1807618089_) @@ -313,7 +346,10 @@ (let* ((_e1802118034_ _stx18020_) (_E1802318038_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1802118034_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1802118034_))) (_E1802218071_ (lambda () (if (gx#stx-pair? _e1802118034_) @@ -357,7 +393,10 @@ (let* ((_e1799117998_ _stx17990_) (_E1799318002_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1799117998_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1799117998_))) (_E1799218016_ (lambda () (if (gx#stx-pair? _e1799117998_) @@ -375,7 +414,10 @@ (let* ((_e1796117968_ _stx17960_) (_E1796317972_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1796117968_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1796117968_))) (_E1796217986_ (lambda () (if (gx#stx-pair? _e1796117968_) @@ -393,7 +435,10 @@ (let* ((_e1793117938_ _stx17930_) (_E1793317942_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1793117938_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1793117938_))) (_E1793217956_ (lambda () (if (gx#stx-pair? _e1793117938_) @@ -411,7 +456,10 @@ (let* ((_e1790117908_ _stx17900_) (_E1790317912_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1790117908_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1790117908_))) (_E1790217926_ (lambda () (if (gx#stx-pair? _e1790117908_) @@ -431,7 +479,10 @@ (let* ((_e1785817868_ _stx17857_) (_E1786017872_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1785817868_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1785817868_))) (_E1785917896_ (lambda () (if (gx#stx-pair? _e1785817868_) @@ -463,7 +514,10 @@ (let* ((_e1782817835_ _stx17827_) (_E1783017839_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1782817835_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1782817835_))) (_E1782917853_ (lambda () (if (gx#stx-pair? _e1782817835_) @@ -484,7 +538,10 @@ (let* ((_e1776417777_ _stx17762_) (_E1776617781_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1776417777_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1776417777_))) (_E1776517813_ (lambda () (if (gx#stx-pair? _e1776417777_) @@ -552,7 +609,10 @@ (let* ((_e1771717727_ _stx17716_) (_E1771917731_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1771717727_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1771717727_))) (_E1771817753_ (lambda () (if (gx#stx-pair? _e1771717727_) @@ -581,7 +641,10 @@ (let* ((_e1767617686_ _stx17675_) (_E1767817690_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1767617686_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1767617686_))) (_E1767717712_ (lambda () (if (gx#stx-pair? _e1767617686_) @@ -610,7 +673,10 @@ (let* ((_e1763317643_ _stx17632_) (_E1763517647_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1763317643_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1763317643_))) (_E1763417671_ (lambda () (if (gx#stx-pair? _e1763317643_) @@ -640,7 +706,10 @@ (let* ((_e1756617582_ _stx17565_) (_E1756817586_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1756617582_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1756617582_))) (_E1756717628_ (lambda () (if (gx#stx-pair? _e1756617582_) @@ -694,7 +763,10 @@ (let* ((_e1752517535_ _stx17524_) (_E1752717539_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1752517535_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1752517535_))) (_E1752617561_ (lambda () (if (gx#stx-pair? _e1752517535_) @@ -723,7 +795,10 @@ (let* ((_e1747117484_ _stx17470_) (_E1747317488_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1747117484_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1747117484_))) (_E1747217520_ (lambda () (if (gx#stx-pair? _e1747117484_) diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index b0784d1d45..5d628c7313 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 1697117331) + (define gerbil/expander/core::timestamp 1701173300) (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))) @@ -958,7 +962,7 @@ _stx9556_ (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; no binding for head" _stx9556_)))))))) (let* ((_e95599567_ _stx9556_) (_E95659571_ (lambda () _stx9556_)) @@ -1010,7 +1014,7 @@ _r9499_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; splice body isn't a list" _stx9328_ _hd9496_)))) (_expand-cond-expand9334_ @@ -1025,7 +1029,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e94449454_))) (_E94459488_ (lambda () @@ -1167,7 +1171,10 @@ (let* ((_e93389345_ _stx9328_) (_E93409349_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e93389345_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e93389345_))) (_E93399363_ (lambda () (if (gx#stx-pair? _e93389345_) @@ -1272,7 +1279,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e92059220_))) (_E92089243_ (lambda () @@ -1305,7 +1312,7 @@ (gx#stx-andmap gx#core-resolve-identifier _body9238_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; bad cond-expannd combinator" _stx9104_ _combinator9236_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1365,7 +1372,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e91389146_))) (_E91409154_ (lambda () @@ -1387,7 +1394,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e91699176_))) (_E91709196_ (lambda () @@ -1406,7 +1413,7 @@ _body9194_ (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; clauses after else" _stx9104_ _hd9166_)) (if (_satisfied?9106_ _condition9192_) @@ -1422,7 +1429,10 @@ (let* ((_e91089115_ _stx9104_) (_E91109119_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e91089115_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e91089115_))) (_E91099133_ (lambda () (if (gx#stx-pair? _e91089115_) @@ -1442,7 +1452,10 @@ (let* ((_e90499059_ _stx9047_) (_E90519063_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e90499059_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e90499059_))) (_E90509090_ (lambda () (if (gx#stx-pair? _e90499059_) @@ -1522,7 +1535,7 @@ _$e9027_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; no expander method" _stx9017_ _method9018_)))))) (define gx#core-apply-expander__0 @@ -1549,7 +1562,10 @@ _g10134_)))))) (define gx#expander::apply-macro-expander (lambda (_self9012_ _stx9013_) - (gx#raise-syntax-error '#f '"Bad syntax" _stx9013_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; bottom method for apply-macro-expander" + _stx9013_))) (bind-method! gx#expander::t 'apply-macro-expander @@ -1658,7 +1674,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e82958302_))) (_E82968320_ (lambda () diff --git a/src/bootstrap/gerbil/expander/core__1.scm b/src/bootstrap/gerbil/expander/core__1.scm index 86e2fa4b69..11ec24ca05 100644 --- a/src/bootstrap/gerbil/expander/core__1.scm +++ b/src/bootstrap/gerbil/expander/core__1.scm @@ -2542,7 +2542,10 @@ (lambda (_g71267135_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g71267135_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g71267135_)))) (_g71247181_ (lambda (_g71267143_) (if (let () (declare (not safe)) (gx#stx-pair? _g71267143_)) diff --git a/src/bootstrap/gerbil/expander/module__0.scm b/src/bootstrap/gerbil/expander/module__0.scm index ef14cc74c2..c4697bbf17 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 1697117331) + (define gerbil/expander/module::timestamp 1701173300) (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!) @@ -1784,7 +1792,10 @@ (let* ((_e1514115151_ _stx15138_) (_E1514315155_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1514115151_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1514115151_))) (_E1514215187_ (lambda () (if (gx#stx-pair? _e1514115151_) @@ -2214,7 +2225,10 @@ (let* ((_e1475114758_ _stx14743_) (_E1475314762_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1475114758_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1475114758_))) (_E1475214777_ (lambda () (if (gx#stx-pair? _e1475114758_) @@ -2334,7 +2348,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e1468314690_))) (_E1468414708_ (lambda () @@ -2363,7 +2377,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e1465014657_))) (_E1465114675_ (lambda () @@ -2391,7 +2405,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e1448914506_))) (_E1449114620_ (lambda () @@ -2451,7 +2465,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e1454214558_))) (_E1454314616_ (lambda () @@ -2746,7 +2760,10 @@ (let* ((_e1433914346_ _spath14337_) (_E1434114350_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1433914346_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1433914346_))) (_E1434014405_ (lambda () (if (gx#stx-pair? _e1433914346_) @@ -3502,7 +3519,10 @@ (let* ((_e1381113818_ _stx13810_) (_E1381313822_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1381113818_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1381113818_))) (_E1381213836_ (lambda () (if (gx#stx-pair? _e1381113818_) diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index 9f1a90cadd..57db79ad6b 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 1697117331) + (define gerbil/expander/root::timestamp 1701173300) (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-syntax-expanders!19671 + (let ((__bind-core-features!19671 (make-promise (lambda () (let ((__tmp19674 - (direct-method-ref - __t19670 - 'bind-core-syntax-expanders!))) + (direct-method-ref __t19670 'bind-core-features!))) (if __tmp19674 __tmp19674 - (error '"Missing method" - 'bind-core-syntax-expanders!)))))) - (__bind-core-macro-expanders!19672 + (error '"Missing method" 'bind-core-features!)))))) + (__bind-core-syntax-expanders!19672 (make-promise (lambda () (let ((__tmp19675 (direct-method-ref __t19670 - 'bind-core-macro-expanders!))) + 'bind-core-syntax-expanders!))) (if __tmp19675 __tmp19675 (error '"Missing method" - 'bind-core-macro-expanders!)))))) - (__bind-core-features!19673 + 'bind-core-syntax-expanders!)))))) + (__bind-core-macro-expanders!19673 (make-promise (lambda () (let ((__tmp19676 - (direct-method-ref __t19670 'bind-core-features!))) + (direct-method-ref + __t19670 + 'bind-core-macro-expanders!))) (if __tmp19676 __tmp19676 - (error '"Missing method" 'bind-core-features!))))))) + (error '"Missing method" + 'bind-core-macro-expanders!))))))) (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!19671) + ((force __bind-core-syntax-expanders!19672) _self19658_) - ((force __bind-core-macro-expanders!19672) + ((force __bind-core-macro-expanders!19673) _self19658_) - ((force __bind-core-features!19673) _self19658_)) + ((force __bind-core-features!19671) _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 8378d61f8d..1eceaa476d 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 1697117331) + (define gerbil/expander/stx::timestamp 1701173300) (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 bbe7f77901..178f47926d 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 1697117331) + (define gerbil/expander/stxcase::timestamp 1701173300) (begin (define gx#syntax-pattern::t (let () @@ -755,7 +755,7 @@ (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e2060820615_)))) (_E2060920698_ (lambda () @@ -1059,7 +1059,10 @@ (lambda () (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _stx20548_)))) + (gx#raise-syntax-error + '#f + '"Bad syntax; expand-syntax expects a single argument" + _stx20548_)))) (_E2055320588_ (lambda () (if (let () @@ -1443,7 +1446,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e2024120261_)))) (_E2024320299_ (lambda () @@ -2535,7 +2538,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e1990219909_)))) (_E1990319974_ (lambda () @@ -2802,7 +2805,7 @@ (declare (not safe)) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e1982219835_)))) (_E1982319886_ (lambda () @@ -2880,7 +2883,10 @@ (not __tmp21305)) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _stx19812_)) + (gx#raise-syntax-error + '#f + '"Bad syntax; clauses expected" + _stx19812_)) (let* ((_ids19873_ (let () (declare (not safe)) @@ -2925,7 +2931,7 @@ (gx#core-list 'raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid match target" _target19881_)))) (declare (not safe)) (gx#core-list diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index 0b187d44e4..f47ea83c63 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 1697117331) + (define gerbil/expander/top::timestamp 1701173300) (begin (declare (not safe)) (define gx#core-expand-begin% @@ -23,7 +23,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e1360113630_))) (_E1362113646_ (lambda () @@ -292,7 +292,10 @@ (let* ((_e1344213449_ _stx13441_) (_E1344413453_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1344213449_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1344213449_))) (_E1344313467_ (lambda () (if (gx#stx-pair? _e1344213449_) @@ -315,7 +318,10 @@ (let* ((_e1338613399_ _stx13385_) (_E1338813403_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1338613399_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1338613399_))) (_E1338713435_ (lambda () (if (gx#stx-pair? _e1338613399_) @@ -382,7 +388,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e1327513300_))) (_E1329113316_ (lambda () @@ -523,7 +529,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; empty body" _stx13109_))) (_K1314013159_ (lambda (_expr13157_) @@ -683,7 +689,10 @@ (let* ((_e1304813055_ _stx13047_) (_E1305013059_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1304813055_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1304813055_))) (_E1304913105_ (lambda () (if (gx#stx-pair? _e1304813055_) @@ -702,7 +711,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e1307413081_))) (_E1307513101_ (lambda () @@ -736,7 +745,10 @@ (let* ((_e1295212959_ _stx12951_) (_E1295412963_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1295212959_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1295212959_))) (_E1295313043_ (lambda () (if (gx#stx-pair? _e1295212959_) @@ -752,7 +764,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; %#extern expects list of (internal external) identifier lists" _stx12951_))) (_E1298313003_ (lambda () @@ -821,7 +833,10 @@ (let* ((_e1289812911_ _stx12897_) (_E1290012915_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1289812911_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1289812911_))) (_E1289912947_ (lambda () (if (gx#stx-pair? _e1289812911_) @@ -869,7 +884,10 @@ (let* ((_e1284212855_ _stx12841_) (_E1284412859_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1284212855_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1284212855_))) (_E1284312893_ (lambda () (if (gx#stx-pair? _e1284212855_) @@ -921,7 +939,10 @@ (let* ((_e1278512798_ _stx12784_) (_E1278712802_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1278512798_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1278512798_))) (_E1278612837_ (lambda () (if (gx#stx-pair? _e1278512798_) @@ -977,7 +998,10 @@ (let* ((_e1272912742_ _stx12728_) (_E1273112746_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1272912742_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1272912742_))) (_E1273012780_ (lambda () (if (gx#stx-pair? _e1272912742_) @@ -1029,7 +1053,10 @@ (let* ((_e1267312683_ _stx12671_) (_E1267512687_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1267312683_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1267312683_))) (_E1267412714_ (lambda () (if (gx#stx-pair? _e1267312683_) @@ -1097,7 +1124,10 @@ (let* ((_e1263612643_ _stx12635_) (_E1263812647_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1263612643_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1263612643_))) (_E1263712666_ (lambda () (if (gx#stx-pair? _e1263612643_) @@ -1131,7 +1161,10 @@ (let* ((_e1259012600_ _stx12589_) (_E1259212604_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1259012600_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1259012600_))) (_E1259112631_ (lambda () (if (gx#stx-pair? _e1259012600_) @@ -1186,7 +1219,10 @@ (let* ((_e1253612546_ _stx12534_) (_E1253812550_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1253612546_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1253612546_))) (_E1253712575_ (lambda () (if (gx#stx-pair? _e1253612546_) @@ -1293,7 +1329,10 @@ (let* ((_e1244812458_ _bind12447_) (_E1245012462_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1244812458_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1244812458_))) (_E1244912484_ (lambda () (if (gx#stx-pair? _e1244812458_) @@ -1320,7 +1359,10 @@ (let* ((_e1240712417_ _bind12406_) (_E1240912421_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1240712417_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1240712417_))) (_E1240812443_ (lambda () (if (gx#stx-pair? _e1240712417_) @@ -1346,7 +1388,10 @@ (let* ((_e1236612376_ _bind12364_) (_E1236812380_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1236612376_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1236612376_))) (_E1236712402_ (lambda () (if (gx#stx-pair? _e1236612376_) @@ -1374,7 +1419,10 @@ (let* ((_e1231912329_ _stx12318_) (_E1232112333_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1231912329_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1231912329_))) (_E1232012360_ (lambda () (if (gx#stx-pair? _e1231912329_) @@ -1420,7 +1468,10 @@ (let* ((_e1226812278_ _stx12267_) (_E1227012282_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1226812278_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1226812278_))) (_E1226912314_ (lambda () (if (gx#stx-pair? _e1226812278_) @@ -1506,7 +1557,10 @@ (let* ((_e1218212192_ _bind12181_) (_E1218412196_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1218212192_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1218212192_))) (_E1218312220_ (lambda () (if (gx#stx-pair? _e1218212192_) @@ -1548,7 +1602,10 @@ (let* ((_e1212912139_ _bind12126_) (_E1213112143_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1212912139_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1212912139_))) (_E1213012165_ (lambda () (if (gx#stx-pair? _e1212912139_) @@ -1604,7 +1661,10 @@ (let* ((_e1208512095_ _stx12084_) (_E1208712099_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1208512095_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1208512095_))) (_E1208612121_ (lambda () (if (gx#stx-pair? _e1208512095_) @@ -1631,7 +1691,10 @@ (let* ((_e1204412054_ _stx12043_) (_E1204612058_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1204412054_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1204412054_))) (_E1204512080_ (lambda () (if (gx#stx-pair? _e1204412054_) @@ -1663,7 +1726,10 @@ (let* ((_e1200312013_ _stx12002_) (_E1200512017_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1200312013_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1200312013_))) (_E1200412039_ (lambda () (if (gx#stx-pair? _e1200312013_) @@ -1695,7 +1761,10 @@ (let* ((_e1196011970_ _stx11959_) (_E1196211974_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1196011970_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1196011970_))) (_E1196111998_ (lambda () (if (gx#stx-pair? _e1196011970_) @@ -1728,7 +1797,10 @@ (let* ((_e1189311909_ _stx11892_) (_E1189511913_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1189311909_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1189311909_))) (_E1189411955_ (lambda () (if (gx#stx-pair? _e1189311909_) @@ -1784,7 +1856,10 @@ (let* ((_e1185211862_ _stx11851_) (_E1185411866_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1185211862_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1185211862_))) (_E1185311888_ (lambda () (if (gx#stx-pair? _e1185211862_) @@ -1817,7 +1892,10 @@ (let* ((_e1179811811_ _stx11797_) (_E1180011815_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1179811811_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1179811811_))) (_E1179911847_ (lambda () (if (gx#stx-pair? _e1179811811_) @@ -1869,7 +1947,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e1168411699_))) (_E1169311707_ (lambda () @@ -1910,7 +1988,7 @@ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; invalid syntax-case clause" _e1172211732_))) (_E1172311760_ (lambda () @@ -1983,7 +2061,7 @@ (gx#stx-e _ns11784_) (gx#raise-syntax-error '#f - '"Bad syntax" + '"Bad syntax; extern expects namespace identifier" _stx11645_ _ns11784_))))) (_lp11679_ _rest11786_ _ns11791_ _r11683_)) @@ -1996,7 +2074,10 @@ (let* ((_e1164811655_ _stx11645_) (_E1165011659_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1164811655_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1164811655_))) (_E1164911673_ (lambda () (if (gx#stx-pair? _e1164811655_) @@ -2016,7 +2097,10 @@ (let* ((_e1159211605_ _stx11591_) (_E1159411609_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1159211605_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1159211605_))) (_E1159311641_ (lambda () (if (gx#stx-pair? _e1159211605_) @@ -2060,7 +2144,10 @@ (let* ((_e1153811551_ _stx11537_) (_E1154011555_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1153811551_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1153811551_))) (_E1153911587_ (lambda () (if (gx#stx-pair? _e1153811551_) @@ -2101,7 +2188,10 @@ (let* ((_e1148411497_ _stx11483_) (_E1148611501_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1148411497_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1148411497_))) (_E1148511533_ (lambda () (if (gx#stx-pair? _e1148411497_) @@ -2145,7 +2235,10 @@ (let* ((_e1144111451_ _stx11440_) (_E1144311455_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1144111451_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1144111451_))) (_E1144211479_ (lambda () (if (gx#stx-pair? _e1144111451_) @@ -2215,7 +2308,10 @@ (let* ((_e1137911386_ _stx11376_) (_E1138111390_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1137911386_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1137911386_))) (_E1138011404_ (lambda () (if (gx#stx-pair? _e1137911386_) @@ -2283,7 +2379,10 @@ (let* ((_e1128111291_ _stx11277_) (_E1128311295_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1128111291_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1128111291_))) (_E1128211319_ (lambda () (if (gx#stx-pair? _e1128111291_) @@ -2343,7 +2442,10 @@ (let* ((_e1116411190_ _stx11163_) (_E1117611194_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" _e1116411190_))) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid syntax-case clause" + _e1116411190_))) (_E1116611236_ (lambda () (if (gx#stx-pair? _e1116411190_) diff --git a/src/bootstrap/gerbil/runtime.ssi b/src/bootstrap/gerbil/runtime.ssi index ab40d95111..66eebcf1a6 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 0000000000..6686db9ca2 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/c3.ssi @@ -0,0 +1,27 @@ +prelude: :gerbil/core +package: gerbil/runtime +namespace: #f + +(%#begin (%#export #t) + (%#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!))) + (%#define-runtime remove-nulls! remove-nulls!) + (%#define-runtime append1! append1!) + (%#define-runtime append-reverse append-reverse)) +(%#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 0000000000..c7419d4c9a --- /dev/null +++ b/src/bootstrap/gerbil/runtime/c3.ssxi.ss @@ -0,0 +1,28 @@ +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!__%))) + (declare-type remove-nulls! (@lambda 1 #f)) + (declare-type append1! (@lambda 2 #f)) + (declare-type append-reverse (@lambda 2 #f))) diff --git a/src/bootstrap/gerbil/runtime/c3__0.scm b/src/bootstrap/gerbil/runtime/c3__0.scm new file mode 100644 index 0000000000..d12b3c0069 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/c3__0.scm @@ -0,0 +1,432 @@ +(declare (block) (standard-bindings) (extended-bindings)) +(begin + (define gerbil/runtime/c3::timestamp 1701173279) + (begin + (define c3-linearize__% + (lambda (_rhead9312_ + _supers9313_ + _get-precedence-list9314_ + _eqpred9315_ + _get-name9316_) + (let ((_tails9318_ (map _get-precedence-list9314_ _supers9313_))) + (let () (declare (not safe)) (append1! _tails9318_ _supers9313_)) + (let () + (declare (not safe)) + (c3-linearize-loop__% + _rhead9312_ + _tails9318_ + _eqpred9315_ + _get-name9316_))))) + (define c3-linearize__0 + (lambda (_rhead9323_ _supers9324_ _get-precedence-list9325_) + (let* ((_eqpred9327_ eqv?) (_get-name9329_ identity)) + (declare (not safe)) + (c3-linearize__% + _rhead9323_ + _supers9324_ + _get-precedence-list9325_ + _eqpred9327_ + _get-name9329_)))) + (define c3-linearize__1 + (lambda (_rhead9331_ _supers9332_ _get-precedence-list9333_ _eqpred9334_) + (let ((_get-name9336_ identity)) + (declare (not safe)) + (c3-linearize__% + _rhead9331_ + _supers9332_ + _get-precedence-list9333_ + _eqpred9334_ + _get-name9336_)))) + (define c3-linearize + (lambda _g9393_ + (let ((_g9392_ (let () (declare (not safe)) (##length _g9393_)))) + (cond ((let () (declare (not safe)) (##fx= _g9392_ 3)) + (apply (lambda (_rhead9323_ + _supers9324_ + _get-precedence-list9325_) + (let () + (declare (not safe)) + (c3-linearize__0 + _rhead9323_ + _supers9324_ + _get-precedence-list9325_))) + _g9393_)) + ((let () (declare (not safe)) (##fx= _g9392_ 4)) + (apply (lambda (_rhead9331_ + _supers9332_ + _get-precedence-list9333_ + _eqpred9334_) + (let () + (declare (not safe)) + (c3-linearize__1 + _rhead9331_ + _supers9332_ + _get-precedence-list9333_ + _eqpred9334_))) + _g9393_)) + ((let () (declare (not safe)) (##fx= _g9392_ 5)) + (apply (lambda (_rhead9338_ + _supers9339_ + _get-precedence-list9340_ + _eqpred9341_ + _get-name9342_) + (let () + (declare (not safe)) + (c3-linearize__% + _rhead9338_ + _supers9339_ + _get-precedence-list9340_ + _eqpred9341_ + _get-name9342_))) + _g9393_)) + (else + (##raise-wrong-number-of-arguments-exception + c3-linearize + _g9393_)))))) + (define c3-linearize-loop__% + (lambda (_rhead9228_ _tails9229_ _eqpred9230_ _get-name9231_) + (let _loop9233_ ((_rhead9235_ _rhead9228_) (_tails9236_ _tails9229_)) + (let* ((_tails9238_ + (let () (declare (not safe)) (remove-nulls! _tails9236_))) + (_tails92399249_ _tails9238_) + (_else92429267_ + (lambda () + (let* ((_err9262_ + (lambda () + (error '"Inconsistent precedence graph" + 'head: + (map _get-name9231_ (reverse _rhead9235_)) + 'tails: + (map (lambda (_g92579259_) + (map _get-name9231_ _g92579259_)) + _tails9238_)))) + (_next9264_ + (let () + (declare (not safe)) + (c3-select-next + _tails9238_ + _eqpred9230_ + _err9262_)))) + (let ((__tmp9395 + (let () + (declare (not safe)) + (cons _next9264_ _rhead9235_))) + (__tmp9394 + (let () + (declare (not safe)) + (remove-next!__% + _next9264_ + _tails9238_ + _eqpred9230_)))) + (declare (not safe)) + (_loop9233_ __tmp9395 __tmp9394)))))) + (let ((_K92479287_ (lambda () (reverse _rhead9235_))) + (_K92449273_ + (lambda (_tail9271_) + (let () + (declare (not safe)) + (append-reverse _rhead9235_ _tail9271_))))) + (let ((_try-match92419283_ + (lambda () + (if (let () + (declare (not safe)) + (##pair? _tails92399249_)) + (let ((_tl92469278_ + (let () + (declare (not safe)) + (##cdr _tails92399249_))) + (_hd92459276_ + (let () + (declare (not safe)) + (##car _tails92399249_)))) + (if (let () + (declare (not safe)) + (##null? _tl92469278_)) + (let ((_tail9281_ _hd92459276_)) + (declare (not safe)) + (_K92449273_ _tail9281_)) + (let () + (declare (not safe)) + (_else92429267_)))) + (let () (declare (not safe)) (_else92429267_)))))) + (if (let () (declare (not safe)) (##null? _tails92399249_)) + (let () (declare (not safe)) (_K92479287_)) + (let () (declare (not safe)) (_try-match92419283_))))))))) + (define c3-linearize-loop__0 + (lambda (_rhead9293_ _tails9294_) + (let* ((_eqpred9296_ eqv?) (_get-name9298_ identity)) + (declare (not safe)) + (c3-linearize-loop__% + _rhead9293_ + _tails9294_ + _eqpred9296_ + _get-name9298_)))) + (define c3-linearize-loop__1 + (lambda (_rhead9300_ _tails9301_ _eqpred9302_) + (let ((_get-name9304_ identity)) + (declare (not safe)) + (c3-linearize-loop__% + _rhead9300_ + _tails9301_ + _eqpred9302_ + _get-name9304_)))) + (define c3-linearize-loop + (lambda _g9397_ + (let ((_g9396_ (let () (declare (not safe)) (##length _g9397_)))) + (cond ((let () (declare (not safe)) (##fx= _g9396_ 2)) + (apply (lambda (_rhead9293_ _tails9294_) + (let () + (declare (not safe)) + (c3-linearize-loop__0 _rhead9293_ _tails9294_))) + _g9397_)) + ((let () (declare (not safe)) (##fx= _g9396_ 3)) + (apply (lambda (_rhead9300_ _tails9301_ _eqpred9302_) + (let () + (declare (not safe)) + (c3-linearize-loop__1 + _rhead9300_ + _tails9301_ + _eqpred9302_))) + _g9397_)) + ((let () (declare (not safe)) (##fx= _g9396_ 4)) + (apply (lambda (_rhead9306_ + _tails9307_ + _eqpred9308_ + _get-name9309_) + (let () + (declare (not safe)) + (c3-linearize-loop__% + _rhead9306_ + _tails9307_ + _eqpred9308_ + _get-name9309_))) + _g9397_)) + (else + (##raise-wrong-number-of-arguments-exception + c3-linearize-loop + _g9397_)))))) + (define c3-select-next + (lambda (_tails9175_ _eqpred9176_ _err9177_) + (let ((_candidate?9183_ + (lambda (_c9179_) + (let ((__tmp9398 + (lambda (_tail9181_) + (let ((__tmp9399 + (member _c9179_ + (cdr _tail9181_) + _eqpred9176_))) + (declare (not safe)) + (not __tmp9399))))) + (declare (not safe)) + (andmap1 __tmp9398 _tails9175_))))) + (let _loop9185_ ((_ts9187_ _tails9175_)) + (let* ((_ts91889198_ _ts9187_) + (_else91909206_ (lambda () (_err9177_))) + (_K91929212_ + (lambda (_rts9209_ _c9210_) + (if (let () + (declare (not safe)) + (_candidate?9183_ _c9210_)) + _c9210_ + (let () + (declare (not safe)) + (_loop9185_ _rts9209_)))))) + (if (let () (declare (not safe)) (##pair? _ts91889198_)) + (let ((_hd91939215_ + (let () (declare (not safe)) (##car _ts91889198_))) + (_tl91949217_ + (let () (declare (not safe)) (##cdr _ts91889198_)))) + (if (let () (declare (not safe)) (##pair? _hd91939215_)) + (let* ((_hd91959220_ + (let () + (declare (not safe)) + (##car _hd91939215_))) + (_c9223_ _hd91959220_) + (_rts9225_ _tl91949217_)) + (declare (not safe)) + (_K91929212_ _rts9225_ _c9223_)) + (let () (declare (not safe)) (_err9177_)))) + (let () (declare (not safe)) (_err9177_)))))))) + (define remove-next!__% + (lambda (_next9107_ _tails9108_ _eqpred9109_) + (let _loop9111_ ((_t9113_ _tails9108_)) + (let* ((_t91149125_ _t9113_) + (_E91179129_ + (lambda () (error '"No clause matching" _t91149125_)))) + (let ((_K91239160_ (lambda () _tails9108_)) + (_K91189137_ + (lambda (_more9133_ _tail9134_ _head9135_) + (if (_eqpred9109_ _head9135_ _next9107_) + (set-car! _t9113_ _tail9134_) + '#!void) + (let () (declare (not safe)) (_loop9111_ _more9133_))))) + (let ((_try-match91169156_ + (lambda () + (if (let () (declare (not safe)) (##pair? _t91149125_)) + (let ((_tl91209142_ + (let () + (declare (not safe)) + (##cdr _t91149125_))) + (_hd91199140_ + (let () + (declare (not safe)) + (##car _t91149125_)))) + (if (let () + (declare (not safe)) + (##pair? _hd91199140_)) + (let ((_tl91229147_ + (let () + (declare (not safe)) + (##cdr _hd91199140_))) + (_hd91219145_ + (let () + (declare (not safe)) + (##car _hd91199140_)))) + (let ((_head9150_ _hd91219145_) + (_tail9152_ _tl91229147_) + (_more9154_ _tl91209142_)) + (let () + (declare (not safe)) + (_K91189137_ + _more9154_ + _tail9152_ + _head9150_)))) + (let () (declare (not safe)) (_E91179129_)))) + (let () (declare (not safe)) (_E91179129_)))))) + (if (let () (declare (not safe)) (##null? _t91149125_)) + (let () (declare (not safe)) (_K91239160_)) + (let () (declare (not safe)) (_try-match91169156_))))))))) + (define remove-next!__0 + (lambda (_next9166_ _tails9167_) + (let ((_eqpred9169_ eqv?)) + (declare (not safe)) + (remove-next!__% _next9166_ _tails9167_ _eqpred9169_)))) + (define remove-next! + (lambda _g9401_ + (let ((_g9400_ (let () (declare (not safe)) (##length _g9401_)))) + (cond ((let () (declare (not safe)) (##fx= _g9400_ 2)) + (apply (lambda (_next9166_ _tails9167_) + (let () + (declare (not safe)) + (remove-next!__0 _next9166_ _tails9167_))) + _g9401_)) + ((let () (declare (not safe)) (##fx= _g9400_ 3)) + (apply (lambda (_next9171_ _tails9172_ _eqpred9173_) + (let () + (declare (not safe)) + (remove-next!__% + _next9171_ + _tails9172_ + _eqpred9173_))) + _g9401_)) + (else + (##raise-wrong-number-of-arguments-exception + remove-next! + _g9401_)))))) + (define remove-nulls! + (lambda (_l8993_) + (let* ((_l89949007_ _l8993_) + (_E89989011_ + (lambda () (error '"No clause matching" _l89949007_)))) + (let ((_K90039096_ + (lambda (_r9094_) + (let () (declare (not safe)) (remove-nulls! _r9094_)))) + (_K90009083_ + (lambda (_r9023_) + (let _loop9025_ ((_l9027_ _l8993_) (_r9028_ _r9023_)) + (let* ((_r90299042_ _r9028_) + (_E90339046_ + (lambda () + (error '"No clause matching" _r90299042_)))) + (let ((_K90389073_ + (lambda (_rr9071_) + (set-cdr! + _l9027_ + (let () + (declare (not safe)) + (remove-nulls! _rr9071_))))) + (_K90359060_ + (lambda (_rr9058_) + (let () + (declare (not safe)) + (_loop9025_ _r9028_ _rr9058_)))) + (_K90349051_ (lambda () '#!void))) + (if (let () + (declare (not safe)) + (##pair? _r90299042_)) + (let ((_tl90409078_ + (let () + (declare (not safe)) + (##cdr _r90299042_))) + (_hd90399076_ + (let () + (declare (not safe)) + (##car _r90299042_)))) + (if (let () + (declare (not safe)) + (##null? _hd90399076_)) + (let ((_rr9081_ _tl90409078_)) + (declare (not safe)) + (_K90389073_ _rr9081_)) + (let ((_rr9066_ _tl90409078_)) + (declare (not safe)) + (_K90359060_ _rr9066_)))) + '#!void)))) + _l8993_)) + (_K89999016_ (lambda () _l8993_))) + (if (let () (declare (not safe)) (##pair? _l89949007_)) + (let ((_tl90059101_ + (let () (declare (not safe)) (##cdr _l89949007_))) + (_hd90049099_ + (let () (declare (not safe)) (##car _l89949007_)))) + (if (let () (declare (not safe)) (##null? _hd90049099_)) + (let ((_r9104_ _tl90059101_)) + (declare (not safe)) + (remove-nulls! _r9104_)) + (let ((_r9089_ _tl90059101_)) + (declare (not safe)) + (_K90009083_ _r9089_)))) + (let () (declare (not safe)) (_K89999016_))))))) + (define append1! + (lambda (_l8988_ _x8989_) + (let ((_l28991_ (let () (declare (not safe)) (cons _x8989_ '())))) + (if (let () (declare (not safe)) (pair? _l8988_)) + (set-cdr! + (let () (declare (not safe)) (##last-pair _l8988_)) + _l28991_) + _l28991_)))) + (define append-reverse + (lambda (_rev-head8947_ _tail8948_) + (let* ((_rev-head89498958_ _rev-head8947_) + (_E89528962_ + (lambda () (error '"No clause matching" _rev-head89498958_)))) + (let ((_K89548976_ + (lambda (_tl8973_ _hd8974_) + (let ((__tmp9402 + (let () + (declare (not safe)) + (cons _hd8974_ _tail8948_)))) + (declare (not safe)) + (append-reverse _tl8973_ __tmp9402)))) + (_K89538967_ (lambda () _tail8948_))) + (let ((_try-match89518970_ + (lambda () + (if (let () + (declare (not safe)) + (##null? _rev-head89498958_)) + (let () (declare (not safe)) (_K89538967_)) + (let () (declare (not safe)) (_E89528962_)))))) + (if (let () (declare (not safe)) (##pair? _rev-head89498958_)) + (let ((_tl89568981_ + (let () + (declare (not safe)) + (##cdr _rev-head89498958_))) + (_hd89558979_ + (let () + (declare (not safe)) + (##car _rev-head89498958_)))) + (let ((_hd8984_ _hd89558979_) (_tl8986_ _tl89568981_)) + (let () + (declare (not safe)) + (_K89548976_ _tl8986_ _hd8984_)))) + (let () (declare (not safe)) (_try-match89518970_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/c3__rt.scm b/src/bootstrap/gerbil/runtime/c3__rt.scm new file mode 100644 index 0000000000..c8444672f5 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/c3__rt.scm @@ -0,0 +1,2 @@ +(declare (block) (standard-bindings) (extended-bindings)) +(begin (begin) (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 04a7a7510d..980ba05406 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 1697117311) + (define gerbil/runtime/control::timestamp 1701173279) (begin (define make-promise - (lambda (_thunk9160_) - (let () (declare (not safe)) (##make-delay-promise _thunk9160_)))) + (lambda (_thunk8635_) + (let () (declare (not safe)) (##make-delay-promise _thunk8635_)))) (define call-with-parameters - (lambda (_thunk9108_ . _rest9109_) - (let* ((_rest91109121_ _rest9109_) - (_E91139125_ - (lambda () (error '"No clause matching" _rest91109121_)))) - (let ((_K91159141_ - (lambda (_rest9136_ _val9137_ _param9138_) - (let ((__tmp9172 - (if (let () (declare (not safe)) (null? _rest9136_)) - _thunk9108_ + (lambda (_thunk8583_ . _rest8584_) + (let* ((_rest85858596_ _rest8584_) + (_E85888600_ + (lambda () (error '"No clause matching" _rest85858596_)))) + (let ((_K85908616_ + (lambda (_rest8611_ _val8612_ _param8613_) + (let ((__tmp8937 + (if (let () (declare (not safe)) (null? _rest8611_)) + _thunk8583_ (lambda () (apply call-with-parameters - _thunk9108_ - _rest9136_))))) + _thunk8583_ + _rest8611_))))) (declare (not safe)) - (##parameterize1 _param9138_ _val9137_ __tmp9172)))) - (_K91149130_ (lambda () (_thunk9108_)))) - (let ((_try-match91129133_ + (##parameterize1 _param8613_ _val8612_ __tmp8937)))) + (_K85898605_ (lambda () (_thunk8583_)))) + (let ((_try-match85878608_ (lambda () - (if (let () (declare (not safe)) (##null? _rest91109121_)) - (let () (declare (not safe)) (_thunk9108_)) - (let () (declare (not safe)) (_E91139125_)))))) - (if (let () (declare (not safe)) (##pair? _rest91109121_)) - (let ((_tl91179146_ - (let () (declare (not safe)) (##cdr _rest91109121_))) - (_hd91169144_ - (let () (declare (not safe)) (##car _rest91109121_)))) - (if (let () (declare (not safe)) (##pair? _tl91179146_)) - (let ((_tl91199153_ + (if (let () (declare (not safe)) (##null? _rest85858596_)) + (let () (declare (not safe)) (_thunk8583_)) + (let () (declare (not safe)) (_E85888600_)))))) + (if (let () (declare (not safe)) (##pair? _rest85858596_)) + (let ((_tl85928621_ + (let () (declare (not safe)) (##cdr _rest85858596_))) + (_hd85918619_ + (let () (declare (not safe)) (##car _rest85858596_)))) + (if (let () (declare (not safe)) (##pair? _tl85928621_)) + (let ((_tl85948628_ (let () (declare (not safe)) - (##cdr _tl91179146_))) - (_hd91189151_ + (##cdr _tl85928621_))) + (_hd85938626_ (let () (declare (not safe)) - (##car _tl91179146_)))) - (let ((_param9149_ _hd91169144_) - (_val9156_ _hd91189151_) - (_rest9158_ _tl91199153_)) + (##car _tl85928621_)))) + (let ((_param8624_ _hd85918619_) + (_val8631_ _hd85938626_) + (_rest8633_ _tl85948628_)) (let () (declare (not safe)) - (_K91159141_ _rest9158_ _val9156_ _param9149_)))) - (let () (declare (not safe)) (_E91139125_)))) - (let () (declare (not safe)) (_try-match91129133_)))))))) + (_K85908616_ _rest8633_ _val8631_ _param8624_)))) + (let () (declare (not safe)) (_E85888600_)))) + (let () (declare (not safe)) (_try-match85878608_)))))))) (define with-unwind-protect - (lambda (_K9101_ _fini9102_) - (let ((_once9104_ '#f)) + (lambda (_K8576_ _fini8577_) + (let ((_once8579_ '#f)) (dynamic-wind (lambda () (declare (not interrupts-enabled)) - (if _once9104_ + (if _once8579_ (error '"Cannot re-enter unwind protected block") - (set! _once9104_ '#t))) - _K9101_ - _fini9102_)))) + (set! _once8579_ '#t))) + _K8576_ + _fini8577_)))) (define keyword-dispatch - (lambda (_kwt8998_ _K8999_ . _all-args9000_) - (if _kwt8998_ - (if (let () (declare (not safe)) (vector? _kwt8998_)) + (lambda (_kwt8473_ _K8474_ . _all-args8475_) + (if _kwt8473_ + (if (let () (declare (not safe)) (vector? _kwt8473_)) '#!void - (error '"expected vector" _kwt8998_)) + (error '"expected vector" _kwt8473_)) '#!void) - (if (let () (declare (not safe)) (procedure? _K8999_)) + (if (let () (declare (not safe)) (procedure? _K8474_)) '#!void - (error '"expected procedure" _K8999_)) - (let ((_keys9002_ + (error '"expected procedure" _K8474_)) + (let ((_keys8477_ (let () (declare (not safe)) (make-table 'test: eq? 'hash: keyword-hash)))) - (let _lp9004_ ((_rest9006_ _all-args9000_) - (_args9007_ '#f) - (_tail9008_ '#f)) - (let* ((_rest90099017_ _rest9006_) - (_else90119025_ + (let _lp8479_ ((_rest8481_ _all-args8475_) + (_args8482_ '#f) + (_tail8483_ '#f)) + (let* ((_rest84848492_ _rest8481_) + (_else84868500_ (lambda () - (if _args9007_ + (if _args8482_ (begin (let () (declare (not safe)) - (##set-cdr! _tail9008_ '())) - (let ((__tmp9173 + (##set-cdr! _tail8483_ '())) + (let ((__tmp8938 (let () (declare (not safe)) - (cons _keys9002_ _args9007_)))) + (cons _keys8477_ _args8482_)))) (declare (not safe)) - (##apply _K8999_ __tmp9173))) - (_K8999_ _keys9002_)))) - (_K90139089_ - (lambda (_hd-rest9028_ _hd9029_) - (if (keyword? _hd9029_) - (let* ((_hd-rest90309037_ _hd-rest9028_) - (_E90329041_ + (##apply _K8474_ __tmp8938))) + (_K8474_ _keys8477_)))) + (_K84888564_ + (lambda (_hd-rest8503_ _hd8504_) + (if (keyword? _hd8504_) + (let* ((_hd-rest85058512_ _hd-rest8503_) + (_E85078516_ (lambda () (error '"No clause matching" - _hd-rest90309037_))) - (_K90339049_ - (lambda (_rest9044_ _val9045_) - (if _kwt8998_ - (let ((_pos9047_ - (let ((__tmp9177 - (keyword-hash _hd9029_)) - (__tmp9176 + _hd-rest85058512_))) + (_K85088524_ + (lambda (_rest8519_ _val8520_) + (if _kwt8473_ + (let ((_pos8522_ + (let ((__tmp8942 + (keyword-hash _hd8504_)) + (__tmp8941 (let () (declare (not safe)) (##vector-length - _kwt8998_)))) + _kwt8473_)))) (declare (not safe)) (##fxmodulo - __tmp9177 - __tmp9176)))) - (if (let ((__tmp9178 + __tmp8942 + __tmp8941)))) + (if (let ((__tmp8943 (let () (declare (not safe)) (##vector-ref - _kwt8998_ - _pos9047_)))) + _kwt8473_ + _pos8522_)))) (declare (not safe)) - (eq? _hd9029_ __tmp9178)) + (eq? _hd8504_ __tmp8943)) '#!void (error '"Unexpected keyword argument" - _K8999_ - _hd9029_))) + _K8474_ + _hd8504_))) '#!void) (if (let () (declare (not safe)) - (hash-key? _keys9002_ _hd9029_)) + (hash-key? _keys8477_ _hd8504_)) (error '"Duplicate keyword argument" - _K8999_ - _hd9029_) + _K8474_ + _hd8504_) '#!void) (let () (declare (not safe)) (table-set! - _keys9002_ - _hd9029_ - _val9045_)) + _keys8477_ + _hd8504_ + _val8520_)) (let () (declare (not safe)) - (_lp9004_ - _rest9044_ - _args9007_ - _tail9008_))))) + (_lp8479_ + _rest8519_ + _args8482_ + _tail8483_))))) (if (let () (declare (not safe)) - (##pair? _hd-rest90309037_)) - (let ((_hd90349052_ + (##pair? _hd-rest85058512_)) + (let ((_hd85098527_ (let () (declare (not safe)) - (##car _hd-rest90309037_))) - (_tl90359054_ + (##car _hd-rest85058512_))) + (_tl85108529_ (let () (declare (not safe)) - (##cdr _hd-rest90309037_)))) - (let* ((_val9057_ _hd90349052_) - (_rest9059_ _tl90359054_)) + (##cdr _hd-rest85058512_)))) + (let* ((_val8532_ _hd85098527_) + (_rest8534_ _tl85108529_)) (declare (not safe)) - (_K90339049_ _rest9059_ _val9057_))) - (let () (declare (not safe)) (_E90329041_)))) + (_K85088524_ _rest8534_ _val8532_))) + (let () (declare (not safe)) (_E85078516_)))) (if (let () (declare (not safe)) - (eq? _hd9029_ '#!key)) - (let* ((_hd-rest90609067_ _hd-rest9028_) - (_E90629071_ + (eq? _hd8504_ '#!key)) + (let* ((_hd-rest85358542_ _hd-rest8503_) + (_E85378546_ (lambda () (error '"No clause matching" - _hd-rest90609067_))) - (_K90639077_ - (lambda (_rest9074_ _val9075_) - (if _args9007_ + _hd-rest85358542_))) + (_K85388552_ + (lambda (_rest8549_ _val8550_) + (if _args8482_ (begin (let () (declare (not safe)) (##set-cdr! - _tail9008_ - _hd-rest9028_)) + _tail8483_ + _hd-rest8503_)) (let () (declare (not safe)) - (_lp9004_ - _rest9074_ - _args9007_ - _hd-rest9028_))) + (_lp8479_ + _rest8549_ + _args8482_ + _hd-rest8503_))) (let () (declare (not safe)) - (_lp9004_ - _rest9074_ - _hd-rest9028_ - _hd-rest9028_)))))) + (_lp8479_ + _rest8549_ + _hd-rest8503_ + _hd-rest8503_)))))) (if (let () (declare (not safe)) - (##pair? _hd-rest90609067_)) - (let ((_hd90649080_ + (##pair? _hd-rest85358542_)) + (let ((_hd85398555_ (let () (declare (not safe)) - (##car _hd-rest90609067_))) - (_tl90659082_ + (##car _hd-rest85358542_))) + (_tl85408557_ (let () (declare (not safe)) - (##cdr _hd-rest90609067_)))) - (let* ((_val9085_ _hd90649080_) - (_rest9087_ _tl90659082_)) + (##cdr _hd-rest85358542_)))) + (let* ((_val8560_ _hd85398555_) + (_rest8562_ _tl85408557_)) (declare (not safe)) - (_K90639077_ _rest9087_ _val9085_))) + (_K85388552_ _rest8562_ _val8560_))) (let () (declare (not safe)) - (_E90629071_)))) + (_E85378546_)))) (if (let () (declare (not safe)) - (eq? _hd9029_ '#!rest)) - (if _args9007_ + (eq? _hd8504_ '#!rest)) + (if _args8482_ (begin (let () (declare (not safe)) (##set-cdr! - _tail9008_ - _hd-rest9028_)) - (let ((__tmp9175 + _tail8483_ + _hd-rest8503_)) + (let ((__tmp8940 (let () (declare (not safe)) - (cons _keys9002_ - _args9007_)))) + (cons _keys8477_ + _args8482_)))) (declare (not safe)) - (##apply _K8999_ __tmp9175))) - (let ((__tmp9174 + (##apply _K8474_ __tmp8940))) + (let ((__tmp8939 (let () (declare (not safe)) - (cons _keys9002_ - _hd-rest9028_)))) + (cons _keys8477_ + _hd-rest8503_)))) (declare (not safe)) - (##apply _K8999_ __tmp9174))) - (if _args9007_ + (##apply _K8474_ __tmp8939))) + (if _args8482_ (begin (let () (declare (not safe)) - (##set-cdr! _tail9008_ _rest9006_)) + (##set-cdr! _tail8483_ _rest8481_)) (let () (declare (not safe)) - (_lp9004_ - _hd-rest9028_ - _args9007_ - _rest9006_))) + (_lp8479_ + _hd-rest8503_ + _args8482_ + _rest8481_))) (let () (declare (not safe)) - (_lp9004_ - _hd-rest9028_ - _rest9006_ - _rest9006_))))))))) - (if (let () (declare (not safe)) (##pair? _rest90099017_)) - (let ((_hd90149092_ - (let () (declare (not safe)) (##car _rest90099017_))) - (_tl90159094_ - (let () (declare (not safe)) (##cdr _rest90099017_)))) - (let* ((_hd9097_ _hd90149092_) - (_hd-rest9099_ _tl90159094_)) + (_lp8479_ + _hd-rest8503_ + _rest8481_ + _rest8481_))))))))) + (if (let () (declare (not safe)) (##pair? _rest84848492_)) + (let ((_hd84898567_ + (let () (declare (not safe)) (##car _rest84848492_))) + (_tl84908569_ + (let () (declare (not safe)) (##cdr _rest84848492_)))) + (let* ((_hd8572_ _hd84898567_) + (_hd-rest8574_ _tl84908569_)) (declare (not safe)) - (_K90139089_ _hd-rest9099_ _hd9097_))) - (let () (declare (not safe)) (_else90119025_)))))))) + (_K84888564_ _hd-rest8574_ _hd8572_))) + (let () (declare (not safe)) (_else84868500_)))))))) (define keyword-rest - (lambda (_kwt8989_ . _drop8990_) + (lambda (_kwt8464_ . _drop8465_) (for-each - (lambda (_kw8992_) - (let () (declare (not safe)) (table-set! _kwt8989_ _kw8992_))) - _drop8990_) - (let ((__tmp9179 - (lambda (_k8994_ _v8995_ _r8996_) - (let ((__tmp9180 - (let () (declare (not safe)) (cons _v8995_ _r8996_)))) + (lambda (_kw8467_) + (let () (declare (not safe)) (table-set! _kwt8464_ _kw8467_))) + _drop8465_) + (let ((__tmp8944 + (lambda (_k8469_ _v8470_ _r8471_) + (let ((__tmp8945 + (let () (declare (not safe)) (cons _v8470_ _r8471_)))) (declare (not safe)) - (cons _k8994_ __tmp9180))))) + (cons _k8469_ __tmp8945))))) (declare (not safe)) - (hash-fold __tmp9179 '() _kwt8989_)))))) + (hash-fold __tmp8944 '() _kwt8464_)))))) diff --git a/src/bootstrap/gerbil/runtime/error.ssi b/src/bootstrap/gerbil/runtime/error.ssi index 4f68570f8c..ea41893667 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 7beeda8019..d5991effa3 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 1697117311) + (define gerbil/runtime/error::timestamp 1701173279) (begin (define Exception::t (let () @@ -15,8 +15,8 @@ (define Exception? (let () (declare (not safe)) (make-class-predicate Exception::t))) (define make-Exception - (lambda _$args12533_ - (apply make-class-instance Exception::t _$args12533_))) + (lambda _$args12482_ + (apply make-class-instance Exception::t _$args12482_))) (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 _$args12530_ - (apply make-class-instance StackTrace::t _$args12530_))) + (lambda _$args12479_ + (apply make-class-instance StackTrace::t _$args12479_))) (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 ((__tmp12553 - (let ((__tmp12554 + (let ((__tmp12502 + (let ((__tmp12503 (let () (declare (not safe)) (cons Exception::t '())))) (declare (not safe)) - (cons StackTrace::t __tmp12554)))) + (cons StackTrace::t __tmp12503)))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Error::t - __tmp12553 + __tmp12502 '(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 _$args12527_ (apply make-class-instance Error::t _$args12527_))) + (lambda _$args12476_ (apply make-class-instance Error::t _$args12476_))) (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 ((__tmp12555 - (let ((__tmp12556 + (let ((__tmp12504 + (let ((__tmp12505 (let () (declare (not safe)) (cons Exception::t '())))) (declare (not safe)) - (cons StackTrace::t __tmp12556)))) + (cons StackTrace::t __tmp12505)))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#RuntimeException::t - __tmp12555 + __tmp12504 '(exception) 'RuntimeException '((transparent: . #t)) @@ -127,8 +127,8 @@ (define RuntimeException? (let () (declare (not safe)) (make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _$args12524_ - (apply make-class-instance RuntimeException::t _$args12524_))) + (lambda _$args12473_ + (apply make-class-instance RuntimeException::t _$args12473_))) (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 (_exn12519_ _continue12520_) - (let ((_exn12522_ + (lambda (_exn12468_ _continue12469_) + (let ((_exn12471_ (let () (declare (not safe)) - (wrap-runtime-exception _exn12519_)))) + (wrap-runtime-exception _exn12468_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn12522_ _continue12520_)))) + (##repl-exception-handler-hook _exn12471_ _continue12469_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn12515_) + (lambda (_exn12464_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn12515_)) + (class-instance? StackTrace::t _exn12464_)) (if (let () (declare (not safe)) - (slot-ref _exn12515_ 'continuation)) + (slot-ref _exn12464_ 'continuation)) '#!void - (let ((__tmp12557 - (lambda (_cont12517_) + (let ((__tmp12506 + (lambda (_cont12466_) (let () (declare (not safe)) (unchecked-slot-set! - _exn12515_ + _exn12464_ 'continuation - _cont12517_))))) + _cont12466_))))) (declare (not safe)) - (##continuation-capture __tmp12557))) + (##continuation-capture __tmp12506))) '#!void) - (let () (declare (not safe)) (##raise _exn12515_)))) + (let () (declare (not safe)) (##raise _exn12464_)))) (define error - (lambda (_message12512_ . _irritants12513_) + (lambda (_message12461_ . _irritants12462_) (raise (let () (declare (not safe)) (make-class-instance Error::t - _message12512_ + _message12461_ 'irritants: - _irritants12513_))))) + _irritants12462_))))) (define with-exception-handler - (lambda (_handler12505_ _thunk12506_) - (if (let () (declare (not safe)) (procedure? _handler12505_)) + (lambda (_handler12454_ _thunk12455_) + (if (let () (declare (not safe)) (procedure? _handler12454_)) '#!void - (raise (let ((__tmp12558 + (raise (let ((__tmp12507 (let () (declare (not safe)) - (cons _handler12505_ '())))) + (cons _handler12454_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -201,13 +201,13 @@ 'where: 'with-exception-handler 'irritants: - __tmp12558)))) - (if (let () (declare (not safe)) (procedure? _thunk12506_)) + __tmp12507)))) + (if (let () (declare (not safe)) (procedure? _thunk12455_)) '#!void - (raise (let ((__tmp12559 + (raise (let ((__tmp12508 (let () (declare (not safe)) - (cons _thunk12506_ '())))) + (cons _thunk12455_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -215,24 +215,24 @@ 'where: 'with-exception-hander 'irritants: - __tmp12559)))) - (let ((__tmp12560 - (lambda (_exn12508_) - (let ((_exn12510_ + __tmp12508)))) + (let ((__tmp12509 + (lambda (_exn12457_) + (let ((_exn12459_ (let () (declare (not safe)) - (wrap-runtime-exception _exn12508_)))) - (_handler12505_ _exn12510_))))) + (wrap-runtime-exception _exn12457_)))) + (_handler12454_ _exn12459_))))) (declare (not safe)) - (##with-exception-handler __tmp12560 _thunk12506_)))) + (##with-exception-handler __tmp12509 _thunk12455_)))) (define with-catch - (lambda (_handler12498_ _thunk12499_) - (if (let () (declare (not safe)) (procedure? _handler12498_)) + (lambda (_handler12447_ _thunk12448_) + (if (let () (declare (not safe)) (procedure? _handler12447_)) '#!void - (raise (let ((__tmp12561 + (raise (let ((__tmp12510 (let () (declare (not safe)) - (cons _handler12498_ '())))) + (cons _handler12447_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -240,13 +240,13 @@ 'where: 'with-exception-handler 'irritants: - __tmp12561)))) - (if (let () (declare (not safe)) (procedure? _thunk12499_)) + __tmp12510)))) + (if (let () (declare (not safe)) (procedure? _thunk12448_)) '#!void - (raise (let ((__tmp12562 + (raise (let ((__tmp12511 (let () (declare (not safe)) - (cons _thunk12499_ '())))) + (cons _thunk12448_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -254,354 +254,356 @@ 'where: 'with-exception-hander 'irritants: - __tmp12562)))) - (let ((__tmp12563 - (lambda (_cont12501_) + __tmp12511)))) + (let ((__tmp12512 + (lambda (_cont12450_) (with-exception-handler - (lambda (_exn12503_) + (lambda (_exn12452_) (let () (declare (not safe)) (##continuation-graft - _cont12501_ - _handler12498_ - _exn12503_))) - _thunk12499_)))) + _cont12450_ + _handler12447_ + _exn12452_))) + _thunk12448_)))) (declare (not safe)) - (##continuation-capture __tmp12563)))) + (##continuation-capture __tmp12512)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_exn12489_) - (if (or (heap-overflow-exception? _exn12489_) - (stack-overflow-exception? _exn12489_)) - _exn12489_ + (lambda (_exn12438_) + (if (or (heap-overflow-exception? _exn12438_) + (stack-overflow-exception? _exn12438_)) + _exn12438_ (if (let () (declare (not safe)) - (class-instance? Exception::t _exn12489_)) - _exn12489_ - (if (macro-exception? _exn12489_) - (let ((_rte12494_ + (class-instance? Exception::t _exn12438_)) + _exn12438_ + (if (macro-exception? _exn12438_) + (let ((_rte12443_ (let () (declare (not safe)) (make-class-instance RuntimeException::t 'exception: - _exn12489_)))) - (let ((__tmp12564 - (lambda (_cont12496_) - (let ((__tmp12565 + _exn12438_)))) + (let ((__tmp12513 + (lambda (_cont12445_) + (let ((__tmp12514 (let () (declare (not safe)) - (##continuation-next _cont12496_)))) + (##continuation-next _cont12445_)))) (declare (not safe)) (unchecked-slot-set! - _rte12494_ + _rte12443_ 'continuation - __tmp12565))))) + __tmp12514))))) (declare (not safe)) - (##continuation-capture __tmp12564)) - _rte12494_) - _exn12489_))))) + (##continuation-capture __tmp12513)) + _rte12443_) + _exn12438_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj12484_) - (let ((_$e12486_ + (lambda (_obj12433_) + (let ((_$e12435_ (let () (declare (not safe)) - (class-instance? Error::t _obj12484_)))) - (if _$e12486_ _$e12486_ (error-exception? _obj12484_))))) + (class-instance? Error::t _obj12433_)))) + (if _$e12435_ _$e12435_ (error-exception? _obj12433_))))) (define error-message - (lambda (_obj12482_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj12482_)) - (let () (declare (not safe)) (slot-ref _obj12482_ 'message)) - (if (error-exception? _obj12482_) - (error-exception-message _obj12482_) + (lambda (_obj12431_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12431_)) + (let () (declare (not safe)) (slot-ref _obj12431_ 'message)) + (if (error-exception? _obj12431_) + (error-exception-message _obj12431_) '#f)))) (define error-irritants - (lambda (_obj12480_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj12480_)) - (let () (declare (not safe)) (slot-ref _obj12480_ 'irritants)) - (if (error-exception? _obj12480_) - (error-exception-parameters _obj12480_) + (lambda (_obj12429_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12429_)) + (let () (declare (not safe)) (slot-ref _obj12429_ 'irritants)) + (if (error-exception? _obj12429_) + (error-exception-parameters _obj12429_) '#f)))) (define error-trace - (lambda (_obj12478_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj12478_)) - (let () (declare (not safe)) (slot-ref _obj12478_ 'where)) + (lambda (_obj12427_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12427_)) + (let () (declare (not safe)) (slot-ref _obj12427_ 'where)) '#f))) (define display-exception__% - (lambda (_e12460_ _port12461_) - (let ((_$e12463_ + (lambda (_e12409_ _port12410_) + (let ((_$e12412_ (let () (declare (not safe)) - (method-ref _e12460_ 'display-exception)))) - (if _$e12463_ - ((lambda (_f12466_) (_f12466_ _e12460_ _port12461_)) _$e12463_) + (method-ref _e12409_ 'display-exception)))) + (if _$e12412_ + ((lambda (_f12415_) (_f12415_ _e12409_ _port12410_)) _$e12412_) (let () (declare (not safe)) - (##default-display-exception _e12460_ _port12461_)))))) + (##default-display-exception _e12409_ _port12410_)))))) (define display-exception__0 - (lambda (_e12471_) - (let ((_port12473_ (current-error-port))) + (lambda (_e12420_) + (let ((_port12422_ (current-error-port))) (declare (not safe)) - (display-exception__% _e12471_ _port12473_)))) + (display-exception__% _e12420_ _port12422_)))) (define display-exception - (lambda _g12567_ - (let ((_g12566_ (let () (declare (not safe)) (##length _g12567_)))) - (cond ((let () (declare (not safe)) (##fx= _g12566_ 1)) - (apply (lambda (_e12471_) + (lambda _g12516_ + (let ((_g12515_ (let () (declare (not safe)) (##length _g12516_)))) + (cond ((let () (declare (not safe)) (##fx= _g12515_ 1)) + (apply (lambda (_e12420_) (let () (declare (not safe)) - (display-exception__0 _e12471_))) - _g12567_)) - ((let () (declare (not safe)) (##fx= _g12566_ 2)) - (apply (lambda (_e12475_ _port12476_) + (display-exception__0 _e12420_))) + _g12516_)) + ((let () (declare (not safe)) (##fx= _g12515_ 2)) + (apply (lambda (_e12424_ _port12425_) (let () (declare (not safe)) - (display-exception__% _e12475_ _port12476_))) - _g12567_)) + (display-exception__% _e12424_ _port12425_))) + _g12516_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g12567_)))))) + _g12516_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_self12449_ _message12450_ . _rest12451_) - (let ((_message12457_ - (if (let () (declare (not safe)) (string? _message12450_)) - _message12450_ + (lambda (_self12398_ _message12399_ . _rest12400_) + (let ((_message12406_ + (if (let () (declare (not safe)) (string? _message12399_)) + _message12399_ (call-with-output-string '"" - (lambda (_g1245212454_) - (display _message12450_ _g1245212454_)))))) + (lambda (_g1240112403_) + (display _message12399_ _g1240112403_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _self12449_ 'message _message12457_)) - (apply class-instance-init! _self12449_ _rest12451_)))) + (unchecked-slot-set! _self12398_ 'message _message12406_)) + (apply class-instance-init! _self12398_ _rest12400_)))) (define Error:::init!::specialize - (lambda (__t12535) - (let ((__message12536 - (let ((__tmp12537 + (lambda (__t12484) + (let ((__message12485 + (let ((__tmp12486 (let () (declare (not safe)) - (class-slot-offset __t12535 'message)))) - (if __tmp12537 - (let () (declare (not safe)) (##fx+ __tmp12537 '1)) + (class-slot-offset __t12484 'message)))) + (if __tmp12486 + (let () (declare (not safe)) (##fx+ __tmp12486 '1)) (error '"Unknown slot" 'message))))) - (lambda (_self12449_ _message12450_ . _rest12451_) - (let ((_message12457_ - (if (let () (declare (not safe)) (string? _message12450_)) - _message12450_ + (lambda (_self12398_ _message12399_ . _rest12400_) + (let ((_message12406_ + (if (let () (declare (not safe)) (string? _message12399_)) + _message12399_ (call-with-output-string '"" - (lambda (_g1245212454_) - (display _message12450_ _g1245212454_)))))) + (lambda (_g1240112403_) + (display _message12399_ _g1240112403_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _self12449_ - _message12457_ - __message12536 - __t12535 + _self12398_ + _message12406_ + __message12485 + __t12484 '#f)) - (apply class-instance-init! _self12449_ _rest12451_)))))) + (apply class-instance-init! _self12398_ _rest12400_)))))) (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 (_self12307_ _port12308_) - (let ((_tmp-port12310_ (open-output-string)) - (_display-error-newline12311_ - (> (output-port-column _port12308_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port12310_)) - (let ((__tmp12568 + (lambda (_self12256_ _port12257_) + (let ((_tmp-port12259_ (open-output-string)) + (_display-error-newline12260_ + (> (output-port-column _port12257_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12259_)) + (let ((__tmp12517 (lambda () - (if _display-error-newline12311_ (newline) '#!void) + (if _display-error-newline12260_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e12314_ + (let ((_$e12263_ (let () (declare (not safe)) - (slot-ref _self12307_ 'where)))) - (if _$e12314_ (display _$e12314_) (display '"?"))) - (let ((__tmp12569 - (let ((__tmp12570 + (slot-ref _self12256_ 'where)))) + (if _$e12263_ (display _$e12263_) (display '"?"))) + (let ((__tmp12518 + (let ((__tmp12519 (let () (declare (not safe)) - (object-type _self12307_)))) + (object-type _self12256_)))) (declare (not safe)) - (##type-name __tmp12570)))) + (##type-name __tmp12519)))) (declare (not safe)) - (display* '" [" __tmp12569 '"]: ")) - (let ((__tmp12571 + (display* '" [" __tmp12518 '"]: ")) + (let ((__tmp12520 (let () (declare (not safe)) - (slot-ref _self12307_ 'message)))) + (slot-ref _self12256_ 'message)))) (declare (not safe)) - (displayln __tmp12571)) - (let ((_irritants12317_ + (displayln __tmp12520)) + (let ((_irritants12266_ (let () (declare (not safe)) - (slot-ref _self12307_ 'irritants)))) - (if (let () (declare (not safe)) (null? _irritants12317_)) + (slot-ref _self12256_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants12266_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj12319_) - (write _obj12319_) + (lambda (_obj12268_) + (write _obj12268_) (write-char '#\space)) - _irritants12317_) + _irritants12266_) (newline)))) - (if (let () - (declare (not safe)) - (class-instance? StackTrace::t _self12307_)) - (let ((_cont1232012322_ + (if (and (let () + (declare (not safe)) + (class-instance? StackTrace::t _self12256_)) + (dump-stack-trace?)) + (let ((_cont1226912271_ (let () (declare (not safe)) - (slot-ref _self12307_ 'continuation)))) - (if _cont1232012322_ - (let ((_cont12325_ _cont1232012322_)) + (slot-ref _self12256_ 'continuation)))) + (if _cont1226912271_ + (let ((_cont12274_ _cont1226912271_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) - (display-continuation-backtrace _cont12325_)) + (display-continuation-backtrace _cont12274_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp12568 + __tmp12517 current-output-port - _tmp-port12310_)) - (let ((__tmp12572 (get-output-string _tmp-port12310_))) + _tmp-port12259_)) + (let ((__tmp12521 (get-output-string _tmp-port12259_))) (declare (not safe)) - (##write-string __tmp12572 _port12308_))))) + (##write-string __tmp12521 _port12257_))))) (define Error::display-exception::specialize - (lambda (__t12538) - (let ((__irritants12539 - (let ((__tmp12543 + (lambda (__t12487) + (let ((__where12488 + (let ((__tmp12492 (let () (declare (not safe)) - (class-slot-offset __t12538 'irritants)))) - (if __tmp12543 - (let () (declare (not safe)) (##fx+ __tmp12543 '1)) - (error '"Unknown slot" 'irritants)))) - (__message12540 - (let ((__tmp12544 + (class-slot-offset __t12487 'where)))) + (if __tmp12492 + (let () (declare (not safe)) (##fx+ __tmp12492 '1)) + (error '"Unknown slot" 'where)))) + (__message12489 + (let ((__tmp12493 (let () (declare (not safe)) - (class-slot-offset __t12538 'message)))) - (if __tmp12544 - (let () (declare (not safe)) (##fx+ __tmp12544 '1)) + (class-slot-offset __t12487 'message)))) + (if __tmp12493 + (let () (declare (not safe)) (##fx+ __tmp12493 '1)) (error '"Unknown slot" 'message)))) - (__where12541 - (let ((__tmp12545 + (__continuation12490 + (let ((__tmp12494 (let () (declare (not safe)) - (class-slot-offset __t12538 'where)))) - (if __tmp12545 - (let () (declare (not safe)) (##fx+ __tmp12545 '1)) - (error '"Unknown slot" 'where)))) - (__continuation12542 - (let ((__tmp12546 + (class-slot-offset __t12487 'continuation)))) + (if __tmp12494 + (let () (declare (not safe)) (##fx+ __tmp12494 '1)) + (error '"Unknown slot" 'continuation)))) + (__irritants12491 + (let ((__tmp12495 (let () (declare (not safe)) - (class-slot-offset __t12538 'continuation)))) - (if __tmp12546 - (let () (declare (not safe)) (##fx+ __tmp12546 '1)) - (error '"Unknown slot" 'continuation)))) - (__class12547 + (class-slot-offset __t12487 'irritants)))) + (if __tmp12495 + (let () (declare (not safe)) (##fx+ __tmp12495 '1)) + (error '"Unknown slot" 'irritants)))) + (__class12496 (let () (declare (not safe)) - (class-subtype? StackTrace::t __t12538)))) - (lambda (_self12307_ _port12308_) - (let ((_tmp-port12310_ (open-output-string)) - (_display-error-newline12311_ - (> (output-port-column _port12308_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port12310_)) - (let ((__tmp12573 + (class-subtype? StackTrace::t __t12487)))) + (lambda (_self12256_ _port12257_) + (let ((_tmp-port12259_ (open-output-string)) + (_display-error-newline12260_ + (> (output-port-column _port12257_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12259_)) + (let ((__tmp12522 (lambda () - (if _display-error-newline12311_ (newline) '#!void) + (if _display-error-newline12260_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e12314_ + (let ((_$e12263_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12307_ - __where12541 - __t12538 + _self12256_ + __where12488 + __t12487 '#f)))) - (if _$e12314_ (display _$e12314_) (display '"?"))) - (let ((__tmp12574 - (let ((__tmp12575 + (if _$e12263_ (display _$e12263_) (display '"?"))) + (let ((__tmp12523 + (let ((__tmp12524 (let () (declare (not safe)) - (object-type _self12307_)))) + (object-type _self12256_)))) (declare (not safe)) - (##type-name __tmp12575)))) + (##type-name __tmp12524)))) (declare (not safe)) - (display* '" [" __tmp12574 '"]: ")) - (let ((__tmp12576 + (display* '" [" __tmp12523 '"]: ")) + (let ((__tmp12525 (let () (declare (not safe)) (##unchecked-structure-ref - _self12307_ - __message12540 - __t12538 + _self12256_ + __message12489 + __t12487 '#f)))) (declare (not safe)) - (displayln __tmp12576)) - (let ((_irritants12317_ + (displayln __tmp12525)) + (let ((_irritants12266_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12307_ - __irritants12539 - __t12538 + _self12256_ + __irritants12491 + __t12487 '#f)))) (if (let () (declare (not safe)) - (null? _irritants12317_)) + (null? _irritants12266_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj12319_) - (write _obj12319_) + (lambda (_obj12268_) + (write _obj12268_) (write-char '#\space)) - _irritants12317_) + _irritants12266_) (newline)))) - (if __class12547 - (let ((_cont1232012322_ + (if (and __class12496 (dump-stack-trace?)) + (let ((_cont1226912271_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12307_ - __continuation12542 - __t12538 + _self12256_ + __continuation12490 + __t12487 '#f)))) - (if _cont1232012322_ - (let ((_cont12325_ _cont1232012322_)) + (if _cont1226912271_ + (let ((_cont12274_ _cont1226912271_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _cont12325_)) + _cont12274_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp12573 + __tmp12522 current-output-port - _tmp-port12310_)) - (let ((__tmp12577 (get-output-string _tmp-port12310_))) + _tmp-port12259_)) + (let ((__tmp12526 (get-output-string _tmp-port12259_))) (declare (not safe)) - (##write-string __tmp12577 _port12308_))))))) + (##write-string __tmp12526 _port12257_))))))) (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 (_self12174_ _port12175_) - (let ((_tmp-port12177_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port12177_)) - (let ((__tmp12578 + (lambda (_self12123_ _port12124_) + (let ((_tmp-port12126_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12126_)) + (let ((__tmp12527 (let () (declare (not safe)) - (slot-ref _self12174_ 'exception)))) + (slot-ref _self12123_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp12578 _tmp-port12177_)) - (let ((_cont1217812180_ + (##default-display-exception __tmp12527 _tmp-port12126_)) + (let ((_cont1212712129_ (let () (declare (not safe)) - (slot-ref _self12174_ 'continuation)))) - (if _cont1217812180_ - (let ((_cont12183_ _cont1217812180_)) - (display '"--- continuation backtrace:" _tmp-port12177_) - (newline _tmp-port12177_) - (display-continuation-backtrace _cont12183_ _tmp-port12177_)) + (slot-ref _self12123_ 'continuation)))) + (if _cont1212712129_ + (let ((_cont12132_ _cont1212712129_)) + (display '"--- continuation backtrace:" _tmp-port12126_) + (newline _tmp-port12126_) + (display-continuation-backtrace _cont12132_ _tmp-port12126_)) '#f)) - (let ((__tmp12579 (get-output-string _tmp-port12177_))) + (let ((__tmp12528 (get-output-string _tmp-port12126_))) (declare (not safe)) - (##write-string __tmp12579 _port12175_))))) + (##write-string __tmp12528 _port12124_))))) (define RuntimeException::display-exception::specialize - (lambda (__t12548) - (let ((__exception12549 - (let ((__tmp12551 + (lambda (__t12497) + (let ((__continuation12498 + (let ((__tmp12500 (let () (declare (not safe)) - (class-slot-offset __t12548 'exception)))) - (if __tmp12551 - (let () (declare (not safe)) (##fx+ __tmp12551 '1)) - (error '"Unknown slot" 'exception)))) - (__continuation12550 - (let ((__tmp12552 + (class-slot-offset __t12497 'continuation)))) + (if __tmp12500 + (let () (declare (not safe)) (##fx+ __tmp12500 '1)) + (error '"Unknown slot" 'continuation)))) + (__exception12499 + (let ((__tmp12501 (let () (declare (not safe)) - (class-slot-offset __t12548 'continuation)))) - (if __tmp12552 - (let () (declare (not safe)) (##fx+ __tmp12552 '1)) - (error '"Unknown slot" 'continuation))))) - (lambda (_self12174_ _port12175_) - (let ((_tmp-port12177_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port12177_)) - (let ((__tmp12580 + (class-slot-offset __t12497 'exception)))) + (if __tmp12501 + (let () (declare (not safe)) (##fx+ __tmp12501 '1)) + (error '"Unknown slot" 'exception))))) + (lambda (_self12123_ _port12124_) + (let ((_tmp-port12126_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12126_)) + (let ((__tmp12529 (let () (declare (not safe)) (##unchecked-structure-ref - _self12174_ - __exception12549 - __t12548 + _self12123_ + __exception12499 + __t12497 '#f)))) (declare (not safe)) - (##default-display-exception __tmp12580 _tmp-port12177_)) - (let ((_cont1217812180_ + (##default-display-exception __tmp12529 _tmp-port12126_)) + (let ((_cont1212712129_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12174_ - __continuation12550 - __t12548 + _self12123_ + __continuation12498 + __t12497 '#f)))) - (if _cont1217812180_ - (let ((_cont12183_ _cont1217812180_)) - (display '"--- continuation backtrace:" _tmp-port12177_) - (newline _tmp-port12177_) + (if _cont1212712129_ + (let ((_cont12132_ _cont1212712129_)) + (display '"--- continuation backtrace:" _tmp-port12126_) + (newline _tmp-port12126_) (display-continuation-backtrace - _cont12183_ - _tmp-port12177_)) + _cont12132_ + _tmp-port12126_)) '#f)) - (let ((__tmp12581 (get-output-string _tmp-port12177_))) + (let ((__tmp12530 (get-output-string _tmp-port12126_))) (declare (not safe)) - (##write-string __tmp12581 _port12175_))))))) + (##write-string __tmp12530 _port12124_))))))) (let () (declare (not safe)) (bind-specializer! @@ -696,3566 +698,3566 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_port12046_) - (if (macro-character-port? _port12046_) - (let ((_old-width12048_ - (macro-character-port-output-width _port12046_))) + (lambda (_port11995_) + (if (macro-character-port? _port11995_) + (let ((_old-width11997_ + (macro-character-port-output-width _port11995_))) (macro-character-port-output-width-set! - _port12046_ - (lambda (_port12050_) '256)) - _old-width12048_) + _port11995_ + (lambda (_port11999_) '256)) + _old-width11997_) '#!void))) (define reset-port-width! - (lambda (_port12043_ _old-width12044_) - (if (macro-character-port? _port12043_) + (lambda (_port11992_ _old-width11993_) + (if (macro-character-port? _port11992_) (macro-character-port-output-width-set! - _port12043_ - _old-width12044_) + _port11992_ + _old-width11993_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e12041_) - (macro-readenv-filepos (datum-parsing-exception-readenv _e12041_)))) + (lambda (_e11990_) + (macro-readenv-filepos (datum-parsing-exception-readenv _e11990_)))) (define abandoned-mutex-exception? - (lambda (_exn12035_) + (lambda (_exn11984_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12035_)) - (let ((_e12038_ + (class-instance? RuntimeException::t _exn11984_)) + (let ((_e11987_ (let () (declare (not safe)) - (slot-ref _exn12035_ 'exception)))) - (macro-abandoned-mutex-exception? _e12038_)) - (macro-abandoned-mutex-exception? _exn12035_)))) + (slot-ref _exn11984_ 'exception)))) + (macro-abandoned-mutex-exception? _e11987_)) + (macro-abandoned-mutex-exception? _exn11984_)))) (define cfun-conversion-exception? - (lambda (_exn12031_) + (lambda (_exn11980_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12031_)) - (let ((_e12033_ + (class-instance? RuntimeException::t _exn11980_)) + (let ((_e11982_ (let () (declare (not safe)) - (slot-ref _exn12031_ 'exception)))) - (macro-cfun-conversion-exception? _e12033_)) - (macro-cfun-conversion-exception? _exn12031_)))) + (slot-ref _exn11980_ 'exception)))) + (macro-cfun-conversion-exception? _e11982_)) + (macro-cfun-conversion-exception? _exn11980_)))) (define cfun-conversion-exception-arguments - (lambda (_exn12027_) + (lambda (_exn11976_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12027_)) - (let ((_e12029_ + (class-instance? RuntimeException::t _exn11976_)) + (let ((_e11978_ (let () (declare (not safe)) - (slot-ref _exn12027_ 'exception)))) - (if (macro-cfun-conversion-exception? _e12029_) - (macro-cfun-conversion-exception-arguments _e12029_) + (slot-ref _exn11976_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11978_) + (macro-cfun-conversion-exception-arguments _e11978_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12583 + (let ((__tmp12532 (let () (declare (not safe)) - (cons _e12029_ '())))) + (cons _e11978_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp12583))))) - (if (macro-cfun-conversion-exception? _exn12027_) - (macro-cfun-conversion-exception-arguments _exn12027_) + __tmp12532))))) + (if (macro-cfun-conversion-exception? _exn11976_) + (macro-cfun-conversion-exception-arguments _exn11976_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12582 + (let ((__tmp12531 (let () (declare (not safe)) - (cons _exn12027_ '())))) + (cons _exn11976_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp12582))))))) + __tmp12531))))))) (define cfun-conversion-exception-code - (lambda (_exn12023_) + (lambda (_exn11972_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12023_)) - (let ((_e12025_ + (class-instance? RuntimeException::t _exn11972_)) + (let ((_e11974_ (let () (declare (not safe)) - (slot-ref _exn12023_ 'exception)))) - (if (macro-cfun-conversion-exception? _e12025_) - (macro-cfun-conversion-exception-code _e12025_) + (slot-ref _exn11972_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11974_) + (macro-cfun-conversion-exception-code _e11974_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12585 + (let ((__tmp12534 (let () (declare (not safe)) - (cons _e12025_ '())))) + (cons _e11974_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp12585))))) - (if (macro-cfun-conversion-exception? _exn12023_) - (macro-cfun-conversion-exception-code _exn12023_) + __tmp12534))))) + (if (macro-cfun-conversion-exception? _exn11972_) + (macro-cfun-conversion-exception-code _exn11972_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12584 + (let ((__tmp12533 (let () (declare (not safe)) - (cons _exn12023_ '())))) + (cons _exn11972_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp12584))))))) + __tmp12533))))))) (define cfun-conversion-exception-message - (lambda (_exn12019_) + (lambda (_exn11968_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12019_)) - (let ((_e12021_ + (class-instance? RuntimeException::t _exn11968_)) + (let ((_e11970_ (let () (declare (not safe)) - (slot-ref _exn12019_ 'exception)))) - (if (macro-cfun-conversion-exception? _e12021_) - (macro-cfun-conversion-exception-message _e12021_) + (slot-ref _exn11968_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11970_) + (macro-cfun-conversion-exception-message _e11970_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12587 + (let ((__tmp12536 (let () (declare (not safe)) - (cons _e12021_ '())))) + (cons _e11970_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp12587))))) - (if (macro-cfun-conversion-exception? _exn12019_) - (macro-cfun-conversion-exception-message _exn12019_) + __tmp12536))))) + (if (macro-cfun-conversion-exception? _exn11968_) + (macro-cfun-conversion-exception-message _exn11968_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12586 + (let ((__tmp12535 (let () (declare (not safe)) - (cons _exn12019_ '())))) + (cons _exn11968_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp12586))))))) + __tmp12535))))))) (define cfun-conversion-exception-procedure - (lambda (_exn12013_) + (lambda (_exn11962_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12013_)) - (let ((_e12016_ + (class-instance? RuntimeException::t _exn11962_)) + (let ((_e11965_ (let () (declare (not safe)) - (slot-ref _exn12013_ 'exception)))) - (if (macro-cfun-conversion-exception? _e12016_) - (macro-cfun-conversion-exception-procedure _e12016_) + (slot-ref _exn11962_ 'exception)))) + (if (macro-cfun-conversion-exception? _e11965_) + (macro-cfun-conversion-exception-procedure _e11965_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12589 + (let ((__tmp12538 (let () (declare (not safe)) - (cons _e12016_ '())))) + (cons _e11965_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp12589))))) - (if (macro-cfun-conversion-exception? _exn12013_) - (macro-cfun-conversion-exception-procedure _exn12013_) + __tmp12538))))) + (if (macro-cfun-conversion-exception? _exn11962_) + (macro-cfun-conversion-exception-procedure _exn11962_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12588 + (let ((__tmp12537 (let () (declare (not safe)) - (cons _exn12013_ '())))) + (cons _exn11962_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp12588))))))) + __tmp12537))))))) (define datum-parsing-exception? - (lambda (_exn12009_) + (lambda (_exn11958_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12009_)) - (let ((_e12011_ + (class-instance? RuntimeException::t _exn11958_)) + (let ((_e11960_ (let () (declare (not safe)) - (slot-ref _exn12009_ 'exception)))) - (macro-datum-parsing-exception? _e12011_)) - (macro-datum-parsing-exception? _exn12009_)))) + (slot-ref _exn11958_ 'exception)))) + (macro-datum-parsing-exception? _e11960_)) + (macro-datum-parsing-exception? _exn11958_)))) (define datum-parsing-exception-kind - (lambda (_exn12005_) + (lambda (_exn11954_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12005_)) - (let ((_e12007_ + (class-instance? RuntimeException::t _exn11954_)) + (let ((_e11956_ (let () (declare (not safe)) - (slot-ref _exn12005_ 'exception)))) - (if (macro-datum-parsing-exception? _e12007_) - (macro-datum-parsing-exception-kind _e12007_) + (slot-ref _exn11954_ 'exception)))) + (if (macro-datum-parsing-exception? _e11956_) + (macro-datum-parsing-exception-kind _e11956_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12591 + (let ((__tmp12540 (let () (declare (not safe)) - (cons _e12007_ '())))) + (cons _e11956_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp12591))))) - (if (macro-datum-parsing-exception? _exn12005_) - (macro-datum-parsing-exception-kind _exn12005_) + (cons 'datum-parsing-exception-kind __tmp12540))))) + (if (macro-datum-parsing-exception? _exn11954_) + (macro-datum-parsing-exception-kind _exn11954_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12590 + (let ((__tmp12539 (let () (declare (not safe)) - (cons _exn12005_ '())))) + (cons _exn11954_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp12590))))))) + (cons 'datum-parsing-exception-kind __tmp12539))))))) (define datum-parsing-exception-parameters - (lambda (_exn12001_) + (lambda (_exn11950_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12001_)) - (let ((_e12003_ + (class-instance? RuntimeException::t _exn11950_)) + (let ((_e11952_ (let () (declare (not safe)) - (slot-ref _exn12001_ 'exception)))) - (if (macro-datum-parsing-exception? _e12003_) - (macro-datum-parsing-exception-parameters _e12003_) + (slot-ref _exn11950_ 'exception)))) + (if (macro-datum-parsing-exception? _e11952_) + (macro-datum-parsing-exception-parameters _e11952_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12593 + (let ((__tmp12542 (let () (declare (not safe)) - (cons _e12003_ '())))) + (cons _e11952_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp12593))))) - (if (macro-datum-parsing-exception? _exn12001_) - (macro-datum-parsing-exception-parameters _exn12001_) + __tmp12542))))) + (if (macro-datum-parsing-exception? _exn11950_) + (macro-datum-parsing-exception-parameters _exn11950_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12592 + (let ((__tmp12541 (let () (declare (not safe)) - (cons _exn12001_ '())))) + (cons _exn11950_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp12592))))))) + __tmp12541))))))) (define datum-parsing-exception-readenv - (lambda (_exn11995_) + (lambda (_exn11944_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11995_)) - (let ((_e11998_ + (class-instance? RuntimeException::t _exn11944_)) + (let ((_e11947_ (let () (declare (not safe)) - (slot-ref _exn11995_ 'exception)))) - (if (macro-datum-parsing-exception? _e11998_) - (macro-datum-parsing-exception-readenv _e11998_) + (slot-ref _exn11944_ 'exception)))) + (if (macro-datum-parsing-exception? _e11947_) + (macro-datum-parsing-exception-readenv _e11947_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12595 + (let ((__tmp12544 (let () (declare (not safe)) - (cons _e11998_ '())))) + (cons _e11947_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp12595))))) - (if (macro-datum-parsing-exception? _exn11995_) - (macro-datum-parsing-exception-readenv _exn11995_) + __tmp12544))))) + (if (macro-datum-parsing-exception? _exn11944_) + (macro-datum-parsing-exception-readenv _exn11944_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12594 + (let ((__tmp12543 (let () (declare (not safe)) - (cons _exn11995_ '())))) + (cons _exn11944_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp12594))))))) + __tmp12543))))))) (define deadlock-exception? - (lambda (_exn11989_) + (lambda (_exn11938_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11989_)) - (let ((_e11992_ + (class-instance? RuntimeException::t _exn11938_)) + (let ((_e11941_ (let () (declare (not safe)) - (slot-ref _exn11989_ 'exception)))) - (macro-deadlock-exception? _e11992_)) - (macro-deadlock-exception? _exn11989_)))) + (slot-ref _exn11938_ 'exception)))) + (macro-deadlock-exception? _e11941_)) + (macro-deadlock-exception? _exn11938_)))) (define divide-by-zero-exception? - (lambda (_exn11985_) + (lambda (_exn11934_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11985_)) - (let ((_e11987_ + (class-instance? RuntimeException::t _exn11934_)) + (let ((_e11936_ (let () (declare (not safe)) - (slot-ref _exn11985_ 'exception)))) - (macro-divide-by-zero-exception? _e11987_)) - (macro-divide-by-zero-exception? _exn11985_)))) + (slot-ref _exn11934_ 'exception)))) + (macro-divide-by-zero-exception? _e11936_)) + (macro-divide-by-zero-exception? _exn11934_)))) (define divide-by-zero-exception-arguments - (lambda (_exn11981_) + (lambda (_exn11930_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11981_)) - (let ((_e11983_ + (class-instance? RuntimeException::t _exn11930_)) + (let ((_e11932_ (let () (declare (not safe)) - (slot-ref _exn11981_ 'exception)))) - (if (macro-divide-by-zero-exception? _e11983_) - (macro-divide-by-zero-exception-arguments _e11983_) + (slot-ref _exn11930_ 'exception)))) + (if (macro-divide-by-zero-exception? _e11932_) + (macro-divide-by-zero-exception-arguments _e11932_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12597 + (let ((__tmp12546 (let () (declare (not safe)) - (cons _e11983_ '())))) + (cons _e11932_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp12597))))) - (if (macro-divide-by-zero-exception? _exn11981_) - (macro-divide-by-zero-exception-arguments _exn11981_) + __tmp12546))))) + (if (macro-divide-by-zero-exception? _exn11930_) + (macro-divide-by-zero-exception-arguments _exn11930_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12596 + (let ((__tmp12545 (let () (declare (not safe)) - (cons _exn11981_ '())))) + (cons _exn11930_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp12596))))))) + __tmp12545))))))) (define divide-by-zero-exception-procedure - (lambda (_exn11975_) + (lambda (_exn11924_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11975_)) - (let ((_e11978_ + (class-instance? RuntimeException::t _exn11924_)) + (let ((_e11927_ (let () (declare (not safe)) - (slot-ref _exn11975_ 'exception)))) - (if (macro-divide-by-zero-exception? _e11978_) - (macro-divide-by-zero-exception-procedure _e11978_) + (slot-ref _exn11924_ 'exception)))) + (if (macro-divide-by-zero-exception? _e11927_) + (macro-divide-by-zero-exception-procedure _e11927_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12599 + (let ((__tmp12548 (let () (declare (not safe)) - (cons _e11978_ '())))) + (cons _e11927_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp12599))))) - (if (macro-divide-by-zero-exception? _exn11975_) - (macro-divide-by-zero-exception-procedure _exn11975_) + __tmp12548))))) + (if (macro-divide-by-zero-exception? _exn11924_) + (macro-divide-by-zero-exception-procedure _exn11924_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12598 + (let ((__tmp12547 (let () (declare (not safe)) - (cons _exn11975_ '())))) + (cons _exn11924_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp12598))))))) + __tmp12547))))))) (define error-exception? - (lambda (_exn11971_) + (lambda (_exn11920_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11971_)) - (let ((_e11973_ + (class-instance? RuntimeException::t _exn11920_)) + (let ((_e11922_ (let () (declare (not safe)) - (slot-ref _exn11971_ 'exception)))) - (macro-error-exception? _e11973_)) - (macro-error-exception? _exn11971_)))) + (slot-ref _exn11920_ 'exception)))) + (macro-error-exception? _e11922_)) + (macro-error-exception? _exn11920_)))) (define error-exception-message - (lambda (_exn11967_) + (lambda (_exn11916_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11967_)) - (let ((_e11969_ + (class-instance? RuntimeException::t _exn11916_)) + (let ((_e11918_ (let () (declare (not safe)) - (slot-ref _exn11967_ 'exception)))) - (if (macro-error-exception? _e11969_) - (macro-error-exception-message _e11969_) + (slot-ref _exn11916_ 'exception)))) + (if (macro-error-exception? _e11918_) + (macro-error-exception-message _e11918_) (error '"not an instance" 'error-exception? - (let ((__tmp12601 + (let ((__tmp12550 (let () (declare (not safe)) - (cons _e11969_ '())))) + (cons _e11918_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp12601))))) - (if (macro-error-exception? _exn11967_) - (macro-error-exception-message _exn11967_) + (cons 'error-exception-message __tmp12550))))) + (if (macro-error-exception? _exn11916_) + (macro-error-exception-message _exn11916_) (error '"not an instance" 'error-exception? - (let ((__tmp12600 + (let ((__tmp12549 (let () (declare (not safe)) - (cons _exn11967_ '())))) + (cons _exn11916_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp12600))))))) + (cons 'error-exception-message __tmp12549))))))) (define error-exception-parameters - (lambda (_exn11961_) + (lambda (_exn11910_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11961_)) - (let ((_e11964_ + (class-instance? RuntimeException::t _exn11910_)) + (let ((_e11913_ (let () (declare (not safe)) - (slot-ref _exn11961_ 'exception)))) - (if (macro-error-exception? _e11964_) - (macro-error-exception-parameters _e11964_) + (slot-ref _exn11910_ 'exception)))) + (if (macro-error-exception? _e11913_) + (macro-error-exception-parameters _e11913_) (error '"not an instance" 'error-exception? - (let ((__tmp12603 + (let ((__tmp12552 (let () (declare (not safe)) - (cons _e11964_ '())))) + (cons _e11913_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp12603))))) - (if (macro-error-exception? _exn11961_) - (macro-error-exception-parameters _exn11961_) + (cons 'error-exception-parameters __tmp12552))))) + (if (macro-error-exception? _exn11910_) + (macro-error-exception-parameters _exn11910_) (error '"not an instance" 'error-exception? - (let ((__tmp12602 + (let ((__tmp12551 (let () (declare (not safe)) - (cons _exn11961_ '())))) + (cons _exn11910_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp12602))))))) + (cons 'error-exception-parameters __tmp12551))))))) (define expression-parsing-exception? - (lambda (_exn11957_) + (lambda (_exn11906_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11957_)) - (let ((_e11959_ + (class-instance? RuntimeException::t _exn11906_)) + (let ((_e11908_ (let () (declare (not safe)) - (slot-ref _exn11957_ 'exception)))) - (macro-expression-parsing-exception? _e11959_)) - (macro-expression-parsing-exception? _exn11957_)))) + (slot-ref _exn11906_ 'exception)))) + (macro-expression-parsing-exception? _e11908_)) + (macro-expression-parsing-exception? _exn11906_)))) (define expression-parsing-exception-kind - (lambda (_exn11953_) + (lambda (_exn11902_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11953_)) - (let ((_e11955_ + (class-instance? RuntimeException::t _exn11902_)) + (let ((_e11904_ (let () (declare (not safe)) - (slot-ref _exn11953_ 'exception)))) - (if (macro-expression-parsing-exception? _e11955_) - (macro-expression-parsing-exception-kind _e11955_) + (slot-ref _exn11902_ 'exception)))) + (if (macro-expression-parsing-exception? _e11904_) + (macro-expression-parsing-exception-kind _e11904_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12605 + (let ((__tmp12554 (let () (declare (not safe)) - (cons _e11955_ '())))) + (cons _e11904_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp12605))))) - (if (macro-expression-parsing-exception? _exn11953_) - (macro-expression-parsing-exception-kind _exn11953_) + __tmp12554))))) + (if (macro-expression-parsing-exception? _exn11902_) + (macro-expression-parsing-exception-kind _exn11902_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12604 + (let ((__tmp12553 (let () (declare (not safe)) - (cons _exn11953_ '())))) + (cons _exn11902_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp12604))))))) + __tmp12553))))))) (define expression-parsing-exception-parameters - (lambda (_exn11949_) + (lambda (_exn11898_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11949_)) - (let ((_e11951_ + (class-instance? RuntimeException::t _exn11898_)) + (let ((_e11900_ (let () (declare (not safe)) - (slot-ref _exn11949_ 'exception)))) - (if (macro-expression-parsing-exception? _e11951_) - (macro-expression-parsing-exception-parameters _e11951_) + (slot-ref _exn11898_ 'exception)))) + (if (macro-expression-parsing-exception? _e11900_) + (macro-expression-parsing-exception-parameters _e11900_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12607 + (let ((__tmp12556 (let () (declare (not safe)) - (cons _e11951_ '())))) + (cons _e11900_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp12607))))) - (if (macro-expression-parsing-exception? _exn11949_) - (macro-expression-parsing-exception-parameters _exn11949_) + __tmp12556))))) + (if (macro-expression-parsing-exception? _exn11898_) + (macro-expression-parsing-exception-parameters _exn11898_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12606 + (let ((__tmp12555 (let () (declare (not safe)) - (cons _exn11949_ '())))) + (cons _exn11898_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp12606))))))) + __tmp12555))))))) (define expression-parsing-exception-source - (lambda (_exn11943_) + (lambda (_exn11892_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11943_)) - (let ((_e11946_ + (class-instance? RuntimeException::t _exn11892_)) + (let ((_e11895_ (let () (declare (not safe)) - (slot-ref _exn11943_ 'exception)))) - (if (macro-expression-parsing-exception? _e11946_) - (macro-expression-parsing-exception-source _e11946_) + (slot-ref _exn11892_ 'exception)))) + (if (macro-expression-parsing-exception? _e11895_) + (macro-expression-parsing-exception-source _e11895_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12609 + (let ((__tmp12558 (let () (declare (not safe)) - (cons _e11946_ '())))) + (cons _e11895_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp12609))))) - (if (macro-expression-parsing-exception? _exn11943_) - (macro-expression-parsing-exception-source _exn11943_) + __tmp12558))))) + (if (macro-expression-parsing-exception? _exn11892_) + (macro-expression-parsing-exception-source _exn11892_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12608 + (let ((__tmp12557 (let () (declare (not safe)) - (cons _exn11943_ '())))) + (cons _exn11892_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp12608))))))) + __tmp12557))))))) (define file-exists-exception? - (lambda (_exn11939_) + (lambda (_exn11888_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11939_)) - (let ((_e11941_ + (class-instance? RuntimeException::t _exn11888_)) + (let ((_e11890_ (let () (declare (not safe)) - (slot-ref _exn11939_ 'exception)))) - (macro-file-exists-exception? _e11941_)) - (macro-file-exists-exception? _exn11939_)))) + (slot-ref _exn11888_ 'exception)))) + (macro-file-exists-exception? _e11890_)) + (macro-file-exists-exception? _exn11888_)))) (define file-exists-exception-arguments - (lambda (_exn11935_) + (lambda (_exn11884_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11935_)) - (let ((_e11937_ + (class-instance? RuntimeException::t _exn11884_)) + (let ((_e11886_ (let () (declare (not safe)) - (slot-ref _exn11935_ 'exception)))) - (if (macro-file-exists-exception? _e11937_) - (macro-file-exists-exception-arguments _e11937_) + (slot-ref _exn11884_ 'exception)))) + (if (macro-file-exists-exception? _e11886_) + (macro-file-exists-exception-arguments _e11886_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12611 + (let ((__tmp12560 (let () (declare (not safe)) - (cons _e11937_ '())))) + (cons _e11886_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp12611))))) - (if (macro-file-exists-exception? _exn11935_) - (macro-file-exists-exception-arguments _exn11935_) + __tmp12560))))) + (if (macro-file-exists-exception? _exn11884_) + (macro-file-exists-exception-arguments _exn11884_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12610 + (let ((__tmp12559 (let () (declare (not safe)) - (cons _exn11935_ '())))) + (cons _exn11884_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp12610))))))) + __tmp12559))))))) (define file-exists-exception-procedure - (lambda (_exn11929_) + (lambda (_exn11878_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11929_)) - (let ((_e11932_ + (class-instance? RuntimeException::t _exn11878_)) + (let ((_e11881_ (let () (declare (not safe)) - (slot-ref _exn11929_ 'exception)))) - (if (macro-file-exists-exception? _e11932_) - (macro-file-exists-exception-procedure _e11932_) + (slot-ref _exn11878_ 'exception)))) + (if (macro-file-exists-exception? _e11881_) + (macro-file-exists-exception-procedure _e11881_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12613 + (let ((__tmp12562 (let () (declare (not safe)) - (cons _e11932_ '())))) + (cons _e11881_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp12613))))) - (if (macro-file-exists-exception? _exn11929_) - (macro-file-exists-exception-procedure _exn11929_) + __tmp12562))))) + (if (macro-file-exists-exception? _exn11878_) + (macro-file-exists-exception-procedure _exn11878_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12612 + (let ((__tmp12561 (let () (declare (not safe)) - (cons _exn11929_ '())))) + (cons _exn11878_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp12612))))))) + __tmp12561))))))) (define fixnum-overflow-exception? - (lambda (_exn11925_) + (lambda (_exn11874_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11925_)) - (let ((_e11927_ + (class-instance? RuntimeException::t _exn11874_)) + (let ((_e11876_ (let () (declare (not safe)) - (slot-ref _exn11925_ 'exception)))) - (macro-fixnum-overflow-exception? _e11927_)) - (macro-fixnum-overflow-exception? _exn11925_)))) + (slot-ref _exn11874_ 'exception)))) + (macro-fixnum-overflow-exception? _e11876_)) + (macro-fixnum-overflow-exception? _exn11874_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn11921_) + (lambda (_exn11870_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11921_)) - (let ((_e11923_ + (class-instance? RuntimeException::t _exn11870_)) + (let ((_e11872_ (let () (declare (not safe)) - (slot-ref _exn11921_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e11923_) - (macro-fixnum-overflow-exception-arguments _e11923_) + (slot-ref _exn11870_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e11872_) + (macro-fixnum-overflow-exception-arguments _e11872_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12615 + (let ((__tmp12564 (let () (declare (not safe)) - (cons _e11923_ '())))) + (cons _e11872_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp12615))))) - (if (macro-fixnum-overflow-exception? _exn11921_) - (macro-fixnum-overflow-exception-arguments _exn11921_) + __tmp12564))))) + (if (macro-fixnum-overflow-exception? _exn11870_) + (macro-fixnum-overflow-exception-arguments _exn11870_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12614 + (let ((__tmp12563 (let () (declare (not safe)) - (cons _exn11921_ '())))) + (cons _exn11870_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp12614))))))) + __tmp12563))))))) (define fixnum-overflow-exception-procedure - (lambda (_exn11915_) + (lambda (_exn11864_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11915_)) - (let ((_e11918_ + (class-instance? RuntimeException::t _exn11864_)) + (let ((_e11867_ (let () (declare (not safe)) - (slot-ref _exn11915_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e11918_) - (macro-fixnum-overflow-exception-procedure _e11918_) + (slot-ref _exn11864_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e11867_) + (macro-fixnum-overflow-exception-procedure _e11867_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12617 + (let ((__tmp12566 (let () (declare (not safe)) - (cons _e11918_ '())))) + (cons _e11867_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp12617))))) - (if (macro-fixnum-overflow-exception? _exn11915_) - (macro-fixnum-overflow-exception-procedure _exn11915_) + __tmp12566))))) + (if (macro-fixnum-overflow-exception? _exn11864_) + (macro-fixnum-overflow-exception-procedure _exn11864_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12616 + (let ((__tmp12565 (let () (declare (not safe)) - (cons _exn11915_ '())))) + (cons _exn11864_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp12616))))))) + __tmp12565))))))) (define heap-overflow-exception? - (lambda (_exn11909_) + (lambda (_exn11858_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11909_)) - (let ((_e11912_ + (class-instance? RuntimeException::t _exn11858_)) + (let ((_e11861_ (let () (declare (not safe)) - (slot-ref _exn11909_ 'exception)))) - (macro-heap-overflow-exception? _e11912_)) - (macro-heap-overflow-exception? _exn11909_)))) + (slot-ref _exn11858_ 'exception)))) + (macro-heap-overflow-exception? _e11861_)) + (macro-heap-overflow-exception? _exn11858_)))) (define inactive-thread-exception? - (lambda (_exn11905_) + (lambda (_exn11854_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11905_)) - (let ((_e11907_ + (class-instance? RuntimeException::t _exn11854_)) + (let ((_e11856_ (let () (declare (not safe)) - (slot-ref _exn11905_ 'exception)))) - (macro-inactive-thread-exception? _e11907_)) - (macro-inactive-thread-exception? _exn11905_)))) + (slot-ref _exn11854_ 'exception)))) + (macro-inactive-thread-exception? _e11856_)) + (macro-inactive-thread-exception? _exn11854_)))) (define inactive-thread-exception-arguments - (lambda (_exn11901_) + (lambda (_exn11850_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11901_)) - (let ((_e11903_ + (class-instance? RuntimeException::t _exn11850_)) + (let ((_e11852_ (let () (declare (not safe)) - (slot-ref _exn11901_ 'exception)))) - (if (macro-inactive-thread-exception? _e11903_) - (macro-inactive-thread-exception-arguments _e11903_) + (slot-ref _exn11850_ 'exception)))) + (if (macro-inactive-thread-exception? _e11852_) + (macro-inactive-thread-exception-arguments _e11852_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12619 + (let ((__tmp12568 (let () (declare (not safe)) - (cons _e11903_ '())))) + (cons _e11852_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp12619))))) - (if (macro-inactive-thread-exception? _exn11901_) - (macro-inactive-thread-exception-arguments _exn11901_) + __tmp12568))))) + (if (macro-inactive-thread-exception? _exn11850_) + (macro-inactive-thread-exception-arguments _exn11850_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12618 + (let ((__tmp12567 (let () (declare (not safe)) - (cons _exn11901_ '())))) + (cons _exn11850_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp12618))))))) + __tmp12567))))))) (define inactive-thread-exception-procedure - (lambda (_exn11895_) + (lambda (_exn11844_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11895_)) - (let ((_e11898_ + (class-instance? RuntimeException::t _exn11844_)) + (let ((_e11847_ (let () (declare (not safe)) - (slot-ref _exn11895_ 'exception)))) - (if (macro-inactive-thread-exception? _e11898_) - (macro-inactive-thread-exception-procedure _e11898_) + (slot-ref _exn11844_ 'exception)))) + (if (macro-inactive-thread-exception? _e11847_) + (macro-inactive-thread-exception-procedure _e11847_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12621 + (let ((__tmp12570 (let () (declare (not safe)) - (cons _e11898_ '())))) + (cons _e11847_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp12621))))) - (if (macro-inactive-thread-exception? _exn11895_) - (macro-inactive-thread-exception-procedure _exn11895_) + __tmp12570))))) + (if (macro-inactive-thread-exception? _exn11844_) + (macro-inactive-thread-exception-procedure _exn11844_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12620 + (let ((__tmp12569 (let () (declare (not safe)) - (cons _exn11895_ '())))) + (cons _exn11844_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp12620))))))) + __tmp12569))))))) (define initialized-thread-exception? - (lambda (_exn11891_) + (lambda (_exn11840_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11891_)) - (let ((_e11893_ + (class-instance? RuntimeException::t _exn11840_)) + (let ((_e11842_ (let () (declare (not safe)) - (slot-ref _exn11891_ 'exception)))) - (macro-initialized-thread-exception? _e11893_)) - (macro-initialized-thread-exception? _exn11891_)))) + (slot-ref _exn11840_ 'exception)))) + (macro-initialized-thread-exception? _e11842_)) + (macro-initialized-thread-exception? _exn11840_)))) (define initialized-thread-exception-arguments - (lambda (_exn11887_) + (lambda (_exn11836_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11887_)) - (let ((_e11889_ + (class-instance? RuntimeException::t _exn11836_)) + (let ((_e11838_ (let () (declare (not safe)) - (slot-ref _exn11887_ 'exception)))) - (if (macro-initialized-thread-exception? _e11889_) - (macro-initialized-thread-exception-arguments _e11889_) + (slot-ref _exn11836_ 'exception)))) + (if (macro-initialized-thread-exception? _e11838_) + (macro-initialized-thread-exception-arguments _e11838_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12623 + (let ((__tmp12572 (let () (declare (not safe)) - (cons _e11889_ '())))) + (cons _e11838_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp12623))))) - (if (macro-initialized-thread-exception? _exn11887_) - (macro-initialized-thread-exception-arguments _exn11887_) + __tmp12572))))) + (if (macro-initialized-thread-exception? _exn11836_) + (macro-initialized-thread-exception-arguments _exn11836_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12622 + (let ((__tmp12571 (let () (declare (not safe)) - (cons _exn11887_ '())))) + (cons _exn11836_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp12622))))))) + __tmp12571))))))) (define initialized-thread-exception-procedure - (lambda (_exn11881_) + (lambda (_exn11830_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11881_)) - (let ((_e11884_ + (class-instance? RuntimeException::t _exn11830_)) + (let ((_e11833_ (let () (declare (not safe)) - (slot-ref _exn11881_ 'exception)))) - (if (macro-initialized-thread-exception? _e11884_) - (macro-initialized-thread-exception-procedure _e11884_) + (slot-ref _exn11830_ 'exception)))) + (if (macro-initialized-thread-exception? _e11833_) + (macro-initialized-thread-exception-procedure _e11833_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12625 + (let ((__tmp12574 (let () (declare (not safe)) - (cons _e11884_ '())))) + (cons _e11833_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp12625))))) - (if (macro-initialized-thread-exception? _exn11881_) - (macro-initialized-thread-exception-procedure _exn11881_) + __tmp12574))))) + (if (macro-initialized-thread-exception? _exn11830_) + (macro-initialized-thread-exception-procedure _exn11830_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12624 + (let ((__tmp12573 (let () (declare (not safe)) - (cons _exn11881_ '())))) + (cons _exn11830_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp12624))))))) + __tmp12573))))))) (define invalid-hash-number-exception? - (lambda (_exn11877_) + (lambda (_exn11826_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11877_)) - (let ((_e11879_ + (class-instance? RuntimeException::t _exn11826_)) + (let ((_e11828_ (let () (declare (not safe)) - (slot-ref _exn11877_ 'exception)))) - (macro-invalid-hash-number-exception? _e11879_)) - (macro-invalid-hash-number-exception? _exn11877_)))) + (slot-ref _exn11826_ 'exception)))) + (macro-invalid-hash-number-exception? _e11828_)) + (macro-invalid-hash-number-exception? _exn11826_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn11873_) + (lambda (_exn11822_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11873_)) - (let ((_e11875_ + (class-instance? RuntimeException::t _exn11822_)) + (let ((_e11824_ (let () (declare (not safe)) - (slot-ref _exn11873_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e11875_) - (macro-invalid-hash-number-exception-arguments _e11875_) + (slot-ref _exn11822_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e11824_) + (macro-invalid-hash-number-exception-arguments _e11824_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12627 + (let ((__tmp12576 (let () (declare (not safe)) - (cons _e11875_ '())))) + (cons _e11824_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp12627))))) - (if (macro-invalid-hash-number-exception? _exn11873_) - (macro-invalid-hash-number-exception-arguments _exn11873_) + __tmp12576))))) + (if (macro-invalid-hash-number-exception? _exn11822_) + (macro-invalid-hash-number-exception-arguments _exn11822_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12626 + (let ((__tmp12575 (let () (declare (not safe)) - (cons _exn11873_ '())))) + (cons _exn11822_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp12626))))))) + __tmp12575))))))) (define invalid-hash-number-exception-procedure - (lambda (_exn11867_) + (lambda (_exn11816_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11867_)) - (let ((_e11870_ + (class-instance? RuntimeException::t _exn11816_)) + (let ((_e11819_ (let () (declare (not safe)) - (slot-ref _exn11867_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e11870_) - (macro-invalid-hash-number-exception-procedure _e11870_) + (slot-ref _exn11816_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e11819_) + (macro-invalid-hash-number-exception-procedure _e11819_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12629 + (let ((__tmp12578 (let () (declare (not safe)) - (cons _e11870_ '())))) + (cons _e11819_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp12629))))) - (if (macro-invalid-hash-number-exception? _exn11867_) - (macro-invalid-hash-number-exception-procedure _exn11867_) + __tmp12578))))) + (if (macro-invalid-hash-number-exception? _exn11816_) + (macro-invalid-hash-number-exception-procedure _exn11816_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12628 + (let ((__tmp12577 (let () (declare (not safe)) - (cons _exn11867_ '())))) + (cons _exn11816_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp12628))))))) + __tmp12577))))))) (define invalid-utf8-encoding-exception? - (lambda (_exn11863_) + (lambda (_exn11812_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11863_)) - (let ((_e11865_ + (class-instance? RuntimeException::t _exn11812_)) + (let ((_e11814_ (let () (declare (not safe)) - (slot-ref _exn11863_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _e11865_)) - (macro-invalid-utf8-encoding-exception? _exn11863_)))) + (slot-ref _exn11812_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e11814_)) + (macro-invalid-utf8-encoding-exception? _exn11812_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn11859_) + (lambda (_exn11808_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11859_)) - (let ((_e11861_ + (class-instance? RuntimeException::t _exn11808_)) + (let ((_e11810_ (let () (declare (not safe)) - (slot-ref _exn11859_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e11861_) - (macro-invalid-utf8-encoding-exception-arguments _e11861_) + (slot-ref _exn11808_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e11810_) + (macro-invalid-utf8-encoding-exception-arguments _e11810_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12631 + (let ((__tmp12580 (let () (declare (not safe)) - (cons _e11861_ '())))) + (cons _e11810_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp12631))))) - (if (macro-invalid-utf8-encoding-exception? _exn11859_) - (macro-invalid-utf8-encoding-exception-arguments _exn11859_) + __tmp12580))))) + (if (macro-invalid-utf8-encoding-exception? _exn11808_) + (macro-invalid-utf8-encoding-exception-arguments _exn11808_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12630 + (let ((__tmp12579 (let () (declare (not safe)) - (cons _exn11859_ '())))) + (cons _exn11808_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp12630))))))) + __tmp12579))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn11853_) + (lambda (_exn11802_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11853_)) - (let ((_e11856_ + (class-instance? RuntimeException::t _exn11802_)) + (let ((_e11805_ (let () (declare (not safe)) - (slot-ref _exn11853_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e11856_) - (macro-invalid-utf8-encoding-exception-procedure _e11856_) + (slot-ref _exn11802_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e11805_) + (macro-invalid-utf8-encoding-exception-procedure _e11805_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12633 + (let ((__tmp12582 (let () (declare (not safe)) - (cons _e11856_ '())))) + (cons _e11805_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp12633))))) - (if (macro-invalid-utf8-encoding-exception? _exn11853_) - (macro-invalid-utf8-encoding-exception-procedure _exn11853_) + __tmp12582))))) + (if (macro-invalid-utf8-encoding-exception? _exn11802_) + (macro-invalid-utf8-encoding-exception-procedure _exn11802_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12632 + (let ((__tmp12581 (let () (declare (not safe)) - (cons _exn11853_ '())))) + (cons _exn11802_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp12632))))))) + __tmp12581))))))) (define join-timeout-exception? - (lambda (_exn11849_) + (lambda (_exn11798_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11849_)) - (let ((_e11851_ + (class-instance? RuntimeException::t _exn11798_)) + (let ((_e11800_ (let () (declare (not safe)) - (slot-ref _exn11849_ 'exception)))) - (macro-join-timeout-exception? _e11851_)) - (macro-join-timeout-exception? _exn11849_)))) + (slot-ref _exn11798_ 'exception)))) + (macro-join-timeout-exception? _e11800_)) + (macro-join-timeout-exception? _exn11798_)))) (define join-timeout-exception-arguments - (lambda (_exn11845_) + (lambda (_exn11794_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11845_)) - (let ((_e11847_ + (class-instance? RuntimeException::t _exn11794_)) + (let ((_e11796_ (let () (declare (not safe)) - (slot-ref _exn11845_ 'exception)))) - (if (macro-join-timeout-exception? _e11847_) - (macro-join-timeout-exception-arguments _e11847_) + (slot-ref _exn11794_ 'exception)))) + (if (macro-join-timeout-exception? _e11796_) + (macro-join-timeout-exception-arguments _e11796_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12635 + (let ((__tmp12584 (let () (declare (not safe)) - (cons _e11847_ '())))) + (cons _e11796_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp12635))))) - (if (macro-join-timeout-exception? _exn11845_) - (macro-join-timeout-exception-arguments _exn11845_) + __tmp12584))))) + (if (macro-join-timeout-exception? _exn11794_) + (macro-join-timeout-exception-arguments _exn11794_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12634 + (let ((__tmp12583 (let () (declare (not safe)) - (cons _exn11845_ '())))) + (cons _exn11794_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp12634))))))) + __tmp12583))))))) (define join-timeout-exception-procedure - (lambda (_exn11839_) + (lambda (_exn11788_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11839_)) - (let ((_e11842_ + (class-instance? RuntimeException::t _exn11788_)) + (let ((_e11791_ (let () (declare (not safe)) - (slot-ref _exn11839_ 'exception)))) - (if (macro-join-timeout-exception? _e11842_) - (macro-join-timeout-exception-procedure _e11842_) + (slot-ref _exn11788_ 'exception)))) + (if (macro-join-timeout-exception? _e11791_) + (macro-join-timeout-exception-procedure _e11791_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12637 + (let ((__tmp12586 (let () (declare (not safe)) - (cons _e11842_ '())))) + (cons _e11791_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp12637))))) - (if (macro-join-timeout-exception? _exn11839_) - (macro-join-timeout-exception-procedure _exn11839_) + __tmp12586))))) + (if (macro-join-timeout-exception? _exn11788_) + (macro-join-timeout-exception-procedure _exn11788_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12636 + (let ((__tmp12585 (let () (declare (not safe)) - (cons _exn11839_ '())))) + (cons _exn11788_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp12636))))))) + __tmp12585))))))) (define keyword-expected-exception? - (lambda (_exn11835_) + (lambda (_exn11784_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11835_)) - (let ((_e11837_ + (class-instance? RuntimeException::t _exn11784_)) + (let ((_e11786_ (let () (declare (not safe)) - (slot-ref _exn11835_ 'exception)))) - (macro-keyword-expected-exception? _e11837_)) - (macro-keyword-expected-exception? _exn11835_)))) + (slot-ref _exn11784_ 'exception)))) + (macro-keyword-expected-exception? _e11786_)) + (macro-keyword-expected-exception? _exn11784_)))) (define keyword-expected-exception-arguments - (lambda (_exn11831_) + (lambda (_exn11780_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11831_)) - (let ((_e11833_ + (class-instance? RuntimeException::t _exn11780_)) + (let ((_e11782_ (let () (declare (not safe)) - (slot-ref _exn11831_ 'exception)))) - (if (macro-keyword-expected-exception? _e11833_) - (macro-keyword-expected-exception-arguments _e11833_) + (slot-ref _exn11780_ 'exception)))) + (if (macro-keyword-expected-exception? _e11782_) + (macro-keyword-expected-exception-arguments _e11782_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12639 + (let ((__tmp12588 (let () (declare (not safe)) - (cons _e11833_ '())))) + (cons _e11782_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp12639))))) - (if (macro-keyword-expected-exception? _exn11831_) - (macro-keyword-expected-exception-arguments _exn11831_) + __tmp12588))))) + (if (macro-keyword-expected-exception? _exn11780_) + (macro-keyword-expected-exception-arguments _exn11780_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12638 + (let ((__tmp12587 (let () (declare (not safe)) - (cons _exn11831_ '())))) + (cons _exn11780_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp12638))))))) + __tmp12587))))))) (define keyword-expected-exception-procedure - (lambda (_exn11825_) + (lambda (_exn11774_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11825_)) - (let ((_e11828_ + (class-instance? RuntimeException::t _exn11774_)) + (let ((_e11777_ (let () (declare (not safe)) - (slot-ref _exn11825_ 'exception)))) - (if (macro-keyword-expected-exception? _e11828_) - (macro-keyword-expected-exception-procedure _e11828_) + (slot-ref _exn11774_ 'exception)))) + (if (macro-keyword-expected-exception? _e11777_) + (macro-keyword-expected-exception-procedure _e11777_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12641 + (let ((__tmp12590 (let () (declare (not safe)) - (cons _e11828_ '())))) + (cons _e11777_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp12641))))) - (if (macro-keyword-expected-exception? _exn11825_) - (macro-keyword-expected-exception-procedure _exn11825_) + __tmp12590))))) + (if (macro-keyword-expected-exception? _exn11774_) + (macro-keyword-expected-exception-procedure _exn11774_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12640 + (let ((__tmp12589 (let () (declare (not safe)) - (cons _exn11825_ '())))) + (cons _exn11774_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp12640))))))) + __tmp12589))))))) (define length-mismatch-exception? - (lambda (_exn11821_) + (lambda (_exn11770_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11821_)) - (let ((_e11823_ + (class-instance? RuntimeException::t _exn11770_)) + (let ((_e11772_ (let () (declare (not safe)) - (slot-ref _exn11821_ 'exception)))) - (macro-length-mismatch-exception? _e11823_)) - (macro-length-mismatch-exception? _exn11821_)))) + (slot-ref _exn11770_ 'exception)))) + (macro-length-mismatch-exception? _e11772_)) + (macro-length-mismatch-exception? _exn11770_)))) (define length-mismatch-exception-arg-id - (lambda (_exn11817_) + (lambda (_exn11766_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11817_)) - (let ((_e11819_ + (class-instance? RuntimeException::t _exn11766_)) + (let ((_e11768_ (let () (declare (not safe)) - (slot-ref _exn11817_ 'exception)))) - (if (macro-length-mismatch-exception? _e11819_) - (macro-length-mismatch-exception-arg-id _e11819_) + (slot-ref _exn11766_ 'exception)))) + (if (macro-length-mismatch-exception? _e11768_) + (macro-length-mismatch-exception-arg-id _e11768_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12643 + (let ((__tmp12592 (let () (declare (not safe)) - (cons _e11819_ '())))) + (cons _e11768_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp12643))))) - (if (macro-length-mismatch-exception? _exn11817_) - (macro-length-mismatch-exception-arg-id _exn11817_) + __tmp12592))))) + (if (macro-length-mismatch-exception? _exn11766_) + (macro-length-mismatch-exception-arg-id _exn11766_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12642 + (let ((__tmp12591 (let () (declare (not safe)) - (cons _exn11817_ '())))) + (cons _exn11766_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp12642))))))) + __tmp12591))))))) (define length-mismatch-exception-arguments - (lambda (_exn11813_) + (lambda (_exn11762_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11813_)) - (let ((_e11815_ + (class-instance? RuntimeException::t _exn11762_)) + (let ((_e11764_ (let () (declare (not safe)) - (slot-ref _exn11813_ 'exception)))) - (if (macro-length-mismatch-exception? _e11815_) - (macro-length-mismatch-exception-arguments _e11815_) + (slot-ref _exn11762_ 'exception)))) + (if (macro-length-mismatch-exception? _e11764_) + (macro-length-mismatch-exception-arguments _e11764_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12645 + (let ((__tmp12594 (let () (declare (not safe)) - (cons _e11815_ '())))) + (cons _e11764_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp12645))))) - (if (macro-length-mismatch-exception? _exn11813_) - (macro-length-mismatch-exception-arguments _exn11813_) + __tmp12594))))) + (if (macro-length-mismatch-exception? _exn11762_) + (macro-length-mismatch-exception-arguments _exn11762_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12644 + (let ((__tmp12593 (let () (declare (not safe)) - (cons _exn11813_ '())))) + (cons _exn11762_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp12644))))))) + __tmp12593))))))) (define length-mismatch-exception-procedure - (lambda (_exn11807_) + (lambda (_exn11756_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11807_)) - (let ((_e11810_ + (class-instance? RuntimeException::t _exn11756_)) + (let ((_e11759_ (let () (declare (not safe)) - (slot-ref _exn11807_ 'exception)))) - (if (macro-length-mismatch-exception? _e11810_) - (macro-length-mismatch-exception-procedure _e11810_) + (slot-ref _exn11756_ 'exception)))) + (if (macro-length-mismatch-exception? _e11759_) + (macro-length-mismatch-exception-procedure _e11759_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12647 + (let ((__tmp12596 (let () (declare (not safe)) - (cons _e11810_ '())))) + (cons _e11759_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp12647))))) - (if (macro-length-mismatch-exception? _exn11807_) - (macro-length-mismatch-exception-procedure _exn11807_) + __tmp12596))))) + (if (macro-length-mismatch-exception? _exn11756_) + (macro-length-mismatch-exception-procedure _exn11756_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12646 + (let ((__tmp12595 (let () (declare (not safe)) - (cons _exn11807_ '())))) + (cons _exn11756_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp12646))))))) + __tmp12595))))))) (define mailbox-receive-timeout-exception? - (lambda (_exn11803_) + (lambda (_exn11752_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11803_)) - (let ((_e11805_ + (class-instance? RuntimeException::t _exn11752_)) + (let ((_e11754_ (let () (declare (not safe)) - (slot-ref _exn11803_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _e11805_)) - (macro-mailbox-receive-timeout-exception? _exn11803_)))) + (slot-ref _exn11752_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e11754_)) + (macro-mailbox-receive-timeout-exception? _exn11752_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn11799_) + (lambda (_exn11748_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11799_)) - (let ((_e11801_ + (class-instance? RuntimeException::t _exn11748_)) + (let ((_e11750_ (let () (declare (not safe)) - (slot-ref _exn11799_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e11801_) - (macro-mailbox-receive-timeout-exception-arguments _e11801_) + (slot-ref _exn11748_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e11750_) + (macro-mailbox-receive-timeout-exception-arguments _e11750_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12649 + (let ((__tmp12598 (let () (declare (not safe)) - (cons _e11801_ '())))) + (cons _e11750_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp12649))))) - (if (macro-mailbox-receive-timeout-exception? _exn11799_) - (macro-mailbox-receive-timeout-exception-arguments _exn11799_) + __tmp12598))))) + (if (macro-mailbox-receive-timeout-exception? _exn11748_) + (macro-mailbox-receive-timeout-exception-arguments _exn11748_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12648 + (let ((__tmp12597 (let () (declare (not safe)) - (cons _exn11799_ '())))) + (cons _exn11748_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp12648))))))) + __tmp12597))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn11793_) + (lambda (_exn11742_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11793_)) - (let ((_e11796_ + (class-instance? RuntimeException::t _exn11742_)) + (let ((_e11745_ (let () (declare (not safe)) - (slot-ref _exn11793_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e11796_) - (macro-mailbox-receive-timeout-exception-procedure _e11796_) + (slot-ref _exn11742_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e11745_) + (macro-mailbox-receive-timeout-exception-procedure _e11745_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12651 + (let ((__tmp12600 (let () (declare (not safe)) - (cons _e11796_ '())))) + (cons _e11745_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp12651))))) - (if (macro-mailbox-receive-timeout-exception? _exn11793_) - (macro-mailbox-receive-timeout-exception-procedure _exn11793_) + __tmp12600))))) + (if (macro-mailbox-receive-timeout-exception? _exn11742_) + (macro-mailbox-receive-timeout-exception-procedure _exn11742_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12650 + (let ((__tmp12599 (let () (declare (not safe)) - (cons _exn11793_ '())))) + (cons _exn11742_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp12650))))))) + __tmp12599))))))) (define module-not-found-exception? - (lambda (_exn11789_) + (lambda (_exn11738_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11789_)) - (let ((_e11791_ + (class-instance? RuntimeException::t _exn11738_)) + (let ((_e11740_ (let () (declare (not safe)) - (slot-ref _exn11789_ 'exception)))) - (macro-module-not-found-exception? _e11791_)) - (macro-module-not-found-exception? _exn11789_)))) + (slot-ref _exn11738_ 'exception)))) + (macro-module-not-found-exception? _e11740_)) + (macro-module-not-found-exception? _exn11738_)))) (define module-not-found-exception-arguments - (lambda (_exn11785_) + (lambda (_exn11734_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11785_)) - (let ((_e11787_ + (class-instance? RuntimeException::t _exn11734_)) + (let ((_e11736_ (let () (declare (not safe)) - (slot-ref _exn11785_ 'exception)))) - (if (macro-module-not-found-exception? _e11787_) - (macro-module-not-found-exception-arguments _e11787_) + (slot-ref _exn11734_ 'exception)))) + (if (macro-module-not-found-exception? _e11736_) + (macro-module-not-found-exception-arguments _e11736_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12653 + (let ((__tmp12602 (let () (declare (not safe)) - (cons _e11787_ '())))) + (cons _e11736_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp12653))))) - (if (macro-module-not-found-exception? _exn11785_) - (macro-module-not-found-exception-arguments _exn11785_) + __tmp12602))))) + (if (macro-module-not-found-exception? _exn11734_) + (macro-module-not-found-exception-arguments _exn11734_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12652 + (let ((__tmp12601 (let () (declare (not safe)) - (cons _exn11785_ '())))) + (cons _exn11734_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp12652))))))) + __tmp12601))))))) (define module-not-found-exception-procedure - (lambda (_exn11779_) + (lambda (_exn11728_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11779_)) - (let ((_e11782_ + (class-instance? RuntimeException::t _exn11728_)) + (let ((_e11731_ (let () (declare (not safe)) - (slot-ref _exn11779_ 'exception)))) - (if (macro-module-not-found-exception? _e11782_) - (macro-module-not-found-exception-procedure _e11782_) + (slot-ref _exn11728_ 'exception)))) + (if (macro-module-not-found-exception? _e11731_) + (macro-module-not-found-exception-procedure _e11731_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12655 + (let ((__tmp12604 (let () (declare (not safe)) - (cons _e11782_ '())))) + (cons _e11731_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp12655))))) - (if (macro-module-not-found-exception? _exn11779_) - (macro-module-not-found-exception-procedure _exn11779_) + __tmp12604))))) + (if (macro-module-not-found-exception? _exn11728_) + (macro-module-not-found-exception-procedure _exn11728_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12654 + (let ((__tmp12603 (let () (declare (not safe)) - (cons _exn11779_ '())))) + (cons _exn11728_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp12654))))))) + __tmp12603))))))) (define multiple-c-return-exception? - (lambda (_exn11773_) + (lambda (_exn11722_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11773_)) - (let ((_e11776_ + (class-instance? RuntimeException::t _exn11722_)) + (let ((_e11725_ (let () (declare (not safe)) - (slot-ref _exn11773_ 'exception)))) - (macro-multiple-c-return-exception? _e11776_)) - (macro-multiple-c-return-exception? _exn11773_)))) + (slot-ref _exn11722_ 'exception)))) + (macro-multiple-c-return-exception? _e11725_)) + (macro-multiple-c-return-exception? _exn11722_)))) (define no-such-file-or-directory-exception? - (lambda (_exn11769_) + (lambda (_exn11718_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11769_)) - (let ((_e11771_ + (class-instance? RuntimeException::t _exn11718_)) + (let ((_e11720_ (let () (declare (not safe)) - (slot-ref _exn11769_ 'exception)))) - (macro-no-such-file-or-directory-exception? _e11771_)) - (macro-no-such-file-or-directory-exception? _exn11769_)))) + (slot-ref _exn11718_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e11720_)) + (macro-no-such-file-or-directory-exception? _exn11718_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn11765_) + (lambda (_exn11714_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11765_)) - (let ((_e11767_ + (class-instance? RuntimeException::t _exn11714_)) + (let ((_e11716_ (let () (declare (not safe)) - (slot-ref _exn11765_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e11767_) + (slot-ref _exn11714_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e11716_) (macro-no-such-file-or-directory-exception-arguments - _e11767_) + _e11716_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12657 + (let ((__tmp12606 (let () (declare (not safe)) - (cons _e11767_ '())))) + (cons _e11716_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp12657))))) - (if (macro-no-such-file-or-directory-exception? _exn11765_) + __tmp12606))))) + (if (macro-no-such-file-or-directory-exception? _exn11714_) (macro-no-such-file-or-directory-exception-arguments - _exn11765_) + _exn11714_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12656 + (let ((__tmp12605 (let () (declare (not safe)) - (cons _exn11765_ '())))) + (cons _exn11714_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp12656))))))) + __tmp12605))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn11759_) + (lambda (_exn11708_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11759_)) - (let ((_e11762_ + (class-instance? RuntimeException::t _exn11708_)) + (let ((_e11711_ (let () (declare (not safe)) - (slot-ref _exn11759_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e11762_) + (slot-ref _exn11708_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e11711_) (macro-no-such-file-or-directory-exception-procedure - _e11762_) + _e11711_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12659 + (let ((__tmp12608 (let () (declare (not safe)) - (cons _e11762_ '())))) + (cons _e11711_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp12659))))) - (if (macro-no-such-file-or-directory-exception? _exn11759_) + __tmp12608))))) + (if (macro-no-such-file-or-directory-exception? _exn11708_) (macro-no-such-file-or-directory-exception-procedure - _exn11759_) + _exn11708_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12658 + (let ((__tmp12607 (let () (declare (not safe)) - (cons _exn11759_ '())))) + (cons _exn11708_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp12658))))))) + __tmp12607))))))) (define noncontinuable-exception? - (lambda (_exn11755_) + (lambda (_exn11704_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11755_)) - (let ((_e11757_ + (class-instance? RuntimeException::t _exn11704_)) + (let ((_e11706_ (let () (declare (not safe)) - (slot-ref _exn11755_ 'exception)))) - (macro-noncontinuable-exception? _e11757_)) - (macro-noncontinuable-exception? _exn11755_)))) + (slot-ref _exn11704_ 'exception)))) + (macro-noncontinuable-exception? _e11706_)) + (macro-noncontinuable-exception? _exn11704_)))) (define noncontinuable-exception-reason - (lambda (_exn11749_) + (lambda (_exn11698_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11749_)) - (let ((_e11752_ + (class-instance? RuntimeException::t _exn11698_)) + (let ((_e11701_ (let () (declare (not safe)) - (slot-ref _exn11749_ 'exception)))) - (if (macro-noncontinuable-exception? _e11752_) - (macro-noncontinuable-exception-reason _e11752_) + (slot-ref _exn11698_ 'exception)))) + (if (macro-noncontinuable-exception? _e11701_) + (macro-noncontinuable-exception-reason _e11701_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp12661 + (let ((__tmp12610 (let () (declare (not safe)) - (cons _e11752_ '())))) + (cons _e11701_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp12661))))) - (if (macro-noncontinuable-exception? _exn11749_) - (macro-noncontinuable-exception-reason _exn11749_) + __tmp12610))))) + (if (macro-noncontinuable-exception? _exn11698_) + (macro-noncontinuable-exception-reason _exn11698_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp12660 + (let ((__tmp12609 (let () (declare (not safe)) - (cons _exn11749_ '())))) + (cons _exn11698_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp12660))))))) + __tmp12609))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn11745_) + (lambda (_exn11694_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11745_)) - (let ((_e11747_ + (class-instance? RuntimeException::t _exn11694_)) + (let ((_e11696_ (let () (declare (not safe)) - (slot-ref _exn11745_ 'exception)))) - (macro-nonempty-input-port-character-buffer-exception? _e11747_)) + (slot-ref _exn11694_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e11696_)) (macro-nonempty-input-port-character-buffer-exception? - _exn11745_)))) + _exn11694_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn11741_) + (lambda (_exn11690_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11741_)) - (let ((_e11743_ + (class-instance? RuntimeException::t _exn11690_)) + (let ((_e11692_ (let () (declare (not safe)) - (slot-ref _exn11741_ 'exception)))) + (slot-ref _exn11690_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e11743_) + _e11692_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e11743_) + _e11692_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12663 + (let ((__tmp12612 (let () (declare (not safe)) - (cons _e11743_ '())))) + (cons _e11692_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp12663))))) + __tmp12612))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn11741_) + _exn11690_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn11741_) + _exn11690_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12662 + (let ((__tmp12611 (let () (declare (not safe)) - (cons _exn11741_ '())))) + (cons _exn11690_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp12662))))))) + __tmp12611))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn11735_) + (lambda (_exn11684_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11735_)) - (let ((_e11738_ + (class-instance? RuntimeException::t _exn11684_)) + (let ((_e11687_ (let () (declare (not safe)) - (slot-ref _exn11735_ 'exception)))) + (slot-ref _exn11684_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e11738_) + _e11687_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e11738_) + _e11687_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12665 + (let ((__tmp12614 (let () (declare (not safe)) - (cons _e11738_ '())))) + (cons _e11687_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp12665))))) + __tmp12614))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn11735_) + _exn11684_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn11735_) + _exn11684_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12664 + (let ((__tmp12613 (let () (declare (not safe)) - (cons _exn11735_ '())))) + (cons _exn11684_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp12664))))))) + __tmp12613))))))) (define nonprocedure-operator-exception? - (lambda (_exn11731_) + (lambda (_exn11680_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11731_)) - (let ((_e11733_ + (class-instance? RuntimeException::t _exn11680_)) + (let ((_e11682_ (let () (declare (not safe)) - (slot-ref _exn11731_ 'exception)))) - (macro-nonprocedure-operator-exception? _e11733_)) - (macro-nonprocedure-operator-exception? _exn11731_)))) + (slot-ref _exn11680_ 'exception)))) + (macro-nonprocedure-operator-exception? _e11682_)) + (macro-nonprocedure-operator-exception? _exn11680_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn11727_) + (lambda (_exn11676_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11727_)) - (let ((_e11729_ + (class-instance? RuntimeException::t _exn11676_)) + (let ((_e11678_ (let () (declare (not safe)) - (slot-ref _exn11727_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11729_) - (macro-nonprocedure-operator-exception-arguments _e11729_) + (slot-ref _exn11676_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11678_) + (macro-nonprocedure-operator-exception-arguments _e11678_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12667 + (let ((__tmp12616 (let () (declare (not safe)) - (cons _e11729_ '())))) + (cons _e11678_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp12667))))) - (if (macro-nonprocedure-operator-exception? _exn11727_) - (macro-nonprocedure-operator-exception-arguments _exn11727_) + __tmp12616))))) + (if (macro-nonprocedure-operator-exception? _exn11676_) + (macro-nonprocedure-operator-exception-arguments _exn11676_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12666 + (let ((__tmp12615 (let () (declare (not safe)) - (cons _exn11727_ '())))) + (cons _exn11676_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp12666))))))) + __tmp12615))))))) (define nonprocedure-operator-exception-code - (lambda (_exn11723_) + (lambda (_exn11672_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11723_)) - (let ((_e11725_ + (class-instance? RuntimeException::t _exn11672_)) + (let ((_e11674_ (let () (declare (not safe)) - (slot-ref _exn11723_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11725_) - (macro-nonprocedure-operator-exception-code _e11725_) + (slot-ref _exn11672_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11674_) + (macro-nonprocedure-operator-exception-code _e11674_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12669 + (let ((__tmp12618 (let () (declare (not safe)) - (cons _e11725_ '())))) + (cons _e11674_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp12669))))) - (if (macro-nonprocedure-operator-exception? _exn11723_) - (macro-nonprocedure-operator-exception-code _exn11723_) + __tmp12618))))) + (if (macro-nonprocedure-operator-exception? _exn11672_) + (macro-nonprocedure-operator-exception-code _exn11672_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12668 + (let ((__tmp12617 (let () (declare (not safe)) - (cons _exn11723_ '())))) + (cons _exn11672_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp12668))))))) + __tmp12617))))))) (define nonprocedure-operator-exception-operator - (lambda (_exn11719_) + (lambda (_exn11668_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11719_)) - (let ((_e11721_ + (class-instance? RuntimeException::t _exn11668_)) + (let ((_e11670_ (let () (declare (not safe)) - (slot-ref _exn11719_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11721_) - (macro-nonprocedure-operator-exception-operator _e11721_) + (slot-ref _exn11668_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11670_) + (macro-nonprocedure-operator-exception-operator _e11670_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12671 + (let ((__tmp12620 (let () (declare (not safe)) - (cons _e11721_ '())))) + (cons _e11670_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp12671))))) - (if (macro-nonprocedure-operator-exception? _exn11719_) - (macro-nonprocedure-operator-exception-operator _exn11719_) + __tmp12620))))) + (if (macro-nonprocedure-operator-exception? _exn11668_) + (macro-nonprocedure-operator-exception-operator _exn11668_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12670 + (let ((__tmp12619 (let () (declare (not safe)) - (cons _exn11719_ '())))) + (cons _exn11668_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp12670))))))) + __tmp12619))))))) (define nonprocedure-operator-exception-rte - (lambda (_exn11713_) + (lambda (_exn11662_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11713_)) - (let ((_e11716_ + (class-instance? RuntimeException::t _exn11662_)) + (let ((_e11665_ (let () (declare (not safe)) - (slot-ref _exn11713_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11716_) - (macro-nonprocedure-operator-exception-rte _e11716_) + (slot-ref _exn11662_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11665_) + (macro-nonprocedure-operator-exception-rte _e11665_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12673 + (let ((__tmp12622 (let () (declare (not safe)) - (cons _e11716_ '())))) + (cons _e11665_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp12673))))) - (if (macro-nonprocedure-operator-exception? _exn11713_) - (macro-nonprocedure-operator-exception-rte _exn11713_) + __tmp12622))))) + (if (macro-nonprocedure-operator-exception? _exn11662_) + (macro-nonprocedure-operator-exception-rte _exn11662_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12672 + (let ((__tmp12621 (let () (declare (not safe)) - (cons _exn11713_ '())))) + (cons _exn11662_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp12672))))))) + __tmp12621))))))) (define not-in-compilation-context-exception? - (lambda (_exn11709_) + (lambda (_exn11658_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11709_)) - (let ((_e11711_ + (class-instance? RuntimeException::t _exn11658_)) + (let ((_e11660_ (let () (declare (not safe)) - (slot-ref _exn11709_ 'exception)))) - (macro-not-in-compilation-context-exception? _e11711_)) - (macro-not-in-compilation-context-exception? _exn11709_)))) + (slot-ref _exn11658_ 'exception)))) + (macro-not-in-compilation-context-exception? _e11660_)) + (macro-not-in-compilation-context-exception? _exn11658_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn11705_) + (lambda (_exn11654_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11705_)) - (let ((_e11707_ + (class-instance? RuntimeException::t _exn11654_)) + (let ((_e11656_ (let () (declare (not safe)) - (slot-ref _exn11705_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e11707_) + (slot-ref _exn11654_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e11656_) (macro-not-in-compilation-context-exception-arguments - _e11707_) + _e11656_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12675 + (let ((__tmp12624 (let () (declare (not safe)) - (cons _e11707_ '())))) + (cons _e11656_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp12675))))) - (if (macro-not-in-compilation-context-exception? _exn11705_) + __tmp12624))))) + (if (macro-not-in-compilation-context-exception? _exn11654_) (macro-not-in-compilation-context-exception-arguments - _exn11705_) + _exn11654_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12674 + (let ((__tmp12623 (let () (declare (not safe)) - (cons _exn11705_ '())))) + (cons _exn11654_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp12674))))))) + __tmp12623))))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn11699_) + (lambda (_exn11648_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11699_)) - (let ((_e11702_ + (class-instance? RuntimeException::t _exn11648_)) + (let ((_e11651_ (let () (declare (not safe)) - (slot-ref _exn11699_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e11702_) + (slot-ref _exn11648_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e11651_) (macro-not-in-compilation-context-exception-procedure - _e11702_) + _e11651_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12677 + (let ((__tmp12626 (let () (declare (not safe)) - (cons _e11702_ '())))) + (cons _e11651_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp12677))))) - (if (macro-not-in-compilation-context-exception? _exn11699_) + __tmp12626))))) + (if (macro-not-in-compilation-context-exception? _exn11648_) (macro-not-in-compilation-context-exception-procedure - _exn11699_) + _exn11648_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12676 + (let ((__tmp12625 (let () (declare (not safe)) - (cons _exn11699_ '())))) + (cons _exn11648_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp12676))))))) + __tmp12625))))))) (define number-of-arguments-limit-exception? - (lambda (_exn11695_) + (lambda (_exn11644_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11695_)) - (let ((_e11697_ + (class-instance? RuntimeException::t _exn11644_)) + (let ((_e11646_ (let () (declare (not safe)) - (slot-ref _exn11695_ 'exception)))) - (macro-number-of-arguments-limit-exception? _e11697_)) - (macro-number-of-arguments-limit-exception? _exn11695_)))) + (slot-ref _exn11644_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e11646_)) + (macro-number-of-arguments-limit-exception? _exn11644_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn11691_) + (lambda (_exn11640_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11691_)) - (let ((_e11693_ + (class-instance? RuntimeException::t _exn11640_)) + (let ((_e11642_ (let () (declare (not safe)) - (slot-ref _exn11691_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e11693_) + (slot-ref _exn11640_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e11642_) (macro-number-of-arguments-limit-exception-arguments - _e11693_) + _e11642_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12679 + (let ((__tmp12628 (let () (declare (not safe)) - (cons _e11693_ '())))) + (cons _e11642_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp12679))))) - (if (macro-number-of-arguments-limit-exception? _exn11691_) + __tmp12628))))) + (if (macro-number-of-arguments-limit-exception? _exn11640_) (macro-number-of-arguments-limit-exception-arguments - _exn11691_) + _exn11640_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12678 + (let ((__tmp12627 (let () (declare (not safe)) - (cons _exn11691_ '())))) + (cons _exn11640_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp12678))))))) + __tmp12627))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn11685_) + (lambda (_exn11634_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11685_)) - (let ((_e11688_ + (class-instance? RuntimeException::t _exn11634_)) + (let ((_e11637_ (let () (declare (not safe)) - (slot-ref _exn11685_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e11688_) + (slot-ref _exn11634_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e11637_) (macro-number-of-arguments-limit-exception-procedure - _e11688_) + _e11637_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12681 + (let ((__tmp12630 (let () (declare (not safe)) - (cons _e11688_ '())))) + (cons _e11637_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp12681))))) - (if (macro-number-of-arguments-limit-exception? _exn11685_) + __tmp12630))))) + (if (macro-number-of-arguments-limit-exception? _exn11634_) (macro-number-of-arguments-limit-exception-procedure - _exn11685_) + _exn11634_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12680 + (let ((__tmp12629 (let () (declare (not safe)) - (cons _exn11685_ '())))) + (cons _exn11634_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp12680))))))) + __tmp12629))))))) (define os-exception? - (lambda (_exn11681_) + (lambda (_exn11630_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11681_)) - (let ((_e11683_ + (class-instance? RuntimeException::t _exn11630_)) + (let ((_e11632_ (let () (declare (not safe)) - (slot-ref _exn11681_ 'exception)))) - (macro-os-exception? _e11683_)) - (macro-os-exception? _exn11681_)))) + (slot-ref _exn11630_ 'exception)))) + (macro-os-exception? _e11632_)) + (macro-os-exception? _exn11630_)))) (define os-exception-arguments - (lambda (_exn11677_) + (lambda (_exn11626_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11677_)) - (let ((_e11679_ + (class-instance? RuntimeException::t _exn11626_)) + (let ((_e11628_ (let () (declare (not safe)) - (slot-ref _exn11677_ 'exception)))) - (if (macro-os-exception? _e11679_) - (macro-os-exception-arguments _e11679_) + (slot-ref _exn11626_ 'exception)))) + (if (macro-os-exception? _e11628_) + (macro-os-exception-arguments _e11628_) (error '"not an instance" 'os-exception? - (let ((__tmp12683 + (let ((__tmp12632 (let () (declare (not safe)) - (cons _e11679_ '())))) + (cons _e11628_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp12683))))) - (if (macro-os-exception? _exn11677_) - (macro-os-exception-arguments _exn11677_) + (cons 'os-exception-arguments __tmp12632))))) + (if (macro-os-exception? _exn11626_) + (macro-os-exception-arguments _exn11626_) (error '"not an instance" 'os-exception? - (let ((__tmp12682 + (let ((__tmp12631 (let () (declare (not safe)) - (cons _exn11677_ '())))) + (cons _exn11626_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp12682))))))) + (cons 'os-exception-arguments __tmp12631))))))) (define os-exception-code - (lambda (_exn11673_) + (lambda (_exn11622_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11673_)) - (let ((_e11675_ + (class-instance? RuntimeException::t _exn11622_)) + (let ((_e11624_ (let () (declare (not safe)) - (slot-ref _exn11673_ 'exception)))) - (if (macro-os-exception? _e11675_) - (macro-os-exception-code _e11675_) + (slot-ref _exn11622_ 'exception)))) + (if (macro-os-exception? _e11624_) + (macro-os-exception-code _e11624_) (error '"not an instance" 'os-exception? - (let ((__tmp12685 + (let ((__tmp12634 (let () (declare (not safe)) - (cons _e11675_ '())))) + (cons _e11624_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp12685))))) - (if (macro-os-exception? _exn11673_) - (macro-os-exception-code _exn11673_) + (cons 'os-exception-code __tmp12634))))) + (if (macro-os-exception? _exn11622_) + (macro-os-exception-code _exn11622_) (error '"not an instance" 'os-exception? - (let ((__tmp12684 + (let ((__tmp12633 (let () (declare (not safe)) - (cons _exn11673_ '())))) + (cons _exn11622_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp12684))))))) + (cons 'os-exception-code __tmp12633))))))) (define os-exception-message - (lambda (_exn11669_) + (lambda (_exn11618_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11669_)) - (let ((_e11671_ + (class-instance? RuntimeException::t _exn11618_)) + (let ((_e11620_ (let () (declare (not safe)) - (slot-ref _exn11669_ 'exception)))) - (if (macro-os-exception? _e11671_) - (macro-os-exception-message _e11671_) + (slot-ref _exn11618_ 'exception)))) + (if (macro-os-exception? _e11620_) + (macro-os-exception-message _e11620_) (error '"not an instance" 'os-exception? - (let ((__tmp12687 + (let ((__tmp12636 (let () (declare (not safe)) - (cons _e11671_ '())))) + (cons _e11620_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp12687))))) - (if (macro-os-exception? _exn11669_) - (macro-os-exception-message _exn11669_) + (cons 'os-exception-message __tmp12636))))) + (if (macro-os-exception? _exn11618_) + (macro-os-exception-message _exn11618_) (error '"not an instance" 'os-exception? - (let ((__tmp12686 + (let ((__tmp12635 (let () (declare (not safe)) - (cons _exn11669_ '())))) + (cons _exn11618_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp12686))))))) + (cons 'os-exception-message __tmp12635))))))) (define os-exception-procedure - (lambda (_exn11663_) + (lambda (_exn11612_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11663_)) - (let ((_e11666_ + (class-instance? RuntimeException::t _exn11612_)) + (let ((_e11615_ (let () (declare (not safe)) - (slot-ref _exn11663_ 'exception)))) - (if (macro-os-exception? _e11666_) - (macro-os-exception-procedure _e11666_) + (slot-ref _exn11612_ 'exception)))) + (if (macro-os-exception? _e11615_) + (macro-os-exception-procedure _e11615_) (error '"not an instance" 'os-exception? - (let ((__tmp12689 + (let ((__tmp12638 (let () (declare (not safe)) - (cons _e11666_ '())))) + (cons _e11615_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp12689))))) - (if (macro-os-exception? _exn11663_) - (macro-os-exception-procedure _exn11663_) + (cons 'os-exception-procedure __tmp12638))))) + (if (macro-os-exception? _exn11612_) + (macro-os-exception-procedure _exn11612_) (error '"not an instance" 'os-exception? - (let ((__tmp12688 + (let ((__tmp12637 (let () (declare (not safe)) - (cons _exn11663_ '())))) + (cons _exn11612_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp12688))))))) + (cons 'os-exception-procedure __tmp12637))))))) (define permission-denied-exception? - (lambda (_exn11659_) + (lambda (_exn11608_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11659_)) - (let ((_e11661_ + (class-instance? RuntimeException::t _exn11608_)) + (let ((_e11610_ (let () (declare (not safe)) - (slot-ref _exn11659_ 'exception)))) - (macro-permission-denied-exception? _e11661_)) - (macro-permission-denied-exception? _exn11659_)))) + (slot-ref _exn11608_ 'exception)))) + (macro-permission-denied-exception? _e11610_)) + (macro-permission-denied-exception? _exn11608_)))) (define permission-denied-exception-arguments - (lambda (_exn11655_) + (lambda (_exn11604_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11655_)) - (let ((_e11657_ + (class-instance? RuntimeException::t _exn11604_)) + (let ((_e11606_ (let () (declare (not safe)) - (slot-ref _exn11655_ 'exception)))) - (if (macro-permission-denied-exception? _e11657_) - (macro-permission-denied-exception-arguments _e11657_) + (slot-ref _exn11604_ 'exception)))) + (if (macro-permission-denied-exception? _e11606_) + (macro-permission-denied-exception-arguments _e11606_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12691 + (let ((__tmp12640 (let () (declare (not safe)) - (cons _e11657_ '())))) + (cons _e11606_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp12691))))) - (if (macro-permission-denied-exception? _exn11655_) - (macro-permission-denied-exception-arguments _exn11655_) + __tmp12640))))) + (if (macro-permission-denied-exception? _exn11604_) + (macro-permission-denied-exception-arguments _exn11604_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12690 + (let ((__tmp12639 (let () (declare (not safe)) - (cons _exn11655_ '())))) + (cons _exn11604_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp12690))))))) + __tmp12639))))))) (define permission-denied-exception-procedure - (lambda (_exn11649_) + (lambda (_exn11598_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11649_)) - (let ((_e11652_ + (class-instance? RuntimeException::t _exn11598_)) + (let ((_e11601_ (let () (declare (not safe)) - (slot-ref _exn11649_ 'exception)))) - (if (macro-permission-denied-exception? _e11652_) - (macro-permission-denied-exception-procedure _e11652_) + (slot-ref _exn11598_ 'exception)))) + (if (macro-permission-denied-exception? _e11601_) + (macro-permission-denied-exception-procedure _e11601_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12693 + (let ((__tmp12642 (let () (declare (not safe)) - (cons _e11652_ '())))) + (cons _e11601_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp12693))))) - (if (macro-permission-denied-exception? _exn11649_) - (macro-permission-denied-exception-procedure _exn11649_) + __tmp12642))))) + (if (macro-permission-denied-exception? _exn11598_) + (macro-permission-denied-exception-procedure _exn11598_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12692 + (let ((__tmp12641 (let () (declare (not safe)) - (cons _exn11649_ '())))) + (cons _exn11598_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp12692))))))) + __tmp12641))))))) (define range-exception? - (lambda (_exn11645_) + (lambda (_exn11594_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11645_)) - (let ((_e11647_ + (class-instance? RuntimeException::t _exn11594_)) + (let ((_e11596_ (let () (declare (not safe)) - (slot-ref _exn11645_ 'exception)))) - (macro-range-exception? _e11647_)) - (macro-range-exception? _exn11645_)))) + (slot-ref _exn11594_ 'exception)))) + (macro-range-exception? _e11596_)) + (macro-range-exception? _exn11594_)))) (define range-exception-arg-id - (lambda (_exn11641_) + (lambda (_exn11590_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11641_)) - (let ((_e11643_ + (class-instance? RuntimeException::t _exn11590_)) + (let ((_e11592_ (let () (declare (not safe)) - (slot-ref _exn11641_ 'exception)))) - (if (macro-range-exception? _e11643_) - (macro-range-exception-arg-id _e11643_) + (slot-ref _exn11590_ 'exception)))) + (if (macro-range-exception? _e11592_) + (macro-range-exception-arg-id _e11592_) (error '"not an instance" 'range-exception? - (let ((__tmp12695 + (let ((__tmp12644 (let () (declare (not safe)) - (cons _e11643_ '())))) + (cons _e11592_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp12695))))) - (if (macro-range-exception? _exn11641_) - (macro-range-exception-arg-id _exn11641_) + (cons 'range-exception-arg-id __tmp12644))))) + (if (macro-range-exception? _exn11590_) + (macro-range-exception-arg-id _exn11590_) (error '"not an instance" 'range-exception? - (let ((__tmp12694 + (let ((__tmp12643 (let () (declare (not safe)) - (cons _exn11641_ '())))) + (cons _exn11590_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp12694))))))) + (cons 'range-exception-arg-id __tmp12643))))))) (define range-exception-arguments - (lambda (_exn11637_) + (lambda (_exn11586_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11637_)) - (let ((_e11639_ + (class-instance? RuntimeException::t _exn11586_)) + (let ((_e11588_ (let () (declare (not safe)) - (slot-ref _exn11637_ 'exception)))) - (if (macro-range-exception? _e11639_) - (macro-range-exception-arguments _e11639_) + (slot-ref _exn11586_ 'exception)))) + (if (macro-range-exception? _e11588_) + (macro-range-exception-arguments _e11588_) (error '"not an instance" 'range-exception? - (let ((__tmp12697 + (let ((__tmp12646 (let () (declare (not safe)) - (cons _e11639_ '())))) + (cons _e11588_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp12697))))) - (if (macro-range-exception? _exn11637_) - (macro-range-exception-arguments _exn11637_) + (cons 'range-exception-arguments __tmp12646))))) + (if (macro-range-exception? _exn11586_) + (macro-range-exception-arguments _exn11586_) (error '"not an instance" 'range-exception? - (let ((__tmp12696 + (let ((__tmp12645 (let () (declare (not safe)) - (cons _exn11637_ '())))) + (cons _exn11586_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp12696))))))) + (cons 'range-exception-arguments __tmp12645))))))) (define range-exception-procedure - (lambda (_exn11631_) + (lambda (_exn11580_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11631_)) - (let ((_e11634_ + (class-instance? RuntimeException::t _exn11580_)) + (let ((_e11583_ (let () (declare (not safe)) - (slot-ref _exn11631_ 'exception)))) - (if (macro-range-exception? _e11634_) - (macro-range-exception-procedure _e11634_) + (slot-ref _exn11580_ 'exception)))) + (if (macro-range-exception? _e11583_) + (macro-range-exception-procedure _e11583_) (error '"not an instance" 'range-exception? - (let ((__tmp12699 + (let ((__tmp12648 (let () (declare (not safe)) - (cons _e11634_ '())))) + (cons _e11583_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp12699))))) - (if (macro-range-exception? _exn11631_) - (macro-range-exception-procedure _exn11631_) + (cons 'range-exception-procedure __tmp12648))))) + (if (macro-range-exception? _exn11580_) + (macro-range-exception-procedure _exn11580_) (error '"not an instance" 'range-exception? - (let ((__tmp12698 + (let ((__tmp12647 (let () (declare (not safe)) - (cons _exn11631_ '())))) + (cons _exn11580_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp12698))))))) + (cons 'range-exception-procedure __tmp12647))))))) (define rpc-remote-error-exception? - (lambda (_exn11627_) + (lambda (_exn11576_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11627_)) - (let ((_e11629_ + (class-instance? RuntimeException::t _exn11576_)) + (let ((_e11578_ (let () (declare (not safe)) - (slot-ref _exn11627_ 'exception)))) - (macro-rpc-remote-error-exception? _e11629_)) - (macro-rpc-remote-error-exception? _exn11627_)))) + (slot-ref _exn11576_ 'exception)))) + (macro-rpc-remote-error-exception? _e11578_)) + (macro-rpc-remote-error-exception? _exn11576_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn11623_) + (lambda (_exn11572_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11623_)) - (let ((_e11625_ + (class-instance? RuntimeException::t _exn11572_)) + (let ((_e11574_ (let () (declare (not safe)) - (slot-ref _exn11623_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e11625_) - (macro-rpc-remote-error-exception-arguments _e11625_) + (slot-ref _exn11572_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11574_) + (macro-rpc-remote-error-exception-arguments _e11574_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12701 + (let ((__tmp12650 (let () (declare (not safe)) - (cons _e11625_ '())))) + (cons _e11574_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp12701))))) - (if (macro-rpc-remote-error-exception? _exn11623_) - (macro-rpc-remote-error-exception-arguments _exn11623_) + __tmp12650))))) + (if (macro-rpc-remote-error-exception? _exn11572_) + (macro-rpc-remote-error-exception-arguments _exn11572_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12700 + (let ((__tmp12649 (let () (declare (not safe)) - (cons _exn11623_ '())))) + (cons _exn11572_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp12700))))))) + __tmp12649))))))) (define rpc-remote-error-exception-message - (lambda (_exn11619_) + (lambda (_exn11568_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11619_)) - (let ((_e11621_ + (class-instance? RuntimeException::t _exn11568_)) + (let ((_e11570_ (let () (declare (not safe)) - (slot-ref _exn11619_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e11621_) - (macro-rpc-remote-error-exception-message _e11621_) + (slot-ref _exn11568_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11570_) + (macro-rpc-remote-error-exception-message _e11570_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12703 + (let ((__tmp12652 (let () (declare (not safe)) - (cons _e11621_ '())))) + (cons _e11570_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp12703))))) - (if (macro-rpc-remote-error-exception? _exn11619_) - (macro-rpc-remote-error-exception-message _exn11619_) + __tmp12652))))) + (if (macro-rpc-remote-error-exception? _exn11568_) + (macro-rpc-remote-error-exception-message _exn11568_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12702 + (let ((__tmp12651 (let () (declare (not safe)) - (cons _exn11619_ '())))) + (cons _exn11568_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp12702))))))) + __tmp12651))))))) (define rpc-remote-error-exception-procedure - (lambda (_exn11613_) + (lambda (_exn11562_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11613_)) - (let ((_e11616_ + (class-instance? RuntimeException::t _exn11562_)) + (let ((_e11565_ (let () (declare (not safe)) - (slot-ref _exn11613_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e11616_) - (macro-rpc-remote-error-exception-procedure _e11616_) + (slot-ref _exn11562_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11565_) + (macro-rpc-remote-error-exception-procedure _e11565_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12705 + (let ((__tmp12654 (let () (declare (not safe)) - (cons _e11616_ '())))) + (cons _e11565_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp12705))))) - (if (macro-rpc-remote-error-exception? _exn11613_) - (macro-rpc-remote-error-exception-procedure _exn11613_) + __tmp12654))))) + (if (macro-rpc-remote-error-exception? _exn11562_) + (macro-rpc-remote-error-exception-procedure _exn11562_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12704 + (let ((__tmp12653 (let () (declare (not safe)) - (cons _exn11613_ '())))) + (cons _exn11562_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp12704))))))) + __tmp12653))))))) (define scheduler-exception? - (lambda (_exn11609_) + (lambda (_exn11558_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11609_)) - (let ((_e11611_ + (class-instance? RuntimeException::t _exn11558_)) + (let ((_e11560_ (let () (declare (not safe)) - (slot-ref _exn11609_ 'exception)))) - (macro-scheduler-exception? _e11611_)) - (macro-scheduler-exception? _exn11609_)))) + (slot-ref _exn11558_ 'exception)))) + (macro-scheduler-exception? _e11560_)) + (macro-scheduler-exception? _exn11558_)))) (define scheduler-exception-reason - (lambda (_exn11603_) + (lambda (_exn11552_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11603_)) - (let ((_e11606_ + (class-instance? RuntimeException::t _exn11552_)) + (let ((_e11555_ (let () (declare (not safe)) - (slot-ref _exn11603_ 'exception)))) - (if (macro-scheduler-exception? _e11606_) - (macro-scheduler-exception-reason _e11606_) + (slot-ref _exn11552_ 'exception)))) + (if (macro-scheduler-exception? _e11555_) + (macro-scheduler-exception-reason _e11555_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp12707 + (let ((__tmp12656 (let () (declare (not safe)) - (cons _e11606_ '())))) + (cons _e11555_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp12707))))) - (if (macro-scheduler-exception? _exn11603_) - (macro-scheduler-exception-reason _exn11603_) + (cons 'scheduler-exception-reason __tmp12656))))) + (if (macro-scheduler-exception? _exn11552_) + (macro-scheduler-exception-reason _exn11552_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp12706 + (let ((__tmp12655 (let () (declare (not safe)) - (cons _exn11603_ '())))) + (cons _exn11552_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp12706))))))) + (cons 'scheduler-exception-reason __tmp12655))))))) (define sfun-conversion-exception? - (lambda (_exn11599_) + (lambda (_exn11548_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11599_)) - (let ((_e11601_ + (class-instance? RuntimeException::t _exn11548_)) + (let ((_e11550_ (let () (declare (not safe)) - (slot-ref _exn11599_ 'exception)))) - (macro-sfun-conversion-exception? _e11601_)) - (macro-sfun-conversion-exception? _exn11599_)))) + (slot-ref _exn11548_ 'exception)))) + (macro-sfun-conversion-exception? _e11550_)) + (macro-sfun-conversion-exception? _exn11548_)))) (define sfun-conversion-exception-arguments - (lambda (_exn11595_) + (lambda (_exn11544_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11595_)) - (let ((_e11597_ + (class-instance? RuntimeException::t _exn11544_)) + (let ((_e11546_ (let () (declare (not safe)) - (slot-ref _exn11595_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11597_) - (macro-sfun-conversion-exception-arguments _e11597_) + (slot-ref _exn11544_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11546_) + (macro-sfun-conversion-exception-arguments _e11546_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12709 + (let ((__tmp12658 (let () (declare (not safe)) - (cons _e11597_ '())))) + (cons _e11546_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp12709))))) - (if (macro-sfun-conversion-exception? _exn11595_) - (macro-sfun-conversion-exception-arguments _exn11595_) + __tmp12658))))) + (if (macro-sfun-conversion-exception? _exn11544_) + (macro-sfun-conversion-exception-arguments _exn11544_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12708 + (let ((__tmp12657 (let () (declare (not safe)) - (cons _exn11595_ '())))) + (cons _exn11544_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp12708))))))) + __tmp12657))))))) (define sfun-conversion-exception-code - (lambda (_exn11591_) + (lambda (_exn11540_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11591_)) - (let ((_e11593_ + (class-instance? RuntimeException::t _exn11540_)) + (let ((_e11542_ (let () (declare (not safe)) - (slot-ref _exn11591_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11593_) - (macro-sfun-conversion-exception-code _e11593_) + (slot-ref _exn11540_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11542_) + (macro-sfun-conversion-exception-code _e11542_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12711 + (let ((__tmp12660 (let () (declare (not safe)) - (cons _e11593_ '())))) + (cons _e11542_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp12711))))) - (if (macro-sfun-conversion-exception? _exn11591_) - (macro-sfun-conversion-exception-code _exn11591_) + __tmp12660))))) + (if (macro-sfun-conversion-exception? _exn11540_) + (macro-sfun-conversion-exception-code _exn11540_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12710 + (let ((__tmp12659 (let () (declare (not safe)) - (cons _exn11591_ '())))) + (cons _exn11540_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp12710))))))) + __tmp12659))))))) (define sfun-conversion-exception-message - (lambda (_exn11587_) + (lambda (_exn11536_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11587_)) - (let ((_e11589_ + (class-instance? RuntimeException::t _exn11536_)) + (let ((_e11538_ (let () (declare (not safe)) - (slot-ref _exn11587_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11589_) - (macro-sfun-conversion-exception-message _e11589_) + (slot-ref _exn11536_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11538_) + (macro-sfun-conversion-exception-message _e11538_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12713 + (let ((__tmp12662 (let () (declare (not safe)) - (cons _e11589_ '())))) + (cons _e11538_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp12713))))) - (if (macro-sfun-conversion-exception? _exn11587_) - (macro-sfun-conversion-exception-message _exn11587_) + __tmp12662))))) + (if (macro-sfun-conversion-exception? _exn11536_) + (macro-sfun-conversion-exception-message _exn11536_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12712 + (let ((__tmp12661 (let () (declare (not safe)) - (cons _exn11587_ '())))) + (cons _exn11536_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp12712))))))) + __tmp12661))))))) (define sfun-conversion-exception-procedure - (lambda (_exn11581_) + (lambda (_exn11530_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11581_)) - (let ((_e11584_ + (class-instance? RuntimeException::t _exn11530_)) + (let ((_e11533_ (let () (declare (not safe)) - (slot-ref _exn11581_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11584_) - (macro-sfun-conversion-exception-procedure _e11584_) + (slot-ref _exn11530_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11533_) + (macro-sfun-conversion-exception-procedure _e11533_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12715 + (let ((__tmp12664 (let () (declare (not safe)) - (cons _e11584_ '())))) + (cons _e11533_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp12715))))) - (if (macro-sfun-conversion-exception? _exn11581_) - (macro-sfun-conversion-exception-procedure _exn11581_) + __tmp12664))))) + (if (macro-sfun-conversion-exception? _exn11530_) + (macro-sfun-conversion-exception-procedure _exn11530_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12714 + (let ((__tmp12663 (let () (declare (not safe)) - (cons _exn11581_ '())))) + (cons _exn11530_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp12714))))))) + __tmp12663))))))) (define stack-overflow-exception? - (lambda (_exn11575_) + (lambda (_exn11524_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11575_)) - (let ((_e11578_ + (class-instance? RuntimeException::t _exn11524_)) + (let ((_e11527_ (let () (declare (not safe)) - (slot-ref _exn11575_ 'exception)))) - (macro-stack-overflow-exception? _e11578_)) - (macro-stack-overflow-exception? _exn11575_)))) + (slot-ref _exn11524_ 'exception)))) + (macro-stack-overflow-exception? _e11527_)) + (macro-stack-overflow-exception? _exn11524_)))) (define started-thread-exception? - (lambda (_exn11571_) + (lambda (_exn11520_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11571_)) - (let ((_e11573_ + (class-instance? RuntimeException::t _exn11520_)) + (let ((_e11522_ (let () (declare (not safe)) - (slot-ref _exn11571_ 'exception)))) - (macro-started-thread-exception? _e11573_)) - (macro-started-thread-exception? _exn11571_)))) + (slot-ref _exn11520_ 'exception)))) + (macro-started-thread-exception? _e11522_)) + (macro-started-thread-exception? _exn11520_)))) (define started-thread-exception-arguments - (lambda (_exn11567_) + (lambda (_exn11516_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11567_)) - (let ((_e11569_ + (class-instance? RuntimeException::t _exn11516_)) + (let ((_e11518_ (let () (declare (not safe)) - (slot-ref _exn11567_ 'exception)))) - (if (macro-started-thread-exception? _e11569_) - (macro-started-thread-exception-arguments _e11569_) + (slot-ref _exn11516_ 'exception)))) + (if (macro-started-thread-exception? _e11518_) + (macro-started-thread-exception-arguments _e11518_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12717 + (let ((__tmp12666 (let () (declare (not safe)) - (cons _e11569_ '())))) + (cons _e11518_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp12717))))) - (if (macro-started-thread-exception? _exn11567_) - (macro-started-thread-exception-arguments _exn11567_) + __tmp12666))))) + (if (macro-started-thread-exception? _exn11516_) + (macro-started-thread-exception-arguments _exn11516_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12716 + (let ((__tmp12665 (let () (declare (not safe)) - (cons _exn11567_ '())))) + (cons _exn11516_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp12716))))))) + __tmp12665))))))) (define started-thread-exception-procedure - (lambda (_exn11561_) + (lambda (_exn11510_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11561_)) - (let ((_e11564_ + (class-instance? RuntimeException::t _exn11510_)) + (let ((_e11513_ (let () (declare (not safe)) - (slot-ref _exn11561_ 'exception)))) - (if (macro-started-thread-exception? _e11564_) - (macro-started-thread-exception-procedure _e11564_) + (slot-ref _exn11510_ 'exception)))) + (if (macro-started-thread-exception? _e11513_) + (macro-started-thread-exception-procedure _e11513_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12719 + (let ((__tmp12668 (let () (declare (not safe)) - (cons _e11564_ '())))) + (cons _e11513_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp12719))))) - (if (macro-started-thread-exception? _exn11561_) - (macro-started-thread-exception-procedure _exn11561_) + __tmp12668))))) + (if (macro-started-thread-exception? _exn11510_) + (macro-started-thread-exception-procedure _exn11510_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12718 + (let ((__tmp12667 (let () (declare (not safe)) - (cons _exn11561_ '())))) + (cons _exn11510_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp12718))))))) + __tmp12667))))))) (define terminated-thread-exception? - (lambda (_exn11557_) + (lambda (_exn11506_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11557_)) - (let ((_e11559_ + (class-instance? RuntimeException::t _exn11506_)) + (let ((_e11508_ (let () (declare (not safe)) - (slot-ref _exn11557_ 'exception)))) - (macro-terminated-thread-exception? _e11559_)) - (macro-terminated-thread-exception? _exn11557_)))) + (slot-ref _exn11506_ 'exception)))) + (macro-terminated-thread-exception? _e11508_)) + (macro-terminated-thread-exception? _exn11506_)))) (define terminated-thread-exception-arguments - (lambda (_exn11553_) + (lambda (_exn11502_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11553_)) - (let ((_e11555_ + (class-instance? RuntimeException::t _exn11502_)) + (let ((_e11504_ (let () (declare (not safe)) - (slot-ref _exn11553_ 'exception)))) - (if (macro-terminated-thread-exception? _e11555_) - (macro-terminated-thread-exception-arguments _e11555_) + (slot-ref _exn11502_ 'exception)))) + (if (macro-terminated-thread-exception? _e11504_) + (macro-terminated-thread-exception-arguments _e11504_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12721 + (let ((__tmp12670 (let () (declare (not safe)) - (cons _e11555_ '())))) + (cons _e11504_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp12721))))) - (if (macro-terminated-thread-exception? _exn11553_) - (macro-terminated-thread-exception-arguments _exn11553_) + __tmp12670))))) + (if (macro-terminated-thread-exception? _exn11502_) + (macro-terminated-thread-exception-arguments _exn11502_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12720 + (let ((__tmp12669 (let () (declare (not safe)) - (cons _exn11553_ '())))) + (cons _exn11502_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp12720))))))) + __tmp12669))))))) (define terminated-thread-exception-procedure - (lambda (_exn11547_) + (lambda (_exn11496_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11547_)) - (let ((_e11550_ + (class-instance? RuntimeException::t _exn11496_)) + (let ((_e11499_ (let () (declare (not safe)) - (slot-ref _exn11547_ 'exception)))) - (if (macro-terminated-thread-exception? _e11550_) - (macro-terminated-thread-exception-procedure _e11550_) + (slot-ref _exn11496_ 'exception)))) + (if (macro-terminated-thread-exception? _e11499_) + (macro-terminated-thread-exception-procedure _e11499_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12723 + (let ((__tmp12672 (let () (declare (not safe)) - (cons _e11550_ '())))) + (cons _e11499_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp12723))))) - (if (macro-terminated-thread-exception? _exn11547_) - (macro-terminated-thread-exception-procedure _exn11547_) + __tmp12672))))) + (if (macro-terminated-thread-exception? _exn11496_) + (macro-terminated-thread-exception-procedure _exn11496_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12722 + (let ((__tmp12671 (let () (declare (not safe)) - (cons _exn11547_ '())))) + (cons _exn11496_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp12722))))))) + __tmp12671))))))) (define type-exception? - (lambda (_exn11543_) + (lambda (_exn11492_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11543_)) - (let ((_e11545_ + (class-instance? RuntimeException::t _exn11492_)) + (let ((_e11494_ (let () (declare (not safe)) - (slot-ref _exn11543_ 'exception)))) - (macro-type-exception? _e11545_)) - (macro-type-exception? _exn11543_)))) + (slot-ref _exn11492_ 'exception)))) + (macro-type-exception? _e11494_)) + (macro-type-exception? _exn11492_)))) (define type-exception-arg-id - (lambda (_exn11539_) + (lambda (_exn11488_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11539_)) - (let ((_e11541_ + (class-instance? RuntimeException::t _exn11488_)) + (let ((_e11490_ (let () (declare (not safe)) - (slot-ref _exn11539_ 'exception)))) - (if (macro-type-exception? _e11541_) - (macro-type-exception-arg-id _e11541_) + (slot-ref _exn11488_ 'exception)))) + (if (macro-type-exception? _e11490_) + (macro-type-exception-arg-id _e11490_) (error '"not an instance" 'type-exception? - (let ((__tmp12725 + (let ((__tmp12674 (let () (declare (not safe)) - (cons _e11541_ '())))) + (cons _e11490_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp12725))))) - (if (macro-type-exception? _exn11539_) - (macro-type-exception-arg-id _exn11539_) + (cons 'type-exception-arg-id __tmp12674))))) + (if (macro-type-exception? _exn11488_) + (macro-type-exception-arg-id _exn11488_) (error '"not an instance" 'type-exception? - (let ((__tmp12724 + (let ((__tmp12673 (let () (declare (not safe)) - (cons _exn11539_ '())))) + (cons _exn11488_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp12724))))))) + (cons 'type-exception-arg-id __tmp12673))))))) (define type-exception-arguments - (lambda (_exn11535_) + (lambda (_exn11484_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11535_)) - (let ((_e11537_ + (class-instance? RuntimeException::t _exn11484_)) + (let ((_e11486_ (let () (declare (not safe)) - (slot-ref _exn11535_ 'exception)))) - (if (macro-type-exception? _e11537_) - (macro-type-exception-arguments _e11537_) + (slot-ref _exn11484_ 'exception)))) + (if (macro-type-exception? _e11486_) + (macro-type-exception-arguments _e11486_) (error '"not an instance" 'type-exception? - (let ((__tmp12727 + (let ((__tmp12676 (let () (declare (not safe)) - (cons _e11537_ '())))) + (cons _e11486_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp12727))))) - (if (macro-type-exception? _exn11535_) - (macro-type-exception-arguments _exn11535_) + (cons 'type-exception-arguments __tmp12676))))) + (if (macro-type-exception? _exn11484_) + (macro-type-exception-arguments _exn11484_) (error '"not an instance" 'type-exception? - (let ((__tmp12726 + (let ((__tmp12675 (let () (declare (not safe)) - (cons _exn11535_ '())))) + (cons _exn11484_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp12726))))))) + (cons 'type-exception-arguments __tmp12675))))))) (define type-exception-procedure - (lambda (_exn11531_) + (lambda (_exn11480_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11531_)) - (let ((_e11533_ + (class-instance? RuntimeException::t _exn11480_)) + (let ((_e11482_ (let () (declare (not safe)) - (slot-ref _exn11531_ 'exception)))) - (if (macro-type-exception? _e11533_) - (macro-type-exception-procedure _e11533_) + (slot-ref _exn11480_ 'exception)))) + (if (macro-type-exception? _e11482_) + (macro-type-exception-procedure _e11482_) (error '"not an instance" 'type-exception? - (let ((__tmp12729 + (let ((__tmp12678 (let () (declare (not safe)) - (cons _e11533_ '())))) + (cons _e11482_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp12729))))) - (if (macro-type-exception? _exn11531_) - (macro-type-exception-procedure _exn11531_) + (cons 'type-exception-procedure __tmp12678))))) + (if (macro-type-exception? _exn11480_) + (macro-type-exception-procedure _exn11480_) (error '"not an instance" 'type-exception? - (let ((__tmp12728 + (let ((__tmp12677 (let () (declare (not safe)) - (cons _exn11531_ '())))) + (cons _exn11480_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp12728))))))) + (cons 'type-exception-procedure __tmp12677))))))) (define type-exception-type-id - (lambda (_exn11525_) + (lambda (_exn11474_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11525_)) - (let ((_e11528_ + (class-instance? RuntimeException::t _exn11474_)) + (let ((_e11477_ (let () (declare (not safe)) - (slot-ref _exn11525_ 'exception)))) - (if (macro-type-exception? _e11528_) - (macro-type-exception-type-id _e11528_) + (slot-ref _exn11474_ 'exception)))) + (if (macro-type-exception? _e11477_) + (macro-type-exception-type-id _e11477_) (error '"not an instance" 'type-exception? - (let ((__tmp12731 + (let ((__tmp12680 (let () (declare (not safe)) - (cons _e11528_ '())))) + (cons _e11477_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp12731))))) - (if (macro-type-exception? _exn11525_) - (macro-type-exception-type-id _exn11525_) + (cons 'type-exception-type-id __tmp12680))))) + (if (macro-type-exception? _exn11474_) + (macro-type-exception-type-id _exn11474_) (error '"not an instance" 'type-exception? - (let ((__tmp12730 + (let ((__tmp12679 (let () (declare (not safe)) - (cons _exn11525_ '())))) + (cons _exn11474_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp12730))))))) + (cons 'type-exception-type-id __tmp12679))))))) (define unbound-global-exception? - (lambda (_exn11521_) + (lambda (_exn11470_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11521_)) - (let ((_e11523_ + (class-instance? RuntimeException::t _exn11470_)) + (let ((_e11472_ (let () (declare (not safe)) - (slot-ref _exn11521_ 'exception)))) - (macro-unbound-global-exception? _e11523_)) - (macro-unbound-global-exception? _exn11521_)))) + (slot-ref _exn11470_ 'exception)))) + (macro-unbound-global-exception? _e11472_)) + (macro-unbound-global-exception? _exn11470_)))) (define unbound-global-exception-code - (lambda (_exn11517_) + (lambda (_exn11466_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11517_)) - (let ((_e11519_ + (class-instance? RuntimeException::t _exn11466_)) + (let ((_e11468_ (let () (declare (not safe)) - (slot-ref _exn11517_ 'exception)))) - (if (macro-unbound-global-exception? _e11519_) - (macro-unbound-global-exception-code _e11519_) + (slot-ref _exn11466_ 'exception)))) + (if (macro-unbound-global-exception? _e11468_) + (macro-unbound-global-exception-code _e11468_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12733 + (let ((__tmp12682 (let () (declare (not safe)) - (cons _e11519_ '())))) + (cons _e11468_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp12733))))) - (if (macro-unbound-global-exception? _exn11517_) - (macro-unbound-global-exception-code _exn11517_) + (cons 'unbound-global-exception-code __tmp12682))))) + (if (macro-unbound-global-exception? _exn11466_) + (macro-unbound-global-exception-code _exn11466_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12732 + (let ((__tmp12681 (let () (declare (not safe)) - (cons _exn11517_ '())))) + (cons _exn11466_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp12732))))))) + (cons 'unbound-global-exception-code __tmp12681))))))) (define unbound-global-exception-rte - (lambda (_exn11513_) + (lambda (_exn11462_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11513_)) - (let ((_e11515_ + (class-instance? RuntimeException::t _exn11462_)) + (let ((_e11464_ (let () (declare (not safe)) - (slot-ref _exn11513_ 'exception)))) - (if (macro-unbound-global-exception? _e11515_) - (macro-unbound-global-exception-rte _e11515_) + (slot-ref _exn11462_ 'exception)))) + (if (macro-unbound-global-exception? _e11464_) + (macro-unbound-global-exception-rte _e11464_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12735 + (let ((__tmp12684 (let () (declare (not safe)) - (cons _e11515_ '())))) + (cons _e11464_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp12735))))) - (if (macro-unbound-global-exception? _exn11513_) - (macro-unbound-global-exception-rte _exn11513_) + (cons 'unbound-global-exception-rte __tmp12684))))) + (if (macro-unbound-global-exception? _exn11462_) + (macro-unbound-global-exception-rte _exn11462_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12734 + (let ((__tmp12683 (let () (declare (not safe)) - (cons _exn11513_ '())))) + (cons _exn11462_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp12734))))))) + (cons 'unbound-global-exception-rte __tmp12683))))))) (define unbound-global-exception-variable - (lambda (_exn11507_) + (lambda (_exn11456_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11507_)) - (let ((_e11510_ + (class-instance? RuntimeException::t _exn11456_)) + (let ((_e11459_ (let () (declare (not safe)) - (slot-ref _exn11507_ 'exception)))) - (if (macro-unbound-global-exception? _e11510_) - (macro-unbound-global-exception-variable _e11510_) + (slot-ref _exn11456_ 'exception)))) + (if (macro-unbound-global-exception? _e11459_) + (macro-unbound-global-exception-variable _e11459_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12737 + (let ((__tmp12686 (let () (declare (not safe)) - (cons _e11510_ '())))) + (cons _e11459_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp12737))))) - (if (macro-unbound-global-exception? _exn11507_) - (macro-unbound-global-exception-variable _exn11507_) + __tmp12686))))) + (if (macro-unbound-global-exception? _exn11456_) + (macro-unbound-global-exception-variable _exn11456_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12736 + (let ((__tmp12685 (let () (declare (not safe)) - (cons _exn11507_ '())))) + (cons _exn11456_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp12736))))))) + __tmp12685))))))) (define unbound-key-exception? - (lambda (_exn11503_) + (lambda (_exn11452_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11503_)) - (let ((_e11505_ + (class-instance? RuntimeException::t _exn11452_)) + (let ((_e11454_ (let () (declare (not safe)) - (slot-ref _exn11503_ 'exception)))) - (macro-unbound-key-exception? _e11505_)) - (macro-unbound-key-exception? _exn11503_)))) + (slot-ref _exn11452_ 'exception)))) + (macro-unbound-key-exception? _e11454_)) + (macro-unbound-key-exception? _exn11452_)))) (define unbound-key-exception-arguments - (lambda (_exn11499_) + (lambda (_exn11448_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11499_)) - (let ((_e11501_ + (class-instance? RuntimeException::t _exn11448_)) + (let ((_e11450_ (let () (declare (not safe)) - (slot-ref _exn11499_ 'exception)))) - (if (macro-unbound-key-exception? _e11501_) - (macro-unbound-key-exception-arguments _e11501_) + (slot-ref _exn11448_ 'exception)))) + (if (macro-unbound-key-exception? _e11450_) + (macro-unbound-key-exception-arguments _e11450_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12739 + (let ((__tmp12688 (let () (declare (not safe)) - (cons _e11501_ '())))) + (cons _e11450_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp12739))))) - (if (macro-unbound-key-exception? _exn11499_) - (macro-unbound-key-exception-arguments _exn11499_) + __tmp12688))))) + (if (macro-unbound-key-exception? _exn11448_) + (macro-unbound-key-exception-arguments _exn11448_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12738 + (let ((__tmp12687 (let () (declare (not safe)) - (cons _exn11499_ '())))) + (cons _exn11448_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp12738))))))) + __tmp12687))))))) (define unbound-key-exception-procedure - (lambda (_exn11493_) + (lambda (_exn11442_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11493_)) - (let ((_e11496_ + (class-instance? RuntimeException::t _exn11442_)) + (let ((_e11445_ (let () (declare (not safe)) - (slot-ref _exn11493_ 'exception)))) - (if (macro-unbound-key-exception? _e11496_) - (macro-unbound-key-exception-procedure _e11496_) + (slot-ref _exn11442_ 'exception)))) + (if (macro-unbound-key-exception? _e11445_) + (macro-unbound-key-exception-procedure _e11445_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12741 + (let ((__tmp12690 (let () (declare (not safe)) - (cons _e11496_ '())))) + (cons _e11445_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp12741))))) - (if (macro-unbound-key-exception? _exn11493_) - (macro-unbound-key-exception-procedure _exn11493_) + __tmp12690))))) + (if (macro-unbound-key-exception? _exn11442_) + (macro-unbound-key-exception-procedure _exn11442_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12740 + (let ((__tmp12689 (let () (declare (not safe)) - (cons _exn11493_ '())))) + (cons _exn11442_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp12740))))))) + __tmp12689))))))) (define unbound-os-environment-variable-exception? - (lambda (_exn11489_) + (lambda (_exn11438_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11489_)) - (let ((_e11491_ + (class-instance? RuntimeException::t _exn11438_)) + (let ((_e11440_ (let () (declare (not safe)) - (slot-ref _exn11489_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _e11491_)) - (macro-unbound-os-environment-variable-exception? _exn11489_)))) + (slot-ref _exn11438_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e11440_)) + (macro-unbound-os-environment-variable-exception? _exn11438_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn11485_) + (lambda (_exn11434_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11485_)) - (let ((_e11487_ + (class-instance? RuntimeException::t _exn11434_)) + (let ((_e11436_ (let () (declare (not safe)) - (slot-ref _exn11485_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e11487_) + (slot-ref _exn11434_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e11436_) (macro-unbound-os-environment-variable-exception-arguments - _e11487_) + _e11436_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12743 + (let ((__tmp12692 (let () (declare (not safe)) - (cons _e11487_ '())))) + (cons _e11436_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp12743))))) - (if (macro-unbound-os-environment-variable-exception? _exn11485_) + __tmp12692))))) + (if (macro-unbound-os-environment-variable-exception? _exn11434_) (macro-unbound-os-environment-variable-exception-arguments - _exn11485_) + _exn11434_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12742 + (let ((__tmp12691 (let () (declare (not safe)) - (cons _exn11485_ '())))) + (cons _exn11434_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp12742))))))) + __tmp12691))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn11479_) + (lambda (_exn11428_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11479_)) - (let ((_e11482_ + (class-instance? RuntimeException::t _exn11428_)) + (let ((_e11431_ (let () (declare (not safe)) - (slot-ref _exn11479_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e11482_) + (slot-ref _exn11428_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e11431_) (macro-unbound-os-environment-variable-exception-procedure - _e11482_) + _e11431_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12745 + (let ((__tmp12694 (let () (declare (not safe)) - (cons _e11482_ '())))) + (cons _e11431_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp12745))))) - (if (macro-unbound-os-environment-variable-exception? _exn11479_) + __tmp12694))))) + (if (macro-unbound-os-environment-variable-exception? _exn11428_) (macro-unbound-os-environment-variable-exception-procedure - _exn11479_) + _exn11428_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12744 + (let ((__tmp12693 (let () (declare (not safe)) - (cons _exn11479_ '())))) + (cons _exn11428_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp12744))))))) + __tmp12693))))))) (define unbound-serial-number-exception? - (lambda (_exn11475_) + (lambda (_exn11424_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11475_)) - (let ((_e11477_ + (class-instance? RuntimeException::t _exn11424_)) + (let ((_e11426_ (let () (declare (not safe)) - (slot-ref _exn11475_ 'exception)))) - (macro-unbound-serial-number-exception? _e11477_)) - (macro-unbound-serial-number-exception? _exn11475_)))) + (slot-ref _exn11424_ 'exception)))) + (macro-unbound-serial-number-exception? _e11426_)) + (macro-unbound-serial-number-exception? _exn11424_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn11471_) + (lambda (_exn11420_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11471_)) - (let ((_e11473_ + (class-instance? RuntimeException::t _exn11420_)) + (let ((_e11422_ (let () (declare (not safe)) - (slot-ref _exn11471_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e11473_) - (macro-unbound-serial-number-exception-arguments _e11473_) + (slot-ref _exn11420_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e11422_) + (macro-unbound-serial-number-exception-arguments _e11422_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12747 + (let ((__tmp12696 (let () (declare (not safe)) - (cons _e11473_ '())))) + (cons _e11422_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp12747))))) - (if (macro-unbound-serial-number-exception? _exn11471_) - (macro-unbound-serial-number-exception-arguments _exn11471_) + __tmp12696))))) + (if (macro-unbound-serial-number-exception? _exn11420_) + (macro-unbound-serial-number-exception-arguments _exn11420_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12746 + (let ((__tmp12695 (let () (declare (not safe)) - (cons _exn11471_ '())))) + (cons _exn11420_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp12746))))))) + __tmp12695))))))) (define unbound-serial-number-exception-procedure - (lambda (_exn11465_) + (lambda (_exn11414_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11465_)) - (let ((_e11468_ + (class-instance? RuntimeException::t _exn11414_)) + (let ((_e11417_ (let () (declare (not safe)) - (slot-ref _exn11465_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e11468_) - (macro-unbound-serial-number-exception-procedure _e11468_) + (slot-ref _exn11414_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e11417_) + (macro-unbound-serial-number-exception-procedure _e11417_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12749 + (let ((__tmp12698 (let () (declare (not safe)) - (cons _e11468_ '())))) + (cons _e11417_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp12749))))) - (if (macro-unbound-serial-number-exception? _exn11465_) - (macro-unbound-serial-number-exception-procedure _exn11465_) + __tmp12698))))) + (if (macro-unbound-serial-number-exception? _exn11414_) + (macro-unbound-serial-number-exception-procedure _exn11414_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12748 + (let ((__tmp12697 (let () (declare (not safe)) - (cons _exn11465_ '())))) + (cons _exn11414_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp12748))))))) + __tmp12697))))))) (define uncaught-exception? - (lambda (_exn11461_) + (lambda (_exn11410_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11461_)) - (let ((_e11463_ + (class-instance? RuntimeException::t _exn11410_)) + (let ((_e11412_ (let () (declare (not safe)) - (slot-ref _exn11461_ 'exception)))) - (macro-uncaught-exception? _e11463_)) - (macro-uncaught-exception? _exn11461_)))) + (slot-ref _exn11410_ 'exception)))) + (macro-uncaught-exception? _e11412_)) + (macro-uncaught-exception? _exn11410_)))) (define uncaught-exception-arguments - (lambda (_exn11457_) + (lambda (_exn11406_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11457_)) - (let ((_e11459_ + (class-instance? RuntimeException::t _exn11406_)) + (let ((_e11408_ (let () (declare (not safe)) - (slot-ref _exn11457_ 'exception)))) - (if (macro-uncaught-exception? _e11459_) - (macro-uncaught-exception-arguments _e11459_) + (slot-ref _exn11406_ 'exception)))) + (if (macro-uncaught-exception? _e11408_) + (macro-uncaught-exception-arguments _e11408_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12751 + (let ((__tmp12700 (let () (declare (not safe)) - (cons _e11459_ '())))) + (cons _e11408_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp12751))))) - (if (macro-uncaught-exception? _exn11457_) - (macro-uncaught-exception-arguments _exn11457_) + (cons 'uncaught-exception-arguments __tmp12700))))) + (if (macro-uncaught-exception? _exn11406_) + (macro-uncaught-exception-arguments _exn11406_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12750 + (let ((__tmp12699 (let () (declare (not safe)) - (cons _exn11457_ '())))) + (cons _exn11406_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp12750))))))) + (cons 'uncaught-exception-arguments __tmp12699))))))) (define uncaught-exception-procedure - (lambda (_exn11453_) + (lambda (_exn11402_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11453_)) - (let ((_e11455_ + (class-instance? RuntimeException::t _exn11402_)) + (let ((_e11404_ (let () (declare (not safe)) - (slot-ref _exn11453_ 'exception)))) - (if (macro-uncaught-exception? _e11455_) - (macro-uncaught-exception-procedure _e11455_) + (slot-ref _exn11402_ 'exception)))) + (if (macro-uncaught-exception? _e11404_) + (macro-uncaught-exception-procedure _e11404_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12753 + (let ((__tmp12702 (let () (declare (not safe)) - (cons _e11455_ '())))) + (cons _e11404_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp12753))))) - (if (macro-uncaught-exception? _exn11453_) - (macro-uncaught-exception-procedure _exn11453_) + (cons 'uncaught-exception-procedure __tmp12702))))) + (if (macro-uncaught-exception? _exn11402_) + (macro-uncaught-exception-procedure _exn11402_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12752 + (let ((__tmp12701 (let () (declare (not safe)) - (cons _exn11453_ '())))) + (cons _exn11402_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp12752))))))) + (cons 'uncaught-exception-procedure __tmp12701))))))) (define uncaught-exception-reason - (lambda (_exn11447_) + (lambda (_exn11396_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11447_)) - (let ((_e11450_ + (class-instance? RuntimeException::t _exn11396_)) + (let ((_e11399_ (let () (declare (not safe)) - (slot-ref _exn11447_ 'exception)))) - (if (macro-uncaught-exception? _e11450_) - (macro-uncaught-exception-reason _e11450_) + (slot-ref _exn11396_ 'exception)))) + (if (macro-uncaught-exception? _e11399_) + (macro-uncaught-exception-reason _e11399_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12755 + (let ((__tmp12704 (let () (declare (not safe)) - (cons _e11450_ '())))) + (cons _e11399_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp12755))))) - (if (macro-uncaught-exception? _exn11447_) - (macro-uncaught-exception-reason _exn11447_) + (cons 'uncaught-exception-reason __tmp12704))))) + (if (macro-uncaught-exception? _exn11396_) + (macro-uncaught-exception-reason _exn11396_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12754 + (let ((__tmp12703 (let () (declare (not safe)) - (cons _exn11447_ '())))) + (cons _exn11396_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp12754))))))) + (cons 'uncaught-exception-reason __tmp12703))))))) (define uninitialized-thread-exception? - (lambda (_exn11443_) + (lambda (_exn11392_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11443_)) - (let ((_e11445_ + (class-instance? RuntimeException::t _exn11392_)) + (let ((_e11394_ (let () (declare (not safe)) - (slot-ref _exn11443_ 'exception)))) - (macro-uninitialized-thread-exception? _e11445_)) - (macro-uninitialized-thread-exception? _exn11443_)))) + (slot-ref _exn11392_ 'exception)))) + (macro-uninitialized-thread-exception? _e11394_)) + (macro-uninitialized-thread-exception? _exn11392_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn11439_) + (lambda (_exn11388_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11439_)) - (let ((_e11441_ + (class-instance? RuntimeException::t _exn11388_)) + (let ((_e11390_ (let () (declare (not safe)) - (slot-ref _exn11439_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e11441_) - (macro-uninitialized-thread-exception-arguments _e11441_) + (slot-ref _exn11388_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e11390_) + (macro-uninitialized-thread-exception-arguments _e11390_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12757 + (let ((__tmp12706 (let () (declare (not safe)) - (cons _e11441_ '())))) + (cons _e11390_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp12757))))) - (if (macro-uninitialized-thread-exception? _exn11439_) - (macro-uninitialized-thread-exception-arguments _exn11439_) + __tmp12706))))) + (if (macro-uninitialized-thread-exception? _exn11388_) + (macro-uninitialized-thread-exception-arguments _exn11388_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12756 + (let ((__tmp12705 (let () (declare (not safe)) - (cons _exn11439_ '())))) + (cons _exn11388_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp12756))))))) + __tmp12705))))))) (define uninitialized-thread-exception-procedure - (lambda (_exn11433_) + (lambda (_exn11382_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11433_)) - (let ((_e11436_ + (class-instance? RuntimeException::t _exn11382_)) + (let ((_e11385_ (let () (declare (not safe)) - (slot-ref _exn11433_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e11436_) - (macro-uninitialized-thread-exception-procedure _e11436_) + (slot-ref _exn11382_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e11385_) + (macro-uninitialized-thread-exception-procedure _e11385_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12759 + (let ((__tmp12708 (let () (declare (not safe)) - (cons _e11436_ '())))) + (cons _e11385_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp12759))))) - (if (macro-uninitialized-thread-exception? _exn11433_) - (macro-uninitialized-thread-exception-procedure _exn11433_) + __tmp12708))))) + (if (macro-uninitialized-thread-exception? _exn11382_) + (macro-uninitialized-thread-exception-procedure _exn11382_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12758 + (let ((__tmp12707 (let () (declare (not safe)) - (cons _exn11433_ '())))) + (cons _exn11382_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp12758))))))) + __tmp12707))))))) (define unknown-keyword-argument-exception? - (lambda (_exn11429_) + (lambda (_exn11378_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11429_)) - (let ((_e11431_ + (class-instance? RuntimeException::t _exn11378_)) + (let ((_e11380_ (let () (declare (not safe)) - (slot-ref _exn11429_ 'exception)))) - (macro-unknown-keyword-argument-exception? _e11431_)) - (macro-unknown-keyword-argument-exception? _exn11429_)))) + (slot-ref _exn11378_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e11380_)) + (macro-unknown-keyword-argument-exception? _exn11378_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn11425_) + (lambda (_exn11374_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11425_)) - (let ((_e11427_ + (class-instance? RuntimeException::t _exn11374_)) + (let ((_e11376_ (let () (declare (not safe)) - (slot-ref _exn11425_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e11427_) - (macro-unknown-keyword-argument-exception-arguments _e11427_) + (slot-ref _exn11374_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e11376_) + (macro-unknown-keyword-argument-exception-arguments _e11376_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12761 + (let ((__tmp12710 (let () (declare (not safe)) - (cons _e11427_ '())))) + (cons _e11376_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp12761))))) - (if (macro-unknown-keyword-argument-exception? _exn11425_) - (macro-unknown-keyword-argument-exception-arguments _exn11425_) + __tmp12710))))) + (if (macro-unknown-keyword-argument-exception? _exn11374_) + (macro-unknown-keyword-argument-exception-arguments _exn11374_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12760 + (let ((__tmp12709 (let () (declare (not safe)) - (cons _exn11425_ '())))) + (cons _exn11374_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp12760))))))) + __tmp12709))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn11419_) + (lambda (_exn11368_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11419_)) - (let ((_e11422_ + (class-instance? RuntimeException::t _exn11368_)) + (let ((_e11371_ (let () (declare (not safe)) - (slot-ref _exn11419_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e11422_) - (macro-unknown-keyword-argument-exception-procedure _e11422_) + (slot-ref _exn11368_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e11371_) + (macro-unknown-keyword-argument-exception-procedure _e11371_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12763 + (let ((__tmp12712 (let () (declare (not safe)) - (cons _e11422_ '())))) + (cons _e11371_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp12763))))) - (if (macro-unknown-keyword-argument-exception? _exn11419_) - (macro-unknown-keyword-argument-exception-procedure _exn11419_) + __tmp12712))))) + (if (macro-unknown-keyword-argument-exception? _exn11368_) + (macro-unknown-keyword-argument-exception-procedure _exn11368_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12762 + (let ((__tmp12711 (let () (declare (not safe)) - (cons _exn11419_ '())))) + (cons _exn11368_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp12762))))))) + __tmp12711))))))) (define unterminated-process-exception? - (lambda (_exn11415_) + (lambda (_exn11364_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11415_)) - (let ((_e11417_ + (class-instance? RuntimeException::t _exn11364_)) + (let ((_e11366_ (let () (declare (not safe)) - (slot-ref _exn11415_ 'exception)))) - (macro-unterminated-process-exception? _e11417_)) - (macro-unterminated-process-exception? _exn11415_)))) + (slot-ref _exn11364_ 'exception)))) + (macro-unterminated-process-exception? _e11366_)) + (macro-unterminated-process-exception? _exn11364_)))) (define unterminated-process-exception-arguments - (lambda (_exn11411_) + (lambda (_exn11360_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11411_)) - (let ((_e11413_ + (class-instance? RuntimeException::t _exn11360_)) + (let ((_e11362_ (let () (declare (not safe)) - (slot-ref _exn11411_ 'exception)))) - (if (macro-unterminated-process-exception? _e11413_) - (macro-unterminated-process-exception-arguments _e11413_) + (slot-ref _exn11360_ 'exception)))) + (if (macro-unterminated-process-exception? _e11362_) + (macro-unterminated-process-exception-arguments _e11362_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12765 + (let ((__tmp12714 (let () (declare (not safe)) - (cons _e11413_ '())))) + (cons _e11362_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp12765))))) - (if (macro-unterminated-process-exception? _exn11411_) - (macro-unterminated-process-exception-arguments _exn11411_) + __tmp12714))))) + (if (macro-unterminated-process-exception? _exn11360_) + (macro-unterminated-process-exception-arguments _exn11360_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12764 + (let ((__tmp12713 (let () (declare (not safe)) - (cons _exn11411_ '())))) + (cons _exn11360_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp12764))))))) + __tmp12713))))))) (define unterminated-process-exception-procedure - (lambda (_exn11405_) + (lambda (_exn11354_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11405_)) - (let ((_e11408_ + (class-instance? RuntimeException::t _exn11354_)) + (let ((_e11357_ (let () (declare (not safe)) - (slot-ref _exn11405_ 'exception)))) - (if (macro-unterminated-process-exception? _e11408_) - (macro-unterminated-process-exception-procedure _e11408_) + (slot-ref _exn11354_ 'exception)))) + (if (macro-unterminated-process-exception? _e11357_) + (macro-unterminated-process-exception-procedure _e11357_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12767 + (let ((__tmp12716 (let () (declare (not safe)) - (cons _e11408_ '())))) + (cons _e11357_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp12767))))) - (if (macro-unterminated-process-exception? _exn11405_) - (macro-unterminated-process-exception-procedure _exn11405_) + __tmp12716))))) + (if (macro-unterminated-process-exception? _exn11354_) + (macro-unterminated-process-exception-procedure _exn11354_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12766 + (let ((__tmp12715 (let () (declare (not safe)) - (cons _exn11405_ '())))) + (cons _exn11354_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp12766))))))) + __tmp12715))))))) (define wrong-number-of-arguments-exception? - (lambda (_exn11401_) + (lambda (_exn11350_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11401_)) - (let ((_e11403_ + (class-instance? RuntimeException::t _exn11350_)) + (let ((_e11352_ (let () (declare (not safe)) - (slot-ref _exn11401_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _e11403_)) - (macro-wrong-number-of-arguments-exception? _exn11401_)))) + (slot-ref _exn11350_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e11352_)) + (macro-wrong-number-of-arguments-exception? _exn11350_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn11397_) + (lambda (_exn11346_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11397_)) - (let ((_e11399_ + (class-instance? RuntimeException::t _exn11346_)) + (let ((_e11348_ (let () (declare (not safe)) - (slot-ref _exn11397_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e11399_) + (slot-ref _exn11346_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e11348_) (macro-wrong-number-of-arguments-exception-arguments - _e11399_) + _e11348_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12769 + (let ((__tmp12718 (let () (declare (not safe)) - (cons _e11399_ '())))) + (cons _e11348_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp12769))))) - (if (macro-wrong-number-of-arguments-exception? _exn11397_) + __tmp12718))))) + (if (macro-wrong-number-of-arguments-exception? _exn11346_) (macro-wrong-number-of-arguments-exception-arguments - _exn11397_) + _exn11346_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12768 + (let ((__tmp12717 (let () (declare (not safe)) - (cons _exn11397_ '())))) + (cons _exn11346_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp12768))))))) + __tmp12717))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn11391_) + (lambda (_exn11340_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11391_)) - (let ((_e11394_ + (class-instance? RuntimeException::t _exn11340_)) + (let ((_e11343_ (let () (declare (not safe)) - (slot-ref _exn11391_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e11394_) + (slot-ref _exn11340_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e11343_) (macro-wrong-number-of-arguments-exception-procedure - _e11394_) + _e11343_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12771 + (let ((__tmp12720 (let () (declare (not safe)) - (cons _e11394_ '())))) + (cons _e11343_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp12771))))) - (if (macro-wrong-number-of-arguments-exception? _exn11391_) + __tmp12720))))) + (if (macro-wrong-number-of-arguments-exception? _exn11340_) (macro-wrong-number-of-arguments-exception-procedure - _exn11391_) + _exn11340_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12770 + (let ((__tmp12719 (let () (declare (not safe)) - (cons _exn11391_ '())))) + (cons _exn11340_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp12770))))))) + __tmp12719))))))) (define wrong-number-of-values-exception? - (lambda (_exn11387_) + (lambda (_exn11336_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11387_)) - (let ((_e11389_ + (class-instance? RuntimeException::t _exn11336_)) + (let ((_e11338_ (let () (declare (not safe)) - (slot-ref _exn11387_ 'exception)))) - (macro-wrong-number-of-values-exception? _e11389_)) - (macro-wrong-number-of-values-exception? _exn11387_)))) + (slot-ref _exn11336_ 'exception)))) + (macro-wrong-number-of-values-exception? _e11338_)) + (macro-wrong-number-of-values-exception? _exn11336_)))) (define wrong-number-of-values-exception-code - (lambda (_exn11383_) + (lambda (_exn11332_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11383_)) - (let ((_e11385_ + (class-instance? RuntimeException::t _exn11332_)) + (let ((_e11334_ (let () (declare (not safe)) - (slot-ref _exn11383_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e11385_) - (macro-wrong-number-of-values-exception-code _e11385_) + (slot-ref _exn11332_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11334_) + (macro-wrong-number-of-values-exception-code _e11334_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12773 + (let ((__tmp12722 (let () (declare (not safe)) - (cons _e11385_ '())))) + (cons _e11334_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp12773))))) - (if (macro-wrong-number-of-values-exception? _exn11383_) - (macro-wrong-number-of-values-exception-code _exn11383_) + __tmp12722))))) + (if (macro-wrong-number-of-values-exception? _exn11332_) + (macro-wrong-number-of-values-exception-code _exn11332_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12772 + (let ((__tmp12721 (let () (declare (not safe)) - (cons _exn11383_ '())))) + (cons _exn11332_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp12772))))))) + __tmp12721))))))) (define wrong-number-of-values-exception-rte - (lambda (_exn11379_) + (lambda (_exn11328_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11379_)) - (let ((_e11381_ + (class-instance? RuntimeException::t _exn11328_)) + (let ((_e11330_ (let () (declare (not safe)) - (slot-ref _exn11379_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e11381_) - (macro-wrong-number-of-values-exception-rte _e11381_) + (slot-ref _exn11328_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11330_) + (macro-wrong-number-of-values-exception-rte _e11330_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12775 + (let ((__tmp12724 (let () (declare (not safe)) - (cons _e11381_ '())))) + (cons _e11330_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp12775))))) - (if (macro-wrong-number-of-values-exception? _exn11379_) - (macro-wrong-number-of-values-exception-rte _exn11379_) + __tmp12724))))) + (if (macro-wrong-number-of-values-exception? _exn11328_) + (macro-wrong-number-of-values-exception-rte _exn11328_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12774 + (let ((__tmp12723 (let () (declare (not safe)) - (cons _exn11379_ '())))) + (cons _exn11328_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp12774))))))) + __tmp12723))))))) (define wrong-number-of-values-exception-vals - (lambda (_exn11373_) + (lambda (_exn11322_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11373_)) - (let ((_e11376_ + (class-instance? RuntimeException::t _exn11322_)) + (let ((_e11325_ (let () (declare (not safe)) - (slot-ref _exn11373_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e11376_) - (macro-wrong-number-of-values-exception-vals _e11376_) + (slot-ref _exn11322_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11325_) + (macro-wrong-number-of-values-exception-vals _e11325_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12777 + (let ((__tmp12726 (let () (declare (not safe)) - (cons _e11376_ '())))) + (cons _e11325_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp12777))))) - (if (macro-wrong-number-of-values-exception? _exn11373_) - (macro-wrong-number-of-values-exception-vals _exn11373_) + __tmp12726))))) + (if (macro-wrong-number-of-values-exception? _exn11322_) + (macro-wrong-number-of-values-exception-vals _exn11322_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12776 + (let ((__tmp12725 (let () (declare (not safe)) - (cons _exn11373_ '())))) + (cons _exn11322_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp12776))))))) + __tmp12725))))))) (define wrong-processor-c-return-exception? - (lambda (_exn11367_) + (lambda (_exn11316_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11367_)) - (let ((_e11370_ + (class-instance? RuntimeException::t _exn11316_)) + (let ((_e11319_ (let () (declare (not safe)) - (slot-ref _exn11367_ 'exception)))) - (macro-wrong-processor-c-return-exception? _e11370_)) - (macro-wrong-processor-c-return-exception? _exn11367_)))))) + (slot-ref _exn11316_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e11319_)) + (macro-wrong-processor-c-return-exception? _exn11316_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__1.scm b/src/bootstrap/gerbil/runtime/error__1.scm index 1124f04d4c..0e62e1446a 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]#_g12778_| + (define |[1]#_g12727_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g12785_| + (define |[1]#_g12734_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g12787_| + (define |[1]#_g12736_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g12789_| + (define |[1]#_g12738_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g12797_| + (define |[1]#_g12746_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12800_| + (define |[1]#_g12749_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g12802_| + (define |[1]#_g12751_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g12804_| + (define |[1]#_g12753_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g12806_| + (define |[1]#_g12755_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g12816_| + (define |[1]#_g12765_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12818_| + (define |[1]#_g12767_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12820_| + (define |[1]#_g12769_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12825_| + (define |[1]#_g12774_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g12827_| + (define |[1]#_g12776_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g12829_| + (define |[1]#_g12778_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g12831_| + (define |[1]#_g12780_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g12833_| + (define |[1]#_g12782_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g12839_| + (define |[1]#_g12788_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g12840_| + (define |[1]#_g12789_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g12841_| + (define |[1]#_g12790_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g12849_| + (define |[1]#_g12798_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12852_| + (define |[1]#_g12801_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g12854_| + (define |[1]#_g12803_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g12856_| + (define |[1]#_g12805_| (##structure gx#syntax-quote::t 'make-RuntimeException @@ -172,29 +172,29 @@ (define |[:0:]#Exception| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g12778_| + |[1]#_g12727_| 'expander-identifiers: - (let ((__tmp12779 - (let ((__tmp12788 |[1]#_g12778_|) - (__tmp12780 - (let ((__tmp12786 |[1]#_g12787_|) - (__tmp12781 - (let ((__tmp12784 |[1]#_g12785_|) - (__tmp12782 - (let ((__tmp12783 + (let ((__tmp12728 + (let ((__tmp12737 |[1]#_g12727_|) + (__tmp12729 + (let ((__tmp12735 |[1]#_g12736_|) + (__tmp12730 + (let ((__tmp12733 |[1]#_g12734_|) + (__tmp12731 + (let ((__tmp12732 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp12783)))) + (cons '() __tmp12732)))) (declare (not safe)) - (cons __tmp12784 __tmp12782)))) + (cons __tmp12733 __tmp12731)))) (declare (not safe)) - (cons __tmp12786 __tmp12781)))) + (cons __tmp12735 __tmp12730)))) (declare (not safe)) - (cons __tmp12788 __tmp12780)))) + (cons __tmp12737 __tmp12729)))) (declare (not safe)) - (cons '() __tmp12779)) + (cons '() __tmp12728)) '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]#_g12789_| + |[1]#_g12738_| 'expander-identifiers: - (let ((__tmp12790 - (let ((__tmp12805 |[1]#_g12789_|) - (__tmp12791 - (let ((__tmp12803 |[1]#_g12804_|) - (__tmp12792 - (let ((__tmp12801 |[1]#_g12802_|) - (__tmp12793 - (let ((__tmp12798 - (let ((__tmp12799 |[1]#_g12800_|)) + (let ((__tmp12739 + (let ((__tmp12754 |[1]#_g12738_|) + (__tmp12740 + (let ((__tmp12752 |[1]#_g12753_|) + (__tmp12741 + (let ((__tmp12750 |[1]#_g12751_|) + (__tmp12742 + (let ((__tmp12747 + (let ((__tmp12748 |[1]#_g12749_|)) (declare (not safe)) - (cons __tmp12799 '()))) - (__tmp12794 - (let ((__tmp12795 - (let ((__tmp12796 - |[1]#_g12797_|)) + (cons __tmp12748 '()))) + (__tmp12743 + (let ((__tmp12744 + (let ((__tmp12745 + |[1]#_g12746_|)) (declare (not safe)) - (cons __tmp12796 '())))) + (cons __tmp12745 '())))) (declare (not safe)) - (cons __tmp12795 '())))) + (cons __tmp12744 '())))) (declare (not safe)) - (cons __tmp12798 __tmp12794)))) + (cons __tmp12747 __tmp12743)))) (declare (not safe)) - (cons __tmp12801 __tmp12793)))) + (cons __tmp12750 __tmp12742)))) (declare (not safe)) - (cons __tmp12803 __tmp12792)))) + (cons __tmp12752 __tmp12741)))) (declare (not safe)) - (cons __tmp12805 __tmp12791)))) + (cons __tmp12754 __tmp12740)))) (declare (not safe)) - (cons '() __tmp12790)) + (cons '() __tmp12739)) '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]#_g12806_| + |[1]#_g12755_| 'expander-identifiers: - (let ((__tmp12835 - (let ((__tmp12838 |[1]#_g12789_|) - (__tmp12836 - (let ((__tmp12837 |[1]#_g12778_|)) + (let ((__tmp12784 + (let ((__tmp12787 |[1]#_g12738_|) + (__tmp12785 + (let ((__tmp12786 |[1]#_g12727_|)) (declare (not safe)) - (cons __tmp12837 '())))) + (cons __tmp12786 '())))) (declare (not safe)) - (cons __tmp12838 __tmp12836))) - (__tmp12807 - (let ((__tmp12834 |[1]#_g12806_|) - (__tmp12808 - (let ((__tmp12832 |[1]#_g12833_|) - (__tmp12809 - (let ((__tmp12830 |[1]#_g12831_|) - (__tmp12810 - (let ((__tmp12821 - (let ((__tmp12828 |[1]#_g12829_|) - (__tmp12822 - (let ((__tmp12826 - |[1]#_g12827_|) - (__tmp12823 - (let ((__tmp12824 - |[1]#_g12825_|)) + (cons __tmp12787 __tmp12785))) + (__tmp12756 + (let ((__tmp12783 |[1]#_g12755_|) + (__tmp12757 + (let ((__tmp12781 |[1]#_g12782_|) + (__tmp12758 + (let ((__tmp12779 |[1]#_g12780_|) + (__tmp12759 + (let ((__tmp12770 + (let ((__tmp12777 |[1]#_g12778_|) + (__tmp12771 + (let ((__tmp12775 + |[1]#_g12776_|) + (__tmp12772 + (let ((__tmp12773 + |[1]#_g12774_|)) (declare (not safe)) - (cons __tmp12824 + (cons __tmp12773 '())))) (declare (not safe)) - (cons __tmp12826 - __tmp12823)))) + (cons __tmp12775 + __tmp12772)))) (declare (not safe)) - (cons __tmp12828 __tmp12822))) - (__tmp12811 - (let ((__tmp12812 - (let ((__tmp12819 - |[1]#_g12820_|) - (__tmp12813 - (let ((__tmp12817 - |[1]#_g12818_|) - (__tmp12814 - (let ((__tmp12815 + (cons __tmp12777 __tmp12771))) + (__tmp12760 + (let ((__tmp12761 + (let ((__tmp12768 + |[1]#_g12769_|) + (__tmp12762 + (let ((__tmp12766 + |[1]#_g12767_|) + (__tmp12763 + (let ((__tmp12764 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g12816_|)) + |[1]#_g12765_|)) (declare (not safe)) - (cons __tmp12815 '())))) + (cons __tmp12764 '())))) (declare (not safe)) - (cons __tmp12817 __tmp12814)))) + (cons __tmp12766 __tmp12763)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12819 - __tmp12813)))) + (cons __tmp12768 + __tmp12762)))) (declare (not safe)) - (cons __tmp12812 '())))) + (cons __tmp12761 '())))) (declare (not safe)) - (cons __tmp12821 __tmp12811)))) + (cons __tmp12770 __tmp12760)))) (declare (not safe)) - (cons __tmp12830 __tmp12810)))) + (cons __tmp12779 __tmp12759)))) (declare (not safe)) - (cons __tmp12832 __tmp12809)))) + (cons __tmp12781 __tmp12758)))) (declare (not safe)) - (cons __tmp12834 __tmp12808)))) + (cons __tmp12783 __tmp12757)))) (declare (not safe)) - (cons __tmp12835 __tmp12807)) + (cons __tmp12784 __tmp12756)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g12839_| |[1]#_g12840_|) + (list |[1]#_g12788_| |[1]#_g12789_|) 'Error ':init! '((transparent: . #t)) @@ -323,895 +323,904 @@ (define |[:0:]#RuntimeException| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g12841_| + |[1]#_g12790_| 'expander-identifiers: - (let ((__tmp12858 - (let ((__tmp12861 |[1]#_g12789_|) - (__tmp12859 - (let ((__tmp12860 |[1]#_g12778_|)) + (let ((__tmp12807 + (let ((__tmp12810 |[1]#_g12738_|) + (__tmp12808 + (let ((__tmp12809 |[1]#_g12727_|)) (declare (not safe)) - (cons __tmp12860 '())))) + (cons __tmp12809 '())))) (declare (not safe)) - (cons __tmp12861 __tmp12859))) - (__tmp12842 - (let ((__tmp12857 |[1]#_g12841_|) - (__tmp12843 - (let ((__tmp12855 |[1]#_g12856_|) - (__tmp12844 - (let ((__tmp12853 |[1]#_g12854_|) - (__tmp12845 - (let ((__tmp12850 - (let ((__tmp12851 |[1]#_g12852_|)) + (cons __tmp12810 __tmp12808))) + (__tmp12791 + (let ((__tmp12806 |[1]#_g12790_|) + (__tmp12792 + (let ((__tmp12804 |[1]#_g12805_|) + (__tmp12793 + (let ((__tmp12802 |[1]#_g12803_|) + (__tmp12794 + (let ((__tmp12799 + (let ((__tmp12800 |[1]#_g12801_|)) (declare (not safe)) - (cons __tmp12851 '()))) - (__tmp12846 - (let ((__tmp12847 - (let ((__tmp12848 - |[1]#_g12849_|)) + (cons __tmp12800 '()))) + (__tmp12795 + (let ((__tmp12796 + (let ((__tmp12797 + |[1]#_g12798_|)) (declare (not safe)) - (cons __tmp12848 '())))) + (cons __tmp12797 '())))) (declare (not safe)) - (cons __tmp12847 '())))) + (cons __tmp12796 '())))) (declare (not safe)) - (cons __tmp12850 __tmp12846)))) + (cons __tmp12799 __tmp12795)))) (declare (not safe)) - (cons __tmp12853 __tmp12845)))) + (cons __tmp12802 __tmp12794)))) (declare (not safe)) - (cons __tmp12855 __tmp12844)))) + (cons __tmp12804 __tmp12793)))) (declare (not safe)) - (cons __tmp12857 __tmp12843)))) + (cons __tmp12806 __tmp12792)))) (declare (not safe)) - (cons __tmp12858 __tmp12842)) + (cons __tmp12807 __tmp12791)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g12839_| |[1]#_g12840_|) + (list |[1]#_g12788_| |[1]#_g12789_|) 'RuntimeException '#f '((transparent: . #t)) '(exception)))) (define |[:0:]#check-procedure| - (lambda (_$stx10914_) - (let* ((_g1091810936_ - (lambda (_g1091910932_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1091910932_))) - (_g1091710992_ - (lambda (_g1091910940_) - (if (gx#stx-pair? _g1091910940_) - (let ((_e1092410943_ (gx#syntax-e _g1091910940_))) - (let ((_hd1092310947_ + (lambda (_$stx10863_) + (let* ((_g1086710885_ + (lambda (_g1086810881_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1086810881_))) + (_g1086610941_ + (lambda (_g1086810889_) + (if (gx#stx-pair? _g1086810889_) + (let ((_e1087310892_ (gx#syntax-e _g1086810889_))) + (let ((_hd1087210896_ (let () (declare (not safe)) - (##car _e1092410943_))) - (_tl1092210950_ + (##car _e1087310892_))) + (_tl1087110899_ (let () (declare (not safe)) - (##cdr _e1092410943_)))) - (if (gx#stx-pair? _tl1092210950_) - (let ((_e1092710953_ - (gx#syntax-e _tl1092210950_))) - (let ((_hd1092610957_ + (##cdr _e1087310892_)))) + (if (gx#stx-pair? _tl1087110899_) + (let ((_e1087610902_ + (gx#syntax-e _tl1087110899_))) + (let ((_hd1087510906_ (let () (declare (not safe)) - (##car _e1092710953_))) - (_tl1092510960_ + (##car _e1087610902_))) + (_tl1087410909_ (let () (declare (not safe)) - (##cdr _e1092710953_)))) - (if (gx#stx-pair? _tl1092510960_) - (let ((_e1093010963_ - (gx#syntax-e _tl1092510960_))) - (let ((_hd1092910967_ + (##cdr _e1087610902_)))) + (if (gx#stx-pair? _tl1087410909_) + (let ((_e1087910912_ + (gx#syntax-e _tl1087410909_))) + (let ((_hd1087810916_ (let () (declare (not safe)) - (##car _e1093010963_))) - (_tl1092810970_ + (##car _e1087910912_))) + (_tl1087710919_ (let () (declare (not safe)) - (##cdr _e1093010963_)))) - (if (gx#stx-null? _tl1092810970_) - ((lambda (_L10973_ _L10975_) - (let ((__tmp12883 + (##cdr _e1087910912_)))) + (if (gx#stx-null? _tl1087710919_) + ((lambda (_L10922_ _L10924_) + (let ((__tmp12832 (gx#datum->syntax '#f 'unless)) - (__tmp12862 - (let ((__tmp12880 - (let ((__tmp12882 + (__tmp12811 + (let ((__tmp12829 + (let ((__tmp12831 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp12881 + (__tmp12830 (let () (declare (not safe)) - (cons _L10975_ '())))) + (cons _L10924_ '())))) (declare (not safe)) - (cons __tmp12882 __tmp12881))) - (__tmp12863 - (let ((__tmp12864 - (let ((__tmp12879 (gx#datum->syntax '#f 'raise)) - (__tmp12865 - (let ((__tmp12866 - (let ((__tmp12878 + (cons __tmp12831 __tmp12830))) + (__tmp12812 + (let ((__tmp12813 + (let ((__tmp12828 (gx#datum->syntax '#f 'raise)) + (__tmp12814 + (let ((__tmp12815 + (let ((__tmp12827 (gx#datum->syntax '#f 'Error)) - (__tmp12867 - (let ((__tmp12868 - (let ((__tmp12869 + (__tmp12816 + (let ((__tmp12817 + (let ((__tmp12818 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12875 - (let ((__tmp12877 + (let ((__tmp12824 + (let ((__tmp12826 (gx#datum->syntax '#f 'quote)) - (__tmp12876 + (__tmp12825 (let () (declare (not safe)) - (cons _L10973_ '())))) + (cons _L10922_ '())))) (declare (not safe)) - (cons __tmp12877 __tmp12876))) - (__tmp12870 - (let ((__tmp12871 - (let ((__tmp12872 - (let ((__tmp12874 + (cons __tmp12826 __tmp12825))) + (__tmp12819 + (let ((__tmp12820 + (let ((__tmp12821 + (let ((__tmp12823 (gx#datum->syntax '#f '@list)) - (__tmp12873 + (__tmp12822 (let () (declare (not safe)) - (cons _L10975_ '())))) + (cons _L10924_ '())))) (declare (not safe)) - (cons __tmp12874 __tmp12873)))) + (cons __tmp12823 __tmp12822)))) (declare (not safe)) - (cons __tmp12872 '())))) + (cons __tmp12821 '())))) (declare (not safe)) - (cons 'irritants: __tmp12871)))) + (cons 'irritants: __tmp12820)))) (declare (not safe)) - (cons __tmp12875 __tmp12870)))) + (cons __tmp12824 __tmp12819)))) (declare (not safe)) - (cons 'where: __tmp12869)))) + (cons 'where: __tmp12818)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"expected procedure" - __tmp12868)))) + __tmp12817)))) (declare (not safe)) - (cons __tmp12878 __tmp12867)))) + (cons __tmp12827 __tmp12816)))) (declare (not safe)) - (cons __tmp12866 '())))) + (cons __tmp12815 '())))) (declare (not safe)) - (cons __tmp12879 __tmp12865)))) + (cons __tmp12828 __tmp12814)))) (declare (not safe)) - (cons __tmp12864 '())))) + (cons __tmp12813 '())))) (declare (not safe)) - (cons __tmp12880 __tmp12863)))) + (cons __tmp12829 __tmp12812)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12883 - __tmp12862))) - _hd1092910967_ - _hd1092610957_) - (_g1091810936_ _g1091910940_)))) - (_g1091810936_ _g1091910940_)))) - (_g1091810936_ _g1091910940_)))) - (_g1091810936_ _g1091910940_))))) - (_g1091710992_ _$stx10914_)))) + (cons __tmp12832 + __tmp12811))) + _hd1087810916_ + _hd1087510906_) + (_g1086710885_ _g1086810889_)))) + (_g1086710885_ _g1086810889_)))) + (_g1086710885_ _g1086810889_)))) + (_g1086710885_ _g1086810889_))))) + (_g1086610941_ _$stx10863_)))) (define |[:0:]#defruntime-exception| - (lambda (_stx10996_) - (let* ((_g1099911026_ - (lambda (_g1100011022_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1100011022_))) - (_g1099811261_ - (lambda (_g1100011030_) - (if (gx#stx-pair? _g1100011030_) - (let ((_e1100511033_ (gx#syntax-e _g1100011030_))) - (let ((_hd1100411037_ + (lambda (_stx10945_) + (let* ((_g1094810975_ + (lambda (_g1094910971_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1094910971_))) + (_g1094711210_ + (lambda (_g1094910979_) + (if (gx#stx-pair? _g1094910979_) + (let ((_e1095410982_ (gx#syntax-e _g1094910979_))) + (let ((_hd1095310986_ (let () (declare (not safe)) - (##car _e1100511033_))) - (_tl1100311040_ + (##car _e1095410982_))) + (_tl1095210989_ (let () (declare (not safe)) - (##cdr _e1100511033_)))) - (if (gx#stx-pair? _tl1100311040_) - (let ((_e1100811043_ - (gx#syntax-e _tl1100311040_))) - (let ((_hd1100711047_ + (##cdr _e1095410982_)))) + (if (gx#stx-pair? _tl1095210989_) + (let ((_e1095710992_ + (gx#syntax-e _tl1095210989_))) + (let ((_hd1095610996_ (let () (declare (not safe)) - (##car _e1100811043_))) - (_tl1100611050_ + (##car _e1095710992_))) + (_tl1095510999_ (let () (declare (not safe)) - (##cdr _e1100811043_)))) - (if (gx#stx-pair? _hd1100711047_) - (let ((_e1101111053_ - (gx#syntax-e _hd1100711047_))) - (let ((_hd1101011057_ + (##cdr _e1095710992_)))) + (if (gx#stx-pair? _hd1095610996_) + (let ((_e1096011002_ + (gx#syntax-e _hd1095610996_))) + (let ((_hd1095911006_ (let () (declare (not safe)) - (##car _e1101111053_))) - (_tl1100911060_ + (##car _e1096011002_))) + (_tl1095811009_ (let () (declare (not safe)) - (##cdr _e1101111053_)))) + (##cdr _e1096011002_)))) (if (gx#stx-pair/null? - _tl1100911060_) - (let ((_g12884_ + _tl1095811009_) + (let ((_g12833_ (gx#syntax-split-splice - _tl1100911060_ + _tl1095811009_ '0))) (begin - (let ((_g12885_ + (let ((_g12834_ (let () (declare (not safe)) (if (##values? - _g12884_) + _g12833_) (##vector-length - _g12884_) + _g12833_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g12885_ 2))) - (error "Context expects 2 values" _g12885_))) + (##fx= _g12834_ 2))) + (error "Context expects 2 values" _g12834_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1101211063_ + (let ((_target1096111012_ (let () (declare (not safe)) (##vector-ref - _g12884_ + _g12833_ 0))) - (_tl1101411066_ + (_tl1096311015_ (let () (declare (not safe)) (##vector-ref - _g12884_ + _g12833_ 1)))) (if (gx#stx-null? - _tl1101411066_) - (letrec ((_loop1101511069_ + _tl1096311015_) + (letrec ((_loop1096411018_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1101311073_ _getf1101911076_) - (if (gx#stx-pair? _hd1101311073_) - (let ((_e1101611079_ - (gx#syntax-e _hd1101311073_))) - (let ((_lp-hd1101711083_ + (lambda (_hd1096211022_ _getf1096811025_) + (if (gx#stx-pair? _hd1096211022_) + (let ((_e1096511028_ + (gx#syntax-e _hd1096211022_))) + (let ((_lp-hd1096611032_ (let () (declare (not safe)) - (##car _e1101611079_))) - (_lp-tl1101811086_ + (##car _e1096511028_))) + (_lp-tl1096711035_ (let () (declare (not safe)) - (##cdr _e1101611079_)))) - (_loop1101511069_ - _lp-tl1101811086_ + (##cdr _e1096511028_)))) + (_loop1096411018_ + _lp-tl1096711035_ (let () (declare (not safe)) - (cons _lp-hd1101711083_ - _getf1101911076_))))) - (let ((_getf1102011089_ - (reverse _getf1101911076_))) - (if (gx#stx-null? _tl1100611050_) - ((lambda (_L11093_ _L11095_) - (let* ((_g1111511139_ - (lambda (_g1111611135_) + (cons _lp-hd1096611032_ + _getf1096811025_))))) + (let ((_getf1096911038_ + (reverse _getf1096811025_))) + (if (gx#stx-null? _tl1095510999_) + ((lambda (_L11042_ _L11044_) + (let* ((_g1106411088_ + (lambda (_g1106511084_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1111611135_))) - (_g1111411246_ - (lambda (_g1111611143_) + '"Bad syntax; invalid match target" + _g1106511084_))) + (_g1106311195_ + (lambda (_g1106511092_) (if (gx#stx-pair? - _g1111611143_) - (let ((_e1112111146_ + _g1106511092_) + (let ((_e1107011095_ (gx#syntax-e - _g1111611143_))) - (let ((_hd1112011150_ + _g1106511092_))) + (let ((_hd1106911099_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e1112111146_))) - (_tl1111911153_ - (let () (declare (not safe)) (##cdr _e1112111146_)))) - (if (gx#stx-pair? _tl1111911153_) - (let ((_e1112411156_ (gx#syntax-e _tl1111911153_))) - (let ((_hd1112311160_ + (##car _e1107011095_))) + (_tl1106811102_ + (let () (declare (not safe)) (##cdr _e1107011095_)))) + (if (gx#stx-pair? _tl1106811102_) + (let ((_e1107311105_ (gx#syntax-e _tl1106811102_))) + (let ((_hd1107211109_ (let () (declare (not safe)) - (##car _e1112411156_))) - (_tl1112211163_ + (##car _e1107311105_))) + (_tl1107111112_ (let () (declare (not safe)) - (##cdr _e1112411156_)))) - (if (gx#stx-pair/null? _hd1112311160_) - (let ((_g12886_ + (##cdr _e1107311105_)))) + (if (gx#stx-pair/null? _hd1107211109_) + (let ((_g12835_ (gx#syntax-split-splice - _hd1112311160_ + _hd1107211109_ '0))) (begin - (let ((_g12887_ + (let ((_g12836_ (let () (declare (not safe)) - (if (##values? _g12886_) - (##vector-length _g12886_) + (if (##values? _g12835_) + (##vector-length _g12835_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g12887_ 2))) + (##fx= _g12836_ 2))) (error "Context expects 2 values" - _g12887_))) - (let ((_target1112511166_ + _g12836_))) + (let ((_target1107411115_ (let () (declare (not safe)) - (##vector-ref _g12886_ 0))) - (_tl1112711169_ + (##vector-ref _g12835_ 0))) + (_tl1107611118_ (let () (declare (not safe)) - (##vector-ref _g12886_ 1)))) - (if (gx#stx-null? _tl1112711169_) - (letrec ((_loop1112811172_ - (lambda (_hd1112611176_ - _macro-getf1113211179_) + (##vector-ref _g12835_ 1)))) + (if (gx#stx-null? _tl1107611118_) + (letrec ((_loop1107711121_ + (lambda (_hd1107511125_ + _macro-getf1108111128_) (if (gx#stx-pair? - _hd1112611176_) - (let ((_e1112911182_ + _hd1107511125_) + (let ((_e1107811131_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1112611176_))) - (let ((_lp-hd1113011186_ - (let () (declare (not safe)) (##car _e1112911182_))) - (_lp-tl1113111189_ - (let () (declare (not safe)) (##cdr _e1112911182_)))) - (_loop1112811172_ - _lp-tl1113111189_ + _hd1107511125_))) + (let ((_lp-hd1107911135_ + (let () (declare (not safe)) (##car _e1107811131_))) + (_lp-tl1108011138_ + (let () (declare (not safe)) (##cdr _e1107811131_)))) + (_loop1107711121_ + _lp-tl1108011138_ (let () (declare (not safe)) - (cons _lp-hd1113011186_ _macro-getf1113211179_))))) - (let ((_macro-getf1113311192_ - (reverse _macro-getf1113211179_))) - (if (gx#stx-null? _tl1112211163_) - ((lambda (_L11196_ _L11198_) + (cons _lp-hd1107911135_ _macro-getf1108111128_))))) + (let ((_macro-getf1108211141_ + (reverse _macro-getf1108111128_))) + (if (gx#stx-null? _tl1107111112_) + ((lambda (_L11145_ _L11147_) (let () - (let ((__tmp13011 (gx#datum->syntax '#f 'begin)) - (__tmp12888 - (let ((__tmp13006 - (let ((__tmp13010 + (let ((__tmp12960 (gx#datum->syntax '#f 'begin)) + (__tmp12837 + (let ((__tmp12955 + (let ((__tmp12959 (gx#datum->syntax '#f 'extern)) - (__tmp13007 - (let ((__tmp13008 - (let ((__tmp13009 - (lambda (_g1122311226_ + (__tmp12956 + (let ((__tmp12957 + (let ((__tmp12958 + (lambda (_g1117211175_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1122411229_) + _g1117311178_) (let () (declare (not safe)) - (cons _g1122311226_ _g1122411229_))))) + (cons _g1117211175_ _g1117311178_))))) (declare (not safe)) - (foldr1 __tmp13009 '() _L11196_)))) + (foldr1 __tmp12958 '() _L11145_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L11198_ - __tmp13008)))) + (cons _L11147_ + __tmp12957)))) (declare (not safe)) - (cons __tmp13010 __tmp13007))) - (__tmp12889 - (let ((__tmp12973 - (let ((__tmp13005 + (cons __tmp12959 __tmp12956))) + (__tmp12838 + (let ((__tmp12922 + (let ((__tmp12954 (gx#datum->syntax '#f 'def)) - (__tmp12974 - (let ((__tmp13002 - (let ((__tmp13003 + (__tmp12923 + (let ((__tmp12951 + (let ((__tmp12952 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp13004 (gx#datum->syntax '#f 'exn))) + (let ((__tmp12953 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp13004 '())))) + (cons __tmp12953 '())))) (declare (not safe)) - (cons _L11095_ __tmp13003))) - (__tmp12975 - (let ((__tmp12976 - (let ((__tmp13001 (gx#datum->syntax '#f 'if)) - (__tmp12977 - (let ((__tmp12997 - (let ((__tmp13000 + (cons _L11044_ __tmp12952))) + (__tmp12924 + (let ((__tmp12925 + (let ((__tmp12950 (gx#datum->syntax '#f 'if)) + (__tmp12926 + (let ((__tmp12946 + (let ((__tmp12949 (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp12998 - (let ((__tmp12999 + (__tmp12947 + (let ((__tmp12948 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12999 '())))) + (cons __tmp12948 '())))) (declare (not safe)) - (cons __tmp13000 __tmp12998))) - (__tmp12978 - (let ((__tmp12983 - (let ((__tmp12996 + (cons __tmp12949 __tmp12947))) + (__tmp12927 + (let ((__tmp12932 + (let ((__tmp12945 (gx#datum->syntax '#f 'let)) - (__tmp12984 - (let ((__tmp12989 + (__tmp12933 + (let ((__tmp12938 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12995 (gx#datum->syntax '#f 'e)) - (__tmp12990 - (let ((__tmp12991 - (let ((__tmp12994 + (let ((__tmp12944 (gx#datum->syntax '#f 'e)) + (__tmp12939 + (let ((__tmp12940 + (let ((__tmp12943 (gx#datum->syntax '#f '&RuntimeException-exception)) - (__tmp12992 - (let ((__tmp12993 + (__tmp12941 + (let ((__tmp12942 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12993 '())))) + (cons __tmp12942 '())))) (declare (not safe)) - (cons __tmp12994 __tmp12992)))) + (cons __tmp12943 __tmp12941)))) (declare (not safe)) - (cons __tmp12991 '())))) + (cons __tmp12940 '())))) (declare (not safe)) - (cons __tmp12995 __tmp12990))) - (__tmp12985 - (let ((__tmp12986 - (let ((__tmp12987 - (let ((__tmp12988 + (cons __tmp12944 __tmp12939))) + (__tmp12934 + (let ((__tmp12935 + (let ((__tmp12936 + (let ((__tmp12937 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12988 '())))) + (cons __tmp12937 '())))) (declare (not safe)) - (cons _L11198_ __tmp12987)))) + (cons _L11147_ __tmp12936)))) (declare (not safe)) - (cons __tmp12986 '())))) + (cons __tmp12935 '())))) (declare (not safe)) - (cons __tmp12989 __tmp12985)))) + (cons __tmp12938 __tmp12934)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12996 - __tmp12984))) - (__tmp12979 - (let ((__tmp12980 - (let ((__tmp12981 + (cons __tmp12945 + __tmp12933))) + (__tmp12928 + (let ((__tmp12929 + (let ((__tmp12930 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12982 (gx#datum->syntax '#f 'exn))) + (let ((__tmp12931 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12982 '())))) + (cons __tmp12931 '())))) (declare (not safe)) - (cons _L11198_ __tmp12981)))) + (cons _L11147_ __tmp12930)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12980 '())))) + (cons __tmp12929 '())))) (declare (not safe)) - (cons __tmp12983 __tmp12979)))) + (cons __tmp12932 __tmp12928)))) (declare (not safe)) - (cons __tmp12997 __tmp12978)))) + (cons __tmp12946 __tmp12927)))) (declare (not safe)) - (cons __tmp13001 __tmp12977)))) + (cons __tmp12950 __tmp12926)))) (declare (not safe)) - (cons __tmp12976 '())))) + (cons __tmp12925 '())))) (declare (not safe)) - (cons __tmp13002 __tmp12975)))) + (cons __tmp12951 __tmp12924)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp13005 - __tmp12974))) - (__tmp12890 + (cons __tmp12954 + __tmp12923))) + (__tmp12839 (begin (gx#syntax-check-splice-targets - _L11093_ - _L11196_ - _L11093_ - _L11196_ - _L11093_) - (let ((__tmp12891 - (lambda (_g1121711232_ + _L11042_ + _L11145_ + _L11042_ + _L11145_ + _L11042_) + (let ((__tmp12840 + (lambda (_g1116611181_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1121811235_ - _g1121911237_ - _g1122011239_ - _g1122111241_ - _g1122211243_) - (let ((__tmp12892 - (let ((__tmp12972 (gx#datum->syntax '#f 'def)) - (__tmp12893 - (let ((__tmp12969 - (let ((__tmp12970 - (let ((__tmp12971 + _g1116711184_ + _g1116811186_ + _g1116911188_ + _g1117011190_ + _g1117111192_) + (let ((__tmp12841 + (let ((__tmp12921 (gx#datum->syntax '#f 'def)) + (__tmp12842 + (let ((__tmp12918 + (let ((__tmp12919 + (let ((__tmp12920 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12971 '())))) + (cons __tmp12920 '())))) (declare (not safe)) - (cons _g1121711232_ __tmp12970))) - (__tmp12894 - (let ((__tmp12895 - (let ((__tmp12968 + (cons _g1116611181_ __tmp12919))) + (__tmp12843 + (let ((__tmp12844 + (let ((__tmp12917 (gx#datum->syntax '#f 'if)) - (__tmp12896 - (let ((__tmp12964 - (let ((__tmp12967 + (__tmp12845 + (let ((__tmp12913 + (let ((__tmp12916 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp12965 - (let ((__tmp12966 (gx#datum->syntax '#f 'exn))) + (__tmp12914 + (let ((__tmp12915 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12966 '())))) + (cons __tmp12915 '())))) (declare (not safe)) - (cons __tmp12967 __tmp12965))) - (__tmp12897 - (let ((__tmp12926 - (let ((__tmp12963 (gx#datum->syntax '#f 'let)) - (__tmp12927 - (let ((__tmp12956 - (let ((__tmp12962 + (cons __tmp12916 __tmp12914))) + (__tmp12846 + (let ((__tmp12875 + (let ((__tmp12912 (gx#datum->syntax '#f 'let)) + (__tmp12876 + (let ((__tmp12905 + (let ((__tmp12911 (gx#datum->syntax '#f 'e)) - (__tmp12957 - (let ((__tmp12958 - (let ((__tmp12961 + (__tmp12906 + (let ((__tmp12907 + (let ((__tmp12910 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&RuntimeException-exception)) - (__tmp12959 - (let ((__tmp12960 (gx#datum->syntax '#f 'exn))) + (__tmp12908 + (let ((__tmp12909 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12960 '())))) + (cons __tmp12909 '())))) (declare (not safe)) - (cons __tmp12961 __tmp12959)))) + (cons __tmp12910 __tmp12908)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12958 '())))) + (cons __tmp12907 '())))) (declare (not safe)) - (cons __tmp12962 __tmp12957))) - (__tmp12928 - (let ((__tmp12929 - (let ((__tmp12955 + (cons __tmp12911 __tmp12906))) + (__tmp12877 + (let ((__tmp12878 + (let ((__tmp12904 (gx#datum->syntax '#f 'if)) - (__tmp12930 - (let ((__tmp12952 - (let ((__tmp12953 + (__tmp12879 + (let ((__tmp12901 + (let ((__tmp12902 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12954 (gx#datum->syntax '#f 'e))) + (let ((__tmp12903 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12954 '())))) + (cons __tmp12903 '())))) (declare (not safe)) - (cons _L11198_ __tmp12953))) - (__tmp12931 - (let ((__tmp12949 - (let ((__tmp12950 - (let ((__tmp12951 + (cons _L11147_ __tmp12902))) + (__tmp12880 + (let ((__tmp12898 + (let ((__tmp12899 + (let ((__tmp12900 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12951 '())))) + (cons __tmp12900 '())))) (declare (not safe)) - (cons _g1121811235_ __tmp12950))) - (__tmp12932 - (let ((__tmp12933 - (let ((__tmp12948 + (cons _g1116711184_ __tmp12899))) + (__tmp12881 + (let ((__tmp12882 + (let ((__tmp12897 (gx#datum->syntax '#f 'error)) - (__tmp12934 - (let ((__tmp12935 - (let ((__tmp12945 - (let ((__tmp12947 + (__tmp12883 + (let ((__tmp12884 + (let ((__tmp12894 + (let ((__tmp12896 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp12946 - (let () (declare (not safe)) (cons _L11095_ '())))) + (__tmp12895 + (let () (declare (not safe)) (cons _L11044_ '())))) (declare (not safe)) - (cons __tmp12947 __tmp12946))) - (__tmp12936 - (let ((__tmp12937 - (let ((__tmp12944 (gx#datum->syntax '#f '@list)) - (__tmp12938 - (let ((__tmp12941 - (let ((__tmp12943 + (cons __tmp12896 __tmp12895))) + (__tmp12885 + (let ((__tmp12886 + (let ((__tmp12893 (gx#datum->syntax '#f '@list)) + (__tmp12887 + (let ((__tmp12890 + (let ((__tmp12892 (gx#datum->syntax '#f 'quote)) - (__tmp12942 + (__tmp12891 (let () (declare (not safe)) - (cons _g1121711232_ '())))) + (cons _g1116611181_ '())))) (declare (not safe)) - (cons __tmp12943 __tmp12942))) - (__tmp12939 - (let ((__tmp12940 + (cons __tmp12892 __tmp12891))) + (__tmp12888 + (let ((__tmp12889 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12940 '())))) + (cons __tmp12889 '())))) (declare (not safe)) - (cons __tmp12941 __tmp12939)))) + (cons __tmp12890 __tmp12888)))) (declare (not safe)) - (cons __tmp12944 __tmp12938)))) + (cons __tmp12893 __tmp12887)))) (declare (not safe)) - (cons __tmp12937 '())))) + (cons __tmp12886 '())))) (declare (not safe)) - (cons __tmp12945 __tmp12936)))) + (cons __tmp12894 __tmp12885)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"not an instance" - __tmp12935)))) + __tmp12884)))) (declare (not safe)) - (cons __tmp12948 __tmp12934)))) + (cons __tmp12897 __tmp12883)))) (declare (not safe)) - (cons __tmp12933 '())))) + (cons __tmp12882 '())))) (declare (not safe)) - (cons __tmp12949 __tmp12932)))) + (cons __tmp12898 __tmp12881)))) (declare (not safe)) - (cons __tmp12952 __tmp12931)))) + (cons __tmp12901 __tmp12880)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12955 - __tmp12930)))) + (cons __tmp12904 + __tmp12879)))) (declare (not safe)) - (cons __tmp12929 '())))) + (cons __tmp12878 '())))) (declare (not safe)) - (cons __tmp12956 __tmp12928)))) + (cons __tmp12905 __tmp12877)))) (declare (not safe)) - (cons __tmp12963 __tmp12927))) - (__tmp12898 - (let ((__tmp12899 - (let ((__tmp12925 + (cons __tmp12912 __tmp12876))) + (__tmp12847 + (let ((__tmp12848 + (let ((__tmp12874 (gx#datum->syntax '#f 'if)) - (__tmp12900 - (let ((__tmp12922 - (let ((__tmp12923 - (let ((__tmp12924 + (__tmp12849 + (let ((__tmp12871 + (let ((__tmp12872 + (let ((__tmp12873 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'exn))) (declare (not safe)) - (cons __tmp12924 '())))) + (cons __tmp12873 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L11198_ - __tmp12923))) - (__tmp12901 - (let ((__tmp12919 - (let ((__tmp12920 - (let ((__tmp12921 + (cons _L11147_ + __tmp12872))) + (__tmp12850 + (let ((__tmp12868 + (let ((__tmp12869 + (let ((__tmp12870 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12921 '())))) + (cons __tmp12870 '())))) (declare (not safe)) - (cons _g1121811235_ __tmp12920))) - (__tmp12902 - (let ((__tmp12903 - (let ((__tmp12918 (gx#datum->syntax '#f 'error)) - (__tmp12904 - (let ((__tmp12905 - (let ((__tmp12915 - (let ((__tmp12917 + (cons _g1116711184_ __tmp12869))) + (__tmp12851 + (let ((__tmp12852 + (let ((__tmp12867 (gx#datum->syntax '#f 'error)) + (__tmp12853 + (let ((__tmp12854 + (let ((__tmp12864 + (let ((__tmp12866 (gx#datum->syntax '#f 'quote)) - (__tmp12916 + (__tmp12865 (let () (declare (not safe)) - (cons _L11095_ '())))) + (cons _L11044_ '())))) (declare (not safe)) - (cons __tmp12917 __tmp12916))) - (__tmp12906 - (let ((__tmp12907 - (let ((__tmp12914 + (cons __tmp12866 __tmp12865))) + (__tmp12855 + (let ((__tmp12856 + (let ((__tmp12863 (gx#datum->syntax '#f '@list)) - (__tmp12908 - (let ((__tmp12911 + (__tmp12857 + (let ((__tmp12860 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12913 (gx#datum->syntax '#f 'quote)) - (__tmp12912 + (let ((__tmp12862 (gx#datum->syntax '#f 'quote)) + (__tmp12861 (let () (declare (not safe)) - (cons _g1121711232_ '())))) + (cons _g1116611181_ '())))) (declare (not safe)) - (cons __tmp12913 __tmp12912))) - (__tmp12909 - (let ((__tmp12910 (gx#datum->syntax '#f 'exn))) + (cons __tmp12862 __tmp12861))) + (__tmp12858 + (let ((__tmp12859 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12910 '())))) + (cons __tmp12859 '())))) (declare (not safe)) - (cons __tmp12911 __tmp12909)))) + (cons __tmp12860 __tmp12858)))) (declare (not safe)) - (cons __tmp12914 __tmp12908)))) + (cons __tmp12863 __tmp12857)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12907 '())))) + (cons __tmp12856 '())))) (declare (not safe)) - (cons __tmp12915 __tmp12906)))) + (cons __tmp12864 __tmp12855)))) (declare (not safe)) - (cons '"not an instance" __tmp12905)))) + (cons '"not an instance" __tmp12854)))) (declare (not safe)) - (cons __tmp12918 __tmp12904)))) + (cons __tmp12867 __tmp12853)))) (declare (not safe)) - (cons __tmp12903 '())))) + (cons __tmp12852 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12919 - __tmp12902)))) + (cons __tmp12868 + __tmp12851)))) (declare (not safe)) - (cons __tmp12922 __tmp12901)))) + (cons __tmp12871 __tmp12850)))) (declare (not safe)) - (cons __tmp12925 __tmp12900)))) + (cons __tmp12874 __tmp12849)))) (declare (not safe)) - (cons __tmp12899 '())))) + (cons __tmp12848 '())))) (declare (not safe)) - (cons __tmp12926 __tmp12898)))) + (cons __tmp12875 __tmp12847)))) (declare (not safe)) - (cons __tmp12964 __tmp12897)))) + (cons __tmp12913 __tmp12846)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12968 - __tmp12896)))) + (cons __tmp12917 + __tmp12845)))) (declare (not safe)) - (cons __tmp12895 '())))) + (cons __tmp12844 '())))) (declare (not safe)) - (cons __tmp12969 __tmp12894)))) + (cons __tmp12918 __tmp12843)))) (declare (not safe)) - (cons __tmp12972 __tmp12893)))) + (cons __tmp12921 __tmp12842)))) (declare (not safe)) - (cons __tmp12892 _g1122211243_))))) + (cons __tmp12841 _g1117111192_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr* __tmp12891 + (foldr* __tmp12840 '() - _L11093_ - _L11196_ - _L11093_ - _L11196_ - _L11093_))))) + _L11042_ + _L11145_ + _L11042_ + _L11145_ + _L11042_))))) (declare (not safe)) - (cons __tmp12973 __tmp12890)))) + (cons __tmp12922 __tmp12839)))) (declare (not safe)) - (cons __tmp13006 __tmp12889)))) + (cons __tmp12955 __tmp12838)))) (declare (not safe)) - (cons __tmp13011 __tmp12888)))) - _macro-getf1113311192_ - _hd1112011150_) - (_g1111511139_ _g1111611143_))))))) + (cons __tmp12960 __tmp12837)))) + _macro-getf1108211141_ + _hd1106911099_) + (_g1106411088_ _g1106511092_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1112811172_ - _target1112511166_ + (_loop1107711121_ + _target1107411115_ '())) - (_g1111511139_ _g1111611143_))))) - (_g1111511139_ _g1111611143_)))) - (_g1111511139_ _g1111611143_)))) - (_g1111511139_ _g1111611143_))))) + (_g1106411088_ _g1106511092_))))) + (_g1106411088_ _g1106511092_)))) + (_g1106411088_ _g1106511092_)))) + (_g1106411088_ _g1106511092_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1111411246_ + (_g1106311195_ (list (gx#stx-identifier - _L11095_ + _L11044_ '"macro-" - _L11095_) - (map (lambda (_f11250_) + _L11044_) + (map (lambda (_f11199_) (gx#stx-identifier - _f11250_ + _f11199_ '"macro-" - _f11250_)) - (let ((__tmp13012 - (lambda (_g1125211255_ + _f11199_)) + (let ((__tmp12961 + (lambda (_g1120111204_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1125311258_) + _g1120211207_) (let () (declare (not safe)) - (cons _g1125211255_ _g1125311258_))))) + (cons _g1120111204_ _g1120211207_))))) (declare (not safe)) - (foldr1 __tmp13012 '() _L11093_))))))) + (foldr1 __tmp12961 '() _L11042_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf1102011089_ - _hd1101011057_) - (_g1099911026_ _g1100011030_))))))) - (_loop1101511069_ _target1101211063_ '())) - (_g1099911026_ _g1100011030_))))) + _getf1096911038_ + _hd1095911006_) + (_g1094810975_ _g1094910979_))))))) + (_loop1096411018_ _target1096111012_ '())) + (_g1094810975_ _g1094910979_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1099911026_ _g1100011030_)))) - (_g1099911026_ _g1100011030_)))) - (_g1099911026_ _g1100011030_)))) - (_g1099911026_ _g1100011030_))))) - (_g1099811261_ _stx10996_)))) + (_g1094810975_ _g1094910979_)))) + (_g1094810975_ _g1094910979_)))) + (_g1094810975_ _g1094910979_)))) + (_g1094810975_ _g1094910979_))))) + (_g1094711210_ _stx10945_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_$stx11267_) - (let* ((_g1127111291_ - (lambda (_g1127211287_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1127211287_))) - (_g1127011362_ - (lambda (_g1127211295_) - (if (gx#stx-pair? _g1127211295_) - (let ((_e1127611298_ (gx#syntax-e _g1127211295_))) - (let ((_hd1127511302_ + (lambda (_$stx11216_) + (let* ((_g1122011240_ + (lambda (_g1122111236_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1122111236_))) + (_g1121911311_ + (lambda (_g1122111244_) + (if (gx#stx-pair? _g1122111244_) + (let ((_e1122511247_ (gx#syntax-e _g1122111244_))) + (let ((_hd1122411251_ (let () (declare (not safe)) - (##car _e1127611298_))) - (_tl1127411305_ + (##car _e1122511247_))) + (_tl1122311254_ (let () (declare (not safe)) - (##cdr _e1127611298_)))) - (if (gx#stx-pair/null? _tl1127411305_) - (let ((_g13013_ + (##cdr _e1122511247_)))) + (if (gx#stx-pair/null? _tl1122311254_) + (let ((_g12962_ (gx#syntax-split-splice - _tl1127411305_ + _tl1122311254_ '0))) (begin - (let ((_g13014_ + (let ((_g12963_ (let () (declare (not safe)) - (if (##values? _g13013_) - (##vector-length _g13013_) + (if (##values? _g12962_) + (##vector-length _g12962_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g13014_ 2))) + (##fx= _g12963_ 2))) (error "Context expects 2 values" - _g13014_))) - (let ((_target1127711308_ + _g12963_))) + (let ((_target1122611257_ (let () (declare (not safe)) - (##vector-ref _g13013_ 0))) - (_tl1127911311_ + (##vector-ref _g12962_ 0))) + (_tl1122811260_ (let () (declare (not safe)) - (##vector-ref _g13013_ 1)))) - (if (gx#stx-null? _tl1127911311_) - (letrec ((_loop1128011314_ - (lambda (_hd1127811318_ - _defexn1128411321_) + (##vector-ref _g12962_ 1)))) + (if (gx#stx-null? _tl1122811260_) + (letrec ((_loop1122911263_ + (lambda (_hd1122711267_ + _defexn1123311270_) (if (gx#stx-pair? - _hd1127811318_) - (let ((_e1128111324_ + _hd1122711267_) + (let ((_e1123011273_ (gx#syntax-e - _hd1127811318_))) - (let ((_lp-hd1128211328_ + _hd1122711267_))) + (let ((_lp-hd1123111277_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1128111324_))) - (_lp-tl1128311331_ - (let () (declare (not safe)) (##cdr _e1128111324_)))) - (_loop1128011314_ - _lp-tl1128311331_ + (let () (declare (not safe)) (##car _e1123011273_))) + (_lp-tl1123211280_ + (let () (declare (not safe)) (##cdr _e1123011273_)))) + (_loop1122911263_ + _lp-tl1123211280_ (let () (declare (not safe)) - (cons _lp-hd1128211328_ _defexn1128411321_))))) - (let ((_defexn1128511334_ (reverse _defexn1128411321_))) - ((lambda (_L11338_) - (let ((__tmp13020 (gx#datum->syntax '#f 'begin)) - (__tmp13015 - (let ((__tmp13016 - (lambda (_g1135311356_ _g1135411359_) - (let ((__tmp13017 - (let ((__tmp13019 + (cons _lp-hd1123111277_ _defexn1123311270_))))) + (let ((_defexn1123411283_ (reverse _defexn1123311270_))) + ((lambda (_L11287_) + (let ((__tmp12969 (gx#datum->syntax '#f 'begin)) + (__tmp12964 + (let ((__tmp12965 + (lambda (_g1130211305_ _g1130311308_) + (let ((__tmp12966 + (let ((__tmp12968 (gx#datum->syntax '#f 'defruntime-exception)) - (__tmp13018 + (__tmp12967 (let () (declare (not safe)) - (cons _g1135311356_ + (cons _g1130211305_ '())))) (declare (not safe)) - (cons __tmp13019 __tmp13018)))) + (cons __tmp12968 __tmp12967)))) (declare (not safe)) - (cons __tmp13017 _g1135411359_))))) + (cons __tmp12966 _g1130311308_))))) (declare (not safe)) - (foldr1 __tmp13016 '() _L11338_)))) + (foldr1 __tmp12965 '() _L11287_)))) (declare (not safe)) - (cons __tmp13020 __tmp13015))) - _defexn1128511334_)))))) + (cons __tmp12969 __tmp12964))) + _defexn1123411283_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1128011314_ - _target1127711308_ + (_loop1122911263_ + _target1122611257_ '())) - (_g1127111291_ _g1127211295_))))) - (_g1127111291_ _g1127211295_)))) - (_g1127111291_ _g1127211295_))))) - (_g1127011362_ _$stx11267_)))))) + (_g1122011240_ _g1122111244_))))) + (_g1122011240_ _g1122111244_)))) + (_g1122011240_ _g1122111244_))))) + (_g1121911311_ _$stx11216_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index 90d3d40f24..0db03b3831 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 1697117311) + (define gerbil/runtime/eval::timestamp 1701173280) (begin (define __context::t (let () @@ -16,8 +16,8 @@ (define __context? (let () (declare (not safe)) (make-struct-predicate __context::t))) (define make-__context - (lambda _$args17452_ - (apply make-struct-instance __context::t _$args17452_))) + (lambda _$args17401_ + (apply make-struct-instance __context::t _$args17401_))) (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 _$args17449_ - (apply make-struct-instance __runtime::t _$args17449_))) + (lambda _$args17398_ + (apply make-struct-instance __runtime::t _$args17398_))) (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 _$args17446_ - (apply make-struct-instance __syntax::t _$args17446_))) + (lambda _$args17395_ + (apply make-struct-instance __syntax::t _$args17395_))) (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 _$args17443_ - (apply make-struct-instance __macro::t _$args17443_))) + (lambda _$args17392_ + (apply make-struct-instance __macro::t _$args17392_))) (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 _$args17440_ - (apply make-struct-instance __special-form::t _$args17440_))) + (lambda _$args17389_ + (apply make-struct-instance __special-form::t _$args17389_))) (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 _$args17437_ - (apply make-struct-instance __core-form::t _$args17437_))) + (lambda _$args17386_ + (apply make-struct-instance __core-form::t _$args17386_))) (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 _$args17434_ - (apply make-struct-instance __core-expression::t _$args17434_))) + (lambda _$args17383_ + (apply make-struct-instance __core-expression::t _$args17383_))) (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 _$args17431_ - (apply make-struct-instance __core-special-form::t _$args17431_))) + (lambda _$args17380_ + (apply make-struct-instance __core-special-form::t _$args17380_))) (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 _$args17428_ - (apply make-struct-instance __struct-info::t _$args17428_))) + (lambda _$args17377_ + (apply make-struct-instance __struct-info::t _$args17377_))) (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 _$args17425_ - (apply make-struct-instance __feature::t _$args17425_))) + (lambda _$args17374_ + (apply make-struct-instance __feature::t _$args17374_))) (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 _$args17422_ - (apply make-struct-instance __module::t _$args17422_))) + (lambda _$args17371_ + (apply make-struct-instance __module::t _$args17371_))) (define __module-id (let () (declare (not safe)) @@ -349,3568 +349,3607 @@ (define __*modules* (let () (declare (not safe)) (make-table))) (define __*core* (let () (declare (not safe)) (make-table 'test: eq?))) (define __*top* - (let ((__tmp17638 + (let ((__tmp17587 (let () (declare (not safe)) (##structure __context::t 'root '#f '#f __*core*))) - (__tmp17637 (let () (declare (not safe)) (make-table 'test: eq?)))) + (__tmp17586 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'top '#f __tmp17638 __tmp17637))) + (##structure __context::t 'top '#f __tmp17587 __tmp17586))) (define __current-expander (make-parameter '#f)) (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve__% - (lambda (_id17397_ _ctx17398_) - (if _ctx17398_ - (let ((_id17400_ - (let () (declare (not safe)) (__AST-e _id17397_)))) - (let _lp17402_ ((_ctx17404_ _ctx17398_)) - (let ((_$e17406_ + (lambda (_id17346_ _ctx17347_) + (if _ctx17347_ + (let ((_id17349_ + (let () (declare (not safe)) (__AST-e _id17346_)))) + (let _lp17351_ ((_ctx17353_ _ctx17347_)) + (let ((_$e17355_ (table-ref - (##structure-ref _ctx17404_ '4 __context::t '#f) - _id17400_ + (##structure-ref _ctx17353_ '4 __context::t '#f) + _id17349_ '#f))) - (if _$e17406_ - (values _$e17406_) - (let ((_$e17409_ - (##structure-ref _ctx17404_ '3 __context::t '#f))) - (if _$e17409_ - (let () (declare (not safe)) (_lp17402_ _$e17409_)) + (if _$e17355_ + (values _$e17355_) + (let ((_$e17358_ + (##structure-ref _ctx17353_ '3 __context::t '#f))) + (if _$e17358_ + (let () (declare (not safe)) (_lp17351_ _$e17358_)) '#f)))))) '#f))) (define __core-resolve__0 - (lambda (_id17415_) - (let ((_ctx17417_ (__current-context))) + (lambda (_id17364_) + (let ((_ctx17366_ (__current-context))) (declare (not safe)) - (__core-resolve__% _id17415_ _ctx17417_)))) + (__core-resolve__% _id17364_ _ctx17366_)))) (define __core-resolve - (lambda _g17640_ - (let ((_g17639_ (let () (declare (not safe)) (##length _g17640_)))) - (cond ((let () (declare (not safe)) (##fx= _g17639_ 1)) - (apply (lambda (_id17415_) + (lambda _g17589_ + (let ((_g17588_ (let () (declare (not safe)) (##length _g17589_)))) + (cond ((let () (declare (not safe)) (##fx= _g17588_ 1)) + (apply (lambda (_id17364_) (let () (declare (not safe)) - (__core-resolve__0 _id17415_))) - _g17640_)) - ((let () (declare (not safe)) (##fx= _g17639_ 2)) - (apply (lambda (_id17419_ _ctx17420_) + (__core-resolve__0 _id17364_))) + _g17589_)) + ((let () (declare (not safe)) (##fx= _g17588_ 2)) + (apply (lambda (_id17368_ _ctx17369_) (let () (declare (not safe)) - (__core-resolve__% _id17419_ _ctx17420_))) - _g17640_)) + (__core-resolve__% _id17368_ _ctx17369_))) + _g17589_)) (else (##raise-wrong-number-of-arguments-exception __core-resolve - _g17640_)))))) + _g17589_)))))) (define __core-bound-id?__% - (lambda (_id17380_ _is?17381_) - (let ((_$e17383_ - (let () (declare (not safe)) (__core-resolve__0 _id17380_)))) - (if _$e17383_ (_is?17381_ _$e17383_) '#f)))) + (lambda (_id17329_ _is?17330_) + (let ((_$e17332_ + (let () (declare (not safe)) (__core-resolve__0 _id17329_)))) + (if _$e17332_ (_is?17330_ _$e17332_) '#f)))) (define __core-bound-id?__0 - (lambda (_id17389_) - (let ((_is?17391_ true)) + (lambda (_id17338_) + (let ((_is?17340_ true)) (declare (not safe)) - (__core-bound-id?__% _id17389_ _is?17391_)))) + (__core-bound-id?__% _id17338_ _is?17340_)))) (define __core-bound-id? - (lambda _g17642_ - (let ((_g17641_ (let () (declare (not safe)) (##length _g17642_)))) - (cond ((let () (declare (not safe)) (##fx= _g17641_ 1)) - (apply (lambda (_id17389_) + (lambda _g17591_ + (let ((_g17590_ (let () (declare (not safe)) (##length _g17591_)))) + (cond ((let () (declare (not safe)) (##fx= _g17590_ 1)) + (apply (lambda (_id17338_) (let () (declare (not safe)) - (__core-bound-id?__0 _id17389_))) - _g17642_)) - ((let () (declare (not safe)) (##fx= _g17641_ 2)) - (apply (lambda (_id17393_ _is?17394_) + (__core-bound-id?__0 _id17338_))) + _g17591_)) + ((let () (declare (not safe)) (##fx= _g17590_ 2)) + (apply (lambda (_id17342_ _is?17343_) (let () (declare (not safe)) - (__core-bound-id?__% _id17393_ _is?17394_))) - _g17642_)) + (__core-bound-id?__% _id17342_ _is?17343_))) + _g17591_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g17642_)))))) + _g17591_)))))) (define __core-bind-runtime!__% - (lambda (_id17363_ _eid17364_ _ctx17365_) - (if _eid17364_ - (let ((__tmp17645 (##structure-ref _ctx17365_ '4 __context::t '#f)) - (__tmp17644 - (let () (declare (not safe)) (__AST-e _id17363_))) - (__tmp17643 + (lambda (_id17312_ _eid17313_ _ctx17314_) + (if _eid17313_ + (let ((__tmp17594 (##structure-ref _ctx17314_ '4 __context::t '#f)) + (__tmp17593 + (let () (declare (not safe)) (__AST-e _id17312_))) + (__tmp17592 (let () (declare (not safe)) - (##structure __runtime::t _eid17364_)))) + (##structure __runtime::t _eid17313_)))) (declare (not safe)) - (table-set! __tmp17645 __tmp17644 __tmp17643)) + (table-set! __tmp17594 __tmp17593 __tmp17592)) '#!void))) (define __core-bind-runtime!__0 - (lambda (_id17370_ _eid17371_) - (let ((_ctx17373_ (__current-context))) + (lambda (_id17319_ _eid17320_) + (let ((_ctx17322_ (__current-context))) (declare (not safe)) - (__core-bind-runtime!__% _id17370_ _eid17371_ _ctx17373_)))) + (__core-bind-runtime!__% _id17319_ _eid17320_ _ctx17322_)))) (define __core-bind-runtime! - (lambda _g17647_ - (let ((_g17646_ (let () (declare (not safe)) (##length _g17647_)))) - (cond ((let () (declare (not safe)) (##fx= _g17646_ 2)) - (apply (lambda (_id17370_ _eid17371_) + (lambda _g17596_ + (let ((_g17595_ (let () (declare (not safe)) (##length _g17596_)))) + (cond ((let () (declare (not safe)) (##fx= _g17595_ 2)) + (apply (lambda (_id17319_ _eid17320_) (let () (declare (not safe)) - (__core-bind-runtime!__0 _id17370_ _eid17371_))) - _g17647_)) - ((let () (declare (not safe)) (##fx= _g17646_ 3)) - (apply (lambda (_id17375_ _eid17376_ _ctx17377_) + (__core-bind-runtime!__0 _id17319_ _eid17320_))) + _g17596_)) + ((let () (declare (not safe)) (##fx= _g17595_ 3)) + (apply (lambda (_id17324_ _eid17325_ _ctx17326_) (let () (declare (not safe)) (__core-bind-runtime!__% - _id17375_ - _eid17376_ - _ctx17377_))) - _g17647_)) + _id17324_ + _eid17325_ + _ctx17326_))) + _g17596_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-runtime! - _g17647_)))))) + _g17596_)))))) (define __core-bind-syntax!__% - (lambda (_id17346_ _e17347_ _make17348_) - (let ((__tmp17648 + (lambda (_id17295_ _e17296_ _make17297_) + (let ((__tmp17597 (if (let () (declare (not safe)) (##structure-instance-of? - _e17347_ + _e17296_ 'gerbil/runtime/eval#__syntax::t)) - _e17347_ - (_make17348_ _e17347_ _id17346_)))) + _e17296_ + (_make17297_ _e17296_ _id17295_)))) (declare (not safe)) - (table-set! __*core* _id17346_ __tmp17648)))) + (table-set! __*core* _id17295_ __tmp17597)))) (define __core-bind-syntax!__0 - (lambda (_id17353_ _e17354_) - (let ((_make17356_ make-__syntax)) + (lambda (_id17302_ _e17303_) + (let ((_make17305_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id17353_ _e17354_ _make17356_)))) + (__core-bind-syntax!__% _id17302_ _e17303_ _make17305_)))) (define __core-bind-syntax! - (lambda _g17650_ - (let ((_g17649_ (let () (declare (not safe)) (##length _g17650_)))) - (cond ((let () (declare (not safe)) (##fx= _g17649_ 2)) - (apply (lambda (_id17353_ _e17354_) + (lambda _g17599_ + (let ((_g17598_ (let () (declare (not safe)) (##length _g17599_)))) + (cond ((let () (declare (not safe)) (##fx= _g17598_ 2)) + (apply (lambda (_id17302_ _e17303_) (let () (declare (not safe)) - (__core-bind-syntax!__0 _id17353_ _e17354_))) - _g17650_)) - ((let () (declare (not safe)) (##fx= _g17649_ 3)) - (apply (lambda (_id17358_ _e17359_ _make17360_) + (__core-bind-syntax!__0 _id17302_ _e17303_))) + _g17599_)) + ((let () (declare (not safe)) (##fx= _g17598_ 3)) + (apply (lambda (_id17307_ _e17308_ _make17309_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id17358_ - _e17359_ - _make17360_))) - _g17650_)) + _id17307_ + _e17308_ + _make17309_))) + _g17599_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g17650_)))))) + _g17599_)))))) (define __core-bind-macro! - (lambda (_id17342_ _e17343_) + (lambda (_id17291_ _e17292_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id17342_ _e17343_ make-__macro)))) + (__core-bind-syntax!__% _id17291_ _e17292_ make-__macro)))) (define __core-bind-special-form! - (lambda (_id17339_ _e17340_) + (lambda (_id17288_ _e17289_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id17339_ _e17340_ make-__special-form)))) + (__core-bind-syntax!__% _id17288_ _e17289_ make-__special-form)))) (define __core-bind-user-syntax!__% - (lambda (_id17323_ _e17324_ _ctx17325_) - (let ((__tmp17654 (##structure-ref _ctx17325_ '4 __context::t '#f)) - (__tmp17653 (let () (declare (not safe)) (__AST-e _id17323_))) - (__tmp17651 + (lambda (_id17272_ _e17273_ _ctx17274_) + (let ((__tmp17603 (##structure-ref _ctx17274_ '4 __context::t '#f)) + (__tmp17602 (let () (declare (not safe)) (__AST-e _id17272_))) + (__tmp17600 (if (let () (declare (not safe)) (##structure-instance-of? - _e17324_ + _e17273_ 'gerbil/runtime/eval#__syntax::t)) - _e17324_ - (let ((__tmp17652 - (let () (declare (not safe)) (__AST-e _id17323_)))) + _e17273_ + (let ((__tmp17601 + (let () (declare (not safe)) (__AST-e _id17272_)))) (declare (not safe)) - (##structure __syntax::t _e17324_ __tmp17652))))) + (##structure __syntax::t _e17273_ __tmp17601))))) (declare (not safe)) - (table-set! __tmp17654 __tmp17653 __tmp17651)))) + (table-set! __tmp17603 __tmp17602 __tmp17600)))) (define __core-bind-user-syntax!__0 - (lambda (_id17330_ _e17331_) - (let ((_ctx17333_ (__current-context))) + (lambda (_id17279_ _e17280_) + (let ((_ctx17282_ (__current-context))) (declare (not safe)) - (__core-bind-user-syntax!__% _id17330_ _e17331_ _ctx17333_)))) + (__core-bind-user-syntax!__% _id17279_ _e17280_ _ctx17282_)))) (define __core-bind-user-syntax! - (lambda _g17656_ - (let ((_g17655_ (let () (declare (not safe)) (##length _g17656_)))) - (cond ((let () (declare (not safe)) (##fx= _g17655_ 2)) - (apply (lambda (_id17330_ _e17331_) + (lambda _g17605_ + (let ((_g17604_ (let () (declare (not safe)) (##length _g17605_)))) + (cond ((let () (declare (not safe)) (##fx= _g17604_ 2)) + (apply (lambda (_id17279_ _e17280_) (let () (declare (not safe)) - (__core-bind-user-syntax!__0 _id17330_ _e17331_))) - _g17656_)) - ((let () (declare (not safe)) (##fx= _g17655_ 3)) - (apply (lambda (_id17335_ _e17336_ _ctx17337_) + (__core-bind-user-syntax!__0 _id17279_ _e17280_))) + _g17605_)) + ((let () (declare (not safe)) (##fx= _g17604_ 3)) + (apply (lambda (_id17284_ _e17285_ _ctx17286_) (let () (declare (not safe)) (__core-bind-user-syntax!__% - _id17335_ - _e17336_ - _ctx17337_))) - _g17656_)) + _id17284_ + _e17285_ + _ctx17286_))) + _g17605_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-user-syntax! - _g17656_)))))) + _g17605_)))))) (define make-__runtime-id__% - (lambda (_id17304_ _ctx17305_) - (let ((_id17307_ (let () (declare (not safe)) (__AST-e _id17304_)))) - (if (let () (declare (not safe)) (eq? _id17307_ '_)) + (lambda (_id17253_ _ctx17254_) + (let ((_id17256_ (let () (declare (not safe)) (__AST-e _id17253_)))) + (if (let () (declare (not safe)) (eq? _id17256_ '_)) '#f - (if (uninterned-symbol? _id17307_) - (gensym _id17307_) - (if (let () (declare (not safe)) (symbol? _id17307_)) - (let ((_$e17309_ - (##structure-ref _ctx17305_ '1 __context::t '#f))) + (if (uninterned-symbol? _id17256_) + (gensym _id17256_) + (if (let () (declare (not safe)) (symbol? _id17256_)) + (let ((_$e17258_ + (##structure-ref _ctx17254_ '1 __context::t '#f))) (if (let () (declare (not safe)) - (eq? 'local _$e17309_)) - (gensym _id17307_) + (eq? 'local _$e17258_)) + (gensym _id17256_) (if (let () (declare (not safe)) - (eq? 'module _$e17309_)) - (let ((__tmp17657 + (eq? 'module _$e17258_)) + (let ((__tmp17606 (##structure-ref - _ctx17305_ + _ctx17254_ '2 __context::t '#f))) (declare (not safe)) - (make-symbol__1 __tmp17657 '"#" _id17307_)) - _id17307_))) - (error '"Illegal runtime identifier" _id17307_))))))) + (make-symbol__1 __tmp17606 '"#" _id17256_)) + _id17256_))) + (error '"Illegal runtime identifier" _id17256_))))))) (define make-__runtime-id__0 - (lambda (_id17315_) - (let ((_ctx17317_ (__current-context))) + (lambda (_id17264_) + (let ((_ctx17266_ (__current-context))) (declare (not safe)) - (make-__runtime-id__% _id17315_ _ctx17317_)))) + (make-__runtime-id__% _id17264_ _ctx17266_)))) (define make-__runtime-id - (lambda _g17659_ - (let ((_g17658_ (let () (declare (not safe)) (##length _g17659_)))) - (cond ((let () (declare (not safe)) (##fx= _g17658_ 1)) - (apply (lambda (_id17315_) + (lambda _g17608_ + (let ((_g17607_ (let () (declare (not safe)) (##length _g17608_)))) + (cond ((let () (declare (not safe)) (##fx= _g17607_ 1)) + (apply (lambda (_id17264_) (let () (declare (not safe)) - (make-__runtime-id__0 _id17315_))) - _g17659_)) - ((let () (declare (not safe)) (##fx= _g17658_ 2)) - (apply (lambda (_id17319_ _ctx17320_) + (make-__runtime-id__0 _id17264_))) + _g17608_)) + ((let () (declare (not safe)) (##fx= _g17607_ 2)) + (apply (lambda (_id17268_ _ctx17269_) (let () (declare (not safe)) - (make-__runtime-id__% _id17319_ _ctx17320_))) - _g17659_)) + (make-__runtime-id__% _id17268_ _ctx17269_))) + _g17608_)) (else (##raise-wrong-number-of-arguments-exception make-__runtime-id - _g17659_)))))) + _g17608_)))))) (define make-__context-local__% - (lambda (_super17293_) - (let ((__tmp17660 + (lambda (_super17242_) + (let ((__tmp17609 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'local '#f _super17293_ __tmp17660)))) + (##structure __context::t 'local '#f _super17242_ __tmp17609)))) (define make-__context-local__0 (lambda () - (let ((_super17299_ (__current-context))) + (let ((_super17248_ (__current-context))) (declare (not safe)) - (make-__context-local__% _super17299_)))) + (make-__context-local__% _super17248_)))) (define make-__context-local - (lambda _g17662_ - (let ((_g17661_ (let () (declare (not safe)) (##length _g17662_)))) - (cond ((let () (declare (not safe)) (##fx= _g17661_ 0)) + (lambda _g17611_ + (let ((_g17610_ (let () (declare (not safe)) (##length _g17611_)))) + (cond ((let () (declare (not safe)) (##fx= _g17610_ 0)) (apply (lambda () (let () (declare (not safe)) (make-__context-local__0))) - _g17662_)) - ((let () (declare (not safe)) (##fx= _g17661_ 1)) - (apply (lambda (_super17301_) + _g17611_)) + ((let () (declare (not safe)) (##fx= _g17610_ 1)) + (apply (lambda (_super17250_) (let () (declare (not safe)) - (make-__context-local__% _super17301_))) - _g17662_)) + (make-__context-local__% _super17250_))) + _g17611_)) (else (##raise-wrong-number-of-arguments-exception make-__context-local - _g17662_)))))) + _g17611_)))))) (define make-__context-module__% - (lambda (_id17273_ _ns17274_ _path17275_ _super17276_) - (let ((__tmp17663 + (lambda (_id17222_ _ns17223_ _path17224_ _super17225_) + (let ((__tmp17612 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) (##structure __module::t 'module - _ns17274_ - _super17276_ - __tmp17663 - _id17273_ - _path17275_ + _ns17223_ + _super17225_ + __tmp17612 + _id17222_ + _path17224_ '#f '#f)))) (define make-__context-module__0 - (lambda (_id17281_ _ns17282_ _path17283_) - (let ((_super17285_ (__current-context))) + (lambda (_id17230_ _ns17231_ _path17232_) + (let ((_super17234_ (__current-context))) (declare (not safe)) (make-__context-module__% - _id17281_ - _ns17282_ - _path17283_ - _super17285_)))) + _id17230_ + _ns17231_ + _path17232_ + _super17234_)))) (define make-__context-module - (lambda _g17665_ - (let ((_g17664_ (let () (declare (not safe)) (##length _g17665_)))) - (cond ((let () (declare (not safe)) (##fx= _g17664_ 3)) - (apply (lambda (_id17281_ _ns17282_ _path17283_) + (lambda _g17614_ + (let ((_g17613_ (let () (declare (not safe)) (##length _g17614_)))) + (cond ((let () (declare (not safe)) (##fx= _g17613_ 3)) + (apply (lambda (_id17230_ _ns17231_ _path17232_) (let () (declare (not safe)) (make-__context-module__0 - _id17281_ - _ns17282_ - _path17283_))) - _g17665_)) - ((let () (declare (not safe)) (##fx= _g17664_ 4)) - (apply (lambda (_id17287_ _ns17288_ _path17289_ _super17290_) + _id17230_ + _ns17231_ + _path17232_))) + _g17614_)) + ((let () (declare (not safe)) (##fx= _g17613_ 4)) + (apply (lambda (_id17236_ _ns17237_ _path17238_ _super17239_) (let () (declare (not safe)) (make-__context-module__% - _id17287_ - _ns17288_ - _path17289_ - _super17290_))) - _g17665_)) + _id17236_ + _ns17237_ + _path17238_ + _super17239_))) + _g17614_)) (else (##raise-wrong-number-of-arguments-exception make-__context-module - _g17665_)))))) + _g17614_)))))) (define __SRC__% - (lambda (_e17256_ _src-stx17257_) - (if (or (let () (declare (not safe)) (pair? _e17256_)) - (let () (declare (not safe)) (symbol? _e17256_))) - (let ((__tmp17669 + (lambda (_e17205_ _src-stx17206_) + (if (or (let () (declare (not safe)) (pair? _e17205_)) + (let () (declare (not safe)) (symbol? _e17205_))) + (let ((__tmp17618 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx17257_ + _src-stx17206_ 'gerbil#AST::t)) - (let ((__tmp17670 + (let ((__tmp17619 (let () (declare (not safe)) - (__AST-source _src-stx17257_)))) + (__AST-source _src-stx17206_)))) (declare (not safe)) - (__locat __tmp17670)) + (__locat __tmp17619)) '#f))) (declare (not safe)) - (##make-source _e17256_ __tmp17669)) + (##make-source _e17205_ __tmp17618)) (if (let () (declare (not safe)) - (##structure-instance-of? _e17256_ 'gerbil#AST::t)) - (let ((__tmp17668 + (##structure-instance-of? _e17205_ 'gerbil#AST::t)) + (let ((__tmp17617 (let () (declare (not safe)) - (##unchecked-structure-ref _e17256_ '1 AST::t '#f))) - (__tmp17666 - (let ((__tmp17667 + (##unchecked-structure-ref _e17205_ '1 AST::t '#f))) + (__tmp17615 + (let ((__tmp17616 (let () (declare (not safe)) - (__AST-source _e17256_)))) + (__AST-source _e17205_)))) (declare (not safe)) - (__locat __tmp17667)))) + (__locat __tmp17616)))) (declare (not safe)) - (##make-source __tmp17668 __tmp17666)) - (error '"BUG! Cannot sourcify object" _e17256_))))) + (##make-source __tmp17617 __tmp17615)) + (error '"BUG! Cannot sourcify object" _e17205_))))) (define __SRC__0 - (lambda (_e17265_) - (let ((_src-stx17267_ '#f)) + (lambda (_e17214_) + (let ((_src-stx17216_ '#f)) (declare (not safe)) - (__SRC__% _e17265_ _src-stx17267_)))) + (__SRC__% _e17214_ _src-stx17216_)))) (define __SRC - (lambda _g17672_ - (let ((_g17671_ (let () (declare (not safe)) (##length _g17672_)))) - (cond ((let () (declare (not safe)) (##fx= _g17671_ 1)) - (apply (lambda (_e17265_) - (let () (declare (not safe)) (__SRC__0 _e17265_))) - _g17672_)) - ((let () (declare (not safe)) (##fx= _g17671_ 2)) - (apply (lambda (_e17269_ _src-stx17270_) + (lambda _g17621_ + (let ((_g17620_ (let () (declare (not safe)) (##length _g17621_)))) + (cond ((let () (declare (not safe)) (##fx= _g17620_ 1)) + (apply (lambda (_e17214_) + (let () (declare (not safe)) (__SRC__0 _e17214_))) + _g17621_)) + ((let () (declare (not safe)) (##fx= _g17620_ 2)) + (apply (lambda (_e17218_ _src-stx17219_) (let () (declare (not safe)) - (__SRC__% _e17269_ _src-stx17270_))) - _g17672_)) + (__SRC__% _e17218_ _src-stx17219_))) + _g17621_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g17672_)))))) + _g17621_)))))) (define __locat - (lambda (_loc17253_) - (if (let () (declare (not safe)) (##locat? _loc17253_)) - _loc17253_ + (lambda (_loc17202_) + (if (let () (declare (not safe)) (##locat? _loc17202_)) + _loc17202_ '#f))) (define __check-values - (lambda (_obj17248_ _k17249_) - (let ((_count17251_ - (if (let () (declare (not safe)) (##values? _obj17248_)) - (let () (declare (not safe)) (##vector-length _obj17248_)) + (lambda (_obj17197_ _k17198_) + (let ((_count17200_ + (if (let () (declare (not safe)) (##values? _obj17197_)) + (let () (declare (not safe)) (##vector-length _obj17197_)) '1))) - (if (fx= _count17251_ _k17249_) + (if (fx= _count17200_ _k17198_) '#!void - (error (if (fx< _count17251_ _k17249_) + (error (if (fx< _count17200_ _k17198_) '"Too few values for context" '"Too many values for context") - (if (let () (declare (not safe)) (##values? _obj17248_)) + (if (let () (declare (not safe)) (##values? _obj17197_)) (let () (declare (not safe)) - (##vector->list _obj17248_)) - _obj17248_) - _k17249_))))) + (##vector->list _obj17197_)) + _obj17197_) + _k17198_))))) (define __compile - (lambda (_stx17218_) - (let* ((_$e17220_ _stx17218_) - (_$E1722217228_ + (lambda (_stx17167_) + (let* ((_$e17169_ _stx17167_) + (_$E1717117177_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e17220_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e17220_)) - (let* ((_$tgt1722317231_ - (let () (declare (not safe)) (__AST-e _$e17220_))) - (_$hd1722417234_ - (let () (declare (not safe)) (##car _$tgt1722317231_))) - (_$tl1722517237_ - (let () (declare (not safe)) (##cdr _$tgt1722317231_)))) - (let* ((_form17241_ _$hd1722417234_) - (_$e17243_ + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e17169_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17169_)) + (let* ((_$tgt1717217180_ + (let () (declare (not safe)) (__AST-e _$e17169_))) + (_$hd1717317183_ + (let () (declare (not safe)) (##car _$tgt1717217180_))) + (_$tl1717417186_ + (let () (declare (not safe)) (##cdr _$tgt1717217180_)))) + (let* ((_form17190_ _$hd1717317183_) + (_$e17192_ (let () (declare (not safe)) - (__core-resolve__0 _form17241_)))) - (if _$e17243_ - ((lambda (_bind17246_) - ((##structure-ref _bind17246_ '1 __syntax::t '#f) - _stx17218_)) - _$e17243_) + (__core-resolve__0 _form17190_)))) + (if _$e17192_ + ((lambda (_bind17195_) + ((##structure-ref _bind17195_ '1 __syntax::t '#f) + _stx17167_)) + _$e17192_) (let () (declare (not safe)) (__raise-syntax-error '#f - '"Bad syntax" - _stx17218_ - _form17241_))))) - (let () (declare (not safe)) (_$E1722217228_)))))) + '"Bad syntax; cannot resolve form" + _stx17167_ + _form17190_))))) + (let () (declare (not safe)) (_$E1717117177_)))))) (define __compile-error__% - (lambda (_stx17205_ _detail17206_) + (lambda (_stx17154_ _detail17155_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx17205_ - _detail17206_)))) + _stx17154_ + _detail17155_)))) (define __compile-error__0 - (lambda (_stx17211_) - (let ((_detail17213_ '#f)) + (lambda (_stx17160_) + (let ((_detail17162_ '#f)) (declare (not safe)) - (__compile-error__% _stx17211_ _detail17213_)))) + (__compile-error__% _stx17160_ _detail17162_)))) (define __compile-error - (lambda _g17674_ - (let ((_g17673_ (let () (declare (not safe)) (##length _g17674_)))) - (cond ((let () (declare (not safe)) (##fx= _g17673_ 1)) - (apply (lambda (_stx17211_) + (lambda _g17623_ + (let ((_g17622_ (let () (declare (not safe)) (##length _g17623_)))) + (cond ((let () (declare (not safe)) (##fx= _g17622_ 1)) + (apply (lambda (_stx17160_) (let () (declare (not safe)) - (__compile-error__0 _stx17211_))) - _g17674_)) - ((let () (declare (not safe)) (##fx= _g17673_ 2)) - (apply (lambda (_stx17215_ _detail17216_) + (__compile-error__0 _stx17160_))) + _g17623_)) + ((let () (declare (not safe)) (##fx= _g17622_ 2)) + (apply (lambda (_stx17164_ _detail17165_) (let () (declare (not safe)) - (__compile-error__% _stx17215_ _detail17216_))) - _g17674_)) + (__compile-error__% _stx17164_ _detail17165_))) + _g17623_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g17674_)))))) + _g17623_)))))) (define __compile-ignore% - (lambda (_stx17202_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx17202_)))) + (lambda (_stx17151_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx17151_)))) (define __compile-begin% - (lambda (_stx17177_) - (let* ((_$e17179_ _stx17177_) - (_$E1718117187_ + (lambda (_stx17126_) + (let* ((_$e17128_ _stx17126_) + (_$E1713017136_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e17179_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e17179_)) - (let* ((_$tgt1718217190_ - (let () (declare (not safe)) (__AST-e _$e17179_))) - (_$hd1718317193_ - (let () (declare (not safe)) (##car _$tgt1718217190_))) - (_$tl1718417196_ - (let () (declare (not safe)) (##cdr _$tgt1718217190_)))) - (let* ((_body17200_ _$tl1718417196_) - (__tmp17675 - (let ((__tmp17676 (map __compile _body17200_))) + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e17128_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17128_)) + (let* ((_$tgt1713117139_ + (let () (declare (not safe)) (__AST-e _$e17128_))) + (_$hd1713217142_ + (let () (declare (not safe)) (##car _$tgt1713117139_))) + (_$tl1713317145_ + (let () (declare (not safe)) (##cdr _$tgt1713117139_)))) + (let* ((_body17149_ _$tl1713317145_) + (__tmp17624 + (let ((__tmp17625 (map __compile _body17149_))) (declare (not safe)) - (cons 'begin __tmp17676)))) + (cons 'begin __tmp17625)))) (declare (not safe)) - (__SRC__% __tmp17675 _stx17177_))) - (let () (declare (not safe)) (_$E1718117187_)))))) + (__SRC__% __tmp17624 _stx17126_))) + (let () (declare (not safe)) (_$E1713017136_)))))) (define __compile-begin-foreign% - (lambda (_stx17152_) - (let* ((_$e17154_ _stx17152_) - (_$E1715617162_ + (lambda (_stx17101_) + (let* ((_$e17103_ _stx17101_) + (_$E1710517111_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e17154_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e17154_)) - (let* ((_$tgt1715717165_ - (let () (declare (not safe)) (__AST-e _$e17154_))) - (_$hd1715817168_ - (let () (declare (not safe)) (##car _$tgt1715717165_))) - (_$tl1715917171_ - (let () (declare (not safe)) (##cdr _$tgt1715717165_)))) - (let* ((_body17175_ _$tl1715917171_) - (__tmp17677 - (let ((__tmp17678 + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e17103_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17103_)) + (let* ((_$tgt1710617114_ + (let () (declare (not safe)) (__AST-e _$e17103_))) + (_$hd1710717117_ + (let () (declare (not safe)) (##car _$tgt1710617114_))) + (_$tl1710817120_ + (let () (declare (not safe)) (##cdr _$tgt1710617114_)))) + (let* ((_body17124_ _$tl1710817120_) + (__tmp17626 + (let ((__tmp17627 (let () (declare (not safe)) - (__AST->datum _body17175_)))) + (__AST->datum _body17124_)))) (declare (not safe)) - (cons 'begin __tmp17678)))) + (cons 'begin __tmp17627)))) (declare (not safe)) - (__SRC__% __tmp17677 _stx17152_))) - (let () (declare (not safe)) (_$E1715617162_)))))) + (__SRC__% __tmp17626 _stx17101_))) + (let () (declare (not safe)) (_$E1710517111_)))))) (define __compile-import% - (lambda (_stx17127_) - (let* ((_$e17129_ _stx17127_) - (_$E1713117137_ + (lambda (_stx17076_) + (let* ((_$e17078_ _stx17076_) + (_$E1708017086_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e17129_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e17129_)) - (let* ((_$tgt1713217140_ - (let () (declare (not safe)) (__AST-e _$e17129_))) - (_$hd1713317143_ - (let () (declare (not safe)) (##car _$tgt1713217140_))) - (_$tl1713417146_ - (let () (declare (not safe)) (##cdr _$tgt1713217140_)))) - (let* ((_body17150_ _$tl1713417146_) - (__tmp17679 - (let ((__tmp17680 - (let ((__tmp17681 - (let ((__tmp17682 + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e17078_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17078_)) + (let* ((_$tgt1708117089_ + (let () (declare (not safe)) (__AST-e _$e17078_))) + (_$hd1708217092_ + (let () (declare (not safe)) (##car _$tgt1708117089_))) + (_$tl1708317095_ + (let () (declare (not safe)) (##cdr _$tgt1708117089_)))) + (let* ((_body17099_ _$tl1708317095_) + (__tmp17628 + (let ((__tmp17629 + (let ((__tmp17630 + (let ((__tmp17631 (let () (declare (not safe)) - (cons _body17150_ '())))) + (cons _body17099_ '())))) (declare (not safe)) - (cons 'quote __tmp17682)))) + (cons 'quote __tmp17631)))) (declare (not safe)) - (cons __tmp17681 '())))) + (cons __tmp17630 '())))) (declare (not safe)) - (cons '__eval-import __tmp17680)))) + (cons '__eval-import __tmp17629)))) (declare (not safe)) - (__SRC__% __tmp17679 _stx17127_))) - (let () (declare (not safe)) (_$E1713117137_)))))) + (__SRC__% __tmp17628 _stx17076_))) + (let () (declare (not safe)) (_$E1708017086_)))))) (define __compile-begin-annotation% - (lambda (_stx17074_) - (let* ((_$e17076_ _stx17074_) - (_$E1707817090_ + (lambda (_stx17023_) + (let* ((_$e17025_ _stx17023_) + (_$E1702717039_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e17076_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e17076_)) - (let* ((_$tgt1707917093_ - (let () (declare (not safe)) (__AST-e _$e17076_))) - (_$hd1708017096_ - (let () (declare (not safe)) (##car _$tgt1707917093_))) - (_$tl1708117099_ - (let () (declare (not safe)) (##cdr _$tgt1707917093_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1708117099_)) - (let* ((_$tgt1708217103_ + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e17025_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17025_)) + (let* ((_$tgt1702817042_ + (let () (declare (not safe)) (__AST-e _$e17025_))) + (_$hd1702917045_ + (let () (declare (not safe)) (##car _$tgt1702817042_))) + (_$tl1703017048_ + (let () (declare (not safe)) (##cdr _$tgt1702817042_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1703017048_)) + (let* ((_$tgt1703117052_ (let () (declare (not safe)) - (__AST-e _$tl1708117099_))) - (_$hd1708317106_ + (__AST-e _$tl1703017048_))) + (_$hd1703217055_ (let () (declare (not safe)) - (##car _$tgt1708217103_))) - (_$tl1708417109_ + (##car _$tgt1703117052_))) + (_$tl1703317058_ (let () (declare (not safe)) - (##cdr _$tgt1708217103_)))) - (let ((_ann17113_ _$hd1708317106_)) + (##cdr _$tgt1703117052_)))) + (let ((_ann17062_ _$hd1703217055_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1708417109_)) - (let* ((_$tgt1708517115_ + (__AST-pair? _$tl1703317058_)) + (let* ((_$tgt1703417064_ (let () (declare (not safe)) - (__AST-e _$tl1708417109_))) - (_$hd1708617118_ + (__AST-e _$tl1703317058_))) + (_$hd1703517067_ (let () (declare (not safe)) - (##car _$tgt1708517115_))) - (_$tl1708717121_ + (##car _$tgt1703417064_))) + (_$tl1703617070_ (let () (declare (not safe)) - (##cdr _$tgt1708517115_)))) - (let ((_expr17125_ _$hd1708617118_)) - (if (let ((__tmp17683 + (##cdr _$tgt1703417064_)))) + (let ((_expr17074_ _$hd1703517067_)) + (if (let ((__tmp17632 (let () (declare (not safe)) - (__AST-e _$tl1708717121_)))) + (__AST-e _$tl1703617070_)))) (declare (not safe)) - (equal? __tmp17683 '())) + (equal? __tmp17632 '())) (let () (declare (not safe)) - (__compile _expr17125_)) + (__compile _expr17074_)) (let () (declare (not safe)) - (_$E1707817090_))))) - (let () (declare (not safe)) (_$E1707817090_))))) - (let () (declare (not safe)) (_$E1707817090_)))) - (let () (declare (not safe)) (_$E1707817090_)))))) + (_$E1702717039_))))) + (let () (declare (not safe)) (_$E1702717039_))))) + (let () (declare (not safe)) (_$E1702717039_)))) + (let () (declare (not safe)) (_$E1702717039_)))))) (define __compile-define-values% - (lambda (_stx16965_) - (let* ((_$e16967_ _stx16965_) - (_$E1696916981_ + (lambda (_stx16914_) + (let* ((_$e16916_ _stx16914_) + (_$E1691816930_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e16967_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16967_)) - (let* ((_$tgt1697016984_ - (let () (declare (not safe)) (__AST-e _$e16967_))) - (_$hd1697116987_ - (let () (declare (not safe)) (##car _$tgt1697016984_))) - (_$tl1697216990_ - (let () (declare (not safe)) (##cdr _$tgt1697016984_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1697216990_)) - (let* ((_$tgt1697316994_ + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e16916_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16916_)) + (let* ((_$tgt1691916933_ + (let () (declare (not safe)) (__AST-e _$e16916_))) + (_$hd1692016936_ + (let () (declare (not safe)) (##car _$tgt1691916933_))) + (_$tl1692116939_ + (let () (declare (not safe)) (##cdr _$tgt1691916933_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1692116939_)) + (let* ((_$tgt1692216943_ (let () (declare (not safe)) - (__AST-e _$tl1697216990_))) - (_$hd1697416997_ + (__AST-e _$tl1692116939_))) + (_$hd1692316946_ (let () (declare (not safe)) - (##car _$tgt1697316994_))) - (_$tl1697517000_ + (##car _$tgt1692216943_))) + (_$tl1692416949_ (let () (declare (not safe)) - (##cdr _$tgt1697316994_)))) - (let ((_hd17004_ _$hd1697416997_)) + (##cdr _$tgt1692216943_)))) + (let ((_hd16953_ _$hd1692316946_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1697517000_)) - (let* ((_$tgt1697617006_ + (__AST-pair? _$tl1692416949_)) + (let* ((_$tgt1692516955_ (let () (declare (not safe)) - (__AST-e _$tl1697517000_))) - (_$hd1697717009_ + (__AST-e _$tl1692416949_))) + (_$hd1692616958_ (let () (declare (not safe)) - (##car _$tgt1697617006_))) - (_$tl1697817012_ + (##car _$tgt1692516955_))) + (_$tl1692716961_ (let () (declare (not safe)) - (##cdr _$tgt1697617006_)))) - (let ((_expr17016_ _$hd1697717009_)) - (if (let ((__tmp17716 + (##cdr _$tgt1692516955_)))) + (let ((_expr16965_ _$hd1692616958_)) + (if (let ((__tmp17665 (let () (declare (not safe)) - (__AST-e _$tl1697817012_)))) + (__AST-e _$tl1692716961_)))) (declare (not safe)) - (equal? __tmp17716 '())) - (let* ((_$e17018_ _hd17004_) - (_$E1702017061_ + (equal? __tmp17665 '())) + (let* ((_$e16967_ _hd16953_) + (_$E1696917010_ (lambda () - (let ((_$E1702117046_ + (let ((_$E1697016995_ (lambda () - (let* ((_$E1702217033_ + (let* ((_$E1697116982_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (__raise-syntax-error '#f - '"Bad syntax" - _$e17018_)))) - (_ids17036_ _hd17004_) - (_len17038_ (length _ids17036_)) - (_tmp17040_ - (let ((__tmp17684 (gensym))) + '"Bad syntax; malformed ast clause" + _$e16967_)))) + (_ids16985_ _hd16953_) + (_len16987_ (length _ids16985_)) + (_tmp16989_ + (let ((__tmp17633 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17684)))) - (let ((__tmp17685 - (let ((__tmp17686 - (let ((__tmp17703 - (let ((__tmp17704 - (let ((__tmp17705 - (let ((__tmp17706 - (let ((__tmp17707 + (__SRC__0 __tmp17633)))) + (let ((__tmp17634 + (let ((__tmp17635 + (let ((__tmp17652 + (let ((__tmp17653 + (let ((__tmp17654 + (let ((__tmp17655 + (let ((__tmp17656 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr17016_)))) + (__compile _expr16965_)))) (declare (not safe)) - (cons __tmp17707 '())))) + (cons __tmp17656 '())))) (declare (not safe)) - (cons _tmp17040_ __tmp17706)))) + (cons _tmp16989_ __tmp17655)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp17705)))) + (cons 'define __tmp17654)))) (declare (not safe)) - (__SRC__% __tmp17704 _stx16965_))) - (__tmp17687 - (let ((__tmp17699 - (let ((__tmp17700 - (let ((__tmp17701 - (let ((__tmp17702 + (__SRC__% __tmp17653 _stx16914_))) + (__tmp17636 + (let ((__tmp17648 + (let ((__tmp17649 + (let ((__tmp17650 + (let ((__tmp17651 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _len17038_ '())))) + (let () (declare (not safe)) (cons _len16987_ '())))) (declare (not safe)) - (cons _tmp17040_ __tmp17702)))) + (cons _tmp16989_ __tmp17651)))) (declare (not safe)) - (cons '__check-values __tmp17701)))) + (cons '__check-values __tmp17650)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17700 - _stx16965_))) - (__tmp17688 - (let ((__tmp17689 - (let ((__tmp17691 - (lambda (_id17043_ + __tmp17649 + _stx16914_))) + (__tmp17637 + (let ((__tmp17638 + (let ((__tmp17640 + (lambda (_id16992_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k17044_) - (if (let () (declare (not safe)) (__AST-e _id17043_)) - (let ((__tmp17692 - (let ((__tmp17693 - (let ((__tmp17698 + _k16993_) + (if (let () (declare (not safe)) (__AST-e _id16992_)) + (let ((__tmp17641 + (let ((__tmp17642 + (let ((__tmp17647 (let () (declare (not safe)) - (__SRC__0 _id17043_))) - (__tmp17694 - (let ((__tmp17695 - (let ((__tmp17696 - (let ((__tmp17697 + (__SRC__0 _id16992_))) + (__tmp17643 + (let ((__tmp17644 + (let ((__tmp17645 + (let ((__tmp17646 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k17044_ '())))) + (let () (declare (not safe)) (cons _k16993_ '())))) (declare (not safe)) - (cons _tmp17040_ __tmp17697)))) + (cons _tmp16989_ __tmp17646)))) (declare (not safe)) - (cons '##vector-ref __tmp17696)))) + (cons '##vector-ref __tmp17645)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17695 '())))) + (cons __tmp17644 '())))) (declare (not safe)) - (cons __tmp17698 __tmp17694)))) + (cons __tmp17647 __tmp17643)))) (declare (not safe)) - (cons 'define __tmp17693)))) + (cons 'define __tmp17642)))) (declare (not safe)) - (__SRC__% __tmp17692 _stx16965_)) + (__SRC__% __tmp17641 _stx16914_)) '#f))) - (__tmp17690 (let () (declare (not safe)) (iota _len17038_)))) + (__tmp17639 (let () (declare (not safe)) (iota _len16987_)))) (declare (not safe)) - (filter-map2 __tmp17691 _ids17036_ __tmp17690)))) + (filter-map2 __tmp17640 _ids16985_ __tmp17639)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp17689)))) + (foldr1 cons '() __tmp17638)))) (declare (not safe)) - (cons __tmp17699 __tmp17688)))) + (cons __tmp17648 __tmp17637)))) (declare (not safe)) - (cons __tmp17703 __tmp17687)))) + (cons __tmp17652 __tmp17636)))) (declare (not safe)) - (cons 'begin __tmp17686)))) + (cons 'begin __tmp17635)))) (declare (not safe)) - (__SRC__% __tmp17685 _stx16965_)))))) + (__SRC__% __tmp17634 _stx16914_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e17018_)) - (let* ((_$tgt1702317049_ + (__AST-pair? _$e16967_)) + (let* ((_$tgt1697216998_ (let () (declare (not safe)) - (__AST-e _$e17018_))) - (_$hd1702417052_ + (__AST-e _$e16967_))) + (_$hd1697317001_ (let () (declare (not safe)) - (##car _$tgt1702317049_))) - (_$tl1702517055_ + (##car _$tgt1697216998_))) + (_$tl1697417004_ (let () (declare (not safe)) - (##cdr _$tgt1702317049_)))) - (let ((_id17059_ - _$hd1702417052_)) - (if (let ((__tmp17713 + (##cdr _$tgt1697216998_)))) + (let ((_id17008_ + _$hd1697317001_)) + (if (let ((__tmp17662 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl1702517055_)))) + (__AST-e _$tl1697417004_)))) (declare (not safe)) - (equal? __tmp17713 '())) - (let ((__tmp17708 - (let ((__tmp17709 - (let ((__tmp17712 + (equal? __tmp17662 '())) + (let ((__tmp17657 + (let ((__tmp17658 + (let ((__tmp17661 (let () (declare (not safe)) - (__SRC__0 _id17059_))) - (__tmp17710 - (let ((__tmp17711 + (__SRC__0 _id17008_))) + (__tmp17659 + (let ((__tmp17660 (let () (declare (not safe)) - (__compile _expr17016_)))) + (__compile _expr16965_)))) (declare (not safe)) - (cons __tmp17711 '())))) + (cons __tmp17660 '())))) (declare (not safe)) - (cons __tmp17712 __tmp17710)))) + (cons __tmp17661 __tmp17659)))) (declare (not safe)) - (cons 'define __tmp17709)))) + (cons 'define __tmp17658)))) (declare (not safe)) - (__SRC__% __tmp17708 _stx16965_)) - (let () (declare (not safe)) (_$E1702117046_))))) + (__SRC__% __tmp17657 _stx16914_)) + (let () (declare (not safe)) (_$E1697016995_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E1702117046_))))))) + (_$E1697016995_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e17018_)) - (let* ((_$tgt1702617064_ + (__AST-pair? _$e16967_)) + (let* ((_$tgt1697517013_ (let () (declare (not safe)) - (__AST-e _$e17018_))) - (_$hd1702717067_ + (__AST-e _$e16967_))) + (_$hd1697617016_ (let () (declare (not safe)) - (##car _$tgt1702617064_))) - (_$tl1702817070_ + (##car _$tgt1697517013_))) + (_$tl1697717019_ (let () (declare (not safe)) - (##cdr _$tgt1702617064_)))) - (if (let ((__tmp17715 + (##cdr _$tgt1697517013_)))) + (if (let ((__tmp17664 (let () (declare (not safe)) - (__AST-e _$hd1702717067_)))) + (__AST-e _$hd1697617016_)))) (declare (not safe)) - (equal? __tmp17715 '#f)) - (if (let ((__tmp17714 + (equal? __tmp17664 '#f)) + (if (let ((__tmp17663 (let () (declare (not safe)) - (__AST-e _$tl1702817070_)))) + (__AST-e _$tl1697717019_)))) (declare (not safe)) - (equal? __tmp17714 '())) + (equal? __tmp17663 '())) (let () (declare (not safe)) - (__compile _expr17016_)) + (__compile _expr16965_)) (let () (declare (not safe)) - (_$E1702017061_))) + (_$E1696917010_))) (let () (declare (not safe)) - (_$E1702017061_)))) + (_$E1696917010_)))) (let () (declare (not safe)) - (_$E1702017061_)))) + (_$E1696917010_)))) (let () (declare (not safe)) - (_$E1696916981_))))) - (let () (declare (not safe)) (_$E1696916981_))))) - (let () (declare (not safe)) (_$E1696916981_)))) - (let () (declare (not safe)) (_$E1696916981_)))))) + (_$E1691816930_))))) + (let () (declare (not safe)) (_$E1691816930_))))) + (let () (declare (not safe)) (_$E1691816930_)))) + (let () (declare (not safe)) (_$E1691816930_)))))) (define __compile-head-id - (lambda (_e16963_) - (let ((__tmp17717 - (if (let () (declare (not safe)) (__AST-e _e16963_)) - _e16963_ + (lambda (_e16912_) + (let ((__tmp17666 + (if (let () (declare (not safe)) (__AST-e _e16912_)) + _e16912_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp17717)))) + (__SRC__0 __tmp17666)))) (define __compile-lambda-head - (lambda (_hd16920_) - (let _recur16922_ ((_rest16924_ _hd16920_)) - (let* ((_$e16926_ _rest16924_) - (_$E1692816946_ + (lambda (_hd16869_) + (let _recur16871_ ((_rest16873_ _hd16869_)) + (let* ((_$e16875_ _rest16873_) + (_$E1687716895_ (lambda () - (let ((_$E1692916943_ + (let ((_$E1687816892_ (lambda () - (let* ((_$E1693016938_ + (let* ((_$E1687916887_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f - '"Bad syntax" - _$e16926_)))) - (_tail16941_ _$e16926_)) + '"Bad syntax; malformed ast clause" + _$e16875_)))) + (_tail16890_ _$e16875_)) (declare (not safe)) - (__compile-head-id _tail16941_))))) - (if (let ((__tmp17718 + (__compile-head-id _tail16890_))))) + (if (let ((__tmp17667 (let () (declare (not safe)) - (__AST-e _$e16926_)))) + (__AST-e _$e16875_)))) (declare (not safe)) - (equal? __tmp17718 '())) + (equal? __tmp17667 '())) '() - (let () (declare (not safe)) (_$E1692916943_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16926_)) - (let* ((_$tgt1693116949_ - (let () (declare (not safe)) (__AST-e _$e16926_))) - (_$hd1693216952_ - (let () (declare (not safe)) (##car _$tgt1693116949_))) - (_$tl1693316955_ + (let () (declare (not safe)) (_$E1687816892_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16875_)) + (let* ((_$tgt1688016898_ + (let () (declare (not safe)) (__AST-e _$e16875_))) + (_$hd1688116901_ + (let () (declare (not safe)) (##car _$tgt1688016898_))) + (_$tl1688216904_ (let () (declare (not safe)) - (##cdr _$tgt1693116949_)))) - (let* ((_hd16959_ _$hd1693216952_) - (_rest16961_ _$tl1693316955_)) - (let ((__tmp17720 + (##cdr _$tgt1688016898_)))) + (let* ((_hd16908_ _$hd1688116901_) + (_rest16910_ _$tl1688216904_)) + (let ((__tmp17669 (let () (declare (not safe)) - (__compile-head-id _hd16959_))) - (__tmp17719 + (__compile-head-id _hd16908_))) + (__tmp17668 (let () (declare (not safe)) - (_recur16922_ _rest16961_)))) + (_recur16871_ _rest16910_)))) (declare (not safe)) - (cons __tmp17720 __tmp17719)))) - (let () (declare (not safe)) (_$E1692816946_))))))) + (cons __tmp17669 __tmp17668)))) + (let () (declare (not safe)) (_$E1687716895_))))))) (define __compile-lambda% - (lambda (_stx16867_) - (let* ((_$e16869_ _stx16867_) - (_$E1687116883_ + (lambda (_stx16816_) + (let* ((_$e16818_ _stx16816_) + (_$E1682016832_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e16869_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16869_)) - (let* ((_$tgt1687216886_ - (let () (declare (not safe)) (__AST-e _$e16869_))) - (_$hd1687316889_ - (let () (declare (not safe)) (##car _$tgt1687216886_))) - (_$tl1687416892_ - (let () (declare (not safe)) (##cdr _$tgt1687216886_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1687416892_)) - (let* ((_$tgt1687516896_ + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e16818_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16818_)) + (let* ((_$tgt1682116835_ + (let () (declare (not safe)) (__AST-e _$e16818_))) + (_$hd1682216838_ + (let () (declare (not safe)) (##car _$tgt1682116835_))) + (_$tl1682316841_ + (let () (declare (not safe)) (##cdr _$tgt1682116835_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1682316841_)) + (let* ((_$tgt1682416845_ (let () (declare (not safe)) - (__AST-e _$tl1687416892_))) - (_$hd1687616899_ + (__AST-e _$tl1682316841_))) + (_$hd1682516848_ (let () (declare (not safe)) - (##car _$tgt1687516896_))) - (_$tl1687716902_ + (##car _$tgt1682416845_))) + (_$tl1682616851_ (let () (declare (not safe)) - (##cdr _$tgt1687516896_)))) - (let ((_hd16906_ _$hd1687616899_)) + (##cdr _$tgt1682416845_)))) + (let ((_hd16855_ _$hd1682516848_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1687716902_)) - (let* ((_$tgt1687816908_ + (__AST-pair? _$tl1682616851_)) + (let* ((_$tgt1682716857_ (let () (declare (not safe)) - (__AST-e _$tl1687716902_))) - (_$hd1687916911_ + (__AST-e _$tl1682616851_))) + (_$hd1682816860_ (let () (declare (not safe)) - (##car _$tgt1687816908_))) - (_$tl1688016914_ + (##car _$tgt1682716857_))) + (_$tl1682916863_ (let () (declare (not safe)) - (##cdr _$tgt1687816908_)))) - (let ((_body16918_ _$hd1687916911_)) - (if (let ((__tmp17726 + (##cdr _$tgt1682716857_)))) + (let ((_body16867_ _$hd1682816860_)) + (if (let ((__tmp17675 (let () (declare (not safe)) - (__AST-e _$tl1688016914_)))) + (__AST-e _$tl1682916863_)))) (declare (not safe)) - (equal? __tmp17726 '())) - (let ((__tmp17721 - (let ((__tmp17722 - (let ((__tmp17725 + (equal? __tmp17675 '())) + (let ((__tmp17670 + (let ((__tmp17671 + (let ((__tmp17674 (let () (declare (not safe)) (__compile-lambda-head - _hd16906_))) - (__tmp17723 - (let ((__tmp17724 + _hd16855_))) + (__tmp17672 + (let ((__tmp17673 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body16918_)))) + (__compile _body16867_)))) (declare (not safe)) - (cons __tmp17724 '())))) + (cons __tmp17673 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17725 - __tmp17723)))) + (cons __tmp17674 + __tmp17672)))) (declare (not safe)) - (cons 'lambda __tmp17722)))) + (cons 'lambda __tmp17671)))) (declare (not safe)) - (__SRC__% __tmp17721 _stx16867_)) + (__SRC__% __tmp17670 _stx16816_)) (let () (declare (not safe)) - (_$E1687116883_))))) - (let () (declare (not safe)) (_$E1687116883_))))) - (let () (declare (not safe)) (_$E1687116883_)))) - (let () (declare (not safe)) (_$E1687116883_)))))) + (_$E1682016832_))))) + (let () (declare (not safe)) (_$E1682016832_))))) + (let () (declare (not safe)) (_$E1682016832_)))) + (let () (declare (not safe)) (_$E1682016832_)))))) (define __compile-case-lambda% - (lambda (_stx16659_) - (letrec ((_variadic?16661_ - (lambda (_hd16832_) - (let* ((_$e16834_ _hd16832_) - (_$E1683616852_ + (lambda (_stx16608_) + (letrec ((_variadic?16610_ + (lambda (_hd16781_) + (let* ((_$e16783_ _hd16781_) + (_$E1678516801_ (lambda () - (let ((_$E1683716849_ + (let ((_$E1678616798_ (lambda () - (let ((_$E1683816846_ + (let ((_$E1678716795_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f - '"Bad syntax" - _$e16834_))))) + '"Bad syntax; malformed ast clause" + _$e16783_))))) '#t)))) - (if (let ((__tmp17727 + (if (let ((__tmp17676 (let () (declare (not safe)) - (__AST-e _$e16834_)))) + (__AST-e _$e16783_)))) (declare (not safe)) - (equal? __tmp17727 '())) + (equal? __tmp17676 '())) '#f (let () (declare (not safe)) - (_$E1683716849_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16834_)) - (let* ((_$tgt1683916855_ + (_$E1678616798_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16783_)) + (let* ((_$tgt1678816804_ (let () (declare (not safe)) - (__AST-e _$e16834_))) - (_$hd1684016858_ + (__AST-e _$e16783_))) + (_$hd1678916807_ (let () (declare (not safe)) - (##car _$tgt1683916855_))) - (_$tl1684116861_ + (##car _$tgt1678816804_))) + (_$tl1679016810_ (let () (declare (not safe)) - (##cdr _$tgt1683916855_)))) - (let ((_rest16865_ _$tl1684116861_)) + (##cdr _$tgt1678816804_)))) + (let ((_rest16814_ _$tl1679016810_)) (declare (not safe)) - (_variadic?16661_ _rest16865_))) - (let () (declare (not safe)) (_$E1683616852_)))))) - (_arity16662_ - (lambda (_hd16797_) - (let _lp16799_ ((_rest16801_ _hd16797_) (_k16802_ '0)) - (let* ((_$e16804_ _rest16801_) - (_$E1680616817_ + (_variadic?16610_ _rest16814_))) + (let () (declare (not safe)) (_$E1678516801_)))))) + (_arity16611_ + (lambda (_hd16746_) + (let _lp16748_ ((_rest16750_ _hd16746_) (_k16751_ '0)) + (let* ((_$e16753_ _rest16750_) + (_$E1675516766_ (lambda () - (let ((_$E1680716814_ + (let ((_$E1675616763_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f - '"Bad syntax" - _$e16804_))))) - _k16802_)))) + '"Bad syntax; malformed ast clause" + _$e16753_))))) + _k16751_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e16804_)) - (let* ((_$tgt1680816820_ + (__AST-pair? _$e16753_)) + (let* ((_$tgt1675716769_ (let () (declare (not safe)) - (__AST-e _$e16804_))) - (_$hd1680916823_ + (__AST-e _$e16753_))) + (_$hd1675816772_ (let () (declare (not safe)) - (##car _$tgt1680816820_))) - (_$tl1681016826_ + (##car _$tgt1675716769_))) + (_$tl1675916775_ (let () (declare (not safe)) - (##cdr _$tgt1680816820_)))) - (let* ((_rest16830_ _$tl1681016826_) - (__tmp17728 + (##cdr _$tgt1675716769_)))) + (let* ((_rest16779_ _$tl1675916775_) + (__tmp17677 (let () (declare (not safe)) - (fx+ _k16802_ '1)))) + (fx+ _k16751_ '1)))) (declare (not safe)) - (_lp16799_ _rest16830_ __tmp17728))) - (let () (declare (not safe)) (_$E1680616817_))))))) - (_generate16663_ - (lambda (_rest16724_ _args16725_ _len16726_) - (let* ((_$e16728_ _rest16724_) - (_$E1673016741_ + (_lp16748_ _rest16779_ __tmp17677))) + (let () (declare (not safe)) (_$E1675516766_))))))) + (_generate16612_ + (lambda (_rest16673_ _args16674_ _len16675_) + (let* ((_$e16677_ _rest16673_) + (_$E1667916690_ (lambda () - (let* ((_$E1673116738_ + (let* ((_$E1668016687_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f - '"Bad syntax" - _$e16728_)))) - (__tmp17729 - (let ((__tmp17730 - (let ((__tmp17731 + '"Bad syntax; malformed ast clause" + _$e16677_)))) + (__tmp17678 + (let ((__tmp17679 + (let ((__tmp17680 (let () (declare (not safe)) - (cons _args16725_ '())))) + (cons _args16674_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp17731)))) + __tmp17680)))) (declare (not safe)) - (cons 'error __tmp17730)))) + (cons 'error __tmp17679)))) (declare (not safe)) - (__SRC__% __tmp17729 _stx16659_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16728_)) - (let* ((_$tgt1673216744_ + (__SRC__% __tmp17678 _stx16608_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16677_)) + (let* ((_$tgt1668116693_ (let () (declare (not safe)) - (__AST-e _$e16728_))) - (_$hd1673316747_ + (__AST-e _$e16677_))) + (_$hd1668216696_ (let () (declare (not safe)) - (##car _$tgt1673216744_))) - (_$tl1673416750_ + (##car _$tgt1668116693_))) + (_$tl1668316699_ (let () (declare (not safe)) - (##cdr _$tgt1673216744_)))) - (let* ((_clause16754_ _$hd1673316747_) - (_rest16756_ _$tl1673416750_) - (_$e16758_ _clause16754_) - (_$E1676016769_ + (##cdr _$tgt1668116693_)))) + (let* ((_clause16703_ _$hd1668216696_) + (_rest16705_ _$tl1668316699_) + (_$e16707_ _clause16703_) + (_$E1670916718_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f - '"Bad syntax" - _$e16758_))))) + '"Bad syntax; malformed ast clause" + _$e16707_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e16758_)) - (let* ((_$tgt1676116772_ + (__AST-pair? _$e16707_)) + (let* ((_$tgt1671016721_ (let () (declare (not safe)) - (__AST-e _$e16758_))) - (_$hd1676216775_ + (__AST-e _$e16707_))) + (_$hd1671116724_ (let () (declare (not safe)) - (##car _$tgt1676116772_))) - (_$tl1676316778_ + (##car _$tgt1671016721_))) + (_$tl1671216727_ (let () (declare (not safe)) - (##cdr _$tgt1676116772_)))) - (let ((_hd16782_ _$hd1676216775_)) + (##cdr _$tgt1671016721_)))) + (let ((_hd16731_ _$hd1671116724_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1676316778_)) - (let* ((_$tgt1676416784_ + (__AST-pair? _$tl1671216727_)) + (let* ((_$tgt1671316733_ (let () (declare (not safe)) - (__AST-e _$tl1676316778_))) - (_$hd1676516787_ + (__AST-e _$tl1671216727_))) + (_$hd1671416736_ (let () (declare (not safe)) - (##car _$tgt1676416784_))) - (_$tl1676616790_ + (##car _$tgt1671316733_))) + (_$tl1671516739_ (let () (declare (not safe)) - (##cdr _$tgt1676416784_)))) - (if (let ((__tmp17746 + (##cdr _$tgt1671316733_)))) + (if (let ((__tmp17695 (let () (declare (not safe)) - (__AST-e _$tl1676616790_)))) + (__AST-e _$tl1671516739_)))) (declare (not safe)) - (equal? __tmp17746 '())) - (let ((_clen16794_ + (equal? __tmp17695 '())) + (let ((_clen16743_ (let () (declare (not safe)) - (_arity16662_ - _hd16782_))) - (_cmp16795_ + (_arity16611_ + _hd16731_))) + (_cmp16744_ (if (let () (declare (not safe)) - (_variadic?16661_ - _hd16782_)) + (_variadic?16610_ + _hd16731_)) 'fx>= 'fx=))) - (let ((__tmp17732 - (let ((__tmp17733 - (let ((__tmp17743 + (let ((__tmp17681 + (let ((__tmp17682 + (let ((__tmp17692 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17744 - (let ((__tmp17745 + (let ((__tmp17693 + (let ((__tmp17694 (let () (declare (not safe)) - (cons _clen16794_ '())))) + (cons _clen16743_ '())))) (declare (not safe)) - (cons _len16726_ __tmp17745)))) + (cons _len16675_ __tmp17694)))) (declare (not safe)) - (cons _cmp16795_ __tmp17744))) - (__tmp17734 - (let ((__tmp17737 - (let ((__tmp17738 - (let ((__tmp17739 - (let ((__tmp17741 - (let ((__tmp17742 + (cons _cmp16744_ __tmp17693))) + (__tmp17683 + (let ((__tmp17686 + (let ((__tmp17687 + (let ((__tmp17688 + (let ((__tmp17690 + (let ((__tmp17691 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause16754_)))) + (cons '%#lambda _clause16703_)))) (declare (not safe)) - (__compile-lambda% __tmp17742))) - (__tmp17740 - (let () (declare (not safe)) (cons _args16725_ '())))) + (__compile-lambda% __tmp17691))) + (__tmp17689 + (let () (declare (not safe)) (cons _args16674_ '())))) (declare (not safe)) - (cons __tmp17741 __tmp17740)))) + (cons __tmp17690 __tmp17689)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp17739)))) + (cons '##apply __tmp17688)))) (declare (not safe)) - (__SRC__% __tmp17738 _stx16659_))) - (__tmp17735 - (let ((__tmp17736 + (__SRC__% __tmp17687 _stx16608_))) + (__tmp17684 + (let ((__tmp17685 (let () (declare (not safe)) - (_generate16663_ - _rest16756_ - _args16725_ - _len16726_)))) + (_generate16612_ + _rest16705_ + _args16674_ + _len16675_)))) (declare (not safe)) - (cons __tmp17736 '())))) + (cons __tmp17685 '())))) (declare (not safe)) - (cons __tmp17737 __tmp17735)))) + (cons __tmp17686 __tmp17684)))) (declare (not safe)) - (cons __tmp17743 __tmp17734)))) + (cons __tmp17692 __tmp17683)))) (declare (not safe)) - (cons 'if __tmp17733)))) + (cons 'if __tmp17682)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17732 - _stx16659_))) + __tmp17681 + _stx16608_))) (let () (declare (not safe)) - (_$E1676016769_)))) + (_$E1670916718_)))) (let () (declare (not safe)) - (_$E1676016769_))))) + (_$E1670916718_))))) (let () (declare (not safe)) - (_$E1676016769_))))) - (let () (declare (not safe)) (_$E1673016741_))))))) - (let* ((_$e16665_ _stx16659_) - (_$E1666716699_ + (_$E1670916718_))))) + (let () (declare (not safe)) (_$E1667916690_))))))) + (let* ((_$e16614_ _stx16608_) + (_$E1661616648_ (lambda () - (let ((_$E1666816681_ + (let ((_$E1661716630_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f - '"Bad syntax" - _$e16665_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16665_)) - (let* ((_$tgt1666916684_ + '"Bad syntax; malformed ast clause" + _$e16614_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16614_)) + (let* ((_$tgt1661816633_ (let () (declare (not safe)) - (__AST-e _$e16665_))) - (_$hd1667016687_ + (__AST-e _$e16614_))) + (_$hd1661916636_ (let () (declare (not safe)) - (##car _$tgt1666916684_))) - (_$tl1667116690_ + (##car _$tgt1661816633_))) + (_$tl1662016639_ (let () (declare (not safe)) - (##cdr _$tgt1666916684_)))) - (let ((_clauses16694_ _$tl1667116690_)) - (let ((_args16696_ - (let ((__tmp17747 (gensym))) + (##cdr _$tgt1661816633_)))) + (let ((_clauses16643_ _$tl1662016639_)) + (let ((_args16645_ + (let ((__tmp17696 (gensym))) (declare (not safe)) - (__SRC__% __tmp17747 _stx16659_))) - (_len16697_ - (let ((__tmp17748 (gensym))) + (__SRC__% __tmp17696 _stx16608_))) + (_len16646_ + (let ((__tmp17697 (gensym))) (declare (not safe)) - (__SRC__% __tmp17748 _stx16659_)))) - (let ((__tmp17749 - (let ((__tmp17750 - (let ((__tmp17751 - (let ((__tmp17752 - (let ((__tmp17753 + (__SRC__% __tmp17697 _stx16608_)))) + (let ((__tmp17698 + (let ((__tmp17699 + (let ((__tmp17700 + (let ((__tmp17701 + (let ((__tmp17702 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17754 - (let ((__tmp17757 - (let ((__tmp17758 - (let ((__tmp17759 - (let ((__tmp17760 - (let ((__tmp17761 + (let ((__tmp17703 + (let ((__tmp17706 + (let ((__tmp17707 + (let ((__tmp17708 + (let ((__tmp17709 + (let ((__tmp17710 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17762 + (let ((__tmp17711 (let () (declare (not safe)) - (cons _args16696_ '())))) + (cons _args16645_ '())))) (declare (not safe)) - (cons '##length __tmp17762)))) + (cons '##length __tmp17711)))) (declare (not safe)) - (__SRC__% __tmp17761 _stx16659_)))) + (__SRC__% __tmp17710 _stx16608_)))) (declare (not safe)) - (cons __tmp17760 '())))) + (cons __tmp17709 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len16697_ - __tmp17759)))) + (cons _len16646_ + __tmp17708)))) (declare (not safe)) - (cons __tmp17758 '()))) - (__tmp17755 - (let ((__tmp17756 + (cons __tmp17707 '()))) + (__tmp17704 + (let ((__tmp17705 (let () (declare (not safe)) - (_generate16663_ - _clauses16694_ - _args16696_ - _len16697_)))) + (_generate16612_ + _clauses16643_ + _args16645_ + _len16646_)))) (declare (not safe)) - (cons __tmp17756 '())))) + (cons __tmp17705 '())))) (declare (not safe)) - (cons __tmp17757 __tmp17755)))) + (cons __tmp17706 __tmp17704)))) (declare (not safe)) - (cons 'let __tmp17754)))) + (cons 'let __tmp17703)))) (declare (not safe)) - (__SRC__% __tmp17753 _stx16659_)))) + (__SRC__% __tmp17702 _stx16608_)))) (declare (not safe)) - (cons __tmp17752 '())))) + (cons __tmp17701 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args16696_ - __tmp17751)))) + (cons _args16645_ + __tmp17700)))) (declare (not safe)) - (cons 'lambda __tmp17750)))) + (cons 'lambda __tmp17699)))) (declare (not safe)) - (__SRC__% __tmp17749 _stx16659_))))) - (let () (declare (not safe)) (_$E1666816681_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16665_)) - (let* ((_$tgt1667216702_ - (let () (declare (not safe)) (__AST-e _$e16665_))) - (_$hd1667316705_ - (let () (declare (not safe)) (##car _$tgt1667216702_))) - (_$tl1667416708_ + (__SRC__% __tmp17698 _stx16608_))))) + (let () (declare (not safe)) (_$E1661716630_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16614_)) + (let* ((_$tgt1662116651_ + (let () (declare (not safe)) (__AST-e _$e16614_))) + (_$hd1662216654_ + (let () (declare (not safe)) (##car _$tgt1662116651_))) + (_$tl1662316657_ (let () (declare (not safe)) - (##cdr _$tgt1667216702_)))) + (##cdr _$tgt1662116651_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1667416708_)) - (let* ((_$tgt1667516712_ + (__AST-pair? _$tl1662316657_)) + (let* ((_$tgt1662416661_ (let () (declare (not safe)) - (__AST-e _$tl1667416708_))) - (_$hd1667616715_ + (__AST-e _$tl1662316657_))) + (_$hd1662516664_ (let () (declare (not safe)) - (##car _$tgt1667516712_))) - (_$tl1667716718_ + (##car _$tgt1662416661_))) + (_$tl1662616667_ (let () (declare (not safe)) - (##cdr _$tgt1667516712_)))) - (let ((_clause16722_ _$hd1667616715_)) - (if (let ((__tmp17764 + (##cdr _$tgt1662416661_)))) + (let ((_clause16671_ _$hd1662516664_)) + (if (let ((__tmp17713 (let () (declare (not safe)) - (__AST-e _$tl1667716718_)))) + (__AST-e _$tl1662616667_)))) (declare (not safe)) - (equal? __tmp17764 '())) - (let ((__tmp17763 + (equal? __tmp17713 '())) + (let ((__tmp17712 (let () (declare (not safe)) - (cons '%#lambda _clause16722_)))) + (cons '%#lambda _clause16671_)))) (declare (not safe)) - (__compile-lambda% __tmp17763)) - (let () (declare (not safe)) (_$E1666716699_))))) - (let () (declare (not safe)) (_$E1666716699_)))) - (let () (declare (not safe)) (_$E1666716699_))))))) + (__compile-lambda% __tmp17712)) + (let () (declare (not safe)) (_$E1661616648_))))) + (let () (declare (not safe)) (_$E1661616648_)))) + (let () (declare (not safe)) (_$E1661616648_))))))) (define __compile-let-form - (lambda (_stx16428_ _compile-simple16429_ _compile-values16430_) - (letrec ((_simple-bind?16432_ - (lambda (_hd16617_) - (let* ((_hd1661816628_ _hd16617_) - (_else1662116636_ (lambda () '#f))) - (let ((_K1662416649_ (lambda (_id16647_) '#t)) - (_K1662316641_ (lambda () '#t))) - (let ((_try-match1662016644_ + (lambda (_stx16377_ _compile-simple16378_ _compile-values16379_) + (letrec ((_simple-bind?16381_ + (lambda (_hd16566_) + (let* ((_hd1656716577_ _hd16566_) + (_else1657016585_ (lambda () '#f))) + (let ((_K1657316598_ (lambda (_id16596_) '#t)) + (_K1657216590_ (lambda () '#t))) + (let ((_try-match1656916593_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd1661816628_ '#f)) + (##eq? _hd1656716577_ '#f)) (let () (declare (not safe)) - (_K1662316641_)) + (_K1657216590_)) (let () (declare (not safe)) - (_else1662116636_)))))) + (_else1657016585_)))))) (if (let () (declare (not safe)) - (##pair? _hd1661816628_)) - (let ((_tl1662616654_ + (##pair? _hd1656716577_)) + (let ((_tl1657516603_ (let () (declare (not safe)) - (##cdr _hd1661816628_))) - (_hd1662516652_ + (##cdr _hd1656716577_))) + (_hd1657416601_ (let () (declare (not safe)) - (##car _hd1661816628_)))) + (##car _hd1656716577_)))) (if (let () (declare (not safe)) - (##null? _tl1662616654_)) - (let ((_id16657_ _hd1662516652_)) + (##null? _tl1657516603_)) + (let ((_id16606_ _hd1657416601_)) (declare (not safe)) - (_K1662416649_ _id16657_)) + (_K1657316598_ _id16606_)) (let () (declare (not safe)) - (_try-match1662016644_)))) + (_try-match1656916593_)))) (let () (declare (not safe)) - (_try-match1662016644_)))))))) - (_car-e16433_ - (lambda (_hd16615_) - (if (let () (declare (not safe)) (pair? _hd16615_)) - (car _hd16615_) - _hd16615_)))) - (let* ((_$e16435_ _stx16428_) - (_$E1643716580_ + (_try-match1656916593_)))))))) + (_car-e16382_ + (lambda (_hd16564_) + (if (let () (declare (not safe)) (pair? _hd16564_)) + (car _hd16564_) + _hd16564_)))) + (let* ((_$e16384_ _stx16377_) + (_$E1638616529_ (lambda () - (let ((_$E1643816460_ + (let ((_$E1638716409_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f - '"Bad syntax" - _$e16435_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16435_)) - (let* ((_$tgt1643916463_ + '"Bad syntax; malformed ast clause" + _$e16384_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16384_)) + (let* ((_$tgt1638816412_ (let () (declare (not safe)) - (__AST-e _$e16435_))) - (_$hd1644016466_ + (__AST-e _$e16384_))) + (_$hd1638916415_ (let () (declare (not safe)) - (##car _$tgt1643916463_))) - (_$tl1644116469_ + (##car _$tgt1638816412_))) + (_$tl1639016418_ (let () (declare (not safe)) - (##cdr _$tgt1643916463_)))) + (##cdr _$tgt1638816412_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1644116469_)) - (let* ((_$tgt1644216473_ + (__AST-pair? _$tl1639016418_)) + (let* ((_$tgt1639116422_ (let () (declare (not safe)) - (__AST-e _$tl1644116469_))) - (_$hd1644316476_ + (__AST-e _$tl1639016418_))) + (_$hd1639216425_ (let () (declare (not safe)) - (##car _$tgt1644216473_))) - (_$tl1644416479_ + (##car _$tgt1639116422_))) + (_$tl1639316428_ (let () (declare (not safe)) - (##cdr _$tgt1644216473_)))) - (let ((_hd16483_ _$hd1644316476_)) + (##cdr _$tgt1639116422_)))) + (let ((_hd16432_ _$hd1639216425_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1644416479_)) - (let* ((_$tgt1644516485_ + (__AST-pair? _$tl1639316428_)) + (let* ((_$tgt1639416434_ (let () (declare (not safe)) - (__AST-e _$tl1644416479_))) - (_$hd1644616488_ + (__AST-e _$tl1639316428_))) + (_$hd1639516437_ (let () (declare (not safe)) - (##car _$tgt1644516485_))) - (_$tl1644716491_ + (##car _$tgt1639416434_))) + (_$tl1639616440_ (let () (declare (not safe)) - (##cdr _$tgt1644516485_)))) - (let ((_body16495_ _$hd1644616488_)) - (if (let ((__tmp17767 + (##cdr _$tgt1639416434_)))) + (let ((_body16444_ _$hd1639516437_)) + (if (let ((__tmp17716 (let () (declare (not safe)) - (__AST-e _$tl1644716491_)))) + (__AST-e _$tl1639616440_)))) (declare (not safe)) - (equal? __tmp17767 '())) - (let* ((_hd-ids16535_ - (map (lambda (_bind16497_) - (let* ((_$e16499_ + (equal? __tmp17716 '())) + (let* ((_hd-ids16484_ + (map (lambda (_bind16446_) + (let* ((_$e16448_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind16497_) - (_$E1650116510_ + _bind16446_) + (_$E1645016459_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f - '"Bad syntax" - _$e16499_))))) + '"Bad syntax; malformed ast clause" + _$e16448_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e16499_)) - (let* ((_$tgt1650216513_ + (__AST-pair? _$e16448_)) + (let* ((_$tgt1645116462_ (let () (declare (not safe)) - (__AST-e _$e16499_))) - (_$hd1650316516_ + (__AST-e _$e16448_))) + (_$hd1645216465_ (let () (declare (not safe)) - (##car _$tgt1650216513_))) - (_$tl1650416519_ + (##car _$tgt1645116462_))) + (_$tl1645316468_ (let () (declare (not safe)) - (##cdr _$tgt1650216513_)))) - (let ((_ids16523_ _$hd1650316516_)) + (##cdr _$tgt1645116462_)))) + (let ((_ids16472_ _$hd1645216465_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1650416519_)) - (let* ((_$tgt1650516525_ + (__AST-pair? _$tl1645316468_)) + (let* ((_$tgt1645416474_ (let () (declare (not safe)) - (__AST-e _$tl1650416519_))) - (_$hd1650616528_ + (__AST-e _$tl1645316468_))) + (_$hd1645516477_ (let () (declare (not safe)) - (##car _$tgt1650516525_))) - (_$tl1650716531_ + (##car _$tgt1645416474_))) + (_$tl1645616480_ (let () (declare (not safe)) - (##cdr _$tgt1650516525_)))) - (if (let ((__tmp17765 + (##cdr _$tgt1645416474_)))) + (if (let ((__tmp17714 (let () (declare (not safe)) - (__AST-e _$tl1650716531_)))) + (__AST-e _$tl1645616480_)))) (declare (not safe)) - (equal? __tmp17765 '())) - _ids16523_ + (equal? __tmp17714 '())) + _ids16472_ (let () (declare (not safe)) - (_$E1650116510_)))) + (_$E1645016459_)))) (let () (declare (not safe)) - (_$E1650116510_))))) - (let () (declare (not safe)) (_$E1650116510_))))) - _hd16483_)) - (_exprs16575_ - (map (lambda (_bind16537_) - (let* ((_$e16539_ _bind16537_) - (_$E1654116550_ + (_$E1645016459_))))) + (let () (declare (not safe)) (_$E1645016459_))))) + _hd16432_)) + (_exprs16524_ + (map (lambda (_bind16486_) + (let* ((_$e16488_ _bind16486_) + (_$E1649016499_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f - '"Bad syntax" - _$e16539_))))) + '"Bad syntax; malformed ast clause" + _$e16488_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e16539_)) - (let* ((_$tgt1654216553_ + (__AST-pair? _$e16488_)) + (let* ((_$tgt1649116502_ (let () (declare (not safe)) - (__AST-e _$e16539_))) - (_$hd1654316556_ + (__AST-e _$e16488_))) + (_$hd1649216505_ (let () (declare (not safe)) - (##car _$tgt1654216553_))) - (_$tl1654416559_ + (##car _$tgt1649116502_))) + (_$tl1649316508_ (let () (declare (not safe)) - (##cdr _$tgt1654216553_)))) + (##cdr _$tgt1649116502_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1654416559_)) - (let* ((_$tgt1654516563_ + (__AST-pair? _$tl1649316508_)) + (let* ((_$tgt1649416512_ (let () (declare (not safe)) - (__AST-e _$tl1654416559_))) - (_$hd1654616566_ + (__AST-e _$tl1649316508_))) + (_$hd1649516515_ (let () (declare (not safe)) - (##car _$tgt1654516563_))) - (_$tl1654716569_ + (##car _$tgt1649416512_))) + (_$tl1649616518_ (let () (declare (not safe)) - (##cdr _$tgt1654516563_)))) - (let ((_expr16573_ _$hd1654616566_)) - (if (let ((__tmp17766 + (##cdr _$tgt1649416512_)))) + (let ((_expr16522_ _$hd1649516515_)) + (if (let ((__tmp17715 (let () (declare (not safe)) - (__AST-e _$tl1654716569_)))) + (__AST-e _$tl1649616518_)))) (declare (not safe)) - (equal? __tmp17766 '())) + (equal? __tmp17715 '())) (let () (declare (not safe)) - (__compile _expr16573_)) + (__compile _expr16522_)) (let () (declare (not safe)) - (_$E1654116550_))))) + (_$E1649016499_))))) (let () (declare (not safe)) - (_$E1654116550_)))) - (let () (declare (not safe)) (_$E1654116550_))))) - _hd16483_)) - (_body16577_ - (let () (declare (not safe)) (__compile _body16495_)))) + (_$E1649016499_)))) + (let () (declare (not safe)) (_$E1649016499_))))) + _hd16432_)) + (_body16526_ + (let () (declare (not safe)) (__compile _body16444_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?16432_ + (andmap1 _simple-bind?16381_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids16535_)) - (_compile-simple16429_ - (map _car-e16433_ _hd-ids16535_) - _exprs16575_ - _body16577_) - (_compile-values16430_ _hd-ids16535_ _exprs16575_ _body16577_))) + _hd-ids16484_)) + (_compile-simple16378_ + (map _car-e16382_ _hd-ids16484_) + _exprs16524_ + _body16526_) + (_compile-values16379_ _hd-ids16484_ _exprs16524_ _body16526_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E1643816460_))))) + (_$E1638716409_))))) (let () (declare (not safe)) - (_$E1643816460_))))) + (_$E1638716409_))))) (let () (declare (not safe)) - (_$E1643816460_)))) - (let () (declare (not safe)) (_$E1643816460_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16435_)) - (let* ((_$tgt1644816583_ - (let () (declare (not safe)) (__AST-e _$e16435_))) - (_$hd1644916586_ - (let () (declare (not safe)) (##car _$tgt1644816583_))) - (_$tl1645016589_ + (_$E1638716409_)))) + (let () (declare (not safe)) (_$E1638716409_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16384_)) + (let* ((_$tgt1639716532_ + (let () (declare (not safe)) (__AST-e _$e16384_))) + (_$hd1639816535_ + (let () (declare (not safe)) (##car _$tgt1639716532_))) + (_$tl1639916538_ (let () (declare (not safe)) - (##cdr _$tgt1644816583_)))) + (##cdr _$tgt1639716532_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1645016589_)) - (let* ((_$tgt1645116593_ + (__AST-pair? _$tl1639916538_)) + (let* ((_$tgt1640016542_ (let () (declare (not safe)) - (__AST-e _$tl1645016589_))) - (_$hd1645216596_ + (__AST-e _$tl1639916538_))) + (_$hd1640116545_ (let () (declare (not safe)) - (##car _$tgt1645116593_))) - (_$tl1645316599_ + (##car _$tgt1640016542_))) + (_$tl1640216548_ (let () (declare (not safe)) - (##cdr _$tgt1645116593_)))) - (if (let ((__tmp17769 + (##cdr _$tgt1640016542_)))) + (if (let ((__tmp17718 (let () (declare (not safe)) - (__AST-e _$hd1645216596_)))) + (__AST-e _$hd1640116545_)))) (declare (not safe)) - (equal? __tmp17769 '())) + (equal? __tmp17718 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl1645316599_)) - (let* ((_$tgt1645416603_ + (__AST-pair? _$tl1640216548_)) + (let* ((_$tgt1640316552_ (let () (declare (not safe)) - (__AST-e _$tl1645316599_))) - (_$hd1645516606_ + (__AST-e _$tl1640216548_))) + (_$hd1640416555_ (let () (declare (not safe)) - (##car _$tgt1645416603_))) - (_$tl1645616609_ + (##car _$tgt1640316552_))) + (_$tl1640516558_ (let () (declare (not safe)) - (##cdr _$tgt1645416603_)))) - (let ((_body16613_ _$hd1645516606_)) - (if (let ((__tmp17768 + (##cdr _$tgt1640316552_)))) + (let ((_body16562_ _$hd1640416555_)) + (if (let ((__tmp17717 (let () (declare (not safe)) - (__AST-e _$tl1645616609_)))) + (__AST-e _$tl1640516558_)))) (declare (not safe)) - (equal? __tmp17768 '())) + (equal? __tmp17717 '())) (let () (declare (not safe)) - (__compile _body16613_)) + (__compile _body16562_)) (let () (declare (not safe)) - (_$E1643716580_))))) - (let () (declare (not safe)) (_$E1643716580_))) - (let () (declare (not safe)) (_$E1643716580_)))) - (let () (declare (not safe)) (_$E1643716580_)))) - (let () (declare (not safe)) (_$E1643716580_))))))) + (_$E1638616529_))))) + (let () (declare (not safe)) (_$E1638616529_))) + (let () (declare (not safe)) (_$E1638616529_)))) + (let () (declare (not safe)) (_$E1638616529_)))) + (let () (declare (not safe)) (_$E1638616529_))))))) (define __compile-let-values% - (lambda (_stx16243_) - (letrec ((_compile-simple16245_ - (lambda (_hd-ids16424_ _exprs16425_ _body16426_) - (let ((__tmp17770 - (let ((__tmp17771 - (let ((__tmp17773 + (lambda (_stx16192_) + (letrec ((_compile-simple16194_ + (lambda (_hd-ids16373_ _exprs16374_ _body16375_) + (let ((__tmp17719 + (let ((__tmp17720 + (let ((__tmp17722 (map list (map __compile-head-id - _hd-ids16424_) - _exprs16425_)) - (__tmp17772 + _hd-ids16373_) + _exprs16374_)) + (__tmp17721 (let () (declare (not safe)) - (cons _body16426_ '())))) + (cons _body16375_ '())))) (declare (not safe)) - (cons __tmp17773 __tmp17772)))) + (cons __tmp17722 __tmp17721)))) (declare (not safe)) - (cons 'let __tmp17771)))) + (cons 'let __tmp17720)))) (declare (not safe)) - (__SRC__% __tmp17770 _stx16243_)))) - (_compile-values16246_ - (lambda (_hd-ids16342_ _exprs16343_ _body16344_) - (let _lp16346_ ((_rest16348_ _hd-ids16342_) - (_exprs16349_ _exprs16343_) - (_bind16350_ '()) - (_post16351_ '())) - (let* ((_rest1635216366_ _rest16348_) - (_else1635516374_ + (__SRC__% __tmp17719 _stx16192_)))) + (_compile-values16195_ + (lambda (_hd-ids16291_ _exprs16292_ _body16293_) + (let _lp16295_ ((_rest16297_ _hd-ids16291_) + (_exprs16298_ _exprs16292_) + (_bind16299_ '()) + (_post16300_ '())) + (let* ((_rest1630116315_ _rest16297_) + (_else1630416323_ (lambda () - (let ((__tmp17774 - (let ((__tmp17775 - (let ((__tmp17778 - (reverse _bind16350_)) - (__tmp17776 - (let ((__tmp17777 + (let ((__tmp17723 + (let ((__tmp17724 + (let ((__tmp17727 + (reverse _bind16299_)) + (__tmp17725 + (let ((__tmp17726 (let () (declare (not safe)) - (_compile-post16247_ - _post16351_ - _body16344_)))) + (_compile-post16196_ + _post16300_ + _body16293_)))) (declare (not safe)) - (cons __tmp17777 '())))) + (cons __tmp17726 '())))) (declare (not safe)) - (cons __tmp17778 __tmp17776)))) + (cons __tmp17727 __tmp17725)))) (declare (not safe)) - (cons 'let __tmp17775)))) + (cons 'let __tmp17724)))) (declare (not safe)) - (__SRC__% __tmp17774 _stx16243_))))) - (let ((_K1636016407_ - (lambda (_rest16404_ _id16405_) - (let ((__tmp17784 (cdr _exprs16349_)) - (__tmp17779 - (let ((__tmp17780 - (let ((__tmp17783 + (__SRC__% __tmp17723 _stx16192_))))) + (let ((_K1630916356_ + (lambda (_rest16353_ _id16354_) + (let ((__tmp17733 (cdr _exprs16298_)) + (__tmp17728 + (let ((__tmp17729 + (let ((__tmp17732 (let () (declare (not safe)) (__compile-head-id - _id16405_))) - (__tmp17781 - (let ((__tmp17782 - (car _exprs16349_))) + _id16354_))) + (__tmp17730 + (let ((__tmp17731 + (car _exprs16298_))) (declare (not safe)) - (cons __tmp17782 + (cons __tmp17731 '())))) (declare (not safe)) - (cons __tmp17783 - __tmp17781)))) + (cons __tmp17732 + __tmp17730)))) (declare (not safe)) - (cons __tmp17780 _bind16350_)))) + (cons __tmp17729 _bind16299_)))) (declare (not safe)) - (_lp16346_ - _rest16404_ - __tmp17784 - __tmp17779 - _post16351_)))) - (_K1635716389_ - (lambda (_rest16378_ _hd16379_) + (_lp16295_ + _rest16353_ + __tmp17733 + __tmp17728 + _post16300_)))) + (_K1630616338_ + (lambda (_rest16327_ _hd16328_) (if (let () (declare (not safe)) - (__AST-id? _hd16379_)) - (let ((__tmp17805 (cdr _exprs16349_)) - (__tmp17798 - (let ((__tmp17799 - (let ((__tmp17804 + (__AST-id? _hd16328_)) + (let ((__tmp17754 (cdr _exprs16298_)) + (__tmp17747 + (let ((__tmp17748 + (let ((__tmp17753 (let () (declare (not safe)) (__compile-head-id - _hd16379_))) - (__tmp17800 - (let ((__tmp17801 + _hd16328_))) + (__tmp17749 + (let ((__tmp17750 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17802 - (let ((__tmp17803 (car _exprs16349_))) + (let ((__tmp17751 + (let ((__tmp17752 (car _exprs16298_))) (declare (not safe)) - (cons __tmp17803 '())))) + (cons __tmp17752 '())))) (declare (not safe)) - (cons 'values->list __tmp17802)))) + (cons 'values->list __tmp17751)))) (declare (not safe)) - (cons __tmp17801 '())))) + (cons __tmp17750 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17804 - __tmp17800)))) + (cons __tmp17753 + __tmp17749)))) (declare (not safe)) - (cons __tmp17799 _bind16350_)))) + (cons __tmp17748 _bind16299_)))) (declare (not safe)) - (_lp16346_ - _rest16378_ - __tmp17805 - __tmp17798 - _post16351_)) + (_lp16295_ + _rest16327_ + __tmp17754 + __tmp17747 + _post16300_)) (if (let () (declare (not safe)) - (list? _hd16379_)) - (let* ((_len16381_ (length _hd16379_)) - (_tmp16383_ - (let ((__tmp17785 (gensym))) + (list? _hd16328_)) + (let* ((_len16330_ (length _hd16328_)) + (_tmp16332_ + (let ((__tmp17734 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17785)))) - (let ((__tmp17797 - (cdr _exprs16349_)) - (__tmp17793 - (let ((__tmp17794 - (let ((__tmp17795 - (let ((__tmp17796 + (__SRC__0 __tmp17734)))) + (let ((__tmp17746 + (cdr _exprs16298_)) + (__tmp17742 + (let ((__tmp17743 + (let ((__tmp17744 + (let ((__tmp17745 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs16349_))) + (car _exprs16298_))) (declare (not safe)) - (cons __tmp17796 '())))) + (cons __tmp17745 '())))) (declare (not safe)) - (cons _tmp16383_ __tmp17795)))) + (cons _tmp16332_ __tmp17744)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17794 - _bind16350_))) - (__tmp17786 - (let ((__tmp17787 - (let ((__tmp17788 - (let ((__tmp17789 + (cons __tmp17743 + _bind16299_))) + (__tmp17735 + (let ((__tmp17736 + (let ((__tmp17737 + (let ((__tmp17738 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17791 - (lambda (_id16386_ _k16387_) + (let ((__tmp17740 + (lambda (_id16335_ _k16336_) (if (let () (declare (not safe)) - (__AST-e _id16386_)) - (let ((__tmp17792 + (__AST-e _id16335_)) + (let ((__tmp17741 (let () (declare (not safe)) - (__SRC__0 _id16386_)))) + (__SRC__0 _id16335_)))) (declare (not safe)) - (cons __tmp17792 _k16387_)) + (cons __tmp17741 _k16336_)) '#f))) - (__tmp17790 + (__tmp17739 (let () (declare (not safe)) - (iota _len16381_)))) + (iota _len16330_)))) (declare (not safe)) (filter-map2 - __tmp17791 - _hd16379_ - __tmp17790)))) + __tmp17740 + _hd16328_ + __tmp17739)))) (declare (not safe)) - (cons _len16381_ __tmp17789)))) + (cons _len16330_ __tmp17738)))) (declare (not safe)) - (cons _tmp16383_ __tmp17788)))) + (cons _tmp16332_ __tmp17737)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17787 - _post16351_)))) + (cons __tmp17736 + _post16300_)))) (declare (not safe)) - (_lp16346_ - _rest16378_ - __tmp17797 - __tmp17793 - __tmp17786))) + (_lp16295_ + _rest16327_ + __tmp17746 + __tmp17742 + __tmp17735))) (let () (declare (not safe)) (__compile-error__% - _stx16243_ - _hd16379_))))))) + _stx16192_ + _hd16328_))))))) (if (let () (declare (not safe)) - (##pair? _rest1635216366_)) - (let ((_tl1636216412_ + (##pair? _rest1630116315_)) + (let ((_tl1631116361_ (let () (declare (not safe)) - (##cdr _rest1635216366_))) - (_hd1636116410_ + (##cdr _rest1630116315_))) + (_hd1631016359_ (let () (declare (not safe)) - (##car _rest1635216366_)))) + (##car _rest1630116315_)))) (if (let () (declare (not safe)) - (##pair? _hd1636116410_)) - (let ((_tl1636416417_ + (##pair? _hd1631016359_)) + (let ((_tl1631316366_ (let () (declare (not safe)) - (##cdr _hd1636116410_))) - (_hd1636316415_ + (##cdr _hd1631016359_))) + (_hd1631216364_ (let () (declare (not safe)) - (##car _hd1636116410_)))) + (##car _hd1631016359_)))) (if (let () (declare (not safe)) - (##null? _tl1636416417_)) - (let ((_id16420_ _hd1636316415_) - (_rest16422_ _tl1636216412_)) + (##null? _tl1631316366_)) + (let ((_id16369_ _hd1631216364_) + (_rest16371_ _tl1631116361_)) (let () (declare (not safe)) - (_K1636016407_ - _rest16422_ - _id16420_))) - (let ((_hd16397_ _hd1636116410_) - (_rest16399_ _tl1636216412_)) + (_K1630916356_ + _rest16371_ + _id16369_))) + (let ((_hd16346_ _hd1631016359_) + (_rest16348_ _tl1631116361_)) (let () (declare (not safe)) - (_K1635716389_ - _rest16399_ - _hd16397_))))) - (let ((_hd16397_ _hd1636116410_) - (_rest16399_ _tl1636216412_)) + (_K1630616338_ + _rest16348_ + _hd16346_))))) + (let ((_hd16346_ _hd1631016359_) + (_rest16348_ _tl1631116361_)) (let () (declare (not safe)) - (_K1635716389_ - _rest16399_ - _hd16397_))))) + (_K1630616338_ + _rest16348_ + _hd16346_))))) (let () (declare (not safe)) - (_else1635516374_)))))))) - (_compile-post16247_ - (lambda (_post16249_ _body16250_) - (let _lp16252_ ((_rest16254_ _post16249_) - (_check16255_ '()) - (_bind16256_ '())) - (let* ((_rest1625716269_ _rest16254_) - (_else1625916277_ + (_else1630416323_)))))))) + (_compile-post16196_ + (lambda (_post16198_ _body16199_) + (let _lp16201_ ((_rest16203_ _post16198_) + (_check16204_ '()) + (_bind16205_ '())) + (let* ((_rest1620616218_ _rest16203_) + (_else1620816226_ (lambda () - (let ((__tmp17806 - (let ((__tmp17807 - (let ((__tmp17808 - (let ((__tmp17809 - (let ((__tmp17810 + (let ((__tmp17755 + (let ((__tmp17756 + (let ((__tmp17757 + (let ((__tmp17758 + (let ((__tmp17759 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17811 - (let ((__tmp17812 + (let ((__tmp17760 + (let ((__tmp17761 (let () (declare (not safe)) - (cons _body16250_ '())))) + (cons _body16199_ '())))) (declare (not safe)) - (cons _bind16256_ __tmp17812)))) + (cons _bind16205_ __tmp17761)))) (declare (not safe)) - (cons 'let __tmp17811)))) + (cons 'let __tmp17760)))) (declare (not safe)) - (__SRC__% __tmp17810 _stx16243_)))) + (__SRC__% __tmp17759 _stx16192_)))) (declare (not safe)) - (cons __tmp17809 '())))) + (cons __tmp17758 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp17808 - _check16255_)))) + __tmp17757 + _check16204_)))) (declare (not safe)) - (cons 'begin __tmp17807)))) + (cons 'begin __tmp17756)))) (declare (not safe)) - (__SRC__% __tmp17806 _stx16243_)))) - (_K1626116316_ - (lambda (_rest16280_ - _init16281_ - _len16282_ - _tmp16283_) - (let ((__tmp17820 - (let ((__tmp17821 - (let ((__tmp17822 - (let ((__tmp17823 - (let ((__tmp17824 + (__SRC__% __tmp17755 _stx16192_)))) + (_K1621016265_ + (lambda (_rest16229_ + _init16230_ + _len16231_ + _tmp16232_) + (let ((__tmp17769 + (let ((__tmp17770 + (let ((__tmp17771 + (let ((__tmp17772 + (let ((__tmp17773 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len16282_ '())))) + (cons _len16231_ '())))) (declare (not safe)) - (cons _tmp16283_ __tmp17824)))) + (cons _tmp16232_ __tmp17773)))) (declare (not safe)) - (cons '__check-values __tmp17823)))) + (cons '__check-values __tmp17772)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17822 - _stx16243_)))) + __tmp17771 + _stx16192_)))) (declare (not safe)) - (cons __tmp17821 _check16255_))) - (__tmp17813 - (let ((__tmp17814 - (lambda (_hd16285_ _r16286_) - (let* ((_hd1628716294_ - _hd16285_) - (_E1628916298_ + (cons __tmp17770 _check16204_))) + (__tmp17762 + (let ((__tmp17763 + (lambda (_hd16234_ _r16235_) + (let* ((_hd1623616243_ + _hd16234_) + (_E1623816247_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1628716294_))) - (_K1629016304_ - (lambda (_k16301_ _id16302_) - (let ((__tmp17815 - (let ((__tmp17816 - (let ((__tmp17817 - (let ((__tmp17818 - (let ((__tmp17819 + _hd1623616243_))) + (_K1623916253_ + (lambda (_k16250_ _id16251_) + (let ((__tmp17764 + (let ((__tmp17765 + (let ((__tmp17766 + (let ((__tmp17767 + (let ((__tmp17768 (let () (declare (not safe)) - (cons _k16301_ '())))) + (cons _k16250_ '())))) (declare (not safe)) - (cons _tmp16283_ __tmp17819)))) + (cons _tmp16232_ __tmp17768)))) (declare (not safe)) - (cons '##vector-ref __tmp17818)))) + (cons '##vector-ref __tmp17767)))) (declare (not safe)) - (cons __tmp17817 '())))) + (cons __tmp17766 '())))) (declare (not safe)) - (cons _id16302_ __tmp17816)))) + (cons _id16251_ __tmp17765)))) (declare (not safe)) - (cons __tmp17815 _r16286_))))) + (cons __tmp17764 _r16235_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd1628716294_)) - (let ((_hd1629116307_ + (##pair? _hd1623616243_)) + (let ((_hd1624016256_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd1628716294_))) - (_tl1629216309_ - (let () (declare (not safe)) (##cdr _hd1628716294_)))) - (let* ((_id16312_ _hd1629116307_) (_k16314_ _tl1629216309_)) + (##car _hd1623616243_))) + (_tl1624116258_ + (let () (declare (not safe)) (##cdr _hd1623616243_)))) + (let* ((_id16261_ _hd1624016256_) (_k16263_ _tl1624116258_)) (declare (not safe)) - (_K1629016304_ _k16314_ _id16312_))) - (let () (declare (not safe)) (_E1628916298_))))))) + (_K1623916253_ _k16263_ _id16261_))) + (let () (declare (not safe)) (_E1623816247_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp17814 - _bind16256_ - _init16281_)))) + (foldr1 __tmp17763 + _bind16205_ + _init16230_)))) (declare (not safe)) - (_lp16252_ - _rest16280_ - __tmp17820 - __tmp17813))))) + (_lp16201_ + _rest16229_ + __tmp17769 + __tmp17762))))) (if (let () (declare (not safe)) - (##pair? _rest1625716269_)) - (let ((_hd1626216319_ + (##pair? _rest1620616218_)) + (let ((_hd1621116268_ (let () (declare (not safe)) - (##car _rest1625716269_))) - (_tl1626316321_ + (##car _rest1620616218_))) + (_tl1621216270_ (let () (declare (not safe)) - (##cdr _rest1625716269_)))) + (##cdr _rest1620616218_)))) (if (let () (declare (not safe)) - (##pair? _hd1626216319_)) - (let ((_hd1626416324_ + (##pair? _hd1621116268_)) + (let ((_hd1621316273_ (let () (declare (not safe)) - (##car _hd1626216319_))) - (_tl1626516326_ + (##car _hd1621116268_))) + (_tl1621416275_ (let () (declare (not safe)) - (##cdr _hd1626216319_)))) - (let ((_tmp16329_ _hd1626416324_)) + (##cdr _hd1621116268_)))) + (let ((_tmp16278_ _hd1621316273_)) (if (let () (declare (not safe)) - (##pair? _tl1626516326_)) - (let ((_hd1626616331_ + (##pair? _tl1621416275_)) + (let ((_hd1621516280_ (let () (declare (not safe)) - (##car _tl1626516326_))) - (_tl1626716333_ + (##car _tl1621416275_))) + (_tl1621616282_ (let () (declare (not safe)) - (##cdr _tl1626516326_)))) - (let* ((_len16336_ _hd1626616331_) - (_init16338_ _tl1626716333_) - (_rest16340_ - _tl1626316321_)) + (##cdr _tl1621416275_)))) + (let* ((_len16285_ _hd1621516280_) + (_init16287_ _tl1621616282_) + (_rest16289_ + _tl1621216270_)) (declare (not safe)) - (_K1626116316_ - _rest16340_ - _init16338_ - _len16336_ - _tmp16329_))) + (_K1621016265_ + _rest16289_ + _init16287_ + _len16285_ + _tmp16278_))) (let () (declare (not safe)) - (_else1625916277_))))) + (_else1620816226_))))) (let () (declare (not safe)) - (_else1625916277_)))) + (_else1620816226_)))) (let () (declare (not safe)) - (_else1625916277_)))))))) + (_else1620816226_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx16243_ - _compile-simple16245_ - _compile-values16246_))))) + _stx16192_ + _compile-simple16194_ + _compile-values16195_))))) (define __compile-letrec-values% - (lambda (_stx16043_) - (letrec ((_compile-simple16045_ - (lambda (_hd-ids16239_ _exprs16240_ _body16241_) - (let ((__tmp17825 - (let ((__tmp17826 - (let ((__tmp17828 + (lambda (_stx15992_) + (letrec ((_compile-simple15994_ + (lambda (_hd-ids16188_ _exprs16189_ _body16190_) + (let ((__tmp17774 + (let ((__tmp17775 + (let ((__tmp17777 (map list (map __compile-head-id - _hd-ids16239_) - _exprs16240_)) - (__tmp17827 + _hd-ids16188_) + _exprs16189_)) + (__tmp17776 (let () (declare (not safe)) - (cons _body16241_ '())))) + (cons _body16190_ '())))) (declare (not safe)) - (cons __tmp17828 __tmp17827)))) + (cons __tmp17777 __tmp17776)))) (declare (not safe)) - (cons 'letrec __tmp17826)))) + (cons 'letrec __tmp17775)))) (declare (not safe)) - (__SRC__% __tmp17825 _stx16043_)))) - (_compile-values16046_ - (lambda (_hd-ids16153_ _exprs16154_ _body16155_) - (let _lp16157_ ((_rest16159_ _hd-ids16153_) - (_exprs16160_ _exprs16154_) - (_pre16161_ '()) - (_bind16162_ '()) - (_post16163_ '())) - (let* ((_rest1616416178_ _rest16159_) - (_else1616716186_ + (__SRC__% __tmp17774 _stx15992_)))) + (_compile-values15995_ + (lambda (_hd-ids16102_ _exprs16103_ _body16104_) + (let _lp16106_ ((_rest16108_ _hd-ids16102_) + (_exprs16109_ _exprs16103_) + (_pre16110_ '()) + (_bind16111_ '()) + (_post16112_ '())) + (let* ((_rest1611316127_ _rest16108_) + (_else1611616135_ (lambda () (let () (declare (not safe)) - (_compile-inner16047_ - _pre16161_ - _bind16162_ - _post16163_ - _body16155_))))) - (let ((_K1617216222_ - (lambda (_rest16219_ _id16220_) - (let ((__tmp17834 (cdr _exprs16160_)) - (__tmp17829 - (let ((__tmp17830 - (let ((__tmp17833 + (_compile-inner15996_ + _pre16110_ + _bind16111_ + _post16112_ + _body16104_))))) + (let ((_K1612116171_ + (lambda (_rest16168_ _id16169_) + (let ((__tmp17783 (cdr _exprs16109_)) + (__tmp17778 + (let ((__tmp17779 + (let ((__tmp17782 (let () (declare (not safe)) (__compile-head-id - _id16220_))) - (__tmp17831 - (let ((__tmp17832 - (car _exprs16160_))) + _id16169_))) + (__tmp17780 + (let ((__tmp17781 + (car _exprs16109_))) (declare (not safe)) - (cons __tmp17832 + (cons __tmp17781 '())))) (declare (not safe)) - (cons __tmp17833 - __tmp17831)))) + (cons __tmp17782 + __tmp17780)))) (declare (not safe)) - (cons __tmp17830 _bind16162_)))) + (cons __tmp17779 _bind16111_)))) (declare (not safe)) - (_lp16157_ - _rest16219_ - __tmp17834 - _pre16161_ - __tmp17829 - _post16163_)))) - (_K1616916204_ - (lambda (_rest16190_ _hd16191_) + (_lp16106_ + _rest16168_ + __tmp17783 + _pre16110_ + __tmp17778 + _post16112_)))) + (_K1611816153_ + (lambda (_rest16139_ _hd16140_) (if (let () (declare (not safe)) - (__AST-id? _hd16191_)) - (let ((__tmp17862 (cdr _exprs16160_)) - (__tmp17855 - (let ((__tmp17856 - (let ((__tmp17861 + (__AST-id? _hd16140_)) + (let ((__tmp17811 (cdr _exprs16109_)) + (__tmp17804 + (let ((__tmp17805 + (let ((__tmp17810 (let () (declare (not safe)) (__compile-head-id - _hd16191_))) - (__tmp17857 - (let ((__tmp17858 + _hd16140_))) + (__tmp17806 + (let ((__tmp17807 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17859 - (let ((__tmp17860 (car _exprs16160_))) + (let ((__tmp17808 + (let ((__tmp17809 (car _exprs16109_))) (declare (not safe)) - (cons __tmp17860 '())))) + (cons __tmp17809 '())))) (declare (not safe)) - (cons 'values->list __tmp17859)))) + (cons 'values->list __tmp17808)))) (declare (not safe)) - (cons __tmp17858 '())))) + (cons __tmp17807 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17861 - __tmp17857)))) + (cons __tmp17810 + __tmp17806)))) (declare (not safe)) - (cons __tmp17856 _bind16162_)))) + (cons __tmp17805 _bind16111_)))) (declare (not safe)) - (_lp16157_ - _rest16190_ - __tmp17862 - _pre16161_ - __tmp17855 - _post16163_)) + (_lp16106_ + _rest16139_ + __tmp17811 + _pre16110_ + __tmp17804 + _post16112_)) (if (let () (declare (not safe)) - (list? _hd16191_)) - (let* ((_len16193_ (length _hd16191_)) - (_tmp16195_ - (let ((__tmp17835 (gensym))) + (list? _hd16140_)) + (let* ((_len16142_ (length _hd16140_)) + (_tmp16144_ + (let ((__tmp17784 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17835)))) - (let ((__tmp17854 - (cdr _exprs16160_)) - (__tmp17847 - (let ((__tmp17848 - (lambda (_id16198_ + (__SRC__0 __tmp17784)))) + (let ((__tmp17803 + (cdr _exprs16109_)) + (__tmp17796 + (let ((__tmp17797 + (lambda (_id16147_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r16199_) - (if (let () (declare (not safe)) (__AST-e _id16198_)) - (let ((__tmp17849 - (let ((__tmp17853 + _r16148_) + (if (let () (declare (not safe)) (__AST-e _id16147_)) + (let ((__tmp17798 + (let ((__tmp17802 (let () (declare (not safe)) - (__SRC__0 _id16198_))) - (__tmp17850 - (let ((__tmp17851 - (let ((__tmp17852 + (__SRC__0 _id16147_))) + (__tmp17799 + (let ((__tmp17800 + (let ((__tmp17801 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17852)))) + (cons 'quote __tmp17801)))) (declare (not safe)) - (cons __tmp17851 '())))) + (cons __tmp17800 '())))) (declare (not safe)) - (cons __tmp17853 __tmp17850)))) + (cons __tmp17802 __tmp17799)))) (declare (not safe)) - (cons __tmp17849 _r16199_)) - _r16199_)))) + (cons __tmp17798 _r16148_)) + _r16148_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp17848 - _pre16161_ - _hd16191_))) - (__tmp17843 - (let ((__tmp17844 - (let ((__tmp17845 - (let ((__tmp17846 + (foldl1 __tmp17797 + _pre16110_ + _hd16140_))) + (__tmp17792 + (let ((__tmp17793 + (let ((__tmp17794 + (let ((__tmp17795 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs16160_))) + (car _exprs16109_))) (declare (not safe)) - (cons __tmp17846 '())))) + (cons __tmp17795 '())))) (declare (not safe)) - (cons _tmp16195_ __tmp17845)))) + (cons _tmp16144_ __tmp17794)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17844 - _bind16162_))) - (__tmp17836 - (let ((__tmp17837 - (let ((__tmp17838 - (let ((__tmp17839 + (cons __tmp17793 + _bind16111_))) + (__tmp17785 + (let ((__tmp17786 + (let ((__tmp17787 + (let ((__tmp17788 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17841 - (lambda (_id16201_ _k16202_) + (let ((__tmp17790 + (lambda (_id16150_ _k16151_) (if (let () (declare (not safe)) - (__AST-e _id16201_)) - (let ((__tmp17842 + (__AST-e _id16150_)) + (let ((__tmp17791 (let () (declare (not safe)) - (__SRC__0 _id16201_)))) + (__SRC__0 _id16150_)))) (declare (not safe)) - (cons __tmp17842 _k16202_)) + (cons __tmp17791 _k16151_)) '#f))) - (__tmp17840 + (__tmp17789 (let () (declare (not safe)) - (iota _len16193_)))) + (iota _len16142_)))) (declare (not safe)) (filter-map2 - __tmp17841 - _hd16191_ - __tmp17840)))) + __tmp17790 + _hd16140_ + __tmp17789)))) (declare (not safe)) - (cons _len16193_ __tmp17839)))) + (cons _len16142_ __tmp17788)))) (declare (not safe)) - (cons _tmp16195_ __tmp17838)))) + (cons _tmp16144_ __tmp17787)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17837 - _post16163_)))) + (cons __tmp17786 + _post16112_)))) (declare (not safe)) - (_lp16157_ - _rest16190_ - __tmp17854 - __tmp17847 - __tmp17843 - __tmp17836))) + (_lp16106_ + _rest16139_ + __tmp17803 + __tmp17796 + __tmp17792 + __tmp17785))) (let () (declare (not safe)) (__compile-error__% - _stx16043_ - _hd16191_))))))) + _stx15992_ + _hd16140_))))))) (if (let () (declare (not safe)) - (##pair? _rest1616416178_)) - (let ((_tl1617416227_ + (##pair? _rest1611316127_)) + (let ((_tl1612316176_ (let () (declare (not safe)) - (##cdr _rest1616416178_))) - (_hd1617316225_ + (##cdr _rest1611316127_))) + (_hd1612216174_ (let () (declare (not safe)) - (##car _rest1616416178_)))) + (##car _rest1611316127_)))) (if (let () (declare (not safe)) - (##pair? _hd1617316225_)) - (let ((_tl1617616232_ + (##pair? _hd1612216174_)) + (let ((_tl1612516181_ (let () (declare (not safe)) - (##cdr _hd1617316225_))) - (_hd1617516230_ + (##cdr _hd1612216174_))) + (_hd1612416179_ (let () (declare (not safe)) - (##car _hd1617316225_)))) + (##car _hd1612216174_)))) (if (let () (declare (not safe)) - (##null? _tl1617616232_)) - (let ((_id16235_ _hd1617516230_) - (_rest16237_ _tl1617416227_)) + (##null? _tl1612516181_)) + (let ((_id16184_ _hd1612416179_) + (_rest16186_ _tl1612316176_)) (let () (declare (not safe)) - (_K1617216222_ - _rest16237_ - _id16235_))) - (let ((_hd16212_ _hd1617316225_) - (_rest16214_ _tl1617416227_)) + (_K1612116171_ + _rest16186_ + _id16184_))) + (let ((_hd16161_ _hd1612216174_) + (_rest16163_ _tl1612316176_)) (let () (declare (not safe)) - (_K1616916204_ - _rest16214_ - _hd16212_))))) - (let ((_hd16212_ _hd1617316225_) - (_rest16214_ _tl1617416227_)) + (_K1611816153_ + _rest16163_ + _hd16161_))))) + (let ((_hd16161_ _hd1612216174_) + (_rest16163_ _tl1612316176_)) (let () (declare (not safe)) - (_K1616916204_ - _rest16214_ - _hd16212_))))) + (_K1611816153_ + _rest16163_ + _hd16161_))))) (let () (declare (not safe)) - (_else1616716186_)))))))) - (_compile-inner16047_ - (lambda (_pre16148_ _bind16149_ _post16150_ _body16151_) - (if (let () (declare (not safe)) (null? _pre16148_)) + (_else1611616135_)))))))) + (_compile-inner15996_ + (lambda (_pre16097_ _bind16098_ _post16099_ _body16100_) + (if (let () (declare (not safe)) (null? _pre16097_)) (let () (declare (not safe)) - (_compile-bind16048_ - _bind16149_ - _post16150_ - _body16151_)) - (let ((__tmp17863 - (let ((__tmp17864 - (let ((__tmp17867 (reverse _pre16148_)) - (__tmp17865 - (let ((__tmp17866 + (_compile-bind15997_ + _bind16098_ + _post16099_ + _body16100_)) + (let ((__tmp17812 + (let ((__tmp17813 + (let ((__tmp17816 (reverse _pre16097_)) + (__tmp17814 + (let ((__tmp17815 (let () (declare (not safe)) - (_compile-bind16048_ - _bind16149_ - _post16150_ - _body16151_)))) + (_compile-bind15997_ + _bind16098_ + _post16099_ + _body16100_)))) (declare (not safe)) - (cons __tmp17866 '())))) + (cons __tmp17815 '())))) (declare (not safe)) - (cons __tmp17867 __tmp17865)))) + (cons __tmp17816 __tmp17814)))) (declare (not safe)) - (cons 'let __tmp17864)))) + (cons 'let __tmp17813)))) (declare (not safe)) - (__SRC__% __tmp17863 _stx16043_))))) - (_compile-bind16048_ - (lambda (_bind16144_ _post16145_ _body16146_) - (let ((__tmp17868 - (let ((__tmp17869 - (let ((__tmp17872 (reverse _bind16144_)) - (__tmp17870 - (let ((__tmp17871 + (__SRC__% __tmp17812 _stx15992_))))) + (_compile-bind15997_ + (lambda (_bind16093_ _post16094_ _body16095_) + (let ((__tmp17817 + (let ((__tmp17818 + (let ((__tmp17821 (reverse _bind16093_)) + (__tmp17819 + (let ((__tmp17820 (let () (declare (not safe)) - (_compile-post16049_ - _post16145_ - _body16146_)))) + (_compile-post15998_ + _post16094_ + _body16095_)))) (declare (not safe)) - (cons __tmp17871 '())))) + (cons __tmp17820 '())))) (declare (not safe)) - (cons __tmp17872 __tmp17870)))) + (cons __tmp17821 __tmp17819)))) (declare (not safe)) - (cons 'letrec __tmp17869)))) + (cons 'letrec __tmp17818)))) (declare (not safe)) - (__SRC__% __tmp17868 _stx16043_)))) - (_compile-post16049_ - (lambda (_post16051_ _body16052_) - (let _lp16054_ ((_rest16056_ _post16051_) - (_check16057_ '()) - (_bind16058_ '())) - (let* ((_rest1605916071_ _rest16056_) - (_else1606116079_ + (__SRC__% __tmp17817 _stx15992_)))) + (_compile-post15998_ + (lambda (_post16000_ _body16001_) + (let _lp16003_ ((_rest16005_ _post16000_) + (_check16006_ '()) + (_bind16007_ '())) + (let* ((_rest1600816020_ _rest16005_) + (_else1601016028_ (lambda () - (let ((__tmp17873 - (let ((__tmp17874 - (let ((__tmp17875 - (let ((__tmp17876 + (let ((__tmp17822 + (let ((__tmp17823 + (let ((__tmp17824 + (let ((__tmp17825 (let () (declare (not safe)) - (cons _body16052_ + (cons _body16001_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp17876 _bind16058_)))) + (foldr1 cons __tmp17825 _bind16007_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp17875 - _check16057_)))) + __tmp17824 + _check16006_)))) (declare (not safe)) - (cons 'begin __tmp17874)))) + (cons 'begin __tmp17823)))) (declare (not safe)) - (__SRC__% __tmp17873 _stx16043_)))) - (_K1606316118_ - (lambda (_rest16082_ - _init16083_ - _len16084_ - _tmp16085_) - (let ((__tmp17885 - (let ((__tmp17886 - (let ((__tmp17887 - (let ((__tmp17888 - (let ((__tmp17889 + (__SRC__% __tmp17822 _stx15992_)))) + (_K1601216067_ + (lambda (_rest16031_ + _init16032_ + _len16033_ + _tmp16034_) + (let ((__tmp17834 + (let ((__tmp17835 + (let ((__tmp17836 + (let ((__tmp17837 + (let ((__tmp17838 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len16084_ '())))) + (cons _len16033_ '())))) (declare (not safe)) - (cons _tmp16085_ __tmp17889)))) + (cons _tmp16034_ __tmp17838)))) (declare (not safe)) - (cons '__check-values __tmp17888)))) + (cons '__check-values __tmp17837)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17887 - _stx16043_)))) + __tmp17836 + _stx15992_)))) (declare (not safe)) - (cons __tmp17886 _check16057_))) - (__tmp17877 - (let ((__tmp17878 - (lambda (_hd16087_ _r16088_) - (let* ((_hd1608916096_ - _hd16087_) - (_E1609116100_ + (cons __tmp17835 _check16006_))) + (__tmp17826 + (let ((__tmp17827 + (lambda (_hd16036_ _r16037_) + (let* ((_hd1603816045_ + _hd16036_) + (_E1604016049_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1608916096_))) - (_K1609216106_ - (lambda (_k16103_ _id16104_) - (let ((__tmp17879 - (let ((__tmp17880 - (let ((__tmp17881 - (let ((__tmp17882 - (let ((__tmp17883 - (let ((__tmp17884 + _hd1603816045_))) + (_K1604116055_ + (lambda (_k16052_ _id16053_) + (let ((__tmp17828 + (let ((__tmp17829 + (let ((__tmp17830 + (let ((__tmp17831 + (let ((__tmp17832 + (let ((__tmp17833 (let () (declare (not safe)) - (cons _k16103_ + (cons _k16052_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp16085_ __tmp17884)))) + (cons _tmp16034_ __tmp17833)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp17883)))) + __tmp17832)))) (declare (not safe)) - (cons __tmp17882 '())))) + (cons __tmp17831 '())))) (declare (not safe)) - (cons _id16104_ __tmp17881)))) + (cons _id16053_ __tmp17830)))) (declare (not safe)) - (cons 'set! __tmp17880)))) + (cons 'set! __tmp17829)))) (declare (not safe)) - (cons __tmp17879 _r16088_))))) + (cons __tmp17828 _r16037_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd1608916096_)) - (let ((_hd1609316109_ + (##pair? _hd1603816045_)) + (let ((_hd1604216058_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd1608916096_))) - (_tl1609416111_ - (let () (declare (not safe)) (##cdr _hd1608916096_)))) - (let* ((_id16114_ _hd1609316109_) (_k16116_ _tl1609416111_)) + (##car _hd1603816045_))) + (_tl1604316060_ + (let () (declare (not safe)) (##cdr _hd1603816045_)))) + (let* ((_id16063_ _hd1604216058_) (_k16065_ _tl1604316060_)) (declare (not safe)) - (_K1609216106_ _k16116_ _id16114_))) - (let () (declare (not safe)) (_E1609116100_))))))) + (_K1604116055_ _k16065_ _id16063_))) + (let () (declare (not safe)) (_E1604016049_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp17878 - _bind16058_ - _init16083_)))) + (foldr1 __tmp17827 + _bind16007_ + _init16032_)))) (declare (not safe)) - (_lp16054_ - _rest16082_ - __tmp17885 - __tmp17877))))) + (_lp16003_ + _rest16031_ + __tmp17834 + __tmp17826))))) (if (let () (declare (not safe)) - (##pair? _rest1605916071_)) - (let ((_hd1606416121_ + (##pair? _rest1600816020_)) + (let ((_hd1601316070_ (let () (declare (not safe)) - (##car _rest1605916071_))) - (_tl1606516123_ + (##car _rest1600816020_))) + (_tl1601416072_ (let () (declare (not safe)) - (##cdr _rest1605916071_)))) + (##cdr _rest1600816020_)))) (if (let () (declare (not safe)) - (##pair? _hd1606416121_)) - (let ((_hd1606616126_ + (##pair? _hd1601316070_)) + (let ((_hd1601516075_ (let () (declare (not safe)) - (##car _hd1606416121_))) - (_tl1606716128_ + (##car _hd1601316070_))) + (_tl1601616077_ (let () (declare (not safe)) - (##cdr _hd1606416121_)))) - (let ((_tmp16131_ _hd1606616126_)) + (##cdr _hd1601316070_)))) + (let ((_tmp16080_ _hd1601516075_)) (if (let () (declare (not safe)) - (##pair? _tl1606716128_)) - (let ((_hd1606816133_ + (##pair? _tl1601616077_)) + (let ((_hd1601716082_ (let () (declare (not safe)) - (##car _tl1606716128_))) - (_tl1606916135_ + (##car _tl1601616077_))) + (_tl1601816084_ (let () (declare (not safe)) - (##cdr _tl1606716128_)))) - (let* ((_len16138_ _hd1606816133_) - (_init16140_ _tl1606916135_) - (_rest16142_ - _tl1606516123_)) + (##cdr _tl1601616077_)))) + (let* ((_len16087_ _hd1601716082_) + (_init16089_ _tl1601816084_) + (_rest16091_ + _tl1601416072_)) (declare (not safe)) - (_K1606316118_ - _rest16142_ - _init16140_ - _len16138_ - _tmp16131_))) + (_K1601216067_ + _rest16091_ + _init16089_ + _len16087_ + _tmp16080_))) (let () (declare (not safe)) - (_else1606116079_))))) + (_else1601016028_))))) (let () (declare (not safe)) - (_else1606116079_)))) + (_else1601016028_)))) (let () (declare (not safe)) - (_else1606116079_)))))))) + (_else1601016028_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx16043_ - _compile-simple16045_ - _compile-values16046_))))) + _stx15992_ + _compile-simple15994_ + _compile-values15995_))))) (define __compile-letrec*-values% - (lambda (_stx15798_) - (letrec ((_compile-simple15800_ - (lambda (_hd-ids16039_ _exprs16040_ _body16041_) - (let ((__tmp17890 - (let ((__tmp17891 - (let ((__tmp17893 + (lambda (_stx15747_) + (letrec ((_compile-simple15749_ + (lambda (_hd-ids15988_ _exprs15989_ _body15990_) + (let ((__tmp17839 + (let ((__tmp17840 + (let ((__tmp17842 (map list (map __compile-head-id - _hd-ids16039_) - _exprs16040_)) - (__tmp17892 + _hd-ids15988_) + _exprs15989_)) + (__tmp17841 (let () (declare (not safe)) - (cons _body16041_ '())))) + (cons _body15990_ '())))) (declare (not safe)) - (cons __tmp17893 __tmp17892)))) + (cons __tmp17842 __tmp17841)))) (declare (not safe)) - (cons 'letrec* __tmp17891)))) + (cons 'letrec* __tmp17840)))) (declare (not safe)) - (__SRC__% __tmp17890 _stx15798_)))) - (_compile-values15801_ - (lambda (_hd-ids15950_ _exprs15951_ _body15952_) - (let _lp15954_ ((_rest15956_ _hd-ids15950_) - (_exprs15957_ _exprs15951_) - (_bind15958_ '()) - (_post15959_ '())) - (let* ((_rest1596015974_ _rest15956_) - (_else1596315982_ + (__SRC__% __tmp17839 _stx15747_)))) + (_compile-values15750_ + (lambda (_hd-ids15899_ _exprs15900_ _body15901_) + (let _lp15903_ ((_rest15905_ _hd-ids15899_) + (_exprs15906_ _exprs15900_) + (_bind15907_ '()) + (_post15908_ '())) + (let* ((_rest1590915923_ _rest15905_) + (_else1591215931_ (lambda () (let () (declare (not safe)) - (_compile-bind15802_ - _bind15958_ - _post15959_ - _body15952_))))) - (let ((_K1596816022_ - (lambda (_rest16017_ _hd16018_) + (_compile-bind15751_ + _bind15907_ + _post15908_ + _body15901_))))) + (let ((_K1591715971_ + (lambda (_rest15966_ _hd15967_) (if (let () (declare (not safe)) - (__AST-id? _hd16018_)) - (let ((_id16020_ + (__AST-id? _hd15967_)) + (let ((_id15969_ (let () (declare (not safe)) - (__SRC__0 _hd16018_)))) - (let ((__tmp17908 (cdr _exprs15957_)) - (__tmp17903 - (let ((__tmp17904 - (let ((__tmp17905 - (let ((__tmp17906 + (__SRC__0 _hd15967_)))) + (let ((__tmp17857 (cdr _exprs15906_)) + (__tmp17852 + (let ((__tmp17853 + (let ((__tmp17854 + (let ((__tmp17855 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17907 + (let ((__tmp17856 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17907)))) + (cons 'quote __tmp17856)))) (declare (not safe)) - (cons __tmp17906 '())))) + (cons __tmp17855 '())))) (declare (not safe)) - (cons _id16020_ __tmp17905)))) + (cons _id15969_ __tmp17854)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17904 _bind15958_))) - (__tmp17899 - (let ((__tmp17900 - (let ((__tmp17901 - (let ((__tmp17902 + (cons __tmp17853 _bind15907_))) + (__tmp17848 + (let ((__tmp17849 + (let ((__tmp17850 + (let ((__tmp17851 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs15957_))) + (car _exprs15906_))) (declare (not safe)) - (cons __tmp17902 '())))) + (cons __tmp17851 '())))) (declare (not safe)) - (cons _id16020_ __tmp17901)))) + (cons _id15969_ __tmp17850)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17900 - _post15959_)))) + (cons __tmp17849 + _post15908_)))) (declare (not safe)) - (_lp15954_ - _rest16017_ - __tmp17908 - __tmp17903 - __tmp17899))) - (let ((__tmp17898 (cdr _exprs15957_)) - (__tmp17894 - (let ((__tmp17895 - (let ((__tmp17896 - (let ((__tmp17897 + (_lp15903_ + _rest15966_ + __tmp17857 + __tmp17852 + __tmp17848))) + (let ((__tmp17847 (cdr _exprs15906_)) + (__tmp17843 + (let ((__tmp17844 + (let ((__tmp17845 + (let ((__tmp17846 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs15957_))) + (car _exprs15906_))) (declare (not safe)) - (cons __tmp17897 '())))) + (cons __tmp17846 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp17896)))) + (cons '#f __tmp17845)))) (declare (not safe)) - (cons __tmp17895 _post15959_)))) + (cons __tmp17844 _post15908_)))) (declare (not safe)) - (_lp15954_ - _rest16017_ - __tmp17898 - _bind15958_ - __tmp17894))))) - (_K1596516002_ - (lambda (_rest15986_ _hd15987_) + (_lp15903_ + _rest15966_ + __tmp17847 + _bind15907_ + __tmp17843))))) + (_K1591415951_ + (lambda (_rest15935_ _hd15936_) (if (let () (declare (not safe)) - (__AST-id? _hd15987_)) - (let ((_id15989_ + (__AST-id? _hd15936_)) + (let ((_id15938_ (let () (declare (not safe)) - (__SRC__0 _hd15987_)))) - (let ((__tmp17944 (cdr _exprs15957_)) - (__tmp17939 - (let ((__tmp17940 - (let ((__tmp17941 - (let ((__tmp17942 + (__SRC__0 _hd15936_)))) + (let ((__tmp17893 (cdr _exprs15906_)) + (__tmp17888 + (let ((__tmp17889 + (let ((__tmp17890 + (let ((__tmp17891 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17943 + (let ((__tmp17892 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17943)))) + (cons 'quote __tmp17892)))) (declare (not safe)) - (cons __tmp17942 '())))) + (cons __tmp17891 '())))) (declare (not safe)) - (cons _id15989_ __tmp17941)))) + (cons _id15938_ __tmp17890)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17940 _bind15958_))) - (__tmp17933 - (let ((__tmp17934 - (let ((__tmp17935 - (let ((__tmp17936 + (cons __tmp17889 _bind15907_))) + (__tmp17882 + (let ((__tmp17883 + (let ((__tmp17884 + (let ((__tmp17885 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17937 - (let ((__tmp17938 (car _exprs15957_))) + (let ((__tmp17886 + (let ((__tmp17887 (car _exprs15906_))) (declare (not safe)) - (cons __tmp17938 '())))) + (cons __tmp17887 '())))) (declare (not safe)) - (cons 'values->list __tmp17937)))) + (cons 'values->list __tmp17886)))) (declare (not safe)) - (cons __tmp17936 '())))) + (cons __tmp17885 '())))) (declare (not safe)) - (cons _id15989_ __tmp17935)))) + (cons _id15938_ __tmp17884)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17934 - _post15959_)))) + (cons __tmp17883 + _post15908_)))) (declare (not safe)) - (_lp15954_ - _rest15986_ - __tmp17944 - __tmp17939 - __tmp17933))) - (if (let ((__tmp17932 + (_lp15903_ + _rest15935_ + __tmp17893 + __tmp17888 + __tmp17882))) + (if (let ((__tmp17881 (let () (declare (not safe)) - (__AST-e _hd15987_)))) + (__AST-e _hd15936_)))) (declare (not safe)) - (not __tmp17932)) - (let ((__tmp17931 (cdr _exprs15957_)) - (__tmp17927 - (let ((__tmp17928 - (let ((__tmp17929 - (let ((__tmp17930 + (not __tmp17881)) + (let ((__tmp17880 (cdr _exprs15906_)) + (__tmp17876 + (let ((__tmp17877 + (let ((__tmp17878 + (let ((__tmp17879 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs15957_))) + (car _exprs15906_))) (declare (not safe)) - (cons __tmp17930 '())))) + (cons __tmp17879 '())))) (declare (not safe)) - (cons '#f __tmp17929)))) + (cons '#f __tmp17878)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17928 - _post15959_)))) + (cons __tmp17877 + _post15908_)))) (declare (not safe)) - (_lp15954_ - _rest15986_ - __tmp17931 - _bind15958_ - __tmp17927)) + (_lp15903_ + _rest15935_ + __tmp17880 + _bind15907_ + __tmp17876)) (if (let () (declare (not safe)) - (list? _hd15987_)) - (let* ((_len15991_ - (length _hd15987_)) - (_tmp15993_ - (let ((__tmp17909 + (list? _hd15936_)) + (let* ((_len15940_ + (length _hd15936_)) + (_tmp15942_ + (let ((__tmp17858 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17909)))) - (let ((__tmp17926 - (cdr _exprs15957_)) - (__tmp17919 - (let ((__tmp17920 - (lambda (_id15996_ + (__SRC__0 __tmp17858)))) + (let ((__tmp17875 + (cdr _exprs15906_)) + (__tmp17868 + (let ((__tmp17869 + (lambda (_id15945_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r15997_) - (if (let () (declare (not safe)) (__AST-e _id15996_)) - (let ((__tmp17921 - (let ((__tmp17925 + _r15946_) + (if (let () (declare (not safe)) (__AST-e _id15945_)) + (let ((__tmp17870 + (let ((__tmp17874 (let () (declare (not safe)) - (__SRC__0 _id15996_))) - (__tmp17922 - (let ((__tmp17923 - (let ((__tmp17924 + (__SRC__0 _id15945_))) + (__tmp17871 + (let ((__tmp17872 + (let ((__tmp17873 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17924)))) + (cons 'quote __tmp17873)))) (declare (not safe)) - (cons __tmp17923 '())))) + (cons __tmp17872 '())))) (declare (not safe)) - (cons __tmp17925 __tmp17922)))) + (cons __tmp17874 __tmp17871)))) (declare (not safe)) - (cons __tmp17921 _r15997_)) - _r15997_)))) + (cons __tmp17870 _r15946_)) + _r15946_)))) (declare (not safe)) - (foldl1 __tmp17920 _bind15958_ _hd15987_))) + (foldl1 __tmp17869 _bind15907_ _hd15936_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp17910 - (let ((__tmp17911 - (let ((__tmp17912 + (__tmp17859 + (let ((__tmp17860 + (let ((__tmp17861 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17918 (car _exprs15957_)) - (__tmp17913 - (let ((__tmp17914 - (let ((__tmp17916 - (lambda (_id15999_ _k16000_) + (let ((__tmp17867 (car _exprs15906_)) + (__tmp17862 + (let ((__tmp17863 + (let ((__tmp17865 + (lambda (_id15948_ _k15949_) (if (let () (declare (not safe)) - (__AST-e _id15999_)) - (let ((__tmp17917 + (__AST-e _id15948_)) + (let ((__tmp17866 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id15999_)))) + (__SRC__0 _id15948_)))) (declare (not safe)) - (cons __tmp17917 _k16000_)) + (cons __tmp17866 _k15949_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp17915 + (__tmp17864 (let () (declare (not safe)) - (iota _len15991_)))) + (iota _len15940_)))) (declare (not safe)) (filter-map2 - __tmp17916 - _hd15987_ - __tmp17915)))) + __tmp17865 + _hd15936_ + __tmp17864)))) (declare (not safe)) - (cons _len15991_ __tmp17914)))) + (cons _len15940_ __tmp17863)))) (declare (not safe)) - (cons __tmp17918 __tmp17913)))) + (cons __tmp17867 __tmp17862)))) (declare (not safe)) - (cons _tmp15993_ __tmp17912)))) + (cons _tmp15942_ __tmp17861)))) (declare (not safe)) - (cons __tmp17911 _post15959_)))) + (cons __tmp17860 _post15908_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp15954_ - _rest15986_ - __tmp17926 - __tmp17919 - __tmp17910))) + (_lp15903_ + _rest15935_ + __tmp17875 + __tmp17868 + __tmp17859))) (let () (declare (not safe)) (__compile-error__% - _stx15798_ - _hd15987_)))))))) + _stx15747_ + _hd15936_)))))))) (if (let () (declare (not safe)) - (##pair? _rest1596015974_)) - (let ((_tl1597016027_ + (##pair? _rest1590915923_)) + (let ((_tl1591915976_ (let () (declare (not safe)) - (##cdr _rest1596015974_))) - (_hd1596916025_ + (##cdr _rest1590915923_))) + (_hd1591815974_ (let () (declare (not safe)) - (##car _rest1596015974_)))) + (##car _rest1590915923_)))) (if (let () (declare (not safe)) - (##pair? _hd1596916025_)) - (let ((_tl1597216032_ + (##pair? _hd1591815974_)) + (let ((_tl1592115981_ (let () (declare (not safe)) - (##cdr _hd1596916025_))) - (_hd1597116030_ + (##cdr _hd1591815974_))) + (_hd1592015979_ (let () (declare (not safe)) - (##car _hd1596916025_)))) + (##car _hd1591815974_)))) (if (let () (declare (not safe)) - (##null? _tl1597216032_)) - (let ((_hd16035_ _hd1597116030_) - (_rest16037_ _tl1597016027_)) + (##null? _tl1592115981_)) + (let ((_hd15984_ _hd1592015979_) + (_rest15986_ _tl1591915976_)) (let () (declare (not safe)) - (_K1596816022_ - _rest16037_ - _hd16035_))) - (let ((_hd16010_ _hd1596916025_) - (_rest16012_ _tl1597016027_)) + (_K1591715971_ + _rest15986_ + _hd15984_))) + (let ((_hd15959_ _hd1591815974_) + (_rest15961_ _tl1591915976_)) (let () (declare (not safe)) - (_K1596516002_ - _rest16012_ - _hd16010_))))) - (let ((_hd16010_ _hd1596916025_) - (_rest16012_ _tl1597016027_)) + (_K1591415951_ + _rest15961_ + _hd15959_))))) + (let ((_hd15959_ _hd1591815974_) + (_rest15961_ _tl1591915976_)) (let () (declare (not safe)) - (_K1596516002_ - _rest16012_ - _hd16010_))))) + (_K1591415951_ + _rest15961_ + _hd15959_))))) (let () (declare (not safe)) - (_else1596315982_)))))))) - (_compile-bind15802_ - (lambda (_bind15946_ _post15947_ _body15948_) - (let ((__tmp17945 - (let ((__tmp17946 - (let ((__tmp17949 (reverse _bind15946_)) - (__tmp17947 - (let ((__tmp17948 + (_else1591215931_)))))))) + (_compile-bind15751_ + (lambda (_bind15895_ _post15896_ _body15897_) + (let ((__tmp17894 + (let ((__tmp17895 + (let ((__tmp17898 (reverse _bind15895_)) + (__tmp17896 + (let ((__tmp17897 (let () (declare (not safe)) - (_compile-post15803_ - _post15947_ - _body15948_)))) + (_compile-post15752_ + _post15896_ + _body15897_)))) (declare (not safe)) - (cons __tmp17948 '())))) + (cons __tmp17897 '())))) (declare (not safe)) - (cons __tmp17949 __tmp17947)))) + (cons __tmp17898 __tmp17896)))) (declare (not safe)) - (cons 'let __tmp17946)))) + (cons 'let __tmp17895)))) (declare (not safe)) - (__SRC__% __tmp17945 _stx15798_)))) - (_compile-post15803_ - (lambda (_post15805_ _body15806_) - (let ((__tmp17950 - (let ((__tmp17951 - (let ((__tmp17952 - (let ((__tmp17954 - (lambda (_hd15808_ _r15809_) - (let* ((_hd1581015833_ - _hd15808_) - (_E1581415837_ + (__SRC__% __tmp17894 _stx15747_)))) + (_compile-post15752_ + (lambda (_post15754_ _body15755_) + (let ((__tmp17899 + (let ((__tmp17900 + (let ((__tmp17901 + (let ((__tmp17903 + (lambda (_hd15757_ _r15758_) + (let* ((_hd1575915782_ + _hd15757_) + (_E1576315786_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1581015833_)))) + _hd1575915782_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K1582715931_ - (lambda (_expr15929_) + (let ((_K1577615880_ + (lambda (_expr15878_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr15929_ _r15809_)))) - (_K1582215909_ - (lambda (_expr15906_ _id15907_) - (let ((__tmp17955 - (let ((__tmp17956 - (let ((__tmp17957 - (let ((__tmp17958 + (cons _expr15878_ _r15758_)))) + (_K1577115858_ + (lambda (_expr15855_ _id15856_) + (let ((__tmp17904 + (let ((__tmp17905 + (let ((__tmp17906 + (let ((__tmp17907 (let () (declare (not safe)) - (cons _expr15906_ '())))) + (cons _expr15855_ '())))) (declare (not safe)) - (cons _id15907_ __tmp17958)))) + (cons _id15856_ __tmp17907)))) (declare (not safe)) - (cons 'set! __tmp17957)))) + (cons 'set! __tmp17906)))) (declare (not safe)) - (__SRC__% __tmp17956 _stx15798_)))) + (__SRC__% __tmp17905 _stx15747_)))) (declare (not safe)) - (cons __tmp17955 _r15809_)))) - (_K1581515876_ - (lambda (_init15841_ _len15842_ _expr15843_ _tmp15844_) - (let ((__tmp17959 - (let ((__tmp17960 - (let ((__tmp17961 - (let ((__tmp17975 - (let ((__tmp17976 - (let ((__tmp17977 + (cons __tmp17904 _r15758_)))) + (_K1576415825_ + (lambda (_init15790_ _len15791_ _expr15792_ _tmp15793_) + (let ((__tmp17908 + (let ((__tmp17909 + (let ((__tmp17910 + (let ((__tmp17924 + (let ((__tmp17925 + (let ((__tmp17926 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr15843_ '())))) + (cons _expr15792_ '())))) (declare (not safe)) - (cons _tmp15844_ __tmp17977)))) + (cons _tmp15793_ __tmp17926)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17976 '()))) - (__tmp17962 - (let ((__tmp17971 - (let ((__tmp17972 - (let ((__tmp17973 + (cons __tmp17925 '()))) + (__tmp17911 + (let ((__tmp17920 + (let ((__tmp17921 + (let ((__tmp17922 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17974 + (let ((__tmp17923 (let () (declare (not safe)) - (cons _len15842_ '())))) + (cons _len15791_ '())))) (declare (not safe)) - (cons _tmp15844_ __tmp17974)))) + (cons _tmp15793_ __tmp17923)))) (declare (not safe)) - (cons '__check-values __tmp17973)))) + (cons '__check-values __tmp17922)))) (declare (not safe)) - (__SRC__% __tmp17972 _stx15798_))) - (__tmp17963 - (let ((__tmp17964 - (map (lambda (_hd15846_) - (let* ((_hd1584715854_ _hd15846_) - (_E1584915858_ + (__SRC__% __tmp17921 _stx15747_))) + (__tmp17912 + (let ((__tmp17913 + (map (lambda (_hd15795_) + (let* ((_hd1579615803_ _hd15795_) + (_E1579815807_ (lambda () (error '"No clause matching" - _hd1584715854_))) - (_K1585015864_ - (lambda (_k15861_ _id15862_) - (let ((__tmp17965 - (let ((__tmp17966 - (let ((__tmp17967 - (let ((__tmp17968 + _hd1579615803_))) + (_K1579915813_ + (lambda (_k15810_ _id15811_) + (let ((__tmp17914 + (let ((__tmp17915 + (let ((__tmp17916 + (let ((__tmp17917 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17969 - (let ((__tmp17970 + (let ((__tmp17918 + (let ((__tmp17919 (let () (declare (not safe)) - (cons _k15861_ '())))) + (cons _k15810_ '())))) (declare (not safe)) - (cons _tmp15844_ __tmp17970)))) + (cons _tmp15793_ __tmp17919)))) (declare (not safe)) - (cons '##vector-ref __tmp17969)))) + (cons '##vector-ref __tmp17918)))) (declare (not safe)) - (cons __tmp17968 '())))) + (cons __tmp17917 '())))) (declare (not safe)) - (cons _id15862_ __tmp17967)))) + (cons _id15811_ __tmp17916)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp17966)))) + (cons 'set! __tmp17915)))) (declare (not safe)) - (__SRC__% __tmp17965 _stx15798_))))) + (__SRC__% __tmp17914 _stx15747_))))) (if (let () (declare (not safe)) - (##pair? _hd1584715854_)) - (let ((_hd1585115867_ + (##pair? _hd1579615803_)) + (let ((_hd1580015816_ (let () (declare (not safe)) - (##car _hd1584715854_))) - (_tl1585215869_ + (##car _hd1579615803_))) + (_tl1580115818_ (let () (declare (not safe)) - (##cdr _hd1584715854_)))) - (let* ((_id15872_ _hd1585115867_) - (_k15874_ _tl1585215869_)) + (##cdr _hd1579615803_)))) + (let* ((_id15821_ _hd1580015816_) + (_k15823_ _tl1580115818_)) (declare (not safe)) - (_K1585015864_ _k15874_ _id15872_))) + (_K1579915813_ _k15823_ _id15821_))) (let () (declare (not safe)) - (_E1584915858_))))) - _init15841_))) + (_E1579815807_))))) + _init15790_))) (declare (not safe)) - (foldr1 cons '() __tmp17964)))) + (foldr1 cons '() __tmp17913)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17971 - __tmp17963)))) + (cons __tmp17920 + __tmp17912)))) (declare (not safe)) - (cons __tmp17975 __tmp17962)))) + (cons __tmp17924 __tmp17911)))) (declare (not safe)) - (cons 'let __tmp17961)))) + (cons 'let __tmp17910)))) (declare (not safe)) - (__SRC__% __tmp17960 _stx15798_)))) + (__SRC__% __tmp17909 _stx15747_)))) (declare (not safe)) - (cons __tmp17959 _r15809_))))) - (if (let () (declare (not safe)) (##pair? _hd1581015833_)) - (let ((_tl1582915936_ - (let () (declare (not safe)) (##cdr _hd1581015833_))) - (_hd1582815934_ - (let () (declare (not safe)) (##car _hd1581015833_)))) + (cons __tmp17908 _r15758_))))) + (if (let () (declare (not safe)) (##pair? _hd1575915782_)) + (let ((_tl1577815885_ + (let () (declare (not safe)) (##cdr _hd1575915782_))) + (_hd1577715883_ + (let () (declare (not safe)) (##car _hd1575915782_)))) (if (let () (declare (not safe)) - (##eq? _hd1582815934_ '#f)) + (##eq? _hd1577715883_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl1582915936_)) - (let ((_tl1583115941_ + (##pair? _tl1577815885_)) + (let ((_tl1578015890_ (let () (declare (not safe)) - (##cdr _tl1582915936_))) - (_hd1583015939_ + (##cdr _tl1577815885_))) + (_hd1577915888_ (let () (declare (not safe)) - (##car _tl1582915936_)))) + (##car _tl1577815885_)))) (if (let () (declare (not safe)) - (##null? _tl1583115941_)) - (let ((_expr15944_ _hd1583015939_)) + (##null? _tl1578015890_)) + (let ((_expr15893_ _hd1577915888_)) (declare (not safe)) - (_K1582715931_ _expr15944_)) + (_K1577615880_ _expr15893_)) (if (let () (declare (not safe)) - (##pair? _tl1583115941_)) - (let ((_tl1582115895_ + (##pair? _tl1578015890_)) + (let ((_tl1577015844_ (let () (declare (not safe)) - (##cdr _tl1583115941_))) - (_hd1582015893_ + (##cdr _tl1578015890_))) + (_hd1576915842_ (let () (declare (not safe)) - (##car _tl1583115941_)))) - (let ((_tmp15884_ _hd1582815934_) - (_expr15891_ _hd1583015939_) - (_len15898_ _hd1582015893_) - (_init15900_ _tl1582115895_)) + (##car _tl1578015890_)))) + (let ((_tmp15833_ _hd1577715883_) + (_expr15840_ _hd1577915888_) + (_len15847_ _hd1576915842_) + (_init15849_ _tl1577015844_)) (let () (declare (not safe)) - (_K1581515876_ - _init15900_ - _len15898_ - _expr15891_ - _tmp15884_)))) + (_K1576415825_ + _init15849_ + _len15847_ + _expr15840_ + _tmp15833_)))) (let () (declare (not safe)) - (_E1581415837_))))) - (let () (declare (not safe)) (_E1581415837_))) + (_E1576315786_))))) + (let () (declare (not safe)) (_E1576315786_))) (if (let () (declare (not safe)) - (##pair? _tl1582915936_)) - (let ((_tl1582615921_ + (##pair? _tl1577815885_)) + (let ((_tl1577515870_ (let () (declare (not safe)) - (##cdr _tl1582915936_))) - (_hd1582515919_ + (##cdr _tl1577815885_))) + (_hd1577415868_ (let () (declare (not safe)) - (##car _tl1582915936_)))) + (##car _tl1577815885_)))) (if (let () (declare (not safe)) - (##null? _tl1582615921_)) - (let ((_id15917_ _hd1582815934_) - (_expr15924_ _hd1582515919_)) + (##null? _tl1577515870_)) + (let ((_id15866_ _hd1577715883_) + (_expr15873_ _hd1577415868_)) (let () (declare (not safe)) - (_K1582215909_ _expr15924_ _id15917_))) + (_K1577115858_ _expr15873_ _id15866_))) (if (let () (declare (not safe)) - (##pair? _tl1582615921_)) - (let ((_tl1582115895_ + (##pair? _tl1577515870_)) + (let ((_tl1577015844_ (let () (declare (not safe)) - (##cdr _tl1582615921_))) - (_hd1582015893_ + (##cdr _tl1577515870_))) + (_hd1576915842_ (let () (declare (not safe)) - (##car _tl1582615921_)))) - (let ((_tmp15884_ _hd1582815934_) - (_expr15891_ _hd1582515919_) - (_len15898_ _hd1582015893_) - (_init15900_ _tl1582115895_)) + (##car _tl1577515870_)))) + (let ((_tmp15833_ _hd1577715883_) + (_expr15840_ _hd1577415868_) + (_len15847_ _hd1576915842_) + (_init15849_ _tl1577015844_)) (let () (declare (not safe)) - (_K1581515876_ - _init15900_ - _len15898_ - _expr15891_ - _tmp15884_)))) + (_K1576415825_ + _init15849_ + _len15847_ + _expr15840_ + _tmp15833_)))) (let () (declare (not safe)) - (_E1581415837_))))) - (let () (declare (not safe)) (_E1581415837_))))) - (let () (declare (not safe)) (_E1581415837_))))))) + (_E1576315786_))))) + (let () (declare (not safe)) (_E1576315786_))))) + (let () (declare (not safe)) (_E1576315786_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp17953 (list _body15806_))) + (__tmp17902 (list _body15755_))) (declare (not safe)) - (foldl1 __tmp17954 - __tmp17953 - _post15805_)))) + (foldl1 __tmp17903 + __tmp17902 + _post15754_)))) (declare (not safe)) - (foldr1 cons '() __tmp17952)))) + (foldr1 cons '() __tmp17901)))) (declare (not safe)) - (cons 'begin __tmp17951)))) + (cons 'begin __tmp17900)))) (declare (not safe)) - (__SRC__% __tmp17950 _stx15798_))))) + (__SRC__% __tmp17899 _stx15747_))))) (let () (declare (not safe)) (__compile-let-form - _stx15798_ - _compile-simple15800_ - _compile-values15801_))))) + _stx15747_ + _compile-simple15749_ + _compile-values15750_))))) (define __compile-call% - (lambda (_stx15758_) - (let* ((_$e15760_ _stx15758_) - (_$E1576215771_ + (lambda (_stx15707_) + (let* ((_$e15709_ _stx15707_) + (_$E1571115720_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e15760_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15760_)) - (let* ((_$tgt1576315774_ - (let () (declare (not safe)) (__AST-e _$e15760_))) - (_$hd1576415777_ - (let () (declare (not safe)) (##car _$tgt1576315774_))) - (_$tl1576515780_ - (let () (declare (not safe)) (##cdr _$tgt1576315774_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1576515780_)) - (let* ((_$tgt1576615784_ + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e15709_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15709_)) + (let* ((_$tgt1571215723_ + (let () (declare (not safe)) (__AST-e _$e15709_))) + (_$hd1571315726_ + (let () (declare (not safe)) (##car _$tgt1571215723_))) + (_$tl1571415729_ + (let () (declare (not safe)) (##cdr _$tgt1571215723_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1571415729_)) + (let* ((_$tgt1571515733_ (let () (declare (not safe)) - (__AST-e _$tl1576515780_))) - (_$hd1576715787_ + (__AST-e _$tl1571415729_))) + (_$hd1571615736_ (let () (declare (not safe)) - (##car _$tgt1576615784_))) - (_$tl1576815790_ + (##car _$tgt1571515733_))) + (_$tl1571715739_ (let () (declare (not safe)) - (##cdr _$tgt1576615784_)))) - (let* ((_rator15794_ _$hd1576715787_) - (_rands15796_ _$tl1576815790_) - (__tmp17978 - (let ((__tmp17980 + (##cdr _$tgt1571515733_)))) + (let* ((_rator15743_ _$hd1571615736_) + (_rands15745_ _$tl1571715739_) + (__tmp17927 + (let ((__tmp17929 (let () (declare (not safe)) - (__compile _rator15794_))) - (__tmp17979 (map __compile _rands15796_))) + (__compile _rator15743_))) + (__tmp17928 (map __compile _rands15745_))) (declare (not safe)) - (cons __tmp17980 __tmp17979)))) + (cons __tmp17929 __tmp17928)))) (declare (not safe)) - (__SRC__% __tmp17978 _stx15758_))) - (let () (declare (not safe)) (_$E1576215771_)))) - (let () (declare (not safe)) (_$E1576215771_)))))) + (__SRC__% __tmp17927 _stx15707_))) + (let () (declare (not safe)) (_$E1571115720_)))) + (let () (declare (not safe)) (_$E1571115720_)))))) (define __compile-ref% - (lambda (_stx15720_) - (let* ((_$e15722_ _stx15720_) - (_$E1572415733_ + (lambda (_stx15669_) + (let* ((_$e15671_ _stx15669_) + (_$E1567315682_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e15722_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15722_)) - (let* ((_$tgt1572515736_ - (let () (declare (not safe)) (__AST-e _$e15722_))) - (_$hd1572615739_ - (let () (declare (not safe)) (##car _$tgt1572515736_))) - (_$tl1572715742_ - (let () (declare (not safe)) (##cdr _$tgt1572515736_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1572715742_)) - (let* ((_$tgt1572815746_ + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e15671_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15671_)) + (let* ((_$tgt1567415685_ + (let () (declare (not safe)) (__AST-e _$e15671_))) + (_$hd1567515688_ + (let () (declare (not safe)) (##car _$tgt1567415685_))) + (_$tl1567615691_ + (let () (declare (not safe)) (##cdr _$tgt1567415685_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1567615691_)) + (let* ((_$tgt1567715695_ (let () (declare (not safe)) - (__AST-e _$tl1572715742_))) - (_$hd1572915749_ + (__AST-e _$tl1567615691_))) + (_$hd1567815698_ (let () (declare (not safe)) - (##car _$tgt1572815746_))) - (_$tl1573015752_ + (##car _$tgt1567715695_))) + (_$tl1567915701_ (let () (declare (not safe)) - (##cdr _$tgt1572815746_)))) - (let ((_id15756_ _$hd1572915749_)) - (if (let ((__tmp17981 + (##cdr _$tgt1567715695_)))) + (let ((_id15705_ _$hd1567815698_)) + (if (let ((__tmp17930 (let () (declare (not safe)) - (__AST-e _$tl1573015752_)))) + (__AST-e _$tl1567915701_)))) (declare (not safe)) - (equal? __tmp17981 '())) + (equal? __tmp17930 '())) (let () (declare (not safe)) - (__SRC__% _id15756_ _stx15720_)) - (let () (declare (not safe)) (_$E1572415733_))))) - (let () (declare (not safe)) (_$E1572415733_)))) - (let () (declare (not safe)) (_$E1572415733_)))))) + (__SRC__% _id15705_ _stx15669_)) + (let () (declare (not safe)) (_$E1567315682_))))) + (let () (declare (not safe)) (_$E1567315682_)))) + (let () (declare (not safe)) (_$E1567315682_)))))) (define __compile-setq% - (lambda (_stx15667_) - (let* ((_$e15669_ _stx15667_) - (_$E1567115683_ + (lambda (_stx15616_) + (let* ((_$e15618_ _stx15616_) + (_$E1562015632_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e15669_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15669_)) - (let* ((_$tgt1567215686_ - (let () (declare (not safe)) (__AST-e _$e15669_))) - (_$hd1567315689_ - (let () (declare (not safe)) (##car _$tgt1567215686_))) - (_$tl1567415692_ - (let () (declare (not safe)) (##cdr _$tgt1567215686_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1567415692_)) - (let* ((_$tgt1567515696_ + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e15618_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15618_)) + (let* ((_$tgt1562115635_ + (let () (declare (not safe)) (__AST-e _$e15618_))) + (_$hd1562215638_ + (let () (declare (not safe)) (##car _$tgt1562115635_))) + (_$tl1562315641_ + (let () (declare (not safe)) (##cdr _$tgt1562115635_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1562315641_)) + (let* ((_$tgt1562415645_ (let () (declare (not safe)) - (__AST-e _$tl1567415692_))) - (_$hd1567615699_ + (__AST-e _$tl1562315641_))) + (_$hd1562515648_ (let () (declare (not safe)) - (##car _$tgt1567515696_))) - (_$tl1567715702_ + (##car _$tgt1562415645_))) + (_$tl1562615651_ (let () (declare (not safe)) - (##cdr _$tgt1567515696_)))) - (let ((_id15706_ _$hd1567615699_)) + (##cdr _$tgt1562415645_)))) + (let ((_id15655_ _$hd1562515648_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1567715702_)) - (let* ((_$tgt1567815708_ + (__AST-pair? _$tl1562615651_)) + (let* ((_$tgt1562715657_ (let () (declare (not safe)) - (__AST-e _$tl1567715702_))) - (_$hd1567915711_ + (__AST-e _$tl1562615651_))) + (_$hd1562815660_ (let () (declare (not safe)) - (##car _$tgt1567815708_))) - (_$tl1568015714_ + (##car _$tgt1562715657_))) + (_$tl1562915663_ (let () (declare (not safe)) - (##cdr _$tgt1567815708_)))) - (let ((_expr15718_ _$hd1567915711_)) - (if (let ((__tmp17987 + (##cdr _$tgt1562715657_)))) + (let ((_expr15667_ _$hd1562815660_)) + (if (let ((__tmp17936 (let () (declare (not safe)) - (__AST-e _$tl1568015714_)))) + (__AST-e _$tl1562915663_)))) (declare (not safe)) - (equal? __tmp17987 '())) - (let ((__tmp17982 - (let ((__tmp17983 - (let ((__tmp17986 + (equal? __tmp17936 '())) + (let ((__tmp17931 + (let ((__tmp17932 + (let ((__tmp17935 (let () (declare (not safe)) (__SRC__% - _id15706_ - _stx15667_))) - (__tmp17984 - (let ((__tmp17985 + _id15655_ + _stx15616_))) + (__tmp17933 + (let ((__tmp17934 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr15718_)))) + (__compile _expr15667_)))) (declare (not safe)) - (cons __tmp17985 '())))) + (cons __tmp17934 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17986 - __tmp17984)))) + (cons __tmp17935 + __tmp17933)))) (declare (not safe)) - (cons 'set! __tmp17983)))) + (cons 'set! __tmp17932)))) (declare (not safe)) - (__SRC__% __tmp17982 _stx15667_)) + (__SRC__% __tmp17931 _stx15616_)) (let () (declare (not safe)) - (_$E1567115683_))))) - (let () (declare (not safe)) (_$E1567115683_))))) - (let () (declare (not safe)) (_$E1567115683_)))) - (let () (declare (not safe)) (_$E1567115683_)))))) + (_$E1562015632_))))) + (let () (declare (not safe)) (_$E1562015632_))))) + (let () (declare (not safe)) (_$E1562015632_)))) + (let () (declare (not safe)) (_$E1562015632_)))))) (define __compile-if% - (lambda (_stx15599_) - (let* ((_$e15601_ _stx15599_) - (_$E1560315618_ + (lambda (_stx15548_) + (let* ((_$e15550_ _stx15548_) + (_$E1555215567_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e15601_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15601_)) - (let* ((_$tgt1560415621_ - (let () (declare (not safe)) (__AST-e _$e15601_))) - (_$hd1560515624_ - (let () (declare (not safe)) (##car _$tgt1560415621_))) - (_$tl1560615627_ - (let () (declare (not safe)) (##cdr _$tgt1560415621_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1560615627_)) - (let* ((_$tgt1560715631_ + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e15550_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15550_)) + (let* ((_$tgt1555315570_ + (let () (declare (not safe)) (__AST-e _$e15550_))) + (_$hd1555415573_ + (let () (declare (not safe)) (##car _$tgt1555315570_))) + (_$tl1555515576_ + (let () (declare (not safe)) (##cdr _$tgt1555315570_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1555515576_)) + (let* ((_$tgt1555615580_ (let () (declare (not safe)) - (__AST-e _$tl1560615627_))) - (_$hd1560815634_ + (__AST-e _$tl1555515576_))) + (_$hd1555715583_ (let () (declare (not safe)) - (##car _$tgt1560715631_))) - (_$tl1560915637_ + (##car _$tgt1555615580_))) + (_$tl1555815586_ (let () (declare (not safe)) - (##cdr _$tgt1560715631_)))) - (let ((_p15641_ _$hd1560815634_)) + (##cdr _$tgt1555615580_)))) + (let ((_p15590_ _$hd1555715583_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1560915637_)) - (let* ((_$tgt1561015643_ + (__AST-pair? _$tl1555815586_)) + (let* ((_$tgt1555915592_ (let () (declare (not safe)) - (__AST-e _$tl1560915637_))) - (_$hd1561115646_ + (__AST-e _$tl1555815586_))) + (_$hd1556015595_ (let () (declare (not safe)) - (##car _$tgt1561015643_))) - (_$tl1561215649_ + (##car _$tgt1555915592_))) + (_$tl1556115598_ (let () (declare (not safe)) - (##cdr _$tgt1561015643_)))) - (let ((_t15653_ _$hd1561115646_)) + (##cdr _$tgt1555915592_)))) + (let ((_t15602_ _$hd1556015595_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1561215649_)) - (let* ((_$tgt1561315655_ + (__AST-pair? _$tl1556115598_)) + (let* ((_$tgt1556215604_ (let () (declare (not safe)) - (__AST-e _$tl1561215649_))) - (_$hd1561415658_ + (__AST-e _$tl1556115598_))) + (_$hd1556315607_ (let () (declare (not safe)) - (##car _$tgt1561315655_))) - (_$tl1561515661_ + (##car _$tgt1556215604_))) + (_$tl1556415610_ (let () (declare (not safe)) - (##cdr _$tgt1561315655_)))) - (let ((_f15665_ _$hd1561415658_)) - (if (let ((__tmp17995 + (##cdr _$tgt1556215604_)))) + (let ((_f15614_ _$hd1556315607_)) + (if (let ((__tmp17944 (let () (declare (not safe)) - (__AST-e _$tl1561515661_)))) + (__AST-e _$tl1556415610_)))) (declare (not safe)) - (equal? __tmp17995 '())) - (let ((__tmp17988 - (let ((__tmp17989 - (let ((__tmp17994 + (equal? __tmp17944 '())) + (let ((__tmp17937 + (let ((__tmp17938 + (let ((__tmp17943 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p15641_))) - (__tmp17990 - (let ((__tmp17993 + (let () (declare (not safe)) (__compile _p15590_))) + (__tmp17939 + (let ((__tmp17942 (let () (declare (not safe)) - (__compile _t15653_))) - (__tmp17991 - (let ((__tmp17992 + (__compile _t15602_))) + (__tmp17940 + (let ((__tmp17941 (let () (declare (not safe)) - (__compile _f15665_)))) + (__compile _f15614_)))) (declare (not safe)) - (cons __tmp17992 '())))) + (cons __tmp17941 '())))) (declare (not safe)) - (cons __tmp17993 __tmp17991)))) + (cons __tmp17942 __tmp17940)))) (declare (not safe)) - (cons __tmp17994 __tmp17990)))) + (cons __tmp17943 __tmp17939)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp17989)))) + (cons 'if __tmp17938)))) (declare (not safe)) - (__SRC__% __tmp17988 _stx15599_)) + (__SRC__% __tmp17937 _stx15548_)) (let () (declare (not safe)) - (_$E1560315618_))))) + (_$E1555215567_))))) (let () (declare (not safe)) - (_$E1560315618_))))) - (let () (declare (not safe)) (_$E1560315618_))))) - (let () (declare (not safe)) (_$E1560315618_)))) - (let () (declare (not safe)) (_$E1560315618_)))))) + (_$E1555215567_))))) + (let () (declare (not safe)) (_$E1555215567_))))) + (let () (declare (not safe)) (_$E1555215567_)))) + (let () (declare (not safe)) (_$E1555215567_)))))) (define __compile-quote% - (lambda (_stx15561_) - (let* ((_$e15563_ _stx15561_) - (_$E1556515574_ + (lambda (_stx15510_) + (let* ((_$e15512_ _stx15510_) + (_$E1551415523_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e15563_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15563_)) - (let* ((_$tgt1556615577_ - (let () (declare (not safe)) (__AST-e _$e15563_))) - (_$hd1556715580_ - (let () (declare (not safe)) (##car _$tgt1556615577_))) - (_$tl1556815583_ - (let () (declare (not safe)) (##cdr _$tgt1556615577_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1556815583_)) - (let* ((_$tgt1556915587_ + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e15512_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15512_)) + (let* ((_$tgt1551515526_ + (let () (declare (not safe)) (__AST-e _$e15512_))) + (_$hd1551615529_ + (let () (declare (not safe)) (##car _$tgt1551515526_))) + (_$tl1551715532_ + (let () (declare (not safe)) (##cdr _$tgt1551515526_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1551715532_)) + (let* ((_$tgt1551815536_ (let () (declare (not safe)) - (__AST-e _$tl1556815583_))) - (_$hd1557015590_ + (__AST-e _$tl1551715532_))) + (_$hd1551915539_ (let () (declare (not safe)) - (##car _$tgt1556915587_))) - (_$tl1557115593_ + (##car _$tgt1551815536_))) + (_$tl1552015542_ (let () (declare (not safe)) - (##cdr _$tgt1556915587_)))) - (let ((_e15597_ _$hd1557015590_)) - (if (let ((__tmp17999 + (##cdr _$tgt1551815536_)))) + (let ((_e15546_ _$hd1551915539_)) + (if (let ((__tmp17948 (let () (declare (not safe)) - (__AST-e _$tl1557115593_)))) + (__AST-e _$tl1552015542_)))) (declare (not safe)) - (equal? __tmp17999 '())) - (let ((__tmp17996 - (let ((__tmp17997 - (let ((__tmp17998 + (equal? __tmp17948 '())) + (let ((__tmp17945 + (let ((__tmp17946 + (let ((__tmp17947 (let () (declare (not safe)) - (__AST->datum _e15597_)))) + (__AST->datum _e15546_)))) (declare (not safe)) - (cons __tmp17998 '())))) + (cons __tmp17947 '())))) (declare (not safe)) - (cons 'quote __tmp17997)))) + (cons 'quote __tmp17946)))) (declare (not safe)) - (__SRC__% __tmp17996 _stx15561_)) - (let () (declare (not safe)) (_$E1556515574_))))) - (let () (declare (not safe)) (_$E1556515574_)))) - (let () (declare (not safe)) (_$E1556515574_)))))) + (__SRC__% __tmp17945 _stx15510_)) + (let () (declare (not safe)) (_$E1551415523_))))) + (let () (declare (not safe)) (_$E1551415523_)))) + (let () (declare (not safe)) (_$E1551415523_)))))) (define __compile-quote-syntax% - (lambda (_stx15523_) - (let* ((_$e15525_ _stx15523_) - (_$E1552715536_ + (lambda (_stx15472_) + (let* ((_$e15474_ _stx15472_) + (_$E1547615485_ (lambda () (let () (declare (not safe)) - (__raise-syntax-error '#f '"Bad syntax" _$e15525_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e15525_)) - (let* ((_$tgt1552815539_ - (let () (declare (not safe)) (__AST-e _$e15525_))) - (_$hd1552915542_ - (let () (declare (not safe)) (##car _$tgt1552815539_))) - (_$tl1553015545_ - (let () (declare (not safe)) (##cdr _$tgt1552815539_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl1553015545_)) - (let* ((_$tgt1553115549_ + (__raise-syntax-error + '#f + '"Bad syntax; malformed ast clause" + _$e15474_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15474_)) + (let* ((_$tgt1547715488_ + (let () (declare (not safe)) (__AST-e _$e15474_))) + (_$hd1547815491_ + (let () (declare (not safe)) (##car _$tgt1547715488_))) + (_$tl1547915494_ + (let () (declare (not safe)) (##cdr _$tgt1547715488_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1547915494_)) + (let* ((_$tgt1548015498_ (let () (declare (not safe)) - (__AST-e _$tl1553015545_))) - (_$hd1553215552_ + (__AST-e _$tl1547915494_))) + (_$hd1548115501_ (let () (declare (not safe)) - (##car _$tgt1553115549_))) - (_$tl1553315555_ + (##car _$tgt1548015498_))) + (_$tl1548215504_ (let () (declare (not safe)) - (##cdr _$tgt1553115549_)))) - (let ((_e15559_ _$hd1553215552_)) - (if (let ((__tmp18002 + (##cdr _$tgt1548015498_)))) + (let ((_e15508_ _$hd1548115501_)) + (if (let ((__tmp17951 (let () (declare (not safe)) - (__AST-e _$tl1553315555_)))) + (__AST-e _$tl1548215504_)))) (declare (not safe)) - (equal? __tmp18002 '())) - (let ((__tmp18000 - (let ((__tmp18001 + (equal? __tmp17951 '())) + (let ((__tmp17949 + (let ((__tmp17950 (let () (declare (not safe)) - (cons _e15559_ '())))) + (cons _e15508_ '())))) (declare (not safe)) - (cons 'quote __tmp18001)))) + (cons 'quote __tmp17950)))) (declare (not safe)) - (__SRC__% __tmp18000 _stx15523_)) - (let () (declare (not safe)) (_$E1552715536_))))) - (let () (declare (not safe)) (_$E1552715536_)))) - (let () (declare (not safe)) (_$E1552715536_)))))) + (__SRC__% __tmp17949 _stx15472_)) + (let () (declare (not safe)) (_$E1547615485_))))) + (let () (declare (not safe)) (_$E1547615485_)))) + (let () (declare (not safe)) (_$E1547615485_)))))) (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 b3331fcf34..5c8188750c 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]#_g18003_| + (define |[1]#_g17952_| (##structure gx#syntax-quote::t '__context::t #f (gx#current-expander-context) '())) - (define |[1]#_g18014_| + (define |[1]#_g17963_| (##structure gx#syntax-quote::t '__context-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18016_| + (define |[1]#_g17965_| (##structure gx#syntax-quote::t '__context-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18018_| + (define |[1]#_g17967_| (##structure gx#syntax-quote::t '__context-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18020_| + (define |[1]#_g17969_| (##structure gx#syntax-quote::t '__context-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18026_| + (define |[1]#_g17975_| (##structure gx#syntax-quote::t '__context-table #f (gx#current-expander-context) '())) - (define |[1]#_g18028_| + (define |[1]#_g17977_| (##structure gx#syntax-quote::t '__context-super #f (gx#current-expander-context) '())) - (define |[1]#_g18030_| + (define |[1]#_g17979_| (##structure gx#syntax-quote::t '__context-ns #f (gx#current-expander-context) '())) - (define |[1]#_g18032_| + (define |[1]#_g17981_| (##structure gx#syntax-quote::t '__context-t #f (gx#current-expander-context) '())) - (define |[1]#_g18034_| + (define |[1]#_g17983_| (##structure gx#syntax-quote::t '__context? #f (gx#current-expander-context) '())) - (define |[1]#_g18036_| + (define |[1]#_g17985_| (##structure gx#syntax-quote::t 'make-__context #f (gx#current-expander-context) '())) - (define |[1]#_g18038_| + (define |[1]#_g17987_| (##structure gx#syntax-quote::t '__runtime::t #f (gx#current-expander-context) '())) - (define |[1]#_g18046_| + (define |[1]#_g17995_| (##structure gx#syntax-quote::t '__runtime-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18049_| + (define |[1]#_g17998_| (##structure gx#syntax-quote::t '__runtime-id #f (gx#current-expander-context) '())) - (define |[1]#_g18051_| + (define |[1]#_g18000_| (##structure gx#syntax-quote::t '__runtime? #f (gx#current-expander-context) '())) - (define |[1]#_g18053_| + (define |[1]#_g18002_| (##structure gx#syntax-quote::t 'make-__runtime #f (gx#current-expander-context) '())) - (define |[1]#_g18055_| + (define |[1]#_g18004_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g18064_| + (define |[1]#_g18013_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18066_| + (define |[1]#_g18015_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18070_| + (define |[1]#_g18019_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g18072_| + (define |[1]#_g18021_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g18074_| + (define |[1]#_g18023_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g18076_| + (define |[1]#_g18025_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g18078_| + (define |[1]#_g18027_| (##structure gx#syntax-quote::t '__macro::t #f (gx#current-expander-context) '())) - (define |[1]#_g18085_| + (define |[1]#_g18034_| (##structure gx#syntax-quote::t '__macro? #f (gx#current-expander-context) '())) - (define |[1]#_g18087_| + (define |[1]#_g18036_| (##structure gx#syntax-quote::t 'make-__macro #f (gx#current-expander-context) '())) - (define |[1]#_g18090_| + (define |[1]#_g18039_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g18091_| + (define |[1]#_g18040_| (##structure gx#syntax-quote::t '__special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g18098_| + (define |[1]#_g18047_| (##structure gx#syntax-quote::t '__special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g18100_| + (define |[1]#_g18049_| (##structure gx#syntax-quote::t 'make-__special-form #f (gx#current-expander-context) '())) - (define |[1]#_g18103_| + (define |[1]#_g18052_| (##structure gx#syntax-quote::t '__macro #f (gx#current-expander-context) '())) - (define |[1]#_g18104_| + (define |[1]#_g18053_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g18111_| + (define |[1]#_g18060_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g18113_| + (define |[1]#_g18062_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g18116_| + (define |[1]#_g18065_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g18123_| + (define |[1]#_g18072_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g18125_| + (define |[1]#_g18074_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g18128_| + (define |[1]#_g18077_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g18129_| + (define |[1]#_g18078_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g18136_| + (define |[1]#_g18085_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g18138_| + (define |[1]#_g18087_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g18141_| + (define |[1]#_g18090_| (##structure gx#syntax-quote::t '__struct-info::t #f (gx#current-expander-context) '())) - (define |[1]#_g18148_| + (define |[1]#_g18097_| (##structure gx#syntax-quote::t '__struct-info? #f (gx#current-expander-context) '())) - (define |[1]#_g18150_| + (define |[1]#_g18099_| (##structure gx#syntax-quote::t 'make-__struct-info #f (gx#current-expander-context) '())) - (define |[1]#_g18153_| + (define |[1]#_g18102_| (##structure gx#syntax-quote::t '__feature::t #f (gx#current-expander-context) '())) - (define |[1]#_g18160_| + (define |[1]#_g18109_| (##structure gx#syntax-quote::t '__feature? #f (gx#current-expander-context) '())) - (define |[1]#_g18162_| + (define |[1]#_g18111_| (##structure gx#syntax-quote::t 'make-__feature #f (gx#current-expander-context) '())) - (define |[1]#_g18165_| + (define |[1]#_g18114_| (##structure gx#syntax-quote::t '__module::t #f (gx#current-expander-context) '())) - (define |[1]#_g18176_| + (define |[1]#_g18125_| (##structure gx#syntax-quote::t '__module-export-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18178_| + (define |[1]#_g18127_| (##structure gx#syntax-quote::t '__module-import-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18180_| + (define |[1]#_g18129_| (##structure gx#syntax-quote::t '__module-path-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18182_| + (define |[1]#_g18131_| (##structure gx#syntax-quote::t '__module-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18188_| + (define |[1]#_g18137_| (##structure gx#syntax-quote::t '__module-export #f (gx#current-expander-context) '())) - (define |[1]#_g18190_| + (define |[1]#_g18139_| (##structure gx#syntax-quote::t '__module-import #f (gx#current-expander-context) '())) - (define |[1]#_g18192_| + (define |[1]#_g18141_| (##structure gx#syntax-quote::t '__module-path #f (gx#current-expander-context) '())) - (define |[1]#_g18194_| + (define |[1]#_g18143_| (##structure gx#syntax-quote::t '__module-id #f (gx#current-expander-context) '())) - (define |[1]#_g18196_| + (define |[1]#_g18145_| (##structure gx#syntax-quote::t '__module? #f (gx#current-expander-context) '())) - (define |[1]#_g18198_| + (define |[1]#_g18147_| (##structure gx#syntax-quote::t 'make-__module #f (gx#current-expander-context) '())) - (define |[1]#_g18201_| + (define |[1]#_g18150_| (##structure gx#syntax-quote::t '__context @@ -417,72 +417,72 @@ (define |[:0:]#__context| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18003_| + |[1]#_g17952_| 'expander-identifiers: - (let ((__tmp18004 - (let ((__tmp18037 |[1]#_g18003_|) - (__tmp18005 - (let ((__tmp18035 |[1]#_g18036_|) - (__tmp18006 - (let ((__tmp18033 |[1]#_g18034_|) - (__tmp18007 - (let ((__tmp18021 - (let ((__tmp18031 |[1]#_g18032_|) - (__tmp18022 - (let ((__tmp18029 - |[1]#_g18030_|) - (__tmp18023 - (let ((__tmp18027 - |[1]#_g18028_|) - (__tmp18024 - (let ((__tmp18025 + (let ((__tmp17953 + (let ((__tmp17986 |[1]#_g17952_|) + (__tmp17954 + (let ((__tmp17984 |[1]#_g17985_|) + (__tmp17955 + (let ((__tmp17982 |[1]#_g17983_|) + (__tmp17956 + (let ((__tmp17970 + (let ((__tmp17980 |[1]#_g17981_|) + (__tmp17971 + (let ((__tmp17978 + |[1]#_g17979_|) + (__tmp17972 + (let ((__tmp17976 + |[1]#_g17977_|) + (__tmp17973 + (let ((__tmp17974 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g18026_|)) + |[1]#_g17975_|)) (declare (not safe)) - (cons __tmp18025 '())))) + (cons __tmp17974 '())))) (declare (not safe)) - (cons __tmp18027 __tmp18024)))) + (cons __tmp17976 __tmp17973)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp18029 - __tmp18023)))) + (cons __tmp17978 + __tmp17972)))) (declare (not safe)) - (cons __tmp18031 __tmp18022))) - (__tmp18008 - (let ((__tmp18009 - (let ((__tmp18019 - |[1]#_g18020_|) - (__tmp18010 - (let ((__tmp18017 - |[1]#_g18018_|) - (__tmp18011 - (let ((__tmp18015 + (cons __tmp17980 __tmp17971))) + (__tmp17957 + (let ((__tmp17958 + (let ((__tmp17968 + |[1]#_g17969_|) + (__tmp17959 + (let ((__tmp17966 + |[1]#_g17967_|) + (__tmp17960 + (let ((__tmp17964 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g18016_|) - (__tmp18012 - (let ((__tmp18013 |[1]#_g18014_|)) + |[1]#_g17965_|) + (__tmp17961 + (let ((__tmp17962 |[1]#_g17963_|)) (declare (not safe)) - (cons __tmp18013 '())))) + (cons __tmp17962 '())))) (declare (not safe)) - (cons __tmp18015 __tmp18012)))) + (cons __tmp17964 __tmp17961)))) (declare (not safe)) - (cons __tmp18017 __tmp18011)))) + (cons __tmp17966 __tmp17960)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp18019 - __tmp18010)))) + (cons __tmp17968 + __tmp17959)))) (declare (not safe)) - (cons __tmp18009 '())))) + (cons __tmp17958 '())))) (declare (not safe)) - (cons __tmp18021 __tmp18008)))) + (cons __tmp17970 __tmp17957)))) (declare (not safe)) - (cons __tmp18033 __tmp18007)))) + (cons __tmp17982 __tmp17956)))) (declare (not safe)) - (cons __tmp18035 __tmp18006)))) + (cons __tmp17984 __tmp17955)))) (declare (not safe)) - (cons __tmp18037 __tmp18005)))) + (cons __tmp17986 __tmp17954)))) (declare (not safe)) - (cons '#f __tmp18004)) + (cons '#f __tmp17953)) '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]#_g18038_| + |[1]#_g17987_| 'expander-identifiers: - (let ((__tmp18039 - (let ((__tmp18054 |[1]#_g18038_|) - (__tmp18040 - (let ((__tmp18052 |[1]#_g18053_|) - (__tmp18041 - (let ((__tmp18050 |[1]#_g18051_|) - (__tmp18042 - (let ((__tmp18047 - (let ((__tmp18048 |[1]#_g18049_|)) + (let ((__tmp17988 + (let ((__tmp18003 |[1]#_g17987_|) + (__tmp17989 + (let ((__tmp18001 |[1]#_g18002_|) + (__tmp17990 + (let ((__tmp17999 |[1]#_g18000_|) + (__tmp17991 + (let ((__tmp17996 + (let ((__tmp17997 |[1]#_g17998_|)) (declare (not safe)) - (cons __tmp18048 '()))) - (__tmp18043 - (let ((__tmp18044 - (let ((__tmp18045 - |[1]#_g18046_|)) + (cons __tmp17997 '()))) + (__tmp17992 + (let ((__tmp17993 + (let ((__tmp17994 + |[1]#_g17995_|)) (declare (not safe)) - (cons __tmp18045 '())))) + (cons __tmp17994 '())))) (declare (not safe)) - (cons __tmp18044 '())))) + (cons __tmp17993 '())))) (declare (not safe)) - (cons __tmp18047 __tmp18043)))) + (cons __tmp17996 __tmp17992)))) (declare (not safe)) - (cons __tmp18050 __tmp18042)))) + (cons __tmp17999 __tmp17991)))) (declare (not safe)) - (cons __tmp18052 __tmp18041)))) + (cons __tmp18001 __tmp17990)))) (declare (not safe)) - (cons __tmp18054 __tmp18040)))) + (cons __tmp18003 __tmp17989)))) (declare (not safe)) - (cons '#f __tmp18039)) + (cons '#f __tmp17988)) '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]#_g18055_| + |[1]#_g18004_| 'expander-identifiers: - (let ((__tmp18056 - (let ((__tmp18077 |[1]#_g18055_|) - (__tmp18057 - (let ((__tmp18075 |[1]#_g18076_|) - (__tmp18058 - (let ((__tmp18073 |[1]#_g18074_|) - (__tmp18059 - (let ((__tmp18067 - (let ((__tmp18071 |[1]#_g18072_|) - (__tmp18068 - (let ((__tmp18069 - |[1]#_g18070_|)) + (let ((__tmp18005 + (let ((__tmp18026 |[1]#_g18004_|) + (__tmp18006 + (let ((__tmp18024 |[1]#_g18025_|) + (__tmp18007 + (let ((__tmp18022 |[1]#_g18023_|) + (__tmp18008 + (let ((__tmp18016 + (let ((__tmp18020 |[1]#_g18021_|) + (__tmp18017 + (let ((__tmp18018 + |[1]#_g18019_|)) (declare (not safe)) - (cons __tmp18069 '())))) + (cons __tmp18018 '())))) (declare (not safe)) - (cons __tmp18071 __tmp18068))) - (__tmp18060 - (let ((__tmp18061 - (let ((__tmp18065 - |[1]#_g18066_|) - (__tmp18062 - (let ((__tmp18063 - |[1]#_g18064_|)) + (cons __tmp18020 __tmp18017))) + (__tmp18009 + (let ((__tmp18010 + (let ((__tmp18014 + |[1]#_g18015_|) + (__tmp18011 + (let ((__tmp18012 + |[1]#_g18013_|)) (declare (not safe)) - (cons __tmp18063 + (cons __tmp18012 '())))) (declare (not safe)) - (cons __tmp18065 - __tmp18062)))) + (cons __tmp18014 + __tmp18011)))) (declare (not safe)) - (cons __tmp18061 '())))) + (cons __tmp18010 '())))) (declare (not safe)) - (cons __tmp18067 __tmp18060)))) + (cons __tmp18016 __tmp18009)))) (declare (not safe)) - (cons __tmp18073 __tmp18059)))) + (cons __tmp18022 __tmp18008)))) (declare (not safe)) - (cons __tmp18075 __tmp18058)))) + (cons __tmp18024 __tmp18007)))) (declare (not safe)) - (cons __tmp18077 __tmp18057)))) + (cons __tmp18026 __tmp18006)))) (declare (not safe)) - (cons '#f __tmp18056)) + (cons '#f __tmp18005)) '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]#_g18078_| + |[1]#_g18027_| 'expander-identifiers: - (let ((__tmp18089 |[1]#_g18055_|) - (__tmp18079 - (let ((__tmp18088 |[1]#_g18078_|) - (__tmp18080 - (let ((__tmp18086 |[1]#_g18087_|) - (__tmp18081 - (let ((__tmp18084 |[1]#_g18085_|) - (__tmp18082 - (let ((__tmp18083 + (let ((__tmp18038 |[1]#_g18004_|) + (__tmp18028 + (let ((__tmp18037 |[1]#_g18027_|) + (__tmp18029 + (let ((__tmp18035 |[1]#_g18036_|) + (__tmp18030 + (let ((__tmp18033 |[1]#_g18034_|) + (__tmp18031 + (let ((__tmp18032 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18083)))) + (cons '() __tmp18032)))) (declare (not safe)) - (cons __tmp18084 __tmp18082)))) + (cons __tmp18033 __tmp18031)))) (declare (not safe)) - (cons __tmp18086 __tmp18081)))) + (cons __tmp18035 __tmp18030)))) (declare (not safe)) - (cons __tmp18088 __tmp18080)))) + (cons __tmp18037 __tmp18029)))) (declare (not safe)) - (cons __tmp18089 __tmp18079)) + (cons __tmp18038 __tmp18028)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18090_| + |[1]#_g18039_| '__macro '#f '() @@ -625,34 +625,34 @@ (define |[:0:]#__special-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18091_| + |[1]#_g18040_| 'expander-identifiers: - (let ((__tmp18102 |[1]#_g18078_|) - (__tmp18092 - (let ((__tmp18101 |[1]#_g18091_|) - (__tmp18093 - (let ((__tmp18099 |[1]#_g18100_|) - (__tmp18094 - (let ((__tmp18097 |[1]#_g18098_|) - (__tmp18095 - (let ((__tmp18096 + (let ((__tmp18051 |[1]#_g18027_|) + (__tmp18041 + (let ((__tmp18050 |[1]#_g18040_|) + (__tmp18042 + (let ((__tmp18048 |[1]#_g18049_|) + (__tmp18043 + (let ((__tmp18046 |[1]#_g18047_|) + (__tmp18044 + (let ((__tmp18045 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18096)))) + (cons '() __tmp18045)))) (declare (not safe)) - (cons __tmp18097 __tmp18095)))) + (cons __tmp18046 __tmp18044)))) (declare (not safe)) - (cons __tmp18099 __tmp18094)))) + (cons __tmp18048 __tmp18043)))) (declare (not safe)) - (cons __tmp18101 __tmp18093)))) + (cons __tmp18050 __tmp18042)))) (declare (not safe)) - (cons __tmp18102 __tmp18092)) + (cons __tmp18051 __tmp18041)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18103_| + |[1]#_g18052_| '__special-form '#f '() @@ -660,34 +660,34 @@ (define |[:0:]#__core-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18104_| + |[1]#_g18053_| 'expander-identifiers: - (let ((__tmp18115 |[1]#_g18055_|) - (__tmp18105 - (let ((__tmp18114 |[1]#_g18104_|) - (__tmp18106 - (let ((__tmp18112 |[1]#_g18113_|) - (__tmp18107 - (let ((__tmp18110 |[1]#_g18111_|) - (__tmp18108 - (let ((__tmp18109 + (let ((__tmp18064 |[1]#_g18004_|) + (__tmp18054 + (let ((__tmp18063 |[1]#_g18053_|) + (__tmp18055 + (let ((__tmp18061 |[1]#_g18062_|) + (__tmp18056 + (let ((__tmp18059 |[1]#_g18060_|) + (__tmp18057 + (let ((__tmp18058 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18109)))) + (cons '() __tmp18058)))) (declare (not safe)) - (cons __tmp18110 __tmp18108)))) + (cons __tmp18059 __tmp18057)))) (declare (not safe)) - (cons __tmp18112 __tmp18107)))) + (cons __tmp18061 __tmp18056)))) (declare (not safe)) - (cons __tmp18114 __tmp18106)))) + (cons __tmp18063 __tmp18055)))) (declare (not safe)) - (cons __tmp18115 __tmp18105)) + (cons __tmp18064 __tmp18054)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18090_| + |[1]#_g18039_| '__core-form '#f '() @@ -695,34 +695,34 @@ (define |[:0:]#__core-expression| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18116_| + |[1]#_g18065_| 'expander-identifiers: - (let ((__tmp18127 |[1]#_g18104_|) - (__tmp18117 - (let ((__tmp18126 |[1]#_g18116_|) - (__tmp18118 - (let ((__tmp18124 |[1]#_g18125_|) - (__tmp18119 - (let ((__tmp18122 |[1]#_g18123_|) - (__tmp18120 - (let ((__tmp18121 + (let ((__tmp18076 |[1]#_g18053_|) + (__tmp18066 + (let ((__tmp18075 |[1]#_g18065_|) + (__tmp18067 + (let ((__tmp18073 |[1]#_g18074_|) + (__tmp18068 + (let ((__tmp18071 |[1]#_g18072_|) + (__tmp18069 + (let ((__tmp18070 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18121)))) + (cons '() __tmp18070)))) (declare (not safe)) - (cons __tmp18122 __tmp18120)))) + (cons __tmp18071 __tmp18069)))) (declare (not safe)) - (cons __tmp18124 __tmp18119)))) + (cons __tmp18073 __tmp18068)))) (declare (not safe)) - (cons __tmp18126 __tmp18118)))) + (cons __tmp18075 __tmp18067)))) (declare (not safe)) - (cons __tmp18127 __tmp18117)) + (cons __tmp18076 __tmp18066)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18128_| + |[1]#_g18077_| '__core-expression '#f '() @@ -730,34 +730,34 @@ (define |[:0:]#__core-special-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18129_| + |[1]#_g18078_| 'expander-identifiers: - (let ((__tmp18140 |[1]#_g18104_|) - (__tmp18130 - (let ((__tmp18139 |[1]#_g18129_|) - (__tmp18131 - (let ((__tmp18137 |[1]#_g18138_|) - (__tmp18132 - (let ((__tmp18135 |[1]#_g18136_|) - (__tmp18133 - (let ((__tmp18134 + (let ((__tmp18089 |[1]#_g18053_|) + (__tmp18079 + (let ((__tmp18088 |[1]#_g18078_|) + (__tmp18080 + (let ((__tmp18086 |[1]#_g18087_|) + (__tmp18081 + (let ((__tmp18084 |[1]#_g18085_|) + (__tmp18082 + (let ((__tmp18083 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18134)))) + (cons '() __tmp18083)))) (declare (not safe)) - (cons __tmp18135 __tmp18133)))) + (cons __tmp18084 __tmp18082)))) (declare (not safe)) - (cons __tmp18137 __tmp18132)))) + (cons __tmp18086 __tmp18081)))) (declare (not safe)) - (cons __tmp18139 __tmp18131)))) + (cons __tmp18088 __tmp18080)))) (declare (not safe)) - (cons __tmp18140 __tmp18130)) + (cons __tmp18089 __tmp18079)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18128_| + |[1]#_g18077_| '__core-special-form '#f '() @@ -765,34 +765,34 @@ (define |[:0:]#__struct-info| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18141_| + |[1]#_g18090_| 'expander-identifiers: - (let ((__tmp18152 |[1]#_g18055_|) - (__tmp18142 - (let ((__tmp18151 |[1]#_g18141_|) - (__tmp18143 - (let ((__tmp18149 |[1]#_g18150_|) - (__tmp18144 - (let ((__tmp18147 |[1]#_g18148_|) - (__tmp18145 - (let ((__tmp18146 + (let ((__tmp18101 |[1]#_g18004_|) + (__tmp18091 + (let ((__tmp18100 |[1]#_g18090_|) + (__tmp18092 + (let ((__tmp18098 |[1]#_g18099_|) + (__tmp18093 + (let ((__tmp18096 |[1]#_g18097_|) + (__tmp18094 + (let ((__tmp18095 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18146)))) + (cons '() __tmp18095)))) (declare (not safe)) - (cons __tmp18147 __tmp18145)))) + (cons __tmp18096 __tmp18094)))) (declare (not safe)) - (cons __tmp18149 __tmp18144)))) + (cons __tmp18098 __tmp18093)))) (declare (not safe)) - (cons __tmp18151 __tmp18143)))) + (cons __tmp18100 __tmp18092)))) (declare (not safe)) - (cons __tmp18152 __tmp18142)) + (cons __tmp18101 __tmp18091)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18090_| + |[1]#_g18039_| '__struct-info '#f '() @@ -800,34 +800,34 @@ (define |[:0:]#__feature| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18153_| + |[1]#_g18102_| 'expander-identifiers: - (let ((__tmp18164 |[1]#_g18055_|) - (__tmp18154 - (let ((__tmp18163 |[1]#_g18153_|) - (__tmp18155 - (let ((__tmp18161 |[1]#_g18162_|) - (__tmp18156 - (let ((__tmp18159 |[1]#_g18160_|) - (__tmp18157 - (let ((__tmp18158 + (let ((__tmp18113 |[1]#_g18004_|) + (__tmp18103 + (let ((__tmp18112 |[1]#_g18102_|) + (__tmp18104 + (let ((__tmp18110 |[1]#_g18111_|) + (__tmp18105 + (let ((__tmp18108 |[1]#_g18109_|) + (__tmp18106 + (let ((__tmp18107 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18158)))) + (cons '() __tmp18107)))) (declare (not safe)) - (cons __tmp18159 __tmp18157)))) + (cons __tmp18108 __tmp18106)))) (declare (not safe)) - (cons __tmp18161 __tmp18156)))) + (cons __tmp18110 __tmp18105)))) (declare (not safe)) - (cons __tmp18163 __tmp18155)))) + (cons __tmp18112 __tmp18104)))) (declare (not safe)) - (cons __tmp18164 __tmp18154)) + (cons __tmp18113 __tmp18103)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18090_| + |[1]#_g18039_| '__feature '#f '() @@ -835,285 +835,288 @@ (define |[:0:]#__module| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18165_| + |[1]#_g18114_| 'expander-identifiers: - (let ((__tmp18200 |[1]#_g18003_|) - (__tmp18166 - (let ((__tmp18199 |[1]#_g18165_|) - (__tmp18167 - (let ((__tmp18197 |[1]#_g18198_|) - (__tmp18168 - (let ((__tmp18195 |[1]#_g18196_|) - (__tmp18169 - (let ((__tmp18183 - (let ((__tmp18193 |[1]#_g18194_|) - (__tmp18184 - (let ((__tmp18191 - |[1]#_g18192_|) - (__tmp18185 - (let ((__tmp18189 - |[1]#_g18190_|) - (__tmp18186 - (let ((__tmp18187 + (let ((__tmp18149 |[1]#_g17952_|) + (__tmp18115 + (let ((__tmp18148 |[1]#_g18114_|) + (__tmp18116 + (let ((__tmp18146 |[1]#_g18147_|) + (__tmp18117 + (let ((__tmp18144 |[1]#_g18145_|) + (__tmp18118 + (let ((__tmp18132 + (let ((__tmp18142 |[1]#_g18143_|) + (__tmp18133 + (let ((__tmp18140 + |[1]#_g18141_|) + (__tmp18134 + (let ((__tmp18138 + |[1]#_g18139_|) + (__tmp18135 + (let ((__tmp18136 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g18188_|)) + |[1]#_g18137_|)) (declare (not safe)) - (cons __tmp18187 '())))) + (cons __tmp18136 '())))) (declare (not safe)) - (cons __tmp18189 __tmp18186)))) + (cons __tmp18138 __tmp18135)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp18191 - __tmp18185)))) + (cons __tmp18140 + __tmp18134)))) (declare (not safe)) - (cons __tmp18193 __tmp18184))) - (__tmp18170 - (let ((__tmp18171 - (let ((__tmp18181 - |[1]#_g18182_|) - (__tmp18172 - (let ((__tmp18179 - |[1]#_g18180_|) - (__tmp18173 - (let ((__tmp18177 + (cons __tmp18142 __tmp18133))) + (__tmp18119 + (let ((__tmp18120 + (let ((__tmp18130 + |[1]#_g18131_|) + (__tmp18121 + (let ((__tmp18128 + |[1]#_g18129_|) + (__tmp18122 + (let ((__tmp18126 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g18178_|) - (__tmp18174 - (let ((__tmp18175 |[1]#_g18176_|)) + |[1]#_g18127_|) + (__tmp18123 + (let ((__tmp18124 |[1]#_g18125_|)) (declare (not safe)) - (cons __tmp18175 '())))) + (cons __tmp18124 '())))) (declare (not safe)) - (cons __tmp18177 __tmp18174)))) + (cons __tmp18126 __tmp18123)))) (declare (not safe)) - (cons __tmp18179 __tmp18173)))) + (cons __tmp18128 __tmp18122)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp18181 - __tmp18172)))) + (cons __tmp18130 + __tmp18121)))) (declare (not safe)) - (cons __tmp18171 '())))) + (cons __tmp18120 '())))) (declare (not safe)) - (cons __tmp18183 __tmp18170)))) + (cons __tmp18132 __tmp18119)))) (declare (not safe)) - (cons __tmp18195 __tmp18169)))) + (cons __tmp18144 __tmp18118)))) (declare (not safe)) - (cons __tmp18197 __tmp18168)))) + (cons __tmp18146 __tmp18117)))) (declare (not safe)) - (cons __tmp18199 __tmp18167)))) + (cons __tmp18148 __tmp18116)))) (declare (not safe)) - (cons __tmp18200 __tmp18166)) + (cons __tmp18149 __tmp18115)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18201_| + |[1]#_g18150_| '__module '#f '() '(id path import export)))) (define |[:0:]#defcore-forms| - (lambda (_stx15068_) - (letrec ((_generate15071_ - (lambda (_id15435_ _compile15437_ _make15438_) - (let* ((_g1544015459_ - (lambda (_g1544115455_) + (lambda (_stx15017_) + (letrec ((_generate15020_ + (lambda (_id15384_ _compile15386_ _make15387_) + (let* ((_g1538915408_ + (lambda (_g1539015404_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1544115455_))) - (_g1543915518_ - (lambda (_g1544115463_) - (if (gx#stx-pair? _g1544115463_) - (let ((_e1544715466_ - (gx#syntax-e _g1544115463_))) - (let ((_hd1544615470_ + '"Bad syntax; invalid match target" + _g1539015404_))) + (_g1538815467_ + (lambda (_g1539015412_) + (if (gx#stx-pair? _g1539015412_) + (let ((_e1539615415_ + (gx#syntax-e _g1539015412_))) + (let ((_hd1539515419_ (let () (declare (not safe)) - (##car _e1544715466_))) - (_tl1544515473_ + (##car _e1539615415_))) + (_tl1539415422_ (let () (declare (not safe)) - (##cdr _e1544715466_)))) - (if (gx#stx-pair? _tl1544515473_) - (let ((_e1545015476_ - (gx#syntax-e _tl1544515473_))) - (let ((_hd1544915480_ + (##cdr _e1539615415_)))) + (if (gx#stx-pair? _tl1539415422_) + (let ((_e1539915425_ + (gx#syntax-e _tl1539415422_))) + (let ((_hd1539815429_ (let () (declare (not safe)) - (##car _e1545015476_))) - (_tl1544815483_ + (##car _e1539915425_))) + (_tl1539715432_ (let () (declare (not safe)) - (##cdr _e1545015476_)))) - (if (gx#stx-pair? _tl1544815483_) - (let ((_e1545315486_ + (##cdr _e1539915425_)))) + (if (gx#stx-pair? _tl1539715432_) + (let ((_e1540215435_ (gx#syntax-e - _tl1544815483_))) - (let ((_hd1545215490_ + _tl1539715432_))) + (let ((_hd1540115439_ (let () (declare (not safe)) - (##car _e1545315486_))) - (_tl1545115493_ + (##car _e1540215435_))) + (_tl1540015442_ (let () (declare (not safe)) - (##cdr _e1545315486_)))) + (##cdr _e1540215435_)))) (if (gx#stx-null? - _tl1545115493_) - ((lambda (_L15496_ + _tl1540015442_) + ((lambda (_L15445_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L15498_ - _L15499_) + _L15447_ + _L15448_) (let () - (let ((__tmp18208 + (let ((__tmp18157 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp18202 - (let ((__tmp18205 - (let ((__tmp18207 + (__tmp18151 + (let ((__tmp18154 + (let ((__tmp18156 (gx#datum->syntax '#f 'quote)) - (__tmp18206 + (__tmp18155 (let () (declare (not safe)) - (cons _L15499_ '())))) + (cons _L15448_ '())))) (declare (not safe)) - (cons __tmp18207 __tmp18206))) - (__tmp18203 - (let ((__tmp18204 + (cons __tmp18156 __tmp18155))) + (__tmp18152 + (let ((__tmp18153 (let () (declare (not safe)) - (cons _L15496_ '())))) + (cons _L15445_ '())))) (declare (not safe)) - (cons _L15498_ __tmp18204)))) + (cons _L15447_ __tmp18153)))) (declare (not safe)) - (cons __tmp18205 __tmp18203)))) + (cons __tmp18154 __tmp18152)))) (declare (not safe)) - (cons __tmp18208 __tmp18202)))) - _hd1545215490_ - _hd1544915480_ - _hd1544615470_) - (_g1544015459_ _g1544115463_)))) + (cons __tmp18157 __tmp18151)))) + _hd1540115439_ + _hd1539815429_ + _hd1539515419_) + (_g1538915408_ _g1539015412_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1544015459_ - _g1544115463_)))) - (_g1544015459_ _g1544115463_)))) - (_g1544015459_ _g1544115463_))))) - (_g1543915518_ - (list _id15435_ - (gx#stx-identifier _id15435_ '"__" _compile15437_) - _make15438_)))))) - (let* ((_g1507415094_ - (lambda (_g1507515090_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1507515090_))) - (_g1507315431_ - (lambda (_g1507515098_) - (if (gx#stx-pair? _g1507515098_) - (let ((_e1507915101_ (gx#syntax-e _g1507515098_))) - (let ((_hd1507815105_ + (_g1538915408_ + _g1539015412_)))) + (_g1538915408_ _g1539015412_)))) + (_g1538915408_ _g1539015412_))))) + (_g1538815467_ + (list _id15384_ + (gx#stx-identifier _id15384_ '"__" _compile15386_) + _make15387_)))))) + (let* ((_g1502315043_ + (lambda (_g1502415039_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1502415039_))) + (_g1502215380_ + (lambda (_g1502415047_) + (if (gx#stx-pair? _g1502415047_) + (let ((_e1502815050_ (gx#syntax-e _g1502415047_))) + (let ((_hd1502715054_ (let () (declare (not safe)) - (##car _e1507915101_))) - (_tl1507715108_ + (##car _e1502815050_))) + (_tl1502615057_ (let () (declare (not safe)) - (##cdr _e1507915101_)))) - (if (gx#stx-pair/null? _tl1507715108_) - (let ((_g18209_ + (##cdr _e1502815050_)))) + (if (gx#stx-pair/null? _tl1502615057_) + (let ((_g18158_ (gx#syntax-split-splice - _tl1507715108_ + _tl1502615057_ '0))) (begin - (let ((_g18210_ + (let ((_g18159_ (let () (declare (not safe)) - (if (##values? _g18209_) - (##vector-length _g18209_) + (if (##values? _g18158_) + (##vector-length _g18158_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g18210_ 2))) + (##fx= _g18159_ 2))) (error "Context expects 2 values" - _g18210_))) - (let ((_target1508015111_ + _g18159_))) + (let ((_target1502915060_ (let () (declare (not safe)) - (##vector-ref _g18209_ 0))) - (_tl1508215114_ + (##vector-ref _g18158_ 0))) + (_tl1503115063_ (let () (declare (not safe)) - (##vector-ref _g18209_ 1)))) - (if (gx#stx-null? _tl1508215114_) - (letrec ((_loop1508315117_ - (lambda (_hd1508115121_ - _form1508715124_) + (##vector-ref _g18158_ 1)))) + (if (gx#stx-null? _tl1503115063_) + (letrec ((_loop1503215066_ + (lambda (_hd1503015070_ + _form1503615073_) (if (gx#stx-pair? - _hd1508115121_) - (let ((_e1508415127_ + _hd1503015070_) + (let ((_e1503315076_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1508115121_))) - (let ((_lp-hd1508515131_ - (let () (declare (not safe)) (##car _e1508415127_))) - (_lp-tl1508615134_ + (gx#syntax-e _hd1503015070_))) + (let ((_lp-hd1503415080_ + (let () (declare (not safe)) (##car _e1503315076_))) + (_lp-tl1503515083_ (let () (declare (not safe)) - (##cdr _e1508415127_)))) - (_loop1508315117_ - _lp-tl1508615134_ + (##cdr _e1503315076_)))) + (_loop1503215066_ + _lp-tl1503515083_ (let () (declare (not safe)) - (cons _lp-hd1508515131_ _form1508715124_))))) - (let ((_form1508815137_ (reverse _form1508715124_))) - ((lambda (_L15141_) - (let _lp15159_ ((_rest15162_ - (let ((__tmp18215 - (lambda (_g1542215425_ - _g1542315428_) + (cons _lp-hd1503415080_ _form1503615073_))))) + (let ((_form1503715086_ (reverse _form1503615073_))) + ((lambda (_L15090_) + (let _lp15108_ ((_rest15111_ + (let ((__tmp18164 + (lambda (_g1537115374_ + _g1537215377_) (let () (declare (not safe)) - (cons _g1542215425_ - _g1542315428_))))) + (cons _g1537115374_ + _g1537215377_))))) (declare (not safe)) - (foldr1 __tmp18215 '() _L15141_))) - (_body15164_ '())) - (let* ((___stx1754417545_ _rest15162_) - (_g1516915216_ + (foldr1 __tmp18164 '() _L15090_))) + (_body15113_ '())) + (let* ((___stx1749317494_ _rest15111_) + (_g1511815165_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx1754417545_)))) - (let ((___kont1754717548_ - (lambda (_L15397_ _L15399_ _L15400_) - (_lp15159_ - _L15397_ - (let ((__tmp18211 - (_generate15071_ - _L15400_ - _L15399_ + '"Bad syntax; invalid match target" + ___stx1749317494_)))) + (let ((___kont1749617497_ + (lambda (_L15346_ _L15348_ _L15349_) + (_lp15108_ + _L15346_ + (let ((__tmp18160 + (_generate15020_ + _L15349_ + _L15348_ (gx#datum->syntax '#f 'make-__core-expression)))) (declare (not safe)) - (cons __tmp18211 _body15164_))))) - (___kont1754917550_ - (lambda (_L15324_ _L15326_ _L15327_) - (_lp15159_ - _L15324_ - (let ((__tmp18212 - (_generate15071_ - _L15327_ - _L15326_ + (cons __tmp18160 _body15113_))))) + (___kont1749817499_ + (lambda (_L15273_ _L15275_ _L15276_) + (_lp15108_ + _L15273_ + (let ((__tmp18161 + (_generate15020_ + _L15276_ + _L15275_ (gx#datum->syntax '#f 'make-__core-special-form)))) (declare (not safe)) - (cons __tmp18212 _body15164_))))) - (___kont1755117552_ - (lambda (_L15254_ _L15256_) - (_lp15159_ - _L15254_ - (let ((__tmp18213 - (_generate15071_ - _L15256_ + (cons __tmp18161 _body15113_))))) + (___kont1750017501_ + (lambda (_L15203_ _L15205_) + (_lp15108_ + _L15203_ + (let ((__tmp18162 + (_generate15020_ + _L15205_ (gx#datum->syntax '#f 'compile-error) @@ -1121,131 +1124,131 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp18213 _body15164_))))) - (___kont1755317554_ + (cons __tmp18162 _body15113_))))) + (___kont1750217503_ (lambda () - (let ((__tmp18214 (reverse _body15164_))) + (let ((__tmp18163 (reverse _body15113_))) (declare (not safe)) - (cons 'begin __tmp18214))))) - (let ((_g1516815227_ + (cons 'begin __tmp18163))))) + (let ((_g1511715176_ (lambda () - (if (gx#stx-null? ___stx1754417545_) - (___kont1755317554_) + (if (gx#stx-null? ___stx1749317494_) + (___kont1750217503_) (let () (declare (not safe)) - (_g1516915216_)))))) - (if (gx#stx-pair? ___stx1754417545_) - (let ((_e1517615353_ - (gx#syntax-e ___stx1754417545_))) - (let ((_tl1517415360_ + (_g1511815165_)))))) + (if (gx#stx-pair? ___stx1749317494_) + (let ((_e1512515302_ + (gx#syntax-e ___stx1749317494_))) + (let ((_tl1512315309_ (let () (declare (not safe)) - (##cdr _e1517615353_))) - (_hd1517515357_ + (##cdr _e1512515302_))) + (_hd1512415306_ (let () (declare (not safe)) - (##car _e1517615353_)))) - (if (gx#stx-pair? _hd1517515357_) - (let ((_e1517915363_ + (##car _e1512515302_)))) + (if (gx#stx-pair? _hd1512415306_) + (let ((_e1512815312_ (gx#syntax-e - _hd1517515357_))) - (let ((_tl1517715370_ + _hd1512415306_))) + (let ((_tl1512615319_ (let () (declare (not safe)) - (##cdr _e1517915363_))) - (_hd1517815367_ + (##cdr _e1512815312_))) + (_hd1512715316_ (let () (declare (not safe)) - (##car _e1517915363_)))) + (##car _e1512815312_)))) (if (gx#stx-pair? - _tl1517715370_) - (let ((_e1518215373_ + _tl1512615319_) + (let ((_e1513115322_ (gx#syntax-e - _tl1517715370_))) - (let ((_tl1518015380_ + _tl1512615319_))) + (let ((_tl1512915329_ (let () (declare (not safe)) - (##cdr _e1518215373_))) - (_hd1518115377_ + (##cdr _e1513115322_))) + (_hd1513015326_ (let () (declare (not safe)) - (##car _e1518215373_)))) + (##car _e1513115322_)))) (if (gx#stx-datum? - _hd1518115377_) - (let ((_e1518315383_ + _hd1513015326_) + (let ((_e1513215332_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1518115377_))) + (gx#stx-e _hd1513015326_))) (if (let () (declare (not safe)) - (equal? _e1518315383_ 'expr:)) - (if (gx#stx-pair? _tl1518015380_) - (let ((_e1518615387_ - (gx#syntax-e _tl1518015380_))) - (let ((_tl1518415394_ + (equal? _e1513215332_ 'expr:)) + (if (gx#stx-pair? _tl1512915329_) + (let ((_e1513515336_ + (gx#syntax-e _tl1512915329_))) + (let ((_tl1513315343_ (let () (declare (not safe)) - (##cdr _e1518615387_))) - (_hd1518515391_ + (##cdr _e1513515336_))) + (_hd1513415340_ (let () (declare (not safe)) - (##car _e1518615387_)))) - (if (gx#stx-null? _tl1518415394_) - (___kont1754717548_ - _tl1517415360_ - _hd1518515391_ - _hd1517815367_) + (##car _e1513515336_)))) + (if (gx#stx-null? _tl1513315343_) + (___kont1749617497_ + _tl1512315309_ + _hd1513415340_ + _hd1512715316_) (let () (declare (not safe)) - (_g1516915216_))))) - (let () (declare (not safe)) (_g1516915216_))) + (_g1511815165_))))) + (let () (declare (not safe)) (_g1511815165_))) (if (let () (declare (not safe)) - (equal? _e1518315383_ 'special:)) - (if (gx#stx-pair? _tl1518015380_) - (let ((_e1520215314_ - (gx#syntax-e _tl1518015380_))) - (let ((_tl1520015321_ + (equal? _e1513215332_ 'special:)) + (if (gx#stx-pair? _tl1512915329_) + (let ((_e1515115263_ + (gx#syntax-e _tl1512915329_))) + (let ((_tl1514915270_ (let () (declare (not safe)) - (##cdr _e1520215314_))) - (_hd1520115318_ + (##cdr _e1515115263_))) + (_hd1515015267_ (let () (declare (not safe)) - (##car _e1520215314_)))) - (if (gx#stx-null? _tl1520015321_) - (___kont1754917550_ - _tl1517415360_ - _hd1520115318_ - _hd1517815367_) + (##car _e1515115263_)))) + (if (gx#stx-null? _tl1514915270_) + (___kont1749817499_ + _tl1512315309_ + _hd1515015267_ + _hd1512715316_) (let () (declare (not safe)) - (_g1516915216_))))) - (let () (declare (not safe)) (_g1516915216_))) - (let () (declare (not safe)) (_g1516915216_))))) - (let () (declare (not safe)) (_g1516915216_))))) + (_g1511815165_))))) + (let () (declare (not safe)) (_g1511815165_))) + (let () (declare (not safe)) (_g1511815165_))))) + (let () (declare (not safe)) (_g1511815165_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl1517715370_) - (___kont1755117552_ - _tl1517415360_ - _hd1517815367_) + _tl1512615319_) + (___kont1750017501_ + _tl1512315309_ + _hd1512715316_) (let () (declare (not safe)) - (_g1516915216_)))))) + (_g1511815165_)))))) (let () (declare (not safe)) - (_g1516915216_))))) + (_g1511815165_))))) (let () (declare (not safe)) - (_g1516815227_)))))))) - _form1508815137_)))))) + (_g1511715176_)))))))) + _form1503715086_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1508315117_ - _target1508015111_ + (_loop1503215066_ + _target1502915060_ '())) - (_g1507415094_ _g1507515098_))))) - (_g1507415094_ _g1507515098_)))) - (_g1507415094_ _g1507515098_))))) - (_g1507315431_ _stx15068_))))))) + (_g1502315043_ _g1502415047_))))) + (_g1502315043_ _g1502415047_)))) + (_g1502315043_ _g1502415047_))))) + (_g1502215380_ _stx15017_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index 4ba1a9bdf9..33dd6ccc56 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 1697117311) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1701173279) '#!void) diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index 3190f151f1..dade97cdb0 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 1697117311) + (define gerbil/runtime/init::timestamp 1701173280) (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+18426_ __*readtable*)) + (letrec* ((_+readtable+18375_ __*readtable*)) (let () (declare (not safe)) (__init-gx!)) - (let* ((_core18428_ (gx#import-module ':gerbil/core)) - (_pre18430_ (gx#make-prelude-context _core18428_))) - (gx#current-expander-module-prelude _pre18430_) - (gx#core-bind-root-syntax! ': _pre18430_ '#t) + (let* ((_core18377_ (gx#import-module ':gerbil/core)) + (_pre18379_ (gx#make-prelude-context _core18377_))) + (gx#current-expander-module-prelude _pre18379_) + (gx#core-bind-root-syntax! ': _pre18379_ '#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 (_port18433_) - (input-port-readtable-set! _port18433_ _+readtable+18426_)) + (lambda (_port18382_) + (input-port-readtable-set! _port18382_ _+readtable+18375_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port18435_) + (lambda (_port18384_) (output-port-readtable-set! - _port18435_ + _port18384_ (readtable-sharing-allowed?-set - (output-port-readtable _port18435_) + (output-port-readtable _port18384_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline18423_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline18372_) '#!void)) (define load-scheme - (lambda (_path18418_) - (let ((__tmp18437 + (lambda (_path18367_) + (let ((__tmp18386 (lambda () - (let ((__tmp18438 (lambda _args18421_ '#f))) + (let ((__tmp18387 (lambda _args18370_ '#f))) (declare (not safe)) - (##load _path18418_ __tmp18438 '#t '#t '#f))))) + (##load _path18367_ __tmp18387 '#t '#t '#f))))) (declare (not safe)) (call-with-parameters - __tmp18437 + __tmp18386 __loading-scheme-source - _path18418_)))) + _path18367_)))) (define load-path (lambda () (values (let () (declare (not safe)) (current-module-library-path)) @@ -68,425 +68,431 @@ (define expander-load-path (lambda () (gx#current-expander-module-library-path))) (define add-load-path - (lambda _paths18413_ - (apply add-library-load-path _paths18413_) - (apply add-expander-load-path _paths18413_))) + (lambda _paths18362_ + (apply add-library-load-path _paths18362_) + (apply add-expander-load-path _paths18362_))) (define add-library-load-path - (lambda _paths18402_ - (let* ((_current18404_ (current-module-library-path)) - (_paths18406_ (map path-expand _paths18402_)) - (_paths18410_ - (let ((__tmp18439 - (lambda (_x18408_) - (let ((__tmp18440 (member _x18408_ _current18404_))) + (lambda _paths18351_ + (let* ((_current18353_ (current-module-library-path)) + (_paths18355_ (map path-expand _paths18351_)) + (_paths18359_ + (let ((__tmp18388 + (lambda (_x18357_) + (let ((__tmp18389 (member _x18357_ _current18353_))) (declare (not safe)) - (not __tmp18440))))) + (not __tmp18389))))) (declare (not safe)) - (filter __tmp18439 _paths18406_)))) - (current-module-library-path (append _current18404_ _paths18410_))))) + (filter __tmp18388 _paths18355_)))) + (current-module-library-path (append _current18353_ _paths18359_))))) (define add-expander-load-path - (lambda _paths18391_ - (let* ((_current18393_ (gx#current-expander-module-library-path)) - (_paths18395_ (map path-expand _paths18391_)) - (_paths18399_ - (let ((__tmp18441 - (lambda (_x18397_) - (let ((__tmp18442 (member _x18397_ _current18393_))) + (lambda _paths18340_ + (let* ((_current18342_ (gx#current-expander-module-library-path)) + (_paths18344_ (map path-expand _paths18340_)) + (_paths18348_ + (let ((__tmp18390 + (lambda (_x18346_) + (let ((__tmp18391 (member _x18346_ _current18342_))) (declare (not safe)) - (not __tmp18442))))) + (not __tmp18391))))) (declare (not safe)) - (filter __tmp18441 _paths18395_)))) + (filter __tmp18390 _paths18344_)))) (gx#current-expander-module-library-path - (append _current18393_ _paths18399_))))) + (append _current18342_ _paths18348_))))) (define cons-load-path - (lambda _paths18389_ - (apply cons-library-load-path _paths18389_) - (apply cons-expander-load-path _paths18389_))) + (lambda _paths18338_ + (apply cons-library-load-path _paths18338_) + (apply cons-expander-load-path _paths18338_))) (define cons-library-load-path - (lambda _paths18384_ - (let ((_current18386_ (current-module-library-path)) - (_paths18387_ (map path-expand _paths18384_))) - (current-module-library-path (append _paths18387_ _current18386_))))) + (lambda _paths18333_ + (let ((_current18335_ (current-module-library-path)) + (_paths18336_ (map path-expand _paths18333_))) + (current-module-library-path (append _paths18336_ _current18335_))))) (define cons-expander-load-path - (lambda _paths18379_ - (let ((_current18381_ (gx#current-expander-module-library-path)) - (_paths18382_ (map path-expand _paths18379_))) + (lambda _paths18328_ + (let ((_current18330_ (gx#current-expander-module-library-path)) + (_paths18331_ (map path-expand _paths18328_))) (gx#current-expander-module-library-path - (append _paths18382_ _current18381_))))) + (append _paths18331_ _current18330_))))) (define with-cons-load-path - (lambda (_thunk18375_ . _paths18376_) + (lambda (_thunk18324_ . _paths18325_) (apply with-cons-library-load-path (lambda () (apply with-cons-expander-load-path - _thunk18375_ - _paths18376_)) - _paths18376_))) + _thunk18324_ + _paths18325_)) + _paths18325_))) (define with-cons-library-load-path - (lambda (_thunk18368_ . _paths18369_) - (let ((_current18371_ (current-module-library-path)) - (_paths18372_ (map path-expand _paths18369_))) - (let ((__tmp18444 (lambda () (_thunk18368_))) - (__tmp18443 (append _paths18372_ _current18371_))) + (lambda (_thunk18317_ . _paths18318_) + (let ((_current18320_ (current-module-library-path)) + (_paths18321_ (map path-expand _paths18318_))) + (let ((__tmp18393 (lambda () (_thunk18317_))) + (__tmp18392 (append _paths18321_ _current18320_))) (declare (not safe)) (call-with-parameters - __tmp18444 + __tmp18393 current-module-library-path - __tmp18443))))) + __tmp18392))))) (define with-cons-expander-load-path - (lambda (_thunk18361_ . _paths18362_) - (let ((_current18364_ (gx#current-expander-module-library-path)) - (_paths18365_ (map path-expand _paths18362_))) - (let ((__tmp18446 (lambda () (_thunk18361_))) - (__tmp18445 (append _paths18365_ _current18364_))) + (lambda (_thunk18310_ . _paths18311_) + (let ((_current18313_ (gx#current-expander-module-library-path)) + (_paths18314_ (map path-expand _paths18311_))) + (let ((__tmp18395 (lambda () (_thunk18310_))) + (__tmp18394 (append _paths18314_ _current18313_))) (declare (not safe)) (call-with-parameters - __tmp18446 + __tmp18395 gx#current-expander-module-library-path - __tmp18445))))) + __tmp18394))))) (define __expand-source - (lambda (_src18347_) - (letrec ((_expand18349_ - (lambda (_src18359_) - (let ((__tmp18447 + (lambda (_src18296_) + (letrec ((_expand18298_ + (lambda (_src18308_) + (let ((__tmp18396 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src18359_))))) + (__source->syntax _src18308_))))) (declare (not safe)) - (__compile-top __tmp18447)))) - (_no-expand18350_ - (lambda (_src18355_) + (__compile-top __tmp18396)))) + (_no-expand18299_ + (lambda (_src18304_) (if (__loading-scheme-source) - _src18355_ + _src18304_ (if (let () (declare (not safe)) - (##source? _src18355_)) - (let ((_code18357_ + (##source? _src18304_)) + (let ((_code18306_ (let () (declare (not safe)) - (##source-code _src18355_)))) + (##source-code _src18304_)))) (if (let () (declare (not safe)) - (pair? _code18357_)) - (if (let ((__tmp18448 + (pair? _code18306_)) + (if (let ((__tmp18397 (let () (declare (not safe)) - (##car _code18357_)))) + (##car _code18306_)))) (declare (not safe)) - (eq? '__noexpand: __tmp18448)) + (eq? '__noexpand: __tmp18397)) (let () (declare (not safe)) - (##cdr _code18357_)) + (##cdr _code18306_)) '#f) '#f)) '#f))))) - (let ((_$e18352_ - (let () (declare (not safe)) (_no-expand18350_ _src18347_)))) - (if _$e18352_ - _$e18352_ - (let () (declare (not safe)) (_expand18349_ _src18347_))))))) + (let ((_$e18301_ + (let () (declare (not safe)) (_no-expand18299_ _src18296_)))) + (if _$e18301_ + _$e18301_ + (let () (declare (not safe)) (_expand18298_ _src18296_))))))) (define __macro-descr - (lambda (_src18333_ _def-syntax?18334_) - (letrec ((_fail!18336_ + (lambda (_src18282_ _def-syntax?18283_) + (letrec ((_fail!18285_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src18333_)))) - (_make-descr18337_ - (lambda (_size18341_) - (let ((_expander18344_ - (let ((__tmp18449 + _src18282_)))) + (_make-descr18286_ + (lambda (_size18290_) + (let ((_expander18293_ + (let ((__tmp18398 (lambda () (let () (declare (not safe)) (##eval-top - _src18333_ + _src18282_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp18449 + __tmp18398 __loading-scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander18344_)) + (procedure? _expander18293_)) (let () (declare (not safe)) (##make-macro-descr - _def-syntax?18334_ - _size18341_ - _expander18344_ - _src18333_)) - (let () (declare (not safe)) (_fail!18336_))))))) - (if _def-syntax?18334_ - (let () (declare (not safe)) (_make-descr18337_ '-1)) - (let ((_code18339_ - (let () (declare (not safe)) (##source-code _src18333_)))) - (if (and (let () (declare (not safe)) (##pair? _code18339_)) - (let ((__tmp18453 - (let ((__tmp18454 - (let ((__tmp18455 + _def-syntax?18283_ + _size18290_ + _expander18293_ + _src18282_)) + (let () (declare (not safe)) (_fail!18285_))))))) + (if _def-syntax?18283_ + (let () (declare (not safe)) (_make-descr18286_ '-1)) + (let ((_code18288_ + (let () (declare (not safe)) (##source-code _src18282_)))) + (if (and (let () (declare (not safe)) (##pair? _code18288_)) + (let ((__tmp18402 + (let ((__tmp18403 + (let ((__tmp18404 (let () (declare (not safe)) - (##car _code18339_)))) + (##car _code18288_)))) (declare (not safe)) - (##sourcify __tmp18455 _src18333_)))) + (##sourcify __tmp18404 _src18282_)))) (declare (not safe)) - (##source-code __tmp18454)))) + (##source-code __tmp18403)))) (declare (not safe)) - (##memq __tmp18453 '(##lambda lambda)))) + (##memq __tmp18402 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src18333_ _src18333_ '-3)) - (let ((__tmp18450 - (let ((__tmp18451 - (let ((__tmp18452 + (##shape _src18282_ _src18282_ '-3)) + (let ((__tmp18399 + (let ((__tmp18400 + (let ((__tmp18401 (let () (declare (not safe)) - (##cadr _code18339_)))) + (##cadr _code18288_)))) (declare (not safe)) - (##sourcify __tmp18452 _src18333_)))) + (##sourcify __tmp18401 _src18282_)))) (declare (not safe)) - (##form-size __tmp18451)))) + (##form-size __tmp18400)))) (declare (not safe)) - (_make-descr18337_ __tmp18450))) - (let () (declare (not safe)) (_fail!18336_)))))))) + (_make-descr18286_ __tmp18399))) + (let () (declare (not safe)) (_fail!18285_)))))))) (define __source->syntax - (lambda (_src18327_) - (let _recur18329_ ((_e18331_ _src18327_)) - (if (let () (declare (not safe)) (##source? _e18331_)) - (let ((__tmp18463 - (let ((__tmp18464 + (lambda (_src18276_) + (let _recur18278_ ((_e18280_ _src18276_)) + (if (let () (declare (not safe)) (##source? _e18280_)) + (let ((__tmp18412 + (let ((__tmp18413 (let () (declare (not safe)) - (##source-code _e18331_)))) + (##source-code _e18280_)))) (declare (not safe)) - (_recur18329_ __tmp18464))) - (__tmp18462 - (let () (declare (not safe)) (##source-locat _e18331_)))) + (_recur18278_ __tmp18413))) + (__tmp18411 + (let () (declare (not safe)) (##source-locat _e18280_)))) (declare (not safe)) - (##structure AST::t __tmp18463 __tmp18462)) - (if (let () (declare (not safe)) (pair? _e18331_)) - (let ((__tmp18460 - (let ((__tmp18461 + (##structure AST::t __tmp18412 __tmp18411)) + (if (let () (declare (not safe)) (pair? _e18280_)) + (let ((__tmp18409 + (let ((__tmp18410 (let () (declare (not safe)) - (##car _e18331_)))) + (##car _e18280_)))) (declare (not safe)) - (_recur18329_ __tmp18461))) - (__tmp18458 - (let ((__tmp18459 + (_recur18278_ __tmp18410))) + (__tmp18407 + (let ((__tmp18408 (let () (declare (not safe)) - (##cdr _e18331_)))) + (##cdr _e18280_)))) (declare (not safe)) - (_recur18329_ __tmp18459)))) + (_recur18278_ __tmp18408)))) (declare (not safe)) - (cons __tmp18460 __tmp18458)) - (if (let () (declare (not safe)) (vector? _e18331_)) - (vector-map _recur18329_ _e18331_) - (if (let () (declare (not safe)) (box? _e18331_)) - (let ((__tmp18456 - (let ((__tmp18457 (unbox _e18331_))) + (cons __tmp18409 __tmp18407)) + (if (let () (declare (not safe)) (vector? _e18280_)) + (vector-map _recur18278_ _e18280_) + (if (let () (declare (not safe)) (box? _e18280_)) + (let ((__tmp18405 + (let ((__tmp18406 (unbox _e18280_))) (declare (not safe)) - (_recur18329_ __tmp18457)))) + (_recur18278_ __tmp18406)))) (declare (not safe)) - (box __tmp18456)) - _e18331_))))))) + (box __tmp18405)) + _e18280_))))))) (define __compile-top-source - (lambda (_stx18325_) - (let ((__tmp18465 - (let () (declare (not safe)) (__compile-top _stx18325_)))) + (lambda (_stx18274_) + (let ((__tmp18414 + (let () (declare (not safe)) (__compile-top _stx18274_)))) (declare (not safe)) - (cons '__noexpand: __tmp18465)))) + (cons '__noexpand: __tmp18414)))) (define __compile-top - (lambda (_stx18323_) - (let ((__tmp18466 (gx#core-compile-top-syntax _stx18323_))) + (lambda (_stx18272_) + (let ((__tmp18415 (gx#core-compile-top-syntax _stx18272_))) (declare (not safe)) - (__compile __tmp18466)))) + (__compile __tmp18415)))) (define __eval-import - (lambda (_in18304_) - (letrec* ((_mods18306_ + (lambda (_in18253_) + (letrec* ((_mods18255_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_import118307_ - (lambda (_in18314_ _phi18315_) - (if (gx#module-import? _in18314_) - (let ((_iphi18317_ - (fx+ _phi18315_ - (gx#module-import-phi _in18314_)))) + (_import118256_ + (lambda (_in18263_ _phi18264_) + (if (gx#module-import? _in18263_) + (let ((_iphi18266_ + (fx+ _phi18264_ + (gx#module-import-phi _in18263_)))) (if (let () (declare (not safe)) - (fxzero? _iphi18317_)) - (let ((__tmp18468 + (fxzero? _iphi18266_)) + (let ((__tmp18417 (gx#module-export-context - (gx#module-import-source _in18314_)))) + (gx#module-import-source _in18263_)))) (declare (not safe)) - (_eval118308_ __tmp18468)) + (_eval118257_ __tmp18417)) '#!void)) - (if (gx#module-context? _in18314_) + (if (gx#module-context? _in18263_) (if (let () (declare (not safe)) - (fxzero? _phi18315_)) + (fxzero? _phi18264_)) (let () (declare (not safe)) - (_eval118308_ _in18314_)) + (_eval118257_ _in18263_)) '#!void) - (if (gx#import-set? _in18314_) - (let ((_iphi18319_ - (fx+ _phi18315_ - (gx#import-set-phi _in18314_)))) + (if (gx#import-set? _in18263_) + (let ((_iphi18268_ + (fx+ _phi18264_ + (gx#import-set-phi _in18263_)))) (if (let () (declare (not safe)) - (fxzero? _iphi18319_)) - (let ((__tmp18467 + (fxzero? _iphi18268_)) + (let ((__tmp18416 (gx#import-set-source - _in18314_))) + _in18263_))) (declare (not safe)) - (_eval118308_ __tmp18467)) - (if (fxpositive? _iphi18319_) + (_eval118257_ __tmp18416)) + (if (fxpositive? _iphi18268_) (for-each - (lambda (_in18321_) + (lambda (_in18270_) (let () (declare (not safe)) - (_import118307_ - _in18321_ - _iphi18319_))) + (_import118256_ + _in18270_ + _iphi18268_))) (gx#module-context-import - (gx#import-set-source _in18314_))) + (gx#import-set-source _in18263_))) '#!void))) - (error '"Unexpected import" _in18314_)))))) - (_eval118308_ - (lambda (_ctx18312_) + (error '"Unexpected import" _in18263_)))))) + (_eval118257_ + (lambda (_ctx18261_) (if (let () (declare (not safe)) - (table-ref _mods18306_ _ctx18312_ '#f)) + (table-ref _mods18255_ _ctx18261_ '#f)) '#!void (begin (let () (declare (not safe)) - (table-set! _mods18306_ _ctx18312_ '#t)) - (__eval-module _ctx18312_)))))) - (if (let () (declare (not safe)) (pair? _in18304_)) + (table-set! _mods18255_ _ctx18261_ '#t)) + (__eval-module _ctx18261_)))))) + (if (let () (declare (not safe)) (pair? _in18253_)) (for-each - (lambda (_in18310_) - (let () (declare (not safe)) (_import118307_ _in18310_ '0))) - _in18304_) - (let () (declare (not safe)) (_import118307_ _in18304_ '0)))))) + (lambda (_in18259_) + (let () (declare (not safe)) (_import118256_ _in18259_ '0))) + _in18253_) + (let () (declare (not safe)) (_import118256_ _in18253_ '0)))))) (define __eval-module - (lambda (_obj18297_) - (let* ((_key18299_ - (if (gx#module-context? _obj18297_) - (gx#module-context-path _obj18297_) - _obj18297_)) - (_$e18301_ + (lambda (_obj18246_) + (let* ((_key18248_ + (if (gx#module-context? _obj18246_) + (gx#module-context-path _obj18246_) + _obj18246_)) + (_$e18250_ (let () (declare (not safe)) - (table-ref __*modules* _key18299_ '#f)))) - (if _$e18301_ (values _$e18301_) (gx#core-eval-module _obj18297_))))) + (table-ref __*modules* _key18248_ '#f)))) + (if _$e18250_ (values _$e18250_) (gx#core-eval-module _obj18246_))))) (define gerbil-runtime-init! - (lambda (_builtin-modules18232_) + (lambda (_builtin-modules18181_) (if __runtime-initialized '#!void (begin - (let* ((_home18234_ (let () (declare (not safe)) (gerbil-home))) - (_libdir18236_ (path-expand '"lib" _home18234_)) - (_loadpath18245_ - (let ((_$e18238_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e18238_ - ((lambda (_envvar18241_) - (let ((__tmp18470 - (lambda (_x18243_) - (let ((__tmp18471 - (let () - (declare (not safe)) - (string-empty? _x18243_)))) - (declare (not safe)) - (not __tmp18471)))) - (__tmp18469 - (let () - (declare (not safe)) - (string-split _envvar18241_ '#\:)))) - (declare (not safe)) - (filter __tmp18470 __tmp18469))) - _$e18238_) - '()))) - (_userpath18247_ + (let* ((_home18183_ (let () (declare (not safe)) (gerbil-home))) + (_libdir18185_ (path-expand '"lib" _home18183_)) + (_userpath18187_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath18249_ + (_loadpath18189_ (if (getenv '"GERBIL_BUILD_PREFIX" '#f) - _loadpath18245_ (let () (declare (not safe)) - (cons _userpath18247_ _loadpath18245_))))) - (current-module-library-path - (let () - (declare (not safe)) - (cons _libdir18236_ _loadpath18249_)))) - (let* ((_registry-entry18254_ - (lambda (_m18252_) + (cons _libdir18185_ '())) + (let ((__tmp18418 + (let () + (declare (not safe)) + (cons _libdir18185_ '())))) + (declare (not safe)) + (cons _userpath18187_ __tmp18418)))) + (_loadpath18198_ + (let ((_$e18191_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e18191_ + ((lambda (_envvar18194_) + (append (let ((__tmp18420 + (lambda (_x18196_) + (let ((__tmp18421 + (let () + (declare (not safe)) + (string-empty? + _x18196_)))) + (declare (not safe)) + (not __tmp18421)))) + (__tmp18419 + (let () + (declare (not safe)) + (string-split + _envvar18194_ + '#\:)))) + (declare (not safe)) + (filter __tmp18420 __tmp18419)) + _loadpath18189_)) + _$e18191_) + _loadpath18189_)))) + (current-module-library-path _loadpath18198_)) + (let* ((_registry-entry18203_ + (lambda (_m18201_) (let () (declare (not safe)) - (cons _m18252_ 'builtin)))) - (_module-registry18294_ - (let _lp18256_ ((_rest18258_ _builtin-modules18232_) - (_registry18259_ '())) - (let* ((_rest1826018268_ _rest18258_) - (_else1826218276_ + (cons _m18201_ 'builtin)))) + (_module-registry18243_ + (let _lp18205_ ((_rest18207_ _builtin-modules18181_) + (_registry18208_ '())) + (let* ((_rest1820918217_ _rest18207_) + (_else1821118225_ (lambda () (let () (declare (not safe)) - (list->table _registry18259_)))) - (_K1826418282_ - (lambda (_rest18279_ _mod18280_) - (let ((__tmp18472 - (let ((__tmp18476 - (let ((__tmp18477 + (list->table _registry18208_)))) + (_K1821318231_ + (lambda (_rest18228_ _mod18229_) + (let ((__tmp18422 + (let ((__tmp18426 + (let ((__tmp18427 (string-append - _mod18280_ + _mod18229_ '"__0"))) (declare (not safe)) - (_registry-entry18254_ - __tmp18477))) - (__tmp18473 - (let ((__tmp18474 - (let ((__tmp18475 + (_registry-entry18203_ + __tmp18427))) + (__tmp18423 + (let ((__tmp18424 + (let ((__tmp18425 (string-append - _mod18280_ + _mod18229_ '"__rt"))) (declare (not safe)) - (_registry-entry18254_ - __tmp18475)))) + (_registry-entry18203_ + __tmp18425)))) (declare (not safe)) - (cons __tmp18474 - _registry18259_)))) + (cons __tmp18424 + _registry18208_)))) (declare (not safe)) - (cons __tmp18476 __tmp18473)))) + (cons __tmp18426 __tmp18423)))) (declare (not safe)) - (_lp18256_ _rest18279_ __tmp18472))))) + (_lp18205_ _rest18228_ __tmp18422))))) (if (let () (declare (not safe)) - (##pair? _rest1826018268_)) - (let ((_hd1826518285_ + (##pair? _rest1820918217_)) + (let ((_hd1821418234_ (let () (declare (not safe)) - (##car _rest1826018268_))) - (_tl1826618287_ + (##car _rest1820918217_))) + (_tl1821518236_ (let () (declare (not safe)) - (##cdr _rest1826018268_)))) - (let* ((_mod18290_ _hd1826518285_) - (_rest18292_ _tl1826618287_)) + (##cdr _rest1820918217_)))) + (let* ((_mod18239_ _hd1821418234_) + (_rest18241_ _tl1821518236_)) (declare (not safe)) - (_K1826418282_ _rest18292_ _mod18290_))) + (_K1821318231_ _rest18241_ _mod18239_))) (let () (declare (not safe)) - (_else1826218276_))))))) - (current-module-registry _module-registry18294_)) + (_else1821118225_))))))) + (current-module-registry _module-registry18243_)) (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 52347462b0..74f45df0f7 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 1697117311) + (define gerbil/runtime/loader::timestamp 1701173279) (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 (_modpath8960_ _reload?8961_) - (let ((_$e8963_ - (if (let () (declare (not safe)) (not _reload?8961_)) - (let ((__tmp8982 (current-module-registry))) + (lambda (_modpath8898_ _reload?8899_) + (let ((_$e8901_ + (if (let () (declare (not safe)) (not _reload?8899_)) + (let ((__tmp8920 (current-module-registry))) (declare (not safe)) - (table-ref __tmp8982 _modpath8960_ '#f)) + (table-ref __tmp8920 _modpath8898_ '#f)) '#f))) - (if _$e8963_ - _$e8963_ - (let ((_$e8966_ + (if _$e8901_ + _$e8901_ + (let ((_$e8904_ (let () (declare (not safe)) - (find-library-module _modpath8960_)))) - (if _$e8966_ - ((lambda (_path8969_) - (let ((_lpath8971_ (load _path8969_))) - (let ((__tmp8983 (current-module-registry))) + (find-library-module _modpath8898_)))) + (if _$e8904_ + ((lambda (_path8907_) + (let ((_lpath8909_ (load _path8907_))) + (let ((__tmp8921 (current-module-registry))) (declare (not safe)) - (table-set! __tmp8983 _modpath8960_ _lpath8971_)) - _lpath8971_)) - _$e8966_) - (error '"module not found" _modpath8960_))))))) + (table-set! __tmp8921 _modpath8898_ _lpath8909_)) + _lpath8909_)) + _$e8904_) + (error '"module not found" _modpath8898_))))))) (define load-module__0 - (lambda (_modpath8976_) - (let ((_reload?8978_ (__reload-module))) + (lambda (_modpath8914_) + (let ((_reload?8916_ (__reload-module))) (declare (not safe)) - (load-module__% _modpath8976_ _reload?8978_)))) + (load-module__% _modpath8914_ _reload?8916_)))) (define load-module - (lambda _g8985_ - (let ((_g8984_ (let () (declare (not safe)) (##length _g8985_)))) - (cond ((let () (declare (not safe)) (##fx= _g8984_ 1)) - (apply (lambda (_modpath8976_) + (lambda _g8923_ + (let ((_g8922_ (let () (declare (not safe)) (##length _g8923_)))) + (cond ((let () (declare (not safe)) (##fx= _g8922_ 1)) + (apply (lambda (_modpath8914_) (let () (declare (not safe)) - (load-module__0 _modpath8976_))) - _g8985_)) - ((let () (declare (not safe)) (##fx= _g8984_ 2)) - (apply (lambda (_modpath8980_ _reload?8981_) + (load-module__0 _modpath8914_))) + _g8923_)) + ((let () (declare (not safe)) (##fx= _g8922_ 2)) + (apply (lambda (_modpath8918_ _reload?8919_) (let () (declare (not safe)) - (load-module__% _modpath8980_ _reload?8981_))) - _g8985_)) + (load-module__% _modpath8918_ _reload?8919_))) + _g8923_)) (else (##raise-wrong-number-of-arguments-exception load-module - _g8985_)))))) + _g8923_)))))) (define find-library-module - (lambda (_modpath8894_) - (letrec ((_find-compiled-file8896_ - (lambda (_npath8948_) - (let ((_basepath8950_ + (lambda (_modpath8832_) + (letrec ((_find-compiled-file8834_ + (lambda (_npath8886_) + (let ((_basepath8888_ (let () (declare (not safe)) - (##string-append _npath8948_ '".o")))) - (let _lp8952_ ((_current8954_ '#f) (_n8955_ '1)) - (let ((_next8957_ - (let ((__tmp8986 (number->string _n8955_))) + (##string-append _npath8886_ '".o")))) + (let _lp8890_ ((_current8892_ '#f) (_n8893_ '1)) + (let ((_next8895_ + (let ((__tmp8924 (number->string _n8893_))) (declare (not safe)) - (##string-append _basepath8950_ __tmp8986)))) + (##string-append _basepath8888_ __tmp8924)))) (if (let () (declare (not safe)) - (##file-exists? _next8957_)) - (let ((__tmp8987 + (##file-exists? _next8895_)) + (let ((__tmp8925 (let () (declare (not safe)) - (##fx+ _n8955_ '1)))) + (##fx+ _n8893_ '1)))) (declare (not safe)) - (_lp8952_ _next8957_ __tmp8987)) - _current8954_)))))) - (_find-source-file8897_ - (lambda (_npath8944_) - (let ((_spath8946_ (string-append _npath8944_ '".scm"))) + (_lp8890_ _next8895_ __tmp8925)) + _current8892_)))))) + (_find-source-file8835_ + (lambda (_npath8882_) + (let ((_spath8884_ (string-append _npath8882_ '".scm"))) (if (let () (declare (not safe)) - (##file-exists? _spath8946_)) - _spath8946_ + (##file-exists? _spath8884_)) + _spath8884_ '#f))))) - (let _lp8899_ ((_rest8901_ (current-module-library-path))) - (let* ((_rest89028910_ _rest8901_) - (_else89048918_ (lambda () '#f)) - (_K89068932_ - (lambda (_rest8921_ _dir8922_) - (let* ((_npath8924_ + (let _lp8837_ ((_rest8839_ (current-module-library-path))) + (let* ((_rest88408848_ _rest8839_) + (_else88428856_ (lambda () '#f)) + (_K88448870_ + (lambda (_rest8859_ _dir8860_) + (let* ((_npath8862_ (path-expand - _modpath8894_ - (path-expand _dir8922_))) - (_$e8926_ + _modpath8832_ + (path-expand _dir8860_))) + (_$e8864_ (let () (declare (not safe)) - (_find-compiled-file8896_ _npath8924_)))) - (if _$e8926_ - (path-normalize _$e8926_) - (let ((_$e8929_ + (_find-compiled-file8834_ _npath8862_)))) + (if _$e8864_ + (path-normalize _$e8864_) + (let ((_$e8867_ (let () (declare (not safe)) - (_find-source-file8897_ _npath8924_)))) - (if _$e8929_ - (path-normalize _$e8929_) + (_find-source-file8835_ _npath8862_)))) + (if _$e8867_ + (path-normalize _$e8867_) (let () (declare (not safe)) - (_lp8899_ _rest8921_))))))))) - (if (let () (declare (not safe)) (##pair? _rest89028910_)) - (let ((_hd89078935_ - (let () (declare (not safe)) (##car _rest89028910_))) - (_tl89088937_ - (let () (declare (not safe)) (##cdr _rest89028910_)))) - (let* ((_dir8940_ _hd89078935_) (_rest8942_ _tl89088937_)) + (_lp8837_ _rest8859_))))))))) + (if (let () (declare (not safe)) (##pair? _rest88408848_)) + (let ((_hd88458873_ + (let () (declare (not safe)) (##car _rest88408848_))) + (_tl88468875_ + (let () (declare (not safe)) (##cdr _rest88408848_)))) + (let* ((_dir8878_ _hd88458873_) (_rest8880_ _tl88468875_)) (declare (not safe)) - (_K89068932_ _rest8942_ _dir8940_))) - (let () (declare (not safe)) (_else89048918_)))))))))) + (_K88448870_ _rest8880_ _dir8878_))) + (let () (declare (not safe)) (_else88428856_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop.ssi b/src/bootstrap/gerbil/runtime/mop.ssi index db0d31d0ff..51a9b4d473 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssi +++ b/src/bootstrap/gerbil/runtime/mop.ssi @@ -3,26 +3,40 @@ 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 alist-form alist-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-alist type-descriptor-alist) + (%#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-slots type-descriptor-slots) (%#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 +46,81 @@ 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 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 301cdd88be..560736444e 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -2,44 +2,78 @@ 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 alist-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-alist (@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-fields (@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-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 base-struct (@lambda (0) base-struct/list)) + (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 +90,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 +119,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 b50453b89e..af7b99036c 100644 --- a/src/bootstrap/gerbil/runtime/mop__0.scm +++ b/src/bootstrap/gerbil/runtime/mop__0.scm @@ -1,2506 +1,2210 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1697117311) + (define gerbil/runtime/mop::timestamp 1701173279) (begin + (define type-id + (lambda (_klass10672_) + (if (let () (declare (not safe)) (type-descriptor? _klass10672_)) + (let () (declare (not safe)) (##type-id _klass10672_)) + (if (let () (declare (not safe)) (not _klass10672_)) + '#f + (error '"Not a class or #f" _klass10672_))))) + (define type=? + (lambda (_x10669_ _y10670_) + (let ((__tmp10697 (let () (declare (not safe)) (type-id _x10669_))) + (__tmp10696 (let () (declare (not safe)) (type-id _y10670_)))) + (declare (not safe)) + (eq? __tmp10697 __tmp10696)))) (define type-descriptor? - (lambda (_klass10721_) - (if (let () (declare (not safe)) (##type? _klass10721_)) - (let ((__tmp10731 + (lambda (_klass10667_) + (if (let () (declare (not safe)) (##type? _klass10667_)) + (let ((__tmp10698 (let () (declare (not safe)) - (##structure-length _klass10721_)))) + (##structure-length _klass10667_)))) (declare (not safe)) - (eq? __tmp10731 '12)) + (eq? __tmp10698 '12)) '#f))) + (define type-struct? + (lambda (_klass10665_) + (let ((__tmp10699 + (let () + (declare (not safe)) + (type-descriptor-alist _klass10665_)))) + (declare (not safe)) + (assgetq 'struct: __tmp10699)))) + (define type-final? + (lambda (_klass10663_) + (let ((__tmp10700 + (let () + (declare (not safe)) + (type-descriptor-alist _klass10663_)))) + (declare (not safe)) + (assgetq 'final: __tmp10700)))) (define struct-type? - (lambda (_klass10719_) - (if (let () (declare (not safe)) (type-descriptor? _klass10719_)) - (let ((__tmp10732 - (let () - (declare (not safe)) - (type-descriptor-mixin _klass10719_)))) - (declare (not safe)) - (not __tmp10732)) + (lambda (_klass10661_) + (if (let () (declare (not safe)) (type-descriptor? _klass10661_)) + (let () (declare (not safe)) (type-struct? _klass10661_)) '#f))) (define class-type? - (lambda (_klass10717_) - (if (let () (declare (not safe)) (type-descriptor? _klass10717_)) - (if (let () - (declare (not safe)) - (type-descriptor-mixin _klass10717_)) - '#t - '#f) + (lambda (_klass10659_) + (if (let () (declare (not safe)) (type-descriptor? _klass10659_)) + (let ((__tmp10701 + (let () (declare (not safe)) (type-struct? _klass10659_)))) + (declare (not safe)) + (not __tmp10701)) '#f))) + (define alist-form + (lambda (_alist10625_) + (map (lambda (_e1062610628_) + (let* ((_g1063010637_ _e1062610628_) + (_E1063210641_ + (lambda () (error '"No clause matching" _g1063010637_))) + (_K1063310647_ + (lambda (_val10644_ _key10645_) + (if (let () + (declare (not safe)) + (eq? _key10645_ 'direct-supers:)) + (let ((__tmp10702 (map type-id _val10644_))) + (declare (not safe)) + (cons _key10645_ __tmp10702)) + (let () + (declare (not safe)) + (cons _key10645_ _val10644_)))))) + (if (let () (declare (not safe)) (##pair? _g1063010637_)) + (let ((_hd1063410650_ + (let () + (declare (not safe)) + (##car _g1063010637_))) + (_tl1063510652_ + (let () + (declare (not safe)) + (##cdr _g1063010637_)))) + (let* ((_key10655_ _hd1063410650_) + (_val10657_ _tl1063510652_)) + (declare (not safe)) + (_K1063310647_ _val10657_ _key10655_))) + (let () (declare (not safe)) (_E1063210641_))))) + _alist10625_))) (define make-type-descriptor - (lambda (_type-id10613_ - _type-name10614_ - _type-super10615_ - _rtd-mixin10616_ - _rtd-fields10617_ - _rtd-plist10618_ - _rtd-ctor10619_ - _rtd-slots10620_ - _rtd-methods10621_) - (letrec ((_put-props!10623_ - (lambda (_ht10697_ _key10698_) - (letrec ((_put-plist!10700_ - (lambda (_ht10706_ _key10707_ _plist10708_) - (let ((_$e10710_ + (lambda (_type-id10615_ + _type-name10616_ + _type-super10617_ + _rtd-mixin10618_ + _rtd-fields10619_ + _rtd-plist10620_ + _rtd-ctor10621_ + _rtd-slots10622_ + _rtd-methods10623_) + (let () + (declare (not safe)) + (make-type-descriptor* + _type-id10615_ + _type-name10616_ + _type-super10617_ + _rtd-mixin10618_ + _rtd-fields10619_ + _rtd-plist10620_ + _rtd-ctor10621_ + _rtd-slots10622_ + _rtd-methods10623_)))) + (define make-type-descriptor* + (lambda (_type-id10527_ + _type-name10528_ + _type-super10529_ + _precedence-list10530_ + _all-slots10531_ + _alist10532_ + _constructor10533_ + _slot-table10534_ + _methods10535_) + (letrec ((_put-props!10537_ + (lambda (_ht10587_ _key10588_) + (letrec ((_put-slots!10590_ + (lambda (_ht10608_ _slots10609_) + (for-each + (lambda (_g1061010612_) + (let () + (declare (not safe)) + (table-set! _ht10608_ _g1061010612_ '#t))) + _slots10609_))) + (_put-alist!10591_ + (lambda (_ht10597_ _key10598_ _alist10599_) + (let ((_$e10601_ (let () (declare (not safe)) - (assgetq _key10707_ _plist10708_)))) - (if _$e10710_ - ((lambda (_lst10713_) - (for-each - (lambda (_id10715_) - (let () - (declare (not safe)) - (table-set! - _ht10706_ - _id10715_ - '#t))) - _lst10713_)) - _$e10710_) + (assgetq _key10598_ _alist10599_)))) + (if _$e10601_ + ((lambda (_g1060310605_) + (let () + (declare (not safe)) + (_put-slots!10590_ + _ht10597_ + _g1060310605_))) + _$e10601_) '#!void))))) (let () (declare (not safe)) - (_put-plist!10700_ - _ht10697_ - _key10698_ - _rtd-plist10618_)) - (if _rtd-mixin10616_ - (for-each - (lambda (_klass10702_) - (if (let () - (declare (not safe)) - (type-descriptor-mixin _klass10702_)) - (let ((_plist10704_ - (let () - (declare (not safe)) - (type-descriptor-plist - _klass10702_)))) - (if (let () - (declare (not safe)) - (assgetq 'transparent: _plist10704_)) - (let () - (declare (not safe)) - (_put-plist!10700_ - _ht10697_ - 'slots: - _plist10704_)) - (let () - (declare (not safe)) - (_put-plist!10700_ - _ht10697_ - _key10698_ - _plist10704_)))) - '#!void)) - _rtd-mixin10616_) - '#!void))))) - (let* ((_transparent?10625_ + (_put-alist!10591_ _ht10587_ _key10588_ _alist10532_)) + (for-each + (lambda (_mixin10593_) + (let ((_alist10595_ + (let () + (declare (not safe)) + (type-descriptor-alist _mixin10593_)))) + (if (let () + (declare (not safe)) + (assgetq 'transparent: _alist10595_)) + (let ((__tmp10703 + (cdr (vector->list + (let () + (declare (not safe)) + (type-descriptor-all-slots + _mixin10593_)))))) + (declare (not safe)) + (_put-slots!10590_ _ht10587_ __tmp10703)) + (let () + (declare (not safe)) + (_put-alist!10591_ + _ht10587_ + _key10588_ + _alist10595_))))) + _precedence-list10530_))))) + (let* ((_transparent?10539_ (let () (declare (not safe)) - (assgetq 'transparent: _rtd-plist10618_))) - (_field-names10630_ - (let ((_$e10627_ (assq 'fields: _rtd-plist10618_))) - (if _$e10627_ (cdr _$e10627_) '()))) - (_field-names10637_ - (let ((_$e10632_ (assq 'slots: _rtd-plist10618_))) - (if _$e10632_ - ((lambda (_slots10635_) - (append _field-names10630_ (cdr _slots10635_))) - _$e10632_) - _field-names10630_))) - (_g10733_ - (if (fx= _rtd-fields10617_ (length _field-names10637_)) - '#!void - (error '"Bad field descriptor; length mismatch" - _type-id10613_ - _rtd-fields10617_ - _field-names10637_))) - (_canonical-fields10640_ - (if _type-super10615_ - (list-tail - _field-names10637_ - (let () - (declare (not safe)) - (type-descriptor-fields _type-super10615_))) - _field-names10637_)) - (_printable10644_ - (if _transparent?10625_ + (assgetq 'transparent: _alist10532_))) + (_all-slots-printable?10544_ + (let ((_$e10541_ _transparent?10539_)) + (if _$e10541_ + _$e10541_ + (let () + (declare (not safe)) + (assgetq 'print: _alist10532_))))) + (_printable10548_ + (if _all-slots-printable?10544_ '#f - (let ((_ht10642_ + (let ((_ht10546_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (_put-props!10623_ _ht10642_ 'print:)) - _ht10642_))) - (_equality10648_ - (if _transparent?10625_ + (_put-props!10537_ _ht10546_ 'print:)) + _ht10546_))) + (_all-slots-equalable?10553_ + (let ((_$e10550_ _transparent?10539_)) + (if _$e10550_ + _$e10550_ + (let () + (declare (not safe)) + (assgetq 'equal: _alist10532_))))) + (_equalable10557_ + (if _all-slots-equalable?10553_ '#f - (let ((_ht10646_ + (let ((_ht10555_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (_put-props!10623_ _ht10646_ 'equal:)) - _ht10646_))) - (_field-info10689_ - (let _recur10650_ ((_rest10652_ _canonical-fields10640_)) - (let* ((_rest1065310661_ _rest10652_) - (_else1065510669_ (lambda () '())) - (_K1065710677_ - (lambda (_rest10672_ _id10673_) - (let* ((_flags10675_ - (if _transparent?10625_ - '0 - (let ((__tmp10735 - (if (let () - (declare (not safe)) - (table-ref - _printable10644_ - _id10673_ - '#f)) - '0 - '1)) - (__tmp10734 - (if (let () - (declare (not safe)) - (table-ref - _equality10648_ - _id10673_ - '#f)) - '0 - '4))) + (_put-props!10537_ _ht10555_ 'equal:)) + _ht10555_))) + (_first-new-field10559_ + (if _type-super10529_ + (vector-length + (let () + (declare (not safe)) + (type-descriptor-all-slots _type-super10529_))) + '1)) + (_field-info-length10561_ + (* '3 + (- (vector-length _all-slots10531_) + _first-new-field10559_))) + (_field-info10563_ (make-vector _field-info-length10561_ '#f)) + (_opaque?10568_ + (let ((_$e10565_ + (let () + (declare (not safe)) + (not _all-slots-equalable?10553_)))) + (if _$e10565_ + _$e10565_ + (if _type-super10529_ + (let ((__tmp10704 + (let ((__tmp10705 + (let () (declare (not safe)) - (##fxior __tmp10735 __tmp10734)))) - (__tmp10736 - (let ((__tmp10737 - (let ((__tmp10738 - (let () - (declare (not safe)) - (_recur10650_ - _rest10672_)))) + (##type-flags _type-super10529_)))) + (declare (not safe)) + (##fxand __tmp10705 '1)))) + (declare (not safe)) + (##fx= __tmp10704 '1)) + '#f))))) + (let _loop10571_ ((_i10573_ _first-new-field10559_) (_j10574_ '0)) + (if (< _j10574_ _field-info-length10561_) + (let* ((_slot10576_ (vector-ref _all-slots10531_ _i10573_)) + (_flags10584_ + (if _transparent?10539_ + '0 + (let ((__tmp10707 + (if (or _all-slots-printable?10544_ + (let () (declare (not safe)) - (cons '#f __tmp10738)))) - (declare (not safe)) - (cons _flags10675_ __tmp10737)))) + (table-ref + _printable10548_ + _slot10576_ + '#f))) + '0 + '1)) + (__tmp10706 + (if (or _all-slots-equalable?10553_ + (let () + (declare (not safe)) + (table-ref + _equalable10557_ + _slot10576_ + '#f))) + '0 + '4))) (declare (not safe)) - (cons _id10673_ __tmp10736))))) - (if (let () - (declare (not safe)) - (##pair? _rest1065310661_)) - (let ((_hd1065810680_ - (let () - (declare (not safe)) - (##car _rest1065310661_))) - (_tl1065910682_ - (let () - (declare (not safe)) - (##cdr _rest1065310661_)))) - (let* ((_id10685_ _hd1065810680_) - (_rest10687_ _tl1065910682_)) - (declare (not safe)) - (_K1065710677_ _rest10687_ _id10685_))) - (let () (declare (not safe)) (_else1065510669_)))))) - (_opaque?10694_ - (if (or _transparent?10625_ (assq 'equal: _rtd-plist10618_)) - (if _type-super10615_ - (let ((__tmp10739 - (let ((__tmp10740 - (let () - (declare (not safe)) - (##type-flags _type-super10615_)))) - (declare (not safe)) - (##fxand __tmp10740 '1)))) - (declare (not safe)) - (##fx= __tmp10739 '1)) - '#f) - '#t))) - (let ((__tmp10742 (+ '24 (if _opaque?10694_ '1 '0))) - (__tmp10741 (list->vector _field-info10689_))) + (##fxior __tmp10707 __tmp10706))))) + (vector-set! _field-info10563_ _j10574_ _slot10576_) + (vector-set! + _field-info10563_ + (let () (declare (not safe)) (fx+ _j10574_ '1)) + _flags10584_) + (let ((__tmp10709 + (let () (declare (not safe)) (fx+ _i10573_ '1))) + (__tmp10708 + (let () (declare (not safe)) (##fx+ _j10574_ '3)))) + (declare (not safe)) + (_loop10571_ __tmp10709 __tmp10708))) + '#!void)) + (let ((__tmp10710 (if _opaque?10568_ '25 '24))) (declare (not safe)) (##structure ##type-type - _type-id10613_ - _type-name10614_ - __tmp10742 - _type-super10615_ - __tmp10741 - _rtd-mixin10616_ - _rtd-fields10617_ - _rtd-plist10618_ - _rtd-ctor10619_ - _rtd-slots10620_ - _rtd-methods10621_)))))) - (define make-struct-type-descriptor - (lambda (_id10606_ - _name10607_ - _super10608_ - _fields10609_ - _plist10610_ - _ctor10611_) - (let () - (declare (not safe)) - (make-type-descriptor - _id10606_ - _name10607_ - _super10608_ - '#f - _fields10609_ - _plist10610_ - _ctor10611_ - '#f - '#f)))) - (define make-class-type-descriptor - (lambda (_id10597_ - _name10598_ - _super10599_ - _mixin10600_ - _fields10601_ - _plist10602_ - _ctor10603_ - _slots10604_) - (let () - (declare (not safe)) - (make-type-descriptor - _id10597_ - _name10598_ - _super10599_ - _mixin10600_ - _fields10601_ - _plist10602_ - _ctor10603_ - _slots10604_ - '#f)))) - (define type-descriptor-mixin - (lambda (_klass10595_) - (let () (declare (not safe)) (##vector-ref _klass10595_ '6)))) - (define type-descriptor-fields - (lambda (_klass10593_) - (let () (declare (not safe)) (##vector-ref _klass10593_ '7)))) - (define type-descriptor-plist - (lambda (_klass10591_) - (let () (declare (not safe)) (##vector-ref _klass10591_ '8)))) - (define type-descriptor-ctor - (lambda (_klass10589_) - (let () (declare (not safe)) (##vector-ref _klass10589_ '9)))) - (define type-descriptor-slots - (lambda (_klass10587_) - (let () (declare (not safe)) (##vector-ref _klass10587_ '10)))) + _type-id10527_ + _type-name10528_ + __tmp10710 + _type-super10529_ + _field-info10563_ + _precedence-list10530_ + _all-slots10531_ + _slot-table10534_ + _alist10532_ + _constructor10533_ + _methods10535_)))))) + (define type-descriptor-precedence-list + (lambda (_klass10525_) + (let () (declare (not safe)) (##vector-ref _klass10525_ '6)))) + (define type-descriptor-all-slots + (lambda (_klass10523_) + (let () (declare (not safe)) (##vector-ref _klass10523_ '7)))) + (define type-descriptor-slot-table + (lambda (_klass10521_) + (let () (declare (not safe)) (##vector-ref _klass10521_ '8)))) + (define type-descriptor-alist + (lambda (_klass10519_) + (let () (declare (not safe)) (##vector-ref _klass10519_ '9)))) + (define type-descriptor-constructor + (lambda (_klass10517_) + (let () (declare (not safe)) (##vector-ref _klass10517_ '10)))) (define type-descriptor-methods - (lambda (_klass10585_) - (let () (declare (not safe)) (##vector-ref _klass10585_ '11)))) + (lambda (_klass10515_) + (let () (declare (not safe)) (##vector-ref _klass10515_ '11)))) (define type-descriptor-methods-set! - (lambda (_klass10582_ _ht10583_) + (lambda (_klass10512_ _ht10513_) (let () (declare (not safe)) - (##vector-set! _klass10582_ '11 _ht10583_)))) + (##vector-set! _klass10512_ '11 _ht10513_)))) + (define type-descriptor-mixin type-descriptor-precedence-list) + (define type-descriptor-plist type-descriptor-alist) + (define type-descriptor-ctor type-descriptor-constructor) + (define type-descriptor-fields + (lambda (_klass10510_) + (let ((__tmp10711 + (vector-length + (let () + (declare (not safe)) + (type-descriptor-all-slots _klass10510_))))) + (declare (not safe)) + (fx- __tmp10711 '1)))) + (define type-descriptor-slots + (lambda (_klass10503_) + (let ((_h10505_ (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((__tmp10713 + (lambda (_k10507_ _v10508_) + (let ((__tmp10714 + (let () (declare (not safe)) (fx+ _v10508_ '1)))) + (declare (not safe)) + (table-set! _h10505_ _k10507_ __tmp10714)))) + (__tmp10712 + (let () + (declare (not safe)) + (type-descriptor-slot-table _klass10503_)))) + (declare (not safe)) + (table-for-each __tmp10713 __tmp10712)) + _h10505_))) (define type-descriptor-sealed? - (lambda (_klass10580_) - (let ((__tmp10743 - (let () (declare (not safe)) (##type-flags _klass10580_)))) + (lambda (_klass10501_) + (let ((__tmp10715 + (let () (declare (not safe)) (##type-flags _klass10501_)))) (declare (not safe)) - (##fxbit-set? '20 __tmp10743)))) + (##fxbit-set? '20 __tmp10715)))) (define type-descriptor-seal! - (lambda (_klass10578_) - (let ((__tmp10744 - (let ((__tmp10746 + (lambda (_klass10499_) + (let ((__tmp10716 + (let ((__tmp10718 (let () (declare (not safe)) (##fxarithmetic-shift '1 '20))) - (__tmp10745 + (__tmp10717 (let () (declare (not safe)) - (##type-flags _klass10578_)))) + (##type-flags _klass10499_)))) (declare (not safe)) - (##fxior __tmp10746 __tmp10745)))) + (##fxior __tmp10718 __tmp10717)))) (declare (not safe)) - (##vector-set! _klass10578_ '3 __tmp10744)))) + (##vector-set! _klass10499_ '3 __tmp10716)))) (define make-struct-type__% - (lambda (_id10527_ - _super10528_ - _fields10529_ - _name10530_ - _plist10531_ - _ctor10532_ - _field-names10533_) - (if (and _super10528_ - (let ((__tmp10747 - (let () - (declare (not safe)) - (struct-type? _super10528_)))) - (declare (not safe)) - (not __tmp10747))) - (error '"Illegal super type; not a struct-type" _super10528_) - '#!void) - (if (and _super10528_ - (let ((__tmp10748 - (let () - (declare (not safe)) - (type-descriptor-plist _super10528_)))) - (declare (not safe)) - (assgetq 'final: __tmp10748))) - (error '"Cannot extend final struct" _super10528_) - '#!void) - (let* ((_super-fields10535_ - (if _super10528_ - (let () - (declare (not safe)) - (type-descriptor-fields _super10528_)) - '0)) - (_std-fields10537_ (fx+ _fields10529_ _super-fields10535_)) - (_std-field-names10547_ - (let* ((_super-fields10539_ - (if _super10528_ - (let ((__tmp10749 - (let () - (declare (not safe)) - (type-descriptor-plist _super10528_)))) + (lambda (_id10464_ + _super10465_ + _n-direct-slots10466_ + _name10467_ + _alist10468_ + _constructor10469_ + _direct-slots10470_) + (let ((__tmp10719 + (let ((_$e10472_ _direct-slots10470_)) + (if _$e10472_ + _$e10472_ + (map (lambda (_g1047410476_) + (let () (declare (not safe)) - (assgetq 'fields: __tmp10749)) - '())) - (_field-names10544_ - (let ((_$e10541_ _field-names10533_)) - (if _$e10541_ - _$e10541_ - (make-list _fields10529_ ':))))) - (append _super-fields10539_ _field-names10544_))) - (_g10751_ - (if (let ((__tmp10750 (length _std-field-names10547_))) - (declare (not safe)) - (##fx= _std-fields10537_ __tmp10750)) - '#!void - (error '"Bad field specification; length mismatch" - _id10527_ - _std-fields10537_ - _std-field-names10547_))) - (_std-plist10550_ - (let ((__tmp10752 - (let () - (declare (not safe)) - (cons 'fields: _std-field-names10547_)))) - (declare (not safe)) - (cons __tmp10752 _plist10531_))) - (_ctor10555_ - (let ((_$e10552_ _ctor10532_)) - (if _$e10552_ - _$e10552_ - (if _super10528_ - (let () + (make-symbol__1 '"_" _g1047410476_))) + (let ((__tmp10720 + (if _super10465_ + (vector-length + (let () + (declare (not safe)) + (type-descriptor-all-slots + _super10465_))) + '1))) (declare (not safe)) - (type-descriptor-ctor _super10528_)) - '#f))))) - (let () - (declare (not safe)) - (make-struct-type-descriptor - _id10527_ - _name10530_ - _super10528_ - _std-fields10537_ - _std-plist10550_ - _ctor10555_))))) + (iota _n-direct-slots10466_ __tmp10720))))))) + (declare (not safe)) + (make-struct-type* + _id10464_ + _name10467_ + _super10465_ + __tmp10719 + _alist10468_ + _constructor10469_)))) (define make-struct-type__0 - (lambda (_id10561_ - _super10562_ - _fields10563_ - _name10564_ - _plist10565_ - _ctor10566_) - (let ((_field-names10568_ '#f)) + (lambda (_id10482_ + _super10483_ + _n-direct-slots10484_ + _name10485_ + _alist10486_ + _constructor10487_) + (let ((_direct-slots10489_ '#f)) (declare (not safe)) (make-struct-type__% - _id10561_ - _super10562_ - _fields10563_ - _name10564_ - _plist10565_ - _ctor10566_ - _field-names10568_)))) + _id10482_ + _super10483_ + _n-direct-slots10484_ + _name10485_ + _alist10486_ + _constructor10487_ + _direct-slots10489_)))) (define make-struct-type - (lambda _g10754_ - (let ((_g10753_ (let () (declare (not safe)) (##length _g10754_)))) - (cond ((let () (declare (not safe)) (##fx= _g10753_ 6)) - (apply (lambda (_id10561_ - _super10562_ - _fields10563_ - _name10564_ - _plist10565_ - _ctor10566_) + (lambda _g10722_ + (let ((_g10721_ (let () (declare (not safe)) (##length _g10722_)))) + (cond ((let () (declare (not safe)) (##fx= _g10721_ 6)) + (apply (lambda (_id10482_ + _super10483_ + _n-direct-slots10484_ + _name10485_ + _alist10486_ + _constructor10487_) (let () (declare (not safe)) (make-struct-type__0 - _id10561_ - _super10562_ - _fields10563_ - _name10564_ - _plist10565_ - _ctor10566_))) - _g10754_)) - ((let () (declare (not safe)) (##fx= _g10753_ 7)) - (apply (lambda (_id10570_ - _super10571_ - _fields10572_ - _name10573_ - _plist10574_ - _ctor10575_ - _field-names10576_) + _id10482_ + _super10483_ + _n-direct-slots10484_ + _name10485_ + _alist10486_ + _constructor10487_))) + _g10722_)) + ((let () (declare (not safe)) (##fx= _g10721_ 7)) + (apply (lambda (_id10491_ + _super10492_ + _n-direct-slots10493_ + _name10494_ + _alist10495_ + _constructor10496_ + _direct-slots10497_) (let () (declare (not safe)) (make-struct-type__% - _id10570_ - _super10571_ - _fields10572_ - _name10573_ - _plist10574_ - _ctor10575_ - _field-names10576_))) - _g10754_)) + _id10491_ + _super10492_ + _n-direct-slots10493_ + _name10494_ + _alist10495_ + _constructor10496_ + _direct-slots10497_))) + _g10722_)) (else (##raise-wrong-number-of-arguments-exception make-struct-type - _g10754_)))))) - (define make-struct-predicate - (lambda (_klass10518_) - (let ((_tid10520_ - (let () (declare (not safe)) (##type-id _klass10518_)))) - (if (let ((__tmp10755 + _g10722_)))))) + (define make-struct-type* + (lambda (_id10444_ + _name10445_ + _super10446_ + _direct-slots10447_ + _alist10448_ + _constructor10449_) + (if (and _super10446_ + (let ((__tmp10723 + (let () + (declare (not safe)) + (struct-type? _super10446_)))) + (declare (not safe)) + (not __tmp10723))) + (error '"Illegal super type; not a struct-type" _super10446_) + '#!void) + (let* ((_type10451_ + (let ((__tmp10726 + (if _super10446_ + (let () + (declare (not safe)) + (cons _super10446_ '())) + '())) + (__tmp10724 + (let ((__tmp10725 + (let () + (declare (not safe)) + (cons 'struct: '#t)))) + (declare (not safe)) + (cons __tmp10725 _alist10448_)))) + (declare (not safe)) + (make-class-type* + _id10444_ + _name10445_ + __tmp10726 + _direct-slots10447_ + __tmp10724 + _constructor10449_))) + (_all-slots10453_ + (let () + (declare (not safe)) + (type-descriptor-all-slots _type10451_))) + (_len10455_ (length _direct-slots10447_)) + (_start10457_ (- (vector-length _all-slots10453_) _len10455_))) + (if (let ((__tmp10728 + (lambda (_slot10460_ _i10461_) + (let ((__tmp10729 + (vector-ref _all-slots10453_ _i10461_))) + (declare (not safe)) + (eq? _slot10460_ __tmp10729)))) + (__tmp10727 (let () (declare (not safe)) - (type-descriptor-plist _klass10518_)))) + (iota _len10455_ _start10457_)))) (declare (not safe)) - (assgetq 'final: __tmp10755)) - (lambda (_obj10522_) + (andmap2 __tmp10728 _direct-slots10447_ __tmp10727)) + '#!void + (error '"Non-unique slots in struct" + _name10445_ + _direct-slots10447_)) + _type10451_))) + (define make-struct-predicate + (lambda (_klass10436_) + (let ((_tid10438_ + (let () (declare (not safe)) (##type-id _klass10436_)))) + (if (let () (declare (not safe)) (type-final? _klass10436_)) + (lambda (_obj10440_) (let () (declare (not safe)) - (##structure-direct-instance-of? _obj10522_ _tid10520_))) - (lambda (_obj10524_) + (##structure-direct-instance-of? _obj10440_ _tid10438_))) + (lambda (_obj10442_) (let () (declare (not safe)) - (##structure-instance-of? _obj10524_ _tid10520_))))))) + (##structure-instance-of? _obj10442_ _tid10438_))))))) (define make-struct-field-accessor - (lambda (_klass10511_ _field10512_) - (let ((_off10514_ - (let ((__tmp10756 - (let () - (declare (not safe)) - (struct-field-offset _klass10511_ _field10512_)))) + (lambda (_klass10433_ _field10434_) + (let ((__tmp10730 + (let () (declare (not safe)) - (##fx+ __tmp10756 '1)))) - (lambda (_obj10516_) - (let () - (declare (not safe)) - (##structure-ref _obj10516_ _off10514_ _klass10511_ '#f)))))) + (struct-field-offset* _klass10433_ _field10434_)))) + (declare (not safe)) + (make-struct-field-accessor* _klass10433_ __tmp10730)))) + (define make-struct-field-accessor* + (lambda (_klass10428_ _field10429_) + (lambda (_obj10431_) + (let () + (declare (not safe)) + (##structure-ref _obj10431_ _field10429_ _klass10428_ '#f))))) (define make-struct-field-mutator - (lambda (_klass10503_ _field10504_) - (let ((_off10506_ - (let ((__tmp10757 - (let () - (declare (not safe)) - (struct-field-offset _klass10503_ _field10504_)))) + (lambda (_klass10425_ _field10426_) + (let ((__tmp10731 + (let () (declare (not safe)) - (##fx+ __tmp10757 '1)))) - (lambda (_obj10508_ _val10509_) - (let () - (declare (not safe)) - (##structure-set! - _obj10508_ - _val10509_ - _off10506_ - _klass10503_ - '#f)))))) + (struct-field-offset* _klass10425_ _field10426_)))) + (declare (not safe)) + (make-struct-field-mutator* _klass10425_ __tmp10731)))) + (define make-struct-field-mutator* + (lambda (_klass10419_ _field10420_) + (lambda (_obj10422_ _val10423_) + (let () + (declare (not safe)) + (##structure-set! + _obj10422_ + _val10423_ + _field10420_ + _klass10419_ + '#f))))) (define make-struct-field-unchecked-accessor - (lambda (_klass10496_ _field10497_) - (let ((_off10499_ - (let ((__tmp10758 - (let () - (declare (not safe)) - (struct-field-offset _klass10496_ _field10497_)))) + (lambda (_klass10416_ _field10417_) + (let ((__tmp10732 + (let () (declare (not safe)) - (##fx+ __tmp10758 '1)))) - (lambda (_obj10501_) - (let () - (declare (not safe)) - (##unchecked-structure-ref - _obj10501_ - _off10499_ - _klass10496_ - '#f)))))) + (struct-field-offset* _klass10416_ _field10417_)))) + (declare (not safe)) + (make-struct-field-unchecked-accessor* _klass10416_ __tmp10732)))) + (define make-struct-field-unchecked-accessor* + (lambda (_klass10411_ _field10412_) + (lambda (_obj10414_) + (let () + (declare (not safe)) + (##unchecked-structure-ref + _obj10414_ + _field10412_ + _klass10411_ + '#f))))) (define make-struct-field-unchecked-mutator - (lambda (_klass10488_ _field10489_) - (let ((_off10491_ - (let ((__tmp10759 - (let () - (declare (not safe)) - (struct-field-offset _klass10488_ _field10489_)))) + (lambda (_klass10408_ _field10409_) + (let ((__tmp10733 + (let () (declare (not safe)) - (##fx+ __tmp10759 '1)))) - (lambda (_obj10493_ _val10494_) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _obj10493_ - _val10494_ - _off10491_ - _klass10488_ - '#f)))))) - (define struct-field-offset - (lambda (_klass10482_ _field10483_) - (let ((__tmp10760 - (let ((_$e10485_ + (struct-field-offset* _klass10408_ _field10409_)))) + (declare (not safe)) + (make-struct-field-unchecked-mutator* _klass10408_ __tmp10733)))) + (define make-struct-field-unchecked-mutator* + (lambda (_klass10402_ _field10403_) + (lambda (_obj10405_ _val10406_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _obj10405_ + _val10406_ + _field10403_ + _klass10402_ + '#f))))) + (define struct-field-offset* + (lambda (_klass10396_ _field10397_) + (let ((__tmp10734 + (let ((_$e10399_ (let () (declare (not safe)) - (##type-super _klass10482_)))) - (if _$e10485_ + (##type-super _klass10396_)))) + (if _$e10399_ (let () (declare (not safe)) - (type-descriptor-fields _$e10485_)) + (type-descriptor-fields _$e10399_)) '0)))) (declare (not safe)) - (##fx+ _field10483_ __tmp10760)))) + (##fx+ _field10397_ __tmp10734 '1)))) (define struct-field-ref - (lambda (_klass10478_ _obj10479_ _off10480_) - (let ((__tmp10761 (let () (declare (not safe)) (##fx+ _off10480_ '1)))) + (lambda (_klass10392_ _obj10393_ _field10394_) + (let () (declare (not safe)) - (##structure-ref _obj10479_ __tmp10761 _klass10478_ '#f)))) + (##structure-ref _obj10393_ _field10394_ _klass10392_ '#f)))) (define struct-field-set! - (lambda (_klass10473_ _obj10474_ _off10475_ _val10476_) - (let ((__tmp10762 (let () (declare (not safe)) (##fx+ _off10475_ '1)))) + (lambda (_klass10387_ _obj10388_ _field10389_ _val10390_) + (let () (declare (not safe)) (##structure-set! - _obj10474_ - _val10476_ - __tmp10762 - _klass10473_ + _obj10388_ + _val10390_ + _field10389_ + _klass10387_ '#f)))) - (define struct-subtype? - (lambda (_klass10464_ _xklass10465_) - (let ((_klass-t10467_ - (let () (declare (not safe)) (##type-id _klass10464_)))) - (let _lp10469_ ((_next10471_ _xklass10465_)) - (if (let () (declare (not safe)) (not _next10471_)) + (define substruct? + (lambda (_maybe-sub-struct10378_ _maybe-super-struct10379_) + (let ((_maybe-super-struct-id10381_ + (let () + (declare (not safe)) + (##type-id _maybe-super-struct10379_)))) + (let _lp10383_ ((_super-struct10385_ _maybe-sub-struct10378_)) + (if (let () (declare (not safe)) (not _super-struct10385_)) '#f - (if (let ((__tmp10764 + (if (let ((__tmp10736 (let () (declare (not safe)) - (##type-id _next10471_)))) + (type-id _super-struct10385_)))) (declare (not safe)) - (eq? _klass-t10467_ __tmp10764)) + (eq? _maybe-super-struct-id10381_ __tmp10736)) '#t - (let ((__tmp10763 + (let ((__tmp10735 (let () (declare (not safe)) - (##type-super _next10471_)))) + (##type-super _super-struct10385_)))) (declare (not safe)) - (_lp10469_ __tmp10763)))))))) - (define make-class-type - (lambda (_id10171_ - _super10172_ - _slots10173_ - _name10174_ - _plist10175_ - _ctor10176_) - (letrec ((_class-slots10178_ - (lambda (_klass10462_) - (let ((__tmp10765 - (let () - (declare (not safe)) - (type-descriptor-plist _klass10462_)))) - (declare (not safe)) - (assgetq 'slots: __tmp10765)))) - (_make-slots10179_ - (lambda (_off10413_) - (let ((_slot-table10415_ + (_lp10383_ __tmp10735)))))))) + (define struct-subtype? + (lambda (_maybe-super-struct10375_ _maybe-sub-struct10376_) + (let () + (declare (not safe)) + (substruct? _maybe-sub-struct10376_ _maybe-super-struct10375_)))) + (define base-struct/1 + (lambda (_klass10373_) + (if (let () (declare (not safe)) (struct-type? _klass10373_)) + _klass10373_ + (if (let () (declare (not safe)) (class-type? _klass10373_)) + (let () (declare (not safe)) (##type-super _klass10373_)) + (if (let () (declare (not safe)) (not _klass10373_)) + '#f + (error '"Not a class or false" _klass10373_)))))) + (define base-struct/2 + (lambda (_klass110361_ _klass210362_) + (letrec* ((_s110364_ + (let () (declare (not safe)) (base-struct/1 _klass110361_))) + (_s210365_ + (let () + (declare (not safe)) + (base-struct/1 _klass210362_)))) + (if (or (let () (declare (not safe)) (not _s110364_)) + (and _s210365_ + (let () + (declare (not safe)) + (substruct? _s110364_ _s210365_)))) + _s210365_ + (if (or (let () (declare (not safe)) (not _s210365_)) + (and _s110364_ (let () (declare (not safe)) - (make-table 'test: eq?)))) - (let _lp10417_ ((_rest10419_ _super10172_) - (_off10420_ _off10413_) - (_slot-list10421_ '())) - (let* ((_rest1042210430_ _rest10419_) - (_else1042410441_ - (lambda () - (let ((__tmp10766 - (lambda (_off10438_ _slot-list10439_) - (values _off10438_ - _slot-table10415_ - (reverse _slot-list10439_))))) - (declare (not safe)) - (_merge-slots10180_ - _slot-table10415_ - _slots10173_ - _off10420_ - _slot-list10421_ - __tmp10766)))) - (_K1042610450_ - (lambda (_rest10444_ _hd10445_) - (let ((__tmp10768 - (let () - (declare (not safe)) - (_class-slots10178_ _hd10445_))) - (__tmp10767 - (lambda (_off10447_ _slot-list10448_) - (let () - (declare (not safe)) - (_lp10417_ - _rest10444_ - _off10447_ - _slot-list10448_))))) - (declare (not safe)) - (_merge-slots10180_ - _slot-table10415_ - __tmp10768 - _off10420_ - _slot-list10421_ - __tmp10767))))) - (if (let () - (declare (not safe)) - (##pair? _rest1042210430_)) - (let ((_hd1042710453_ - (let () - (declare (not safe)) - (##car _rest1042210430_))) - (_tl1042810455_ - (let () - (declare (not safe)) - (##cdr _rest1042210430_)))) - (let* ((_hd10458_ _hd1042710453_) - (_rest10460_ _tl1042810455_)) - (declare (not safe)) - (_K1042610450_ _rest10460_ _hd10458_))) - (let () - (declare (not safe)) - (_else1042410441_)))))))) - (_merge-slots10180_ - (lambda (_ht10368_ _lst10369_ _off10370_ _r10371_ _K10372_) - (let _lp10374_ ((_rest10376_ _lst10369_) - (_off10377_ _off10370_) - (_r10378_ _r10371_)) - (let* ((_rest1037910387_ _rest10376_) - (_else1038110395_ - (lambda () (_K10372_ _off10377_ _r10378_))) - (_K1038310401_ - (lambda (_rest10398_ _slot10399_) - (if (let () - (declare (not safe)) - (table-ref _ht10368_ _slot10399_ '#f)) - (let () - (declare (not safe)) - (_lp10374_ - _rest10398_ - _off10377_ - _r10378_)) - (begin - (let () - (declare (not safe)) - (table-set! - _ht10368_ - _slot10399_ - _off10377_)) - (let ((__tmp10769 - (symbol->keyword _slot10399_))) - (declare (not safe)) - (table-set! - _ht10368_ - __tmp10769 - _off10377_)) - (let ((__tmp10771 + (substruct? _s210365_ _s110364_)))) + _s110364_ + (error '"Bad mixin: incompatible struct bases" + _klass110361_ + _klass210362_ + _s110364_ + _s210365_)))))) + (define base-struct/list + (lambda (_all-supers10245_) + (let* ((_all-supers1024610271_ _all-supers10245_) + (_E1025110275_ + (lambda () + (error '"No clause matching" _all-supers1024610271_)))) + (let ((_K1026910358_ (lambda () '#f)) + (_K1026610344_ + (lambda (_x10342_) + (let () (declare (not safe)) (base-struct/1 _x10342_)))) + (_K1026110321_ + (lambda (_y10318_ _x10319_) + (let () + (declare (not safe)) + (base-struct/2 _x10319_ _y10318_)))) + (_K1025210282_ + (lambda (_y10279_ _x10280_) + (let () + (declare (not safe)) + (foldr1 base-struct/2 _x10280_ _y10279_))))) + (let* ((___match1069410695_ + (lambda (_hd1025310285_ _tl1025410287_) + (let ((_x10290_ _hd1025310285_)) + (letrec ((_splice-rest1025610292_ + (lambda (_rest1026010299_ _y10301_) + (if (let () + (declare (not safe)) + (##null? _rest1026010299_)) + (let () + (declare (not safe)) + (_K1025210282_ _y10301_ _x10290_)) + (let () + (declare (not safe)) + (_E1025110275_))))) + (_splice-try1025810294_ + (lambda (_hd1025910303_ + _rest1026010305_ + _y1025510306_) + (let ((_y10309_ _hd1025910303_)) + (let ((__tmp10738 (let () (declare (not safe)) - (##fx+ _off10377_ '1))) - (__tmp10770 + (##cdr _rest1026010305_))) + (__tmp10737 (let () (declare (not safe)) - (cons _slot10399_ _r10378_)))) + (cons _y10309_ _y1025510306_)))) (declare (not safe)) - (_lp10374_ - _rest10398_ - __tmp10771 - __tmp10770))))))) - (if (let () - (declare (not safe)) - (##pair? _rest1037910387_)) - (let ((_hd1038410404_ - (let () - (declare (not safe)) - (##car _rest1037910387_))) - (_tl1038510406_ - (let () - (declare (not safe)) - (##cdr _rest1037910387_)))) - (let* ((_slot10409_ _hd1038410404_) - (_rest10411_ _tl1038510406_)) - (declare (not safe)) - (_K1038310401_ _rest10411_ _slot10409_))) - (let () - (declare (not safe)) - (_else1038110395_))))))) - (_find-super-ctor10181_ - (lambda (_super10320_) - (let _lp10322_ ((_rest10324_ _super10320_) - (_ctor10325_ '#f)) - (let* ((_rest1032610334_ _rest10324_) - (_else1032810342_ (lambda () _ctor10325_)) - (_K1033010356_ - (lambda (_rest10345_ _hd10346_) - (let ((_$e10348_ - (let () - (declare (not safe)) - (type-descriptor-ctor _hd10346_)))) - (if _$e10348_ - ((lambda (_xctor10351_) - (if (or (let () - (declare (not safe)) - (not _ctor10325_)) - (let () - (declare (not safe)) - (eq? _ctor10325_ - _xctor10351_))) - (let () - (declare (not safe)) - (_lp10322_ - _rest10345_ - _xctor10351_)) - (error '"Conflicting implicit constructors" - _ctor10325_ - _xctor10351_))) - _$e10348_) - (let () - (declare (not safe)) - (_lp10322_ - _rest10345_ - _ctor10325_))))))) - (if (let () - (declare (not safe)) - (##pair? _rest1032610334_)) - (let ((_hd1033110359_ - (let () - (declare (not safe)) - (##car _rest1032610334_))) - (_tl1033210361_ - (let () - (declare (not safe)) - (##cdr _rest1032610334_)))) - (let* ((_hd10364_ _hd1033110359_) - (_rest10366_ _tl1033210361_)) - (declare (not safe)) - (_K1033010356_ _rest10366_ _hd10364_))) - (let () - (declare (not safe)) - (_else1032810342_))))))) - (_find-super-struct10182_ - (lambda (_super10267_) - (letrec ((_base-struct10269_ - (lambda (_super-struct10309_ _klass10310_) - (if _super-struct10309_ + (_splice-loop1025710296_ + __tmp10738 + __tmp10737))))) + (_splice-loop1025710296_ + (lambda (_rest1026010311_ _y1025510312_) (if (let () (declare (not safe)) - (struct-subtype? - _super-struct10309_ - _klass10310_)) - (let _lp10312_ ((_klass10314_ - _klass10310_)) - (if (let () - (declare (not safe)) - (struct-type? _klass10314_)) - _klass10314_ - (let ((__tmp10772 - (let () - (declare (not safe)) - (##type-super - _klass10314_)))) - (declare (not safe)) - (_lp10312_ __tmp10772)))) - (if (let () - (declare (not safe)) - (struct-subtype? - _klass10310_ - _super-struct10309_)) - _super-struct10309_ - (error '"Bad mixin: incompatible struct bases" - _klass10310_ - _super-struct10309_))) - (if (let () + (pair? _rest1026010311_)) + (let ((__tmp10740 + (let () + (declare (not safe)) + (##car _rest1026010311_)))) (declare (not safe)) - (struct-type? _klass10310_)) - _klass10310_ - (if (let () - (declare (not safe)) - (class-type? _klass10310_)) - (let _lp10316_ ((_next10318_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##type-super _klass10310_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let () - (declare (not safe)) - (not _next10318_)) - '#f - (if (let () - (declare (not safe)) - (struct-type? - _next10318_)) - _next10318_ - (if (let () - (declare - (not safe)) - (class-type? - _next10318_)) - (let () - (declare - (not safe)) - (_lp10316_ - _next10318_)) - '#f)))) - '#f)))))) - (let _lp10271_ ((_rest10273_ _super10267_) - (_super-struct10274_ '#f)) - (let* ((_rest1027510283_ _rest10273_) - (_else1027710291_ - (lambda () _super-struct10274_)) - (_K1027910297_ - (lambda (_rest10294_ _hd10295_) - (let ((__tmp10773 - (let () - (declare (not safe)) - (_base-struct10269_ - _super-struct10274_ - _hd10295_)))) - (declare (not safe)) - (_lp10271_ _rest10294_ __tmp10773))))) - (if (let () - (declare (not safe)) - (##pair? _rest1027510283_)) - (let ((_hd1028010300_ - (let () - (declare (not safe)) - (##car _rest1027510283_))) - (_tl1028110302_ - (let () - (declare (not safe)) - (##cdr _rest1027510283_)))) - (let* ((_hd10305_ _hd1028010300_) - (_rest10307_ _tl1028110302_)) + (_splice-try1025810294_ + __tmp10740 + _rest1026010311_ + _y1025510312_)) + (let ((__tmp10739 + (reverse _y1025510312_))) + (declare (not safe)) + (_splice-rest1025610292_ + _rest1026010311_ + __tmp10739)))))) + (let () + (declare (not safe)) + (_splice-loop1025710296_ _tl1025410287_ '())))))) + (_try-match1024810354_ + (lambda () + (if (let () + (declare (not safe)) + (##pair? _all-supers1024610271_)) + (let ((_tl1026810349_ + (let () + (declare (not safe)) + (##cdr _all-supers1024610271_))) + (_hd1026710347_ + (let () + (declare (not safe)) + (##car _all-supers1024610271_)))) + (if (let () (declare (not safe)) - (_K1027910297_ _rest10307_ _hd10305_))) - (let () - (declare (not safe)) - (_else1027710291_)))))))) - (_expand-struct-mixin10183_ - (lambda (_super10222_) - (let _lp10224_ ((_rest10226_ _super10222_) - (_mixin10227_ '())) - (let* ((_rest1022810236_ _rest10226_) - (_else1023010244_ - (lambda () (reverse _mixin10227_))) - (_K1023210255_ - (lambda (_rest10247_ _hd10248_) + (##null? _tl1026810349_)) + (let ((_x10352_ _hd1026710347_)) + (declare (not safe)) + (base-struct/1 _x10352_)) (if (let () (declare (not safe)) - (struct-type? _hd10248_)) - (let _lp210250_ ((_next10252_ _hd10248_) - (_mixin10253_ - _mixin10227_)) - (if (let () - (declare (not safe)) - (not _next10252_)) - (let () - (declare (not safe)) - (_lp10224_ - _rest10247_ - _mixin10253_)) - (if (let () - (declare (not safe)) - (struct-type? _next10252_)) - (let ((__tmp10776 - (let () - (declare (not safe)) - (##type-super - _next10252_))) - (__tmp10775 - (let () - (declare (not safe)) - (cons _next10252_ - _mixin10253_)))) - (declare (not safe)) - (_lp210250_ - __tmp10776 - __tmp10775)) - (let () - (declare (not safe)) - (_lp10224_ - _rest10247_ - _mixin10253_))))) - (let ((__tmp10774 + (##pair? _tl1026810349_)) + (let ((_tl1026510333_ (let () (declare (not safe)) - (cons _hd10248_ _mixin10227_)))) - (declare (not safe)) - (_lp10224_ _rest10247_ __tmp10774)))))) - (if (let () - (declare (not safe)) - (##pair? _rest1022810236_)) - (let ((_hd1023310258_ - (let () - (declare (not safe)) - (##car _rest1022810236_))) - (_tl1023410260_ - (let () - (declare (not safe)) - (##cdr _rest1022810236_)))) - (let* ((_hd10263_ _hd1023310258_) - (_rest10265_ _tl1023410260_)) - (declare (not safe)) - (_K1023210255_ _rest10265_ _hd10263_))) - (let () - (declare (not safe)) - (_else1023010244_)))))))) - (let ((_$e10187_ - (let ((__tmp10777 - (lambda (_klass10185_) - (let ((__tmp10778 - (let () - (declare (not safe)) - (type-descriptor? _klass10185_)))) - (declare (not safe)) - (not __tmp10778))))) - (declare (not safe)) - (find __tmp10777 _super10172_)))) - (if _$e10187_ - ((lambda (_klass10190_) - (error '"Illegal super class; not a type descriptor" - _klass10190_)) - _$e10187_) - (let ((_$e10194_ - (let ((__tmp10779 - (lambda (_klass10192_) - (let ((__tmp10780 - (let () - (declare (not safe)) - (type-descriptor-plist - _klass10192_)))) - (declare (not safe)) - (assgetq 'final: __tmp10780))))) - (declare (not safe)) - (find __tmp10779 _super10172_)))) - (if _$e10194_ - ((lambda (_klass10197_) - (error '"Cannot extend final class" _klass10197_)) - _$e10194_) - '#!void)))) - (let* ((_std-super10199_ - (let () + (##cdr _tl1026810349_))) + (_hd1026410331_ + (let () + (declare (not safe)) + (##car _tl1026810349_)))) + (if (let () + (declare (not safe)) + (##null? _tl1026510333_)) + (let ((_x10329_ _hd1026710347_) + (_y10336_ _hd1026410331_)) + (let () + (declare (not safe)) + (_K1026110321_ + _y10336_ + _x10329_))) + (___match1069410695_ + _hd1026710347_ + _tl1026810349_))) + (___match1069410695_ + _hd1026710347_ + _tl1026810349_)))) + (let () (declare (not safe)) (_E1025110275_)))))) + (if (let () (declare (not safe)) - (_find-super-struct10182_ _super10172_))) - (_mixin10201_ - (if _std-super10199_ - (let () - (declare (not safe)) - (_expand-struct-mixin10183_ _super10172_)) - _super10172_))) - (let ((_g10781_ - (let ((__tmp10783 - (if _std-super10199_ - (let () - (declare (not safe)) - (type-descriptor-fields _std-super10199_)) - '0))) - (declare (not safe)) - (_make-slots10179_ __tmp10783)))) - (begin - (let ((_g10782_ - (let () - (declare (not safe)) - (if (##values? _g10781_) - (##vector-length _g10781_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g10782_ 3))) - (error "Context expects 3 values" _g10782_))) - (let ((_std-fields10204_ - (let () (declare (not safe)) (##vector-ref _g10781_ 0))) - (_std-slots10205_ - (let () (declare (not safe)) (##vector-ref _g10781_ 1))) - (_std-slot-list10206_ - (let () - (declare (not safe)) - (##vector-ref _g10781_ 2)))) - (let* ((_std-mixin10208_ - (let () - (declare (not safe)) - (class-linearize-mixins _mixin10201_))) - (_std-plist10212_ - (if _std-super10199_ - (let* ((_fields10210_ - (let ((__tmp10784 - (let () - (declare (not safe)) - (type-descriptor-plist - _std-super10199_)))) - (declare (not safe)) - (assgetq 'fields: __tmp10784))) - (__tmp10785 - (let () - (declare (not safe)) - (cons 'fields: _fields10210_)))) - (declare (not safe)) - (cons __tmp10785 _plist10175_)) - _plist10175_)) - (_std-plist10214_ - (let ((__tmp10786 + (##null? _all-supers1024610271_)) + (let () (declare (not safe)) (_K1026910358_)) + (let () (declare (not safe)) (_try-match1024810354_)))))))) + (define base-struct* + (lambda _all-supers10243_ + (let () (declare (not safe)) (base-struct/list _all-supers10243_)))) + (define base-struct + (lambda _all-supers10241_ (apply base-struct/list _all-supers10241_))) + (define find-super-ctor + (lambda (_super10239_) + (let () (declare (not safe)) (find-super-constructor _super10239_)))) + (define find-super-constructor + (lambda (_super10191_) + (let _lp10193_ ((_rest10195_ _super10191_) (_constructor10196_ '#f)) + (let* ((_rest1019710205_ _rest10195_) + (_else1019910213_ (lambda () _constructor10196_)) + (_K1020110227_ + (lambda (_rest10216_ _hd10217_) + (let ((_$e10219_ + (let () + (declare (not safe)) + (type-descriptor-constructor _hd10217_)))) + (if _$e10219_ + ((lambda (_xconstructor10222_) + (if (or (let () + (declare (not safe)) + (not _constructor10196_)) + (let () + (declare (not safe)) + (eq? _constructor10196_ + _xconstructor10222_))) (let () (declare (not safe)) - (cons 'slots: _std-slot-list10206_)))) + (_lp10193_ _rest10216_ _xconstructor10222_)) + (error '"Conflicting implicit constructors" + _constructor10196_ + _xconstructor10222_))) + _$e10219_) + (let () (declare (not safe)) - (cons __tmp10786 _std-plist10212_))) - (_std-ctor10219_ - (let ((_$e10216_ _ctor10176_)) - (if _$e10216_ - _$e10216_ - (let () - (declare (not safe)) - (_find-super-ctor10181_ _super10172_)))))) + (_lp10193_ _rest10216_ _constructor10196_))))))) + (if (let () (declare (not safe)) (##pair? _rest1019710205_)) + (let ((_hd1020210230_ + (let () (declare (not safe)) (##car _rest1019710205_))) + (_tl1020310232_ + (let () (declare (not safe)) (##cdr _rest1019710205_)))) + (let* ((_hd10235_ _hd1020210230_) + (_rest10237_ _tl1020310232_)) + (declare (not safe)) + (_K1020110227_ _rest10237_ _hd10235_))) + (let () (declare (not safe)) (_else1019910213_))))))) + (define compute-class-slots + (lambda (_super-struct10162_ + _class-precedence-list10163_ + _direct-slots10164_) + (let* ((_previous-slots10166_ + (if _super-struct10162_ (let () (declare (not safe)) - (make-class-type-descriptor - _id10171_ - _name10174_ - _std-super10199_ - _std-mixin10208_ - _std-fields10204_ - _std-plist10214_ - _std-ctor10219_ - _std-slots10205_)))))))))) - (define class-linearize-mixins - (lambda (_klass-lst10122_) - (letrec ((_class->list10124_ - (lambda (_klass10166_) - (let ((__tmp10787 - (let ((_$e10168_ - (let () - (declare (not safe)) - (type-descriptor-mixin _klass10166_)))) - (if _$e10168_ _$e10168_ '())))) - (declare (not safe)) - (cons _klass10166_ __tmp10787))))) - (let* ((_klass-lst1012510135_ _klass-lst10122_) - (_else1012810143_ - (lambda () - (let ((__tmp10788 - (map _class->list10124_ _klass-lst10122_))) - (declare (not safe)) - (__linearize-mixins __tmp10788))))) - (let ((_K1013310163_ (lambda () '())) - (_K1013010149_ - (lambda (_klass10147_) - (let () - (declare (not safe)) - (_class->list10124_ _klass10147_))))) - (let ((_try-match1012710159_ - (lambda () - (if (let () + (type-descriptor-all-slots _super-struct10162_)) + '#(#f))) + (_next-slot10168_ (vector-length _previous-slots10166_)) + (_slot-table10170_ + (if _super-struct10162_ + (let ((__tmp10741 + (let () (declare (not safe)) - (##pair? _klass-lst1012510135_)) - (let ((_tl1013210154_ - (let () - (declare (not safe)) - (##cdr _klass-lst1012510135_))) - (_hd1013110152_ - (let () - (declare (not safe)) - (##car _klass-lst1012510135_)))) - (if (let () - (declare (not safe)) - (##null? _tl1013210154_)) - (let ((_klass10157_ _hd1013110152_)) - (declare (not safe)) - (_class->list10124_ _klass10157_)) - (let () - (declare (not safe)) - (_else1012810143_)))) - (let () (declare (not safe)) (_else1012810143_)))))) - (if (let () - (declare (not safe)) - (##null? _klass-lst1012510135_)) - (let () (declare (not safe)) (_K1013310163_)) - (let () + (type-descriptor-slot-table + _super-struct10162_)))) (declare (not safe)) - (_try-match1012710159_))))))))) - (define __linearize-mixins - (lambda (_lst9963_) - (letrec ((_K9965_ (lambda (_rest10086_ _r10087_) - (let* ((_rest1008810096_ _rest10086_) - (_else1009010104_ - (lambda () (reverse _r10087_))) - (_K1009210110_ - (lambda (_rest10107_ _hd10108_) - (let () - (declare (not safe)) - (_linearize19966_ - _hd10108_ - _rest10107_ - _r10087_))))) - (if (let () - (declare (not safe)) - (##pair? _rest1008810096_)) - (let ((_hd1009310113_ - (let () - (declare (not safe)) - (##car _rest1008810096_))) - (_tl1009410115_ - (let () - (declare (not safe)) - (##cdr _rest1008810096_)))) - (let* ((_hd10118_ _hd1009310113_) - (_rest10120_ _tl1009410115_)) - (declare (not safe)) - (_K1009210110_ _rest10120_ _hd10118_))) - (let () - (declare (not safe)) - (_else1009010104_)))))) - (_linearize19966_ - (lambda (_hd10049_ _rest10050_ _r10051_) - (let* ((_hd1005210060_ _hd10049_) - (_else1005410068_ - (lambda () + (hash-copy __tmp10741)) + (let () (declare (not safe)) (make-table 'test: eq?)))) + (_r-slots10172_ '()) + (_process-slot10176_ + (lambda (_slot10174_) + (if (let () (declare (not safe)) (symbol? _slot10174_)) + '#!void + (error '"invalid slot name" _slot10174_)) + (if (let () + (declare (not safe)) + (hash-key? _slot-table10170_ _slot10174_)) + '#!void + (begin + (let () + (declare (not safe)) + (table-set! + _slot-table10170_ + _slot10174_ + _next-slot10168_)) + (let ((__tmp10742 (symbol->keyword _slot10174_))) + (declare (not safe)) + (table-set! + _slot-table10170_ + __tmp10742 + _next-slot10168_)) + (set! _r-slots10172_ (let () (declare (not safe)) - (_K9965_ _rest10050_ _r10051_)))) - (_K1005610074_ - (lambda (_hd-rest10071_ _hd-first10072_) - (if (let () - (declare (not safe)) - (_findq9969_ _hd-first10072_ _rest10050_)) - (let ((__tmp10791 (list _hd10049_))) - (declare (not safe)) - (_linearize29967_ - _rest10050_ - __tmp10791 - _r10051_)) - (let ((__tmp10790 - (let () - (declare (not safe)) - (cons _hd-rest10071_ _rest10050_))) - (__tmp10789 - (let () - (declare (not safe)) - (_putq9968_ - _hd-first10072_ - _r10051_)))) - (declare (not safe)) - (_K9965_ __tmp10790 __tmp10789)))))) - (if (let () - (declare (not safe)) - (##pair? _hd1005210060_)) - (let ((_hd1005710077_ - (let () - (declare (not safe)) - (##car _hd1005210060_))) - (_tl1005810079_ - (let () - (declare (not safe)) - (##cdr _hd1005210060_)))) - (let* ((_hd-first10082_ _hd1005710077_) - (_hd-rest10084_ _tl1005810079_)) - (declare (not safe)) - (_K1005610074_ _hd-rest10084_ _hd-first10082_))) - (let () (declare (not safe)) (_else1005410068_)))))) - (_linearize29967_ - (lambda (_rest9979_ _pre9980_ _r9981_) - (let _lp9983_ ((_rest9985_ _rest9979_) - (_pre9986_ _pre9980_)) - (let* ((_rest99879994_ _rest9985_) - (_E99899998_ - (lambda () - (error '"No clause matching" _rest99879994_))) - (_K999010037_ - (lambda (_rest10001_ _hd10002_) - (let* ((_hd1000310011_ _hd10002_) - (_else1000510019_ - (lambda () - (let () - (declare (not safe)) - (_lp9983_ _rest10001_ _pre9986_)))) - (_K1000710025_ - (lambda (_hd-rest10022_ - _hd-first10023_) - (if (let () - (declare (not safe)) - (_findq9969_ - _hd-first10023_ - _rest10001_)) - (let ((__tmp10795 - (let () - (declare (not safe)) - (cons _hd10002_ - _pre9986_)))) - (declare (not safe)) - (_lp9983_ - _rest10001_ - __tmp10795)) - (let ((__tmp10793 - (let ((__tmp10794 - (let () - (declare - (not safe)) - (cons _hd-rest10022_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest10001_)))) - (declare (not safe)) - (foldl1 cons __tmp10794 _pre9986_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp10792 - (let () - (declare (not safe)) - (_putq9968_ - _hd-first10023_ - _r9981_)))) - (declare (not safe)) - (_K9965_ __tmp10793 - __tmp10792)))))) - (if (let () - (declare (not safe)) - (##pair? _hd1000310011_)) - (let ((_hd1000810028_ - (let () - (declare (not safe)) - (##car _hd1000310011_))) - (_tl1000910030_ - (let () - (declare (not safe)) - (##cdr _hd1000310011_)))) - (let* ((_hd-first10033_ _hd1000810028_) - (_hd-rest10035_ _tl1000910030_)) - (declare (not safe)) - (_K1000710025_ - _hd-rest10035_ - _hd-first10033_))) - (let () - (declare (not safe)) - (_else1000510019_))))))) - (if (let () - (declare (not safe)) - (##pair? _rest99879994_)) - (let ((_hd999110040_ - (let () - (declare (not safe)) - (##car _rest99879994_))) - (_tl999210042_ - (let () - (declare (not safe)) - (##cdr _rest99879994_)))) - (let* ((_hd10045_ _hd999110040_) - (_rest10047_ _tl999210042_)) + (cons _slot10174_ _r-slots10172_))) + (set! _next-slot10168_ + (let () (declare (not safe)) - (_K999010037_ _rest10047_ _hd10045_))) - (let () (declare (not safe)) (_E99899998_))))))) - (_putq9968_ - (lambda (_hd9976_ _lst9977_) - (if (memq _hd9976_ _lst9977_) - _lst9977_ - (let () + (fx+ _next-slot10168_ '1))))))) + (_process-slots10182_ + (lambda (_g1017710179_) + (for-each _process-slot10176_ _g1017710179_)))) + (for-each + (lambda (_mixin10185_) + (if (let () (declare (not safe)) (type-struct? _mixin10185_)) + '#!void + (let ((__tmp10743 + (let ((__tmp10744 + (let () + (declare (not safe)) + (type-descriptor-alist _mixin10185_)))) (declare (not safe)) - (cons _hd9976_ _lst9977_))))) - (_findq9969_ - (lambda (_hd9971_ _rest9972_) - (let ((__tmp10796 - (lambda (_lst9974_) (memq _hd9971_ _lst9974_)))) - (declare (not safe)) - (find __tmp10796 _rest9972_))))) - (let () (declare (not safe)) (_K9965_ _lst9963_ '()))))) - (define make-class-predicate - (lambda (_klass9957_) - (if (let ((__tmp10798 + (assgetq 'direct-slots: __tmp10744 '())))) + (declare (not safe)) + (_process-slots10182_ __tmp10743)))) + (reverse _class-precedence-list10163_)) + (let () + (declare (not safe)) + (_process-slots10182_ _direct-slots10164_)) + (let ((_all-slots10187_ (make-vector _next-slot10168_ '#f))) + (vector-copy! _all-slots10187_ '0 _previous-slots10166_) + (for-each + (lambda (_slot10189_) + (set! _next-slot10168_ + (let () (declare (not safe)) (fx- _next-slot10168_ '1))) + (vector-set! _all-slots10187_ _next-slot10168_ _slot10189_)) + _r-slots10172_) + (values _all-slots10187_ _slot-table10170_))))) + (define make-class-type + (lambda (_id10155_ + _direct-supers10156_ + _direct-slots10157_ + _name10158_ + _alist10159_ + _constructor10160_) + (let () + (declare (not safe)) + (make-class-type* + _id10155_ + _name10158_ + _direct-supers10156_ + _direct-slots10157_ + _alist10159_ + _constructor10160_)))) + (define make-class-type* + (lambda (_id10117_ + _name10118_ + _direct-supers10119_ + _direct-slots10120_ + _alist10121_ + _constructor10122_) + (let ((_$e10126_ + (let ((__tmp10745 + (lambda (_klass10124_) + (let ((__tmp10746 + (let () + (declare (not safe)) + (type-descriptor? _klass10124_)))) + (declare (not safe)) + (not __tmp10746))))) + (declare (not safe)) + (find __tmp10745 _direct-supers10119_)))) + (if _$e10126_ + ((lambda (_g1012810130_) + (error '"Illegal super class; not a type descriptor" + _g1012810130_)) + _$e10126_) + (let ((_$e10133_ + (let () + (declare (not safe)) + (find type-final? _direct-supers10119_)))) + (if _$e10133_ + ((lambda (_g1013510137_) + (error '"Cannot extend final class" _g1013510137_)) + _$e10133_) + '#!void)))) + (let* ((_struct-super10140_ + (let () + (declare (not safe)) + (base-struct/list _direct-supers10119_))) + (_precedence-list10142_ + (let () + (declare (not safe)) + (class-linearize-mixins _direct-supers10119_))) + (_g10747_ + (let () + (declare (not safe)) + (compute-class-slots + _struct-super10140_ + _precedence-list10142_ + _direct-slots10120_)))) + (begin + (let ((_g10748_ (let () (declare (not safe)) - (type-descriptor-plist _klass9957_)))) - (declare (not safe)) - (assgetq 'final: __tmp10798)) - (lambda (_obj9959_) - (let ((__tmp10797 - (let () (declare (not safe)) (##type-id _klass9957_)))) + (if (##values? _g10747_) (##vector-length _g10747_) 1)))) + (if (not (let () (declare (not safe)) (##fx= _g10748_ 2))) + (error "Context expects 2 values" _g10748_))) + (let ((_all-slots10144_ + (let () (declare (not safe)) (##vector-ref _g10747_ 0))) + (_slot-table10145_ + (let () (declare (not safe)) (##vector-ref _g10747_ 1)))) + (let* ((_alist10147_ + (let ((__tmp10751 + (let () + (declare (not safe)) + (cons 'direct-slots: _direct-slots10120_))) + (__tmp10749 + (let ((__tmp10750 + (let () + (declare (not safe)) + (cons 'direct-supers: + _direct-supers10119_)))) + (declare (not safe)) + (cons __tmp10750 _alist10121_)))) + (declare (not safe)) + (cons __tmp10751 __tmp10749))) + (_constructor*10152_ + (let ((_$e10149_ _constructor10122_)) + (if _$e10149_ + _$e10149_ + (let () + (declare (not safe)) + (find-super-constructor + _direct-supers10119_)))))) + (let () + (declare (not safe)) + (make-type-descriptor* + _id10117_ + _name10118_ + _struct-super10140_ + _precedence-list10142_ + _all-slots10144_ + _alist10147_ + _constructor*10152_ + _slot-table10145_ + '#f)))))))) + (define class-precedence-list + (lambda (_klass10115_) + (let ((__tmp10752 + (let () + (declare (not safe)) + (type-descriptor-precedence-list _klass10115_)))) + (declare (not safe)) + (cons _klass10115_ __tmp10752)))) + (define struct-precedence-list + (lambda (_strukt10110_) + (let ((__tmp10753 + (let ((_$e10112_ + (let () + (declare (not safe)) + (##type-super _strukt10110_)))) + (if _$e10112_ + (let () + (declare (not safe)) + (struct-precedence-list _$e10112_)) + '())))) + (declare (not safe)) + (cons _strukt10110_ __tmp10753)))) + (define class-linearize-mixins + (lambda (_klass-lst10108_) + (let () + (declare (not safe)) + (c3-linearize__% + '() + _klass-lst10108_ + class-precedence-list + eqv? + ##type-name)))) + (define make-class-predicate + (lambda (_klass10098_) + (if (let () (declare (not safe)) (type-final? _klass10098_)) + (lambda (_g1009910101_) + (let ((__tmp10754 + (let () (declare (not safe)) (##type-id _klass10098_)))) + (declare (not safe)) + (##structure-direct-instance-of? _g1009910101_ __tmp10754))) + (lambda (_g1010310105_) + (let () + (declare (not safe)) + (class-instance? _klass10098_ _g1010310105_)))))) + (define if-class-slot-field + (lambda (_klass10085_ + _slot10086_ + _if-struct10087_ + _if-struct-field10088_ + _if-class-slot10089_) + (let ((_field10091_ + (let ((__tmp10755 + (let () + (declare (not safe)) + (type-descriptor-slot-table _klass10085_)))) + (declare (not safe)) + (table-ref __tmp10755 _slot10086_ '#f)))) + (if (or (let () (declare (not safe)) (type-final? _klass10085_)) + (let () (declare (not safe)) (type-struct? _klass10085_))) + (_if-struct10087_ _klass10085_ _field10091_) + (if (let ((_strukt10096_ + (let () + (declare (not safe)) + (base-struct/1 _klass10085_)))) + (and _strukt10096_ + (< _field10091_ + (vector-length + (let () + (declare (not safe)) + (type-descriptor-all-slots _strukt10096_)))))) + (_if-struct-field10088_ _klass10085_ _field10091_) + (_if-class-slot10089_ + _klass10085_ + _slot10086_ + _field10091_)))))) + (define make-class-slot-accessor + (lambda (_klass10082_ _slot10083_) + (let () + (declare (not safe)) + (if-class-slot-field + _klass10082_ + _slot10083_ + make-struct-field-accessor* + make-struct-subclass-field-accessor + make-class-cached-slot-accessor)))) + (define make-struct-subclass-field-accessor + (lambda (_klass10077_ _field10078_) + (lambda (_obj10080_) + (if (let () + (declare (not safe)) + (class-instance? _klass10077_ _obj10080_)) + (let () + (declare (not safe)) + (unchecked-field-ref _obj10080_ _field10078_)) + (error '"Trying to get a slot of an object that is not a class instance" + (vector-ref + (let () + (declare (not safe)) + (type-descriptor-all-slots _klass10077_)) + _field10078_) + _obj10080_ + _klass10077_))))) + (define make-class-cached-slot-accessor + (lambda (_klass10071_ _slot10072_ _field10073_) + (lambda (_obj10075_) + (if (let ((__tmp10756 + (let () (declare (not safe)) (##type-id _klass10071_)))) + (declare (not safe)) + (##structure-direct-instance-of? _obj10075_ __tmp10756)) + (let () + (declare (not safe)) + (unchecked-field-ref _obj10075_ _field10073_)) + (if (let () + (declare (not safe)) + (class-instance? _klass10071_ _obj10075_)) + (let () + (declare (not safe)) + (slot-ref _obj10075_ _slot10072_)) + (error '"Trying to get a slot of an object that is not a class instance" + _slot10072_ + _obj10075_ + _klass10071_)))))) + (define make-class-slot-mutator + (lambda (_klass10068_ _slot10069_) + (let () + (declare (not safe)) + (if-class-slot-field + _klass10068_ + _slot10069_ + make-struct-field-mutator* + make-struct-subclass-field-mutator + make-class-cached-slot-mutator)))) + (define make-struct-subclass-field-mutator + (lambda (_klass10062_ _field10063_) + (lambda (_obj10065_ _val10066_) + (if (let () + (declare (not safe)) + (class-instance? _klass10062_ _obj10065_)) + (let () + (declare (not safe)) + (unchecked-field-set! _obj10065_ _field10063_ _val10066_)) + (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 _klass10062_)) + _field10063_) + _obj10065_ + _klass10062_ + _val10066_))))) + (define make-class-cached-slot-mutator + (lambda (_klass10055_ _slot10056_ _field10057_) + (lambda (_obj10059_ _val10060_) + (if (let ((__tmp10757 + (let () (declare (not safe)) (##type-id _klass10055_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj9959_ __tmp10797))) - (lambda (_obj9961_) + (##structure-direct-instance-of? _obj10059_ __tmp10757)) (let () (declare (not safe)) - (class-instance? _klass9957_ _obj9961_)))))) - (define make-class-slot-accessor - (lambda (_klass9952_ _slot9953_) - (lambda (_obj9955_) - (let () (declare (not safe)) (slot-ref _obj9955_ _slot9953_))))) - (define make-class-slot-mutator - (lambda (_klass9946_ _slot9947_) - (lambda (_obj9949_ _val9950_) - (let () - (declare (not safe)) - (slot-set! _obj9949_ _slot9947_ _val9950_))))) + (unchecked-field-set! _obj10059_ _field10057_ _val10060_)) + (let () + (declare (not safe)) + (slot-set! _obj10059_ _slot10056_ _val10060_)))))) (define make-class-slot-unchecked-accessor - (lambda (_klass9941_ _slot9942_) - (lambda (_obj9944_) - (let () - (declare (not safe)) - (unchecked-slot-ref _obj9944_ _slot9942_))))) + (lambda (_klass10052_ _slot10053_) + (let () + (declare (not safe)) + (if-class-slot-field + _klass10052_ + _slot10053_ + make-struct-field-unchecked-accessor* + make-struct-field-unchecked-accessor* + make-class-cached-slot-unchecked-accessor)))) + (define make-class-cached-slot-unchecked-accessor + (lambda (_klass10046_ _slot10047_ _field10048_) + (lambda (_obj10050_) + (if (let ((__tmp10758 + (let () (declare (not safe)) (##type-id _klass10046_)))) + (declare (not safe)) + (##structure-direct-instance-of? _obj10050_ __tmp10758)) + (let () + (declare (not safe)) + (unchecked-field-ref _obj10050_ _field10048_)) + (let () + (declare (not safe)) + (unchecked-slot-ref _obj10050_ _slot10047_)))))) (define make-class-slot-unchecked-mutator - (lambda (_klass9935_ _slot9936_) - (lambda (_obj9938_ _val9939_) - (let () - (declare (not safe)) - (unchecked-slot-set! _obj9938_ _slot9936_ _val9939_))))) + (lambda (_klass10043_ _slot10044_) + (let () + (declare (not safe)) + (if-class-slot-field + _klass10043_ + _slot10044_ + make-struct-field-unchecked-mutator* + make-struct-field-unchecked-mutator* + make-class-cached-slot-unchecked-mutator)))) + (define make-class-cached-slot-unchecked-mutator + (lambda (_klass10036_ _slot10037_ _field10038_) + (lambda (_obj10040_ _val10041_) + (if (let ((__tmp10759 + (let () (declare (not safe)) (##type-id _klass10036_)))) + (declare (not safe)) + (##structure-direct-instance-of? _obj10040_ __tmp10759)) + (let () + (declare (not safe)) + (unchecked-field-set! _obj10040_ _field10038_ _val10041_)) + (let () + (declare (not safe)) + (unchecked-slot-set! _obj10040_ _slot10037_ _val10041_)))))) (define class-slot-offset - (lambda (_klass9927_ _slot9928_) - (let ((_$e9930_ + (lambda (_klass10031_ _slot10032_) + (let ((_off10034_ (let () (declare (not safe)) - (type-descriptor-slots _klass9927_)))) - (if _$e9930_ - ((lambda (_slots9933_) - (let () - (declare (not safe)) - (table-ref _slots9933_ _slot9928_ '#f))) - _$e9930_) + (class-slot-offset* _klass10031_ _slot10032_)))) + (if _off10034_ + (let () (declare (not safe)) (fx- _off10034_ '1)) '#f)))) + (define class-slot-offset* + (lambda (_klass10028_ _slot10029_) + (let ((__tmp10760 + (let () + (declare (not safe)) + (type-descriptor-slot-table _klass10028_)))) + (declare (not safe)) + (table-ref __tmp10760 _slot10029_ '#f)))) (define class-slot-ref - (lambda (_klass9921_ _obj9922_ _slot9923_) + (lambda (_klass10022_ _obj10023_ _slot10024_) (if (let () (declare (not safe)) - (class-instance? _klass9921_ _obj9922_)) - (let* ((_off9925_ - (let ((__tmp10799 - (let () - (declare (not safe)) - (object-type _obj9922_)))) - (declare (not safe)) - (class-slot-offset __tmp10799 _slot9923_))) - (__tmp10800 - (let () (declare (not safe)) (##fx+ _off9925_ '1)))) + (class-instance? _klass10022_ _obj10023_)) + (let ((_off10026_ + (let ((__tmp10761 + (let () + (declare (not safe)) + (object-type _obj10023_)))) + (declare (not safe)) + (class-slot-offset* __tmp10761 _slot10024_)))) (declare (not safe)) - (##unchecked-structure-ref _obj9922_ __tmp10800 _klass9921_ '#f)) - (error '"not an instance" _klass9921_ _obj9922_)))) + (##unchecked-structure-ref + _obj10023_ + _off10026_ + _klass10022_ + '#f)) + (error '"not an instance" _klass10022_ _obj10023_)))) (define class-slot-set! - (lambda (_klass9914_ _obj9915_ _slot9916_ _val9917_) + (lambda (_klass10015_ _obj10016_ _slot10017_ _val10018_) (if (let () (declare (not safe)) - (class-instance? _klass9914_ _obj9915_)) - (let* ((_off9919_ - (let ((__tmp10801 - (let () - (declare (not safe)) - (object-type _obj9915_)))) - (declare (not safe)) - (class-slot-offset __tmp10801 _slot9916_))) - (__tmp10802 - (let () (declare (not safe)) (##fx+ _off9919_ '1)))) + (class-instance? _klass10015_ _obj10016_)) + (let ((_off10020_ + (let ((__tmp10762 + (let () + (declare (not safe)) + (object-type _obj10016_)))) + (declare (not safe)) + (class-slot-offset* __tmp10762 _slot10017_)))) (declare (not safe)) (##unchecked-structure-set! - _obj9915_ - _val9917_ - __tmp10802 - _klass9914_ + _obj10016_ + _val10018_ + _off10020_ + _klass10015_ '#f)) - (error '"not an instance" _klass9914_ _obj9915_)))) - (define class-subtype? - (lambda (_klass9899_ _xklass9900_) - (let* ((_klass-t9902_ - (let () (declare (not safe)) (##type-id _klass9899_))) - (_$e9904_ - (let ((__tmp10803 - (let () (declare (not safe)) (##type-id _xklass9900_)))) + (error '"not an instance" _klass10015_ _obj10016_)))) + (define subclass? + (lambda (_maybe-sub-class10005_ _maybe-super-class10006_) + (let* ((_maybe-super-class-id10008_ + (let () (declare (not safe)) - (eq? _klass-t9902_ __tmp10803)))) - (if _$e9904_ - _$e9904_ - (let ((_$e9907_ + (##type-id _maybe-super-class10006_))) + (_$e10010_ + (let ((__tmp10763 + (let () + (declare (not safe)) + (##type-id _maybe-sub-class10005_)))) + (declare (not safe)) + (eq? _maybe-super-class-id10008_ __tmp10763)))) + (if _$e10010_ + _$e10010_ + (let ((__tmp10765 + (lambda (_super-class10013_) + (let ((__tmp10766 + (let () + (declare (not safe)) + (##type-id _super-class10013_)))) + (declare (not safe)) + (eq? __tmp10766 _maybe-super-class-id10008_)))) + (__tmp10764 (let () (declare (not safe)) - (type-descriptor-mixin _xklass9900_)))) - (if _$e9907_ - ((lambda (_mixin9910_) - (if (let ((__tmp10804 - (lambda (_xklass9912_) - (let ((__tmp10805 - (let () - (declare (not safe)) - (##type-id _xklass9912_)))) - (declare (not safe)) - (eq? _klass-t9902_ __tmp10805))))) - (declare (not safe)) - (find __tmp10804 _mixin9910_)) - '#t - '#f)) - _$e9907_) - '#f)))))) + (type-descriptor-precedence-list + _maybe-sub-class10005_)))) + (declare (not safe)) + (ormap1 __tmp10765 __tmp10764)))))) + (define class-subtype? + (lambda (_maybe-super-class10002_ _maybe-sub-class10003_) + (let () + (declare (not safe)) + (subclass? _maybe-sub-class10003_ _maybe-super-class10002_)))) (define object? ##structure?) (define object-type ##structure-type) (define direct-instance? - (lambda (_klass9896_ _obj9897_) - (let ((__tmp10806 - (let () (declare (not safe)) (##type-id _klass9896_)))) + (lambda (_klass9999_ _obj10000_) + (let ((__tmp10767 + (let () (declare (not safe)) (##type-id _klass9999_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj9897_ __tmp10806)))) + (##structure-direct-instance-of? _obj10000_ __tmp10767)))) (define struct-instance? - (lambda (_klass9893_ _obj9894_) - (let ((__tmp10807 - (let () (declare (not safe)) (##type-id _klass9893_)))) + (lambda (_klass9996_ _obj9997_) + (let ((__tmp10768 + (let () (declare (not safe)) (##type-id _klass9996_)))) (declare (not safe)) - (##structure-instance-of? _obj9894_ __tmp10807)))) + (##structure-instance-of? _obj9997_ __tmp10768)))) (define direct-struct-instance? direct-instance?) (define class-instance? - (lambda (_klass9877_ _obj9878_) - (if (let () (declare (not safe)) (object? _obj9878_)) - (let ((_klass-id9880_ - (let () (declare (not safe)) (##type-id _klass9877_))) - (_type9881_ - (let () (declare (not safe)) (object-type _obj9878_)))) - (if (let () (declare (not safe)) (type-descriptor? _type9881_)) - (let ((_$e9883_ - (let ((__tmp10808 - (let () - (declare (not safe)) - (##type-id _type9881_)))) - (declare (not safe)) - (eq? __tmp10808 _klass-id9880_)))) - (if _$e9883_ - _$e9883_ - (let ((_$e9886_ - (let () - (declare (not safe)) - (type-descriptor-mixin _type9881_)))) - (if _$e9886_ - ((lambda (_mixin9889_) - (let ((__tmp10809 - (lambda (_type9891_) - (let ((__tmp10810 - (let () - (declare (not safe)) - (##type-id _type9891_)))) - (declare (not safe)) - (eq? __tmp10810 _klass-id9880_))))) - (declare (not safe)) - (ormap1 __tmp10809 _mixin9889_))) - _$e9886_) - '#f)))) + (lambda (_klass9991_ _obj9992_) + (if (let () (declare (not safe)) (object? _obj9992_)) + (let ((_type9994_ + (let () (declare (not safe)) (object-type _obj9992_)))) + (if (let () (declare (not safe)) (type-descriptor? _type9994_)) + (let () + (declare (not safe)) + (subclass? _type9994_ _klass9991_)) '#f)) '#f))) (define direct-class-instance? direct-instance?) (define make-object - (lambda (_klass9872_ _k9873_) - (let ((_obj9875_ - (let ((__tmp10811 - (let () (declare (not safe)) (##fx+ _k9873_ '1)))) - (declare (not safe)) - (##make-vector __tmp10811 '#f)))) + (lambda (_klass9988_ _k9989_) + (let ((__tmp10769 (let () (declare (not safe)) (fx+ _k9989_ '1)))) + (declare (not safe)) + (make-object*__% _klass9988_ __tmp10769)))) + (define make-object*__% + (lambda (_klass9973_ _k9974_) + (let ((_obj9976_ + (let () (declare (not safe)) (##make-vector _k9974_ '#f)))) (let () (declare (not safe)) - (##vector-set! _obj9875_ '0 _klass9872_)) - (let ((__tmp10812 (macro-subtype-structure))) + (##vector-set! _obj9976_ '0 _klass9973_)) + (let ((__tmp10770 (macro-subtype-structure))) (declare (not safe)) - (##subtype-set! _obj9875_ __tmp10812)) - _obj9875_))) + (##subtype-set! _obj9976_ __tmp10770)) + _obj9976_))) + (define make-object*__0 + (lambda (_klass9981_) + (let ((_k9983_ (vector-length + (let () + (declare (not safe)) + (type-descriptor-all-slots _klass9981_))))) + (declare (not safe)) + (make-object*__% _klass9981_ _k9983_)))) + (define make-object* + (lambda _g10772_ + (let ((_g10771_ (let () (declare (not safe)) (##length _g10772_)))) + (cond ((let () (declare (not safe)) (##fx= _g10771_ 1)) + (apply (lambda (_klass9981_) + (let () + (declare (not safe)) + (make-object*__0 _klass9981_))) + _g10772_)) + ((let () (declare (not safe)) (##fx= _g10771_ 2)) + (apply (lambda (_klass9985_ _k9986_) + (let () + (declare (not safe)) + (make-object*__% _klass9985_ _k9986_))) + _g10772_)) + (else + (##raise-wrong-number-of-arguments-exception + make-object* + _g10772_)))))) (define make-struct-instance - (lambda (_klass9862_ . _args9863_) - (let* ((_fields9865_ - (let () - (declare (not safe)) - (type-descriptor-fields _klass9862_))) - (_$e9867_ + (lambda (_klass9959_ . _args9960_) + (let* ((_all-slots9962_ (let () (declare (not safe)) - (type-descriptor-ctor _klass9862_)))) - (if _$e9867_ - ((lambda (_kons-id9870_) - (let ((__tmp10814 - (let () - (declare (not safe)) - (make-object _klass9862_ _fields9865_)))) + (type-descriptor-all-slots _klass9959_))) + (_size9964_ (vector-length _all-slots9962_))) + (let ((_$e9967_ + (let () (declare (not safe)) - (__constructor-init! - _klass9862_ - _kons-id9870_ - __tmp10814 - _args9863_))) - _$e9867_) - (if (let ((__tmp10813 (length _args9863_))) - (declare (not safe)) - (##fx= _fields9865_ __tmp10813)) - (apply ##structure _klass9862_ _args9863_) - (error '"Arguments don't match object size" - _klass9862_ - _fields9865_ - _args9863_)))))) + (type-descriptor-constructor _klass9959_)))) + (if _$e9967_ + ((lambda (_kons-id9970_) + (let ((__tmp10775 + (let () + (declare (not safe)) + (make-object*__% _klass9959_ _size9964_)))) + (declare (not safe)) + (__constructor-init! + _klass9959_ + _kons-id9970_ + __tmp10775 + _args9960_))) + _$e9967_) + (if (let ((__tmp10774 + (let () (declare (not safe)) (fx- _size9964_ '1))) + (__tmp10773 (length _args9960_))) + (declare (not safe)) + (##fx= __tmp10774 __tmp10773)) + (apply ##structure _klass9959_ _args9960_) + (error '"Arguments don't match object size" + _klass9959_ + (let () (declare (not safe)) (fx- _size9964_ '1)) + _args9960_))))))) (define make-class-instance - (lambda (_klass9852_ . _args9853_) - (let* ((_obj9855_ - (let ((__tmp10815 - (let () - (declare (not safe)) - (type-descriptor-fields _klass9852_)))) + (lambda (_klass9949_ . _args9950_) + (let* ((_obj9952_ + (let ((__tmp10776 + (vector-length + (let () + (declare (not safe)) + (type-descriptor-all-slots _klass9949_))))) (declare (not safe)) - (make-object _klass9852_ __tmp10815))) - (_$e9857_ + (make-object*__% _klass9949_ __tmp10776))) + (_$e9954_ (let () (declare (not safe)) - (type-descriptor-ctor _klass9852_)))) - (if _$e9857_ - ((lambda (_kons-id9860_) + (type-descriptor-constructor _klass9949_)))) + (if _$e9954_ + ((lambda (_kons-id9957_) (let () (declare (not safe)) (__constructor-init! - _klass9852_ - _kons-id9860_ - _obj9855_ - _args9853_))) - _$e9857_) + _klass9949_ + _kons-id9957_ + _obj9952_ + _args9950_))) + _$e9954_) (let () (declare (not safe)) - (__class-instance-init! _klass9852_ _obj9855_ _args9853_)))))) + (__class-instance-init! _klass9949_ _obj9952_ _args9950_)))))) (define struct-instance-init! - (lambda (_obj9849_ . _args9850_) - (if (let ((__tmp10817 (length _args9850_)) - (__tmp10816 + (lambda (_obj9946_ . _args9947_) + (if (let ((__tmp10778 (length _args9947_)) + (__tmp10777 (let () (declare (not safe)) - (##structure-length _obj9849_)))) + (##structure-length _obj9946_)))) (declare (not safe)) - (##fx< __tmp10817 __tmp10816)) + (##fx< __tmp10778 __tmp10777)) (let () (declare (not safe)) - (__struct-instance-init! _obj9849_ _args9850_)) - (error '"Too many arguments for struct" _obj9849_ _args9850_)))) + (__struct-instance-init! _obj9946_ _args9947_)) + (error '"Too many arguments for struct" _obj9946_ _args9947_)))) (define __struct-instance-init! - (lambda (_obj9808_ _args9809_) - (let _lp9811_ ((_k9813_ '1) (_rest9814_ _args9809_)) - (let* ((_rest98159823_ _rest9814_) - (_else98179831_ (lambda () _obj9808_)) - (_K98199837_ - (lambda (_rest9834_ _hd9835_) + (lambda (_obj9905_ _args9906_) + (let _lp9908_ ((_k9910_ '1) (_rest9911_ _args9906_)) + (let* ((_rest99129920_ _rest9911_) + (_else99149928_ (lambda () _obj9905_)) + (_K99169934_ + (lambda (_rest9931_ _hd9932_) (let () (declare (not safe)) - (##vector-set! _obj9808_ _k9813_ _hd9835_)) - (let ((__tmp10818 - (let () (declare (not safe)) (##fx+ _k9813_ '1)))) + (##vector-set! _obj9905_ _k9910_ _hd9932_)) + (let ((__tmp10779 + (let () (declare (not safe)) (fx+ _k9910_ '1)))) (declare (not safe)) - (_lp9811_ __tmp10818 _rest9834_))))) - (if (let () (declare (not safe)) (##pair? _rest98159823_)) - (let ((_hd98209840_ - (let () (declare (not safe)) (##car _rest98159823_))) - (_tl98219842_ - (let () (declare (not safe)) (##cdr _rest98159823_)))) - (let* ((_hd9845_ _hd98209840_) (_rest9847_ _tl98219842_)) + (_lp9908_ __tmp10779 _rest9931_))))) + (if (let () (declare (not safe)) (##pair? _rest99129920_)) + (let ((_hd99179937_ + (let () (declare (not safe)) (##car _rest99129920_))) + (_tl99189939_ + (let () (declare (not safe)) (##cdr _rest99129920_)))) + (let* ((_hd9942_ _hd99179937_) (_rest9944_ _tl99189939_)) (declare (not safe)) - (_K98199837_ _rest9847_ _hd9845_))) - (let () (declare (not safe)) (_else98179831_))))))) + (_K99169934_ _rest9944_ _hd9942_))) + (let () (declare (not safe)) (_else99149928_))))))) (define class-instance-init! - (lambda (_obj9805_ . _args9806_) - (let ((__tmp10819 - (let () (declare (not safe)) (object-type _obj9805_)))) + (lambda (_obj9902_ . _args9903_) + (let ((__tmp10780 + (let () (declare (not safe)) (object-type _obj9902_)))) (declare (not safe)) - (__class-instance-init! __tmp10819 _obj9805_ _args9806_)))) + (__class-instance-init! __tmp10780 _obj9902_ _args9903_)))) (define __class-instance-init! - (lambda (_klass9749_ _obj9750_ _args9751_) - (let _lp9753_ ((_rest9755_ _args9751_)) - (let* ((_rest97569766_ _rest9755_) - (_else97589774_ + (lambda (_klass9846_ _obj9847_ _args9848_) + (let _lp9850_ ((_rest9852_ _args9848_)) + (let* ((_rest98539863_ _rest9852_) + (_else98559871_ (lambda () - (if (let () (declare (not safe)) (null? _rest9755_)) - _obj9750_ + (if (let () (declare (not safe)) (null? _rest9852_)) + _obj9847_ (error '"Unexpected class initializer arguments" - _rest9755_)))) - (_K97609786_ - (lambda (_rest9777_ _val9778_ _key9779_) - (let ((_$e9781_ + _rest9852_)))) + (_K98579883_ + (lambda (_rest9874_ _val9875_ _key9876_) + (let ((_$e9878_ (let () (declare (not safe)) - (class-slot-offset _klass9749_ _key9779_)))) - (if _$e9781_ - ((lambda (_off9784_) - (let ((__tmp10820 - (let () - (declare (not safe)) - (##fx+ _off9784_ '1)))) + (class-slot-offset* _klass9846_ _key9876_)))) + (if _$e9878_ + ((lambda (_off9881_) + (let () (declare (not safe)) - (##vector-set! _obj9750_ __tmp10820 _val9778_)) + (##vector-set! _obj9847_ _off9881_ _val9875_)) (let () (declare (not safe)) - (_lp9753_ _rest9777_))) - _$e9781_) + (_lp9850_ _rest9874_))) + _$e9878_) (error '"No slot for keyword initializer" - _klass9749_ - _key9779_)))))) - (if (let () (declare (not safe)) (##pair? _rest97569766_)) - (let ((_hd97619789_ - (let () (declare (not safe)) (##car _rest97569766_))) - (_tl97629791_ - (let () (declare (not safe)) (##cdr _rest97569766_)))) - (let ((_key9794_ _hd97619789_)) - (if (let () (declare (not safe)) (##pair? _tl97629791_)) - (let ((_hd97639796_ + _klass9846_ + _key9876_)))))) + (if (let () (declare (not safe)) (##pair? _rest98539863_)) + (let ((_hd98589886_ + (let () (declare (not safe)) (##car _rest98539863_))) + (_tl98599888_ + (let () (declare (not safe)) (##cdr _rest98539863_)))) + (let ((_key9891_ _hd98589886_)) + (if (let () (declare (not safe)) (##pair? _tl98599888_)) + (let ((_hd98609893_ (let () (declare (not safe)) - (##car _tl97629791_))) - (_tl97649798_ + (##car _tl98599888_))) + (_tl98619895_ (let () (declare (not safe)) - (##cdr _tl97629791_)))) - (let* ((_val9801_ _hd97639796_) - (_rest9803_ _tl97649798_)) + (##cdr _tl98599888_)))) + (let* ((_val9898_ _hd98609893_) + (_rest9900_ _tl98619895_)) (declare (not safe)) - (_K97609786_ _rest9803_ _val9801_ _key9794_))) - (let () (declare (not safe)) (_else97589774_))))) - (let () (declare (not safe)) (_else97589774_))))))) + (_K98579883_ _rest9900_ _val9898_ _key9891_))) + (let () (declare (not safe)) (_else98559871_))))) + (let () (declare (not safe)) (_else98559871_))))))) (define constructor-init! - (lambda (_klass9744_ _kons-id9745_ _obj9746_ . _args9747_) + (lambda (_klass9841_ _kons-id9842_ _obj9843_ . _args9844_) (let () (declare (not safe)) (__constructor-init! - _klass9744_ - _kons-id9745_ - _obj9746_ - _args9747_)))) + _klass9841_ + _kons-id9842_ + _obj9843_ + _args9844_)))) (define __constructor-init! - (lambda (_klass9734_ _kons-id9735_ _obj9736_ _args9737_) - (let ((_$e9739_ + (lambda (_klass9831_ _kons-id9832_ _obj9833_ _args9834_) + (let ((_$e9836_ (let () (declare (not safe)) - (__find-method _klass9734_ _kons-id9735_)))) - (if _$e9739_ - ((lambda (_kons9742_) - (apply _kons9742_ _obj9736_ _args9737_) - _obj9736_) - _$e9739_) - (error '"Missing constructor" _klass9734_ _kons-id9735_))))) + (__find-method _klass9831_ _kons-id9832_)))) + (if _$e9836_ + ((lambda (_kons9839_) + (apply _kons9839_ _obj9833_ _args9834_) + _obj9833_) + _$e9836_) + (error '"Missing constructor" _klass9831_ _kons-id9832_))))) (define struct-copy - (lambda (_struct9732_) - (if (let () (declare (not safe)) (##structure? _struct9732_)) + (lambda (_struct9829_) + (if (let () (declare (not safe)) (##structure? _struct9829_)) '#!void - (error '"Not a structure" 'struct-copy _struct9732_)) - (let () (declare (not safe)) (##structure-copy _struct9732_)))) + (error '"Not a structure" 'struct-copy _struct9829_)) + (let () (declare (not safe)) (##structure-copy _struct9829_)))) (define struct->list - (lambda (_obj9730_) - (if (let () (declare (not safe)) (object? _obj9730_)) - (let () (declare (not safe)) (##vector->list _obj9730_)) - (error '"Not an object" _obj9730_)))) + (lambda (_obj9827_) + (if (let () (declare (not safe)) (object? _obj9827_)) + (let () (declare (not safe)) (##vector->list _obj9827_)) + (error '"Not an object" _obj9827_)))) (define class->list - (lambda (_obj9717_) - (if (let () (declare (not safe)) (object? _obj9717_)) - (let ((_klass9719_ - (let () (declare (not safe)) (object-type _obj9717_)))) - (if (let () (declare (not safe)) (type-descriptor? _klass9719_)) - (let ((_$e9721_ + (lambda (_obj9814_) + (if (let () (declare (not safe)) (object? _obj9814_)) + (let ((_klass9816_ + (let () (declare (not safe)) (object-type _obj9814_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass9816_)) + (let ((_all-slots9818_ (let () (declare (not safe)) - (type-descriptor-slots _klass9719_)))) - (if _$e9721_ - ((lambda (_slots9724_) - (let ((__tmp10821 - (let ((__tmp10822 - (lambda (_slot9726_ _off9727_ _r9728_) - (if (keyword? _slot9726_) - (let ((__tmp10823 - (let ((__tmp10824 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (unchecked-field-ref _obj9717_ _off9727_)))) - (declare (not safe)) - (cons __tmp10824 _r9728_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _slot9726_ __tmp10823)) - _r9728_)))) - (declare (not safe)) - (hash-fold __tmp10822 '() _slots9724_)))) - (declare (not safe)) - (cons _klass9719_ __tmp10821))) - _$e9721_) - (list _klass9719_))) - (error '"Not a class type" _obj9717_ _klass9719_))) - (error '"Not an object" _obj9717_)))) + (type-descriptor-all-slots _klass9816_)))) + (let _loop9820_ ((_index9822_ + (let ((__tmp10786 + (vector-length _all-slots9818_))) + (declare (not safe)) + (fx- __tmp10786 '1))) + (_plist9823_ '())) + (if (< _index9822_ '1) + (let () + (declare (not safe)) + (cons _klass9816_ _plist9823_)) + (let ((_slot9825_ + (vector-ref _all-slots9818_ _index9822_))) + (let ((__tmp10785 + (let () + (declare (not safe)) + (fx- _index9822_ '1))) + (__tmp10781 + (let ((__tmp10784 + (symbol->keyword _slot9825_)) + (__tmp10782 + (let ((__tmp10783 + (let () + (declare (not safe)) + (unchecked-field-ref + _obj9814_ + _index9822_)))) + (declare (not safe)) + (cons __tmp10783 _plist9823_)))) + (declare (not safe)) + (cons __tmp10784 __tmp10782)))) + (declare (not safe)) + (_loop9820_ __tmp10785 __tmp10781)))))) + (error '"Not a class type" _obj9814_ _klass9816_))) + (error '"Not an object" _obj9814_)))) (define unchecked-field-ref - (lambda (_obj9714_ _off9715_) - (let ((__tmp10825 (let () (declare (not safe)) (##fx+ _off9715_ '1)))) - (declare (not safe)) - (##vector-ref _obj9714_ __tmp10825)))) + (lambda (_obj9811_ _off9812_) + (let () (declare (not safe)) (##vector-ref _obj9811_ _off9812_)))) (define unchecked-field-set! - (lambda (_obj9710_ _off9711_ _val9712_) - (let ((__tmp10826 (let () (declare (not safe)) (##fx+ _off9711_ '1)))) + (lambda (_obj9807_ _off9808_ _val9809_) + (let () (declare (not safe)) - (##vector-set! _obj9710_ __tmp10826 _val9712_)))) + (##vector-set! _obj9807_ _off9808_ _val9809_)))) (define unchecked-slot-ref - (lambda (_obj9707_ _slot9708_) - (let ((__tmp10827 - (let ((__tmp10828 - (let () (declare (not safe)) (object-type _obj9707_)))) + (lambda (_obj9804_ _slot9805_) + (let ((__tmp10787 + (let ((__tmp10788 + (let () (declare (not safe)) (object-type _obj9804_)))) (declare (not safe)) - (class-slot-offset __tmp10828 _slot9708_)))) + (class-slot-offset* __tmp10788 _slot9805_)))) (declare (not safe)) - (unchecked-field-ref _obj9707_ __tmp10827)))) + (unchecked-field-ref _obj9804_ __tmp10787)))) (define unchecked-slot-set! - (lambda (_obj9703_ _slot9704_ _val9705_) - (let ((__tmp10829 - (let ((__tmp10830 - (let () (declare (not safe)) (object-type _obj9703_)))) + (lambda (_obj9800_ _slot9801_ _val9802_) + (let ((__tmp10789 + (let ((__tmp10790 + (let () (declare (not safe)) (object-type _obj9800_)))) (declare (not safe)) - (class-slot-offset __tmp10830 _slot9704_)))) + (class-slot-offset* __tmp10790 _slot9801_)))) (declare (not safe)) - (unchecked-field-set! _obj9703_ __tmp10829 _val9705_)))) + (unchecked-field-set! _obj9800_ __tmp10789 _val9802_)))) (define slot-ref__% - (lambda (_obj9679_ _slot9680_ _E9681_) - (if (let () (declare (not safe)) (object? _obj9679_)) - (let* ((_klass9683_ - (let () (declare (not safe)) (object-type _obj9679_))) - (_$e9686_ + (lambda (_obj9776_ _slot9777_ _E9778_) + (if (let () (declare (not safe)) (object? _obj9776_)) + (let* ((_klass9780_ + (let () (declare (not safe)) (object-type _obj9776_))) + (_$e9783_ (if (let () (declare (not safe)) - (type-descriptor? _klass9683_)) + (type-descriptor? _klass9780_)) (let () (declare (not safe)) - (class-slot-offset _klass9683_ _slot9680_)) + (class-slot-offset* _klass9780_ _slot9777_)) '#f))) - (if _$e9686_ - ((lambda (_off9689_) - (let ((__tmp10831 - (let () - (declare (not safe)) - (##fx+ _off9689_ '1)))) + (if _$e9783_ + ((lambda (_off9786_) + (let () (declare (not safe)) - (##vector-ref _obj9679_ __tmp10831))) - _$e9686_) - (_E9681_ _obj9679_ _slot9680_))) - (_E9681_ _obj9679_ _slot9680_)))) + (##vector-ref _obj9776_ _off9786_))) + _$e9783_) + (_E9778_ _obj9776_ _slot9777_))) + (_E9778_ _obj9776_ _slot9777_)))) (define slot-ref__0 - (lambda (_obj9694_ _slot9695_) - (let ((_E9697_ __slot-error)) + (lambda (_obj9791_ _slot9792_) + (let ((_E9794_ __slot-error)) (declare (not safe)) - (slot-ref__% _obj9694_ _slot9695_ _E9697_)))) + (slot-ref__% _obj9791_ _slot9792_ _E9794_)))) (define slot-ref - (lambda _g10833_ - (let ((_g10832_ (let () (declare (not safe)) (##length _g10833_)))) - (cond ((let () (declare (not safe)) (##fx= _g10832_ 2)) - (apply (lambda (_obj9694_ _slot9695_) + (lambda _g10792_ + (let ((_g10791_ (let () (declare (not safe)) (##length _g10792_)))) + (cond ((let () (declare (not safe)) (##fx= _g10791_ 2)) + (apply (lambda (_obj9791_ _slot9792_) (let () (declare (not safe)) - (slot-ref__0 _obj9694_ _slot9695_))) - _g10833_)) - ((let () (declare (not safe)) (##fx= _g10832_ 3)) - (apply (lambda (_obj9699_ _slot9700_ _E9701_) + (slot-ref__0 _obj9791_ _slot9792_))) + _g10792_)) + ((let () (declare (not safe)) (##fx= _g10791_ 3)) + (apply (lambda (_obj9796_ _slot9797_ _E9798_) (let () (declare (not safe)) - (slot-ref__% _obj9699_ _slot9700_ _E9701_))) - _g10833_)) + (slot-ref__% _obj9796_ _slot9797_ _E9798_))) + _g10792_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g10833_)))))) + _g10792_)))))) (define slot-set!__% - (lambda (_obj9651_ _slot9652_ _val9653_ _E9654_) - (if (let () (declare (not safe)) (object? _obj9651_)) - (let* ((_klass9656_ - (let () (declare (not safe)) (object-type _obj9651_))) - (_$e9659_ + (lambda (_obj9748_ _slot9749_ _val9750_ _E9751_) + (if (let () (declare (not safe)) (object? _obj9748_)) + (let* ((_klass9753_ + (let () (declare (not safe)) (object-type _obj9748_))) + (_$e9756_ (if (let () (declare (not safe)) - (type-descriptor? _klass9656_)) + (type-descriptor? _klass9753_)) (let () (declare (not safe)) - (class-slot-offset _klass9656_ _slot9652_)) + (class-slot-offset* _klass9753_ _slot9749_)) '#f))) - (if _$e9659_ - ((lambda (_off9662_) - (let ((__tmp10834 - (let () - (declare (not safe)) - (##fx+ _off9662_ '1)))) + (if _$e9756_ + ((lambda (_off9759_) + (let () (declare (not safe)) - (##vector-set! _obj9651_ __tmp10834 _val9653_))) - _$e9659_) - (_E9654_ _obj9651_ _slot9652_))) - (_E9654_ _obj9651_ _slot9652_)))) + (##vector-set! _obj9748_ _off9759_ _val9750_))) + _$e9756_) + (_E9751_ _obj9748_ _slot9749_))) + (_E9751_ _obj9748_ _slot9749_)))) (define slot-set!__0 - (lambda (_obj9667_ _slot9668_ _val9669_) - (let ((_E9671_ __slot-error)) + (lambda (_obj9764_ _slot9765_ _val9766_) + (let ((_E9768_ __slot-error)) (declare (not safe)) - (slot-set!__% _obj9667_ _slot9668_ _val9669_ _E9671_)))) + (slot-set!__% _obj9764_ _slot9765_ _val9766_ _E9768_)))) (define slot-set! - (lambda _g10836_ - (let ((_g10835_ (let () (declare (not safe)) (##length _g10836_)))) - (cond ((let () (declare (not safe)) (##fx= _g10835_ 3)) - (apply (lambda (_obj9667_ _slot9668_ _val9669_) + (lambda _g10794_ + (let ((_g10793_ (let () (declare (not safe)) (##length _g10794_)))) + (cond ((let () (declare (not safe)) (##fx= _g10793_ 3)) + (apply (lambda (_obj9764_ _slot9765_ _val9766_) (let () (declare (not safe)) - (slot-set!__0 _obj9667_ _slot9668_ _val9669_))) - _g10836_)) - ((let () (declare (not safe)) (##fx= _g10835_ 4)) - (apply (lambda (_obj9673_ _slot9674_ _val9675_ _E9676_) + (slot-set!__0 _obj9764_ _slot9765_ _val9766_))) + _g10794_)) + ((let () (declare (not safe)) (##fx= _g10793_ 4)) + (apply (lambda (_obj9770_ _slot9771_ _val9772_ _E9773_) (let () (declare (not safe)) (slot-set!__% - _obj9673_ - _slot9674_ - _val9675_ - _E9676_))) - _g10836_)) + _obj9770_ + _slot9771_ + _val9772_ + _E9773_))) + _g10794_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g10836_)))))) + _g10794_)))))) (define __slot-error - (lambda (_obj9647_ _slot9648_) - (error '"Cannot find slot" _obj9647_ _slot9648_))) + (lambda (_obj9744_ _slot9745_) + (error '"Cannot find slot" _obj9744_ _slot9745_))) (define call-method - (lambda (_obj9638_ _id9639_ . _args9640_) - (let ((_$e9642_ - (let () (declare (not safe)) (method-ref _obj9638_ _id9639_)))) - (if _$e9642_ - ((lambda (_method9645_) - (apply _method9645_ _obj9638_ _args9640_)) - _$e9642_) - (error '"Cannot find method" _obj9638_ _id9639_))))) + (lambda (_obj9735_ _id9736_ . _args9737_) + (let ((_$e9739_ + (let () (declare (not safe)) (method-ref _obj9735_ _id9736_)))) + (if _$e9739_ + ((lambda (_method9742_) + (apply _method9742_ _obj9735_ _args9737_)) + _$e9739_) + (error '"Cannot find method" _obj9735_ _id9736_))))) (define __builtin-type-methods (make-table 'test: eq?)) (define method-ref - (lambda (_obj9635_ _id9636_) - (if (let () (declare (not safe)) (object? _obj9635_)) - (let ((__tmp10837 - (let () (declare (not safe)) (object-type _obj9635_)))) + (lambda (_obj9732_ _id9733_) + (if (let () (declare (not safe)) (object? _obj9732_)) + (let ((__tmp10795 + (let () (declare (not safe)) (object-type _obj9732_)))) (declare (not safe)) - (find-method __tmp10837 _id9636_)) + (find-method __tmp10795 _id9733_)) '#f))) (define checked-method-ref - (lambda (_obj9629_ _id9630_) - (let ((_$e9632_ - (let () (declare (not safe)) (method-ref _obj9629_ _id9630_)))) - (if _$e9632_ - _$e9632_ - (error '"Missing method" _obj9629_ _id9630_))))) + (lambda (_obj9726_ _id9727_) + (let ((_$e9729_ + (let () (declare (not safe)) (method-ref _obj9726_ _id9727_)))) + (if _$e9729_ + _$e9729_ + (error '"Missing method" _obj9726_ _id9727_))))) (define bound-method-ref - (lambda (_obj9619_ _id9620_) - (let ((_$e9622_ - (let () (declare (not safe)) (method-ref _obj9619_ _id9620_)))) - (if _$e9622_ - ((lambda (_method9625_) - (lambda _args9627_ (apply _method9625_ _obj9619_ _args9627_))) - _$e9622_) + (lambda (_obj9716_ _id9717_) + (let ((_$e9719_ + (let () (declare (not safe)) (method-ref _obj9716_ _id9717_)))) + (if _$e9719_ + ((lambda (_method9722_) + (lambda _args9724_ (apply _method9722_ _obj9716_ _args9724_))) + _$e9719_) '#f)))) (define checked-bound-method-ref - (lambda (_obj9612_ _id9613_) - (let ((_method9615_ + (lambda (_obj9709_ _id9710_) + (let ((_method9712_ (let () (declare (not safe)) - (checked-method-ref _obj9612_ _id9613_)))) - (lambda _args9617_ (apply _method9615_ _obj9612_ _args9617_))))) + (checked-method-ref _obj9709_ _id9710_)))) + (lambda _args9714_ (apply _method9712_ _obj9709_ _args9714_))))) (define find-method - (lambda (_klass9606_ _id9607_) - (if (let () (declare (not safe)) (type-descriptor? _klass9606_)) - (let () (declare (not safe)) (__find-method _klass9606_ _id9607_)) - (if (let () (declare (not safe)) (##type? _klass9606_)) - (let ((_$e9609_ - (let () - (declare (not safe)) - (builtin-method-ref _klass9606_ _id9607_)))) - (if _$e9609_ - _$e9609_ - (let ((__tmp10838 - (let () - (declare (not safe)) - (##type-super _klass9606_)))) - (declare (not safe)) - (builtin-find-method __tmp10838 _id9607_)))) - '#f)))) + (lambda (_klass9706_ _id9707_) + (if (let () (declare (not safe)) (type-descriptor? _klass9706_)) + (let () (declare (not safe)) (__find-method _klass9706_ _id9707_)) + (let () + (declare (not safe)) + (builtin-find-method _klass9706_ _id9707_))))) (define __find-method - (lambda (_klass9595_ _id9596_) - (let ((_$e9598_ + (lambda (_klass9700_ _id9701_) + (let ((_$e9703_ (let () (declare (not safe)) - (direct-method-ref _klass9595_ _id9596_)))) - (if _$e9598_ - _$e9598_ + (direct-method-ref _klass9700_ _id9701_)))) + (if _$e9703_ + _$e9703_ (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass9595_)) + (type-descriptor-sealed? _klass9700_)) '#f - (let ((_$e9601_ - (let () - (declare (not safe)) - (type-descriptor-mixin _klass9595_)))) - (if _$e9601_ - ((lambda (_mixin9604_) - (let () - (declare (not safe)) - (mixin-find-method _mixin9604_ _id9596_))) - _$e9601_) - (let ((__tmp10839 - (let () - (declare (not safe)) - (##type-super _klass9595_)))) - (declare (not safe)) - (struct-find-method __tmp10839 _id9596_))))))))) - (define struct-find-method - (lambda (_klass9586_ _id9587_) - (if (let () (declare (not safe)) (type-descriptor? _klass9586_)) - (let ((_$e9589_ - (let () - (declare (not safe)) - (direct-method-ref _klass9586_ _id9587_)))) - (if _$e9589_ - _$e9589_ - (let ((__tmp10841 - (let () - (declare (not safe)) - (##type-super _klass9586_)))) - (declare (not safe)) - (struct-find-method __tmp10841 _id9587_)))) - (if (let () (declare (not safe)) (##type? _klass9586_)) - (let ((_$e9592_ - (let () - (declare (not safe)) - (builtin-method-ref _klass9586_ _id9587_)))) - (if _$e9592_ - _$e9592_ - (let ((__tmp10840 - (let () - (declare (not safe)) - (##type-super _klass9586_)))) - (declare (not safe)) - (builtin-find-method __tmp10840 _id9587_)))) - '#f)))) - (define class-find-method - (lambda (_klass9580_ _id9581_) - (if (let () (declare (not safe)) (type-descriptor? _klass9580_)) - (let ((_$e9583_ - (let () - (declare (not safe)) - (direct-method-ref _klass9580_ _id9581_)))) - (if _$e9583_ - _$e9583_ (let () (declare (not safe)) - (mixin-method-ref _klass9580_ _id9581_)))) + (mixin-method-ref _klass9700_ _id9701_))))))) + (define struct-find-method find-method) + (define class-find-method + (lambda (_klass9697_ _id9698_) + (if (let () (declare (not safe)) (type-descriptor? _klass9697_)) + (let () (declare (not safe)) (__find-method _klass9697_ _id9698_)) '#f))) (define mixin-find-method - (lambda (_mixin9537_ _id9538_) - (let _lp9540_ ((_rest9542_ _mixin9537_)) - (let* ((_rest95439551_ _rest9542_) - (_else95459559_ (lambda () '#f)) - (_K95479568_ - (lambda (_rest9562_ _klass9563_) - (let ((_$e9565_ - (let () - (declare (not safe)) - (direct-method-ref _klass9563_ _id9538_)))) - (if _$e9565_ - _$e9565_ - (let () - (declare (not safe)) - (_lp9540_ _rest9562_))))))) - (if (let () (declare (not safe)) (##pair? _rest95439551_)) - (let ((_hd95489571_ - (let () (declare (not safe)) (##car _rest95439551_))) - (_tl95499573_ - (let () (declare (not safe)) (##cdr _rest95439551_)))) - (let* ((_klass9576_ _hd95489571_) (_rest9578_ _tl95499573_)) - (declare (not safe)) - (_K95479568_ _rest9578_ _klass9576_))) - (let () (declare (not safe)) (_else95459559_))))))) + (lambda (_mixins9690_ _id9691_) + (let ((__tmp10796 + (lambda (_g96929694_) + (let () + (declare (not safe)) + (direct-method-ref _g96929694_ _id9691_))))) + (declare (not safe)) + (ormap1 __tmp10796 _mixins9690_)))) (define builtin-find-method - (lambda (_klass9531_ _id9532_) - (if (let () (declare (not safe)) (##type? _klass9531_)) - (let ((_$e9534_ + (lambda (_klass9684_ _id9685_) + (if (let () (declare (not safe)) (##type? _klass9684_)) + (let ((_$e9687_ (let () (declare (not safe)) - (builtin-method-ref _klass9531_ _id9532_)))) - (if _$e9534_ - _$e9534_ - (let ((__tmp10842 + (builtin-method-ref _klass9684_ _id9685_)))) + (if _$e9687_ + _$e9687_ + (let ((__tmp10797 (let () (declare (not safe)) - (##type-super _klass9531_)))) + (##type-super _klass9684_)))) (declare (not safe)) - (builtin-find-method __tmp10842 _id9532_)))) + (builtin-find-method __tmp10797 _id9685_)))) '#f))) (define direct-method-ref - (lambda (_klass9523_ _id9524_) - (let ((_$e9526_ + (lambda (_klass9676_ _id9677_) + (let ((_$e9679_ (let () (declare (not safe)) - (type-descriptor-methods _klass9523_)))) - (if _$e9526_ - ((lambda (_ht9529_) + (type-descriptor-methods _klass9676_)))) + (if _$e9679_ + ((lambda (_ht9682_) (let () (declare (not safe)) - (table-ref _ht9529_ _id9524_ '#f))) - _$e9526_) + (table-ref _ht9682_ _id9677_ '#f))) + _$e9679_) '#f)))) (define mixin-method-ref - (lambda (_klass9515_ _id9516_) - (let ((_$e9518_ + (lambda (_klass9673_ _id9674_) + (let ((__tmp10798 (let () (declare (not safe)) - (type-descriptor-mixin _klass9515_)))) - (if _$e9518_ - ((lambda (_mixin9521_) - (let () - (declare (not safe)) - (mixin-find-method _mixin9521_ _id9516_))) - _$e9518_) - '#f)))) + (type-descriptor-precedence-list _klass9673_)))) + (declare (not safe)) + (mixin-find-method __tmp10798 _id9674_)))) (define builtin-method-ref - (lambda (_klass9507_ _id9508_) - (let ((_$e9510_ - (let ((__tmp10843 - (let () (declare (not safe)) (##type-id _klass9507_)))) + (lambda (_klass9665_ _id9666_) + (let ((_$e9668_ + (let ((__tmp10799 + (let () (declare (not safe)) (##type-id _klass9665_)))) (declare (not safe)) - (table-ref __builtin-type-methods __tmp10843 '#f)))) - (if _$e9510_ - ((lambda (_mtab9513_) + (table-ref __builtin-type-methods __tmp10799 '#f)))) + (if _$e9668_ + ((lambda (_mtab9671_) (let () (declare (not safe)) - (table-ref _mtab9513_ _id9508_ '#f))) - _$e9510_) + (table-ref _mtab9671_ _id9666_ '#f))) + _$e9668_) '#f)))) (define bind-method!__% - (lambda (_klass9473_ _id9474_ _proc9475_ _rebind?9476_) - (letrec ((_bind!9478_ - (lambda (_ht9491_) - (if (and (let () (declare (not safe)) (not _rebind?9476_)) + (lambda (_klass9631_ _id9632_ _proc9633_ _rebind?9634_) + (letrec ((_bind!9636_ + (lambda (_ht9649_) + (if (and (let () (declare (not safe)) (not _rebind?9634_)) (let () (declare (not safe)) - (table-ref _ht9491_ _id9474_ '#f))) - (error '"Method already bound" _klass9473_ _id9474_) + (table-ref _ht9649_ _id9632_ '#f))) + (error '"Method already bound" _klass9631_ _id9632_) (let () (declare (not safe)) - (table-set! _ht9491_ _id9474_ _proc9475_)))))) - (if (let () (declare (not safe)) (procedure? _proc9475_)) + (table-set! _ht9649_ _id9632_ _proc9633_)))))) + (if (let () (declare (not safe)) (procedure? _proc9633_)) '#!void - (error '"Bad method; expected procedure" _proc9475_)) - (if (let () (declare (not safe)) (type-descriptor? _klass9473_)) - (let ((_ht9480_ + (error '"Bad method; expected procedure" _proc9633_)) + (if (let () (declare (not safe)) (type-descriptor? _klass9631_)) + (let ((_ht9638_ (let () (declare (not safe)) - (type-descriptor-methods _klass9473_)))) - (if _ht9480_ - (let () (declare (not safe)) (_bind!9478_ _ht9480_)) - (let ((_ht9482_ + (type-descriptor-methods _klass9631_)))) + (if _ht9638_ + (let () (declare (not safe)) (_bind!9636_ _ht9638_)) + (let ((_ht9640_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (type-descriptor-methods-set! _klass9473_ _ht9482_)) - (let () (declare (not safe)) (_bind!9478_ _ht9482_))))) - (if (let () (declare (not safe)) (##type? _klass9473_)) - (let ((_ht9489_ - (let ((_$e9484_ - (let ((__tmp10844 + (type-descriptor-methods-set! _klass9631_ _ht9640_)) + (let () (declare (not safe)) (_bind!9636_ _ht9640_))))) + (if (let () (declare (not safe)) (##type? _klass9631_)) + (let ((_ht9647_ + (let ((_$e9642_ + (let ((__tmp10800 (let () (declare (not safe)) - (##type-id _klass9473_)))) + (##type-id _klass9631_)))) (declare (not safe)) (table-ref __builtin-type-methods - __tmp10844 + __tmp10800 '#f)))) - (if _$e9484_ - _$e9484_ - (let ((_ht9487_ + (if _$e9642_ + _$e9642_ + (let ((_ht9645_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp10845 + (let ((__tmp10801 (let () (declare (not safe)) - (##type-id _klass9473_)))) + (##type-id _klass9631_)))) (declare (not safe)) (table-set! __builtin-type-methods - __tmp10845 - _ht9487_)) - _ht9487_))))) + __tmp10801 + _ht9645_)) + _ht9645_))))) (declare (not safe)) - (_bind!9478_ _ht9489_)) + (_bind!9636_ _ht9647_)) (error '"Bad class; expected type-descriptor" - _klass9473_)))))) + _klass9631_)))))) (define bind-method!__0 - (lambda (_klass9496_ _id9497_ _proc9498_) - (let ((_rebind?9500_ '#t)) + (lambda (_klass9654_ _id9655_ _proc9656_) + (let ((_rebind?9658_ '#t)) (declare (not safe)) - (bind-method!__% _klass9496_ _id9497_ _proc9498_ _rebind?9500_)))) + (bind-method!__% _klass9654_ _id9655_ _proc9656_ _rebind?9658_)))) (define bind-method! - (lambda _g10847_ - (let ((_g10846_ (let () (declare (not safe)) (##length _g10847_)))) - (cond ((let () (declare (not safe)) (##fx= _g10846_ 3)) - (apply (lambda (_klass9496_ _id9497_ _proc9498_) + (lambda _g10803_ + (let ((_g10802_ (let () (declare (not safe)) (##length _g10803_)))) + (cond ((let () (declare (not safe)) (##fx= _g10802_ 3)) + (apply (lambda (_klass9654_ _id9655_ _proc9656_) (let () (declare (not safe)) - (bind-method!__0 _klass9496_ _id9497_ _proc9498_))) - _g10847_)) - ((let () (declare (not safe)) (##fx= _g10846_ 4)) - (apply (lambda (_klass9502_ _id9503_ _proc9504_ _rebind?9505_) + (bind-method!__0 _klass9654_ _id9655_ _proc9656_))) + _g10803_)) + ((let () (declare (not safe)) (##fx= _g10802_ 4)) + (apply (lambda (_klass9660_ _id9661_ _proc9662_ _rebind?9663_) (let () (declare (not safe)) (bind-method!__% - _klass9502_ - _id9503_ - _proc9504_ - _rebind?9505_))) - _g10847_)) + _klass9660_ + _id9661_ + _proc9662_ + _rebind?9663_))) + _g10803_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g10847_)))))) + _g10803_)))))) (define __method-specializers (make-table 'test: eq?)) (define bind-specializer! - (lambda (_proc9469_ _specializer9470_) + (lambda (_proc9627_ _specializer9628_) (let () (declare (not safe)) - (table-set! __method-specializers _proc9469_ _specializer9470_)))) + (table-set! __method-specializers _proc9627_ _specializer9628_)))) (define seal-class! - (lambda (_klass9384_) - (letrec ((_collect-methods!9386_ - (lambda (_mtab9402_) - (letrec ((_merge!9404_ - (lambda (_tab9464_) - (let ((__tmp10848 - (lambda (_id9466_ _proc9467_) + (lambda (_klass9594_) + (letrec ((_collect-methods!9596_ + (lambda (_mtab9612_) + (letrec ((_merge!9614_ + (lambda (_tab9622_) + (let ((__tmp10804 + (lambda (_id9624_ _proc9625_) (let () (declare (not safe)) (table-set! - _mtab9402_ - _id9466_ - _proc9467_))))) + _mtab9612_ + _id9624_ + _proc9625_))))) (declare (not safe)) - (table-for-each __tmp10848 _tab9464_)))) - (_collect-direct-methods!9405_ - (lambda (_klass9459_) - (let ((_$e9461_ + (table-for-each __tmp10804 _tab9622_)))) + (_collect-direct-methods!9615_ + (lambda (_klass9617_) + (let ((_$e9619_ (let () (declare (not safe)) (type-descriptor-methods - _klass9459_)))) - (if _$e9461_ + _klass9617_)))) + (if _$e9619_ (let () (declare (not safe)) - (_merge!9404_ _$e9461_)) - '#!void))))) - (let ((_$e9407_ - (let () - (declare (not safe)) - (type-descriptor-mixin _klass9384_)))) - (if _$e9407_ - ((lambda (_mixin9410_) - (let _recur9412_ ((_rest9414_ _mixin9410_)) - (let* ((_rest94159423_ _rest9414_) - (_else94179431_ (lambda () '#!void)) - (_K94199440_ - (lambda (_rest9434_ _klass9435_) - (let () - (declare (not safe)) - (_recur9412_ _rest9434_)) - (if (let () - (declare (not safe)) - (type-descriptor? - _klass9435_)) - (let () - (declare (not safe)) - (_collect-direct-methods!9405_ - _klass9435_)) - (let ((_$e9437_ - (if (let () - (declare - (not safe)) - (##type? _klass9435_)) - (let ((__tmp10852 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (##type-id _klass9435_)))) - (declare (not safe)) - (table-ref __builtin-type-methods __tmp10852 '#f)) - '#f))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e9437_ - (let () - (declare (not safe)) - (_merge!9404_ _$e9437_)) - '#!void)))))) - (if (let () - (declare (not safe)) - (##pair? _rest94159423_)) - (let ((_hd94209443_ - (let () - (declare (not safe)) - (##car _rest94159423_))) - (_tl94219445_ - (let () - (declare (not safe)) - (##cdr _rest94159423_)))) - (let* ((_klass9448_ _hd94209443_) - (_rest9450_ _tl94219445_)) - (declare (not safe)) - (_K94199440_ - _rest9450_ - _klass9448_))) - '#!void)))) - _$e9407_) - (let _recur9452_ ((_klass9454_ - (let () - (declare (not safe)) - (##type-super _klass9384_)))) - (if (let () - (declare (not safe)) - (type-descriptor? _klass9454_)) - (begin - (let ((__tmp10851 - (let () - (declare (not safe)) - (##type-super _klass9454_)))) - (declare (not safe)) - (_recur9452_ __tmp10851)) - (let () - (declare (not safe)) - (_collect-direct-methods!9405_ - _klass9454_))) - (if (let () - (declare (not safe)) - (##type? _klass9454_)) - (begin - (let ((__tmp10849 - (let () - (declare (not safe)) - (##type-super _klass9454_)))) - (declare (not safe)) - (_recur9452_ __tmp10849)) - (let ((_$e9456_ - (let ((__tmp10850 - (let () - (declare (not safe)) - (##type-id - _klass9454_)))) - (declare (not safe)) - (table-ref - __builtin-type-methods - __tmp10850 - '#f)))) - (if _$e9456_ - (let () - (declare (not safe)) - (_merge!9404_ _$e9456_)) - '#!void))) + (_merge!9614_ _$e9619_)) '#!void))))) - (let () - (declare (not safe)) - (_collect-direct-methods!9405_ _klass9384_)))))) - (if (let () (declare (not safe)) (type-descriptor? _klass9384_)) + (for-each + _collect-direct-methods!9615_ + (reverse (let () + (declare (not safe)) + (class-precedence-list _klass9594_)))))))) + (if (let () (declare (not safe)) (type-descriptor? _klass9594_)) (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass9384_)) + (type-descriptor-sealed? _klass9594_)) '#!void (begin - (if (let ((__tmp10853 - (let () - (declare (not safe)) - (type-descriptor-plist _klass9384_)))) - (declare (not safe)) - (assgetq 'final: __tmp10853)) + (if (let () (declare (not safe)) (type-final? _klass9594_)) '#!void - (error '"Cannot seal non-final class" _klass9384_)) - (let ((_vtab9388_ + (error '"Cannot seal non-final class" _klass9594_)) + (let ((_vtab9598_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_mtab9389_ + (_mtab9599_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (_collect-methods!9386_ _mtab9389_)) - (let ((__tmp10854 - (lambda (_id9391_ _proc9392_) - (let ((_$e9394_ + (_collect-methods!9596_ _mtab9599_)) + (let ((__tmp10805 + (lambda (_id9601_ _proc9602_) + (let ((_$e9604_ (let () (declare (not safe)) (table-ref __method-specializers - _proc9392_ + _proc9602_ '#f)))) - (if _$e9394_ - ((lambda (_specializer9397_) - (let ((_proc9399_ - (_specializer9397_ _klass9384_)) - (_gid9400_ - (let ((__tmp10855 + (if _$e9604_ + ((lambda (_specializer9607_) + (let ((_proc9609_ + (_specializer9607_ _klass9594_)) + (_gid9610_ + (let ((__tmp10806 (let () (declare (not safe)) (##type-id - _klass9384_)))) + _klass9594_)))) (declare (not safe)) (make-symbol__1 - __tmp10855 + __tmp10806 '"::[" - _id9391_ + _id9601_ '"]")))) - (eval (let ((__tmp10856 - (let ((__tmp10857 - (let ((__tmp10858 + (eval (let ((__tmp10807 + (let ((__tmp10808 + (let ((__tmp10809 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10859 + (let ((__tmp10810 (let () (declare (not safe)) - (cons _proc9399_ '())))) + (cons _proc9609_ '())))) (declare (not safe)) - (cons 'quote __tmp10859)))) + (cons 'quote __tmp10810)))) (declare (not safe)) - (cons __tmp10858 '())))) + (cons __tmp10809 '())))) (declare (not safe)) - (cons _gid9400_ __tmp10857)))) + (cons _gid9610_ __tmp10808)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'def __tmp10856))) + (cons 'def __tmp10807))) (let () (declare (not safe)) (table-set! - _vtab9388_ - _id9391_ - _proc9399_)))) - _$e9394_) + _vtab9598_ + _id9601_ + _proc9609_)))) + _$e9604_) (let () (declare (not safe)) (table-set! - _vtab9388_ - _id9391_ - _proc9392_))))))) + _vtab9598_ + _id9601_ + _proc9602_))))))) (declare (not safe)) - (table-for-each __tmp10854 _mtab9389_)) + (table-for-each __tmp10805 _mtab9599_)) (let () (declare (not safe)) - (type-descriptor-methods-set! _klass9384_ _vtab9388_)) + (type-descriptor-methods-set! _klass9594_ _vtab9598_)) (let () (declare (not safe)) - (type-descriptor-seal! _klass9384_))))) + (type-descriptor-seal! _klass9594_))))) '#!void)))) (define next-method - (lambda (_subklass9321_ _obj9322_ _id9323_) - (let ((_klass9325_ - (let () (declare (not safe)) (object-type _obj9322_))) - (_type-id9326_ - (let () (declare (not safe)) (##type-id _subklass9321_)))) - (if (let () (declare (not safe)) (type-descriptor? _klass9325_)) - (let ((_$e9328_ - (let () - (declare (not safe)) - (type-descriptor-mixin _klass9325_)))) - (if _$e9328_ - ((lambda (_mixin9331_) - (let _lp9333_ ((_rest9335_ - (let () - (declare (not safe)) - (cons _klass9325_ _mixin9331_)))) - (let* ((_rest93369344_ _rest9335_) - (_else93389352_ (lambda () '#f)) - (_K93409358_ - (lambda (_rest9355_ _klass9356_) - (if (let ((__tmp10864 - (let () - (declare (not safe)) - (##type-id _klass9356_)))) - (declare (not safe)) - (eq? _type-id9326_ __tmp10864)) - (let () - (declare (not safe)) - (mixin-find-method - _rest9355_ - _id9323_)) - (let () - (declare (not safe)) - (_lp9333_ _rest9355_)))))) - (if (let () - (declare (not safe)) - (##pair? _rest93369344_)) - (let ((_hd93419361_ - (let () - (declare (not safe)) - (##car _rest93369344_))) - (_tl93429363_ - (let () - (declare (not safe)) - (##cdr _rest93369344_)))) - (let* ((_klass9366_ _hd93419361_) - (_rest9368_ _tl93429363_)) - (declare (not safe)) - (_K93409358_ _rest9368_ _klass9366_))) - (let () - (declare (not safe)) - (_else93389352_)))))) - _$e9328_) - (let _lp9370_ ((_klass9372_ _klass9325_)) - (if (let ((__tmp10863 - (let () - (declare (not safe)) - (##type-id _klass9372_)))) - (declare (not safe)) - (eq? _type-id9326_ __tmp10863)) - (let ((__tmp10862 - (let () - (declare (not safe)) - (##type-super _klass9372_)))) - (declare (not safe)) - (struct-find-method __tmp10862 _id9323_)) - (let ((_$e9374_ - (let () - (declare (not safe)) - (##type-super _klass9372_)))) - (if _$e9374_ - (let () - (declare (not safe)) - (_lp9370_ _$e9374_)) - '#f)))))) - (if (let () (declare (not safe)) (##type? _klass9325_)) - (let _lp9377_ ((_klass9379_ _klass9325_)) - (if (let ((__tmp10861 + (lambda (_subklass9543_ _obj9544_ _id9545_) + (let ((_klass9547_ + (let () (declare (not safe)) (object-type _obj9544_))) + (_type-id9548_ + (let () (declare (not safe)) (##type-id _subklass9543_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass9547_)) + (let _lp9550_ ((_rest9552_ + (let () + (declare (not safe)) + (class-precedence-list _klass9547_)))) + (let* ((_rest95539561_ _rest9552_) + (_else95559569_ (lambda () '#f)) + (_K95579575_ + (lambda (_rest9572_ _klass9573_) + (if (let ((__tmp10813 + (let () + (declare (not safe)) + (##type-id _klass9573_)))) + (declare (not safe)) + (eq? _type-id9548_ __tmp10813)) + (let () + (declare (not safe)) + (mixin-find-method _rest9572_ _id9545_)) + (let () + (declare (not safe)) + (_lp9550_ _rest9572_)))))) + (if (let () (declare (not safe)) (##pair? _rest95539561_)) + (let ((_hd95589578_ + (let () + (declare (not safe)) + (##car _rest95539561_))) + (_tl95599580_ + (let () + (declare (not safe)) + (##cdr _rest95539561_)))) + (let* ((_klass9583_ _hd95589578_) + (_rest9585_ _tl95599580_)) + (declare (not safe)) + (_K95579575_ _rest9585_ _klass9583_))) + (let () (declare (not safe)) (_else95559569_))))) + (if (let () (declare (not safe)) (##type? _klass9547_)) + (let _lp9587_ ((_klass9589_ _klass9547_)) + (if (let ((__tmp10812 (let () (declare (not safe)) - (##type-id _klass9379_)))) + (##type-id _klass9589_)))) (declare (not safe)) - (eq? _type-id9326_ __tmp10861)) - (let ((__tmp10860 + (eq? _type-id9548_ __tmp10812)) + (let ((__tmp10811 (let () (declare (not safe)) - (##type-super _klass9379_)))) + (##type-super _klass9589_)))) (declare (not safe)) - (builtin-find-method __tmp10860 _id9323_)) - (let ((_$e9381_ + (builtin-find-method __tmp10811 _id9545_)) + (let ((_$e9591_ (let () (declare (not safe)) - (##type-super _klass9379_)))) - (if _$e9381_ - (let () (declare (not safe)) (_lp9377_ _$e9381_)) + (##type-super _klass9589_)))) + (if _$e9591_ + (let () (declare (not safe)) (_lp9587_ _$e9591_)) '#f)))) '#f))))) (define call-next-method - (lambda (_subklass9311_ _obj9312_ _id9313_ . _args9314_) - (let ((_$e9316_ + (lambda (_subklass9533_ _obj9534_ _id9535_ . _args9536_) + (let ((_$e9538_ (let () (declare (not safe)) - (next-method _subklass9311_ _obj9312_ _id9313_)))) - (if _$e9316_ - ((lambda (_methodf9319_) - (apply _methodf9319_ _obj9312_ _args9314_)) - _$e9316_) - (error '"Cannot find next method" _obj9312_ _id9313_))))) - (define write-style (lambda (_we9309_) (macro-writeenv-style _we9309_))) + (next-method _subklass9533_ _obj9534_ _id9535_)))) + (if _$e9538_ + ((lambda (_methodf9541_) + (apply _methodf9541_ _obj9534_ _args9536_)) + _$e9538_) + (error '"Cannot find next method" _obj9534_ _id9535_))))) + (define write-style (lambda (_we9531_) (macro-writeenv-style _we9531_))) (define write-object - (lambda (_we9301_ _obj9302_) - (let ((_$e9304_ - (let () (declare (not safe)) (method-ref _obj9302_ ':wr)))) - (if _$e9304_ - ((lambda (_method9307_) (_method9307_ _obj9302_ _we9301_)) - _$e9304_) + (lambda (_we9523_ _obj9524_) + (let ((_$e9526_ + (let () (declare (not safe)) (method-ref _obj9524_ ':wr)))) + (if _$e9526_ + ((lambda (_method9529_) (_method9529_ _obj9524_ _we9523_)) + _$e9526_) (let () (declare (not safe)) - (##default-wr _we9301_ _obj9302_)))))) + (##default-wr _we9523_ _obj9524_)))))) (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 1031b92304..94846fa855 100644 --- a/src/bootstrap/gerbil/runtime/mop__1.scm +++ b/src/bootstrap/gerbil/runtime/mop__1.scm @@ -1,226 +1,229 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |[:0:]#__slot-e| - (lambda (_$stx9183_) - (let* ((_g91879213_ - (lambda (_g91889209_) - (gx#raise-syntax-error '#f '"Bad syntax" _g91889209_))) - (_g91869297_ - (lambda (_g91889217_) - (if (gx#stx-pair? _g91889217_) - (let ((_e91959220_ (gx#syntax-e _g91889217_))) - (let ((_hd91949224_ - (let () (declare (not safe)) (##car _e91959220_))) - (_tl91939227_ - (let () (declare (not safe)) (##cdr _e91959220_)))) - (if (gx#stx-pair? _tl91939227_) - (let ((_e91989230_ (gx#syntax-e _tl91939227_))) - (let ((_hd91979234_ + (lambda (_$stx9405_) + (let* ((_g94099435_ + (lambda (_g94109431_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g94109431_))) + (_g94089519_ + (lambda (_g94109439_) + (if (gx#stx-pair? _g94109439_) + (let ((_e94179442_ (gx#syntax-e _g94109439_))) + (let ((_hd94169446_ + (let () (declare (not safe)) (##car _e94179442_))) + (_tl94159449_ + (let () (declare (not safe)) (##cdr _e94179442_)))) + (if (gx#stx-pair? _tl94159449_) + (let ((_e94209452_ (gx#syntax-e _tl94159449_))) + (let ((_hd94199456_ (let () (declare (not safe)) - (##car _e91989230_))) - (_tl91969237_ + (##car _e94209452_))) + (_tl94189459_ (let () (declare (not safe)) - (##cdr _e91989230_)))) - (if (gx#stx-pair? _tl91969237_) - (let ((_e92019240_ - (gx#syntax-e _tl91969237_))) - (let ((_hd92009244_ + (##cdr _e94209452_)))) + (if (gx#stx-pair? _tl94189459_) + (let ((_e94239462_ + (gx#syntax-e _tl94189459_))) + (let ((_hd94229466_ (let () (declare (not safe)) - (##car _e92019240_))) - (_tl91999247_ + (##car _e94239462_))) + (_tl94219469_ (let () (declare (not safe)) - (##cdr _e92019240_)))) - (if (gx#stx-pair? _tl91999247_) - (let ((_e92049250_ - (gx#syntax-e _tl91999247_))) - (let ((_hd92039254_ + (##cdr _e94239462_)))) + (if (gx#stx-pair? _tl94219469_) + (let ((_e94269472_ + (gx#syntax-e _tl94219469_))) + (let ((_hd94259476_ (let () (declare (not safe)) - (##car _e92049250_))) - (_tl92029257_ + (##car _e94269472_))) + (_tl94249479_ (let () (declare (not safe)) - (##cdr _e92049250_)))) - (if (gx#stx-pair? _tl92029257_) - (let ((_e92079260_ + (##cdr _e94269472_)))) + (if (gx#stx-pair? _tl94249479_) + (let ((_e94299482_ (gx#syntax-e - _tl92029257_))) - (let ((_hd92069264_ + _tl94249479_))) + (let ((_hd94289486_ (let () (declare (not safe)) - (##car _e92079260_))) - (_tl92059267_ + (##car _e94299482_))) + (_tl94279489_ (let () (declare (not safe)) - (##cdr _e92079260_)))) + (##cdr _e94299482_)))) (if (gx#stx-null? - _tl92059267_) - ((lambda (_L9270_ + _tl94279489_) + ((lambda (_L9492_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L9272_ - _L9273_ - _L9274_) - (let ((__tmp10911 (gx#datum->syntax '#f 'if)) - (__tmp10865 - (let ((__tmp10908 - (let ((__tmp10910 + _L9494_ + _L9495_ + _L9496_) + (let ((__tmp10860 (gx#datum->syntax '#f 'if)) + (__tmp10814 + (let ((__tmp10857 + (let ((__tmp10859 (gx#datum->syntax '#f 'object?)) - (__tmp10909 + (__tmp10858 (let () (declare (not safe)) - (cons _L9274_ '())))) + (cons _L9496_ '())))) (declare (not safe)) - (cons __tmp10910 __tmp10909))) - (__tmp10866 - (let ((__tmp10871 - (let ((__tmp10907 + (cons __tmp10859 __tmp10858))) + (__tmp10815 + (let ((__tmp10820 + (let ((__tmp10856 (gx#datum->syntax '#f 'let)) - (__tmp10872 - (let ((__tmp10901 - (let ((__tmp10906 + (__tmp10821 + (let ((__tmp10850 + (let ((__tmp10855 (gx#datum->syntax '#f 'klass)) - (__tmp10902 - (let ((__tmp10903 + (__tmp10851 + (let ((__tmp10852 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10905 + (let ((__tmp10854 (gx#datum->syntax '#f 'object-type)) - (__tmp10904 + (__tmp10853 (let () (declare (not safe)) - (cons _L9274_ '())))) + (cons _L9496_ '())))) (declare (not safe)) - (cons __tmp10905 __tmp10904)))) + (cons __tmp10854 __tmp10853)))) (declare (not safe)) - (cons __tmp10903 '())))) + (cons __tmp10852 '())))) (declare (not safe)) - (cons __tmp10906 __tmp10902))) - (__tmp10873 - (let ((__tmp10874 - (let ((__tmp10900 (gx#datum->syntax '#f 'cond)) - (__tmp10875 - (let ((__tmp10883 - (let ((__tmp10887 - (let ((__tmp10899 + (cons __tmp10855 __tmp10851))) + (__tmp10822 + (let ((__tmp10823 + (let ((__tmp10849 (gx#datum->syntax '#f 'cond)) + (__tmp10824 + (let ((__tmp10832 + (let ((__tmp10836 + (let ((__tmp10848 (gx#datum->syntax '#f 'and)) - (__tmp10888 - (let ((__tmp10895 - (let ((__tmp10898 + (__tmp10837 + (let ((__tmp10844 + (let ((__tmp10847 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'type-descriptor?)) - (__tmp10896 - (let ((__tmp10897 (gx#datum->syntax '#f 'klass))) + (__tmp10845 + (let ((__tmp10846 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp10897 '())))) + (cons __tmp10846 '())))) (declare (not safe)) - (cons __tmp10898 __tmp10896))) - (__tmp10889 - (let ((__tmp10890 - (let ((__tmp10894 - (gx#datum->syntax '#f 'class-slot-offset)) - (__tmp10891 - (let ((__tmp10893 + (cons __tmp10847 __tmp10845))) + (__tmp10838 + (let ((__tmp10839 + (let ((__tmp10843 + (gx#datum->syntax '#f 'class-slot-offset*)) + (__tmp10840 + (let ((__tmp10842 (gx#datum->syntax '#f 'klass)) - (__tmp10892 + (__tmp10841 (let () (declare (not safe)) - (cons _L9273_ '())))) + (cons _L9495_ '())))) (declare (not safe)) - (cons __tmp10893 __tmp10892)))) + (cons __tmp10842 __tmp10841)))) (declare (not safe)) - (cons __tmp10894 __tmp10891)))) + (cons __tmp10843 __tmp10840)))) (declare (not safe)) - (cons __tmp10890 '())))) + (cons __tmp10839 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10895 - __tmp10889)))) + (cons __tmp10844 + __tmp10838)))) (declare (not safe)) - (cons __tmp10899 __tmp10888))) - (__tmp10884 - (let ((__tmp10886 + (cons __tmp10848 __tmp10837))) + (__tmp10833 + (let ((__tmp10835 (gx#datum->syntax '#f '=>)) - (__tmp10885 + (__tmp10834 (let () (declare (not safe)) - (cons _L9272_ '())))) + (cons _L9494_ '())))) (declare (not safe)) - (cons __tmp10886 __tmp10885)))) + (cons __tmp10835 __tmp10834)))) (declare (not safe)) - (cons __tmp10887 __tmp10884))) - (__tmp10876 - (let ((__tmp10877 - (let ((__tmp10882 + (cons __tmp10836 __tmp10833))) + (__tmp10825 + (let ((__tmp10826 + (let ((__tmp10831 (gx#datum->syntax '#f 'else)) - (__tmp10878 - (let ((__tmp10879 - (let ((__tmp10880 + (__tmp10827 + (let ((__tmp10828 + (let ((__tmp10829 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10881 + (let ((__tmp10830 (let () (declare (not safe)) - (cons _L9273_ '())))) + (cons _L9495_ '())))) (declare (not safe)) - (cons _L9274_ __tmp10881)))) + (cons _L9496_ __tmp10830)))) (declare (not safe)) - (cons _L9270_ __tmp10880)))) + (cons _L9492_ __tmp10829)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10879 '())))) + (cons __tmp10828 '())))) (declare (not safe)) - (cons __tmp10882 __tmp10878)))) + (cons __tmp10831 __tmp10827)))) (declare (not safe)) - (cons __tmp10877 '())))) + (cons __tmp10826 '())))) (declare (not safe)) - (cons __tmp10883 __tmp10876)))) + (cons __tmp10832 __tmp10825)))) (declare (not safe)) - (cons __tmp10900 __tmp10875)))) + (cons __tmp10849 __tmp10824)))) (declare (not safe)) - (cons __tmp10874 '())))) + (cons __tmp10823 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10901 - __tmp10873)))) + (cons __tmp10850 + __tmp10822)))) (declare (not safe)) - (cons __tmp10907 __tmp10872))) - (__tmp10867 - (let ((__tmp10868 - (let ((__tmp10869 - (let ((__tmp10870 + (cons __tmp10856 __tmp10821))) + (__tmp10816 + (let ((__tmp10817 + (let ((__tmp10818 + (let ((__tmp10819 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L9273_ '())))) + (cons _L9495_ '())))) (declare (not safe)) - (cons _L9274_ __tmp10870)))) + (cons _L9496_ __tmp10819)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L9270_ __tmp10869)))) + (cons _L9492_ __tmp10818)))) (declare (not safe)) - (cons __tmp10868 '())))) + (cons __tmp10817 '())))) (declare (not safe)) - (cons __tmp10871 __tmp10867)))) + (cons __tmp10820 __tmp10816)))) (declare (not safe)) - (cons __tmp10908 __tmp10866)))) + (cons __tmp10857 __tmp10815)))) (declare (not safe)) - (cons __tmp10911 __tmp10865))) - _hd92069264_ - _hd92039254_ - _hd92009244_ - _hd91979234_) - (_g91879213_ _g91889217_)))) + (cons __tmp10860 __tmp10814))) + _hd94289486_ + _hd94259476_ + _hd94229466_ + _hd94199456_) + (_g94099435_ _g94109439_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g91879213_ _g91889217_)))) - (_g91879213_ _g91889217_)))) - (_g91879213_ _g91889217_)))) - (_g91879213_ _g91889217_)))) - (_g91879213_ _g91889217_))))) - (_g91869297_ _$stx9183_)))) + (_g94099435_ _g94109439_)))) + (_g94099435_ _g94109439_)))) + (_g94099435_ _g94109439_)))) + (_g94099435_ _g94109439_)))) + (_g94099435_ _g94109439_))))) + (_g94089519_ _$stx9405_)))) diff --git a/src/bootstrap/gerbil/runtime/mop__rt.scm b/src/bootstrap/gerbil/runtime/mop__rt.scm index c3d0ed4e7f..f40ce8df5c 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 6d2a29d3f5..c889aa9f2d 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 1697117311) + (define gerbil/runtime/repl::timestamp 1701173280) (define replx (lambda () - (letrec ((_write-reason18218_ - (lambda (_exn18224_) - (lambda (_cont18226_ _port18227_) + (letrec ((_write-reason18167_ + (lambda (_exn18173_) + (lambda (_cont18175_ _port18176_) (let () (declare (not safe)) (##display-exception-in-context - _exn18224_ - _cont18226_ - _port18227_)) + _exn18173_ + _cont18175_ + _port18176_)) '#f)))) (with-exception-handler - (lambda (_exn18220_) - (let ((__tmp18228 - (lambda (_cont18222_) - (let ((__tmp18229 + (lambda (_exn18169_) + (let ((__tmp18177 + (lambda (_cont18171_) + (let ((__tmp18178 (let () (declare (not safe)) - (_write-reason18218_ _exn18220_)))) + (_write-reason18167_ _exn18169_)))) (declare (not safe)) - (##repl-within _cont18222_ __tmp18229 _exn18220_))))) + (##repl-within _cont18171_ __tmp18178 _exn18169_))))) (declare (not safe)) - (##continuation-capture __tmp18228))) + (##continuation-capture __tmp18177))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index d0a8665eb1..b9dfdbf0fd 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 1697117311) + (define gerbil/runtime/syntax::timestamp 1701173279) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args14782_ - (apply make-class-instance SyntaxError::t _$args14782_))) + (lambda _$args14731_ + (apply make-class-instance SyntaxError::t _$args14731_))) (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 (_self14685_ _port14686_) - (letrec ((_location14688_ + (lambda (_self14634_ _port14635_) + (letrec ((_location14637_ (lambda () - (let _lp14742_ ((_rest14744_ - (slot-ref _self14685_ 'irritants))) - (let* ((_rest1474514753_ _rest14744_) - (_else1474714761_ (lambda () '#f)) - (_K1474914770_ - (lambda (_rest14764_ _hd14765_) - (let ((_$e14767_ (__AST-source _hd14765_))) - (if _$e14767_ - _$e14767_ - (_lp14742_ _rest14764_)))))) - (if (##pair? _rest1474514753_) - (let ((_hd1475014773_ (##car _rest1474514753_)) - (_tl1475114775_ (##cdr _rest1474514753_))) - (let* ((_hd14778_ _hd1475014773_) - (_rest14780_ _tl1475114775_)) - (_K1474914770_ _rest14780_ _hd14778_))) - (_else1474714761_))))))) + (let _lp14691_ ((_rest14693_ + (slot-ref _self14634_ 'irritants))) + (let* ((_rest1469414702_ _rest14693_) + (_else1469614710_ (lambda () '#f)) + (_K1469814719_ + (lambda (_rest14713_ _hd14714_) + (let ((_$e14716_ (__AST-source _hd14714_))) + (if _$e14716_ + _$e14716_ + (_lp14691_ _rest14713_)))))) + (if (##pair? _rest1469414702_) + (let ((_hd1469914722_ (##car _rest1469414702_)) + (_tl1470014724_ (##cdr _rest1469414702_))) + (let* ((_hd14727_ _hd1469914722_) + (_rest14729_ _tl1470014724_)) + (_K1469814719_ _rest14729_ _hd14727_))) + (_else1469614710_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e14691_ (_location14688_))) - (if _$e14691_ - ((lambda (_where14694_) - (##display-locat _where14694_ '#t (current-output-port))) - _$e14691_) + (let ((_$e14640_ (_location14637_))) + (if _$e14640_ + ((lambda (_where14643_) + (##display-locat _where14643_ '#t (current-output-port))) + _$e14640_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e14696_ (slot-ref _self14685_ 'where))) - (if _$e14696_ - ((lambda (_where14699_) + (let ((_$e14645_ (slot-ref _self14634_ 'where))) + (if _$e14645_ + ((lambda (_where14648_) (displayln '" at " - _where14699_ + _where14648_ '": " - (slot-ref _self14685_ 'message))) - _$e14696_) - (displayln '": " (slot-ref _self14685_ 'message)))) - (let* ((_g1470014708_ (slot-ref _self14685_ 'irritants)) - (_else1470214716_ (lambda () '#!void)) - (_K1470414729_ - (lambda (_rest14719_ _stx14720_) + (slot-ref _self14634_ 'message))) + _$e14645_) + (displayln '": " (slot-ref _self14634_ 'message)))) + (let* ((_g1464914657_ (slot-ref _self14634_ 'irritants)) + (_else1465114665_ (lambda () '#!void)) + (_K1465314678_ + (lambda (_rest14668_ _stx14669_) (display '"... form: ") - (__pp-syntax _stx14720_) + (__pp-syntax _stx14669_) (for-each - (lambda (_detail14722_) + (lambda (_detail14671_) (display '"... detail: ") - (write (__AST->datum _detail14722_)) - (let ((_$e14724_ (__AST-source _detail14722_))) - (if _$e14724_ - ((lambda (_loc14727_) + (write (__AST->datum _detail14671_)) + (let ((_$e14673_ (__AST-source _detail14671_))) + (if _$e14673_ + ((lambda (_loc14676_) (display '" at ") (##display-locat - _loc14727_ + _loc14676_ '#t (current-output-port))) - _$e14724_) + _$e14673_) '#!void)) (newline)) - _rest14719_)))) - (if (##pair? _g1470014708_) - (let ((_hd1470514732_ (##car _g1470014708_)) - (_tl1470614734_ (##cdr _g1470014708_))) - (let* ((_stx14737_ _hd1470514732_) - (_rest14739_ _tl1470614734_)) - (_K1470414729_ _rest14739_ _stx14737_))) + _rest14668_)))) + (if (##pair? _g1464914657_) + (let ((_hd1465414681_ (##car _g1464914657_)) + (_tl1465514683_ (##cdr _g1464914657_))) + (let* ((_stx14686_ _hd1465414681_) + (_rest14688_ _tl1465514683_)) + (_K1465314678_ _rest14688_ _stx14686_))) '#!void))) current-output-port - _port14686_)))) + _port14635_)))) (bind-method! SyntaxError::t 'display-exception @@ -140,33 +140,33 @@ '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message14556_ - _irritants14557_ - _where14558_ - _context14559_ - _marks14560_ - _phi14561_) + (lambda (_message14505_ + _irritants14506_ + _where14507_ + _context14508_ + _marks14509_ + _phi14510_) (make-class-instance SyntaxError::t 'message: - _message14556_ + _message14505_ 'irritants: - _irritants14557_ + _irritants14506_ 'where: - _where14558_ + _where14507_ 'context: - _context14559_ + _context14508_ 'marks: - _marks14560_ + _marks14509_ 'phi: - _phi14561_))) + _phi14510_))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where14551_ _message14552_ _stx14553_ . _details14554_) + (lambda (_where14500_ _message14501_ _stx14502_ . _details14503_) (raise (make-syntax-error - _message14552_ - (cons _stx14553_ _details14554_) - _where14551_ + _message14501_ + (cons _stx14502_ _details14503_) + _where14500_ (__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 _$args14548_ (apply make-struct-instance AST::t _$args14548_))) + (lambda _$args14497_ (apply make-struct-instance AST::t _$args14497_))) (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 (_stx14546_) - (if (##structure-instance-of? _stx14546_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx14546_ '1 AST::t '#f) - _stx14546_))) + (lambda (_stx14495_) + (if (##structure-instance-of? _stx14495_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx14495_ '1 AST::t '#f) + _stx14495_))) (define __AST-source - (lambda (_stx14540_) - (let _lp14542_ ((_src14544_ _stx14540_)) - (if (##structure-instance-of? _src14544_ 'gerbil#AST::t) - (_lp14542_ (##unchecked-structure-ref _src14544_ '2 AST::t '#f)) - (if (##locat? _src14544_) _src14544_ '#f))))) + (lambda (_stx14489_) + (let _lp14491_ ((_src14493_ _stx14489_)) + (if (##structure-instance-of? _src14493_ 'gerbil#AST::t) + (_lp14491_ (##unchecked-structure-ref _src14493_ '2 AST::t '#f)) + (if (##locat? _src14493_) _src14493_ '#f))))) (define __AST - (lambda (_e14532_ _src-stx14533_) - (let ((_src14535_ (__AST-source _src-stx14533_))) - (if (or (##structure-instance-of? _e14532_ 'gerbil#AST::t) - (not _src14535_)) - _e14532_ - (##structure AST::t _e14532_ _src14535_))))) + (lambda (_e14481_ _src-stx14482_) + (let ((_src14484_ (__AST-source _src-stx14482_))) + (if (or (##structure-instance-of? _e14481_ 'gerbil#AST::t) + (not _src14484_)) + _e14481_ + (##structure AST::t _e14481_ _src14484_))))) (define __AST-eq? - (lambda (_stx14529_ _obj14530_) (eq? (__AST-e _stx14529_) _obj14530_))) - (define __AST-pair? (lambda (_stx14527_) (pair? (__AST-e _stx14527_)))) - (define __AST-null? (lambda (_stx14525_) (null? (__AST-e _stx14525_)))) + (lambda (_stx14478_ _obj14479_) (eq? (__AST-e _stx14478_) _obj14479_))) + (define __AST-pair? (lambda (_stx14476_) (pair? (__AST-e _stx14476_)))) + (define __AST-null? (lambda (_stx14474_) (null? (__AST-e _stx14474_)))) (define __AST-datum? - (lambda (_stx14506_) - (let* ((_e14508_ (__AST-e _stx14506_)) (_$e14510_ (number? _e14508_))) - (if _$e14510_ - _$e14510_ - (let ((_$e14513_ (string? _e14508_))) - (if _$e14513_ - _$e14513_ - (let ((_$e14516_ (char? _e14508_))) - (if _$e14516_ - _$e14516_ - (let ((_$e14519_ (keyword? _e14508_))) - (if _$e14519_ - _$e14519_ - (let ((_$e14522_ (boolean? _e14508_))) - (if _$e14522_ - _$e14522_ - (eq? _e14508_ '#!void))))))))))))) - (define __AST-id? (lambda (_stx14504_) (symbol? (__AST-e _stx14504_)))) + (lambda (_stx14455_) + (let* ((_e14457_ (__AST-e _stx14455_)) (_$e14459_ (number? _e14457_))) + (if _$e14459_ + _$e14459_ + (let ((_$e14462_ (string? _e14457_))) + (if _$e14462_ + _$e14462_ + (let ((_$e14465_ (char? _e14457_))) + (if _$e14465_ + _$e14465_ + (let ((_$e14468_ (keyword? _e14457_))) + (if _$e14468_ + _$e14468_ + (let ((_$e14471_ (boolean? _e14457_))) + (if _$e14471_ + _$e14471_ + (eq? _e14457_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx14453_) (symbol? (__AST-e _stx14453_)))) (define __AST-id-list?__% - (lambda (_stx14455_ _tail?14456_) - (let _lp14458_ ((_rest14460_ _stx14455_)) - (let* ((_$e14462_ _rest14460_) - (_$E1446414477_ + (lambda (_stx14404_ _tail?14405_) + (let _lp14407_ ((_rest14409_ _stx14404_)) + (let* ((_$e14411_ _rest14409_) + (_$E1441314426_ (lambda () - (let* ((_$E1446514472_ + (let* ((_$E1441414421_ (lambda () (__raise-syntax-error '#f - '"Bad syntax" - _$e14462_))) - (_rest14475_ _$e14462_)) - (_tail?14456_ _rest14475_))))) - (if (__AST-pair? _$e14462_) - (let* ((_$tgt1446614480_ (__AST-e _$e14462_)) - (_$hd1446714483_ (##car _$tgt1446614480_)) - (_$tl1446814486_ (##cdr _$tgt1446614480_))) - (let* ((_hd14490_ _$hd1446714483_) - (_rest14492_ _$tl1446814486_)) - (if (__AST-id? _hd14490_) (_lp14458_ _rest14492_) '#f))) - (_$E1446414477_)))))) + '"Bad syntax; malformed ast clause" + _$e14411_))) + (_rest14424_ _$e14411_)) + (_tail?14405_ _rest14424_))))) + (if (__AST-pair? _$e14411_) + (let* ((_$tgt1441514429_ (__AST-e _$e14411_)) + (_$hd1441614432_ (##car _$tgt1441514429_)) + (_$tl1441714435_ (##cdr _$tgt1441514429_))) + (let* ((_hd14439_ _$hd1441614432_) + (_rest14441_ _$tl1441714435_)) + (if (__AST-id? _hd14439_) (_lp14407_ _rest14441_) '#f))) + (_$E1441314426_)))))) (define __AST-id-list?__0 - (lambda (_stx14497_) - (let ((_tail?14499_ __AST-null?)) - (__AST-id-list?__% _stx14497_ _tail?14499_)))) + (lambda (_stx14446_) + (let ((_tail?14448_ __AST-null?)) + (__AST-id-list?__% _stx14446_ _tail?14448_)))) (define __AST-id-list? - (lambda _g14877_ - (let ((_g14876_ (##length _g14877_))) - (cond ((##fx= _g14876_ 1) - (apply (lambda (_stx14497_) (__AST-id-list?__0 _stx14497_)) - _g14877_)) - ((##fx= _g14876_ 2) - (apply (lambda (_stx14501_ _tail?14502_) - (__AST-id-list?__% _stx14501_ _tail?14502_)) - _g14877_)) + (lambda _g14826_ + (let ((_g14825_ (##length _g14826_))) + (cond ((##fx= _g14825_ 1) + (apply (lambda (_stx14446_) (__AST-id-list?__0 _stx14446_)) + _g14826_)) + ((##fx= _g14825_ 2) + (apply (lambda (_stx14450_ _tail?14451_) + (__AST-id-list?__% _stx14450_ _tail?14451_)) + _g14826_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g14877_)))))) + _g14826_)))))) (define __AST-bind-list? - (lambda (_stx14447_) + (lambda (_stx14396_) (__AST-id-list?__% - _stx14447_ - (lambda (_e14449_) - (let ((_$e14451_ (__AST-null? _e14449_))) - (if _$e14451_ _$e14451_ (__AST-id? _e14449_))))))) + _stx14396_ + (lambda (_e14398_) + (let ((_$e14400_ (__AST-null? _e14398_))) + (if _$e14400_ _$e14400_ (__AST-id? _e14398_))))))) (define __AST-list?__% - (lambda (_stx14400_ _tail?14401_) - (let _lp14403_ ((_rest14405_ _stx14400_)) - (let* ((_$e14407_ _rest14405_) - (_$E1440914422_ + (lambda (_stx14349_ _tail?14350_) + (let _lp14352_ ((_rest14354_ _stx14349_)) + (let* ((_$e14356_ _rest14354_) + (_$E1435814371_ (lambda () - (let* ((_$E1441014417_ + (let* ((_$E1435914366_ (lambda () (__raise-syntax-error '#f - '"Bad syntax" - _$e14407_))) - (_rest14420_ _$e14407_)) - (_tail?14401_ _rest14420_))))) - (if (__AST-pair? _$e14407_) - (let* ((_$tgt1441114425_ (__AST-e _$e14407_)) - (_$hd1441214428_ (##car _$tgt1441114425_)) - (_$tl1441314431_ (##cdr _$tgt1441114425_))) - (let ((_rest14435_ _$tl1441314431_)) - (_lp14403_ _rest14435_))) - (_$E1440914422_)))))) + '"Bad syntax; malformed ast clause" + _$e14356_))) + (_rest14369_ _$e14356_)) + (_tail?14350_ _rest14369_))))) + (if (__AST-pair? _$e14356_) + (let* ((_$tgt1436014374_ (__AST-e _$e14356_)) + (_$hd1436114377_ (##car _$tgt1436014374_)) + (_$tl1436214380_ (##cdr _$tgt1436014374_))) + (let ((_rest14384_ _$tl1436214380_)) + (_lp14352_ _rest14384_))) + (_$E1435814371_)))))) (define __AST-list?__0 - (lambda (_stx14440_) - (let ((_tail?14442_ __AST-null?)) - (__AST-list?__% _stx14440_ _tail?14442_)))) + (lambda (_stx14389_) + (let ((_tail?14391_ __AST-null?)) + (__AST-list?__% _stx14389_ _tail?14391_)))) (define __AST-list? - (lambda _g14879_ - (let ((_g14878_ (##length _g14879_))) - (cond ((##fx= _g14878_ 1) - (apply (lambda (_stx14440_) (__AST-list?__0 _stx14440_)) - _g14879_)) - ((##fx= _g14878_ 2) - (apply (lambda (_stx14444_ _tail?14445_) - (__AST-list?__% _stx14444_ _tail?14445_)) - _g14879_)) + (lambda _g14828_ + (let ((_g14827_ (##length _g14828_))) + (cond ((##fx= _g14827_ 1) + (apply (lambda (_stx14389_) (__AST-list?__0 _stx14389_)) + _g14828_)) + ((##fx= _g14827_ 2) + (apply (lambda (_stx14393_ _tail?14394_) + (__AST-list?__% _stx14393_ _tail?14394_)) + _g14828_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g14879_)))))) + _g14828_)))))) (define __AST->list - (lambda (_stx14365_) - (let* ((_$e14367_ _stx14365_) - (_$E1436914382_ + (lambda (_stx14314_) + (let* ((_$e14316_ _stx14314_) + (_$E1431814331_ (lambda () - (let* ((_$E1437014377_ + (let* ((_$E1431914326_ (lambda () (__raise-syntax-error '#f - '"Bad syntax" - _$e14367_))) - (_rest14380_ _$e14367_)) - (__AST-e _rest14380_))))) - (if (__AST-pair? _$e14367_) - (let* ((_$tgt1437114385_ (__AST-e _$e14367_)) - (_$hd1437214388_ (##car _$tgt1437114385_)) - (_$tl1437314391_ (##cdr _$tgt1437114385_))) - (let* ((_hd14395_ _$hd1437214388_) - (_rest14397_ _$tl1437314391_)) - (cons _hd14395_ (__AST->list _rest14397_)))) - (_$E1436914382_))))) + '"Bad syntax; malformed ast clause" + _$e14316_))) + (_rest14329_ _$e14316_)) + (__AST-e _rest14329_))))) + (if (__AST-pair? _$e14316_) + (let* ((_$tgt1432014334_ (__AST-e _$e14316_)) + (_$hd1432114337_ (##car _$tgt1432014334_)) + (_$tl1432214340_ (##cdr _$tgt1432014334_))) + (let* ((_hd14344_ _$hd1432114337_) + (_rest14346_ _$tl1432214340_)) + (cons _hd14344_ (__AST->list _rest14346_)))) + (_$E1431814331_))))) (define __AST->datum - (lambda (_stx14363_) - (if (##structure-instance-of? _stx14363_ 'gerbil#AST::t) - (__AST->datum (__AST-e _stx14363_)) - (if (pair? _stx14363_) - (cons (__AST->datum (car _stx14363_)) - (__AST->datum (cdr _stx14363_))) - (if (vector? _stx14363_) - (vector-map __AST->datum _stx14363_) - (if (box? _stx14363_) - (box (__AST->datum (unbox _stx14363_))) - _stx14363_)))))) + (lambda (_stx14312_) + (if (##structure-instance-of? _stx14312_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx14312_)) + (if (pair? _stx14312_) + (cons (__AST->datum (car _stx14312_)) + (__AST->datum (cdr _stx14312_))) + (if (vector? _stx14312_) + (vector-map __AST->datum _stx14312_) + (if (box? _stx14312_) + (box (__AST->datum (unbox _stx14312_))) + _stx14312_)))))) (define get-readenv - (lambda (_port14361_) + (lambda (_port14310_) (##make-readenv - _port14361_ + _port14310_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -355,83 +355,83 @@ '() '#f))) (define read-syntax__% - (lambda (_in14349_) - (let ((_e14351_ (##read-datum-or-eof (get-readenv _in14349_)))) - (if (eof-object? (__AST-e _e14351_)) (__AST-e _e14351_) _e14351_)))) + (lambda (_in14298_) + (let ((_e14300_ (##read-datum-or-eof (get-readenv _in14298_)))) + (if (eof-object? (__AST-e _e14300_)) (__AST-e _e14300_) _e14300_)))) (define read-syntax__0 (lambda () - (let ((_in14357_ (current-input-port))) (read-syntax__% _in14357_)))) + (let ((_in14306_ (current-input-port))) (read-syntax__% _in14306_)))) (define read-syntax - (lambda _g14881_ - (let ((_g14880_ (##length _g14881_))) - (cond ((##fx= _g14880_ 0) - (apply (lambda () (read-syntax__0)) _g14881_)) - ((##fx= _g14880_ 1) - (apply (lambda (_in14359_) (read-syntax__% _in14359_)) - _g14881_)) + (lambda _g14830_ + (let ((_g14829_ (##length _g14830_))) + (cond ((##fx= _g14829_ 0) + (apply (lambda () (read-syntax__0)) _g14830_)) + ((##fx= _g14829_ 1) + (apply (lambda (_in14308_) (read-syntax__% _in14308_)) + _g14830_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g14881_)))))) + _g14830_)))))) (define read-syntax-from-file - (lambda (_path14344_) - (let ((_r14346_ + (lambda (_path14293_) + (let ((_r14295_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path14344_) + (path-normalize _path14293_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r14346_) - (cdr (__AST-e (vector-ref _r14346_ '1))) - (error (err-code->string _r14346_) _path14344_))))) + (if (vector? _r14295_) + (cdr (__AST-e (vector-ref _r14295_ '1))) + (error (err-code->string _r14295_) _path14293_))))) (define __wrap-syntax - (lambda (_re14341_ _e14342_) - (if (eof-object? _e14342_) - _e14342_ - (##structure AST::t _e14342_ (##readenv->locat _re14341_))))) - (define __unwrap-syntax (lambda (_re14338_ _e14339_) (__AST-e _e14339_))) - (define __pp-syntax (lambda (_stx14336_) (pp (__AST->datum _stx14336_)))) + (lambda (_re14290_ _e14291_) + (if (eof-object? _e14291_) + _e14291_ + (##structure AST::t _e14291_ (##readenv->locat _re14290_))))) + (define __unwrap-syntax (lambda (_re14287_ _e14288_) (__AST-e _e14288_))) + (define __pp-syntax (lambda (_stx14285_) (pp (__AST->datum _stx14285_)))) (define __make-readtable (lambda () - (let ((_rt14334_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _rt14334_ '#t) - (macro-readtable-bracket-handler-set! _rt14334_ '@list) - (macro-readtable-brace-handler-set! _rt14334_ '@method) + (let ((_rt14283_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt14283_ '#t) + (macro-readtable-bracket-handler-set! _rt14283_ '@list) + (macro-readtable-brace-handler-set! _rt14283_ '@method) (##readtable-char-sharp-handler-set! - _rt14334_ + _rt14283_ '#\! __read-sharp-bang) - _rt14334_))) + _rt14283_))) (define __readtable-bracket-keyword-set! - (lambda (_rt14330_ _kw14331_) - (macro-readtable-bracket-handler-set! _rt14330_ _kw14331_))) + (lambda (_rt14279_ _kw14280_) + (macro-readtable-bracket-handler-set! _rt14279_ _kw14280_))) (define __readtable-brace-keyword-set! - (lambda (_rt14327_ _kw14328_) - (macro-readtable-brace-handler-set! _rt14327_ _kw14328_))) + (lambda (_rt14276_ _kw14277_) + (macro-readtable-brace-handler-set! _rt14276_ _kw14277_))) (define __read-sharp-bang - (lambda (_re14318_ _next14319_ _start-pos14320_) - (if (eq? _start-pos14320_ '0) - (let* ((_line14322_ + (lambda (_re14267_ _next14268_ _start-pos14269_) + (if (eq? _start-pos14269_ '0) + (let* ((_line14271_ (##read-line - (macro-readenv-port _re14318_) + (macro-readenv-port _re14267_) '#\newline '#f ##max-fixnum)) - (_script-line14324_ - (substring _line14322_ '1 (string-length _line14322_)))) - (macro-readenv-script-line-set! _re14318_ _script-line14324_) + (_script-line14273_ + (substring _line14271_ '1 (string-length _line14271_)))) + (macro-readenv-script-line-set! _re14267_ _script-line14273_) (##script-marker)) - (##read-sharp-bang _re14318_ _next14319_ _start-pos14320_)))) + (##read-sharp-bang _re14267_ _next14268_ _start-pos14269_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj14316_) - (if (source-location? _obj14316_) - (string? (##locat-container _obj14316_)) + (lambda (_obj14265_) + (if (source-location? _obj14265_) + (string? (##locat-container _obj14265_)) '#f))) (define source-location-path - (lambda (_obj14314_) - (if (##locat? _obj14314_) - (##container->path (##locat-container _obj14314_)) + (lambda (_obj14263_) + (if (##locat? _obj14263_) + (##container->path (##locat-container _obj14263_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__1.scm b/src/bootstrap/gerbil/runtime/syntax__1.scm index 75d422d2cf..191ca1d23a 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]#_g14986_| + (define |[1]#_g14935_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g14992_| + (define |[1]#_g14941_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g15005_| + (define |[1]#_g14954_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15007_| + (define |[1]#_g14956_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15009_| + (define |[1]#_g14958_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15011_| + (define |[1]#_g14960_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15013_| + (define |[1]#_g14962_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15015_| + (define |[1]#_g14964_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15023_| + (define |[1]#_g14972_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g15025_| + (define |[1]#_g14974_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g15027_| + (define |[1]#_g14976_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g15029_| + (define |[1]#_g14978_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g15031_| + (define |[1]#_g14980_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g15033_| + (define |[1]#_g14982_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g15035_| + (define |[1]#_g14984_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g15037_| + (define |[1]#_g14986_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g15041_| + (define |[1]#_g14990_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g15042_| + (define |[1]#_g14991_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g15043_| + (define |[1]#_g14992_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g15052_| + (define |[1]#_g15001_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15054_| + (define |[1]#_g15003_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15058_| + (define |[1]#_g15007_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g15060_| + (define |[1]#_g15009_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g15062_| + (define |[1]#_g15011_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g15064_| + (define |[1]#_g15013_| (##structure gx#syntax-quote::t 'make-AST @@ -177,1247 +177,1254 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx13203_) - (let* ((_g1320713231_ - (lambda (_g1320813227_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1320813227_))) - (_g1320613317_ - (lambda (_g1320813235_) - (if (gx#stx-pair? _g1320813235_) - (let ((_e1321313238_ (gx#syntax-e _g1320813235_))) - (let ((_hd1321213242_ + (lambda (_$stx13152_) + (let* ((_g1315613180_ + (lambda (_g1315713176_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1315713176_))) + (_g1315513266_ + (lambda (_g1315713184_) + (if (gx#stx-pair? _g1315713184_) + (let ((_e1316213187_ (gx#syntax-e _g1315713184_))) + (let ((_hd1316113191_ (let () (declare (not safe)) - (##car _e1321313238_))) - (_tl1321113245_ + (##car _e1316213187_))) + (_tl1316013194_ (let () (declare (not safe)) - (##cdr _e1321313238_)))) - (if (gx#stx-pair? _tl1321113245_) - (let ((_e1321613248_ - (gx#syntax-e _tl1321113245_))) - (let ((_hd1321513252_ + (##cdr _e1316213187_)))) + (if (gx#stx-pair? _tl1316013194_) + (let ((_e1316513197_ + (gx#syntax-e _tl1316013194_))) + (let ((_hd1316413201_ (let () (declare (not safe)) - (##car _e1321613248_))) - (_tl1321413255_ + (##car _e1316513197_))) + (_tl1316313204_ (let () (declare (not safe)) - (##cdr _e1321613248_)))) - (if (gx#stx-pair/null? _tl1321413255_) - (let ((_g14882_ + (##cdr _e1316513197_)))) + (if (gx#stx-pair/null? _tl1316313204_) + (let ((_g14831_ (gx#syntax-split-splice - _tl1321413255_ + _tl1316313204_ '0))) (begin - (let ((_g14883_ + (let ((_g14832_ (let () (declare (not safe)) - (if (##values? _g14882_) + (if (##values? _g14831_) (##vector-length - _g14882_) + _g14831_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g14883_ 2))) + (##fx= _g14832_ 2))) (error "Context expects 2 values" - _g14883_))) - (let ((_target1321713258_ + _g14832_))) + (let ((_target1316613207_ (let () (declare (not safe)) - (##vector-ref _g14882_ 0))) - (_tl1321913261_ + (##vector-ref _g14831_ 0))) + (_tl1316813210_ (let () (declare (not safe)) - (##vector-ref _g14882_ 1)))) - (if (gx#stx-null? _tl1321913261_) - (letrec ((_loop1322013264_ - (lambda (_hd1321813268_ + (##vector-ref _g14831_ 1)))) + (if (gx#stx-null? _tl1316813210_) + (letrec ((_loop1316913213_ + (lambda (_hd1316713217_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body1322413271_) - (if (gx#stx-pair? _hd1321813268_) - (let ((_e1322113274_ (gx#syntax-e _hd1321813268_))) - (let ((_lp-hd1322213278_ + _body1317313220_) + (if (gx#stx-pair? _hd1316713217_) + (let ((_e1317013223_ (gx#syntax-e _hd1316713217_))) + (let ((_lp-hd1317113227_ (let () (declare (not safe)) - (##car _e1322113274_))) - (_lp-tl1322313281_ + (##car _e1317013223_))) + (_lp-tl1317213230_ (let () (declare (not safe)) - (##cdr _e1322113274_)))) - (_loop1322013264_ - _lp-tl1322313281_ + (##cdr _e1317013223_)))) + (_loop1316913213_ + _lp-tl1317213230_ (let () (declare (not safe)) - (cons _lp-hd1322213278_ _body1322413271_))))) - (let ((_body1322513284_ (reverse _body1322413271_))) - ((lambda (_L13288_ _L13290_) - (let ((__tmp14895 (gx#datum->syntax '#f 'let)) - (__tmp14884 - (let ((__tmp14892 - (let ((__tmp14894 + (cons _lp-hd1317113227_ _body1317313220_))))) + (let ((_body1317413233_ (reverse _body1317313220_))) + ((lambda (_L13237_ _L13239_) + (let ((__tmp14844 (gx#datum->syntax '#f 'let)) + (__tmp14833 + (let ((__tmp14841 + (let ((__tmp14843 (gx#datum->syntax '#f '$e)) - (__tmp14893 + (__tmp14842 (let () (declare (not safe)) - (cons _L13290_ '())))) + (cons _L13239_ '())))) (declare (not safe)) - (cons __tmp14894 __tmp14893))) - (__tmp14885 - (let ((__tmp14886 - (let ((__tmp14891 + (cons __tmp14843 __tmp14842))) + (__tmp14834 + (let ((__tmp14835 + (let ((__tmp14840 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp14887 - (let ((__tmp14890 + (__tmp14836 + (let ((__tmp14839 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp14888 - (let ((__tmp14889 - (lambda (_g1330813311_ _g1330913314_) + (__tmp14837 + (let ((__tmp14838 + (lambda (_g1325713260_ _g1325813263_) (let () (declare (not safe)) - (cons _g1330813311_ _g1330913314_))))) + (cons _g1325713260_ _g1325813263_))))) (declare (not safe)) - (foldr1 __tmp14889 '() _L13288_)))) + (foldr1 __tmp14838 '() _L13237_)))) (declare (not safe)) - (cons __tmp14890 __tmp14888)))) + (cons __tmp14839 __tmp14837)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14891 - __tmp14887)))) + (cons __tmp14840 + __tmp14836)))) (declare (not safe)) - (cons __tmp14886 '())))) + (cons __tmp14835 '())))) (declare (not safe)) - (cons __tmp14892 __tmp14885)))) + (cons __tmp14841 __tmp14834)))) (declare (not safe)) - (cons __tmp14895 __tmp14884))) - _body1322513284_ - _hd1321513252_)))))) + (cons __tmp14844 __tmp14833))) + _body1317413233_ + _hd1316413201_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1322013264_ - _target1321713258_ + (_loop1316913213_ + _target1316613207_ '())) - (_g1320713231_ - _g1320813235_))))) - (_g1320713231_ _g1320813235_)))) - (_g1320713231_ _g1320813235_)))) - (_g1320713231_ _g1320813235_))))) - (_g1320613317_ _$stx13203_)))) + (_g1315613180_ + _g1315713184_))))) + (_g1315613180_ _g1315713184_)))) + (_g1315613180_ _g1315713184_)))) + (_g1315613180_ _g1315713184_))))) + (_g1315513266_ _$stx13152_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx13322_) - (letrec ((_generate113325_ - (lambda (_hd13866_ _tgt13868_ _K13869_ _E13870_ _kws13871_) - (let* ((_g1387313881_ - (lambda (_g1387413877_) + (lambda (_stx13271_) + (letrec ((_generate113274_ + (lambda (_hd13815_ _tgt13817_ _K13818_ _E13819_ _kws13820_) + (let* ((_g1382213830_ + (lambda (_g1382313826_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1387413877_))) - (_g1387214308_ - (lambda (_g1387413885_) - ((lambda (_L13888_) + '"Bad syntax; invalid match target" + _g1382313826_))) + (_g1382114257_ + (lambda (_g1382313834_) + ((lambda (_L13837_) (let () - (let* ((___stx1478514786_ _hd13866_) - (_g1390213916_ + (let* ((___stx1473414735_ _hd13815_) + (_g1385113865_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx1478514786_)))) - (let ((___kont1478814789_ - (lambda (_L14130_ _L14132_) - (let* ((_g1414314151_ - (lambda (_g1414414147_) + '"Bad syntax; invalid match target" + ___stx1473414735_)))) + (let ((___kont1473714738_ + (lambda (_L14079_ _L14081_) + (let* ((_g1409214100_ + (lambda (_g1409314096_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1414414147_))) - (_g1414214300_ - (lambda (_g1414414155_) - ((lambda (_L14158_) + '"Bad syntax; invalid match target" + _g1409314096_))) + (_g1409114249_ + (lambda (_g1409314104_) + ((lambda (_L14107_) (let () - (let* ((_g1417014178_ + (let* ((_g1411914127_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1417114174_) + (lambda (_g1412014123_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1417114174_))) - (_g1416914296_ - (lambda (_g1417114182_) - ((lambda (_L14185_) + '"Bad syntax; invalid match target" + _g1412014123_))) + (_g1411814245_ + (lambda (_g1412014131_) + ((lambda (_L14134_) (let () - (let* ((_g1419814206_ - (lambda (_g1419914202_) + (let* ((_g1414714155_ + (lambda (_g1414814151_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1419914202_))) - (_g1419714292_ - (lambda (_g1419914210_) - ((lambda (_L14213_) + '"Bad syntax; invalid match target" + _g1414814151_))) + (_g1414614241_ + (lambda (_g1414814159_) + ((lambda (_L14162_) (let () - (let* ((_g1422614234_ - (lambda (_g1422714230_) + (let* ((_g1417514183_ + (lambda (_g1417614179_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1422714230_))) - (_g1422514288_ - (lambda (_g1422714238_) - ((lambda (_L14241_) + '"Bad syntax; invalid match target" + _g1417614179_))) + (_g1417414237_ + (lambda (_g1417614187_) + ((lambda (_L14190_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g1425414262_ - (lambda (_g1425514258_) + (let* ((_g1420314211_ + (lambda (_g1420414207_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1425514258_))) - (_g1425314284_ - (lambda (_g1425514266_) - ((lambda (_L14269_) + '"Bad syntax; invalid match target" + _g1420414207_))) + (_g1420214233_ + (lambda (_g1420414215_) + ((lambda (_L14218_) (let () (let () - (let ((__tmp14924 + (let ((__tmp14873 (gx#datum->syntax '#f 'if)) - (__tmp14896 - (let ((__tmp14921 - (let ((__tmp14923 + (__tmp14845 + (let ((__tmp14870 + (let ((__tmp14872 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp14922 - (let () (declare (not safe)) (cons _L13888_ '())))) + (__tmp14871 + (let () (declare (not safe)) (cons _L13837_ '())))) (declare (not safe)) - (cons __tmp14923 __tmp14922))) - (__tmp14897 - (let ((__tmp14899 - (let ((__tmp14920 (gx#datum->syntax '#f 'let*)) - (__tmp14900 - (let ((__tmp14902 - (let ((__tmp14915 - (let ((__tmp14916 - (let ((__tmp14917 - (let ((__tmp14919 + (cons __tmp14872 __tmp14871))) + (__tmp14846 + (let ((__tmp14848 + (let ((__tmp14869 (gx#datum->syntax '#f 'let*)) + (__tmp14849 + (let ((__tmp14851 + (let ((__tmp14864 + (let ((__tmp14865 + (let ((__tmp14866 + (let ((__tmp14868 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp14918 - (let () (declare (not safe)) (cons _L13888_ '())))) + (__tmp14867 + (let () (declare (not safe)) (cons _L13837_ '())))) (declare (not safe)) - (cons __tmp14919 __tmp14918)))) + (cons __tmp14868 __tmp14867)))) (declare (not safe)) - (cons __tmp14917 '())))) + (cons __tmp14866 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L14158_ __tmp14916))) - (__tmp14903 - (let ((__tmp14910 - (let ((__tmp14911 - (let ((__tmp14912 + (cons _L14107_ __tmp14865))) + (__tmp14852 + (let ((__tmp14859 + (let ((__tmp14860 + (let ((__tmp14861 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14914 (gx#datum->syntax '#f '##car)) - (__tmp14913 + (let ((__tmp14863 (gx#datum->syntax '#f '##car)) + (__tmp14862 (let () (declare (not safe)) - (cons _L14158_ '())))) + (cons _L14107_ '())))) (declare (not safe)) - (cons __tmp14914 __tmp14913)))) + (cons __tmp14863 __tmp14862)))) (declare (not safe)) - (cons __tmp14912 '())))) + (cons __tmp14861 '())))) (declare (not safe)) - (cons _L14185_ __tmp14911))) + (cons _L14134_ __tmp14860))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp14904 - (let ((__tmp14905 - (let ((__tmp14906 + (__tmp14853 + (let ((__tmp14854 + (let ((__tmp14855 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14907 - (let ((__tmp14909 + (let ((__tmp14856 + (let ((__tmp14858 (gx#datum->syntax '#f '##cdr)) - (__tmp14908 + (__tmp14857 (let () (declare (not safe)) - (cons _L14158_ '())))) + (cons _L14107_ '())))) (declare (not safe)) - (cons __tmp14909 __tmp14908)))) + (cons __tmp14858 __tmp14857)))) (declare (not safe)) - (cons __tmp14907 '())))) + (cons __tmp14856 '())))) (declare (not safe)) - (cons _L14213_ __tmp14906)))) + (cons _L14162_ __tmp14855)))) (declare (not safe)) - (cons __tmp14905 '())))) + (cons __tmp14854 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14910 __tmp14904)))) + (cons __tmp14859 __tmp14853)))) (declare (not safe)) - (cons __tmp14915 __tmp14903))) - (__tmp14901 + (cons __tmp14864 __tmp14852))) + (__tmp14850 (let () (declare (not safe)) - (cons _L14241_ '())))) + (cons _L14190_ '())))) (declare (not safe)) - (cons __tmp14902 __tmp14901)))) + (cons __tmp14851 __tmp14850)))) (declare (not safe)) - (cons __tmp14920 __tmp14900))) - (__tmp14898 - (let () (declare (not safe)) (cons _L14269_ '())))) + (cons __tmp14869 __tmp14849))) + (__tmp14847 + (let () (declare (not safe)) (cons _L14218_ '())))) (declare (not safe)) - (cons __tmp14899 __tmp14898)))) + (cons __tmp14848 __tmp14847)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14921 - __tmp14897)))) + (cons __tmp14870 + __tmp14846)))) (declare (not safe)) - (cons __tmp14924 __tmp14896))))) - _g1425514266_)))) - (_g1425314284_ _E13870_)))) - _g1422714238_)))) + (cons __tmp14873 __tmp14845))))) + _g1420414215_)))) + (_g1420214233_ _E13819_)))) + _g1417614187_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1422514288_ - (_generate113325_ - _L14132_ - _L14185_ - (_generate113325_ - _L14130_ - _L14213_ - _K13869_ - _E13870_ - _kws13871_) - _E13870_ - _kws13871_))))) - _g1419914210_)))) - (_g1419714292_ (gx#genident '$tl))))) - _g1417114182_)))) - (_g1416914296_ (gx#genident '$hd))))) - _g1414414155_)))) + (_g1417414237_ + (_generate113274_ + _L14081_ + _L14134_ + (_generate113274_ + _L14079_ + _L14162_ + _K13818_ + _E13819_ + _kws13820_) + _E13819_ + _kws13820_))))) + _g1414814159_)))) + (_g1414614241_ (gx#genident '$tl))))) + _g1412014131_)))) + (_g1411814245_ (gx#genident '$hd))))) + _g1409314104_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1414214300_ + (_g1409114249_ (gx#genident '$tgt))))) - (___kont1479014791_ - (lambda (_L14005_) - (if (gx#underscore? _L14005_) - _K13869_ - (if (let ((__tmp14953 - (lambda (_g1401314015_) + (___kont1473914740_ + (lambda (_L13954_) + (if (gx#underscore? _L13954_) + _K13818_ + (if (let ((__tmp14902 + (lambda (_g1396213964_) (gx#bound-identifier=? - _g1401314015_ - _L14005_))) - (__tmp14952 + _g1396213964_ + _L13954_))) + (__tmp14901 (gx#syntax->list - _kws13871_))) + _kws13820_))) (declare (not safe)) - (find __tmp14953 - __tmp14952)) - (let* ((_g1401914034_ - (lambda (_g1402014030_) + (find __tmp14902 + __tmp14901)) + (let* ((_g1396813983_ + (lambda (_g1396913979_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - '"Bad syntax" - _g1402014030_))) - (_g1401814079_ - (lambda (_g1402014038_) - (if (gx#stx-pair? _g1402014038_) - (let ((_e1402514041_ (gx#syntax-e _g1402014038_))) - (let ((_hd1402414045_ + '"Bad syntax; invalid match target" + _g1396913979_))) + (_g1396714028_ + (lambda (_g1396913987_) + (if (gx#stx-pair? _g1396913987_) + (let ((_e1397413990_ (gx#syntax-e _g1396913987_))) + (let ((_hd1397313994_ (let () (declare (not safe)) - (##car _e1402514041_))) - (_tl1402314048_ + (##car _e1397413990_))) + (_tl1397213997_ (let () (declare (not safe)) - (##cdr _e1402514041_)))) - (if (gx#stx-pair? _tl1402314048_) - (let ((_e1402814051_ - (gx#syntax-e _tl1402314048_))) - (let ((_hd1402714055_ + (##cdr _e1397413990_)))) + (if (gx#stx-pair? _tl1397213997_) + (let ((_e1397714000_ + (gx#syntax-e _tl1397213997_))) + (let ((_hd1397614004_ (let () (declare (not safe)) - (##car _e1402814051_))) - (_tl1402614058_ + (##car _e1397714000_))) + (_tl1397514007_ (let () (declare (not safe)) - (##cdr _e1402814051_)))) - (if (gx#stx-null? _tl1402614058_) - ((lambda (_L14061_ _L14063_) + (##cdr _e1397714000_)))) + (if (gx#stx-null? _tl1397514007_) + ((lambda (_L14010_ _L14012_) (let () - (let ((__tmp14951 + (let ((__tmp14900 (gx#datum->syntax '#f 'if)) - (__tmp14931 - (let ((__tmp14934 - (let ((__tmp14950 + (__tmp14880 + (let ((__tmp14883 + (let ((__tmp14899 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp14935 - (let ((__tmp14947 - (let ((__tmp14949 + (__tmp14884 + (let ((__tmp14896 + (let ((__tmp14898 (gx#datum->syntax '#f '__AST-id?)) - (__tmp14948 + (__tmp14897 (let () (declare (not safe)) - (cons _L13888_ '())))) + (cons _L13837_ '())))) (declare (not safe)) - (cons __tmp14949 __tmp14948))) - (__tmp14936 - (let ((__tmp14937 - (let ((__tmp14946 + (cons __tmp14898 __tmp14897))) + (__tmp14885 + (let ((__tmp14886 + (let ((__tmp14895 (gx#datum->syntax '#f 'eq?)) - (__tmp14938 - (let ((__tmp14943 - (let ((__tmp14945 + (__tmp14887 + (let ((__tmp14892 + (let ((__tmp14894 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp14944 - (let () (declare (not safe)) (cons _L13888_ '())))) + (__tmp14893 + (let () (declare (not safe)) (cons _L13837_ '())))) (declare (not safe)) - (cons __tmp14945 __tmp14944))) - (__tmp14939 - (let ((__tmp14940 - (let ((__tmp14942 (gx#datum->syntax '#f 'quote)) - (__tmp14941 + (cons __tmp14894 __tmp14893))) + (__tmp14888 + (let ((__tmp14889 + (let ((__tmp14891 (gx#datum->syntax '#f 'quote)) + (__tmp14890 (let () (declare (not safe)) - (cons _L14005_ '())))) + (cons _L13954_ '())))) (declare (not safe)) - (cons __tmp14942 __tmp14941)))) + (cons __tmp14891 __tmp14890)))) (declare (not safe)) - (cons __tmp14940 '())))) + (cons __tmp14889 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14943 - __tmp14939)))) + (cons __tmp14892 + __tmp14888)))) (declare (not safe)) - (cons __tmp14946 __tmp14938)))) + (cons __tmp14895 __tmp14887)))) (declare (not safe)) - (cons __tmp14937 '())))) + (cons __tmp14886 '())))) (declare (not safe)) - (cons __tmp14947 __tmp14936)))) + (cons __tmp14896 __tmp14885)))) (declare (not safe)) - (cons __tmp14950 __tmp14935))) - (__tmp14932 - (let ((__tmp14933 + (cons __tmp14899 __tmp14884))) + (__tmp14881 + (let ((__tmp14882 (let () (declare (not safe)) - (cons _L14061_ '())))) + (cons _L14010_ '())))) (declare (not safe)) - (cons _L14063_ __tmp14933)))) + (cons _L14012_ __tmp14882)))) (declare (not safe)) - (cons __tmp14934 __tmp14932)))) + (cons __tmp14883 __tmp14881)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14951 - __tmp14931)))) - _hd1402714055_ - _hd1402414045_) - (_g1401914034_ _g1402014038_)))) - (_g1401914034_ _g1402014038_)))) - (_g1401914034_ _g1402014038_))))) - (_g1401814079_ (list _K13869_ _E13870_))) - (let* ((_g1408314091_ - (lambda (_g1408414087_) + (cons __tmp14900 + __tmp14880)))) + _hd1397614004_ + _hd1397313994_) + (_g1396813983_ _g1396913987_)))) + (_g1396813983_ _g1396913987_)))) + (_g1396813983_ _g1396913987_))))) + (_g1396714028_ (list _K13818_ _E13819_))) + (let* ((_g1403214040_ + (lambda (_g1403314036_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1408414087_))) - (_g1408214109_ - (lambda (_g1408414095_) - ((lambda (_L14098_) + '"Bad syntax; invalid match target" + _g1403314036_))) + (_g1403114058_ + (lambda (_g1403314044_) + ((lambda (_L14047_) (let () - (let ((__tmp14930 (gx#datum->syntax '#f 'let)) - (__tmp14925 - (let ((__tmp14927 - (let ((__tmp14928 - (let ((__tmp14929 + (let ((__tmp14879 (gx#datum->syntax '#f 'let)) + (__tmp14874 + (let ((__tmp14876 + (let ((__tmp14877 + (let ((__tmp14878 (let () (declare (not safe)) - (cons _L13888_ + (cons _L13837_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L14005_ - __tmp14929)))) + (cons _L13954_ + __tmp14878)))) (declare (not safe)) - (cons __tmp14928 '()))) - (__tmp14926 + (cons __tmp14877 '()))) + (__tmp14875 (let () (declare (not safe)) - (cons _L14098_ '())))) + (cons _L14047_ '())))) (declare (not safe)) - (cons __tmp14927 __tmp14926)))) + (cons __tmp14876 __tmp14875)))) (declare (not safe)) - (cons __tmp14930 __tmp14925)))) - _g1408414095_)))) - (_g1408214109_ _K13869_)))))) + (cons __tmp14879 __tmp14874)))) + _g1403314044_)))) + (_g1403114058_ _K13818_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1479214793_ - (lambda (_L13923_) - (let* ((_g1393413949_ - (lambda (_g1393513945_) + (___kont1474114742_ + (lambda (_L13872_) + (let* ((_g1388313898_ + (lambda (_g1388413894_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1393513945_))) - (_g1393313994_ - (lambda (_g1393513953_) + '"Bad syntax; invalid match target" + _g1388413894_))) + (_g1388213943_ + (lambda (_g1388413902_) (if (gx#stx-pair? - _g1393513953_) - (let ((_e1394013956_ + _g1388413902_) + (let ((_e1388913905_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1393513953_))) - (let ((_hd1393913960_ + (gx#syntax-e _g1388413902_))) + (let ((_hd1388813909_ (let () (declare (not safe)) - (##car _e1394013956_))) - (_tl1393813963_ + (##car _e1388913905_))) + (_tl1388713912_ (let () (declare (not safe)) - (##cdr _e1394013956_)))) - (if (gx#stx-pair? _tl1393813963_) - (let ((_e1394313966_ (gx#syntax-e _tl1393813963_))) - (let ((_hd1394213970_ + (##cdr _e1388913905_)))) + (if (gx#stx-pair? _tl1388713912_) + (let ((_e1389213915_ (gx#syntax-e _tl1388713912_))) + (let ((_hd1389113919_ (let () (declare (not safe)) - (##car _e1394313966_))) - (_tl1394113973_ + (##car _e1389213915_))) + (_tl1389013922_ (let () (declare (not safe)) - (##cdr _e1394313966_)))) - (if (gx#stx-null? _tl1394113973_) - ((lambda (_L13976_ _L13978_) + (##cdr _e1389213915_)))) + (if (gx#stx-null? _tl1389013922_) + ((lambda (_L13925_ _L13927_) (let () - (let ((__tmp14967 + (let ((__tmp14916 (gx#datum->syntax '#f 'if)) - (__tmp14954 - (let ((__tmp14957 - (let ((__tmp14966 + (__tmp14903 + (let ((__tmp14906 + (let ((__tmp14915 (gx#datum->syntax '#f 'equal?)) - (__tmp14958 - (let ((__tmp14963 + (__tmp14907 + (let ((__tmp14912 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14965 (gx#datum->syntax '#f '__AST-e)) - (__tmp14964 + (let ((__tmp14914 (gx#datum->syntax '#f '__AST-e)) + (__tmp14913 (let () (declare (not safe)) - (cons _L13888_ '())))) + (cons _L13837_ '())))) (declare (not safe)) - (cons __tmp14965 __tmp14964))) - (__tmp14959 - (let ((__tmp14960 - (let ((__tmp14962 + (cons __tmp14914 __tmp14913))) + (__tmp14908 + (let ((__tmp14909 + (let ((__tmp14911 (gx#datum->syntax '#f 'quote)) - (__tmp14961 + (__tmp14910 (let () (declare (not safe)) - (cons _L13923_ '())))) + (cons _L13872_ '())))) (declare (not safe)) - (cons __tmp14962 __tmp14961)))) + (cons __tmp14911 __tmp14910)))) (declare (not safe)) - (cons __tmp14960 '())))) + (cons __tmp14909 '())))) (declare (not safe)) - (cons __tmp14963 __tmp14959)))) + (cons __tmp14912 __tmp14908)))) (declare (not safe)) - (cons __tmp14966 __tmp14958))) - (__tmp14955 - (let ((__tmp14956 - (let () (declare (not safe)) (cons _L13976_ '())))) + (cons __tmp14915 __tmp14907))) + (__tmp14904 + (let ((__tmp14905 + (let () (declare (not safe)) (cons _L13925_ '())))) (declare (not safe)) - (cons _L13978_ __tmp14956)))) + (cons _L13927_ __tmp14905)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14957 - __tmp14955)))) + (cons __tmp14906 + __tmp14904)))) (declare (not safe)) - (cons __tmp14967 __tmp14954)))) - _hd1394213970_ - _hd1393913960_) - (_g1393413949_ _g1393513953_)))) - (_g1393413949_ _g1393513953_)))) - (_g1393413949_ _g1393513953_))))) + (cons __tmp14916 __tmp14903)))) + _hd1389113919_ + _hd1388813909_) + (_g1388313898_ _g1388413902_)))) + (_g1388313898_ _g1388413902_)))) + (_g1388313898_ _g1388413902_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1393313994_ - (list _K13869_ _E13870_)))))) - (let ((_g1390014113_ + (_g1388213943_ + (list _K13818_ _E13819_)))))) + (let ((_g1384914062_ (lambda () - (let ((_L14005_ - ___stx1478514786_)) - (if (gx#identifier? _L14005_) - (___kont1479014791_ - _L14005_) - (___kont1479214793_ - ___stx1478514786_)))))) - (if (gx#stx-pair? ___stx1478514786_) - (let ((_e1390814120_ + (let ((_L13954_ + ___stx1473414735_)) + (if (gx#identifier? _L13954_) + (___kont1473914740_ + _L13954_) + (___kont1474114742_ + ___stx1473414735_)))))) + (if (gx#stx-pair? ___stx1473414735_) + (let ((_e1385714069_ (gx#syntax-e - ___stx1478514786_))) - (let ((_tl1390614127_ + ___stx1473414735_))) + (let ((_tl1385514076_ (let () (declare (not safe)) - (##cdr _e1390814120_))) - (_hd1390714124_ + (##cdr _e1385714069_))) + (_hd1385614073_ (let () (declare (not safe)) - (##car _e1390814120_)))) - (___kont1478814789_ - _tl1390614127_ - _hd1390714124_))) + (##car _e1385714069_)))) + (___kont1473714738_ + _tl1385514076_ + _hd1385614073_))) (let () (declare (not safe)) - (_g1390014113_)))))))) - _g1387413885_)))) - (_g1387214308_ _tgt13868_))))) - (let* ((_g1332813356_ - (lambda (_g1332913352_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1332913352_))) - (_g1332713862_ - (lambda (_g1332913360_) - (if (gx#stx-pair? _g1332913360_) - (let ((_e1333513363_ (gx#syntax-e _g1332913360_))) - (let ((_hd1333413367_ + (_g1384914062_)))))))) + _g1382313834_)))) + (_g1382114257_ _tgt13817_))))) + (let* ((_g1327713305_ + (lambda (_g1327813301_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1327813301_))) + (_g1327613811_ + (lambda (_g1327813309_) + (if (gx#stx-pair? _g1327813309_) + (let ((_e1328413312_ (gx#syntax-e _g1327813309_))) + (let ((_hd1328313316_ (let () (declare (not safe)) - (##car _e1333513363_))) - (_tl1333313370_ + (##car _e1328413312_))) + (_tl1328213319_ (let () (declare (not safe)) - (##cdr _e1333513363_)))) - (if (gx#stx-pair? _tl1333313370_) - (let ((_e1333813373_ - (gx#syntax-e _tl1333313370_))) - (let ((_hd1333713377_ + (##cdr _e1328413312_)))) + (if (gx#stx-pair? _tl1328213319_) + (let ((_e1328713322_ + (gx#syntax-e _tl1328213319_))) + (let ((_hd1328613326_ (let () (declare (not safe)) - (##car _e1333813373_))) - (_tl1333613380_ + (##car _e1328713322_))) + (_tl1328513329_ (let () (declare (not safe)) - (##cdr _e1333813373_)))) - (if (gx#stx-pair? _tl1333613380_) - (let ((_e1334113383_ - (gx#syntax-e _tl1333613380_))) - (let ((_hd1334013387_ + (##cdr _e1328713322_)))) + (if (gx#stx-pair? _tl1328513329_) + (let ((_e1329013332_ + (gx#syntax-e _tl1328513329_))) + (let ((_hd1328913336_ (let () (declare (not safe)) - (##car _e1334113383_))) - (_tl1333913390_ + (##car _e1329013332_))) + (_tl1328813339_ (let () (declare (not safe)) - (##cdr _e1334113383_)))) + (##cdr _e1329013332_)))) (if (gx#stx-pair/null? - _tl1333913390_) - (let ((_g14968_ + _tl1328813339_) + (let ((_g14917_ (gx#syntax-split-splice - _tl1333913390_ + _tl1328813339_ '0))) (begin - (let ((_g14969_ + (let ((_g14918_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g14968_) - (##vector-length _g14968_) + _g14917_) + (##vector-length _g14917_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g14969_ 2))) - (error "Context expects 2 values" _g14969_))) + (if (not (let () (declare (not safe)) (##fx= _g14918_ 2))) + (error "Context expects 2 values" _g14918_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1334213393_ + (let ((_target1329113342_ (let () (declare (not safe)) (##vector-ref - _g14968_ + _g14917_ 0))) - (_tl1334413396_ + (_tl1329313345_ (let () (declare (not safe)) (##vector-ref - _g14968_ + _g14917_ 1)))) (if (gx#stx-null? - _tl1334413396_) - (letrec ((_loop1334513399_ + _tl1329313345_) + (letrec ((_loop1329413348_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1334313403_ _clause1334913406_) - (if (gx#stx-pair? _hd1334313403_) - (let ((_e1334613409_ - (gx#syntax-e _hd1334313403_))) - (let ((_lp-hd1334713413_ + (lambda (_hd1329213352_ _clause1329813355_) + (if (gx#stx-pair? _hd1329213352_) + (let ((_e1329513358_ + (gx#syntax-e _hd1329213352_))) + (let ((_lp-hd1329613362_ (let () (declare (not safe)) - (##car _e1334613409_))) - (_lp-tl1334813416_ + (##car _e1329513358_))) + (_lp-tl1329713365_ (let () (declare (not safe)) - (##cdr _e1334613409_)))) - (_loop1334513399_ - _lp-tl1334813416_ + (##cdr _e1329513358_)))) + (_loop1329413348_ + _lp-tl1329713365_ (let () (declare (not safe)) - (cons _lp-hd1334713413_ - _clause1334913406_))))) - (let ((_clause1335013419_ - (reverse _clause1334913406_))) - ((lambda (_L13423_ _L13425_ _L13426_) - (let _recur13448_ ((_rest13451_ - (let ((__tmp14991 + (cons _lp-hd1329613362_ + _clause1329813355_))))) + (let ((_clause1329913368_ + (reverse _clause1329813355_))) + ((lambda (_L13372_ _L13374_ _L13375_) + (let _recur13397_ ((_rest13400_ + (let ((__tmp14940 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1385313856_ _g1385413859_) + (lambda (_g1380213805_ _g1380313808_) (let () (declare (not safe)) - (cons _g1385313856_ _g1385413859_))))) + (cons _g1380213805_ _g1380313808_))))) (declare (not safe)) - (foldr1 __tmp14991 '() _L13423_)))) + (foldr1 __tmp14940 '() _L13372_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest1345313462_ _rest13451_) - (_E1345613468_ + (let* ((_rest1340213411_ _rest13400_) + (_E1340513417_ (lambda () (error '"No clause matching" - _rest1345313462_)))) - (let ((_K1345813838_ - (lambda (_rest13484_ - _hd13486_) - (let* ((_g1348813496_ - (lambda (_g1348913492_) + _rest1340213411_)))) + (let ((_K1340713787_ + (lambda (_rest13433_ + _hd13435_) + (let* ((_g1343713445_ + (lambda (_g1343813441_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1348913492_))) - (_g1348713834_ - (lambda (_g1348913500_) - ((lambda (_L13503_) + '"Bad syntax; invalid match target" + _g1343813441_))) + (_g1343613783_ + (lambda (_g1343813449_) + ((lambda (_L13452_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g1352113529_ - (lambda (_g1352213525_) + (let* ((_g1347013478_ + (lambda (_g1347113474_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1352213525_))) - (_g1352013830_ - (lambda (_g1352213533_) - ((lambda (_L13536_) + '"Bad syntax; invalid match target" + _g1347113474_))) + (_g1346913779_ + (lambda (_g1347113482_) + ((lambda (_L13485_) (let () - (let* ((_g1354913557_ - (lambda (_g1355013553_) + (let* ((_g1349813506_ + (lambda (_g1349913502_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1355013553_))) - (_g1354813826_ - (lambda (_g1355013561_) - ((lambda (_L13564_) + '"Bad syntax; invalid match target" + _g1349913502_))) + (_g1349713775_ + (lambda (_g1349913510_) + ((lambda (_L13513_) (let () - (let* ((_g1357713585_ + (let* ((_g1352613534_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1357813581_) + (lambda (_g1352713530_) (gx#raise-syntax-error '#f - '"Bad syntax" - _g1357813581_))) - (_g1357613607_ - (lambda (_g1357813589_) - ((lambda (_L13592_) + '"Bad syntax; invalid match target" + _g1352713530_))) + (_g1352513556_ + (lambda (_g1352713538_) + ((lambda (_L13541_) (let () (let () - (let ((__tmp14978 + (let ((__tmp14927 (gx#datum->syntax '#f 'let)) - (__tmp14970 - (let ((__tmp14972 - (let ((__tmp14973 - (let ((__tmp14974 - (let ((__tmp14977 + (__tmp14919 + (let ((__tmp14921 + (let ((__tmp14922 + (let ((__tmp14923 + (let ((__tmp14926 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp14975 - (let ((__tmp14976 + (__tmp14924 + (let ((__tmp14925 (let () (declare (not safe)) - (cons _L13564_ '())))) + (cons _L13513_ '())))) (declare (not safe)) - (cons '() __tmp14976)))) + (cons '() __tmp14925)))) (declare (not safe)) - (cons __tmp14977 __tmp14975)))) + (cons __tmp14926 __tmp14924)))) (declare (not safe)) - (cons __tmp14974 '())))) + (cons __tmp14923 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L13503_ __tmp14973))) - (__tmp14971 + (cons _L13452_ __tmp14922))) + (__tmp14920 (let () (declare (not safe)) - (cons _L13592_ '())))) + (cons _L13541_ '())))) (declare (not safe)) - (cons __tmp14972 __tmp14971)))) + (cons __tmp14921 __tmp14920)))) (declare (not safe)) - (cons __tmp14978 __tmp14970))))) - _g1357813589_)))) - (_g1357613607_ - (let* ((___stx1480314804_ _hd13486_) - (_g1361313653_ + (cons __tmp14927 __tmp14919))))) + _g1352713538_)))) + (_g1352513556_ + (let* ((___stx1475214753_ _hd13435_) + (_g1356213602_ (lambda () (gx#raise-syntax-error '#f - '"Bad syntax" - ___stx1480314804_)))) - (let ((___kont1480614807_ - (lambda (_L13799_) - (let ((__tmp14981 (gx#datum->syntax '#f 'begin)) - (__tmp14979 - (let ((__tmp14980 - (lambda (_g1381313816_ - _g1381413819_) + '"Bad syntax; invalid match target" + ___stx1475214753_)))) + (let ((___kont1475514756_ + (lambda (_L13748_) + (let ((__tmp14930 (gx#datum->syntax '#f 'begin)) + (__tmp14928 + (let ((__tmp14929 + (lambda (_g1376213765_ + _g1376313768_) (let () (declare (not safe)) - (cons _g1381313816_ - _g1381413819_))))) + (cons _g1376213765_ + _g1376313768_))))) (declare (not safe)) - (foldr1 __tmp14980 '() _L13799_)))) + (foldr1 __tmp14929 '() _L13748_)))) (declare (not safe)) - (cons __tmp14981 __tmp14979)))) - (___kont1481014811_ - (lambda (_L13737_ _L13739_) - (_generate113325_ - _L13739_ - _L13426_ - _L13737_ - _L13536_ - _L13425_))) - (___kont1481214813_ - (lambda (_L13690_ _L13692_ _L13693_) - (_generate113325_ - _L13693_ - _L13426_ - (let ((__tmp14985 (gx#datum->syntax '#f 'if)) - (__tmp14982 - (let ((__tmp14983 - (let ((__tmp14984 + (cons __tmp14930 __tmp14928)))) + (___kont1475914760_ + (lambda (_L13686_ _L13688_) + (_generate113274_ + _L13688_ + _L13375_ + _L13686_ + _L13485_ + _L13374_))) + (___kont1476114762_ + (lambda (_L13639_ _L13641_ _L13642_) + (_generate113274_ + _L13642_ + _L13375_ + (let ((__tmp14934 (gx#datum->syntax '#f 'if)) + (__tmp14931 + (let ((__tmp14932 + (let ((__tmp14933 (let () (declare (not safe)) - (cons _L13536_ '())))) + (cons _L13485_ '())))) (declare (not safe)) - (cons _L13690_ __tmp14984)))) + (cons _L13639_ __tmp14933)))) (declare (not safe)) - (cons _L13692_ __tmp14983)))) + (cons _L13641_ __tmp14932)))) (declare (not safe)) - (cons __tmp14985 __tmp14982)) - _L13536_ - _L13425_)))) - (let ((___match1483214833_ - (lambda (_e1361813759_ - _hd1361713763_ - _tl1361613766_ - ___splice1480814809_ - _target1361913769_ - _tl1362113772_) - (letrec ((_loop1362213775_ - (lambda (_hd1362013779_ - _expr1362613782_) - (if (gx#stx-pair? _hd1362013779_) - (let ((_e1362313785_ + (cons __tmp14934 __tmp14931)) + _L13485_ + _L13374_)))) + (let ((___match1478114782_ + (lambda (_e1356713708_ + _hd1356613712_ + _tl1356513715_ + ___splice1475714758_ + _target1356813718_ + _tl1357013721_) + (letrec ((_loop1357113724_ + (lambda (_hd1356913728_ + _expr1357513731_) + (if (gx#stx-pair? _hd1356913728_) + (let ((_e1357213734_ (gx#syntax-e - _hd1362013779_))) - (let ((_lp-tl1362513792_ + _hd1356913728_))) + (let ((_lp-tl1357413741_ (let () (declare (not safe)) - (##cdr _e1362313785_))) - (_lp-hd1362413789_ + (##cdr _e1357213734_))) + (_lp-hd1357313738_ (let () (declare (not safe)) - (##car _e1362313785_)))) - (_loop1362213775_ - _lp-tl1362513792_ + (##car _e1357213734_)))) + (_loop1357113724_ + _lp-tl1357413741_ (let () (declare (not safe)) - (cons _lp-hd1362413789_ - _expr1362613782_))))) - (let ((_expr1362713795_ - (reverse _expr1362613782_))) - (___kont1480614807_ - _expr1362713795_)))))) - (_loop1362213775_ - _target1361913769_ + (cons _lp-hd1357313738_ + _expr1357513731_))))) + (let ((_expr1357613744_ + (reverse _expr1357513731_))) + (___kont1475514756_ + _expr1357613744_)))))) + (_loop1357113724_ + _target1356813718_ '()))))) - (if (gx#stx-pair? ___stx1480314804_) - (let ((_e1361813759_ - (gx#syntax-e ___stx1480314804_))) - (let ((_tl1361613766_ + (if (gx#stx-pair? ___stx1475214753_) + (let ((_e1356713708_ + (gx#syntax-e ___stx1475214753_))) + (let ((_tl1356513715_ (let () (declare (not safe)) - (##cdr _e1361813759_))) - (_hd1361713763_ + (##cdr _e1356713708_))) + (_hd1356613712_ (let () (declare (not safe)) - (##car _e1361813759_)))) - (if (gx#identifier? _hd1361713763_) + (##car _e1356713708_)))) + (if (gx#identifier? _hd1356613712_) (if (gx#free-identifier=? - |[1]#_g14986_| - _hd1361713763_) + |[1]#_g14935_| + _hd1356613712_) (if (gx#stx-pair/null? - _tl1361613766_) - (let ((___splice1480814809_ + _tl1356513715_) + (let ((___splice1475714758_ (gx#syntax-split-splice - _tl1361613766_ + _tl1356513715_ '0))) - (let ((_tl1362113772_ + (let ((_tl1357013721_ (let () (declare (not safe)) (##vector-ref - ___splice1480814809_ + ___splice1475714758_ '1))) - (_target1361913769_ + (_target1356813718_ (let () (declare (not safe)) (##vector-ref - ___splice1480814809_ + ___splice1475714758_ '0)))) (if (gx#stx-null? - _tl1362113772_) - (___match1483214833_ - _e1361813759_ - _hd1361713763_ - _tl1361613766_ - ___splice1480814809_ - _target1361913769_ - _tl1362113772_) + _tl1357013721_) + (___match1478114782_ + _e1356713708_ + _hd1356613712_ + _tl1356513715_ + ___splice1475714758_ + _target1356813718_ + _tl1357013721_) (if (gx#stx-pair? - _tl1361613766_) - (let ((_e1363513727_ + _tl1356513715_) + (let ((_e1358413676_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1361613766_))) - (let ((_tl1363313734_ - (let () (declare (not safe)) (##cdr _e1363513727_))) - (_hd1363413731_ + (gx#syntax-e _tl1356513715_))) + (let ((_tl1358213683_ + (let () (declare (not safe)) (##cdr _e1358413676_))) + (_hd1358313680_ (let () (declare (not safe)) - (##car _e1363513727_)))) - (if (gx#stx-null? _tl1363313734_) - (___kont1481014811_ _hd1363413731_ _hd1361713763_) - (if (gx#stx-pair? _tl1363313734_) - (let ((_e1364713680_ - (gx#syntax-e _tl1363313734_))) - (let ((_tl1364513687_ + (##car _e1358413676_)))) + (if (gx#stx-null? _tl1358213683_) + (___kont1475914760_ _hd1358313680_ _hd1356613712_) + (if (gx#stx-pair? _tl1358213683_) + (let ((_e1359613629_ + (gx#syntax-e _tl1358213683_))) + (let ((_tl1359413636_ (let () (declare (not safe)) - (##cdr _e1364713680_))) - (_hd1364613684_ + (##cdr _e1359613629_))) + (_hd1359513633_ (let () (declare (not safe)) - (##car _e1364713680_)))) - (if (gx#stx-null? _tl1364513687_) - (___kont1481214813_ - _hd1364613684_ - _hd1363413731_ - _hd1361713763_) + (##car _e1359613629_)))) + (if (gx#stx-null? _tl1359413636_) + (___kont1476114762_ + _hd1359513633_ + _hd1358313680_ + _hd1356613712_) (let () (declare (not safe)) - (_g1361313653_))))) - (let () (declare (not safe)) (_g1361313653_)))))) - (let () (declare (not safe)) (_g1361313653_)))))) + (_g1356213602_))))) + (let () (declare (not safe)) (_g1356213602_)))))) + (let () (declare (not safe)) (_g1356213602_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl1361613766_) - (let ((_e1363513727_ + (if (gx#stx-pair? _tl1356513715_) + (let ((_e1358413676_ (gx#syntax-e - _tl1361613766_))) - (let ((_tl1363313734_ + _tl1356513715_))) + (let ((_tl1358213683_ (let () (declare (not safe)) - (##cdr _e1363513727_))) - (_hd1363413731_ + (##cdr _e1358413676_))) + (_hd1358313680_ (let () (declare (not safe)) - (##car _e1363513727_)))) + (##car _e1358413676_)))) (if (gx#stx-null? - _tl1363313734_) - (___kont1481014811_ - _hd1363413731_ - _hd1361713763_) + _tl1358213683_) + (___kont1475914760_ + _hd1358313680_ + _hd1356613712_) (if (gx#stx-pair? - _tl1363313734_) - (let ((_e1364713680_ + _tl1358213683_) + (let ((_e1359613629_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1363313734_))) - (let ((_tl1364513687_ + (gx#syntax-e _tl1358213683_))) + (let ((_tl1359413636_ (let () (declare (not safe)) - (##cdr _e1364713680_))) - (_hd1364613684_ + (##cdr _e1359613629_))) + (_hd1359513633_ (let () (declare (not safe)) - (##car _e1364713680_)))) - (if (gx#stx-null? _tl1364513687_) - (___kont1481214813_ - _hd1364613684_ - _hd1363413731_ - _hd1361713763_) - (let () (declare (not safe)) (_g1361313653_))))) - (let () (declare (not safe)) (_g1361313653_)))))) + (##car _e1359613629_)))) + (if (gx#stx-null? _tl1359413636_) + (___kont1476114762_ + _hd1359513633_ + _hd1358313680_ + _hd1356613712_) + (let () (declare (not safe)) (_g1356213602_))))) + (let () (declare (not safe)) (_g1356213602_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1361313653_)))) - (if (gx#stx-pair? _tl1361613766_) - (let ((_e1363513727_ + (_g1356213602_)))) + (if (gx#stx-pair? _tl1356513715_) + (let ((_e1358413676_ (gx#syntax-e - _tl1361613766_))) - (let ((_tl1363313734_ + _tl1356513715_))) + (let ((_tl1358213683_ (let () (declare (not safe)) - (##cdr _e1363513727_))) - (_hd1363413731_ + (##cdr _e1358413676_))) + (_hd1358313680_ (let () (declare (not safe)) - (##car _e1363513727_)))) + (##car _e1358413676_)))) (if (gx#stx-null? - _tl1363313734_) - (___kont1481014811_ - _hd1363413731_ - _hd1361713763_) + _tl1358213683_) + (___kont1475914760_ + _hd1358313680_ + _hd1356613712_) (if (gx#stx-pair? - _tl1363313734_) - (let ((_e1364713680_ + _tl1358213683_) + (let ((_e1359613629_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1363313734_))) - (let ((_tl1364513687_ - (let () (declare (not safe)) (##cdr _e1364713680_))) - (_hd1364613684_ + (gx#syntax-e _tl1358213683_))) + (let ((_tl1359413636_ + (let () (declare (not safe)) (##cdr _e1359613629_))) + (_hd1359513633_ (let () (declare (not safe)) - (##car _e1364713680_)))) - (if (gx#stx-null? _tl1364513687_) - (___kont1481214813_ - _hd1364613684_ - _hd1363413731_ - _hd1361713763_) - (let () (declare (not safe)) (_g1361313653_))))) - (let () (declare (not safe)) (_g1361313653_)))))) + (##car _e1359613629_)))) + (if (gx#stx-null? _tl1359413636_) + (___kont1476114762_ + _hd1359513633_ + _hd1358313680_ + _hd1356613712_) + (let () (declare (not safe)) (_g1356213602_))))) + (let () (declare (not safe)) (_g1356213602_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1361313653_)))) - (if (gx#stx-pair? _tl1361613766_) - (let ((_e1363513727_ - (gx#syntax-e _tl1361613766_))) - (let ((_tl1363313734_ + (_g1356213602_)))) + (if (gx#stx-pair? _tl1356513715_) + (let ((_e1358413676_ + (gx#syntax-e _tl1356513715_))) + (let ((_tl1358213683_ (let () (declare (not safe)) - (##cdr _e1363513727_))) - (_hd1363413731_ + (##cdr _e1358413676_))) + (_hd1358313680_ (let () (declare (not safe)) - (##car _e1363513727_)))) - (if (gx#stx-null? _tl1363313734_) - (___kont1481014811_ - _hd1363413731_ - _hd1361713763_) + (##car _e1358413676_)))) + (if (gx#stx-null? _tl1358213683_) + (___kont1475914760_ + _hd1358313680_ + _hd1356613712_) (if (gx#stx-pair? - _tl1363313734_) - (let ((_e1364713680_ + _tl1358213683_) + (let ((_e1359613629_ (gx#syntax-e - _tl1363313734_))) - (let ((_tl1364513687_ + _tl1358213683_))) + (let ((_tl1359413636_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e1364713680_))) - (_hd1364613684_ - (let () (declare (not safe)) (##car _e1364713680_)))) - (if (gx#stx-null? _tl1364513687_) - (___kont1481214813_ - _hd1364613684_ - _hd1363413731_ - _hd1361713763_) - (let () (declare (not safe)) (_g1361313653_))))) - (let () (declare (not safe)) (_g1361313653_)))))) + (##cdr _e1359613629_))) + (_hd1359513633_ + (let () (declare (not safe)) (##car _e1359613629_)))) + (if (gx#stx-null? _tl1359413636_) + (___kont1476114762_ + _hd1359513633_ + _hd1358313680_ + _hd1356613712_) + (let () (declare (not safe)) (_g1356213602_))))) + (let () (declare (not safe)) (_g1356213602_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1361313653_)))))) + (_g1356213602_)))))) (let () (declare (not safe)) - (_g1361313653_)))))))))) + (_g1356213602_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1355013561_)))) - (_g1354813826_ - (_recur13448_ _rest13484_))))) - _g1352213533_)))) - (_g1352013830_ + _g1349913510_)))) + (_g1349713775_ + (_recur13397_ _rest13433_))))) + _g1347113482_)))) + (_g1346913779_ (let () (declare (not safe)) - (cons _L13503_ '())))))) - _g1348913500_)))) - (_g1348713834_ (gx#genident '$E))))) + (cons _L13452_ '())))))) + _g1343813449_)))) + (_g1343613783_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K1345713476_ + (_K1340613425_ (lambda () - (let ((__tmp14990 + (let ((__tmp14939 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp14987 - (let ((__tmp14988 + (__tmp14936 + (let ((__tmp14937 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14989 + (let ((__tmp14938 (let () (declare (not safe)) - (cons _L13426_ '())))) + (cons _L13375_ '())))) (declare (not safe)) - (cons '"Bad syntax" __tmp14989)))) + (cons '"Bad syntax; malformed ast clause" + __tmp14938)))) (declare (not safe)) - (cons '#f __tmp14988)))) + (cons '#f __tmp14937)))) (declare (not safe)) - (cons __tmp14990 __tmp14987))))) + (cons __tmp14939 __tmp14936))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match1345513480_ + (let ((_try-match1340413429_ (lambda () (if (let () (declare (not safe)) - (##null? _rest1345313462_)) - (_K1345713476_) - (_E1345613468_))))) + (##null? _rest1340213411_)) + (_K1340613425_) + (_E1340513417_))))) (if (let () (declare (not safe)) - (##pair? _rest1345313462_)) - (let ((_tl1346013845_ + (##pair? _rest1340213411_)) + (let ((_tl1340913794_ (let () (declare (not safe)) - (##cdr _rest1345313462_))) - (_hd1345913842_ + (##cdr _rest1340213411_))) + (_hd1340813791_ (let () (declare (not safe)) - (##car _rest1345313462_)))) - (let ((_hd13848_ - _hd1345913842_) - (_rest13851_ - _tl1346013845_)) - (_K1345813838_ - _rest13851_ - _hd13848_))) - (_try-match1345513480_))))))) - _clause1335013419_ - _hd1334013387_ - _hd1333713377_)))))) - (_loop1334513399_ _target1334213393_ '())) - (_g1332813356_ _g1332913360_))))) + (##car _rest1340213411_)))) + (let ((_hd13797_ + _hd1340813791_) + (_rest13800_ + _tl1340913794_)) + (_K1340713787_ + _rest13800_ + _hd13797_))) + (_try-match1340413429_))))))) + _clause1329913368_ + _hd1328913336_ + _hd1328613326_)))))) + (_loop1329413348_ _target1329113342_ '())) + (_g1327713305_ _g1327813309_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1332813356_ - _g1332913360_)))) - (_g1332813356_ _g1332913360_)))) - (_g1332813356_ _g1332913360_)))) - (_g1332813356_ _g1332913360_))))) - (_g1332713862_ _stx13322_))))) + (_g1327713305_ + _g1327813309_)))) + (_g1327713305_ _g1327813309_)))) + (_g1327713305_ _g1327813309_)))) + (_g1327713305_ _g1327813309_))))) + (_g1327613811_ _stx13271_))))) (define |[:0:]#SyntaxError| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g14992_| + |[1]#_g14941_| 'expander-identifiers: - (let ((__tmp15039 - (let ((__tmp15040 |[1]#_g15041_|)) + (let ((__tmp14988 + (let ((__tmp14989 |[1]#_g14990_|)) (declare (not safe)) - (cons __tmp15040 '()))) - (__tmp14993 - (let ((__tmp15038 |[1]#_g14992_|) - (__tmp14994 - (let ((__tmp15036 |[1]#_g15037_|) - (__tmp14995 - (let ((__tmp15034 |[1]#_g15035_|) - (__tmp14996 - (let ((__tmp15016 - (let ((__tmp15032 |[1]#_g15033_|) - (__tmp15017 - (let ((__tmp15030 - |[1]#_g15031_|) - (__tmp15018 - (let ((__tmp15028 - |[1]#_g15029_|) - (__tmp15019 - (let ((__tmp15026 + (cons __tmp14989 '()))) + (__tmp14942 + (let ((__tmp14987 |[1]#_g14941_|) + (__tmp14943 + (let ((__tmp14985 |[1]#_g14986_|) + (__tmp14944 + (let ((__tmp14983 |[1]#_g14984_|) + (__tmp14945 + (let ((__tmp14965 + (let ((__tmp14981 |[1]#_g14982_|) + (__tmp14966 + (let ((__tmp14979 + |[1]#_g14980_|) + (__tmp14967 + (let ((__tmp14977 + |[1]#_g14978_|) + (__tmp14968 + (let ((__tmp14975 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g15027_|) - (__tmp15020 - (let ((__tmp15024 |[1]#_g15025_|) - (__tmp15021 - (let ((__tmp15022 |[1]#_g15023_|)) + |[1]#_g14976_|) + (__tmp14969 + (let ((__tmp14973 |[1]#_g14974_|) + (__tmp14970 + (let ((__tmp14971 |[1]#_g14972_|)) (declare (not safe)) - (cons __tmp15022 '())))) + (cons __tmp14971 '())))) (declare (not safe)) - (cons __tmp15024 __tmp15021)))) + (cons __tmp14973 __tmp14970)))) (declare (not safe)) - (cons __tmp15026 __tmp15020)))) + (cons __tmp14975 __tmp14969)))) (declare (not safe)) - (cons __tmp15028 __tmp15019)))) + (cons __tmp14977 __tmp14968)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15030 - __tmp15018)))) + (cons __tmp14979 + __tmp14967)))) (declare (not safe)) - (cons __tmp15032 __tmp15017))) - (__tmp14997 - (let ((__tmp14998 - (let ((__tmp15014 - |[1]#_g15015_|) - (__tmp14999 - (let ((__tmp15012 - |[1]#_g15013_|) - (__tmp15000 - (let ((__tmp15010 + (cons __tmp14981 __tmp14966))) + (__tmp14946 + (let ((__tmp14947 + (let ((__tmp14963 + |[1]#_g14964_|) + (__tmp14948 + (let ((__tmp14961 + |[1]#_g14962_|) + (__tmp14949 + (let ((__tmp14959 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g15011_|) - (__tmp15001 - (let ((__tmp15008 |[1]#_g15009_|) - (__tmp15002 - (let ((__tmp15006 |[1]#_g15007_|) - (__tmp15003 - (let ((__tmp15004 |[1]#_g15005_|)) + |[1]#_g14960_|) + (__tmp14950 + (let ((__tmp14957 |[1]#_g14958_|) + (__tmp14951 + (let ((__tmp14955 |[1]#_g14956_|) + (__tmp14952 + (let ((__tmp14953 |[1]#_g14954_|)) (declare (not safe)) - (cons __tmp15004 '())))) + (cons __tmp14953 '())))) (declare (not safe)) - (cons __tmp15006 __tmp15003)))) + (cons __tmp14955 __tmp14952)))) (declare (not safe)) - (cons __tmp15008 __tmp15002)))) + (cons __tmp14957 __tmp14951)))) (declare (not safe)) - (cons __tmp15010 __tmp15001)))) + (cons __tmp14959 __tmp14950)))) (declare (not safe)) - (cons __tmp15012 __tmp15000)))) + (cons __tmp14961 __tmp14949)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15014 - __tmp14999)))) + (cons __tmp14963 + __tmp14948)))) (declare (not safe)) - (cons __tmp14998 '())))) + (cons __tmp14947 '())))) (declare (not safe)) - (cons __tmp15016 __tmp14997)))) + (cons __tmp14965 __tmp14946)))) (declare (not safe)) - (cons __tmp15034 __tmp14996)))) + (cons __tmp14983 __tmp14945)))) (declare (not safe)) - (cons __tmp15036 __tmp14995)))) + (cons __tmp14985 __tmp14944)))) (declare (not safe)) - (cons __tmp15038 __tmp14994)))) + (cons __tmp14987 __tmp14943)))) (declare (not safe)) - (cons __tmp15039 __tmp14993)) + (cons __tmp14988 __tmp14942)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g15042_|) + (list |[1]#_g14991_|) 'SyntaxError '#f '((final: . #t)) @@ -1425,49 +1432,49 @@ (define |[:0:]#AST| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15043_| + |[1]#_g14992_| 'expander-identifiers: - (let ((__tmp15044 - (let ((__tmp15065 |[1]#_g15043_|) - (__tmp15045 - (let ((__tmp15063 |[1]#_g15064_|) - (__tmp15046 - (let ((__tmp15061 |[1]#_g15062_|) - (__tmp15047 - (let ((__tmp15055 - (let ((__tmp15059 |[1]#_g15060_|) - (__tmp15056 - (let ((__tmp15057 - |[1]#_g15058_|)) + (let ((__tmp14993 + (let ((__tmp15014 |[1]#_g14992_|) + (__tmp14994 + (let ((__tmp15012 |[1]#_g15013_|) + (__tmp14995 + (let ((__tmp15010 |[1]#_g15011_|) + (__tmp14996 + (let ((__tmp15004 + (let ((__tmp15008 |[1]#_g15009_|) + (__tmp15005 + (let ((__tmp15006 + |[1]#_g15007_|)) (declare (not safe)) - (cons __tmp15057 '())))) + (cons __tmp15006 '())))) (declare (not safe)) - (cons __tmp15059 __tmp15056))) - (__tmp15048 - (let ((__tmp15049 - (let ((__tmp15053 - |[1]#_g15054_|) - (__tmp15050 - (let ((__tmp15051 - |[1]#_g15052_|)) + (cons __tmp15008 __tmp15005))) + (__tmp14997 + (let ((__tmp14998 + (let ((__tmp15002 + |[1]#_g15003_|) + (__tmp14999 + (let ((__tmp15000 + |[1]#_g15001_|)) (declare (not safe)) - (cons __tmp15051 + (cons __tmp15000 '())))) (declare (not safe)) - (cons __tmp15053 - __tmp15050)))) + (cons __tmp15002 + __tmp14999)))) (declare (not safe)) - (cons __tmp15049 '())))) + (cons __tmp14998 '())))) (declare (not safe)) - (cons __tmp15055 __tmp15048)))) + (cons __tmp15004 __tmp14997)))) (declare (not safe)) - (cons __tmp15061 __tmp15047)))) + (cons __tmp15010 __tmp14996)))) (declare (not safe)) - (cons __tmp15063 __tmp15046)))) + (cons __tmp15012 __tmp14995)))) (declare (not safe)) - (cons __tmp15065 __tmp15045)))) + (cons __tmp15014 __tmp14994)))) (declare (not safe)) - (cons '#f __tmp15044)) + (cons '#f __tmp14993)) '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 eb1d315da7..239b7357c3 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 e3f36da7b2..06641ec285 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 b0f460e25f..8377d54a7d 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 1697117311) + (define gerbil/runtime/system::timestamp 1701173279) (begin - (define gerbil-version-string (lambda () '"v0.18-rc1-10-g630d6fc3")) + (define gerbil-version-string (lambda () '"v0.18-32-g59ff8524")) + (define gerbil-system-manifest + (let ((__tmp8809 + (let ((__tmp8810 + (let () (declare (not safe)) (gerbil-version-string)))) + (declare (not safe)) + (cons '"Gerbil" __tmp8810))) + (__tmp8806 + (let ((__tmp8807 + (let ((__tmp8808 (system-version-string))) + (declare (not safe)) + (cons '"Gambit" __tmp8808)))) + (declare (not safe)) + (cons __tmp8807 '())))) + (declare (not safe)) + (cons __tmp8809 __tmp8806))) + (define build-manifest gerbil-system-manifest) + (set! build-manifest build-manifest) + (define display-build-manifest__% + (lambda (_manifest8750_ _port8751_) + (let ((_p8757_ (lambda (_g87528754_) (display _g87528754_ _port8751_))) + (_l8758_ (length _manifest8750_)) + (_i8759_ '0)) + (for-each + (lambda (_layer8761_) + (if (let () (declare (not safe)) (zero? _i8759_)) + '#!void + (if (= _i8759_ '1) + (let () (declare (not safe)) (_p8757_ '" on ")) + (let () (declare (not safe)) (_p8757_ '", ")))) + (let* ((_layer87628769_ _layer8761_) + (_E87648773_ + (lambda () (error '"No clause matching" _layer87628769_))) + (_K87658779_ + (lambda (_version8776_ _name8777_) + (let () (declare (not safe)) (_p8757_ _name8777_)) + (let () (declare (not safe)) (_p8757_ '" ")) + (let () (declare (not safe)) (_p8757_ _version8776_))))) + (if (let () (declare (not safe)) (##pair? _layer87628769_)) + (let ((_hd87668782_ + (let () + (declare (not safe)) + (##car _layer87628769_))) + (_tl87678784_ + (let () + (declare (not safe)) + (##cdr _layer87628769_)))) + (let* ((_name8787_ _hd87668782_) + (_version8789_ _tl87678784_)) + (declare (not safe)) + (_K87658779_ _version8789_ _name8787_))) + (let () (declare (not safe)) (_E87648773_)))) + (set! _i8759_ (+ _i8759_ '1))) + _manifest8750_)))) + (define display-build-manifest__0 + (lambda () + (let* ((_manifest8795_ build-manifest) + (_port8797_ (current-output-port))) + (declare (not safe)) + (display-build-manifest__% _manifest8795_ _port8797_)))) + (define display-build-manifest__1 + (lambda (_manifest8799_) + (let ((_port8801_ (current-output-port))) + (declare (not safe)) + (display-build-manifest__% _manifest8799_ _port8801_)))) + (define display-build-manifest + (lambda _g8812_ + (let ((_g8811_ (let () (declare (not safe)) (##length _g8812_)))) + (cond ((let () (declare (not safe)) (##fx= _g8811_ 0)) + (apply (lambda () + (let () + (declare (not safe)) + (display-build-manifest__0))) + _g8812_)) + ((let () (declare (not safe)) (##fx= _g8811_ 1)) + (apply (lambda (_manifest8799_) + (let () + (declare (not safe)) + (display-build-manifest__1 _manifest8799_))) + _g8812_)) + ((let () (declare (not safe)) (##fx= _g8811_ 2)) + (apply (lambda (_manifest8803_ _port8804_) + (let () + (declare (not safe)) + (display-build-manifest__% + _manifest8803_ + _port8804_))) + _g8812_)) + (else + (##raise-wrong-number-of-arguments-exception + display-build-manifest + _g8812_)))))) + (define build-manifest/layer + (lambda (_layer8745_) + (let ((_l8747_ (assoc _layer8745_ build-manifest))) + (if _l8747_ (let () (declare (not safe)) (cons _l8747_ '())) '())))) + (define build-manifest/head + (lambda () + (let ((__tmp8813 (car build-manifest))) + (declare (not safe)) + (cons __tmp8813 '())))) + (define build-manifest-string__% + (lambda (_manifest8732_) + (call-with-output-string + '() + (lambda (_p8734_) + (let () + (declare (not safe)) + (display-build-manifest__% _manifest8732_ _p8734_)))))) + (define build-manifest-string__0 + (lambda () + (let ((_manifest8740_ build-manifest)) + (declare (not safe)) + (build-manifest-string__% _manifest8740_)))) + (define build-manifest-string + (lambda _g8815_ + (let ((_g8814_ (let () (declare (not safe)) (##length _g8815_)))) + (cond ((let () (declare (not safe)) (##fx= _g8814_ 0)) + (apply (lambda () + (let () + (declare (not safe)) + (build-manifest-string__0))) + _g8815_)) + ((let () (declare (not safe)) (##fx= _g8814_ 1)) + (apply (lambda (_manifest8742_) + (let () + (declare (not safe)) + (build-manifest-string__% _manifest8742_))) + _g8815_)) + (else + (##raise-wrong-number-of-arguments-exception + build-manifest-string + _g8815_)))))) (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 ((_$e8726_ (getenv '"GERBIL_HOME" '#f))) + (if _$e8726_ _$e8726_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_$e6464_ (getenv '"GERBIL_PATH" '#f))) - (if _$e6464_ _$e6464_ (path-expand '"~/.gerbil"))))) + (let ((_$e8722_ (getenv '"GERBIL_PATH" '#f))) + (if _$e8722_ _$e8722_ (path-expand '"~/.gerbil"))))) (define gerbil-runtime-smp? (lambda () (member '"--enable-smp" - (let ((__tmp8559 (configure-command-string))) + (let ((__tmp8816 (configure-command-string))) (declare (not safe)) - (string-split __tmp8559 '#\'))))))) + (string-split __tmp8816 '#\'))))))) diff --git a/src/bootstrap/gerbil/runtime/system__1.scm b/src/bootstrap/gerbil/runtime/system__1.scm new file mode 100644 index 0000000000..129bdb8182 --- /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 (_$stx8638_) + (let* ((_g86428660_ + (lambda (_g86438656_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g86438656_))) + (_g86418716_ + (lambda (_g86438664_) + (if (gx#stx-pair? _g86438664_) + (let ((_e86488667_ (gx#syntax-e _g86438664_))) + (let ((_hd86478671_ + (let () (declare (not safe)) (##car _e86488667_))) + (_tl86468674_ + (let () (declare (not safe)) (##cdr _e86488667_)))) + (if (gx#stx-pair? _tl86468674_) + (let ((_e86518677_ (gx#syntax-e _tl86468674_))) + (let ((_hd86508681_ + (let () + (declare (not safe)) + (##car _e86518677_))) + (_tl86498684_ + (let () + (declare (not safe)) + (##cdr _e86518677_)))) + (if (gx#stx-pair? _tl86498684_) + (let ((_e86548687_ + (gx#syntax-e _tl86498684_))) + (let ((_hd86538691_ + (let () + (declare (not safe)) + (##car _e86548687_))) + (_tl86528694_ + (let () + (declare (not safe)) + (##cdr _e86548687_)))) + (if (gx#stx-null? _tl86528694_) + ((lambda (_L8697_ _L8699_) + (let ((__tmp8830 + (gx#datum->syntax + '#f + 'begin)) + (__tmp8817 + (let ((__tmp8826 + (let ((__tmp8829 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'def)) + (__tmp8827 + (let ((__tmp8828 + (let () + (declare (not safe)) + (cons _L8697_ '())))) + (declare (not safe)) + (cons _L8699_ __tmp8828)))) + (declare (not safe)) + (cons __tmp8829 __tmp8827))) + (__tmp8818 + (let ((__tmp8822 + (let ((__tmp8825 (gx#datum->syntax '#f 'set!)) + (__tmp8823 + (let ((__tmp8824 + (let () + (declare (not safe)) + (cons _L8699_ '())))) + (declare (not safe)) + (cons _L8699_ __tmp8824)))) + (declare (not safe)) + (cons __tmp8825 __tmp8823))) + (__tmp8819 + (let ((__tmp8820 + (let ((__tmp8821 + (gx#datum->syntax '#f 'void))) + (declare (not safe)) + (cons __tmp8821 '())))) + (declare (not safe)) + (cons __tmp8820 '())))) + (declare (not safe)) + (cons __tmp8822 __tmp8819)))) + (declare (not safe)) + (cons __tmp8826 __tmp8818)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8830 __tmp8817))) + _hd86538691_ + _hd86508681_) + (_g86428660_ _g86438664_)))) + (_g86428660_ _g86438664_)))) + (_g86428660_ _g86438664_)))) + (_g86428660_ _g86438664_))))) + (_g86418716_ _$stx8638_)))) diff --git a/src/bootstrap/gerbil/runtime/system__rt.scm b/src/bootstrap/gerbil/runtime/system__rt.scm index b1735be9fa..8c8b9579ea 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 efb12becaa..4b854c120e 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 1697117311) + (define gerbil/runtime/thread::timestamp 1701173279) (begin (define spawn - (lambda (_f13182_ . _args13183_) - (if (let () (declare (not safe)) (procedure? _f13182_)) + (lambda (_f13131_ . _args13132_) + (if (let () (declare (not safe)) (procedure? _f13131_)) '#!void - (raise (let ((__tmp13184 - (let () (declare (not safe)) (cons _f13182_ '())))) + (raise (let ((__tmp13133 + (let () (declare (not safe)) (cons _f13131_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -15,16 +15,16 @@ 'where: 'spawn 'irritants: - __tmp13184)))) + __tmp13133)))) (let () (declare (not safe)) - (spawn-actor _f13182_ _args13183_ '#!void '#f)))) + (spawn-actor _f13131_ _args13132_ '#!void '#f)))) (define spawn/name - (lambda (_name13178_ _f13179_ . _args13180_) - (if (let () (declare (not safe)) (procedure? _f13179_)) + (lambda (_name13127_ _f13128_ . _args13129_) + (if (let () (declare (not safe)) (procedure? _f13128_)) '#!void - (raise (let ((__tmp13185 - (let () (declare (not safe)) (cons _f13179_ '())))) + (raise (let ((__tmp13134 + (let () (declare (not safe)) (cons _f13128_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -32,16 +32,16 @@ 'where: 'spawn/name 'irritants: - __tmp13185)))) + __tmp13134)))) (let () (declare (not safe)) - (spawn-actor _f13179_ _args13180_ _name13178_ '#f)))) + (spawn-actor _f13128_ _args13129_ _name13127_ '#f)))) (define spawn/group - (lambda (_name13172_ _f13173_ . _args13174_) - (if (let () (declare (not safe)) (procedure? _f13173_)) + (lambda (_name13121_ _f13122_ . _args13123_) + (if (let () (declare (not safe)) (procedure? _f13122_)) '#!void - (raise (let ((__tmp13186 - (let () (declare (not safe)) (cons _f13173_ '())))) + (raise (let ((__tmp13135 + (let () (declare (not safe)) (cons _f13122_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -49,174 +49,174 @@ 'where: 'spawn/group 'irritants: - __tmp13186)))) - (let ((_tgroup13176_ (make-thread-group _name13172_))) + __tmp13135)))) + (let ((_tgroup13125_ (make-thread-group _name13121_))) (declare (not safe)) - (spawn-actor _f13173_ _args13174_ _name13172_ _tgroup13176_)))) + (spawn-actor _f13122_ _args13123_ _name13121_ _tgroup13125_)))) (define spawn-actor - (lambda (_f13145_ _args13146_ _name13147_ _tgroup13148_) - (letrec ((_thread-main13150_ - (lambda (_thunk13164_) + (lambda (_f13094_ _args13095_ _name13096_ _tgroup13097_) + (letrec ((_thread-main13099_ + (lambda (_thunk13113_) (lambda () (with-exception-handler - (lambda (_exn13167_) - (let ((__tmp13187 - (lambda (_cont13169_) + (lambda (_exn13116_) + (let ((__tmp13136 + (lambda (_cont13118_) (if __unhandled-actor-exception-hook - (let ((__tmp13188 + (let ((__tmp13137 (lambda () (__unhandled-actor-exception-hook - _cont13169_ - _exn13167_)))) + _cont13118_ + _exn13116_)))) (declare (not safe)) - (with-catch void __tmp13188)) + (with-catch void __tmp13137)) '#!void) - (let ((__tmp13189 + (let ((__tmp13138 (let () (declare (not safe)) - (##continuation-last _cont13169_)))) + (##continuation-last _cont13118_)))) (declare (not safe)) (##continuation-graft - __tmp13189 + __tmp13138 ##primordial-exception-handler - _exn13167_))))) + _exn13116_))))) (declare (not safe)) - (##continuation-capture __tmp13187))) - _thunk13164_))))) - (let* ((_thunk13153_ - (if (let () (declare (not safe)) (null? _args13146_)) - _f13145_ - (lambda () (apply _f13145_ _args13146_)))) - (_thunk13156_ + (##continuation-capture __tmp13136))) + _thunk13113_))))) + (let* ((_thunk13102_ + (if (let () (declare (not safe)) (null? _args13095_)) + _f13094_ + (lambda () (apply _f13094_ _args13095_)))) + (_thunk13105_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk13153_)))) - (_tgroup13161_ - (let ((_$e13158_ _tgroup13148_)) - (if _$e13158_ - _$e13158_ + (with-exception-stack-trace__0 _thunk13102_)))) + (_tgroup13110_ + (let ((_$e13107_ _tgroup13097_)) + (if _$e13107_ + _$e13107_ (let () (declare (not safe)) (current-thread-group)))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (let () (declare (not safe)) (_thread-main13150_ _thunk13156_)) - _name13147_ - _tgroup13161_)))))) + (let () (declare (not safe)) (_thread-main13099_ _thunk13105_)) + _name13096_ + _tgroup13110_)))))) (define spawn-thread__% - (lambda (_thunk13123_ _name13124_ _tgroup13125_) - (thread-start! (make-thread _thunk13123_ _name13124_ _tgroup13125_)))) + (lambda (_thunk13072_ _name13073_ _tgroup13074_) + (thread-start! (make-thread _thunk13072_ _name13073_ _tgroup13074_)))) (define spawn-thread__0 - (lambda (_thunk13130_) - (let* ((_name13132_ absent-obj) (_tgroup13134_ absent-obj)) + (lambda (_thunk13079_) + (let* ((_name13081_ absent-obj) (_tgroup13083_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk13130_ _name13132_ _tgroup13134_)))) + (spawn-thread__% _thunk13079_ _name13081_ _tgroup13083_)))) (define spawn-thread__1 - (lambda (_thunk13136_ _name13137_) - (let ((_tgroup13139_ absent-obj)) + (lambda (_thunk13085_ _name13086_) + (let ((_tgroup13088_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk13136_ _name13137_ _tgroup13139_)))) + (spawn-thread__% _thunk13085_ _name13086_ _tgroup13088_)))) (define spawn-thread - (lambda _g13191_ - (let ((_g13190_ (let () (declare (not safe)) (##length _g13191_)))) - (cond ((let () (declare (not safe)) (##fx= _g13190_ 1)) - (apply (lambda (_thunk13130_) + (lambda _g13140_ + (let ((_g13139_ (let () (declare (not safe)) (##length _g13140_)))) + (cond ((let () (declare (not safe)) (##fx= _g13139_ 1)) + (apply (lambda (_thunk13079_) (let () (declare (not safe)) - (spawn-thread__0 _thunk13130_))) - _g13191_)) - ((let () (declare (not safe)) (##fx= _g13190_ 2)) - (apply (lambda (_thunk13136_ _name13137_) + (spawn-thread__0 _thunk13079_))) + _g13140_)) + ((let () (declare (not safe)) (##fx= _g13139_ 2)) + (apply (lambda (_thunk13085_ _name13086_) (let () (declare (not safe)) - (spawn-thread__1 _thunk13136_ _name13137_))) - _g13191_)) - ((let () (declare (not safe)) (##fx= _g13190_ 3)) - (apply (lambda (_thunk13141_ _name13142_ _tgroup13143_) + (spawn-thread__1 _thunk13085_ _name13086_))) + _g13140_)) + ((let () (declare (not safe)) (##fx= _g13139_ 3)) + (apply (lambda (_thunk13090_ _name13091_ _tgroup13092_) (let () (declare (not safe)) (spawn-thread__% - _thunk13141_ - _name13142_ - _tgroup13143_))) - _g13191_)) + _thunk13090_ + _name13091_ + _tgroup13092_))) + _g13140_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g13191_)))))) + _g13140_)))))) (define thread-local-ref__% - (lambda (_key13107_ _default13108_) - (let ((_tab13110_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key13056_ _default13057_) + (let ((_tab13059_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-ref _tab13110_ _key13107_ _default13108_)))) + (table-ref _tab13059_ _key13056_ _default13057_)))) (define thread-local-ref__0 - (lambda (_key13115_) - (let ((_default13117_ absent-obj)) + (lambda (_key13064_) + (let ((_default13066_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key13115_ _default13117_)))) + (thread-local-ref__% _key13064_ _default13066_)))) (define thread-local-ref - (lambda _g13193_ - (let ((_g13192_ (let () (declare (not safe)) (##length _g13193_)))) - (cond ((let () (declare (not safe)) (##fx= _g13192_ 1)) - (apply (lambda (_key13115_) + (lambda _g13142_ + (let ((_g13141_ (let () (declare (not safe)) (##length _g13142_)))) + (cond ((let () (declare (not safe)) (##fx= _g13141_ 1)) + (apply (lambda (_key13064_) (let () (declare (not safe)) - (thread-local-ref__0 _key13115_))) - _g13193_)) - ((let () (declare (not safe)) (##fx= _g13192_ 2)) - (apply (lambda (_key13119_ _default13120_) + (thread-local-ref__0 _key13064_))) + _g13142_)) + ((let () (declare (not safe)) (##fx= _g13141_ 2)) + (apply (lambda (_key13068_ _default13069_) (let () (declare (not safe)) - (thread-local-ref__% _key13119_ _default13120_))) - _g13193_)) + (thread-local-ref__% _key13068_ _default13069_))) + _g13142_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g13193_)))))) + _g13142_)))))) (define thread-local-get - (lambda (_key13104_) - (let () (declare (not safe)) (thread-local-ref _key13104_ '#f)))) + (lambda (_key13053_) + (let () (declare (not safe)) (thread-local-ref _key13053_ '#f)))) (define thread-local-set! - (lambda (_key13099_ _value13100_) - (let ((_tab13102_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key13048_ _value13049_) + (let ((_tab13051_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab13102_ _key13099_ _value13100_)))) + (table-set! _tab13051_ _key13048_ _value13049_)))) (define thread-local-clear! - (lambda (_key13095_) - (let ((_tab13097_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key13044_) + (let ((_tab13046_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab13097_ _key13095_)))) + (table-set! _tab13046_ _key13044_)))) (define thread-local-table (lambda () - (let ((_thr13081_ (current-thread))) - (if (let () (declare (not safe)) (actor-thread? _thr13081_)) - (let ((_$e13083_ (actor-thread-locals _thr13081_))) - (if _$e13083_ - (values _$e13083_) - (let ((_tab13086_ + (let ((_thr13030_ (current-thread))) + (if (let () (declare (not safe)) (actor-thread? _thr13030_)) + (let ((_$e13032_ (actor-thread-locals _thr13030_))) + (if _$e13032_ + (values _$e13032_) + (let ((_tab13035_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (actor-thread-locals-set! _thr13081_ _tab13086_) - _tab13086_))) + (actor-thread-locals-set! _thr13030_ _tab13035_) + _tab13035_))) (if (let () (declare (not safe)) - (eq? _thr13081_ ##primordial-thread)) + (eq? _thr13030_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e13088_ + (let ((_$e13037_ (let () (declare (not safe)) - (table-ref __thread-locals _thr13081_ '#f)))) - (if _$e13088_ - ((lambda (_tab13091_) + (table-ref __thread-locals _thr13030_ '#f)))) + (if _$e13037_ + ((lambda (_tab13040_) (mutex-unlock! __thread-locals-mutex) - _tab13091_) - _$e13088_) - (let ((_tab13093_ + _tab13040_) + _$e13037_) + (let ((_tab13042_ (let () (declare (not safe)) (make-table 'test: eq?)))) @@ -224,10 +224,10 @@ (declare (not safe)) (table-set! __thread-locals - _thr13081_ - _tab13093_)) + _thr13030_ + _tab13042_)) (mutex-unlock! __thread-locals-mutex) - _tab13093_))))))))) + _tab13042_))))))))) (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 (_proc13078_) - (if (let () (declare (not safe)) (procedure? _proc13078_)) + (lambda (_proc13027_) + (if (let () (declare (not safe)) (procedure? _proc13027_)) '#!void - (raise (let ((__tmp13194 + (raise (let ((__tmp13143 (let () (declare (not safe)) - (cons _proc13078_ '())))) + (cons _proc13027_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -249,122 +249,124 @@ 'where: 'unhandler-actor-exception-hook-set! 'irritants: - __tmp13194)))) - (set! __unhandled-actor-exception-hook _proc13078_))) + __tmp13143)))) + (set! __unhandled-actor-exception-hook _proc13027_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx13066_ _proc13067_) - (let ((_handler13069_ (current-exception-handler))) + (lambda (_mx13015_ _proc13016_) + (let ((_handler13018_ (current-exception-handler))) (with-exception-handler - (lambda (_e13071_) - (let ((__tmp13195 + (lambda (_e13020_) + (let ((__tmp13144 (lambda () - (mutex-unlock! _mx13066_) - (_handler13069_ _e13071_)))) + (mutex-unlock! _mx13015_) + (_handler13018_ _e13020_)))) (declare (not safe)) - (with-catch void __tmp13195)) + (with-catch void __tmp13144)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e13071_))) + (##thread-end-with-uncaught-exception! _e13020_))) (lambda () - (mutex-lock! _mx13066_) - (let ((_result13075_ (_proc13067_))) - (mutex-unlock! _mx13066_) - _result13075_)))))) + (mutex-lock! _mx13015_) + (let ((_result13024_ (_proc13016_))) + (mutex-unlock! _mx13015_) + _result13024_)))))) (define with-dynamic-lock - (lambda (_mx13061_ _proc13062_) + (lambda (_mx13010_ _proc13011_) (dynamic-wind - (lambda () (mutex-lock! _mx13061_)) - _proc13062_ - (lambda () (mutex-unlock! _mx13061_))))) + (lambda () (mutex-lock! _mx13010_)) + _proc13011_ + (lambda () (mutex-unlock! _mx13010_))))) (define with-exception-stack-trace__% - (lambda (_thunk13042_ _error-port13043_) + (lambda (_thunk12991_ _error-port12992_) (with-exception-handler - (let ((_E13045_ (current-exception-handler))) - (lambda (_exn13047_) + (let ((_E12994_ (current-exception-handler))) + (lambda (_exn12996_) (continuation-capture - (lambda (_cont13049_) - (let () - (declare (not safe)) - (dump-stack-trace!__% - _cont13049_ - _exn13047_ - _error-port13043_)) - (_E13045_ _exn13047_))))) - _thunk13042_))) + (lambda (_cont12998_) + (if (dump-stack-trace?) + (let () + (declare (not safe)) + (dump-stack-trace!__% + _cont12998_ + _exn12996_ + _error-port12992_)) + '#!void) + (_E12994_ _exn12996_))))) + _thunk12991_))) (define with-exception-stack-trace__0 - (lambda (_thunk13054_) - (let ((_error-port13056_ (current-error-port))) + (lambda (_thunk13003_) + (let ((_error-port13005_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk13054_ _error-port13056_)))) + (with-exception-stack-trace__% _thunk13003_ _error-port13005_)))) (define with-exception-stack-trace - (lambda _g13197_ - (let ((_g13196_ (let () (declare (not safe)) (##length _g13197_)))) - (cond ((let () (declare (not safe)) (##fx= _g13196_ 1)) - (apply (lambda (_thunk13054_) + (lambda _g13146_ + (let ((_g13145_ (let () (declare (not safe)) (##length _g13146_)))) + (cond ((let () (declare (not safe)) (##fx= _g13145_ 1)) + (apply (lambda (_thunk13003_) (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk13054_))) - _g13197_)) - ((let () (declare (not safe)) (##fx= _g13196_ 2)) - (apply (lambda (_thunk13058_ _error-port13059_) + (with-exception-stack-trace__0 _thunk13003_))) + _g13146_)) + ((let () (declare (not safe)) (##fx= _g13145_ 2)) + (apply (lambda (_thunk13007_ _error-port13008_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk13058_ - _error-port13059_))) - _g13197_)) + _thunk13007_ + _error-port13008_))) + _g13146_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g13197_)))))) + _g13146_)))))) (define dump-stack-trace!__% - (lambda (_cont13023_ _exn13024_ _error-port13025_) - (let ((_out13027_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _out13027_)) - (display '"*** Unhandled exception in " _out13027_) - (display (current-thread) _out13027_) - (newline _out13027_) - (display-exception _exn13024_ _out13027_) + (lambda (_cont12972_ _exn12973_ _error-port12974_) + (let ((_out12976_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _out12976_)) + (display '"*** Unhandled exception in " _out12976_) + (display (current-thread) _out12976_) + (newline _out12976_) + (display-exception _exn12973_ _out12976_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn13024_)) + (class-instance? StackTrace::t _exn12973_)) '#!void (begin - (display '"Continuation backtrace: " _out13027_) - (newline _out13027_) - (display-continuation-backtrace _cont13023_ _out13027_))) - (let ((__tmp13198 (get-output-string _out13027_))) + (display '"Continuation backtrace: " _out12976_) + (newline _out12976_) + (display-continuation-backtrace _cont12972_ _out12976_))) + (let ((__tmp13147 (get-output-string _out12976_))) (declare (not safe)) - (##write-string __tmp13198 _error-port13025_))))) + (##write-string __tmp13147 _error-port12974_))))) (define dump-stack-trace!__0 - (lambda (_cont13032_ _exn13033_) - (let ((_error-port13035_ (current-error-port))) + (lambda (_cont12981_ _exn12982_) + (let ((_error-port12984_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont13032_ _exn13033_ _error-port13035_)))) + (dump-stack-trace!__% _cont12981_ _exn12982_ _error-port12984_)))) (define dump-stack-trace! - (lambda _g13200_ - (let ((_g13199_ (let () (declare (not safe)) (##length _g13200_)))) - (cond ((let () (declare (not safe)) (##fx= _g13199_ 2)) - (apply (lambda (_cont13032_ _exn13033_) + (lambda _g13149_ + (let ((_g13148_ (let () (declare (not safe)) (##length _g13149_)))) + (cond ((let () (declare (not safe)) (##fx= _g13148_ 2)) + (apply (lambda (_cont12981_ _exn12982_) (let () (declare (not safe)) - (dump-stack-trace!__0 _cont13032_ _exn13033_))) - _g13200_)) - ((let () (declare (not safe)) (##fx= _g13199_ 3)) - (apply (lambda (_cont13037_ _exn13038_ _error-port13039_) + (dump-stack-trace!__0 _cont12981_ _exn12982_))) + _g13149_)) + ((let () (declare (not safe)) (##fx= _g13148_ 3)) + (apply (lambda (_cont12986_ _exn12987_ _error-port12988_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont13037_ - _exn13038_ - _error-port13039_))) - _g13200_)) + _cont12986_ + _exn12987_ + _error-port12988_))) + _g13149_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g13200_)))))) + _g13149_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util.ssi b/src/bootstrap/gerbil/runtime/util.ssi index d0fb2cf6e6..93b3ced59d 100644 --- a/src/bootstrap/gerbil/runtime/util.ssi +++ b/src/bootstrap/gerbil/runtime/util.ssi @@ -145,6 +145,11 @@ namespace: #f (%#define-runtime fx1- fx1-) (%#define-runtime fxshift fxshift) (%#define-runtime fx/ fx/) + (%#define-runtime fx>=0? fx>=0?) + (%#define-runtime fx>0? fx>0?) + (%#define-runtime fx=0? fx=0?) + (%#define-runtime fx<0? fx<0?) + (%#define-runtime fx<=0? fx<=0?) (%#define-runtime interned-symbol? interned-symbol?) (%#define-runtime display-as-string display-as-string) (%#begin (%#define-runtime as-string__0 as-string__0) @@ -185,5 +190,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 05008c7029..7e2de68479 100644 --- a/src/bootstrap/gerbil/runtime/util.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/util.ssxi.ss @@ -212,6 +212,11 @@ package: gerbil/runtime (ast-rules (%#call) ((%#call _ arg) (%#call (%#ref fx-) arg (%#quote 1))))) (declare-type fxshift (@lambda 2 fxarithmetic-shift)) (declare-type fx/ (@lambda 2 fxquotient)) + (declare-type fx>=0? (@lambda 1 #f)) + (declare-type fx>0? (@lambda 1 #f)) + (declare-type fx=0? (@lambda 1 #f)) + (declare-type fx<0? (@lambda 1 #f)) + (declare-type fx<=0? (@lambda 1 #f)) (declare-type interned-symbol? (@lambda 1 #f)) (declare-type display-as-string (@lambda 2 #f)) (declare-type as-string__0 (@lambda 1 #f)) @@ -252,4 +257,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 b5b4518067..98af7461a5 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,2112 +1,2181 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1697117311) + (define gerbil/runtime/util::timestamp 1701173279) (begin (define displayln - (lambda _args6423_ - (let _lp6425_ ((_rest6427_ _args6423_)) - (let* ((_rest64286436_ _rest6427_) - (_else64306444_ (lambda () (newline))) - (_K64326450_ - (lambda (_rest6447_ _hd6448_) - (display _hd6448_) - (let () (declare (not safe)) (_lp6425_ _rest6447_))))) - (if (let () (declare (not safe)) (##pair? _rest64286436_)) - (let ((_hd64336453_ - (let () (declare (not safe)) (##car _rest64286436_))) - (_tl64346455_ - (let () (declare (not safe)) (##cdr _rest64286436_)))) - (let* ((_hd6458_ _hd64336453_) (_rest6460_ _tl64346455_)) + (lambda _args7639_ + (let _lp7641_ ((_rest7643_ _args7639_)) + (let* ((_rest76447652_ _rest7643_) + (_else76467660_ (lambda () (newline))) + (_K76487666_ + (lambda (_rest7663_ _hd7664_) + (display _hd7664_) + (let () (declare (not safe)) (_lp7641_ _rest7663_))))) + (if (let () (declare (not safe)) (##pair? _rest76447652_)) + (let ((_hd76497669_ + (let () (declare (not safe)) (##car _rest76447652_))) + (_tl76507671_ + (let () (declare (not safe)) (##cdr _rest76447652_)))) + (let* ((_hd7674_ _hd76497669_) (_rest7676_ _tl76507671_)) (declare (not safe)) - (_K64326450_ _rest6460_ _hd6458_))) + (_K76487666_ _rest7676_ _hd7674_))) (let () (declare (not safe)) (newline))))))) - (define display* (lambda _args6421_ (for-each display _args6421_))) + (define display* (lambda _args7637_ (for-each display _args7637_))) (define file-newer? - (lambda (_file16414_ _file26415_) - (letrec ((_modification-time6417_ - (lambda (_file6419_) - (let ((__tmp8571 + (lambda (_file17630_ _file27631_) + (letrec ((_modification-time7633_ + (lambda (_file7635_) + (let ((__tmp8042 (file-info-last-modification-time - (file-info _file6419_ '#t)))) + (file-info _file7635_ '#t)))) (declare (not safe)) - (##time->seconds __tmp8571))))) - (let ((__tmp8573 + (##time->seconds __tmp8042))))) + (let ((__tmp8044 (let () (declare (not safe)) - (_modification-time6417_ _file16414_))) - (__tmp8572 + (_modification-time7633_ _file17630_))) + (__tmp8043 (let () (declare (not safe)) - (_modification-time6417_ _file26415_)))) + (_modification-time7633_ _file27631_)))) (declare (not safe)) - (##fl> __tmp8573 __tmp8572))))) + (##fl> __tmp8044 __tmp8043))))) (define create-directory*__% - (lambda (_dir6388_ _perms6389_) - (letrec ((_create16391_ - (lambda (_path6402_) - (if (file-exists? _path6402_) - (if (let ((__tmp8574 (file-type _path6402_))) + (lambda (_dir7604_ _perms7605_) + (letrec ((_create17607_ + (lambda (_path7618_) + (if (file-exists? _path7618_) + (if (let ((__tmp8045 (file-type _path7618_))) (declare (not safe)) - (eq? __tmp8574 'directory)) + (eq? __tmp8045 'directory)) '#!void (error '"Path component is not a directory" - _path6402_)) - (if _perms6389_ + _path7618_)) + (if _perms7605_ (create-directory (list 'path: - _path6402_ + _path7618_ 'permissions: - _perms6389_)) - (create-directory _path6402_)))))) - (if (file-exists? _dir6388_) + _perms7605_)) + (create-directory _path7618_)))))) + (if (file-exists? _dir7604_) '#!void - (let _lp6393_ ((_start6395_ '0)) - (let ((_$e6397_ + (let _lp7609_ ((_start7611_ '0)) + (let ((_$e7613_ (let () (declare (not safe)) - (string-index _dir6388_ '#\/ _start6395_)))) - (if _$e6397_ - ((lambda (_x6400_) - (if (let () (declare (not safe)) (##fx> _x6400_ '0)) - (let ((__tmp8575 - (substring _dir6388_ '0 _x6400_))) + (string-index _dir7604_ '#\/ _start7611_)))) + (if _$e7613_ + ((lambda (_x7616_) + (if (let () (declare (not safe)) (##fx> _x7616_ '0)) + (let ((__tmp8046 + (substring _dir7604_ '0 _x7616_))) (declare (not safe)) - (_create16391_ __tmp8575)) + (_create17607_ __tmp8046)) '#!void) - (let ((__tmp8576 + (let ((__tmp8047 (let () (declare (not safe)) - (##fx+ _x6400_ '1)))) + (##fx+ _x7616_ '1)))) (declare (not safe)) - (_lp6393_ __tmp8576))) - _$e6397_) + (_lp7609_ __tmp8047))) + _$e7613_) (let () (declare (not safe)) - (_create16391_ _dir6388_))))))))) + (_create17607_ _dir7604_))))))))) (define create-directory*__0 - (lambda (_dir6407_) - (let ((_perms6409_ '493)) + (lambda (_dir7623_) + (let ((_perms7625_ '493)) (declare (not safe)) - (create-directory*__% _dir6407_ _perms6409_)))) + (create-directory*__% _dir7623_ _perms7625_)))) (define create-directory* - (lambda _g8578_ - (let ((_g8577_ (let () (declare (not safe)) (##length _g8578_)))) - (cond ((let () (declare (not safe)) (##fx= _g8577_ 1)) - (apply (lambda (_dir6407_) + (lambda _g8049_ + (let ((_g8048_ (let () (declare (not safe)) (##length _g8049_)))) + (cond ((let () (declare (not safe)) (##fx= _g8048_ 1)) + (apply (lambda (_dir7623_) (let () (declare (not safe)) - (create-directory*__0 _dir6407_))) - _g8578_)) - ((let () (declare (not safe)) (##fx= _g8577_ 2)) - (apply (lambda (_dir6411_ _perms6412_) + (create-directory*__0 _dir7623_))) + _g8049_)) + ((let () (declare (not safe)) (##fx= _g8048_ 2)) + (apply (lambda (_dir7627_ _perms7628_) (let () (declare (not safe)) - (create-directory*__% _dir6411_ _perms6412_))) - _g8578_)) + (create-directory*__% _dir7627_ _perms7628_))) + _g8049_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g8578_)))))) + _g8049_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _g8579_ '#t)) + (define true (lambda _g8050_ '#t)) (define true? - (lambda (_obj6384_) (let () (declare (not safe)) (eq? _obj6384_ '#t)))) - (define false (lambda _g8580_ '#f)) - (define void (lambda _g8581_ '#!void)) + (lambda (_obj7600_) (let () (declare (not safe)) (eq? _obj7600_ '#t)))) + (define false (lambda _g8051_ '#f)) + (define void (lambda _g8052_ '#!void)) (define void? - (lambda (_obj6380_) - (let () (declare (not safe)) (eq? _obj6380_ '#!void)))) - (define eof-object (lambda _g8582_ '#!eof)) - (define identity (lambda (_obj6377_) _obj6377_)) + (lambda (_obj7596_) + (let () (declare (not safe)) (eq? _obj7596_ '#!void)))) + (define eof-object (lambda _g8053_ '#!eof)) + (define identity (lambda (_obj7593_) _obj7593_)) (define dssl-object? - (lambda (_obj6375_) - (if (memq _obj6375_ '(#!key #!rest #!optional)) '#t '#f))) + (lambda (_obj7591_) + (if (memq _obj7591_ '(#!key #!rest #!optional)) '#t '#f))) (define dssl-key-object? - (lambda (_obj6373_) - (let () (declare (not safe)) (eq? _obj6373_ '#!key)))) + (lambda (_obj7589_) + (let () (declare (not safe)) (eq? _obj7589_ '#!key)))) (define dssl-rest-object? - (lambda (_obj6371_) - (let () (declare (not safe)) (eq? _obj6371_ '#!rest)))) + (lambda (_obj7587_) + (let () (declare (not safe)) (eq? _obj7587_ '#!rest)))) (define dssl-optional-object? - (lambda (_obj6369_) - (let () (declare (not safe)) (eq? _obj6369_ '#!optional)))) + (lambda (_obj7585_) + (let () (declare (not safe)) (eq? _obj7585_ '#!optional)))) (define immediate? - (lambda (_obj6365_) - (let* ((_t6367_ (let () (declare (not safe)) (##type _obj6365_))) - (__tmp8583 (let () (declare (not safe)) (##fxand _t6367_ '1)))) + (lambda (_obj7581_) + (let* ((_t7583_ (let () (declare (not safe)) (##type _obj7581_))) + (__tmp8054 (let () (declare (not safe)) (##fxand _t7583_ '1)))) (declare (not safe)) - (##fxzero? __tmp8583)))) + (##fxzero? __tmp8054)))) (define nonnegative-fixnum? - (lambda (_obj6363_) - (if (fixnum? _obj6363_) - (let ((__tmp8584 (fxnegative? _obj6363_))) + (lambda (_obj7579_) + (if (fixnum? _obj7579_) + (let ((__tmp8055 (fxnegative? _obj7579_))) (declare (not safe)) - (not __tmp8584)) + (not __tmp8055)) '#f))) (define values-count - (lambda (_obj6361_) - (if (let () (declare (not safe)) (##values? _obj6361_)) - (let () (declare (not safe)) (##vector-length _obj6361_)) + (lambda (_obj7577_) + (if (let () (declare (not safe)) (##values? _obj7577_)) + (let () (declare (not safe)) (##vector-length _obj7577_)) '1))) (define values-ref - (lambda (_obj6358_ _k6359_) - (if (let () (declare (not safe)) (##values? _obj6358_)) - (let () (declare (not safe)) (##vector-ref _obj6358_ _k6359_)) - _obj6358_))) + (lambda (_obj7574_ _k7575_) + (if (let () (declare (not safe)) (##values? _obj7574_)) + (let () (declare (not safe)) (##vector-ref _obj7574_ _k7575_)) + _obj7574_))) (define values->list - (lambda (_obj6356_) - (if (let () (declare (not safe)) (##values? _obj6356_)) - (let () (declare (not safe)) (##vector->list _obj6356_)) - (list _obj6356_)))) + (lambda (_obj7572_) + (if (let () (declare (not safe)) (##values? _obj7572_)) + (let () (declare (not safe)) (##vector->list _obj7572_)) + (list _obj7572_)))) (define subvector->list__% - (lambda (_obj6341_ _start6342_) - (let ((_lst6344_ - (let () (declare (not safe)) (##vector->list _obj6341_)))) - (list-tail _lst6344_ _start6342_)))) + (lambda (_obj7557_ _start7558_) + (let ((_lst7560_ + (let () (declare (not safe)) (##vector->list _obj7557_)))) + (list-tail _lst7560_ _start7558_)))) (define subvector->list__0 - (lambda (_obj6349_) - (let ((_start6351_ '0)) + (lambda (_obj7565_) + (let ((_start7567_ '0)) (declare (not safe)) - (subvector->list__% _obj6349_ _start6351_)))) + (subvector->list__% _obj7565_ _start7567_)))) (define subvector->list - (lambda _g8586_ - (let ((_g8585_ (let () (declare (not safe)) (##length _g8586_)))) - (cond ((let () (declare (not safe)) (##fx= _g8585_ 1)) - (apply (lambda (_obj6349_) + (lambda _g8057_ + (let ((_g8056_ (let () (declare (not safe)) (##length _g8057_)))) + (cond ((let () (declare (not safe)) (##fx= _g8056_ 1)) + (apply (lambda (_obj7565_) (let () (declare (not safe)) - (subvector->list__0 _obj6349_))) - _g8586_)) - ((let () (declare (not safe)) (##fx= _g8585_ 2)) - (apply (lambda (_obj6353_ _start6354_) + (subvector->list__0 _obj7565_))) + _g8057_)) + ((let () (declare (not safe)) (##fx= _g8056_ 2)) + (apply (lambda (_obj7569_ _start7570_) (let () (declare (not safe)) - (subvector->list__% _obj6353_ _start6354_))) - _g8586_)) + (subvector->list__% _obj7569_ _start7570_))) + _g8057_)) (else (##raise-wrong-number-of-arguments-exception subvector->list - _g8586_)))))) + _g8057_)))))) (define make-hash-table make-table) (define make-hash-table-eq - (lambda _args6338_ (apply make-table 'test: eq? _args6338_))) + (lambda _args7554_ (apply make-table 'test: eq? _args7554_))) (define make-hash-table-eqv - (lambda _args6336_ (apply make-table 'test: eqv? _args6336_))) + (lambda _args7552_ (apply make-table 'test: eqv? _args7552_))) (define list->hash-table list->table) (define list->hash-table-eq - (lambda (_lst6333_ . _args6334_) - (apply list->table _lst6333_ 'test: eq? _args6334_))) + (lambda (_lst7549_ . _args7550_) + (apply list->table _lst7549_ 'test: eq? _args7550_))) (define list->hash-table-eqv - (lambda (_lst6330_ . _args6331_) - (apply list->table _lst6330_ 'test: eqv? _args6331_))) + (lambda (_lst7546_ . _args7547_) + (apply list->table _lst7546_ 'test: eqv? _args7547_))) (define hash? table?) (define hash-table? table?) (define hash-length table-length) (define hash-ref table-ref) (define hash-get - (lambda (_ht6327_ _k6328_) (table-ref _ht6327_ _k6328_ '#f))) + (lambda (_ht7543_ _k7544_) (table-ref _ht7543_ _k7544_ '#f))) (define hash-put! - (lambda (_ht6323_ _k6324_ _v6325_) - (table-set! _ht6323_ _k6324_ _v6325_))) + (lambda (_ht7539_ _k7540_ _v7541_) + (table-set! _ht7539_ _k7540_ _v7541_))) (define hash-update!__% - (lambda (_ht6302_ _k6303_ _update6304_ _default6305_) - (let* ((_value6307_ + (lambda (_ht7518_ _k7519_ _update7520_ _default7521_) + (let* ((_value7523_ (let () (declare (not safe)) - (table-ref _ht6302_ _k6303_ _default6305_))) - (__tmp8587 (_update6304_ _value6307_))) + (table-ref _ht7518_ _k7519_ _default7521_))) + (__tmp8058 (_update7520_ _value7523_))) (declare (not safe)) - (table-set! _ht6302_ _k6303_ __tmp8587)))) + (table-set! _ht7518_ _k7519_ __tmp8058)))) (define hash-update!__0 - (lambda (_ht6312_ _k6313_ _update6314_) - (let ((_default6316_ '#!void)) + (lambda (_ht7528_ _k7529_ _update7530_) + (let ((_default7532_ '#!void)) (declare (not safe)) - (hash-update!__% _ht6312_ _k6313_ _update6314_ _default6316_)))) + (hash-update!__% _ht7528_ _k7529_ _update7530_ _default7532_)))) (define hash-update! - (lambda _g8589_ - (let ((_g8588_ (let () (declare (not safe)) (##length _g8589_)))) - (cond ((let () (declare (not safe)) (##fx= _g8588_ 3)) - (apply (lambda (_ht6312_ _k6313_ _update6314_) + (lambda _g8060_ + (let ((_g8059_ (let () (declare (not safe)) (##length _g8060_)))) + (cond ((let () (declare (not safe)) (##fx= _g8059_ 3)) + (apply (lambda (_ht7528_ _k7529_ _update7530_) (let () (declare (not safe)) - (hash-update!__0 _ht6312_ _k6313_ _update6314_))) - _g8589_)) - ((let () (declare (not safe)) (##fx= _g8588_ 4)) - (apply (lambda (_ht6318_ _k6319_ _update6320_ _default6321_) + (hash-update!__0 _ht7528_ _k7529_ _update7530_))) + _g8060_)) + ((let () (declare (not safe)) (##fx= _g8059_ 4)) + (apply (lambda (_ht7534_ _k7535_ _update7536_ _default7537_) (let () (declare (not safe)) (hash-update!__% - _ht6318_ - _k6319_ - _update6320_ - _default6321_))) - _g8589_)) + _ht7534_ + _k7535_ + _update7536_ + _default7537_))) + _g8060_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g8589_)))))) + _g8060_)))))) (define hash-remove! - (lambda (_ht6298_ _k6299_) (table-set! _ht6298_ _k6299_))) + (lambda (_ht7514_ _k7515_) (table-set! _ht7514_ _k7515_))) (define hash->list table->list) (define hash->plist - (lambda (_ht6296_) - (let () (declare (not safe)) (hash-fold cons* '() _ht6296_)))) + (lambda (_ht7512_) + (let () (declare (not safe)) (hash-fold cons* '() _ht7512_)))) (define plist->hash-table__% - (lambda (_plst6231_ _ht6232_) - (let _lp6234_ ((_rest6236_ _plst6231_)) - (let* ((_rest62376248_ _rest6236_) - (_E62406252_ - (lambda () (error '"No clause matching" _rest62376248_)))) - (let ((_K62426267_ - (lambda (_rest6263_ _v6264_ _k6265_) + (lambda (_plst7447_ _ht7448_) + (let _lp7450_ ((_rest7452_ _plst7447_)) + (let* ((_rest74537464_ _rest7452_) + (_E74567468_ + (lambda () (error '"No clause matching" _rest74537464_)))) + (let ((_K74587483_ + (lambda (_rest7479_ _v7480_ _k7481_) (let () (declare (not safe)) - (table-set! _ht6232_ _k6265_ _v6264_)) - (let () (declare (not safe)) (_lp6234_ _rest6263_)))) - (_K62416257_ (lambda () _ht6232_))) - (let ((_try-match62396260_ + (table-set! _ht7448_ _k7481_ _v7480_)) + (let () (declare (not safe)) (_lp7450_ _rest7479_)))) + (_K74577473_ (lambda () _ht7448_))) + (let ((_try-match74557476_ (lambda () (if (let () (declare (not safe)) - (##eq? _rest62376248_ '())) - (let () (declare (not safe)) (_K62416257_)) - (let () (declare (not safe)) (_E62406252_)))))) - (if (let () (declare (not safe)) (##pair? _rest62376248_)) - (let ((_tl62446272_ + (##eq? _rest74537464_ '())) + (let () (declare (not safe)) (_K74577473_)) + (let () (declare (not safe)) (_E74567468_)))))) + (if (let () (declare (not safe)) (##pair? _rest74537464_)) + (let ((_tl74607488_ (let () (declare (not safe)) - (##cdr _rest62376248_))) - (_hd62436270_ + (##cdr _rest74537464_))) + (_hd74597486_ (let () (declare (not safe)) - (##car _rest62376248_)))) - (if (let () (declare (not safe)) (##pair? _tl62446272_)) - (let ((_tl62466279_ + (##car _rest74537464_)))) + (if (let () (declare (not safe)) (##pair? _tl74607488_)) + (let ((_tl74627495_ (let () (declare (not safe)) - (##cdr _tl62446272_))) - (_hd62456277_ + (##cdr _tl74607488_))) + (_hd74617493_ (let () (declare (not safe)) - (##car _tl62446272_)))) - (let ((_k6275_ _hd62436270_) - (_v6282_ _hd62456277_) - (_rest6284_ _tl62466279_)) + (##car _tl74607488_)))) + (let ((_k7491_ _hd74597486_) + (_v7498_ _hd74617493_) + (_rest7500_ _tl74627495_)) (let () (declare (not safe)) - (_K62426267_ _rest6284_ _v6282_ _k6275_)))) - (let () (declare (not safe)) (_try-match62396260_)))) - (let () (declare (not safe)) (_try-match62396260_))))))))) + (_K74587483_ _rest7500_ _v7498_ _k7491_)))) + (let () (declare (not safe)) (_try-match74557476_)))) + (let () (declare (not safe)) (_try-match74557476_))))))))) (define plist->hash-table__0 - (lambda (_plst6289_) - (let ((_ht6291_ (let () (declare (not safe)) (make-table)))) + (lambda (_plst7505_) + (let ((_ht7507_ (let () (declare (not safe)) (make-table)))) (declare (not safe)) - (plist->hash-table__% _plst6289_ _ht6291_)))) + (plist->hash-table__% _plst7505_ _ht7507_)))) (define plist->hash-table - (lambda _g8591_ - (let ((_g8590_ (let () (declare (not safe)) (##length _g8591_)))) - (cond ((let () (declare (not safe)) (##fx= _g8590_ 1)) - (apply (lambda (_plst6289_) + (lambda _g8062_ + (let ((_g8061_ (let () (declare (not safe)) (##length _g8062_)))) + (cond ((let () (declare (not safe)) (##fx= _g8061_ 1)) + (apply (lambda (_plst7505_) (let () (declare (not safe)) - (plist->hash-table__0 _plst6289_))) - _g8591_)) - ((let () (declare (not safe)) (##fx= _g8590_ 2)) - (apply (lambda (_plst6293_ _ht6294_) + (plist->hash-table__0 _plst7505_))) + _g8062_)) + ((let () (declare (not safe)) (##fx= _g8061_ 2)) + (apply (lambda (_plst7509_ _ht7510_) (let () (declare (not safe)) - (plist->hash-table__% _plst6293_ _ht6294_))) - _g8591_)) + (plist->hash-table__% _plst7509_ _ht7510_))) + _g8062_)) (else (##raise-wrong-number-of-arguments-exception plist->hash-table - _g8591_)))))) + _g8062_)))))) (define plist->hash-table-eq - (lambda (_plst6228_) - (let ((__tmp8592 + (lambda (_plst7444_) + (let ((__tmp8063 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (plist->hash-table _plst6228_ __tmp8592)))) + (plist->hash-table _plst7444_ __tmp8063)))) (define plist->hash-table-eqv - (lambda (_plst6226_) - (let ((__tmp8593 + (lambda (_plst7442_) + (let ((__tmp8064 (let () (declare (not safe)) (make-table 'test: eqv?)))) (declare (not safe)) - (plist->hash-table _plst6226_ __tmp8593)))) + (plist->hash-table _plst7442_ __tmp8064)))) (define hash-key? - (lambda (_ht6223_ _k6224_) - (let ((__tmp8594 - (let ((__tmp8595 + (lambda (_ht7439_ _k7440_) + (let ((__tmp8065 + (let ((__tmp8066 (let () (declare (not safe)) - (table-ref _ht6223_ _k6224_ absent-value)))) + (table-ref _ht7439_ _k7440_ absent-value)))) (declare (not safe)) - (eq? __tmp8595 absent-value)))) + (eq? __tmp8066 absent-value)))) (declare (not safe)) - (not __tmp8594)))) + (not __tmp8065)))) (define hash-for-each table-for-each) (define hash-map - (lambda (_fun6216_ _ht6217_) - (let ((__tmp8596 - (lambda (_k6219_ _v6220_ _r6221_) - (let ((__tmp8597 (_fun6216_ _k6219_ _v6220_))) + (lambda (_fun7432_ _ht7433_) + (let ((__tmp8067 + (lambda (_k7435_ _v7436_ _r7437_) + (let ((__tmp8068 (_fun7432_ _k7435_ _v7436_))) (declare (not safe)) - (cons __tmp8597 _r6221_))))) + (cons __tmp8068 _r7437_))))) (declare (not safe)) - (hash-fold __tmp8596 '() _ht6217_)))) + (hash-fold __tmp8067 '() _ht7433_)))) (define hash-fold - (lambda (_fun6207_ _iv6208_ _ht6209_) - (let ((_ret6211_ _iv6208_)) - (let ((__tmp8598 - (lambda (_k6213_ _v6214_) - (set! _ret6211_ (_fun6207_ _k6213_ _v6214_ _ret6211_))))) + (lambda (_fun7423_ _iv7424_ _ht7425_) + (let ((_ret7427_ _iv7424_)) + (let ((__tmp8069 + (lambda (_k7429_ _v7430_) + (set! _ret7427_ (_fun7423_ _k7429_ _v7430_ _ret7427_))))) (declare (not safe)) - (table-for-each __tmp8598 _ht6209_)) - _ret6211_))) + (table-for-each __tmp8069 _ht7425_)) + _ret7427_))) (define hash-find table-search) (define hash-keys - (lambda (_ht6202_) - (let ((__tmp8599 (lambda (_k6204_ _v6205_) _k6204_))) + (lambda (_ht7418_) + (let ((__tmp8070 (lambda (_k7420_ _v7421_) _k7420_))) (declare (not safe)) - (hash-map __tmp8599 _ht6202_)))) + (hash-map __tmp8070 _ht7418_)))) (define hash-values - (lambda (_ht6197_) - (let ((__tmp8600 (lambda (_k6199_ _v6200_) _v6200_))) + (lambda (_ht7413_) + (let ((__tmp8071 (lambda (_k7415_ _v7416_) _v7416_))) (declare (not safe)) - (hash-map __tmp8600 _ht6197_)))) + (hash-map __tmp8071 _ht7413_)))) (define hash-copy - (lambda (_hd6192_ . _rest6193_) - (let ((_hd6195_ (table-copy _hd6192_))) - (if (let () (declare (not safe)) (null? _rest6193_)) - _hd6195_ - (apply hash-copy! _hd6195_ _rest6193_))))) + (lambda (_hd7408_ . _rest7409_) + (let ((_hd7411_ (table-copy _hd7408_))) + (if (let () (declare (not safe)) (null? _rest7409_)) + _hd7411_ + (apply hash-copy! _hd7411_ _rest7409_))))) (define hash-copy! - (lambda (_hd6187_ . _rest6188_) + (lambda (_hd7403_ . _rest7404_) (for-each - (lambda (_r6190_) (table-merge! _hd6187_ _r6190_)) - _rest6188_) - _hd6187_)) + (lambda (_r7406_) (table-merge! _hd7403_ _r7406_)) + _rest7404_) + _hd7403_)) (define hash-merge - (lambda (_hd6181_ . _rest6182_) - (let ((__tmp8601 - (lambda (_tab6184_ _r6185_) (table-merge _r6185_ _tab6184_)))) + (lambda (_hd7397_ . _rest7398_) + (let ((__tmp8072 + (lambda (_tab7400_ _r7401_) (table-merge _r7401_ _tab7400_)))) (declare (not safe)) - (foldl1 __tmp8601 _hd6181_ _rest6182_)))) + (foldl1 __tmp8072 _hd7397_ _rest7398_)))) (define hash-merge! - (lambda (_hd6175_ . _rest6176_) - (let ((__tmp8602 - (lambda (_tab6178_ _r6179_) (table-merge! _r6179_ _tab6178_)))) + (lambda (_hd7391_ . _rest7392_) + (let ((__tmp8073 + (lambda (_tab7394_ _r7395_) (table-merge! _r7395_ _tab7394_)))) (declare (not safe)) - (foldl1 __tmp8602 _hd6175_ _rest6176_)))) + (foldl1 __tmp8073 _hd7391_ _rest7392_)))) (define hash-clear!__% - (lambda (_ht6160_ _size6161_) - (let ((_gcht6163_ - (let () (declare (not safe)) (##vector-ref _ht6160_ '5)))) - (if (let ((__tmp8603 (fixnum? _gcht6163_))) + (lambda (_ht7376_ _size7377_) + (let ((_gcht7379_ + (let () (declare (not safe)) (##vector-ref _ht7376_ '5)))) + (if (let ((__tmp8074 (fixnum? _gcht7379_))) (declare (not safe)) - (not __tmp8603)) + (not __tmp8074)) (let () (declare (not safe)) - (##vector-set! _ht6160_ '5 _size6161_)) + (##vector-set! _ht7376_ '5 _size7377_)) '#!void)))) (define hash-clear!__0 - (lambda (_ht6168_) - (let ((_size6170_ '0)) + (lambda (_ht7384_) + (let ((_size7386_ '0)) (declare (not safe)) - (hash-clear!__% _ht6168_ _size6170_)))) + (hash-clear!__% _ht7384_ _size7386_)))) (define hash-clear! - (lambda _g8605_ - (let ((_g8604_ (let () (declare (not safe)) (##length _g8605_)))) - (cond ((let () (declare (not safe)) (##fx= _g8604_ 1)) - (apply (lambda (_ht6168_) + (lambda _g8076_ + (let ((_g8075_ (let () (declare (not safe)) (##length _g8076_)))) + (cond ((let () (declare (not safe)) (##fx= _g8075_ 1)) + (apply (lambda (_ht7384_) (let () (declare (not safe)) - (hash-clear!__0 _ht6168_))) - _g8605_)) - ((let () (declare (not safe)) (##fx= _g8604_ 2)) - (apply (lambda (_ht6172_ _size6173_) + (hash-clear!__0 _ht7384_))) + _g8076_)) + ((let () (declare (not safe)) (##fx= _g8075_ 2)) + (apply (lambda (_ht7388_ _size7389_) (let () (declare (not safe)) - (hash-clear!__% _ht6172_ _size6173_))) - _g8605_)) + (hash-clear!__% _ht7388_ _size7389_))) + _g8076_)) (else (##raise-wrong-number-of-arguments-exception hash-clear! - _g8605_)))))) + _g8076_)))))) (define make-list__% - (lambda (_k6141_ _val6142_) - (if (fixnum? _k6141_) + (lambda (_k7357_ _val7358_) + (if (fixnum? _k7357_) '#!void - (error '"expected argument 1 to be fixnum" _k6141_)) - (let _lp6144_ ((_n6146_ '0) (_r6147_ '())) - (if (let () (declare (not safe)) (##fx< _n6146_ _k6141_)) - (let ((__tmp8607 - (let () (declare (not safe)) (##fx+ _n6146_ '1))) - (__tmp8606 - (let () (declare (not safe)) (cons _val6142_ _r6147_)))) + (error '"expected argument 1 to be fixnum" _k7357_)) + (let _lp7360_ ((_n7362_ '0) (_r7363_ '())) + (if (let () (declare (not safe)) (##fx< _n7362_ _k7357_)) + (let ((__tmp8078 + (let () (declare (not safe)) (##fx+ _n7362_ '1))) + (__tmp8077 + (let () (declare (not safe)) (cons _val7358_ _r7363_)))) (declare (not safe)) - (_lp6144_ __tmp8607 __tmp8606)) - _r6147_)))) + (_lp7360_ __tmp8078 __tmp8077)) + _r7363_)))) (define make-list__0 - (lambda (_k6152_) - (let ((_val6154_ '#f)) + (lambda (_k7368_) + (let ((_val7370_ '#f)) (declare (not safe)) - (make-list__% _k6152_ _val6154_)))) + (make-list__% _k7368_ _val7370_)))) (define make-list - (lambda _g8609_ - (let ((_g8608_ (let () (declare (not safe)) (##length _g8609_)))) - (cond ((let () (declare (not safe)) (##fx= _g8608_ 1)) - (apply (lambda (_k6152_) - (let () (declare (not safe)) (make-list__0 _k6152_))) - _g8609_)) - ((let () (declare (not safe)) (##fx= _g8608_ 2)) - (apply (lambda (_k6156_ _val6157_) + (lambda _g8080_ + (let ((_g8079_ (let () (declare (not safe)) (##length _g8080_)))) + (cond ((let () (declare (not safe)) (##fx= _g8079_ 1)) + (apply (lambda (_k7368_) + (let () (declare (not safe)) (make-list__0 _k7368_))) + _g8080_)) + ((let () (declare (not safe)) (##fx= _g8079_ 2)) + (apply (lambda (_k7372_ _val7373_) (let () (declare (not safe)) - (make-list__% _k6156_ _val6157_))) - _g8609_)) + (make-list__% _k7372_ _val7373_))) + _g8080_)) (else (##raise-wrong-number-of-arguments-exception make-list - _g8609_)))))) + _g8080_)))))) (define cons* - (lambda (_x6131_ _y6132_ . _rest6133_) - (letrec ((_recur6135_ - (lambda (_x6137_ _rest6138_) - (if (let () (declare (not safe)) (pair? _rest6138_)) - (let ((__tmp8610 - (let ((__tmp8612 + (lambda (_x7347_ _y7348_ . _rest7349_) + (letrec ((_recur7351_ + (lambda (_x7353_ _rest7354_) + (if (let () (declare (not safe)) (pair? _rest7354_)) + (let ((__tmp8081 + (let ((__tmp8083 (let () (declare (not safe)) - (##car _rest6138_))) - (__tmp8611 + (##car _rest7354_))) + (__tmp8082 (let () (declare (not safe)) - (##cdr _rest6138_)))) + (##cdr _rest7354_)))) (declare (not safe)) - (_recur6135_ __tmp8612 __tmp8611)))) + (_recur7351_ __tmp8083 __tmp8082)))) (declare (not safe)) - (cons _x6137_ __tmp8610)) - _x6137_)))) - (let ((__tmp8613 + (cons _x7353_ __tmp8081)) + _x7353_)))) + (let ((__tmp8084 (let () (declare (not safe)) - (_recur6135_ _y6132_ _rest6133_)))) + (_recur7351_ _y7348_ _rest7349_)))) (declare (not safe)) - (cons _x6131_ __tmp8613))))) + (cons _x7347_ __tmp8084))))) (define foldl1 - (lambda (_f6089_ _iv6090_ _lst6091_) - (let _lp6093_ ((_rest6095_ _lst6091_) (_r6096_ _iv6090_)) - (let* ((_rest60976105_ _rest6095_) - (_else60996113_ (lambda () _r6096_)) - (_K61016119_ - (lambda (_rest6116_ _x6117_) - (let ((__tmp8614 (_f6089_ _x6117_ _r6096_))) + (lambda (_f7305_ _iv7306_ _lst7307_) + (let _lp7309_ ((_rest7311_ _lst7307_) (_r7312_ _iv7306_)) + (let* ((_rest73137321_ _rest7311_) + (_else73157329_ (lambda () _r7312_)) + (_K73177335_ + (lambda (_rest7332_ _x7333_) + (let ((__tmp8085 (_f7305_ _x7333_ _r7312_))) (declare (not safe)) - (_lp6093_ _rest6116_ __tmp8614))))) - (if (let () (declare (not safe)) (##pair? _rest60976105_)) - (let ((_hd61026122_ - (let () (declare (not safe)) (##car _rest60976105_))) - (_tl61036124_ - (let () (declare (not safe)) (##cdr _rest60976105_)))) - (let* ((_x6127_ _hd61026122_) (_rest6129_ _tl61036124_)) + (_lp7309_ _rest7332_ __tmp8085))))) + (if (let () (declare (not safe)) (##pair? _rest73137321_)) + (let ((_hd73187338_ + (let () (declare (not safe)) (##car _rest73137321_))) + (_tl73197340_ + (let () (declare (not safe)) (##cdr _rest73137321_)))) + (let* ((_x7343_ _hd73187338_) (_rest7345_ _tl73197340_)) (declare (not safe)) - (_K61016119_ _rest6129_ _x6127_))) - (let () (declare (not safe)) (_else60996113_))))))) + (_K73177335_ _rest7345_ _x7343_))) + (let () (declare (not safe)) (_else73157329_))))))) (define foldl2 - (lambda (_f6012_ _iv6013_ _lst16014_ _lst26015_) - (let _lp6017_ ((_rest16019_ _lst16014_) - (_rest26020_ _lst26015_) - (_r6021_ _iv6013_)) - (let* ((_rest160226030_ _rest16019_) - (_else60246038_ (lambda () _r6021_)) - (_K60266077_ - (lambda (_rest16041_ _x16042_) - (let* ((_rest260436051_ _rest26020_) - (_else60456059_ (lambda () _r6021_)) - (_K60476065_ - (lambda (_rest26062_ _x26063_) - (let ((__tmp8615 - (_f6012_ _x16042_ _x26063_ _r6021_))) + (lambda (_f7228_ _iv7229_ _lst17230_ _lst27231_) + (let _lp7233_ ((_rest17235_ _lst17230_) + (_rest27236_ _lst27231_) + (_r7237_ _iv7229_)) + (let* ((_rest172387246_ _rest17235_) + (_else72407254_ (lambda () _r7237_)) + (_K72427293_ + (lambda (_rest17257_ _x17258_) + (let* ((_rest272597267_ _rest27236_) + (_else72617275_ (lambda () _r7237_)) + (_K72637281_ + (lambda (_rest27278_ _x27279_) + (let ((__tmp8086 + (_f7228_ _x17258_ _x27279_ _r7237_))) (declare (not safe)) - (_lp6017_ - _rest16041_ - _rest26062_ - __tmp8615))))) + (_lp7233_ + _rest17257_ + _rest27278_ + __tmp8086))))) (if (let () (declare (not safe)) - (##pair? _rest260436051_)) - (let ((_hd60486068_ + (##pair? _rest272597267_)) + (let ((_hd72647284_ (let () (declare (not safe)) - (##car _rest260436051_))) - (_tl60496070_ + (##car _rest272597267_))) + (_tl72657286_ (let () (declare (not safe)) - (##cdr _rest260436051_)))) - (let* ((_x26073_ _hd60486068_) - (_rest26075_ _tl60496070_)) + (##cdr _rest272597267_)))) + (let* ((_x27289_ _hd72647284_) + (_rest27291_ _tl72657286_)) (declare (not safe)) - (_K60476065_ _rest26075_ _x26073_))) - (let () (declare (not safe)) (_else60456059_))))))) - (if (let () (declare (not safe)) (##pair? _rest160226030_)) - (let ((_hd60276080_ - (let () (declare (not safe)) (##car _rest160226030_))) - (_tl60286082_ - (let () (declare (not safe)) (##cdr _rest160226030_)))) - (let* ((_x16085_ _hd60276080_) (_rest16087_ _tl60286082_)) + (_K72637281_ _rest27291_ _x27289_))) + (let () (declare (not safe)) (_else72617275_))))))) + (if (let () (declare (not safe)) (##pair? _rest172387246_)) + (let ((_hd72437296_ + (let () (declare (not safe)) (##car _rest172387246_))) + (_tl72447298_ + (let () (declare (not safe)) (##cdr _rest172387246_)))) + (let* ((_x17301_ _hd72437296_) (_rest17303_ _tl72447298_)) (declare (not safe)) - (_K60266077_ _rest16087_ _x16085_))) - (let () (declare (not safe)) (_else60246038_))))))) + (_K72427293_ _rest17303_ _x17301_))) + (let () (declare (not safe)) (_else72407254_))))))) (define foldl - (lambda _g8617_ - (let ((_g8616_ (let () (declare (not safe)) (##length _g8617_)))) - (cond ((let () (declare (not safe)) (##fx= _g8616_ 3)) - (apply (lambda (_f5997_ _iv5998_ _lst5999_) + (lambda _g8088_ + (let ((_g8087_ (let () (declare (not safe)) (##length _g8088_)))) + (cond ((let () (declare (not safe)) (##fx= _g8087_ 3)) + (apply (lambda (_f7213_ _iv7214_ _lst7215_) (let () (declare (not safe)) - (foldl1 _f5997_ _iv5998_ _lst5999_))) - _g8617_)) - ((let () (declare (not safe)) (##fx= _g8616_ 4)) - (apply (lambda (_f6001_ _iv6002_ _lst16003_ _lst26004_) + (foldl1 _f7213_ _iv7214_ _lst7215_))) + _g8088_)) + ((let () (declare (not safe)) (##fx= _g8087_ 4)) + (apply (lambda (_f7217_ _iv7218_ _lst17219_ _lst27220_) (let () (declare (not safe)) - (foldl2 _f6001_ _iv6002_ _lst16003_ _lst26004_))) - _g8617_)) - ((let () (declare (not safe)) (##fx>= _g8616_ 4)) - (apply foldl* _g8617_)) + (foldl2 _f7217_ _iv7218_ _lst17219_ _lst27220_))) + _g8088_)) + ((let () (declare (not safe)) (##fx>= _g8087_ 4)) + (apply foldl* _g8088_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g8617_)))))) + _g8088_)))))) (define foldl* - (lambda (_f5985_ _iv5986_ . _rest5987_) - (let _recur5989_ ((_iv5991_ _iv5986_) (_rest5992_ _rest5987_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest5992_)) - (let ((__tmp8619 - (apply _f5985_ - (let ((__tmp8621 - (lambda (_xs5994_ _r5995_) - (let ((__tmp8622 (car _xs5994_))) + (lambda (_f7201_ _iv7202_ . _rest7203_) + (let _recur7205_ ((_iv7207_ _iv7202_) (_rest7208_ _rest7203_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest7208_)) + (let ((__tmp8090 + (apply _f7201_ + (let ((__tmp8092 + (lambda (_xs7210_ _r7211_) + (let ((__tmp8093 (car _xs7210_))) (declare (not safe)) - (cons __tmp8622 _r5995_)))) - (__tmp8620 (list _iv5991_))) + (cons __tmp8093 _r7211_)))) + (__tmp8091 (list _iv7207_))) (declare (not safe)) - (foldr1 __tmp8621 __tmp8620 _rest5992_)))) - (__tmp8618 (map cdr _rest5992_))) + (foldr1 __tmp8092 __tmp8091 _rest7208_)))) + (__tmp8089 (map cdr _rest7208_))) (declare (not safe)) - (_recur5989_ __tmp8619 __tmp8618)) - _iv5991_)))) + (_recur7205_ __tmp8090 __tmp8089)) + _iv7207_)))) (define foldr1 - (lambda (_f5944_ _iv5945_ _lst5946_) - (let _recur5948_ ((_rest5950_ _lst5946_)) - (let* ((_rest59515959_ _rest5950_) - (_else59535967_ (lambda () _iv5945_)) - (_K59555973_ - (lambda (_rest5970_ _x5971_) - (_f5944_ _x5971_ + (lambda (_f7160_ _iv7161_ _lst7162_) + (let _recur7164_ ((_rest7166_ _lst7162_)) + (let* ((_rest71677175_ _rest7166_) + (_else71697183_ (lambda () _iv7161_)) + (_K71717189_ + (lambda (_rest7186_ _x7187_) + (_f7160_ _x7187_ (let () (declare (not safe)) - (_recur5948_ _rest5970_)))))) - (if (let () (declare (not safe)) (##pair? _rest59515959_)) - (let ((_hd59565976_ - (let () (declare (not safe)) (##car _rest59515959_))) - (_tl59575978_ - (let () (declare (not safe)) (##cdr _rest59515959_)))) - (let* ((_x5981_ _hd59565976_) (_rest5983_ _tl59575978_)) + (_recur7164_ _rest7186_)))))) + (if (let () (declare (not safe)) (##pair? _rest71677175_)) + (let ((_hd71727192_ + (let () (declare (not safe)) (##car _rest71677175_))) + (_tl71737194_ + (let () (declare (not safe)) (##cdr _rest71677175_)))) + (let* ((_x7197_ _hd71727192_) (_rest7199_ _tl71737194_)) (declare (not safe)) - (_K59555973_ _rest5983_ _x5981_))) - (let () (declare (not safe)) (_else59535967_))))))) + (_K71717189_ _rest7199_ _x7197_))) + (let () (declare (not safe)) (_else71697183_))))))) (define foldr2 - (lambda (_f5868_ _iv5869_ _lst15870_ _lst25871_) - (let _recur5873_ ((_rest15875_ _lst15870_) (_rest25876_ _lst25871_)) - (let* ((_rest158775885_ _rest15875_) - (_else58795893_ (lambda () _iv5869_)) - (_K58815932_ - (lambda (_rest15896_ _x15897_) - (let* ((_rest258985906_ _rest25876_) - (_else59005914_ (lambda () _iv5869_)) - (_K59025920_ - (lambda (_rest25917_ _x25918_) - (_f5868_ _x15897_ - _x25918_ + (lambda (_f7084_ _iv7085_ _lst17086_ _lst27087_) + (let _recur7089_ ((_rest17091_ _lst17086_) (_rest27092_ _lst27087_)) + (let* ((_rest170937101_ _rest17091_) + (_else70957109_ (lambda () _iv7085_)) + (_K70977148_ + (lambda (_rest17112_ _x17113_) + (let* ((_rest271147122_ _rest27092_) + (_else71167130_ (lambda () _iv7085_)) + (_K71187136_ + (lambda (_rest27133_ _x27134_) + (_f7084_ _x17113_ + _x27134_ (let () (declare (not safe)) - (_recur5873_ - _rest15896_ - _rest25917_)))))) + (_recur7089_ + _rest17112_ + _rest27133_)))))) (if (let () (declare (not safe)) - (##pair? _rest258985906_)) - (let ((_hd59035923_ + (##pair? _rest271147122_)) + (let ((_hd71197139_ (let () (declare (not safe)) - (##car _rest258985906_))) - (_tl59045925_ + (##car _rest271147122_))) + (_tl71207141_ (let () (declare (not safe)) - (##cdr _rest258985906_)))) - (let* ((_x25928_ _hd59035923_) - (_rest25930_ _tl59045925_)) + (##cdr _rest271147122_)))) + (let* ((_x27144_ _hd71197139_) + (_rest27146_ _tl71207141_)) (declare (not safe)) - (_K59025920_ _rest25930_ _x25928_))) - (let () (declare (not safe)) (_else59005914_))))))) - (if (let () (declare (not safe)) (##pair? _rest158775885_)) - (let ((_hd58825935_ - (let () (declare (not safe)) (##car _rest158775885_))) - (_tl58835937_ - (let () (declare (not safe)) (##cdr _rest158775885_)))) - (let* ((_x15940_ _hd58825935_) (_rest15942_ _tl58835937_)) + (_K71187136_ _rest27146_ _x27144_))) + (let () (declare (not safe)) (_else71167130_))))))) + (if (let () (declare (not safe)) (##pair? _rest170937101_)) + (let ((_hd70987151_ + (let () (declare (not safe)) (##car _rest170937101_))) + (_tl70997153_ + (let () (declare (not safe)) (##cdr _rest170937101_)))) + (let* ((_x17156_ _hd70987151_) (_rest17158_ _tl70997153_)) (declare (not safe)) - (_K58815932_ _rest15942_ _x15940_))) - (let () (declare (not safe)) (_else58795893_))))))) + (_K70977148_ _rest17158_ _x17156_))) + (let () (declare (not safe)) (_else70957109_))))))) (define foldr - (lambda _g8624_ - (let ((_g8623_ (let () (declare (not safe)) (##length _g8624_)))) - (cond ((let () (declare (not safe)) (##fx= _g8623_ 3)) - (apply (lambda (_f5853_ _iv5854_ _lst5855_) + (lambda _g8095_ + (let ((_g8094_ (let () (declare (not safe)) (##length _g8095_)))) + (cond ((let () (declare (not safe)) (##fx= _g8094_ 3)) + (apply (lambda (_f7069_ _iv7070_ _lst7071_) (let () (declare (not safe)) - (foldr1 _f5853_ _iv5854_ _lst5855_))) - _g8624_)) - ((let () (declare (not safe)) (##fx= _g8623_ 4)) - (apply (lambda (_f5857_ _iv5858_ _lst15859_ _lst25860_) + (foldr1 _f7069_ _iv7070_ _lst7071_))) + _g8095_)) + ((let () (declare (not safe)) (##fx= _g8094_ 4)) + (apply (lambda (_f7073_ _iv7074_ _lst17075_ _lst27076_) (let () (declare (not safe)) - (foldr2 _f5857_ _iv5858_ _lst15859_ _lst25860_))) - _g8624_)) - ((let () (declare (not safe)) (##fx>= _g8623_ 4)) - (apply foldr* _g8624_)) + (foldr2 _f7073_ _iv7074_ _lst17075_ _lst27076_))) + _g8095_)) + ((let () (declare (not safe)) (##fx>= _g8094_ 4)) + (apply foldr* _g8095_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g8624_)))))) + _g8095_)))))) (define foldr* - (lambda (_f5842_ _iv5843_ . _rest5844_) - (let _recur5846_ ((_rest5848_ _rest5844_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest5848_)) - (apply _f5842_ - (let ((__tmp8627 - (lambda (_xs5850_ _r5851_) - (let ((__tmp8628 (car _xs5850_))) + (lambda (_f7058_ _iv7059_ . _rest7060_) + (let _recur7062_ ((_rest7064_ _rest7060_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest7064_)) + (apply _f7058_ + (let ((__tmp8098 + (lambda (_xs7066_ _r7067_) + (let ((__tmp8099 (car _xs7066_))) (declare (not safe)) - (cons __tmp8628 _r5851_)))) - (__tmp8625 - (list (let ((__tmp8626 (map cdr _rest5848_))) + (cons __tmp8099 _r7067_)))) + (__tmp8096 + (list (let ((__tmp8097 (map cdr _rest7064_))) (declare (not safe)) - (_recur5846_ __tmp8626))))) + (_recur7062_ __tmp8097))))) (declare (not safe)) - (foldr1 __tmp8627 __tmp8625 _rest5848_))) - _iv5843_)))) + (foldr1 __tmp8098 __tmp8096 _rest7064_))) + _iv7059_)))) (define andmap1 - (lambda (_f5802_ _lst5803_) - (let _lp5805_ ((_rest5807_ _lst5803_)) - (let* ((_rest58085816_ _rest5807_) - (_else58105824_ (lambda () '#t)) - (_K58125830_ - (lambda (_rest5827_ _x5828_) - (if (_f5802_ _x5828_) - (let () (declare (not safe)) (_lp5805_ _rest5827_)) + (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? _rest58085816_)) - (let ((_hd58135833_ - (let () (declare (not safe)) (##car _rest58085816_))) - (_tl58145835_ - (let () (declare (not safe)) (##cdr _rest58085816_)))) - (let* ((_x5838_ _hd58135833_) (_rest5840_ _tl58145835_)) + (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)) - (_K58125830_ _rest5840_ _x5838_))) - (let () (declare (not safe)) (_else58105824_))))))) + (_K70287046_ _rest7056_ _x7054_))) + (let () (declare (not safe)) (_else70267040_))))))) (define andmap2 - (lambda (_f5727_ _lst15728_ _lst25729_) - (let _lp5731_ ((_rest15733_ _lst15728_) (_rest25734_ _lst25729_)) - (let* ((_rest157355743_ _rest15733_) - (_else57375751_ (lambda () '#t)) - (_K57395790_ - (lambda (_rest15754_ _x15755_) - (let* ((_rest257565764_ _rest25734_) - (_else57585772_ (lambda () '#t)) - (_K57605778_ - (lambda (_rest25775_ _x25776_) - (if (_f5727_ _x15755_ _x25776_) + (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)) - (_lp5731_ _rest15754_ _rest25775_)) + (_lp6947_ _rest16970_ _rest26991_)) '#f)))) (if (let () (declare (not safe)) - (##pair? _rest257565764_)) - (let ((_hd57615781_ + (##pair? _rest269726980_)) + (let ((_hd69776997_ (let () (declare (not safe)) - (##car _rest257565764_))) - (_tl57625783_ + (##car _rest269726980_))) + (_tl69786999_ (let () (declare (not safe)) - (##cdr _rest257565764_)))) - (let* ((_x25786_ _hd57615781_) - (_rest25788_ _tl57625783_)) + (##cdr _rest269726980_)))) + (let* ((_x27002_ _hd69776997_) + (_rest27004_ _tl69786999_)) (declare (not safe)) - (_K57605778_ _rest25788_ _x25786_))) - (let () (declare (not safe)) (_else57585772_))))))) - (if (let () (declare (not safe)) (##pair? _rest157355743_)) - (let ((_hd57405793_ - (let () (declare (not safe)) (##car _rest157355743_))) - (_tl57415795_ - (let () (declare (not safe)) (##cdr _rest157355743_)))) - (let* ((_x15798_ _hd57405793_) (_rest15800_ _tl57415795_)) + (_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)) - (_K57395790_ _rest15800_ _x15798_))) - (let () (declare (not safe)) (_else57375751_))))))) + (_K69557006_ _rest17016_ _x17014_))) + (let () (declare (not safe)) (_else69536967_))))))) (define andmap - (lambda _g8630_ - (let ((_g8629_ (let () (declare (not safe)) (##length _g8630_)))) - (cond ((let () (declare (not safe)) (##fx= _g8629_ 2)) - (apply (lambda (_f5715_ _lst5716_) + (lambda _g8101_ + (let ((_g8100_ (let () (declare (not safe)) (##length _g8101_)))) + (cond ((let () (declare (not safe)) (##fx= _g8100_ 2)) + (apply (lambda (_f6931_ _lst6932_) (let () (declare (not safe)) - (andmap1 _f5715_ _lst5716_))) - _g8630_)) - ((let () (declare (not safe)) (##fx= _g8629_ 3)) - (apply (lambda (_f5718_ _lst15719_ _lst25720_) + (andmap1 _f6931_ _lst6932_))) + _g8101_)) + ((let () (declare (not safe)) (##fx= _g8100_ 3)) + (apply (lambda (_f6934_ _lst16935_ _lst26936_) (let () (declare (not safe)) - (andmap2 _f5718_ _lst15719_ _lst25720_))) - _g8630_)) - ((let () (declare (not safe)) (##fx>= _g8629_ 3)) - (apply andmap* _g8630_)) + (andmap2 _f6934_ _lst16935_ _lst26936_))) + _g8101_)) + ((let () (declare (not safe)) (##fx>= _g8100_ 3)) + (apply andmap* _g8101_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g8630_)))))) + _g8101_)))))) (define andmap* - (lambda (_f5708_ . _rest5709_) - (let _recur5711_ ((_rest5713_ _rest5709_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest5713_)) - (if (apply _f5708_ (map car _rest5713_)) - (let ((__tmp8631 (map cdr _rest5713_))) + (lambda (_f6924_ . _rest6925_) + (let _recur6927_ ((_rest6929_ _rest6925_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest6929_)) + (if (apply _f6924_ (map car _rest6929_)) + (let ((__tmp8102 (map cdr _rest6929_))) (declare (not safe)) - (_recur5711_ __tmp8631)) + (_recur6927_ __tmp8102)) '#f) '#t)))) (define ormap1 - (lambda (_f5665_ _lst5666_) - (let _lp5668_ ((_rest5670_ _lst5666_)) - (let* ((_rest56715679_ _rest5670_) - (_else56735687_ (lambda () '#f)) - (_K56755696_ - (lambda (_rest5690_ _x5691_) - (let ((_$e5693_ (_f5665_ _x5691_))) - (if _$e5693_ - _$e5693_ + (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)) - (_lp5668_ _rest5690_))))))) - (if (let () (declare (not safe)) (##pair? _rest56715679_)) - (let ((_hd56765699_ - (let () (declare (not safe)) (##car _rest56715679_))) - (_tl56775701_ - (let () (declare (not safe)) (##cdr _rest56715679_)))) - (let* ((_x5704_ _hd56765699_) (_rest5706_ _tl56775701_)) + (_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)) - (_K56755696_ _rest5706_ _x5704_))) - (let () (declare (not safe)) (_else56735687_))))))) + (_K68916912_ _rest6922_ _x6920_))) + (let () (declare (not safe)) (_else68896903_))))))) (define ormap2 - (lambda (_f5587_ _lst15588_ _lst25589_) - (let _lp5591_ ((_rest15593_ _lst15588_) (_rest25594_ _lst25589_)) - (let* ((_rest155955603_ _rest15593_) - (_else55975611_ (lambda () '#f)) - (_K55995653_ - (lambda (_rest15614_ _x15615_) - (let* ((_rest256165624_ _rest25594_) - (_else56185632_ (lambda () '#f)) - (_K56205641_ - (lambda (_rest25635_ _x25636_) - (let ((_$e5638_ (_f5587_ _x15615_ _x25636_))) - (if _$e5638_ - _$e5638_ + (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)) - (_lp5591_ _rest15614_ _rest25635_))))))) + (_lp6807_ _rest16830_ _rest26851_))))))) (if (let () (declare (not safe)) - (##pair? _rest256165624_)) - (let ((_hd56215644_ + (##pair? _rest268326840_)) + (let ((_hd68376860_ (let () (declare (not safe)) - (##car _rest256165624_))) - (_tl56225646_ + (##car _rest268326840_))) + (_tl68386862_ (let () (declare (not safe)) - (##cdr _rest256165624_)))) - (let* ((_x25649_ _hd56215644_) - (_rest25651_ _tl56225646_)) + (##cdr _rest268326840_)))) + (let* ((_x26865_ _hd68376860_) + (_rest26867_ _tl68386862_)) (declare (not safe)) - (_K56205641_ _rest25651_ _x25649_))) - (let () (declare (not safe)) (_else56185632_))))))) - (if (let () (declare (not safe)) (##pair? _rest155955603_)) - (let ((_hd56005656_ - (let () (declare (not safe)) (##car _rest155955603_))) - (_tl56015658_ - (let () (declare (not safe)) (##cdr _rest155955603_)))) - (let* ((_x15661_ _hd56005656_) (_rest15663_ _tl56015658_)) + (_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)) - (_K55995653_ _rest15663_ _x15661_))) - (let () (declare (not safe)) (_else55975611_))))))) + (_K68156869_ _rest16879_ _x16877_))) + (let () (declare (not safe)) (_else68136827_))))))) (define ormap - (lambda _g8633_ - (let ((_g8632_ (let () (declare (not safe)) (##length _g8633_)))) - (cond ((let () (declare (not safe)) (##fx= _g8632_ 2)) - (apply (lambda (_f5575_ _lst5576_) + (lambda _g8104_ + (let ((_g8103_ (let () (declare (not safe)) (##length _g8104_)))) + (cond ((let () (declare (not safe)) (##fx= _g8103_ 2)) + (apply (lambda (_f6791_ _lst6792_) (let () (declare (not safe)) - (ormap1 _f5575_ _lst5576_))) - _g8633_)) - ((let () (declare (not safe)) (##fx= _g8632_ 3)) - (apply (lambda (_f5578_ _lst15579_ _lst25580_) + (ormap1 _f6791_ _lst6792_))) + _g8104_)) + ((let () (declare (not safe)) (##fx= _g8103_ 3)) + (apply (lambda (_f6794_ _lst16795_ _lst26796_) (let () (declare (not safe)) - (ormap2 _f5578_ _lst15579_ _lst25580_))) - _g8633_)) - ((let () (declare (not safe)) (##fx>= _g8632_ 3)) - (apply ormap* _g8633_)) + (ormap2 _f6794_ _lst16795_ _lst26796_))) + _g8104_)) + ((let () (declare (not safe)) (##fx>= _g8103_ 3)) + (apply ormap* _g8104_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g8633_)))))) + _g8104_)))))) (define ormap* - (lambda (_f5565_ . _rest5566_) - (let _recur5568_ ((_rest5570_ _rest5566_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest5570_)) - (let ((_$e5572_ (apply _f5565_ (map car _rest5570_)))) - (if _$e5572_ - _$e5572_ - (let ((__tmp8634 (map cdr _rest5570_))) + (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 ((__tmp8105 (map cdr _rest6786_))) (declare (not safe)) - (_recur5568_ __tmp8634)))) + (_recur6784_ __tmp8105)))) '#f)))) (define filter - (lambda (_f5523_ _lst5524_) - (let _recur5526_ ((_lst5528_ _lst5524_)) - (let* ((_lst55295537_ _lst5528_) - (_else55315545_ (lambda () '())) - (_K55335553_ - (lambda (_rest5548_ _hd5549_) - (if (_f5523_ _hd5549_) - (let ((_tail5551_ + (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)) - (_recur5526_ _rest5548_)))) + (_recur6742_ _rest6764_)))) (if (let () (declare (not safe)) - (eq? _tail5551_ _rest5548_)) - _lst5528_ + (eq? _tail6767_ _rest6764_)) + _lst6744_ (let () (declare (not safe)) - (cons _hd5549_ _tail5551_)))) + (cons _hd6765_ _tail6767_)))) (let () (declare (not safe)) - (_recur5526_ _rest5548_)))))) - (if (let () (declare (not safe)) (##pair? _lst55295537_)) - (let ((_hd55345556_ - (let () (declare (not safe)) (##car _lst55295537_))) - (_tl55355558_ - (let () (declare (not safe)) (##cdr _lst55295537_)))) - (let* ((_hd5561_ _hd55345556_) (_rest5563_ _tl55355558_)) + (_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)) - (_K55335553_ _rest5563_ _hd5561_))) - (let () (declare (not safe)) (_else55315545_))))))) + (_K67496769_ _rest6779_ _hd6777_))) + (let () (declare (not safe)) (_else67476761_))))))) (define filter-map1 - (lambda (_f5478_ _lst5479_) - (let _recur5481_ ((_rest5483_ _lst5479_)) - (let* ((_rest54845492_ _rest5483_) - (_else54865500_ (lambda () '())) - (_K54885511_ - (lambda (_rest5503_ _x5504_) - (let ((_$e5506_ (_f5478_ _x5504_))) - (if _$e5506_ - ((lambda (_r5509_) - (let ((__tmp8635 + (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 ((__tmp8106 (let () (declare (not safe)) - (_recur5481_ _rest5503_)))) + (_recur6697_ _rest6719_)))) (declare (not safe)) - (cons _r5509_ __tmp8635))) - _$e5506_) + (cons _r6725_ __tmp8106))) + _$e6722_) (let () (declare (not safe)) - (_recur5481_ _rest5503_))))))) - (if (let () (declare (not safe)) (##pair? _rest54845492_)) - (let ((_hd54895514_ - (let () (declare (not safe)) (##car _rest54845492_))) - (_tl54905516_ - (let () (declare (not safe)) (##cdr _rest54845492_)))) - (let* ((_x5519_ _hd54895514_) (_rest5521_ _tl54905516_)) + (_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)) - (_K54885511_ _rest5521_ _x5519_))) - (let () (declare (not safe)) (_else54865500_))))))) + (_K67046727_ _rest6737_ _x6735_))) + (let () (declare (not safe)) (_else67026716_))))))) (define filter-map2 - (lambda (_f5398_ _lst15399_ _lst25400_) - (let _recur5402_ ((_rest15404_ _lst15399_) (_rest25405_ _lst25400_)) - (let* ((_rest154065414_ _rest15404_) - (_else54085422_ (lambda () '())) - (_K54105466_ - (lambda (_rest15425_ _x15426_) - (let* ((_rest254275435_ _rest25405_) - (_else54295443_ (lambda () '())) - (_K54315454_ - (lambda (_rest25446_ _x25447_) - (let ((_$e5449_ (_f5398_ _x15426_ _x25447_))) - (if _$e5449_ - ((lambda (_r5452_) - (let ((__tmp8636 + (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 ((__tmp8107 (let () (declare (not safe)) - (_recur5402_ - _rest15425_ - _rest25446_)))) + (_recur6618_ + _rest16641_ + _rest26662_)))) (declare (not safe)) - (cons _r5452_ __tmp8636))) - _$e5449_) + (cons _r6668_ __tmp8107))) + _$e6665_) (let () (declare (not safe)) - (_recur5402_ - _rest15425_ - _rest25446_))))))) + (_recur6618_ + _rest16641_ + _rest26662_))))))) (if (let () (declare (not safe)) - (##pair? _rest254275435_)) - (let ((_hd54325457_ + (##pair? _rest266436651_)) + (let ((_hd66486673_ (let () (declare (not safe)) - (##car _rest254275435_))) - (_tl54335459_ + (##car _rest266436651_))) + (_tl66496675_ (let () (declare (not safe)) - (##cdr _rest254275435_)))) - (let* ((_x25462_ _hd54325457_) - (_rest25464_ _tl54335459_)) + (##cdr _rest266436651_)))) + (let* ((_x26678_ _hd66486673_) + (_rest26680_ _tl66496675_)) (declare (not safe)) - (_K54315454_ _rest25464_ _x25462_))) - (let () (declare (not safe)) (_else54295443_))))))) - (if (let () (declare (not safe)) (##pair? _rest154065414_)) - (let ((_hd54115469_ - (let () (declare (not safe)) (##car _rest154065414_))) - (_tl54125471_ - (let () (declare (not safe)) (##cdr _rest154065414_)))) - (let* ((_x15474_ _hd54115469_) (_rest15476_ _tl54125471_)) + (_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)) - (_K54105466_ _rest15476_ _x15474_))) - (let () (declare (not safe)) (_else54085422_))))))) + (_K66266682_ _rest16692_ _x16690_))) + (let () (declare (not safe)) (_else66246638_))))))) (define filter-map - (lambda _g8638_ - (let ((_g8637_ (let () (declare (not safe)) (##length _g8638_)))) - (cond ((let () (declare (not safe)) (##fx= _g8637_ 2)) - (apply (lambda (_f5386_ _lst5387_) + (lambda _g8109_ + (let ((_g8108_ (let () (declare (not safe)) (##length _g8109_)))) + (cond ((let () (declare (not safe)) (##fx= _g8108_ 2)) + (apply (lambda (_f6602_ _lst6603_) (let () (declare (not safe)) - (filter-map1 _f5386_ _lst5387_))) - _g8638_)) - ((let () (declare (not safe)) (##fx= _g8637_ 3)) - (apply (lambda (_f5389_ _lst15390_ _lst25391_) + (filter-map1 _f6602_ _lst6603_))) + _g8109_)) + ((let () (declare (not safe)) (##fx= _g8108_ 3)) + (apply (lambda (_f6605_ _lst16606_ _lst26607_) (let () (declare (not safe)) - (filter-map2 _f5389_ _lst15390_ _lst25391_))) - _g8638_)) - ((let () (declare (not safe)) (##fx>= _g8637_ 3)) - (apply filter-map* _g8638_)) + (filter-map2 _f6605_ _lst16606_ _lst26607_))) + _g8109_)) + ((let () (declare (not safe)) (##fx>= _g8108_ 3)) + (apply filter-map* _g8109_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g8638_)))))) + _g8109_)))))) (define filter-map* - (lambda (_f5374_ . _rest5375_) - (let _recur5377_ ((_rest5379_ _rest5375_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest5379_)) - (let ((_$e5381_ (apply _f5374_ (map car _rest5379_)))) - (if _$e5381_ - ((lambda (_r5384_) - (let ((__tmp8640 - (let ((__tmp8641 (map cdr _rest5379_))) + (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 ((__tmp8111 + (let ((__tmp8112 (map cdr _rest6595_))) (declare (not safe)) - (_recur5377_ __tmp8641)))) + (_recur6593_ __tmp8112)))) (declare (not safe)) - (cons _r5384_ __tmp8640))) - _$e5381_) - (let ((__tmp8639 (map cdr _rest5379_))) + (cons _r6600_ __tmp8111))) + _$e6597_) + (let ((__tmp8110 (map cdr _rest6595_))) (declare (not safe)) - (_recur5377_ __tmp8639)))) + (_recur6593_ __tmp8110)))) '())))) (define iota__% - (lambda (_count5342_ _start5343_ _step5344_) - (if (fixnum? _count5342_) + (lambda (_count6558_ _start6559_ _step6560_) + (if (fixnum? _count6558_) '#!void - (error '"expected fixnum" _count5342_)) - (if (let () (declare (not safe)) (number? _start5343_)) + (error '"expected fixnum" _count6558_)) + (if (let () (declare (not safe)) (number? _start6559_)) '#!void - (error '"expected number" _start5343_)) - (if (let () (declare (not safe)) (number? _step5344_)) + (error '"expected number" _start6559_)) + (if (let () (declare (not safe)) (number? _step6560_)) '#!void - (error '"expected number" _step5344_)) - (let ((_root5346_ (let () (declare (not safe)) (cons '#f '())))) - (let _lp5348_ ((_i5350_ '0) - (_x5351_ _start5343_) - (_tl5352_ _root5346_)) - (if (let () (declare (not safe)) (##fx< _i5350_ _count5342_)) - (let ((_tl*5354_ - (let () (declare (not safe)) (cons _x5351_ '())))) - (let () (declare (not safe)) (##set-cdr! _tl5352_ _tl*5354_)) - (let ((__tmp8643 - (let () (declare (not safe)) (##fx+ _i5350_ '1))) - (__tmp8642 (+ _x5351_ _step5344_))) + (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 ((__tmp8114 + (let () (declare (not safe)) (##fx+ _i6566_ '1))) + (__tmp8113 (+ _x6567_ _step6560_))) (declare (not safe)) - (_lp5348_ __tmp8643 __tmp8642 _tl*5354_))) - (let () (declare (not safe)) (##cdr _root5346_))))))) + (_lp6564_ __tmp8114 __tmp8113 _tl*6570_))) + (let () (declare (not safe)) (##cdr _root6562_))))))) (define iota__0 - (lambda (_count5359_) - (let* ((_start5361_ '0) (_step5363_ '1)) + (lambda (_count6575_) + (let* ((_start6577_ '0) (_step6579_ '1)) (declare (not safe)) - (iota__% _count5359_ _start5361_ _step5363_)))) + (iota__% _count6575_ _start6577_ _step6579_)))) (define iota__1 - (lambda (_count5365_ _start5366_) - (let ((_step5368_ '1)) + (lambda (_count6581_ _start6582_) + (let ((_step6584_ '1)) (declare (not safe)) - (iota__% _count5365_ _start5366_ _step5368_)))) + (iota__% _count6581_ _start6582_ _step6584_)))) (define iota - (lambda _g8645_ - (let ((_g8644_ (let () (declare (not safe)) (##length _g8645_)))) - (cond ((let () (declare (not safe)) (##fx= _g8644_ 1)) - (apply (lambda (_count5359_) - (let () (declare (not safe)) (iota__0 _count5359_))) - _g8645_)) - ((let () (declare (not safe)) (##fx= _g8644_ 2)) - (apply (lambda (_count5365_ _start5366_) + (lambda _g8116_ + (let ((_g8115_ (let () (declare (not safe)) (##length _g8116_)))) + (cond ((let () (declare (not safe)) (##fx= _g8115_ 1)) + (apply (lambda (_count6575_) + (let () (declare (not safe)) (iota__0 _count6575_))) + _g8116_)) + ((let () (declare (not safe)) (##fx= _g8115_ 2)) + (apply (lambda (_count6581_ _start6582_) (let () (declare (not safe)) - (iota__1 _count5365_ _start5366_))) - _g8645_)) - ((let () (declare (not safe)) (##fx= _g8644_ 3)) - (apply (lambda (_count5370_ _start5371_ _step5372_) + (iota__1 _count6581_ _start6582_))) + _g8116_)) + ((let () (declare (not safe)) (##fx= _g8115_ 3)) + (apply (lambda (_count6586_ _start6587_ _step6588_) (let () (declare (not safe)) - (iota__% _count5370_ _start5371_ _step5372_))) - _g8645_)) + (iota__% _count6586_ _start6587_ _step6588_))) + _g8116_)) (else (##raise-wrong-number-of-arguments-exception iota - _g8645_)))))) + _g8116_)))))) (define last-pair - (lambda (_lst5316_) - (let* ((_lst53175324_ _lst5316_) - (_E53195328_ - (lambda () (error '"No clause matching" _lst53175324_))) - (_K53205333_ - (lambda (_rest5331_) - (if (let () (declare (not safe)) (pair? _rest5331_)) - (let () (declare (not safe)) (last-pair _rest5331_)) - _lst5316_)))) - (if (let () (declare (not safe)) (##pair? _lst53175324_)) - (let* ((_tl53225336_ - (let () (declare (not safe)) (##cdr _lst53175324_))) - (_rest5339_ _tl53225336_)) + (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)) - (_K53205333_ _rest5339_)) - (let () (declare (not safe)) (_E53195328_)))))) + (_K65366549_ _rest6555_)) + (let () (declare (not safe)) (_E65356544_)))))) (define last - (lambda (_lst5314_) - (car (let () (declare (not safe)) (last-pair _lst5314_))))) + (lambda (_lst6530_) + (car (let () (declare (not safe)) (last-pair _lst6530_))))) (define assgetq__% - (lambda (_key5292_ _lst5294_ _default5296_) - (let ((_$e5299_ - (if (let () (declare (not safe)) (pair? _lst5294_)) - (assq _key5292_ _lst5294_) + (lambda (_key6508_ _lst6510_ _default6512_) + (let ((_$e6515_ + (if (let () (declare (not safe)) (pair? _lst6510_)) + (assq _key6508_ _lst6510_) '#f))) - (if _$e5299_ - (cdr _$e5299_) - (if (let () (declare (not safe)) (procedure? _default5296_)) - (_default5296_ _key5292_) - _default5296_))))) + (if _$e6515_ + (cdr _$e6515_) + (if (let () (declare (not safe)) (procedure? _default6512_)) + (_default6512_ _key6508_) + _default6512_))))) (define assgetq__0 - (lambda (_key5305_ _lst5306_) - (let ((_default5308_ '#f)) + (lambda (_key6521_ _lst6522_) + (let ((_default6524_ '#f)) (declare (not safe)) - (assgetq__% _key5305_ _lst5306_ _default5308_)))) + (assgetq__% _key6521_ _lst6522_ _default6524_)))) (define assgetq - (lambda _g8647_ - (let ((_g8646_ (let () (declare (not safe)) (##length _g8647_)))) - (cond ((let () (declare (not safe)) (##fx= _g8646_ 2)) - (apply (lambda (_key5305_ _lst5306_) + (lambda _g8118_ + (let ((_g8117_ (let () (declare (not safe)) (##length _g8118_)))) + (cond ((let () (declare (not safe)) (##fx= _g8117_ 2)) + (apply (lambda (_key6521_ _lst6522_) (let () (declare (not safe)) - (assgetq__0 _key5305_ _lst5306_))) - _g8647_)) - ((let () (declare (not safe)) (##fx= _g8646_ 3)) - (apply (lambda (_key5310_ _lst5311_ _default5312_) + (assgetq__0 _key6521_ _lst6522_))) + _g8118_)) + ((let () (declare (not safe)) (##fx= _g8117_ 3)) + (apply (lambda (_key6526_ _lst6527_ _default6528_) (let () (declare (not safe)) - (assgetq__% _key5310_ _lst5311_ _default5312_))) - _g8647_)) + (assgetq__% _key6526_ _lst6527_ _default6528_))) + _g8118_)) (else (##raise-wrong-number-of-arguments-exception assgetq - _g8647_)))))) + _g8118_)))))) (define assgetv__% - (lambda (_key5269_ _lst5271_ _default5273_) - (let ((_$e5276_ - (if (let () (declare (not safe)) (pair? _lst5271_)) - (assv _key5269_ _lst5271_) + (lambda (_key6485_ _lst6487_ _default6489_) + (let ((_$e6492_ + (if (let () (declare (not safe)) (pair? _lst6487_)) + (assv _key6485_ _lst6487_) '#f))) - (if _$e5276_ - (cdr _$e5276_) - (if (let () (declare (not safe)) (procedure? _default5273_)) - (_default5273_ _key5269_) - _default5273_))))) + (if _$e6492_ + (cdr _$e6492_) + (if (let () (declare (not safe)) (procedure? _default6489_)) + (_default6489_ _key6485_) + _default6489_))))) (define assgetv__0 - (lambda (_key5282_ _lst5283_) - (let ((_default5285_ '#f)) + (lambda (_key6498_ _lst6499_) + (let ((_default6501_ '#f)) (declare (not safe)) - (assgetv__% _key5282_ _lst5283_ _default5285_)))) + (assgetv__% _key6498_ _lst6499_ _default6501_)))) (define assgetv - (lambda _g8649_ - (let ((_g8648_ (let () (declare (not safe)) (##length _g8649_)))) - (cond ((let () (declare (not safe)) (##fx= _g8648_ 2)) - (apply (lambda (_key5282_ _lst5283_) + (lambda _g8120_ + (let ((_g8119_ (let () (declare (not safe)) (##length _g8120_)))) + (cond ((let () (declare (not safe)) (##fx= _g8119_ 2)) + (apply (lambda (_key6498_ _lst6499_) (let () (declare (not safe)) - (assgetv__0 _key5282_ _lst5283_))) - _g8649_)) - ((let () (declare (not safe)) (##fx= _g8648_ 3)) - (apply (lambda (_key5287_ _lst5288_ _default5289_) + (assgetv__0 _key6498_ _lst6499_))) + _g8120_)) + ((let () (declare (not safe)) (##fx= _g8119_ 3)) + (apply (lambda (_key6503_ _lst6504_ _default6505_) (let () (declare (not safe)) - (assgetv__% _key5287_ _lst5288_ _default5289_))) - _g8649_)) + (assgetv__% _key6503_ _lst6504_ _default6505_))) + _g8120_)) (else (##raise-wrong-number-of-arguments-exception assgetv - _g8649_)))))) + _g8120_)))))) (define assget__% - (lambda (_key5246_ _lst5248_ _default5250_) - (let ((_$e5253_ - (if (let () (declare (not safe)) (pair? _lst5248_)) - (assoc _key5246_ _lst5248_) + (lambda (_key6462_ _lst6464_ _default6466_) + (let ((_$e6469_ + (if (let () (declare (not safe)) (pair? _lst6464_)) + (assoc _key6462_ _lst6464_) '#f))) - (if _$e5253_ - (cdr _$e5253_) - (if (let () (declare (not safe)) (procedure? _default5250_)) - (_default5250_ _key5246_) - _default5250_))))) + (if _$e6469_ + (cdr _$e6469_) + (if (let () (declare (not safe)) (procedure? _default6466_)) + (_default6466_ _key6462_) + _default6466_))))) (define assget__0 - (lambda (_key5259_ _lst5260_) - (let ((_default5262_ '#f)) + (lambda (_key6475_ _lst6476_) + (let ((_default6478_ '#f)) (declare (not safe)) - (assget__% _key5259_ _lst5260_ _default5262_)))) + (assget__% _key6475_ _lst6476_ _default6478_)))) (define assget - (lambda _g8651_ - (let ((_g8650_ (let () (declare (not safe)) (##length _g8651_)))) - (cond ((let () (declare (not safe)) (##fx= _g8650_ 2)) - (apply (lambda (_key5259_ _lst5260_) + (lambda _g8122_ + (let ((_g8121_ (let () (declare (not safe)) (##length _g8122_)))) + (cond ((let () (declare (not safe)) (##fx= _g8121_ 2)) + (apply (lambda (_key6475_ _lst6476_) (let () (declare (not safe)) - (assget__0 _key5259_ _lst5260_))) - _g8651_)) - ((let () (declare (not safe)) (##fx= _g8650_ 3)) - (apply (lambda (_key5264_ _lst5265_ _default5266_) + (assget__0 _key6475_ _lst6476_))) + _g8122_)) + ((let () (declare (not safe)) (##fx= _g8121_ 3)) + (apply (lambda (_key6480_ _lst6481_ _default6482_) (let () (declare (not safe)) - (assget__% _key5264_ _lst5265_ _default5266_))) - _g8651_)) + (assget__% _key6480_ _lst6481_ _default6482_))) + _g8122_)) (else (##raise-wrong-number-of-arguments-exception assget - _g8651_)))))) + _g8122_)))))) (define pgetq__% - (lambda (_key5175_ _lst5177_ _default5179_) - (let _lp5182_ ((_rest5185_ _lst5177_)) - (let* ((_rest51875197_ _rest5185_) - (_else51895205_ + (lambda (_key6391_ _lst6393_ _default6395_) + (let _lp6398_ ((_rest6401_ _lst6393_)) + (let* ((_rest64036413_ _rest6401_) + (_else64056421_ (lambda () (if (let () (declare (not safe)) - (procedure? _default5179_)) - (_default5179_ _key5175_) - _default5179_))) - (_K51915214_ - (lambda (_rest5208_ _v5209_ _k5211_) - (if (let () (declare (not safe)) (eq? _k5211_ _key5175_)) - _v5209_ - (let () (declare (not safe)) (_lp5182_ _rest5208_)))))) - (if (let () (declare (not safe)) (##pair? _rest51875197_)) - (let ((_hd51925217_ - (let () (declare (not safe)) (##car _rest51875197_))) - (_tl51935219_ - (let () (declare (not safe)) (##cdr _rest51875197_)))) - (let ((_k5222_ _hd51925217_)) - (if (let () (declare (not safe)) (##pair? _tl51935219_)) - (let ((_hd51945224_ + (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 _tl51935219_))) - (_tl51955226_ + (##car _tl64096435_))) + (_tl64116442_ (let () (declare (not safe)) - (##cdr _tl51935219_)))) - (let* ((_v5229_ _hd51945224_) - (_rest5231_ _tl51955226_)) + (##cdr _tl64096435_)))) + (let* ((_v6445_ _hd64106440_) + (_rest6447_ _tl64116442_)) (declare (not safe)) - (_K51915214_ _rest5231_ _v5229_ _k5222_))) - (let () (declare (not safe)) (_else51895205_))))) - (let () (declare (not safe)) (_else51895205_))))))) + (_K64076430_ _rest6447_ _v6445_ _k6438_))) + (let () (declare (not safe)) (_else64056421_))))) + (let () (declare (not safe)) (_else64056421_))))))) (define pgetq__0 - (lambda (_key5236_ _lst5237_) - (let ((_default5239_ '#f)) + (lambda (_key6452_ _lst6453_) + (let ((_default6455_ '#f)) (declare (not safe)) - (pgetq__% _key5236_ _lst5237_ _default5239_)))) + (pgetq__% _key6452_ _lst6453_ _default6455_)))) (define pgetq - (lambda _g8653_ - (let ((_g8652_ (let () (declare (not safe)) (##length _g8653_)))) - (cond ((let () (declare (not safe)) (##fx= _g8652_ 2)) - (apply (lambda (_key5236_ _lst5237_) + (lambda _g8124_ + (let ((_g8123_ (let () (declare (not safe)) (##length _g8124_)))) + (cond ((let () (declare (not safe)) (##fx= _g8123_ 2)) + (apply (lambda (_key6452_ _lst6453_) (let () (declare (not safe)) - (pgetq__0 _key5236_ _lst5237_))) - _g8653_)) - ((let () (declare (not safe)) (##fx= _g8652_ 3)) - (apply (lambda (_key5241_ _lst5242_ _default5243_) + (pgetq__0 _key6452_ _lst6453_))) + _g8124_)) + ((let () (declare (not safe)) (##fx= _g8123_ 3)) + (apply (lambda (_key6457_ _lst6458_ _default6459_) (let () (declare (not safe)) - (pgetq__% _key5241_ _lst5242_ _default5243_))) - _g8653_)) + (pgetq__% _key6457_ _lst6458_ _default6459_))) + _g8124_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g8653_)))))) + _g8124_)))))) (define pgetv__% - (lambda (_key5104_ _lst5106_ _default5108_) - (let _lp5111_ ((_rest5114_ _lst5106_)) - (let* ((_rest51165126_ _rest5114_) - (_else51185134_ + (lambda (_key6320_ _lst6322_ _default6324_) + (let _lp6327_ ((_rest6330_ _lst6322_)) + (let* ((_rest63326342_ _rest6330_) + (_else63346350_ (lambda () (if (let () (declare (not safe)) - (procedure? _default5108_)) - (_default5108_ _key5104_) - _default5108_))) - (_K51205143_ - (lambda (_rest5137_ _v5138_ _k5140_) - (if (let () (declare (not safe)) (eqv? _k5140_ _key5104_)) - _v5138_ - (let () (declare (not safe)) (_lp5111_ _rest5137_)))))) - (if (let () (declare (not safe)) (##pair? _rest51165126_)) - (let ((_hd51215146_ - (let () (declare (not safe)) (##car _rest51165126_))) - (_tl51225148_ - (let () (declare (not safe)) (##cdr _rest51165126_)))) - (let ((_k5151_ _hd51215146_)) - (if (let () (declare (not safe)) (##pair? _tl51225148_)) - (let ((_hd51235153_ + (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 _tl51225148_))) - (_tl51245155_ + (##car _tl63386364_))) + (_tl63406371_ (let () (declare (not safe)) - (##cdr _tl51225148_)))) - (let* ((_v5158_ _hd51235153_) - (_rest5160_ _tl51245155_)) + (##cdr _tl63386364_)))) + (let* ((_v6374_ _hd63396369_) + (_rest6376_ _tl63406371_)) (declare (not safe)) - (_K51205143_ _rest5160_ _v5158_ _k5151_))) - (let () (declare (not safe)) (_else51185134_))))) - (let () (declare (not safe)) (_else51185134_))))))) + (_K63366359_ _rest6376_ _v6374_ _k6367_))) + (let () (declare (not safe)) (_else63346350_))))) + (let () (declare (not safe)) (_else63346350_))))))) (define pgetv__0 - (lambda (_key5165_ _lst5166_) - (let ((_default5168_ '#f)) + (lambda (_key6381_ _lst6382_) + (let ((_default6384_ '#f)) (declare (not safe)) - (pgetv__% _key5165_ _lst5166_ _default5168_)))) + (pgetv__% _key6381_ _lst6382_ _default6384_)))) (define pgetv - (lambda _g8655_ - (let ((_g8654_ (let () (declare (not safe)) (##length _g8655_)))) - (cond ((let () (declare (not safe)) (##fx= _g8654_ 2)) - (apply (lambda (_key5165_ _lst5166_) + (lambda _g8126_ + (let ((_g8125_ (let () (declare (not safe)) (##length _g8126_)))) + (cond ((let () (declare (not safe)) (##fx= _g8125_ 2)) + (apply (lambda (_key6381_ _lst6382_) (let () (declare (not safe)) - (pgetv__0 _key5165_ _lst5166_))) - _g8655_)) - ((let () (declare (not safe)) (##fx= _g8654_ 3)) - (apply (lambda (_key5170_ _lst5171_ _default5172_) + (pgetv__0 _key6381_ _lst6382_))) + _g8126_)) + ((let () (declare (not safe)) (##fx= _g8125_ 3)) + (apply (lambda (_key6386_ _lst6387_ _default6388_) (let () (declare (not safe)) - (pgetv__% _key5170_ _lst5171_ _default5172_))) - _g8655_)) + (pgetv__% _key6386_ _lst6387_ _default6388_))) + _g8126_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g8655_)))))) + _g8126_)))))) (define pget__% - (lambda (_key5033_ _lst5035_ _default5037_) - (let _lp5040_ ((_rest5043_ _lst5035_)) - (let* ((_rest50455055_ _rest5043_) - (_else50475063_ + (lambda (_key6249_ _lst6251_ _default6253_) + (let _lp6256_ ((_rest6259_ _lst6251_)) + (let* ((_rest62616271_ _rest6259_) + (_else62636279_ (lambda () (if (let () (declare (not safe)) - (procedure? _default5037_)) - (_default5037_ _key5033_) - _default5037_))) - (_K50495072_ - (lambda (_rest5066_ _v5067_ _k5069_) + (procedure? _default6253_)) + (_default6253_ _key6249_) + _default6253_))) + (_K62656288_ + (lambda (_rest6282_ _v6283_ _k6285_) (if (let () (declare (not safe)) - (equal? _k5069_ _key5033_)) - _v5067_ - (let () (declare (not safe)) (_lp5040_ _rest5066_)))))) - (if (let () (declare (not safe)) (##pair? _rest50455055_)) - (let ((_hd50505075_ - (let () (declare (not safe)) (##car _rest50455055_))) - (_tl50515077_ - (let () (declare (not safe)) (##cdr _rest50455055_)))) - (let ((_k5080_ _hd50505075_)) - (if (let () (declare (not safe)) (##pair? _tl50515077_)) - (let ((_hd50525082_ + (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 _tl50515077_))) - (_tl50535084_ + (##car _tl62676293_))) + (_tl62696300_ (let () (declare (not safe)) - (##cdr _tl50515077_)))) - (let* ((_v5087_ _hd50525082_) - (_rest5089_ _tl50535084_)) + (##cdr _tl62676293_)))) + (let* ((_v6303_ _hd62686298_) + (_rest6305_ _tl62696300_)) (declare (not safe)) - (_K50495072_ _rest5089_ _v5087_ _k5080_))) - (let () (declare (not safe)) (_else50475063_))))) - (let () (declare (not safe)) (_else50475063_))))))) + (_K62656288_ _rest6305_ _v6303_ _k6296_))) + (let () (declare (not safe)) (_else62636279_))))) + (let () (declare (not safe)) (_else62636279_))))))) (define pget__0 - (lambda (_key5094_ _lst5095_) - (let ((_default5097_ '#f)) + (lambda (_key6310_ _lst6311_) + (let ((_default6313_ '#f)) (declare (not safe)) - (pget__% _key5094_ _lst5095_ _default5097_)))) + (pget__% _key6310_ _lst6311_ _default6313_)))) (define pget - (lambda _g8657_ - (let ((_g8656_ (let () (declare (not safe)) (##length _g8657_)))) - (cond ((let () (declare (not safe)) (##fx= _g8656_ 2)) - (apply (lambda (_key5094_ _lst5095_) + (lambda _g8128_ + (let ((_g8127_ (let () (declare (not safe)) (##length _g8128_)))) + (cond ((let () (declare (not safe)) (##fx= _g8127_ 2)) + (apply (lambda (_key6310_ _lst6311_) (let () (declare (not safe)) - (pget__0 _key5094_ _lst5095_))) - _g8657_)) - ((let () (declare (not safe)) (##fx= _g8656_ 3)) - (apply (lambda (_key5099_ _lst5100_ _default5101_) + (pget__0 _key6310_ _lst6311_))) + _g8128_)) + ((let () (declare (not safe)) (##fx= _g8127_ 3)) + (apply (lambda (_key6315_ _lst6316_ _default6317_) (let () (declare (not safe)) - (pget__% _key5099_ _lst5100_ _default5101_))) - _g8657_)) + (pget__% _key6315_ _lst6316_ _default6317_))) + _g8128_)) (else (##raise-wrong-number-of-arguments-exception pget - _g8657_)))))) + _g8128_)))))) (define find - (lambda (_pred5026_ _lst5027_) - (let ((_$e5029_ - (let () (declare (not safe)) (memf _pred5026_ _lst5027_)))) - (if _$e5029_ (car _$e5029_) '#f)))) + (lambda (_pred6242_ _lst6243_) + (let ((_$e6245_ + (let () (declare (not safe)) (memf _pred6242_ _lst6243_)))) + (if _$e6245_ (car _$e6245_) '#f)))) (define memf - (lambda (_proc4986_ _lst4987_) - (let _lp4989_ ((_rest4991_ _lst4987_)) - (let* ((_rest49925000_ _rest4991_) - (_else49945008_ (lambda () '#f)) - (_K49965014_ - (lambda (_tl5011_ _hd5012_) - (if (_proc4986_ _hd5012_) - _rest4991_ - (let () (declare (not safe)) (_lp4989_ _tl5011_)))))) - (if (let () (declare (not safe)) (##pair? _rest49925000_)) - (let ((_hd49975017_ - (let () (declare (not safe)) (##car _rest49925000_))) - (_tl49985019_ - (let () (declare (not safe)) (##cdr _rest49925000_)))) - (let* ((_hd5022_ _hd49975017_) (_tl5024_ _tl49985019_)) + (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)) - (_K49965014_ _tl5024_ _hd5022_))) - (let () (declare (not safe)) (_else49945008_))))))) + (_K62126230_ _tl6240_ _hd6238_))) + (let () (declare (not safe)) (_else62106224_))))))) (define remove1 - (lambda (_el4939_ _lst4941_) - (let _lp4944_ ((_rest4947_ _lst4941_) (_r4949_ '())) - (let* ((_rest49514959_ _rest4947_) - (_else49534967_ (lambda () _lst4941_)) - (_K49554974_ - (lambda (_rest4970_ _hd4971_) + (lambda (_el6155_ _lst6157_) + (let _lp6160_ ((_rest6163_ _lst6157_) (_r6165_ '())) + (let* ((_rest61676175_ _rest6163_) + (_else61696183_ (lambda () _lst6157_)) + (_K61716190_ + (lambda (_rest6186_ _hd6187_) (if (let () (declare (not safe)) - (equal? _el4939_ _hd4971_)) + (equal? _el6155_ _hd6187_)) (let () (declare (not safe)) - (foldl1 cons _rest4970_ _r4949_)) - (let ((__tmp8658 + (foldl1 cons _rest6186_ _r6165_)) + (let ((__tmp8129 (let () (declare (not safe)) - (cons _hd4971_ _r4949_)))) + (cons _hd6187_ _r6165_)))) (declare (not safe)) - (_lp4944_ _rest4970_ __tmp8658)))))) - (if (let () (declare (not safe)) (##pair? _rest49514959_)) - (let ((_hd49564977_ - (let () (declare (not safe)) (##car _rest49514959_))) - (_tl49574979_ - (let () (declare (not safe)) (##cdr _rest49514959_)))) - (let* ((_hd4982_ _hd49564977_) (_rest4984_ _tl49574979_)) + (_lp6160_ _rest6186_ __tmp8129)))))) + (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)) - (_K49554974_ _rest4984_ _hd4982_))) - (let () (declare (not safe)) (_else49534967_))))))) + (_K61716190_ _rest6200_ _hd6198_))) + (let () (declare (not safe)) (_else61696183_))))))) (define remv - (lambda (_el4892_ _lst4894_) - (let _lp4897_ ((_rest4900_ _lst4894_) (_r4902_ '())) - (let* ((_rest49044912_ _rest4900_) - (_else49064920_ (lambda () _lst4894_)) - (_K49084927_ - (lambda (_rest4923_ _hd4924_) - (if (let () (declare (not safe)) (eqv? _el4892_ _hd4924_)) + (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 _rest4923_ _r4902_)) - (let ((__tmp8659 + (foldl1 cons _rest6139_ _r6118_)) + (let ((__tmp8130 (let () (declare (not safe)) - (cons _hd4924_ _r4902_)))) + (cons _hd6140_ _r6118_)))) (declare (not safe)) - (_lp4897_ _rest4923_ __tmp8659)))))) - (if (let () (declare (not safe)) (##pair? _rest49044912_)) - (let ((_hd49094930_ - (let () (declare (not safe)) (##car _rest49044912_))) - (_tl49104932_ - (let () (declare (not safe)) (##cdr _rest49044912_)))) - (let* ((_hd4935_ _hd49094930_) (_rest4937_ _tl49104932_)) + (_lp6113_ _rest6139_ __tmp8130)))))) + (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)) - (_K49084927_ _rest4937_ _hd4935_))) - (let () (declare (not safe)) (_else49064920_))))))) + (_K61246143_ _rest6153_ _hd6151_))) + (let () (declare (not safe)) (_else61226136_))))))) (define remq - (lambda (_el4845_ _lst4847_) - (let _lp4850_ ((_rest4853_ _lst4847_) (_r4855_ '())) - (let* ((_rest48574865_ _rest4853_) - (_else48594873_ (lambda () _lst4847_)) - (_K48614880_ - (lambda (_rest4876_ _hd4877_) - (if (let () (declare (not safe)) (eq? _el4845_ _hd4877_)) + (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 _rest4876_ _r4855_)) - (let ((__tmp8660 + (foldl1 cons _rest6092_ _r6071_)) + (let ((__tmp8131 (let () (declare (not safe)) - (cons _hd4877_ _r4855_)))) + (cons _hd6093_ _r6071_)))) (declare (not safe)) - (_lp4850_ _rest4876_ __tmp8660)))))) - (if (let () (declare (not safe)) (##pair? _rest48574865_)) - (let ((_hd48624883_ - (let () (declare (not safe)) (##car _rest48574865_))) - (_tl48634885_ - (let () (declare (not safe)) (##cdr _rest48574865_)))) - (let* ((_hd4888_ _hd48624883_) (_rest4890_ _tl48634885_)) + (_lp6066_ _rest6092_ __tmp8131)))))) + (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)) - (_K48614880_ _rest4890_ _hd4888_))) - (let () (declare (not safe)) (_else48594873_))))))) + (_K60776096_ _rest6106_ _hd6104_))) + (let () (declare (not safe)) (_else60756089_))))))) (define remf - (lambda (_proc4804_ _lst4805_) - (let _lp4807_ ((_rest4809_ _lst4805_) (_r4810_ '())) - (let* ((_rest48114819_ _rest4809_) - (_else48134827_ (lambda () _lst4805_)) - (_K48154833_ - (lambda (_rest4830_ _hd4831_) - (if (_proc4804_ _hd4831_) + (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 _rest4830_ _r4810_)) - (let ((__tmp8661 + (foldl1 cons _rest6046_ _r6026_)) + (let ((__tmp8132 (let () (declare (not safe)) - (cons _hd4831_ _r4810_)))) + (cons _hd6047_ _r6026_)))) (declare (not safe)) - (_lp4807_ _rest4830_ __tmp8661)))))) - (if (let () (declare (not safe)) (##pair? _rest48114819_)) - (let ((_hd48164836_ - (let () (declare (not safe)) (##car _rest48114819_))) - (_tl48174838_ - (let () (declare (not safe)) (##cdr _rest48114819_)))) - (let* ((_hd4841_ _hd48164836_) (_rest4843_ _tl48174838_)) + (_lp6023_ _rest6046_ __tmp8132)))))) + (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)) - (_K48154833_ _rest4843_ _hd4841_))) - (let () (declare (not safe)) (_else48134827_))))))) - (define 1+ (lambda (_x4802_) (+ _x4802_ '1))) - (define 1- (lambda (_x4800_) (- _x4800_ '1))) - (define fx1+ (lambda (_x4798_) (fx+ _x4798_ '1))) - (define fx1- (lambda (_x4796_) (fx- _x4796_ '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 (_x6010_) + (if (fixnum? _x6010_) + (let () (declare (not safe)) (##fx>= _x6010_ '0)) + '#f))) + (define fx>0? + (lambda (_x6008_) + (if (fixnum? _x6008_) + (let () (declare (not safe)) (##fx> _x6008_ '0)) + '#f))) + (define fx=0? + (lambda (_x6006_) (let () (declare (not safe)) (eq? _x6006_ '0)))) + (define fx<0? + (lambda (_x6004_) + (if (fixnum? _x6004_) + (let () (declare (not safe)) (##fx< _x6004_ '0)) + '#f))) + (define fx<=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 ((__tmp8662 (uninterned-symbol? _x4794_))) + (lambda (_x6000_) + (if (let () (declare (not safe)) (symbol? _x6000_)) + (let ((__tmp8133 (uninterned-symbol? _x6000_))) (declare (not safe)) - (not __tmp8662)) + (not __tmp8133)) '#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 ((__tmp8663 (car _x4766_))) + (let ((__tmp8134 (car _x5972_))) (declare (not safe)) - (display-as-string __tmp8663 _port4767_)) - (let ((__tmp8664 (cdr _x4766_))) + (display-as-string __tmp8134 _port5973_)) + (let ((__tmp8135 (cdr _x5972_))) (declare (not safe)) - (display-as-string __tmp8664 _port4767_))) - (if (let () (declare (not safe)) (vector? _x4766_)) + (display-as-string __tmp8135 _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 _g8666_ - (let ((_g8665_ (let () (declare (not safe)) (##length _g8666_)))) - (cond ((let () (declare (not safe)) (##fx= _g8665_ 1)) - (apply (lambda (_x4754_) - (let () (declare (not safe)) (as-string__0 _x4754_))) - _g8666_)) - (#t (apply as-string__1 _g8666_)) + (lambda _g8137_ + (let ((_g8136_ (let () (declare (not safe)) (##length _g8137_)))) + (cond ((let () (declare (not safe)) (##fx= _g8136_ 1)) + (apply (lambda (_x5960_) + (let () (declare (not safe)) (as-string__0 _x5960_))) + _g8137_)) + (#t (apply as-string__1 _g8137_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g8666_)))))) + _g8137_)))))) (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 _g8668_ - (let ((_g8667_ (let () (declare (not safe)) (##length _g8668_)))) - (cond ((let () (declare (not safe)) (##fx= _g8667_ 1)) - (apply (lambda (_x4750_) + (lambda _g8139_ + (let ((_g8138_ (let () (declare (not safe)) (##length _g8139_)))) + (cond ((let () (declare (not safe)) (##fx= _g8138_ 1)) + (apply (lambda (_x5956_) (let () (declare (not safe)) - (make-symbol__0 _x4750_))) - _g8668_)) - (#t (apply make-symbol__1 _g8668_)) + (make-symbol__0 _x5956_))) + _g8139_)) + (#t (apply make-symbol__1 _g8139_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g8668_)))))) + _g8139_)))))) (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 _g8670_ - (let ((_g8669_ (let () (declare (not safe)) (##length _g8670_)))) - (cond ((let () (declare (not safe)) (##fx= _g8669_ 1)) - (apply (lambda (_x4746_) + (lambda _g8141_ + (let ((_g8140_ (let () (declare (not safe)) (##length _g8141_)))) + (cond ((let () (declare (not safe)) (##fx= _g8140_ 1)) + (apply (lambda (_x5952_) (let () (declare (not safe)) - (make-keyword__0 _x4746_))) - _g8670_)) - (#t (apply make-keyword__1 _g8670_)) + (make-keyword__0 _x5952_))) + _g8141_)) + (#t (apply make-keyword__1 _g8141_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g8670_)))))) + _g8141_)))))) (define interned-keyword? - (lambda (_x4744_) - (if (keyword? _x4744_) - (let ((__tmp8671 (uninterned-keyword? _x4744_))) + (lambda (_x5950_) + (if (keyword? _x5950_) + (let ((__tmp8142 (uninterned-keyword? _x5950_))) (declare (not safe)) - (not __tmp8671)) + (not __tmp8142)) '#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 ((__tmp8672 - (let ((__tmp8673 - (let ((__tmp8674 + (let ((__tmp8143 + (let ((__tmp8144 + (let ((__tmp8145 (let () (declare (not safe)) - (cons _bstr4718_ '())))) + (cons _bstr5924_ '())))) (declare (not safe)) - (cons 'init: __tmp8674)))) + (cons 'init: __tmp8145)))) (declare (not safe)) - (cons _enc4719_ __tmp8673)))) + (cons _enc5925_ __tmp8144)))) (declare (not safe)) - (cons 'char-encoding: __tmp8672)))) - (_len4723_ (u8vector-length _bstr4718_)) - (_out4725_ (make-string _len4723_)) - (_n4727_ (read-substring _out4725_ '0 _len4723_ _in4721_))) - (string-shrink! _out4725_ _n4727_) - _out4725_)))) + (cons 'char-encoding: __tmp8143)))) + (_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 _g8676_ - (let ((_g8675_ (let () (declare (not safe)) (##length _g8676_)))) - (cond ((let () (declare (not safe)) (##fx= _g8675_ 1)) - (apply (lambda (_bstr4733_) + (lambda _g8147_ + (let ((_g8146_ (let () (declare (not safe)) (##length _g8147_)))) + (cond ((let () (declare (not safe)) (##fx= _g8146_ 1)) + (apply (lambda (_bstr5939_) (let () (declare (not safe)) - (bytes->string__0 _bstr4733_))) - _g8676_)) - ((let () (declare (not safe)) (##fx= _g8675_ 2)) - (apply (lambda (_bstr4737_ _enc4738_) + (bytes->string__0 _bstr5939_))) + _g8147_)) + ((let () (declare (not safe)) (##fx= _g8146_ 2)) + (apply (lambda (_bstr5943_ _enc5944_) (let () (declare (not safe)) - (bytes->string__% _bstr4737_ _enc4738_))) - _g8676_)) + (bytes->string__% _bstr5943_ _enc5944_))) + _g8147_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g8676_)))))) + _g8147_)))))) (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 _g8678_ - (let ((_g8677_ (let () (declare (not safe)) (##length _g8678_)))) - (cond ((let () (declare (not safe)) (##fx= _g8677_ 1)) - (apply (lambda (_str4710_) + (lambda _g8149_ + (let ((_g8148_ (let () (declare (not safe)) (##length _g8149_)))) + (cond ((let () (declare (not safe)) (##fx= _g8148_ 1)) + (apply (lambda (_str5916_) (let () (declare (not safe)) - (string->bytes__0 _str4710_))) - _g8678_)) - ((let () (declare (not safe)) (##fx= _g8677_ 2)) - (apply (lambda (_str4714_ _enc4715_) + (string->bytes__0 _str5916_))) + _g8149_)) + ((let () (declare (not safe)) (##fx= _g8148_ 2)) + (apply (lambda (_str5920_ _enc5921_) (let () (declare (not safe)) - (string->bytes__% _str4714_ _enc4715_))) - _g8678_)) + (string->bytes__% _str5920_ _enc5921_))) + _g8149_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g8678_)))))) + _g8149_)))))) (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 ((__tmp8679 - (let () (declare (not safe)) (cons _enc4685_ '())))) + (let ((__tmp8150 + (let () (declare (not safe)) (cons _enc5891_ '())))) (declare (not safe)) - (cons 'char-encoding: __tmp8679))))) - (write-substring _str4682_ _start4683_ _end4684_ _out4687_) - (get-output-u8vector _out4687_))))) + (cons 'char-encoding: __tmp8150))))) + (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 _g8681_ - (let ((_g8680_ (let () (declare (not safe)) (##length _g8681_)))) - (cond ((let () (declare (not safe)) (##fx= _g8680_ 3)) - (apply (lambda (_str4692_ _start4693_ _end4694_) + (lambda _g8152_ + (let ((_g8151_ (let () (declare (not safe)) (##length _g8152_)))) + (cond ((let () (declare (not safe)) (##fx= _g8151_ 3)) + (apply (lambda (_str5898_ _start5899_ _end5900_) (let () (declare (not safe)) (substring->bytes__0 - _str4692_ - _start4693_ - _end4694_))) - _g8681_)) - ((let () (declare (not safe)) (##fx= _g8680_ 4)) - (apply (lambda (_str4698_ _start4699_ _end4700_ _enc4701_) + _str5898_ + _start5899_ + _end5900_))) + _g8152_)) + ((let () (declare (not safe)) (##fx= _g8151_ 4)) + (apply (lambda (_str5904_ _start5905_ _end5906_ _enc5907_) (let () (declare (not safe)) (substring->bytes__% - _str4698_ - _start4699_ - _end4700_ - _enc4701_))) - _g8681_)) + _str5904_ + _start5905_ + _end5906_ + _enc5907_))) + _g8152_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g8681_)))))) + _g8152_)))))) (define string-empty? - (lambda (_str4679_) - (let ((__tmp8682 (string-length _str4679_))) + (lambda (_str5885_) + (let ((__tmp8153 (string-length _str5885_))) (declare (not safe)) - (##fxzero? __tmp8682)))) + (##fxzero? __tmp8153)))) (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 ((__tmp8685 + (##fx< _i5883_ _prefix-len5879_)) + (if (let ((__tmp8156 (let () (declare (not safe)) - (##string-ref _str4670_ _i4677_))) - (__tmp8684 + (##string-ref _str5876_ _i5883_))) + (__tmp8155 (let () (declare (not safe)) - (##string-ref _prefix4669_ _i4677_)))) + (##string-ref _prefix5875_ _i5883_)))) (declare (not safe)) - (eq? __tmp8685 __tmp8684)) - (let ((__tmp8683 + (eq? __tmp8156 __tmp8155)) + (let ((__tmp8154 (let () (declare (not safe)) - (##fx+ _i4677_ '1)))) + (##fx+ _i5883_ '1)))) (declare (not safe)) - (_lp4675_ __tmp8683)) + (_lp5881_ __tmp8154)) '#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 ((__tmp8687 + (lambda (_str5853_ _char5854_ _start5855_) + (let ((_len5857_ (string-length _str5853_))) + (let _lp5859_ ((_k5861_ _start5855_)) + (if (let () (declare (not safe)) (##fx< _k5861_ _len5857_)) + (if (let ((__tmp8158 (let () (declare (not safe)) - (##string-ref _str4647_ _k4655_)))) + (##string-ref _str5853_ _k5861_)))) (declare (not safe)) - (eq? _char4648_ __tmp8687)) - _k4655_ - (let ((__tmp8686 - (let () (declare (not safe)) (##fx+ _k4655_ '1)))) + (eq? _char5854_ __tmp8158)) + _k5861_ + (let ((__tmp8157 + (let () (declare (not safe)) (##fx+ _k5861_ '1)))) (declare (not safe)) - (_lp4653_ __tmp8686))) + (_lp5859_ __tmp8157))) '#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 _g8689_ - (let ((_g8688_ (let () (declare (not safe)) (##length _g8689_)))) - (cond ((let () (declare (not safe)) (##fx= _g8688_ 2)) - (apply (lambda (_str4660_ _char4661_) + (lambda _g8160_ + (let ((_g8159_ (let () (declare (not safe)) (##length _g8160_)))) + (cond ((let () (declare (not safe)) (##fx= _g8159_ 2)) + (apply (lambda (_str5866_ _char5867_) (let () (declare (not safe)) - (string-index__0 _str4660_ _char4661_))) - _g8689_)) - ((let () (declare (not safe)) (##fx= _g8688_ 3)) - (apply (lambda (_str4665_ _char4666_ _start4667_) + (string-index__0 _str5866_ _char5867_))) + _g8160_)) + ((let () (declare (not safe)) (##fx= _g8159_ 3)) + (apply (lambda (_str5871_ _char5872_ _start5873_) (let () (declare (not safe)) (string-index__% - _str4665_ - _char4666_ - _start4667_))) - _g8689_)) + _str5871_ + _char5872_ + _start5873_))) + _g8160_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g8689_)))))) + _g8160_)))))) (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 ((__tmp8691 + (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 ((__tmp8162 (let () (declare (not safe)) - (##string-ref _str4618_ _k4632_)))) + (##string-ref _str5824_ _k5838_)))) (declare (not safe)) - (eq? _char4619_ __tmp8691)) - _k4632_ - (let ((__tmp8690 - (let () (declare (not safe)) (##fx- _k4632_ '1)))) + (eq? _char5825_ __tmp8162)) + _k5838_ + (let ((__tmp8161 + (let () (declare (not safe)) (##fx- _k5838_ '1)))) (declare (not safe)) - (_lp4630_ __tmp8690))) + (_lp5836_ __tmp8161))) '#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 _g8693_ - (let ((_g8692_ (let () (declare (not safe)) (##length _g8693_)))) - (cond ((let () (declare (not safe)) (##fx= _g8692_ 2)) - (apply (lambda (_str4637_ _char4638_) + (lambda _g8164_ + (let ((_g8163_ (let () (declare (not safe)) (##length _g8164_)))) + (cond ((let () (declare (not safe)) (##fx= _g8163_ 2)) + (apply (lambda (_str5843_ _char5844_) (let () (declare (not safe)) - (string-rindex__0 _str4637_ _char4638_))) - _g8693_)) - ((let () (declare (not safe)) (##fx= _g8692_ 3)) - (apply (lambda (_str4642_ _char4643_ _start4644_) + (string-rindex__0 _str5843_ _char5844_))) + _g8164_)) + ((let () (declare (not safe)) (##fx= _g8163_ 3)) + (apply (lambda (_str5848_ _char5849_ _start5850_) (let () (declare (not safe)) (string-rindex__% - _str4642_ - _char4643_ - _start4644_))) - _g8693_)) + _str5848_ + _char5849_ + _start5850_))) + _g8164_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g8693_)))))) + _g8164_)))))) (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 ((__tmp8697 - (let () (declare (not safe)) (##fx+ _end4615_ '1))) - (__tmp8695 - (let ((__tmp8696 + (string-index _str5808_ _char5809_ _start5815_)))) + (if _$e5818_ + ((lambda (_end5821_) + (let ((__tmp8168 + (let () (declare (not safe)) (##fx+ _end5821_ '1))) + (__tmp8166 + (let ((__tmp8167 (let () (declare (not safe)) (##substring - _str4602_ - _start4609_ - _end4615_)))) + _str5808_ + _start5815_ + _end5821_)))) (declare (not safe)) - (cons __tmp8696 _r4610_)))) + (cons __tmp8167 _r5816_)))) (declare (not safe)) - (_lp4607_ __tmp8697 __tmp8695))) - _$e4612_) + (_lp5813_ __tmp8168 __tmp8166))) + _$e5818_) (if (let () (declare (not safe)) - (##fx< _start4609_ _len4605_)) - (let ((__tmp8694 + (##fx< _start5815_ _len5811_)) + (let ((__tmp8165 (list (let () (declare (not safe)) (##substring - _str4602_ - _start4609_ - _len4605_))))) + _str5808_ + _start5815_ + _len5811_))))) (declare (not safe)) - (foldl1 cons __tmp8694 _r4610_)) - (reverse _r4610_)))))))) + (foldl1 cons __tmp8165 _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 ((__tmp8699 - (let ((__tmp8700 + (pair? _rest5793_)) + (let ((__tmp8170 + (let ((__tmp8171 (let () (declare (not safe)) (##string-length - _hd4588_)))) + _hd5794_)))) (declare (not safe)) - (##fx+ __tmp8700 - _jlen4562_ - _len4567_)))) + (##fx+ __tmp8171 + _jlen5768_ + _len5773_)))) (declare (not safe)) - (_lp4564_ _rest4587_ __tmp8699)) - (let ((__tmp8698 + (_lp5770_ _rest5793_ __tmp8170)) + (let ((__tmp8169 (let () (declare (not safe)) - (##string-length _hd4588_)))) + (##string-length _hd5794_)))) (declare (not safe)) - (##fx+ __tmp8698 _len4567_))) - (error '"expected string" _hd4588_))))) + (##fx+ __tmp8169 _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 ((__tmp8701 + _hdlen5753_ + _ostr5724_ + _k5730_)) + (let ((__tmp8172 (let () (declare (not safe)) - (##fx+ _k4524_ _hdlen4547_)))) + (##fx+ _k5730_ _hdlen5753_)))) (declare (not safe)) (##substring-move! - _join4512_ + _join5718_ '0 - _jlen4514_ - _ostr4518_ - __tmp8701)) - (let ((__tmp8702 + _jlen5720_ + _ostr5724_ + __tmp8172)) + (let ((__tmp8173 (let () (declare (not safe)) - (##fx+ _k4524_ - _hdlen4547_ - _jlen4514_)))) + (##fx+ _k5730_ + _hdlen5753_ + _jlen5720_)))) (declare (not safe)) - (_lp4521_ _rest4544_ __tmp8702))) + (_lp5727_ _rest5750_ __tmp8173))) (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 557a6a6251..ad2f984f23 100644 --- a/src/bootstrap/gerbil/runtime/util__1.scm +++ b/src/bootstrap/gerbil/runtime/util__1.scm @@ -1,722 +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" _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 ((__tmp8751 - (gx#datum->syntax - '#f - 'def)) - (__tmp8703 - (let ((__tmp8742 - (let ((__tmp8743 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8750 (gx#datum->syntax '#f 'key)) - (__tmp8744 - (let ((__tmp8749 - (gx#datum->syntax '#f 'lst)) - (__tmp8745 - (let ((__tmp8746 - (let ((__tmp8748 - (gx#datum->syntax - '#f - 'default)) - (__tmp8747 - (let () - (declare (not safe)) - (cons '#f '())))) - (declare (not safe)) - (cons __tmp8748 - __tmp8747)))) - (declare (not safe)) - (cons __tmp8746 '())))) - (declare (not safe)) - (cons __tmp8749 __tmp8745)))) - (declare (not safe)) - (cons __tmp8750 __tmp8744)))) - (declare (not safe)) - (cons _L4312_ __tmp8743))) - (__tmp8704 - (let ((__tmp8705 - (let ((__tmp8741 (gx#datum->syntax '#f 'cond)) - (__tmp8706 - (let ((__tmp8723 - (let ((__tmp8728 - (let ((__tmp8740 + (define |[1]#_g8461_| + (##structure + gx#syntax-quote::t + 'quote + #f + (gx#current-expander-context) + '())) + (define |[1]#_g8462_| + (##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 ((__tmp8222 (gx#datum->syntax '#f - 'and)) - (__tmp8729 - (let ((__tmp8736 - (let ((__tmp8739 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'pair?)) - (__tmp8737 - (let ((__tmp8738 (gx#datum->syntax '#f 'lst))) - (declare (not safe)) - (cons __tmp8738 '())))) - (declare (not safe)) - (cons __tmp8739 __tmp8737))) - (__tmp8730 - (let ((__tmp8731 - (let ((__tmp8732 - (let ((__tmp8735 - (gx#datum->syntax '#f 'key)) - (__tmp8733 - (let ((__tmp8734 - (gx#datum->syntax - '#f - 'lst))) + 'def)) + (__tmp8174 + (let ((__tmp8213 + (let ((__tmp8214 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp8221 (gx#datum->syntax '#f 'key)) + (__tmp8215 + (let ((__tmp8220 + (gx#datum->syntax '#f 'lst)) + (__tmp8216 + (let ((__tmp8217 + (let ((__tmp8219 + (gx#datum->syntax + '#f + 'default)) + (__tmp8218 + (let () + (declare + (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp8219 + __tmp8218)))) (declare (not safe)) - (cons __tmp8734 '())))) + (cons __tmp8217 '())))) (declare (not safe)) - (cons __tmp8735 __tmp8733)))) + (cons __tmp8220 __tmp8216)))) (declare (not safe)) - (cons _L4310_ __tmp8732)))) + (cons __tmp8221 __tmp8215)))) (declare (not safe)) - (cons __tmp8731 '())))) - (declare (not safe)) - (cons __tmp8736 __tmp8730)))) + (cons _L4312_ __tmp8214))) + (__tmp8175 + (let ((__tmp8176 + (let ((__tmp8212 (gx#datum->syntax '#f 'cond)) + (__tmp8177 + (let ((__tmp8194 + (let ((__tmp8199 + (let ((__tmp8211 + (gx#datum->syntax + '#f + 'and)) + (__tmp8200 + (let ((__tmp8207 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp8210 (gx#datum->syntax '#f 'pair?)) + (__tmp8208 + (let ((__tmp8209 (gx#datum->syntax '#f 'lst))) + (declare (not safe)) + (cons __tmp8209 '())))) + (declare (not safe)) + (cons __tmp8210 __tmp8208))) + (__tmp8201 + (let ((__tmp8202 + (let ((__tmp8203 + (let ((__tmp8206 + (gx#datum->syntax '#f 'key)) + (__tmp8204 + (let ((__tmp8205 + (gx#datum->syntax + '#f + 'lst))) + (declare (not safe)) + (cons __tmp8205 '())))) + (declare (not safe)) + (cons __tmp8206 __tmp8204)))) + (declare (not safe)) + (cons _L4310_ __tmp8203)))) + (declare (not safe)) + (cons __tmp8202 '())))) + (declare (not safe)) + (cons __tmp8207 __tmp8201)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp8740 __tmp8729))) - (__tmp8724 - (let ((__tmp8727 - (gx#datum->syntax - '#f - '=>)) - (__tmp8725 - (let ((__tmp8726 - (gx#datum->syntax - '#f - 'cdr))) - (declare (not safe)) - (cons __tmp8726 - '())))) - (declare (not safe)) - (cons __tmp8727 - __tmp8725)))) - (declare (not safe)) - (cons __tmp8728 __tmp8724))) - (__tmp8707 - (let ((__tmp8713 - (let ((__tmp8719 - (let ((__tmp8722 - (gx#datum->syntax - '#f - 'procedure?)) - (__tmp8720 - (let ((__tmp8721 + (declare (not safe)) + (cons __tmp8211 + __tmp8200))) + (__tmp8195 + (let ((__tmp8198 + (gx#datum->syntax + '#f + '=>)) + (__tmp8196 + (let ((__tmp8197 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'default))) - (declare (not safe)) - (cons __tmp8721 '())))) - (declare (not safe)) - (cons __tmp8722 __tmp8720))) - (__tmp8714 - (let ((__tmp8715 - (let ((__tmp8718 (gx#datum->syntax '#f 'default)) - (__tmp8716 - (let ((__tmp8717 (gx#datum->syntax '#f 'key))) - (declare (not safe)) - (cons __tmp8717 '())))) - (declare (not safe)) - (cons __tmp8718 __tmp8716)))) - (declare (not safe)) - (cons __tmp8715 '())))) + (gx#datum->syntax '#f 'cdr))) + (declare (not safe)) + (cons __tmp8197 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp8719 __tmp8714))) - (__tmp8708 - (let ((__tmp8709 - (let ((__tmp8712 - (gx#datum->syntax - '#f - 'else)) - (__tmp8710 - (let ((__tmp8711 + (declare (not safe)) + (cons __tmp8198 + __tmp8196)))) + (declare (not safe)) + (cons __tmp8199 __tmp8195))) + (__tmp8178 + (let ((__tmp8184 + (let ((__tmp8190 + (let ((__tmp8193 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'procedure?)) + (__tmp8191 + (let ((__tmp8192 (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp8192 '())))) + (declare (not safe)) + (cons __tmp8193 __tmp8191))) + (__tmp8185 + (let ((__tmp8186 + (let ((__tmp8189 (gx#datum->syntax '#f 'default)) + (__tmp8187 + (let ((__tmp8188 (gx#datum->syntax '#f 'key))) + (declare (not safe)) + (cons __tmp8188 '())))) + (declare (not safe)) + (cons __tmp8189 __tmp8187)))) + (declare (not safe)) + (cons __tmp8186 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8190 + __tmp8185))) + (__tmp8179 + (let ((__tmp8180 + (let ((__tmp8183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'default))) + (gx#datum->syntax '#f 'else)) + (__tmp8181 + (let ((__tmp8182 (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp8182 '())))) + (declare (not safe)) + (cons __tmp8183 __tmp8181)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8180 '())))) + (declare (not safe)) + (cons __tmp8184 __tmp8179)))) + (declare (not safe)) + (cons __tmp8194 __tmp8178)))) + (declare (not safe)) + (cons __tmp8212 __tmp8177)))) (declare (not safe)) - (cons __tmp8711 '())))) + (cons __tmp8176 '())))) (declare (not safe)) - (cons __tmp8712 __tmp8710)))) + (cons __tmp8213 __tmp8175)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8709 '())))) - (declare (not safe)) - (cons __tmp8713 __tmp8708)))) - (declare (not safe)) - (cons __tmp8723 __tmp8707)))) - (declare (not safe)) - (cons __tmp8741 __tmp8706)))) - (declare (not safe)) - (cons __tmp8705 '())))) - (declare (not safe)) - (cons __tmp8742 __tmp8704)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons __tmp8222 __tmp8174))) + _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 __tmp8751 __tmp8703))) - _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" _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 ((__tmp8821 - (gx#datum->syntax - '#f - 'def)) - (__tmp8752 - (let ((__tmp8812 - (let ((__tmp8813 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8820 (gx#datum->syntax '#f 'key)) - (__tmp8814 - (let ((__tmp8819 - (gx#datum->syntax '#f 'lst)) - (__tmp8815 - (let ((__tmp8816 - (let ((__tmp8818 + (##car _e43494382_))) + (_tl43474389_ + (let () + (declare (not safe)) + (##cdr _e43494382_)))) + (if (gx#stx-null? _tl43474389_) + ((lambda (_L4392_ _L4394_) + (let ((__tmp8292 (gx#datum->syntax '#f - 'default)) - (__tmp8817 - (let () - (declare (not safe)) - (cons '#f '())))) - (declare (not safe)) - (cons __tmp8818 - __tmp8817)))) - (declare (not safe)) - (cons __tmp8816 '())))) - (declare (not safe)) - (cons __tmp8819 __tmp8815)))) - (declare (not safe)) - (cons __tmp8820 __tmp8814)))) - (declare (not safe)) - (cons _L4394_ __tmp8813))) - (__tmp8753 - (let ((__tmp8754 - (let ((__tmp8811 (gx#datum->syntax '#f 'let)) - (__tmp8755 - (let ((__tmp8810 (gx#datum->syntax '#f 'lp)) - (__tmp8756 - (let ((__tmp8805 - (let ((__tmp8806 - (let ((__tmp8809 - (gx#datum->syntax - '#f - 'rest)) - (__tmp8807 - (let ((__tmp8808 + 'def)) + (__tmp8223 + (let ((__tmp8283 + (let ((__tmp8284 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'lst))) - (declare (not safe)) - (cons __tmp8808 '())))) - (declare (not safe)) - (cons __tmp8809 __tmp8807)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp8806 '()))) - (__tmp8757 - (let ((__tmp8758 - (let ((__tmp8804 - (gx#datum->syntax - '#f - 'match)) - (__tmp8759 - (let ((__tmp8803 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'rest)) - (__tmp8760 - (let ((__tmp8779 - (let ((__tmp8796 - (let ((__tmp8802 - (gx#datum->syntax - '#f - '@list)) - (__tmp8797 - (let ((__tmp8801 + (let ((__tmp8291 (gx#datum->syntax '#f 'key)) + (__tmp8285 + (let ((__tmp8290 + (gx#datum->syntax '#f 'lst)) + (__tmp8286 + (let ((__tmp8287 + (let ((__tmp8289 (gx#datum->syntax '#f - 'k)) - (__tmp8798 - (let ((__tmp8800 + 'default)) + (__tmp8288 + (let () + (declare + (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp8289 + __tmp8288)))) + (declare (not safe)) + (cons __tmp8287 '())))) + (declare (not safe)) + (cons __tmp8290 __tmp8286)))) + (declare (not safe)) + (cons __tmp8291 __tmp8285)))) + (declare (not safe)) + (cons _L4394_ __tmp8284))) + (__tmp8224 + (let ((__tmp8225 + (let ((__tmp8282 (gx#datum->syntax '#f 'let)) + (__tmp8226 + (let ((__tmp8281 + (gx#datum->syntax '#f 'lp)) + (__tmp8227 + (let ((__tmp8276 + (let ((__tmp8277 + (let ((__tmp8280 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'v)) - (__tmp8799 (gx#datum->syntax '#f 'rest))) + (gx#datum->syntax '#f 'rest)) + (__tmp8278 + (let ((__tmp8279 (gx#datum->syntax '#f 'lst))) + (declare (not safe)) + (cons __tmp8279 '())))) (declare (not safe)) - (cons __tmp8800 __tmp8799)))) + (cons __tmp8280 __tmp8278)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8801 - __tmp8798)))) - (declare (not safe)) - (cons __tmp8802 __tmp8797))) - (__tmp8780 - (let ((__tmp8781 - (let ((__tmp8795 - (gx#datum->syntax - '#f - 'if)) - (__tmp8782 - (let ((__tmp8790 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8791 - (let ((__tmp8794 (gx#datum->syntax '#f 'k)) - (__tmp8792 - (let ((__tmp8793 - (gx#datum->syntax '#f 'key))) - (declare (not safe)) - (cons __tmp8793 '())))) - (declare (not safe)) - (cons __tmp8794 __tmp8792)))) - (declare (not safe)) - (cons _L4392_ __tmp8791))) - (__tmp8783 - (let ((__tmp8789 (gx#datum->syntax '#f 'v)) - (__tmp8784 - (let ((__tmp8785 - (let ((__tmp8788 - (gx#datum->syntax '#f 'lp)) - (__tmp8786 - (let ((__tmp8787 + (cons __tmp8277 '()))) + (__tmp8228 + (let ((__tmp8229 + (let ((__tmp8275 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'match)) + (__tmp8230 + (let ((__tmp8274 (gx#datum->syntax '#f 'rest)) + (__tmp8231 + (let ((__tmp8250 + (let ((__tmp8267 + (let ((__tmp8273 (gx#datum->syntax '#f - 'rest))) + '@list)) + (__tmp8268 + (let ((__tmp8272 + (gx#datum->syntax + '#f + 'k)) + (__tmp8269 + (let ((__tmp8271 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'v)) + (__tmp8270 (gx#datum->syntax '#f 'rest))) + (declare (not safe)) + (cons __tmp8271 __tmp8270)))) + (declare (not safe)) + (cons __tmp8272 __tmp8269)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8787 '())))) - (declare (not safe)) - (cons __tmp8788 __tmp8786)))) - (declare (not safe)) - (cons __tmp8785 '())))) - (declare (not safe)) - (cons __tmp8789 __tmp8784)))) - (declare (not safe)) - (cons __tmp8790 __tmp8783)))) + (cons __tmp8273 __tmp8268))) + (__tmp8251 + (let ((__tmp8252 + (let ((__tmp8266 + (gx#datum->syntax + '#f + 'if)) + (__tmp8253 + (let ((__tmp8261 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp8262 + (let ((__tmp8265 (gx#datum->syntax '#f 'k)) + (__tmp8263 + (let ((__tmp8264 + (gx#datum->syntax '#f 'key))) + (declare (not safe)) + (cons __tmp8264 '())))) + (declare (not safe)) + (cons __tmp8265 __tmp8263)))) + (declare (not safe)) + (cons _L4392_ __tmp8262))) + (__tmp8254 + (let ((__tmp8260 (gx#datum->syntax '#f 'v)) + (__tmp8255 + (let ((__tmp8256 + (let ((__tmp8259 + (gx#datum->syntax '#f 'lp)) + (__tmp8257 + (let ((__tmp8258 + (gx#datum->syntax + '#f + 'rest))) + (declare (not safe)) + (cons __tmp8258 '())))) + (declare (not safe)) + (cons __tmp8259 __tmp8257)))) + (declare (not safe)) + (cons __tmp8256 '())))) + (declare (not safe)) + (cons __tmp8260 __tmp8255)))) + (declare (not safe)) + (cons __tmp8261 __tmp8254)))) + (declare (not safe)) + (cons __tmp8266 __tmp8253)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp8795 - __tmp8782)))) - (declare (not safe)) - (cons __tmp8781 '())))) - (declare (not safe)) - (cons __tmp8796 __tmp8780))) - (__tmp8761 - (let ((__tmp8762 - (let ((__tmp8778 - (gx#datum->syntax - '#f - 'else)) - (__tmp8763 - (let ((__tmp8764 - (let ((__tmp8777 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'if)) - (__tmp8765 - (let ((__tmp8773 - (let ((__tmp8776 - (gx#datum->syntax '#f 'procedure?)) - (__tmp8774 - (let ((__tmp8775 - (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp8252 '())))) (declare (not safe)) - (cons __tmp8775 '())))) - (declare (not safe)) - (cons __tmp8776 __tmp8774))) - (__tmp8766 - (let ((__tmp8769 - (let ((__tmp8772 - (gx#datum->syntax '#f 'default)) - (__tmp8770 - (let ((__tmp8771 + (cons __tmp8267 __tmp8251))) + (__tmp8232 + (let ((__tmp8233 + (let ((__tmp8249 (gx#datum->syntax '#f - 'key))) + 'else)) + (__tmp8234 + (let ((__tmp8235 + (let ((__tmp8248 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'if)) + (__tmp8236 + (let ((__tmp8244 + (let ((__tmp8247 + (gx#datum->syntax '#f 'procedure?)) + (__tmp8245 + (let ((__tmp8246 + (gx#datum->syntax + '#f + 'default))) + (declare (not safe)) + (cons __tmp8246 '())))) + (declare (not safe)) + (cons __tmp8247 __tmp8245))) + (__tmp8237 + (let ((__tmp8240 + (let ((__tmp8243 + (gx#datum->syntax + '#f + 'default)) + (__tmp8241 + (let ((__tmp8242 + (gx#datum->syntax + '#f + 'key))) + (declare (not safe)) + (cons __tmp8242 '())))) + (declare (not safe)) + (cons __tmp8243 __tmp8241))) + (__tmp8238 + (let ((__tmp8239 + (gx#datum->syntax + '#f + 'default))) + (declare (not safe)) + (cons __tmp8239 '())))) + (declare (not safe)) + (cons __tmp8240 __tmp8238)))) + (declare (not safe)) + (cons __tmp8244 __tmp8237)))) + (declare (not safe)) + (cons __tmp8248 __tmp8236)))) + (declare (not safe)) + (cons __tmp8235 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8771 '())))) - (declare (not safe)) - (cons __tmp8772 __tmp8770))) - (__tmp8767 - (let ((__tmp8768 - (gx#datum->syntax '#f 'default))) + (cons __tmp8249 __tmp8234)))) (declare (not safe)) - (cons __tmp8768 '())))) + (cons __tmp8233 '())))) (declare (not safe)) - (cons __tmp8769 __tmp8767)))) + (cons __tmp8250 __tmp8232)))) (declare (not safe)) - (cons __tmp8773 __tmp8766)))) + (cons __tmp8274 __tmp8231)))) (declare (not safe)) - (cons __tmp8777 __tmp8765)))) + (cons __tmp8275 __tmp8230)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8764 '())))) + (cons __tmp8229 '())))) (declare (not safe)) - (cons __tmp8778 __tmp8763)))) + (cons __tmp8276 __tmp8228)))) (declare (not safe)) - (cons __tmp8762 '())))) + (cons __tmp8281 __tmp8227)))) (declare (not safe)) - (cons __tmp8779 __tmp8761)))) + (cons __tmp8282 __tmp8226)))) (declare (not safe)) - (cons __tmp8803 __tmp8760)))) + (cons __tmp8225 '())))) (declare (not safe)) - (cons __tmp8804 __tmp8759)))) + (cons __tmp8283 __tmp8224)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8758 '())))) - (declare (not safe)) - (cons __tmp8805 __tmp8757)))) - (declare (not safe)) - (cons __tmp8810 __tmp8756)))) - (declare (not safe)) - (cons __tmp8811 __tmp8755)))) - (declare (not safe)) - (cons __tmp8754 '())))) - (declare (not safe)) - (cons __tmp8812 __tmp8753)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons __tmp8292 __tmp8223))) + _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 __tmp8821 __tmp8752))) - _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" _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 ((__tmp8892 - (gx#datum->syntax - '#f - 'def)) - (__tmp8822 - (let ((__tmp8887 - (let ((__tmp8888 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8891 (gx#datum->syntax '#f 'el)) - (__tmp8889 - (let ((__tmp8890 - (gx#datum->syntax '#f 'lst))) - (declare (not safe)) - (cons __tmp8890 '())))) - (declare (not safe)) - (cons __tmp8891 __tmp8889)))) - (declare (not safe)) - (cons _L4475_ __tmp8888))) - (__tmp8823 - (let ((__tmp8824 - (let ((__tmp8886 (gx#datum->syntax '#f 'let)) - (__tmp8825 - (let ((__tmp8885 (gx#datum->syntax '#f 'lp)) - (__tmp8826 - (let ((__tmp8874 - (let ((__tmp8881 - (let ((__tmp8884 - (gx#datum->syntax - '#f - 'rest)) - (__tmp8882 - (let ((__tmp8883 + (##car _e44304463_))) + (_tl44284470_ + (let () + (declare (not safe)) + (##cdr _e44304463_)))) + (if (gx#stx-null? _tl44284470_) + ((lambda (_L4473_ _L4475_) + (let ((__tmp8363 + (gx#datum->syntax + '#f + 'def)) + (__tmp8293 + (let ((__tmp8358 + (let ((__tmp8359 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'lst))) - (declare (not safe)) - (cons __tmp8883 '())))) - (declare (not safe)) - (cons __tmp8884 __tmp8882))) - (__tmp8875 - (let ((__tmp8876 - (let ((__tmp8880 (gx#datum->syntax '#f 'r)) - (__tmp8877 - (let ((__tmp8878 - (let ((__tmp8879 - (gx#datum->syntax '#f '@list))) + (let ((__tmp8362 (gx#datum->syntax '#f 'el)) + (__tmp8360 + (let ((__tmp8361 + (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp8879 '())))) + (cons __tmp8361 '())))) (declare (not safe)) - (cons __tmp8878 '())))) + (cons __tmp8362 __tmp8360)))) (declare (not safe)) - (cons __tmp8880 __tmp8877)))) - (declare (not safe)) - (cons __tmp8876 '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp8881 __tmp8875))) - (__tmp8827 - (let ((__tmp8828 - (let ((__tmp8873 - (gx#datum->syntax - '#f - 'match)) - (__tmp8829 - (let ((__tmp8872 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'rest)) - (__tmp8830 - (let ((__tmp8836 - (let ((__tmp8867 - (let ((__tmp8871 - (gx#datum->syntax - '#f - '@list)) - (__tmp8868 - (let ((__tmp8870 - (gx#datum->syntax - '#f - 'hd)) - (__tmp8869 - (gx#datum->syntax - '#f - 'rest))) - (declare (not safe)) - (cons __tmp8870 - __tmp8869)))) - (declare (not safe)) - (cons __tmp8871 __tmp8868))) - (__tmp8837 - (let ((__tmp8838 - (let ((__tmp8866 - (gx#datum->syntax - '#f - 'if)) - (__tmp8839 - (let ((__tmp8861 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8862 - (let ((__tmp8865 (gx#datum->syntax '#f 'el)) - (__tmp8863 - (let ((__tmp8864 - (gx#datum->syntax '#f 'hd))) + (cons _L4475_ __tmp8359))) + (__tmp8294 + (let ((__tmp8295 + (let ((__tmp8357 (gx#datum->syntax '#f 'let)) + (__tmp8296 + (let ((__tmp8356 + (gx#datum->syntax '#f 'lp)) + (__tmp8297 + (let ((__tmp8345 + (let ((__tmp8352 + (let ((__tmp8355 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'rest)) + (__tmp8353 + (let ((__tmp8354 (gx#datum->syntax '#f 'lst))) + (declare (not safe)) + (cons __tmp8354 '())))) + (declare (not safe)) + (cons __tmp8355 __tmp8353))) + (__tmp8346 + (let ((__tmp8347 + (let ((__tmp8351 (gx#datum->syntax '#f 'r)) + (__tmp8348 + (let ((__tmp8349 + (let ((__tmp8350 + (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp8864 '())))) + (cons __tmp8350 '())))) (declare (not safe)) - (cons __tmp8865 __tmp8863)))) + (cons __tmp8349 '())))) (declare (not safe)) - (cons _L4473_ __tmp8862))) - (__tmp8840 - (let ((__tmp8853 - (let ((__tmp8860 - (gx#datum->syntax '#f 'foldl1)) - (__tmp8854 - (let ((__tmp8859 - (gx#datum->syntax '#f 'cons)) - (__tmp8855 - (let ((__tmp8858 + (cons __tmp8351 __tmp8348)))) + (declare (not safe)) + (cons __tmp8347 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8352 + __tmp8346))) + (__tmp8298 + (let ((__tmp8299 + (let ((__tmp8344 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'match)) + (__tmp8300 + (let ((__tmp8343 (gx#datum->syntax '#f 'rest)) + (__tmp8301 + (let ((__tmp8307 + (let ((__tmp8338 + (let ((__tmp8342 (gx#datum->syntax '#f - 'rest)) - (__tmp8856 - (let ((__tmp8857 + '@list)) + (__tmp8339 + (let ((__tmp8341 (gx#datum->syntax '#f - 'r))) + 'hd)) + (__tmp8340 + (gx#datum->syntax + '#f + 'rest))) (declare (not safe)) - (cons __tmp8857 '())))) + (cons __tmp8341 + __tmp8340)))) (declare (not safe)) - (cons __tmp8858 __tmp8856)))) - (declare (not safe)) - (cons __tmp8859 __tmp8855)))) - (declare (not safe)) - (cons __tmp8860 __tmp8854))) - (__tmp8841 - (let ((__tmp8842 - (let ((__tmp8852 - (gx#datum->syntax '#f 'lp)) - (__tmp8843 - (let ((__tmp8851 - (gx#datum->syntax - '#f - 'rest)) - (__tmp8844 - (let ((__tmp8845 - (let ((__tmp8850 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'cons)) - (__tmp8846 - (let ((__tmp8849 (gx#datum->syntax '#f 'hd)) - (__tmp8847 - (let ((__tmp8848 (gx#datum->syntax '#f 'r))) + (cons __tmp8342 __tmp8339))) + (__tmp8308 + (let ((__tmp8309 + (let ((__tmp8337 + (gx#datum->syntax + '#f + 'if)) + (__tmp8310 + (let ((__tmp8332 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp8333 + (let ((__tmp8336 (gx#datum->syntax '#f 'el)) + (__tmp8334 + (let ((__tmp8335 + (gx#datum->syntax '#f 'hd))) + (declare (not safe)) + (cons __tmp8335 '())))) (declare (not safe)) - (cons __tmp8848 '())))) + (cons __tmp8336 __tmp8334)))) (declare (not safe)) - (cons __tmp8849 __tmp8847)))) + (cons _L4473_ __tmp8333))) + (__tmp8311 + (let ((__tmp8324 + (let ((__tmp8331 + (gx#datum->syntax '#f 'foldl1)) + (__tmp8325 + (let ((__tmp8330 + (gx#datum->syntax '#f 'cons)) + (__tmp8326 + (let ((__tmp8329 + (gx#datum->syntax + '#f + 'rest)) + (__tmp8327 + (let ((__tmp8328 + (gx#datum->syntax + '#f + 'r))) + (declare (not safe)) + (cons __tmp8328 + '())))) + (declare (not safe)) + (cons __tmp8329 __tmp8327)))) + (declare (not safe)) + (cons __tmp8330 __tmp8326)))) + (declare (not safe)) + (cons __tmp8331 __tmp8325))) + (__tmp8312 + (let ((__tmp8313 + (let ((__tmp8323 + (gx#datum->syntax '#f 'lp)) + (__tmp8314 + (let ((__tmp8322 + (gx#datum->syntax + '#f + 'rest)) + (__tmp8315 + (let ((__tmp8316 + (let ((__tmp8321 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'cons)) + (__tmp8317 + (let ((__tmp8320 (gx#datum->syntax '#f 'hd)) + (__tmp8318 + (let ((__tmp8319 + (gx#datum->syntax '#f 'r))) + (declare (not safe)) + (cons __tmp8319 '())))) + (declare (not safe)) + (cons __tmp8320 __tmp8318)))) + (declare (not safe)) + (cons __tmp8321 __tmp8317)))) + (declare (not safe)) + (cons __tmp8316 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8322 __tmp8315)))) + (declare (not safe)) + (cons __tmp8323 __tmp8314)))) + (declare (not safe)) + (cons __tmp8313 '())))) + (declare (not safe)) + (cons __tmp8324 __tmp8312)))) (declare (not safe)) - (cons __tmp8850 __tmp8846)))) + (cons __tmp8332 __tmp8311)))) (declare (not safe)) - (cons __tmp8845 '())))) + (cons __tmp8337 __tmp8310)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8851 __tmp8844)))) + (cons __tmp8309 '())))) (declare (not safe)) - (cons __tmp8852 __tmp8843)))) + (cons __tmp8338 __tmp8308))) + (__tmp8302 + (let ((__tmp8303 + (let ((__tmp8306 + (gx#datum->syntax + '#f + 'else)) + (__tmp8304 + (let ((__tmp8305 + (gx#datum->syntax + '#f + 'lst))) + (declare (not safe)) + (cons __tmp8305 '())))) + (declare (not safe)) + (cons __tmp8306 __tmp8304)))) + (declare (not safe)) + (cons __tmp8303 '())))) (declare (not safe)) - (cons __tmp8842 '())))) + (cons __tmp8307 __tmp8302)))) (declare (not safe)) - (cons __tmp8853 __tmp8841)))) + (cons __tmp8343 __tmp8301)))) (declare (not safe)) - (cons __tmp8861 __tmp8840)))) + (cons __tmp8344 __tmp8300)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8866 - __tmp8839)))) + (cons __tmp8299 '())))) (declare (not safe)) - (cons __tmp8838 '())))) + (cons __tmp8345 __tmp8298)))) (declare (not safe)) - (cons __tmp8867 __tmp8837))) - (__tmp8831 - (let ((__tmp8832 - (let ((__tmp8835 - (gx#datum->syntax - '#f - 'else)) - (__tmp8833 - (let ((__tmp8834 - (gx#datum->syntax - '#f - 'lst))) - (declare (not safe)) - (cons __tmp8834 '())))) - (declare (not safe)) - (cons __tmp8835 __tmp8833)))) - (declare (not safe)) - (cons __tmp8832 '())))) + (cons __tmp8356 __tmp8297)))) (declare (not safe)) - (cons __tmp8836 __tmp8831)))) + (cons __tmp8357 __tmp8296)))) (declare (not safe)) - (cons __tmp8872 __tmp8830)))) + (cons __tmp8295 '())))) (declare (not safe)) - (cons __tmp8873 __tmp8829)))) + (cons __tmp8358 __tmp8294)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8828 '())))) + (cons __tmp8363 __tmp8293))) + _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 ((__tmp8365 (gx#datum->syntax '#f 'DBG/1)) + (__tmp8364 + (let () + (declare (not safe)) + (cons '1 _L4527_)))) + (declare (not safe)) + (cons __tmp8365 __tmp8364))) + _tl45024524_))) + (_g44994510_ _g45004514_))))) + (_g44984539_ _$stx4495_)))) + (define |[:0:]#DBG/1| + (lambda (_$stx4543_) + (let* ((___stx76897690_ _$stx4543_) + (_g45544768_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + ___stx76897690_)))) + (let ((___kont76927693_ + (lambda (_L5621_ _L5623_ _L5624_ _L5625_ _L5626_) + (let ((__tmp8366 + (let ((__tmp8367 + (let ((__tmp8368 + (let ((__tmp8372 + (let ((__tmp8373 + (lambda (_g56565659_ + _g56575662_) + (let () + (declare (not safe)) + (cons _g56565659_ + _g56575662_))))) + (declare (not safe)) + (foldr1 __tmp8373 + '() + _L5624_))) + (__tmp8369 + (let ((__tmp8370 + (let ((__tmp8371 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _L5621_ '())))) + (declare (not safe)) + (cons _L5623_ __tmp8371)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L5625_ __tmp8370)))) + (declare (not safe)) + (cons __tmp8372 __tmp8369)))) + (declare (not safe)) + (cons '() __tmp8368)))) + (declare (not safe)) + (cons '2 __tmp8367)))) + (declare (not safe)) + (cons _L5626_ __tmp8366)))) + (___kont76967697_ + (lambda (_L5474_ _L5476_ _L5477_ _L5478_) + (let ((__tmp8374 + (let ((__tmp8375 + (let ((__tmp8376 + (let ((__tmp8380 + (let ((__tmp8381 + (lambda (_g55015504_ + _g55025507_) + (let () + (declare (not safe)) + (cons _g55015504_ + _g55025507_))))) + (declare (not safe)) + (foldr1 __tmp8381 + '() + _L5476_))) + (__tmp8377 + (let ((__tmp8378 + (let ((__tmp8379 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _L5474_ '())))) + (declare (not safe)) + (cons _L5474_ __tmp8379)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L5477_ __tmp8378)))) + (declare (not safe)) + (cons __tmp8380 __tmp8377)))) + (declare (not safe)) + (cons '() __tmp8376)))) + (declare (not safe)) + (cons '2 __tmp8375)))) + (declare (not safe)) + (cons _L5478_ __tmp8374)))) + (___kont77007701_ + (lambda (_L5377_) + (let ((__tmp8393 (gx#datum->syntax '#f 'DBG-helper)) + (__tmp8382 + (let ((__tmp8383 + (let ((__tmp8390 + (let ((__tmp8392 + (gx#datum->syntax '#f 'quote)) + (__tmp8391 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons __tmp8392 __tmp8391))) + (__tmp8384 + (let ((__tmp8387 + (let ((__tmp8389 + (gx#datum->syntax + '#f + 'quote)) + (__tmp8388 + (let () + (declare (not safe)) + (cons '() '())))) + (declare (not safe)) + (cons __tmp8389 __tmp8388))) + (__tmp8385 + (let ((__tmp8386 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons '#f __tmp8386)))) + (declare (not safe)) + (cons __tmp8387 __tmp8385)))) + (declare (not safe)) + (cons __tmp8390 __tmp8384)))) + (declare (not safe)) + (cons _L5377_ __tmp8383)))) + (declare (not safe)) + (cons __tmp8393 __tmp8382)))) + (___kont77027703_ + (lambda (_L5300_ _L5302_ _L5303_ _L5304_ _L5305_ _L5306_) + (let ((__tmp8394 + (let ((__tmp8395 + (let ((__tmp8397 + (let ((__tmp8398 + (let ((__tmp8399 + (let () + (declare (not safe)) + (cons _L5303_ '())))) + (declare (not safe)) + (cons _L5304_ __tmp8399)))) + (declare (not safe)) + (cons __tmp8398 _L5305_))) + (__tmp8396 + (let () + (declare (not safe)) + (cons _L5302_ _L5300_)))) + (declare (not safe)) + (cons __tmp8397 __tmp8396)))) + (declare (not safe)) + (cons '2 __tmp8395)))) + (declare (not safe)) + (cons _L5306_ __tmp8394)))) + (___kont77047705_ + (lambda (_L5181_ _L5183_ _L5184_ _L5185_ _L5186_) + (let ((__tmp8400 + (let ((__tmp8401 + (let ((__tmp8403 + (let ((__tmp8404 + (let ((__tmp8405 + (let () + (declare (not safe)) + (cons _L5184_ '())))) + (declare (not safe)) + (cons _L5184_ __tmp8405)))) + (declare (not safe)) + (cons __tmp8404 _L5185_))) + (__tmp8402 + (let () + (declare (not safe)) + (cons _L5183_ _L5181_)))) + (declare (not safe)) + (cons __tmp8403 __tmp8402)))) + (declare (not safe)) + (cons '2 __tmp8401)))) + (declare (not safe)) + (cons _L5186_ __tmp8400)))) + (___kont77067707_ + (lambda (_L5098_ _L5100_ _L5101_) + (let ((__tmp8406 + (let ((__tmp8407 + (let ((__tmp8408 + (let () + (declare (not safe)) + (cons _L5100_ _L5098_)))) + (declare (not safe)) + (cons '() __tmp8408)))) + (declare (not safe)) + (cons '3 __tmp8407)))) + (declare (not safe)) + (cons _L5101_ __tmp8406)))) + (___kont77087709_ + (lambda (_L5019_ _L5021_ _L5022_ _L5023_ _L5024_) + (let ((__tmp8409 + (let ((__tmp8410 + (let ((__tmp8412 + (let () + (declare (not safe)) + (cons _L5022_ _L5023_))) + (__tmp8411 + (let () + (declare (not safe)) + (cons _L5021_ _L5019_)))) + (declare (not safe)) + (cons __tmp8412 __tmp8411)))) + (declare (not safe)) + (cons '3 __tmp8410)))) + (declare (not safe)) + (cons _L5024_ __tmp8409)))) + (___kont77107711_ + (lambda (_L4903_ _L4905_ _L4906_ _L4907_ _L4908_ _L4909_) + (let ((__tmp8460 (gx#datum->syntax '#f 'let)) + (__tmp8413 + (let ((__tmp8448 + (let ((__tmp8457 + (let ((__tmp8459 + (gx#datum->syntax '#f 'tagval)) + (__tmp8458 + (let () + (declare (not safe)) + (cons _L4906_ '())))) + (declare (not safe)) + (cons __tmp8459 __tmp8458))) + (__tmp8449 + (let ((__tmp8450 + (let ((__tmp8456 + (gx#datum->syntax + '#f + 'thunk)) + (__tmp8451 + (let ((__tmp8452 + (let ((__tmp8455 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'lambda)) + (__tmp8453 + (let ((__tmp8454 + (let () + (declare (not safe)) + (cons _L4903_ '())))) + (declare (not safe)) + (cons '() __tmp8454)))) + (declare (not safe)) + (cons __tmp8455 __tmp8453)))) + (declare (not safe)) + (cons __tmp8452 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8456 __tmp8451)))) + (declare (not safe)) + (cons __tmp8450 '())))) + (declare (not safe)) + (cons __tmp8457 __tmp8449))) + (__tmp8414 + (let ((__tmp8415 + (let ((__tmp8447 + (gx#datum->syntax '#f 'if)) + (__tmp8416 + (let ((__tmp8446 + (gx#datum->syntax + '#f + 'tagval)) + (__tmp8417 + (let ((__tmp8421 + (let ((__tmp8445 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'DBG-helper)) + (__tmp8422 + (let ((__tmp8444 (gx#datum->syntax '#f 'tagval)) + (__tmp8423 + (let ((__tmp8439 + (let ((__tmp8443 + (gx#datum->syntax '#f 'quote)) + (__tmp8440 + (let ((__tmp8441 + (let ((__tmp8442 + (lambda (_g49434946_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g49444949_) + (let () + (declare (not safe)) + (cons _g49434946_ _g49444949_))))) + (declare (not safe)) + (foldr1 __tmp8442 '() _L4908_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8441 '())))) (declare (not safe)) - (cons __tmp8874 __tmp8827)))) + (cons __tmp8443 __tmp8440))) + (__tmp8424 + (let ((__tmp8431 + (let ((__tmp8438 + (gx#datum->syntax + '#f + 'list)) + (__tmp8432 + (let ((__tmp8433 + (lambda (_g49414952_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g49424955_) + (let ((__tmp8434 + (let ((__tmp8437 + (gx#datum->syntax '#f 'lambda)) + (__tmp8435 + (let ((__tmp8436 + (let () + (declare (not safe)) + (cons _g49414952_ '())))) + (declare (not safe)) + (cons '() __tmp8436)))) + (declare (not safe)) + (cons __tmp8437 __tmp8435)))) + (declare (not safe)) + (cons __tmp8434 _g49424955_))))) + (declare (not safe)) + (foldr1 __tmp8433 '() _L4907_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8438 __tmp8432))) + (__tmp8425 + (let ((__tmp8428 + (let ((__tmp8430 + (gx#datum->syntax + '#f + 'quote)) + (__tmp8429 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _L4905_ '())))) + (declare (not safe)) + (cons __tmp8430 __tmp8429))) + (__tmp8426 + (let ((__tmp8427 (gx#datum->syntax '#f 'thunk))) + (declare (not safe)) + (cons __tmp8427 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8428 + __tmp8426)))) + (declare (not safe)) + (cons __tmp8431 __tmp8425)))) (declare (not safe)) - (cons __tmp8885 __tmp8826)))) + (cons __tmp8439 __tmp8424)))) + (declare (not safe)) + (cons __tmp8444 __tmp8423)))) + (declare (not safe)) + (cons __tmp8445 __tmp8422))) + (__tmp8418 + (let ((__tmp8419 + (let ((__tmp8420 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp8886 __tmp8825)))) + (cons __tmp8420 '())))) (declare (not safe)) - (cons __tmp8824 '())))) + (cons __tmp8419 '())))) (declare (not safe)) - (cons __tmp8887 __tmp8823)))) + (cons __tmp8421 __tmp8418)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8892 __tmp8822))) - _hd44294467_ - _hd44264457_) - (_g44184436_ _g44194440_)))) - (_g44184436_ _g44194440_)))) - (_g44184436_ _g44194440_)))) - (_g44184436_ _g44194440_))))) - (_g44174491_ _$stx4414_))))) + (cons __tmp8446 __tmp8417)))) + (declare (not safe)) + (cons __tmp8447 __tmp8416)))) + (declare (not safe)) + (cons __tmp8415 '())))) + (declare (not safe)) + (cons __tmp8448 __tmp8414)))) + (declare (not safe)) + (cons __tmp8460 __tmp8413))))) + (let* ((___match80408041_ + (lambda (_e47264775_ + _hd47254779_ + _tl47244782_ + _e47294785_ + _hd47284789_ + _tl47274792_ + _e47304795_ + _e47334799_ + _hd47324803_ + _tl47314806_ + ___splice77127713_ + _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_) + (___kont77107711_ + _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_ '() '())))) + (___match78187819_ + (lambda (_e45985400_ + _hd45975404_ + _tl45965407_ + _e46015410_ + _hd46005414_ + _tl45995417_ + _e46025420_ + _e46055424_ + _hd46045428_ + _tl46035431_ + ___splice76987699_ + _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_))) + (___kont76967697_ + _hd46165444_ + _exprs46145470_ + _hd46045428_ + _hd45975404_)))))) + (_loop46095450_ _target46065434_ '())))) + (___match77787779_ + (lambda (_e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice76947695_ + _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_))) + (___kont76927693_ + _hd45905591_ + _hd45875581_ + _exprs45795617_ + _hd45695545_ + _hd45625521_)))))) + (_loop45745597_ _target45715551_ '()))))) + (if (gx#stx-pair? ___stx76897690_) + (let ((_e45635517_ (gx#syntax-e ___stx76897690_))) + (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 ((___splice76947695_ + (gx#syntax-split-splice + _tl45685548_ + '2))) + (let ((_tl45735554_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (##vector-ref ___splice76947695_ '1))) + (_target45715551_ + (let () + (declare (not safe)) + (##vector-ref ___splice76947695_ '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]#_g8462_| + _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_) + (___match77787779_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice76947695_ + _target45715551_ + _tl45735554_ + _e45825557_ + _hd45815561_ + _tl45805564_ + _e45855567_ + _hd45845571_ + _tl45835574_ + _e45885577_ + _hd45875581_ + _tl45865584_ + _e45915587_ + _hd45905591_ + _tl45895594_) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice76987699_ + (gx#syntax-split-splice + _tl45685548_ + '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref + ___splice76987699_ + '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref + ___splice76987699_ + '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_) + (___match78187819_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice76987699_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ + _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))))) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice76987699_ + (gx#syntax-split-splice _tl45685548_ '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref ___splice76987699_ '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref ___splice76987699_ '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_) + (___match78187819_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice76987699_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_))))) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice76987699_ + (gx#syntax-split-splice _tl45685548_ '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref ___splice76987699_ '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref ___splice76987699_ '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_) + (___match78187819_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice76987699_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (fx>= (gx#stx-length + _tl45685548_) + '1) + (let ((___splice76987699_ + (gx#syntax-split-splice + _tl45685548_ + '1))) + (let ((_tl46085437_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##vector-ref ___splice76987699_ '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref ___splice76987699_ '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_) + (___match78187819_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice76987699_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? + _tl45685548_) + (___kont77007701_ + _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))) + (if (fx>= (gx#stx-length + _tl45685548_) + '1) + (let ((___splice76987699_ + (gx#syntax-split-splice + _tl45685548_ + '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref + ___splice76987699_ + '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref + ___splice76987699_ + '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_) + (___match78187819_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice76987699_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ + _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))) + (if (fx>= (gx#stx-length _tl45685548_) + '1) + (let ((___splice76987699_ + (gx#syntax-split-splice + _tl45685548_ + '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref + ___splice76987699_ + '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref + ___splice76987699_ + '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_) + (___match78187819_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice76987699_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? + _tl45685548_) + (___kont77007701_ + _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))))) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice76987699_ + (gx#syntax-split-splice + _tl45685548_ + '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref + ___splice76987699_ + '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref + ___splice76987699_ + '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_) + (___match78187819_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice76987699_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? + _tl45685548_) + (___kont77007701_ + _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))))) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice76987699_ + (gx#syntax-split-splice _tl45685548_ '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref ___splice76987699_ '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref ___splice76987699_ '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_) + (___match78187819_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice76987699_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_))))))) + (if (fx>= (gx#stx-length _tl45685548_) '1) + (let ((___splice76987699_ + (gx#syntax-split-splice _tl45685548_ '1))) + (let ((_tl46085437_ + (let () + (declare (not safe)) + (##vector-ref ___splice76987699_ '1))) + (_target46065434_ + (let () + (declare (not safe)) + (##vector-ref ___splice76987699_ '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_) + (___match78187819_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e45705541_ + _hd45695545_ + _tl45685548_ + ___splice76987699_ + _target46065434_ + _tl46085437_ + _e46175440_ + _hd46165444_ + _tl46155447_) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () + (declare (not safe)) + (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_)))))) + (if (gx#stx-null? _tl45685548_) + (___kont77007701_ _hd45695545_) + (let () (declare (not safe)) (_g45544768_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? + _tl45685548_) + (___kont77007701_ + _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]#_g8461_| + _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_)))) + (___kont77027703_ + _tl46455257_ + _tl46575297_ + _hd46585294_ + _hd46555284_ + _hd46435244_ + _hd45625521_))) + (___kont77047705_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)) + (___kont77047705_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont77047705_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)) + (___kont77047705_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)) + (___kont77047705_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)))) + (___kont77047705_ + _tl46455257_ + _tl46485267_ + _hd46495264_ + _hd46435244_ + _hd45625521_)))) + (if (gx#stx-null? _hd46465254_) + (___kont77067707_ + _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_)))) + (___kont77087709_ + _tl47125006_ + _tl47155016_ + _hd47165013_ + _hd47104993_ + _hd45625521_))) + (if (gx#stx-pair/null? _hd47104993_) + (let ((___splice77127713_ + (gx#syntax-split-splice + _hd47104993_ + '0))) + (let ((_tl47364812_ + (let () + (declare (not safe)) + (##vector-ref + ___splice77127713_ + '1))) + (_target47344809_ + (let () + (declare (not safe)) + (##vector-ref + ___splice77127713_ + '0)))) + (if (gx#stx-null? _tl47364812_) + (___match80408041_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e47114989_ + _hd47104993_ + _tl47094996_ + ___splice77127713_ + _target47344809_ + _tl47364812_) + (let () + (declare (not safe)) + (_g45544768_))))) + (let () (declare (not safe)) (_g45544768_)))))) + (if (gx#stx-pair/null? _hd47104993_) + (let ((___splice77127713_ + (gx#syntax-split-splice _hd47104993_ '0))) + (let ((_tl47364812_ + (let () + (declare (not safe)) + (##vector-ref ___splice77127713_ '1))) + (_target47344809_ + (let () + (declare (not safe)) + (##vector-ref ___splice77127713_ '0)))) + (if (gx#stx-null? _tl47364812_) + (___match80408041_ + _e45635517_ + _hd45625521_ + _tl45615524_ + _e45665527_ + _hd45655531_ + _tl45645534_ + _e45675537_ + _e47114989_ + _hd47104993_ + _tl47094996_ + ___splice77127713_ + _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 8bdca9effe..0bf86e935a 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 1697117311) '#!void) +(begin (define gerbil/runtime::timestamp 1701173280) '#!void) diff --git a/src/bootstrap/gerbil/runtime__rt.scm b/src/bootstrap/gerbil/runtime__rt.scm index 4b8674d4d5..707191c125 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 cc10d60c6b..b95eafaf3d 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 0b143d1913..ff56ce6679 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/build1.ss b/src/build/build1.ss index 9774fdbe00..f7568fe93e 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 ffed640e92..932387ffb9 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 d8e653ea57..b684784f68 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 eee210f780..951e0defda 100644 --- a/src/gerbil/compiler/optimize-top.ss +++ b/src/gerbil/compiler/optimize-top.ss @@ -294,6 +294,7 @@ namespace: gxc (def (basic-expression-type-make-struct-field-unchecked-mutator stx args) (basic-expression-type-make-struct-field-mutator stx args #t)) +;; TODO: FIXME (def (basic-expression-type-make-class-type stx args) (def (mixin-expr->list stx) (let/cc return diff --git a/src/gerbil/expander/core.ss b/src/gerbil/expander/core.ss index 076875e4b7..8599a9c9ec 100644 --- a/src/gerbil/expander/core.ss +++ b/src/gerbil/expander/core.ss @@ -66,10 +66,12 @@ namespace: gx (defmethod {:init! phi-context} (lambda (self id (super (current-expander-context))) + ;;(write [phi-context-init!: (struct->list self) (##structure-length self) id super]) (newline) (struct-instance-init! self id (make-hash-table-eq) super))) (defmethod {:init! local-context} (lambda (self (super (current-expander-context))) + ;;(write [local-context-init!: (struct->list self) (##structure-length self) super]) (newline) (struct-instance-init! self (gensym 'L) (make-hash-table-eq) super))) ;; bindings diff --git a/src/gerbil/expander/root.ss b/src/gerbil/expander/root.ss index aab5becd39..30e1b9d50c 100644 --- a/src/gerbil/expander/root.ss +++ b/src/gerbil/expander/root.ss @@ -162,6 +162,8 @@ namespace: gx (defmethod {:init! root-context} (lambda (self (bind? #t)) + ;;(display "root-context-init!-000000000000000:") (newline) + ;;(write [root-context-init!: (struct->list self) (##structure-length self)]) (newline) (struct-instance-init! self 'root (make-hash-table-eq)) (when bind? {bind-core-syntax-expanders! self} @@ -171,6 +173,7 @@ namespace: gx (defmethod {:init! top-context} (lambda (self (super #f)) (let (super (or super (core-context-root) (make-root-context))) + ;;(write [top-context-init!: (struct->list self) (##structure-length self) super]) (newline) (struct-instance-init! self 'top (make-hash-table-eq) super #f #f)))) diff --git a/src/gerbil/main.ss b/src/gerbil/main.ss index eec224a7d1..a20d222813 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 48b4a628e4..11b815d5a1 100644 --- a/src/gerbil/prelude/core.ss +++ b/src/gerbil/prelude/core.ss @@ -159,16 +159,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 not-null? remove-nulls append-reverse ;; MOP type-descriptor? - struct-type? - class-type? - make-struct-type + type-id type-descriptor-precedence-all-slots type-descriptor-precedence-list type-descriptor-alist 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 + make-struct-field-accessor make-struct-field-accessor* + make-struct-field-mutator make-struct-field-mutator* + make-struct-field-unchecked-accessor make-struct-field-unchecked-accessor* + make-struct-field-unchecked-mutator make-struct-field-unchecked-mutator* + base-struct/1 base-struct/2 base-struct/list base-struct* base-struct + class-precedence-list struct-precedence-list struct-field-ref struct-field-set! unchecked-field-ref @@ -181,13 +185,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 +207,7 @@ package: gerbil find-method next-method call-next-method struct-subtype? class-subtype? + substruct? subclass? ;; write-env style write-style ;; control @@ -217,7 +222,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 +275,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 @@ -626,7 +633,10 @@ 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 )) @@ -1651,16 +1661,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: alist: constructor: unchecked:))) (def (module-type-id type-t) (cond @@ -1676,10 +1682,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 @@ -1705,27 +1711,24 @@ package: gerbil (type-name (or (stx-getq name: #'rest) #'type-t)) - (type-plist - (or (stx-getq plist: #'rest) + (type-alist + (or (stx-getq alist: #'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-alist 'type-constructor + '(slot ...))) + (with-syntax (((super ...) #'super)) #'(make-class-type 'type-id [super ...] '(slot ...) - 'type-name type-plist 'type-ctor)))) + 'type-name type-alist 'type-constructor)))) (def-type (wrap #'(def type-t type-rtd))) (def-make @@ -1738,8 +1741,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) @@ -1799,8 +1802,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-alist runtime-type-alist-set! runtime-struct-fields runtime-struct-fields-set! runtime-class-slots runtime-class-slots-set! expander-type-identifiers expander-type-identifiers-set! @@ -1863,24 +1866,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!) + (alist runtime-type-alist runtime-type-alist-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-alist) + (def runtime-type-plist-set! runtime-type-alist-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) @@ -1914,10 +1923,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: alist: 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))) @@ -1927,7 +1936,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))) @@ -1947,58 +1956,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 alist) + (let* ((alist + (or (stx-getq alist: body) [])) - (plist + (alist (if (stx-e (stx-getq transparent: body)) - (cons [transparent: . #t] plist) - plist)) - (plist + (cons [transparent: . #t] alist) + alist)) + (alist (if (stx-e (stx-getq final: body)) - (cons [final: . #t] plist) - plist)) - (plist + (cons [final: . #t] alist) + alist)) + (alist (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] alist)))) + (else alist))) + (alist (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] alist)))) + (else alist)))) + alist)) + ((values type-alist) + (if (null? alist) alist + (with-syntax ((alist alist)) + [alist: #'(quote alist)]))) ((values type-unchecked) (or (alet (e (stx-getq unchecked: body)) [unchecked: e]) @@ -2007,8 +2015,8 @@ package: gerbil [type-attr ... type-id ... type-name ... - type-ctor ... - type-plist ... + type-constructor ... + type-alist ... type-unchecked ...]) (typedef (wrap @@ -2042,10 +2050,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-alist alist) (metadef (wrap #'(defsyntax type @@ -2062,9 +2070,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-alist) + (quote (slot ...)))))))) (wrap #'(begin typedef metadef))))) @@ -2685,7 +2693,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: (syntax->datum (runtime-type-alist rtd))))) (target tgt) (instance-check (if (expander-type-info? info) @@ -2728,7 +2736,7 @@ package: gerbil false)) (def final? - (and rtd (assgetq final: (runtime-type-plist rtd)))) + (and rtd (assgetq final: (syntax->datum (runtime-type-alist 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 afb06c212b..416db40ee7 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 5ae4e13bc4..1e8ecce66d 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 0000000000..4714ce07e8 --- /dev/null +++ b/src/gerbil/runtime/c3.ss @@ -0,0 +1,110 @@ +;;; -*- 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 #t) + +;; 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 eqv?) (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 (NonEmptyList X)) ?(X X -> Bool) ?(X -> Y) -> (List X) +(def (c3-linearize-loop rhead tails (eqpred eqv?) (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 eqv?)) + (let loop ((t tails)) + (match t + ([] tails) + ([[head . tail] . more] + (when (eqpred head next) + (set-car! t tail)) + (loop more))))) + +;;; General-Purpose Utilities + +;; 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))) ;; [] + +(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) = (fold cons tail rev-head) ;; same as in SRFI 1. +;; : (List X) (List X) -> (List X) +(def (append-reverse rev-head tail) + (match rev-head + ([hd . tl] (append-reverse tl (cons hd tail))) + ([] tail))) diff --git a/src/gerbil/runtime/error.ss b/src/gerbil/runtime/error.ss index 61058868e7..eca50cc519 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 1ece287a8a..9720b6fd58 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,544 @@ 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-alist : AList +;; 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 "alist" 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: Bool all new slots will be compared during objects equal? +;; print: Bool 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-alist klass))) + +(def (type-final? klass) + (assgetq final: (type-descriptor-alist 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 (alist-form alist) + (map (match <> + ([key . val] + (if (eq? key 'direct-supers:) + [key :: (map type-id val)] + [key :: val]))) + alist)) -;;; 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) - + ;;(DBG make-type-descriptor:) + (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 alist + constructor slot-table methods) + #;(DBG make-type-descriptor*: + type-id type-name 'type-super (and type-super (##type-id type-super)) + (map ##type-id precedence-list) all-slots (alist-form alist) + constructor (hash->list 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 (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 - (if type-super - (list-tail field-names (type-descriptor-fields type-super)) - field-names)) + (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 alist) + (for-each (lambda (mixin) + (let (alist (type-descriptor-alist mixin)) + (if (assgetq transparent: alist) + (put-slots! ht (cdr (vector->list (type-descriptor-all-slots mixin)))) + (put-alist! ht key alist)))) + precedence-list)) + + (let* ((transparent? (assgetq transparent: alist)) + (all-slots-printable? (or transparent? (assgetq print: alist))) (printable - (if transparent? + (if all-slots-printable? #f ; all printable (let (ht (make-hash-table-eq)) (put-props! ht print:) ht))) - (equality - (if transparent? + (all-slots-equalable? (or transparent? (assgetq equal: alist))) + (equalable + (if all-slots-equalable? #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 '())))) + (first-new-field + (if type-super + (vector-length (type-descriptor-all-slots type-super)) + 1)) + (field-info-length (* 3 (- (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 (< 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 (fx1+ j) flags) + (loop (fx1+ i) (##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 alist 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-alist 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 bootstrap +(def type-descriptor-mixin type-descriptor-precedence-list) +(def type-descriptor-plist type-descriptor-alist) +(def type-descriptor-ctor type-descriptor-constructor) +(def (type-descriptor-fields klass) + ;;(DBG type-descriptor-fields: 'klass (type-id klass)) + (fx1- (vector-length (type-descriptor-all-slots klass)))) +(def (type-descriptor-slots klass) + ;;(DBG type-descriptor-slots: 'klass (type-id klass)) + (let (h (make-hash-table-eq)) + (hash-for-each (lambda (k v) (hash-put! h k (fx1+ v))) + (type-descriptor-slot-table klass)) + h)) + (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 alist constructor (direct-slots #f)) + #;(DBG make-struct-type: id (type-id super) direct-slots name (alist-form alist) constructor + direct-slots) + (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)))) + alist constructor)) + +;; : Symbol Symbol StructTypeDescriptor (List Symbol) Alist Constructor -> StructTypeDescriptor +(def (make-struct-type* id name super direct-slots alist constructor) + #;(DBG make-struct-type*: id name (type-id super) direct-slots (alist-form alist) 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] . alist] constructor)) + (all-slots (type-descriptor-all-slots type)) + (len (length direct-slots)) + (start (- (vector-length all-slots) len))) + #;(DBG make-struct-type*/2: all-slots len start) + (unless (andmap (lambda (slot i) ;;(DBG make-struct-type*/3: slot i 'vslot (vector-ref all-slots 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)))) + ;;(DBG make-struct-field-accessor:) + (make-struct-field-accessor* klass (struct-field-offset* klass field))) + +(def (make-struct-field-accessor* klass field) + ;;(DBG make-struct-field-accessor*: (type-id 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)))) + ;;(DBG make-struct-field-mutator:) + (make-struct-field-mutator* klass (struct-field-offset* klass field))) + +(def (make-struct-field-mutator* klass field) + ;;(DBG make-struct-field-mutator*: (type-id klass) field) + (lambda (obj val) (##structure-set! obj val field klass #f))) (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)))) + ;;(DBG make-struct-field-unchecked-accessor:) + (make-struct-field-unchecked-accessor* klass (struct-field-offset* klass field))) + +(def (make-struct-field-unchecked-accessor* klass field) + ;;(DBG make-struct-field-unchecked-accessor*: (type-id klass) field) + (lambda (obj) (##unchecked-structure-ref obj 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)))) + ;;(DBG make-struct-field-unchecked-mutator:) + (make-struct-field-unchecked-mutator* klass (struct-field-offset* klass field))) + +(def (make-struct-field-unchecked-mutator* klass field) + ;;(DBG make-struct-field-unchecked-mutator*: (type-id klass) field) + (lambda (obj val) (##unchecked-structure-set! obj val field klass #f))) -(def (struct-field-offset klass field) +(def (struct-field-offset* klass field) (##fx+ field (cond ((##type-super klass) => type-descriptor-fields) - (else 0)))) - -(def (struct-field-ref klass obj off) - (##structure-ref obj (##fx+ off 1) klass #f)) - -(def (struct-field-set! klass obj off val) - (##structure-set! obj val (##fx+ off 1) klass #f)) - -(def (struct-subtype? klass xklass) - (let (klass-t (##type-id klass)) - (let lp ((next xklass)) + (else 0)) + 1)) + +;; TODO: this seems exported but otherwise unused, and we changed the offset meaning by 1. Remove? +(def (struct-field-ref klass obj field) + ;;(DBG struct-field-ref: (type-id 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) + ;;(DBG struct-field-set!: (type-id 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) + ;;(DBG substruct?: (type-id maybe-sub-struct) (type-id 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) + ;;(DBG base-struct/1: (type-id klass) 'super (type-id (##type-super 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) + (def s1 (base-struct/1 klass1)) + (def 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)) + +;; TODO: remove after bootstrap +(def (base-struct . all-supers) + ;;(DBG base-struct: (map type-id all-supers)) + (apply base-struct/list all-supers)) + +;; Find the constructor method name for the TypeDescriptor +;; : (List TypeDescriptor) -> Symbol +(def (find-super-ctor super) + ;;(DBG find-super-ctor: (type-id 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) + ;;(DBG compute-class-slots: super-struct 'class-precedence-list (map type-id 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 (fx1+ next-slot))))) + (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-alist 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 (fx1- next-slot)) + (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 alist constructor) + ;;(DBG make-class-type:) + (make-class-type* id name direct-supers direct-slots alist constructor)) + +;; : Symbol Symbol (List TypeDescriptor) (List Symbol) Alist Constructor -> ClassTypeDescriptor +(def (make-class-type* id name direct-supers direct-slots alist constructor) + ;;(DBG make-class-type*: id name 'direct-supers (map type-id direct-supers) direct-slots (alist-form alist) 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)) + (alist + [[direct-slots: . direct-slots] + [direct-supers: . direct-supers] + alist ...]) + (constructor* (or constructor (find-super-constructor direct-supers)))) + + (make-type-descriptor* id name struct-super + precedence-list all-slots alist + 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 eqv? ##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 <>))) + +(def (if-class-slot-field klass slot if-struct if-struct-field if-class-slot) + ;;(DBG if-class-slot-field: (type-id klass) slot if-struct if-struct-slot if-class-slot) + (let (field (hash-get (type-descriptor-slot-table klass) slot)) + #;(DBG if-class-slot-field-2: field (type-final? klass) (type-struct? klass) + 'base-struct (type-id (base-struct/1 klass)) + 'vector-length (let (strukt (base-struct/1 klass)) + (and strukt (vector-length (type-descriptor-all-slots strukt)))) 'result:) + (cond + ((or (type-final? klass) (type-struct? klass)) + (if-struct klass field)) + ((let (strukt (base-struct/1 klass)) + (and strukt (< 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) + ;;(DBG make-class-slot-accessor: (type-id 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 get a slot of an object that is not a class instance" + (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) + ;;(DBG make-class-slot-mutator: (type-id 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) + (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) - (slot-set! obj slot 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) + ;;(DBG make-class-slot-unchecked-accessor: (type-id 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) + ;;(DBG make-class-slot-unchecked-mutator: (type-id 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))) + ;;(DBG class-slot-offset: (type-id klass) slot ': + (let (off (class-slot-offset* klass slot)) + (and off (fx1- off)))) + +(def (class-slot-offset* klass slot) + ;;(DBG class-slot-offset*: (type-id klass) slot ': + (hash-get (type-descriptor-slot-table klass) slot));;) (def (class-slot-ref klass obj slot) + ;;(DBG class-slot-ref: (type-id 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) + ;;(DBG class-slot-set!: (type-id 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? @@ -466,49 +571,56 @@ namespace: #f direct-instance?) (def (class-instance? klass obj) + ;;(DBG class-instance?: (type-id 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 (fx1+ k))) + +(def (make-object* klass (k (vector-length (type-descriptor-all-slots klass)))) + ;;(DBG make-object: (type-id klass) k) + (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))) + #;(DBG make-struct-instance: + (##type-id klass) (##type-name klass) + all-slots size (length args) + (type-descriptor-constructor klass)) (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= (fx1- size) (length args)) (apply ##structure klass args)) (else + #;(DBG make-struct-instance/9: (##type-id klass) (##type-name klass) + all-slots size (length args)) (error "Arguments don't match object size" - klass fields args))))) + klass (fx1- size) args))))) (def (make-class-instance klass . args) - (let (obj (make-object klass (type-descriptor-fields klass))) + ;;(DBG make-class-instance: (##type-name klass) (length args)) + (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 (__class-instance-init! klass obj args))))) (def (struct-instance-init! obj . args) + ;;(DBG struct-instance-init!: (length args) (##structure-length obj)) (if (##fx< (length args) (##structure-length obj)) (__struct-instance-init! obj args) (error "Too many arguments for struct" obj args))) @@ -518,7 +630,7 @@ namespace: #f (match rest ([hd . rest] (##vector-set! obj k hd) - (lp (##fx+ k 1) rest)) + (lp (fx1+ k) rest)) (else obj)))) (def (class-instance-init! obj . args) @@ -529,9 +641,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)))) @@ -540,6 +652,7 @@ namespace: #f (error "Unexpected class initializer arguments" rest)))))) (def (constructor-init! klass kons-id obj . args) + ;;(DBG constructor-init!: (type-id klass) kons-id #;obj args) (__constructor-init! klass kons-id obj args)) (def (__constructor-init! klass kons-id obj args) @@ -562,48 +675,53 @@ namespace: #f (error "Not an object" obj))) (def (class->list obj) + ;;(DBG class->list: #;obj ': (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 (fx1- (vector-length all-slots))) + (plist [])) + (if (< index 1) + (cons klass plist) + (let ((slot (vector-ref all-slots index))) + (loop (fx1- index) + (cons* (symbol->keyword slot) + (unchecked-field-ref obj index) + plist)))))) (error "Not a class type" obj klass))) - (error "Not an object" obj))) + (error "Not an object" obj)));;) (def (unchecked-field-ref obj off) - (##vector-ref obj (##fx+ off 1))) + ;;(DBG unchecked-field-ref: #;obj off) + (##vector-ref obj off)) (def (unchecked-field-set! obj off val) - (##vector-set! obj (##fx+ off 1) val)) + ;;(DBG unchecked-field-set!: #;obj off val) + (##vector-set! obj off val)) (def (unchecked-slot-ref obj slot) - (unchecked-field-ref obj (class-slot-offset (object-type obj) slot))) + ;;(DBG unchecked-slot-ref: #;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)) + ;;(DBG unchecked-slot-set!: #;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)) + ;;(DBG slot-ref: obj slot 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)) + ;;(DBG slot-set!: obj slot 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 +759,27 @@ 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))) + ;;(DBG find-method: 'klass (if (##type? klass) (##type-id klass) 'other) id) + (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 +793,13 @@ namespace: #f (else #f))) (def (mixin-method-ref klass id) - (cond - ((type-descriptor-mixin klass) - => (lambda (mixin) - (mixin-find-method mixin id))) - (else #f))) + ;;(DBG mixin-method-ref: (type-id klass) id) + (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 +847,13 @@ 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)) + ;;(DBG seal-class!: (type-id klass) (map type-id (class-precedence-list 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 +865,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 +874,26 @@ namespace: #f (type-descriptor-methods-set! klass vtab) (type-descriptor-seal! klass))))) +;; NB: 1. This implementation has quadratic complexity, and +;; 2. it relies on methods using next-method to be actually location dependent +;; and NOT things you can share between different classes. +;; 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 somewhat incompatible. (def (next-method subklass obj id) + ;;(DBG next-method: (type-id 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 8b5a934153..0d3cff01bc 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 fecc494240..436e0baeda 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 fdff720108..62144d15d4 100644 --- a/src/gerbil/runtime/util.ss +++ b/src/gerbil/runtime/util.ss @@ -678,3 +678,60 @@ namespace: #f (read-substring str 0 (string-length str) port)) (def (write-string str port) (write-substring str 0 (string-length str) port)) + +(define-syntax DBG + (syntax-rules () + ((_ . a) (DBG/1 1 . a)))) + +(define-syntax DBG/1 + (syntax-rules (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 0000000000..f7b2665acb --- /dev/null +++ b/src/gerbil/test/c3-test.ss @@ -0,0 +1,166 @@ +;; -*- Gerbil -*- +;;; © fare@tunes.org +;;;; Testing the c3 linearization algorithm + +(export c3-test) + +(import + ;; :gerbil/runtime/c3 + :gerbil/runtime/mop + :std/error + :std/misc/list + :std/sort + :std/srfi/1 + :std/sugar + :std/test) + +(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/debug/DBG.ss b/src/std/debug/DBG.ss index c8b257f945..1d90152715 100644 --- a/src/std/debug/DBG.ss +++ b/src/std/debug/DBG.ss @@ -2,7 +2,7 @@ ;;; © fare ;;; DBG utility -(export #t) +(export DBG DBG-helper) (import (only-in :std/format fprintf)) @@ -23,16 +23,37 @@ ;; previous expressions are not evaluated at all if tag was #f. ;; The macro expansion has relatively low overhead in space or time. ;; -(defrules DBG () - ((_ tag-expr) - (DBG-helper tag-expr '() '() #f #f)) - ((_ tag-expr dbg-expr ... expr) - (let ((tagval tag-expr) - (thunk (lambda () expr))) - (if tagval - (DBG-helper tagval '(dbg-expr ...) (list (lambda () dbg-expr) ...) - 'expr thunk) - (thunk))))) +(define-syntax DBG + (syntax-rules () + ((_ . a) (DBG/1 1 . a)))) + +(define-syntax DBG/1 + (syntax-rules (quote) + ;; Each expr can be optionally prefixed by a quoted name, which defaults to the quoted expr + ;; 1. Specially recognize the last expression (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, 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)))))) ;; NB: fprintf uses the current-error-port and calls force-output (def (DBG-helper tag dbg-exprs dbg-thunks expr thunk) diff --git a/src/std/error.ss b/src/std/error.ss index eb3c5c9570..74f0152d48 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? @@ -369,8 +370,9 @@ ;; 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 149b86ca40..cde1a38ccb 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 47e553ea34..87a92c411d 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/misc/repr.ss b/src/std/misc/repr.ss index 4c7de05bc6..a2f0ffcef3 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-alist 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 72f528d316..a177fead7c 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-alist type-descriptor-alist) + (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-alist + 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-alist type-descriptor-alist) +(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 99438c4143..c176fb653b 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))) + alist: '((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 9a3a3f95e1..401668741d 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 39a04a0f8a..df4d1ebc4f 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 ())