diff --git a/doc/.vuepress/config.js b/doc/.vuepress/config.js index f0ad75af18..9d93eedb7d 100644 --- a/doc/.vuepress/config.js +++ b/doc/.vuepress/config.js @@ -147,6 +147,17 @@ module.exports = { ] }, + { title: "Support for the Unix Command Line Interface", + path: "/reference/std/cli/", + children: [ + "cli/", + "cli/getopt", + "cli/shell", + "cli/print-exit", + "cli/multicall", + ] + }, + { title: "Miscellaneous Libraries", path: '/reference/std/misc/', children: [ diff --git a/doc/reference/std/cli/getopt.md b/doc/reference/std/cli/getopt.md new file mode 100644 index 0000000000..d4930f79ab --- /dev/null +++ b/doc/reference/std/cli/getopt.md @@ -0,0 +1,251 @@ +# Command Line Argument Parsing + +The `:std/cli/getopt` library provides facilities for command line argument parsing. + +::: tip usage +(import :std/cli/getopt) +::: + +This library used to be available as `:std/getopt` up to Gerbil v0.18, +and is still available under that name for now, but its use is deprecated. + +## Interface + +### getopt +```scheme +(getopt ...) +=> + +specifier: + (command id [help: text] ) + ... + +cmd-specifier: + (flag id short [long]) + (option id short [long] [help: text] [value: proc] [default: value]) + (argument id [help: text] [value: proc]) + (optional-argument id [help: text] [value: proc] [default: value]) + (rest-arguments id [help: text] [value: proc]) +``` + +`getopt` creates a command line parser, which can be used to parse arguments +with `getopt-parse`. + +### getopt-parse +```scheme +(getopt-parse args) +=> (values cmd-id options) + options +``` + +`getopt-parse` accepts a parser and a list of string arguments and parses +according to the parser specification. If it is parsing a specification with +subcommands, it returns two values, the command id and a hash table with the +parsed options. Otherwise it just returns the hash table with the parsed options. +An exception is raised if parsing the arguments fails. + +### getopt-error? +```scheme +(getopt-error? obj) +=> boolean +``` + +If parsing fails, then a `getopt-error` is raised, which can be guarded with +`getopt-error?`. + +### getopt-display-help +```scheme +(getopt-display-help program-name [port = (current-output-port)]) + + +tip: + + + +``` + +The procedure `getopt-display-help` can be used to display +a help message for a getopt error according to the argument specification. + +### getopt-display-help-topic +```scheme +(getopt-display-help-topic topic program-name [port = (current-output-port)]) +``` + +The procedure `getopt-display-help-topic` can be used to display a help page +for a subcommand. + +### getopt? +```scheme +(getopt? obj) +=> boolean +``` + +Returns true if the object is a getopt parser + +### getopt-object? +```scheme +(getopt-object? obj) +=> boolean +``` + +Returns true if the object is a getopt command or command specifier. + +### call-with-getopt +```scheme +(call-with-getopt proc args + program: program + help: (help #f) + exit-on-error: (exit-on-error? #t) + . gopts) +``` + +This shim around getopt parsing eliminates all the repetitive +boilerplate around argument parsing with getopt. + +It creates a getopt parser that parses with options `gopts`, automatically +including a help option or command accordingly. + +It then uses the parser to pare `args`, handling the exceptions and +displayin help accordingly; if `exit-on-error` is true (the default), +then parsing errors will exit the program. + +If the parse succeeds it invokes `proc` with the output of the parse. + +## Example + +For an example, here the a command line parser for the `gxpkg` program: +```scheme +(def (main . args) + (def install-cmd + (command 'install help: "install one or more packages" + (rest-arguments 'pkg help: "package to install"))) + (def uninstall-cmd + (command 'uninstall help: "uninstall one or more packages" + (flag 'force "-f" help: "force uninstall even if there are orphaned dependencies") + (rest-arguments 'pkg help: "package to uninstall"))) + (def update-cmd + (command 'update help: "update one or more packages" + (rest-arguments 'pkg help: "package to update; all for all packages"))) + (def link-cmd + (command 'link help: "link a local development package" + (argument 'pkg help: "package to link") + (argument 'src help: "path to package source directory"))) + (def unlink-cmd + (command 'unlink help: "unlink one or more local development packages" + (flag 'force "-f" help: "force unlink even if there are orphaned dependencies") + (rest-arguments 'pkg help: "package to unlink"))) + (def build-cmd + (command 'build help: "rebuild one or more packages and their dependents" + (rest-arguments 'pkg help: "package to build; all for all packages"))) + (def clean-cmd + (command 'clean help: "clean compilation artefacts from one or more packages" + (rest-arguments 'pkg help: "package to clean"))) + (def list-cmd + (command 'list help: "list installed packages")) + (def retag-cmd + (command 'retag help: "retag installed packages")) + (def search-cmd + (command 'search help: "search the package directory" + (rest-arguments 'keywords help: "keywords to search for"))) + + (call-with-getopt gxpkg-main args + program: "gxpkg" + help: "The Gerbil Package Manager" + install-cmd + uninstall-cmd + update-cmd + link-cmd + unlink-cmd + build-cmd + clean-cmd + list-cmd + retag-cmd + search-cmd)) + +(def (gxpkg-main cmd opt) + (let-hash opt + (case cmd + ((install) + (install-pkgs .pkg)) + ((uninstall) + (uninstall-pkgs .pkg .?force)) + ((update) + (update-pkgs .pkg)) + ((link) + (link-pkg .pkg .src)) + ((unlink) + (unlink-pkgs .pkg .?force)) + ((build) + (build-pkgs .pkg)) + ((clean) + (clean-pkgs .pkg)) + ((list) + (list-pkgs)) + ((retag) + (retag-pkgs)) + ((search) + (search-pkgs .keywords))))) +``` + + +### getopt-parse->function-arguments +```scheme +(getopt-parse->function-arguments getopt h) => list-of-arguments +``` + +This function takes a `getopt` specification and table `h` of arguments +resulting from calling `getopt-parse`, and returns a list of argument +with which to call a Scheme function that has an analogous call convention: + - supplied positional arguments are passed in order + - they are followed by all the rest arguments + - they are followed by the remaining specified keyword arguments. + +Omitted option arguments without default will be omitted. +Omitted option arguments with a default will be included with the default value; +the programmer must ensure that this default value is the same as +the default value from the Scheme function being called, or there will be +a semantic discrepancy between the CLI interface and the underlying Scheme function. + +NB: `h` will be modified in place, removing positional and rest arguments. +Make sure to use `hash-copy` if you want to preserve the original data. + +TODO: add examples + +### call-with-getopt-parse +```scheme +(call-with-getopt-parse gopt hash fun) => results-of-fun +``` + +Given a getopt specification `gopt`, the `hash` resulting from calling +`getopt-parse` on some provided command-line arguments, and a function `fun` +that has a calling convention analogous to that specified by `gopt`, +call the function with arguments that correspond to those provided by `hash`, +as per `getopt-parse->function-arguments`. + +TODO: add examples, discuss abort-on-error behavior, +lack of automatic help, etc. + +### call-with-processed-command-line +```scheme +(call-with-processed-command-line processor command-line function) => results-of-function +``` + +Generic function of three arguments: + - a `processor` that describes a `getopt` specification, + - a `command-line`, list of strings as provided by the invoking process, and + - a `function` to be called with the results of processing the command-line. + +The function is generic in the first argument. +The default method recognizes a `getopt` specification as first argument, +and appropriately calls `getopt-parse` and `call-with-getopt-parse` +to process the command-line. It also recognizes a list as being arguments +to which to apply `getopt` to obtain a specification, +with which to proceed as above. + +You may define more methods, to work with your own variant of `getopt`, +or with innovative ways to incrementally compose `getopt` specifications +e.g. with prototype objects like `gerbil-poo`. + +TODO: add examples, discuss abort-on-error behavior, +lack of automatic help, etc. diff --git a/doc/reference/std/cli/multicall.md b/doc/reference/std/cli/multicall.md new file mode 100644 index 0000000000..47877e66cf --- /dev/null +++ b/doc/reference/std/cli/multicall.md @@ -0,0 +1,30 @@ +# Multicall Binaries + +The `:std/cli/multicall` module provides facilities to define multicall binaries +the behavior of which differs depending on the name of the binary, +just like the gerbil binary itself, or famously like `busybox`. + +::: tip usage +(import :std/cli/multicall) +::: + +An earlier version of this library used to be available as `:clan/multicall` +in gerbil-utils. + +## Interface + +### current-program +### entry-points +### current-program-string +### entry-point +### getopt-spec +### entry-points-getopt-spec +### register-entry-point +### define-entry-point +### multicall-default +### set-default-entry-point! +### help +### meta +### version +### call-entry-point +### define-multicall-main diff --git a/doc/reference/std/cli/shell.md b/doc/reference/std/cli/shell.md new file mode 100644 index 0000000000..93acc5c9ef --- /dev/null +++ b/doc/reference/std/cli/shell.md @@ -0,0 +1,22 @@ +# Shell Command Support + +The `:std/cli/shell` library provides facilities for working with Unix shell code + +::: tip usage +(import :std/cli/shell) +::: + +An earlier version of this library used to be available as `:clan/shell` +in gerbil-utils. + +## Interface + +### easy-shell-character? + +### needs-shell-escape? + +### escape-shell-token + +### escape-shell-tokens + +### ->envvar diff --git a/doc/reference/std/getopt.md b/doc/reference/std/getopt.md index 726ef89f15..217d262147 100644 --- a/doc/reference/std/getopt.md +++ b/doc/reference/std/getopt.md @@ -1,188 +1,15 @@ # Command Line Argument Parsing -The `:std/getopt` library provides facilities for command line argument parsing. +This is the old name of the `:std/cli/getopt` module, +that provides facilities for command line argument parsing. + +As of Gerbil v0.19 this name is deprecated and +you should be using the new library instead, +but the old name remains available for now +for the sake of backward compatibility. ::: tip usage -(import :std/getopt) +(import :std/cli/getopt) ::: -## Interface - -### getopt -```scheme -(getopt ...) -=> - -specifier: - (command id [help: text] ) - ... - -cmd-specifier: - (flag id short [long]) - (option id short [long] [help: text] [value: proc] [default: value]) - (argument id [help: text] [value: proc]) - (optional-argument id [help: text] [value: proc] [default: value]) - (rest-arguments id [help: text] [value: proc]) - -``` - -`getopt` creates a command line parser, which can be used to parse arguments -with `getopt-parse`. - -### getopt-parse -```scheme -(getopt-parse args) -=> (values cmd-id options) - options -``` - -`getopt-parse` accepts a parser and a list of string arguments and parses -according to the parser specification. If it is parsing a specification with -subcommands, it returns two values, the command id and a hash table with the -parsed options. Otherwise it just returns the hash table with the parsed options. -An exception is raised if parsing the arguments fails. - -### getopt-error? -```scheme -(getopt-error? obj) -=> boolean -``` - -If parsing fails, then a `getopt-error` is raised, which can be guarded with -`getopt-error?`. - -### getopt-display-help -```scheme -(getopt-display-help program-name [port = (current-output-port)]) - - -tip: - - - -``` - -The procedure `getopt-display-help` can be used to display -a help message for a getopt error according to the argument specification. - -### getopt-display-help-topic -```scheme -(getopt-display-help-topic topic program-name [port = (current-output-port)]) -``` - -The procedure `getopt-display-help-topic` can be used to display a help page -for a subcommand. - -### getopt? -```scheme -(getopt? obj) -=> boolean -``` - -Returns true if the object is a getopt parser - -### getopt-object? -```scheme -(getopt-object? obj) -=> boolean -``` - -Returns true if the object is a getopt command or command specifier. - -### call-with-getopt -```scheme -(call-with-getopt proc args - program: program - help: (help #f) - exit-on-error: (exit-on-error? #t) - . gopts) -``` - -This shim around getopt parsing eliminates all the repetitive -boilerplate around argument parsing with getopt. - -It creates a getopt parser that parses with options `gopts`, automatically -including a help option or command accordingly. - -It then uses the parser to pare `args`, handling the exceptions and -displayin help accordingly; if `exit-on-error` is true (the default), -then parsing errors will exit the program. - -If the parse succeeds it invokes `proc` with the output of the parse. - -## Example - -For an example, here the a command line parser for the `gxpkg` program: -```scheme -(def (main . args) - (def install-cmd - (command 'install help: "install one or more packages" - (rest-arguments 'pkg help: "package to install"))) - (def uninstall-cmd - (command 'uninstall help: "uninstall one or more packages" - (flag 'force "-f" help: "force uninstall even if there are orphaned dependencies") - (rest-arguments 'pkg help: "package to uninstall"))) - (def update-cmd - (command 'update help: "update one or more packages" - (rest-arguments 'pkg help: "package to update; all for all packages"))) - (def link-cmd - (command 'link help: "link a local development package" - (argument 'pkg help: "package to link") - (argument 'src help: "path to package source directory"))) - (def unlink-cmd - (command 'unlink help: "unlink one or more local development packages" - (flag 'force "-f" help: "force unlink even if there are orphaned dependencies") - (rest-arguments 'pkg help: "package to unlink"))) - (def build-cmd - (command 'build help: "rebuild one or more packages and their dependents" - (rest-arguments 'pkg help: "package to build; all for all packages"))) - (def clean-cmd - (command 'clean help: "clean compilation artefacts from one or more packages" - (rest-arguments 'pkg help: "package to clean"))) - (def list-cmd - (command 'list help: "list installed packages")) - (def retag-cmd - (command 'retag help: "retag installed packages")) - (def search-cmd - (command 'search help: "search the package directory" - (rest-arguments 'keywords help: "keywords to search for"))) - - (call-with-getopt gxpkg-main args - program: "gxpkg" - help: "The Gerbil Package Manager" - install-cmd - uninstall-cmd - update-cmd - link-cmd - unlink-cmd - build-cmd - clean-cmd - list-cmd - retag-cmd - search-cmd)) - -(def (gxpkg-main cmd opt) - (let-hash opt - (case cmd - ((install) - (install-pkgs .pkg)) - ((uninstall) - (uninstall-pkgs .pkg .?force)) - ((update) - (update-pkgs .pkg)) - ((link) - (link-pkg .pkg .src)) - ((unlink) - (unlink-pkgs .pkg .?force)) - ((build) - (build-pkgs .pkg)) - ((clean) - (clean-pkgs .pkg)) - ((list) - (list-pkgs)) - ((retag) - (retag-pkgs)) - ((search) - (search-pkgs .keywords))))) - -``` +See [cli/getopt.md](cli/getopt.md) for the module documentation. diff --git a/doc/reference/std/sugar.md b/doc/reference/std/sugar.md index 5c270faa47..47586e5b7f 100644 --- a/doc/reference/std/sugar.md +++ b/doc/reference/std/sugar.md @@ -99,6 +99,25 @@ closed ``` ::: +## ignore-errors +```scheme +(ignore-errors body ...) +``` + +Evaluates body with an exception catcher that returns `#f` if an exception happened. +This is useful when attempting recovery side-effects on a “best effort” basis, +when trying out some user-specified computation that ought to return +something other than `#f` (or for which `#f` is otherwise a useful way to flag error), etc. + +::: tip Examples: +```scheme +> (ignore-errors 1 2 3) +3 +> (ignore-errors 1 (error "foo") 3) +#f +``` +::: + ## defmethod/alias ```scheme (defmethod/alias {method (alias ...) type} diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index a728ed7213..0f02c8867d 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -490,6 +490,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 +582,10 @@ namespace: gerbil/core (gerbil-version-string gerbil-version-string) (gerbil-system-version-string gerbil-system-version-string) (system-version system-version) + (build-manifest build-manifest) + (filter-build-manifest filter-build-manifest) + (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 +937,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 diff --git a/src/bootstrap/gerbil/core__10.scm b/src/bootstrap/gerbil/core__10.scm index 0dbec49fc8..168c828068 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]#_g43017_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42944_| + (define |gerbil/core$[1]#_g43018_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42948_| + (define |gerbil/core$[1]#_g43022_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42949_| + (define |gerbil/core$[1]#_g43023_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42950_| + (define |gerbil/core$[1]#_g43024_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42952_| + (define |gerbil/core$[1]#_g43026_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42953_| + (define |gerbil/core$[1]#_g43027_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42954_| + (define |gerbil/core$[1]#_g43028_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42955_| + (define |gerbil/core$[1]#_g43029_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42956_| + (define |gerbil/core$[1]#_g43030_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42957_| + (define |gerbil/core$[1]#_g43031_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42958_| + (define |gerbil/core$[1]#_g43032_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42959_| + (define |gerbil/core$[1]#_g43033_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42960_| + (define |gerbil/core$[1]#_g43034_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g42961_| + (define |gerbil/core$[1]#_g43035_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43024_| + (define |gerbil/core$[1]#_g43098_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43108_| + (define |gerbil/core$[1]#_g43120_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43111_| + (define |gerbil/core$[1]#_g43123_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43112_| + (define |gerbil/core$[1]#_g43124_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43118_| + (define |gerbil/core$[1]#_g43130_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43119_| + (define |gerbil/core$[1]#_g43131_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43120_| + (define |gerbil/core$[1]#_g43132_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43121_| + (define |gerbil/core$[1]#_g43133_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g43122_| + (define |gerbil/core$[1]#_g43134_| (##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 _$args30428_ (apply make-class-instance |gerbil/core$[1]#match-macro::t| - _$args30347_))) + _$args30428_))) (define |gerbil/core$[1]#syntax-local-match-macro?| - (lambda (_stx30344_) - (if (gx#identifier? _stx30344_) - (let ((__tmp42942 (gx#syntax-local-value _stx30344_ false))) + (lambda (_stx30425_) + (if (gx#identifier? _stx30425_) + (let ((__tmp43016 (gx#syntax-local-value _stx30425_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#match-macro::t| - __tmp42942)) + __tmp43016)) '#f))) (define |gerbil/core$[1]#parse-match-pattern__%| - (lambda (_stx28650_ _match-stx28652_) - (letrec ((_parse128654_ - (lambda (_hd29007_) - (let* ((___stx4012440125_ _hd29007_) - (_g2903329175_ + (lambda (_stx28731_ _match-stx28733_) + (letrec ((_parse128735_ + (lambda (_hd29088_) + (let* ((___stx4020540206_ _hd29088_) + (_g2911429256_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4012440125_)))) - (let ((___kont4012740128_ - (lambda (_L30107_ _L30109_) - (let* ((___stx4004440045_ _L30107_) - (_g3012630159_ + ___stx4020540206_)))) + (let ((___kont4020840209_ + (lambda (_L30188_ _L30190_) + (let* ((___stx4012540126_ _L30188_) + (_g3020730240_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4004440045_)))) - (let ((___kont4004740048_ + ___stx4012540126_)))) + (let ((___kont4012840129_ (lambda () - (cons '?: (cons _L30109_ '())))) - (___kont4004940050_ - (lambda (_L30300_) + (cons '?: (cons _L30190_ '())))) + (___kont4013040131_ + (lambda (_L30381_) (cons '?: - (cons _L30109_ + (cons _L30190_ (cons (let () (declare (not safe)) - (_parse128654_ - _L30300_)) + (_parse128735_ + _L30381_)) '()))))) - (___kont4005140052_ - (lambda (_L30270_) + (___kont4013240133_ + (lambda (_L30351_) (cons '?: - (cons _L30109_ + (cons _L30190_ (cons '=>: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_parse128654_ _L30270_)) + (_parse128735_ _L30351_)) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4005340054_ - (lambda (_L30221_ _L30223_) + (___kont4013440135_ + (lambda (_L30302_ _L30304_) (cons '?: - (cons _L30109_ + (cons _L30190_ (cons ':: - (cons _L30223_ + (cons _L30304_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '=>: (cons (let () (declare (not safe)) - (_parse128654_ _L30221_)) + (_parse128735_ _L30302_)) '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4005540056_ + (___kont4013640137_ (lambda () (let () (declare (not safe)) - (_parse-error28661_ _hd29007_))))) - (let ((_g3012230311_ + (_parse-error28742_ _hd29088_))))) + (let ((_g3020330392_ (lambda () (if (gx#stx-pair? - ___stx4004440045_) - (let ((_e3013130290_ + ___stx4012540126_) + (let ((_e3021230371_ (gx#syntax-e - ___stx4004440045_))) - (let ((_tl3012930297_ + ___stx4012540126_))) + (let ((_tl3021030378_ (let () (declare (not safe)) - (##cdr _e3013130290_))) - (_hd3013030294_ + (##cdr _e3021230371_))) + (_hd3021130375_ (let () (declare (not safe)) - (##car _e3013130290_)))) + (##car _e3021230371_)))) (if (gx#stx-null? - _tl3012930297_) - (___kont4004940050_ - _hd3013030294_) + _tl3021030378_) + (___kont4013040131_ + _hd3021130375_) (if (gx#identifier? - _hd3013030294_) + _hd3021130375_) (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]#_g43018_| + _hd3021130375_) + (if (gx#stx-pair? _tl3021030378_) + (let ((_e3021930341_ (gx#syntax-e _tl3021030378_))) + (let ((_tl3021730348_ (let () (declare (not safe)) - (##cdr _e3013830260_))) - (_hd3013730264_ + (##cdr _e3021930341_))) + (_hd3021830345_ (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 _e3021930341_)))) + (if (gx#stx-null? _tl3021730348_) + (___kont4013240133_ _hd3021830345_) + (___kont4013640137_)))) + (___kont4013640137_)) + (___kont4013640137_)) + (if (gx#stx-datum? _hd3021130375_) + (let ((_e3022530268_ (gx#stx-e _hd3021130375_))) + (if (equal? _e3022530268_ '::) + (if (gx#stx-pair? _tl3021030378_) + (let ((_e3022830272_ + (gx#syntax-e _tl3021030378_))) + (let ((_tl3022630279_ (let () (declare (not safe)) - (##cdr _e3014730191_))) - (_hd3014630195_ + (##cdr _e3022830272_))) + (_hd3022730276_ (let () (declare (not safe)) - (##car _e3014730191_)))) - (if (gx#stx-pair? _tl3014530198_) - (let ((_e3015030201_ - (gx#syntax-e _tl3014530198_))) - (let ((_tl3014830208_ + (##car _e3022830272_)))) + (if (gx#stx-pair? _tl3022630279_) + (let ((_e3023130282_ + (gx#syntax-e _tl3022630279_))) + (let ((_tl3022930289_ (let () (declare (not safe)) - (##cdr _e3015030201_))) - (_hd3014930205_ + (##cdr _e3023130282_))) + (_hd3023030286_ (let () (declare (not safe)) - (##car _e3015030201_)))) + (##car _e3023130282_)))) (if (gx#identifier? - _hd3014930205_) + _hd3023030286_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42943_| - _hd3014930205_) + |gerbil/core$[1]#_g43017_| + _hd3023030286_) (if (gx#stx-pair? - _tl3014830208_) - (let ((_e3015330211_ + _tl3022930289_) + (let ((_e3023430292_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3014830208_))) - (let ((_tl3015130218_ - (let () (declare (not safe)) (##cdr _e3015330211_))) - (_hd3015230215_ + (gx#syntax-e _tl3022930289_))) + (let ((_tl3023230299_ + (let () (declare (not safe)) (##cdr _e3023430292_))) + (_hd3023330296_ (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 _e3023430292_)))) + (if (gx#stx-null? _tl3023230299_) + (___kont4013440135_ _hd3023330296_ _hd3022730276_) + (___kont4013640137_)))) + (___kont4013640137_)) + (___kont4013640137_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4013640137_)))) + (___kont4013640137_)))) + (___kont4013640137_)) + (___kont4013640137_))) + (___kont4013640137_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4013640137_))))) + (if (gx#stx-null? ___stx4012540126_) + (___kont4012840129_) (let () (declare (not safe)) - (_g3012230311_)))))))) - (___kont4012940130_ - (lambda (_L30012_) - (let* ((___stx4002640027_ _L30012_) - (_g3002430035_ + (_g3020330392_)))))))) + (___kont4021040211_ + (lambda (_L30093_) + (let* ((___stx4010740108_ _L30093_) + (_g3010530116_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4002640027_)))) - (let ((___kont4002940030_ - (lambda (_L30063_) + ___stx4010740108_)))) + (let ((___kont4011040111_ + (lambda (_L30144_) (let () (declare (not safe)) - (_parse128654_ _L30063_)))) - (___kont4003140032_ + (_parse128735_ _L30144_)))) + (___kont4011240113_ (lambda () (cons 'and: (gx#stx-map - _parse128654_ - _L30012_))))) - (if (gx#stx-pair? ___stx4002640027_) - (let ((_e3002930053_ - (gx#syntax-e ___stx4002640027_))) - (let ((_tl3002730060_ + _parse128735_ + _L30093_))))) + (if (gx#stx-pair? ___stx4010740108_) + (let ((_e3011030134_ + (gx#syntax-e ___stx4010740108_))) + (let ((_tl3010830141_ (let () (declare (not safe)) - (##cdr _e3002930053_))) - (_hd3002830057_ + (##cdr _e3011030134_))) + (_hd3010930138_ (let () (declare (not safe)) - (##car _e3002930053_)))) - (if (gx#stx-null? _tl3002730060_) - (___kont4002940030_ - _hd3002830057_) - (___kont4003140032_)))) - (___kont4003140032_)))))) - (___kont4013140132_ - (lambda (_L29927_) - (let* ((___stx4000840009_ _L29927_) - (_g2993929950_ + (##car _e3011030134_)))) + (if (gx#stx-null? _tl3010830141_) + (___kont4011040111_ + _hd3010930138_) + (___kont4011240113_)))) + (___kont4011240113_)))))) + (___kont4021240213_ + (lambda (_L30008_) + (let* ((___stx4008940090_ _L30008_) + (_g3002030031_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4000840009_)))) - (let ((___kont4001140012_ - (lambda (_L29978_) + ___stx4008940090_)))) + (let ((___kont4009240093_ + (lambda (_L30059_) (let () (declare (not safe)) - (_parse128654_ _L29978_)))) - (___kont4001340014_ + (_parse128735_ _L30059_)))) + (___kont4009440095_ (lambda () (cons 'or: (gx#stx-map - _parse128654_ - _L29927_))))) - (if (gx#stx-pair? ___stx4000840009_) - (let ((_e2994429968_ - (gx#syntax-e ___stx4000840009_))) - (let ((_tl2994229975_ + _parse128735_ + _L30008_))))) + (if (gx#stx-pair? ___stx4008940090_) + (let ((_e3002530049_ + (gx#syntax-e ___stx4008940090_))) + (let ((_tl3002330056_ (let () (declare (not safe)) - (##cdr _e2994429968_))) - (_hd2994329972_ + (##cdr _e3002530049_))) + (_hd3002430053_ (let () (declare (not safe)) - (##car _e2994429968_)))) - (if (gx#stx-null? _tl2994229975_) - (___kont4001140012_ - _hd2994329972_) - (___kont4001340014_)))) - (___kont4001340014_)))))) - (___kont4013340134_ - (lambda (_L29897_) + (##car _e3002530049_)))) + (if (gx#stx-null? _tl3002330056_) + (___kont4009240093_ + _hd3002430053_) + (___kont4009440095_)))) + (___kont4009440095_)))))) + (___kont4021440215_ + (lambda (_L29978_) (cons 'not: (cons (let () (declare (not safe)) - (_parse128654_ _L29897_)) + (_parse128735_ _L29978_)) '())))) - (___kont4013540136_ - (lambda (_L29853_ _L29855_) + (___kont4021640217_ + (lambda (_L29934_ _L29936_) (cons 'cons: (cons (let () (declare (not safe)) - (_parse128654_ _L29855_)) + (_parse128735_ _L29936_)) (cons (let () (declare (not safe)) - (_parse128654_ _L29853_)) + (_parse128735_ _L29934_)) '()))))) - (___kont4013740138_ - (lambda (_L29797_ _L29799_ _L29800_) - (if (gx#stx-null? _L29797_) + (___kont4021840219_ + (lambda (_L29878_ _L29880_ _L29881_) + (if (gx#stx-null? _L29878_) (cons 'cons: (cons (let () (declare (not safe)) - (_parse128654_ _L29800_)) + (_parse128735_ _L29881_)) (cons (let () (declare (not safe)) - (_parse128654_ - _L29799_)) + (_parse128735_ + _L29880_)) '()))) (cons 'cons: (cons (let () (declare (not safe)) - (_parse128654_ _L29800_)) - (cons (let ((__tmp42945 + (_parse128735_ _L29881_)) + (cons (let ((__tmp43019 (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'cons*) - (cons _L29799_ _L29797_)))) + (cons _L29880_ _L29878_)))) (declare (not safe)) - (_parse128654_ __tmp42945)) + (_parse128735_ __tmp43019)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (___kont4013940140_ - (lambda (_L29749_) + (___kont4022040221_ + (lambda (_L29830_) (let () (declare (not safe)) - (_parse-list28656_ _L29749_)))) - (___kont4014140142_ - (lambda (_L29719_) + (_parse-list28737_ _L29830_)))) + (___kont4022240223_ + (lambda (_L29800_) (cons 'box: (cons (let () (declare (not safe)) - (_parse128654_ _L29719_)) + (_parse128735_ _L29800_)) '())))) - (___kont4014340144_ - (lambda (_L29682_) + (___kont4022440225_ + (lambda (_L29763_) (cons 'box: (cons (let () (declare (not safe)) - (_parse128654_ _L29682_)) + (_parse128735_ _L29763_)) '())))) - (___kont4014540146_ - (lambda (_L29658_) + (___kont4022640227_ + (lambda (_L29739_) (let () (declare (not safe)) - (_parse128654_ _L29658_)))) - (___kont4014740148_ - (lambda (_L29620_) + (_parse128735_ _L29739_)))) + (___kont4022840229_ + (lambda (_L29701_) (cons 'values: (cons (let () (declare (not safe)) - (_parse-vector28657_ _L29620_)) + (_parse-vector28738_ _L29701_)) '())))) - (___kont4014940150_ - (lambda (_L29592_) + (___kont4023040231_ + (lambda (_L29673_) (cons 'vector: (cons (let () (declare (not safe)) - (_parse-vector28657_ _L29592_)) + (_parse-vector28738_ _L29673_)) '())))) - (___kont4015140152_ - (lambda (_L29553_) + (___kont4023240233_ + (lambda (_L29634_) (cons 'vector: - (cons (let ((__tmp42946 - (foldr (lambda (_g2956629569_ + (cons (let ((__tmp43020 + (foldr (lambda (_g2964729650_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2956729572_) - (cons _g2956629569_ _g2956729572_)) + _g2964829653_) + (cons _g2964729650_ _g2964829653_)) '() - _L29553_))) + _L29634_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_parse-vector28657_ __tmp42946)) + (_parse-vector28738_ __tmp43020)) '())))) - (___kont4015540156_ - (lambda (_L29499_ _L29501_) + (___kont4023640237_ + (lambda (_L29580_ _L29582_) (cons 'struct: - (cons (gx#syntax-local-value _L29501_) + (cons (gx#syntax-local-value _L29582_) (cons (let () (declare (not safe)) - (_parse-vector28657_ - _L29499_)) + (_parse-vector28738_ + _L29580_)) '()))))) - (___kont4015740158_ - (lambda (_L29469_ _L29471_) + (___kont4023840239_ + (lambda (_L29550_ _L29552_) (cons 'class: - (cons (gx#syntax-local-value _L29471_) + (cons (gx#syntax-local-value _L29552_) (cons (let () (declare (not safe)) - (_parse-class-body28659_ - _L29469_)) + (_parse-class-body28740_ + _L29550_)) '()))))) - (___kont4015940160_ - (lambda (_L29429_ _L29431_) + (___kont4024040241_ + (lambda (_L29510_ _L29512_) (cons '?: (cons (cons (gx#datum->syntax '#f 'cut) - (cons _L29431_ + (cons _L29512_ (cons (gx#datum->syntax '#f '<>) - (cons _L29429_ + (cons _L29510_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (___kont4016140162_ - (lambda (_L29389_) - (cons 'datum: (cons (gx#stx-e _L29389_) '())))) - (___kont4016340164_ - (lambda (_L29349_) + (___kont4024240243_ + (lambda (_L29470_) + (cons 'datum: (cons (gx#stx-e _L29470_) '())))) + (___kont4024440245_ + (lambda (_L29430_) (let () (declare (not safe)) - (_parse-qq28660_ _L29349_)))) - (___kont4016540166_ - (lambda (_L29305_ _L29307_) + (_parse-qq28741_ _L29430_)))) + (___kont4024640247_ + (lambda (_L29386_ _L29388_) (cons 'apply: - (cons _L29307_ + (cons _L29388_ (cons (let () (declare (not safe)) - (_parse128654_ _L29305_)) + (_parse128735_ _L29386_)) '()))))) - (___kont4016740168_ - (lambda (_L29253_) - (let ((__tmp42947 + (___kont4024840249_ + (lambda (_L29334_) + (let ((__tmp43021 (gx#core-apply-expander - (gx#syntax-local-e _L29253_) + (gx#syntax-local-e _L29334_) (gx#stx-wrap-source - (cons 'match: _hd29007_) - (let ((_$e29264_ - (gx#stx-source _hd29007_))) - (if _$e29264_ - _$e29264_ - (gx#stx-source _stx28650_))))))) + (cons 'match: _hd29088_) + (let ((_$e29345_ + (gx#stx-source _hd29088_))) + (if _$e29345_ + _$e29345_ + (gx#stx-source _stx28731_))))))) (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_ + (_parse128735_ __tmp43021)))) + (___kont4025040251_ + (lambda (_L29308_) (cons 'any: '()))) + (___kont4025240253_ + (lambda (_L29292_) + (cons 'var: (cons _L29292_ '())))) + (___kont4025440255_ + (lambda (_L29274_) + (cons 'datum: (cons (gx#stx-e _L29274_) '())))) + (___kont4025640257_ (lambda () (let () (declare (not safe)) - (_parse-error28661_ _hd29007_))))) - (let* ((_g2903129204_ + (_parse-error28742_ _hd29088_))))) + (let* ((_g2911229285_ (lambda () - (let ((_L29193_ ___stx4012440125_)) - (if (gx#stx-datum? _L29193_) - (___kont4017340174_ _L29193_) - (___kont4017540176_))))) - (_g2903029220_ + (let ((_L29274_ ___stx4020540206_)) + (if (gx#stx-datum? _L29274_) + (___kont4025440255_ _L29274_) + (___kont4025640257_))))) + (_g2911129301_ (lambda () - (let ((_L29211_ ___stx4012440125_)) - (if (and (gx#identifier? _L29211_) - (not (gx#ellipsis? _L29211_))) - (___kont4017140172_ _L29211_) + (let ((_L29292_ ___stx4020540206_)) + (if (and (gx#identifier? _L29292_) + (not (gx#ellipsis? _L29292_))) + (___kont4025240253_ _L29292_) (let () (declare (not safe)) - (_g2903129204_)))))) - (_g2902929236_ + (_g2911229285_)))))) + (_g2911029317_ (lambda () - (let ((_L29227_ ___stx4012440125_)) - (if (gx#underscore? _L29227_) - (___kont4016940170_ _L29227_) + (let ((_L29308_ ___stx4020540206_)) + (if (gx#underscore? _L29308_) + (___kont4025040251_ _L29308_) (let () (declare (not safe)) - (_g2903029220_)))))) - (___match4045140452_ - (lambda (_e2916629243_ - _hd2916529247_ - _tl2916429250_) - (let ((_L29253_ _hd2916529247_)) + (_g2911129301_)))))) + (___match4053240533_ + (lambda (_e2924729324_ + _hd2924629328_ + _tl2924529331_) + (let ((_L29334_ _hd2924629328_)) (if (let () (declare (not safe)) (|gerbil/core$[1]#syntax-local-match-macro?| - _L29253_)) - (___kont4016740168_ _L29253_) + _L29334_)) + (___kont4024840249_ _L29334_) (let () (declare (not safe)) - (_g2902929236_)))))) - (___match4038540386_ - (lambda (_e2913429409_ - _hd2913329413_ - _tl2913229416_ - _e2913729419_ - _hd2913629423_ - _tl2913529426_) - (let ((_L29429_ _hd2913629423_) - (_L29431_ _hd2913329413_)) - (if (and (gx#identifier? _L29431_) + (_g2911029317_)))))) + (___match4046640467_ + (lambda (_e2921529490_ + _hd2921429494_ + _tl2921329497_ + _e2921829500_ + _hd2921729504_ + _tl2921629507_) + (let ((_L29510_ _hd2921729504_) + (_L29512_ _hd2921429494_)) + (if (and (gx#identifier? _L29512_) (or (gx#free-identifier=? - _L29431_ + _L29512_ (gx#datum->syntax '#f 'eq?)) (gx#free-identifier=? - _L29431_ + _L29512_ (gx#datum->syntax '#f 'eqv?)) (gx#free-identifier=? - _L29431_ + _L29512_ (gx#datum->syntax '#f 'equal?)))) - (___kont4015940160_ _L29429_ _L29431_) - (if (gx#identifier? _hd2913329413_) + (___kont4024040241_ _L29510_ _L29512_) + (if (gx#identifier? _hd2921429494_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42949_| - _hd2913329413_) - (___kont4016140162_ - _hd2913629423_) + |gerbil/core$[1]#_g43023_| + _hd2921429494_) + (___kont4024240243_ + _hd2921729504_) (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]#_g43022_| + _hd2921429494_) + (___kont4024440245_ + _hd2921729504_) + (___match4053240533_ + _e2921529490_ + _hd2921429494_ + _tl2921329497_))) + (___match4053240533_ + _e2921529490_ + _hd2921429494_ + _tl2921329497_)))))) + (___match4045240453_ + (lambda (_e2921029540_ + _hd2920929544_ + _tl2920829547_) + (let ((_L29550_ _tl2920829547_) + (_L29552_ _hd2920929544_)) (if (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-class-info?| - _L29471_)) - (___kont4015740158_ _L29469_ _L29471_) - (if (gx#stx-pair? _tl2912729466_) - (let ((_e2913729419_ + _L29552_)) + (___kont4023840239_ _L29550_ _L29552_) + (if (gx#stx-pair? _tl2920829547_) + (let ((_e2921829500_ (gx#syntax-e - _tl2912729466_))) - (let ((_tl2913529426_ + _tl2920829547_))) + (let ((_tl2921629507_ (let () (declare (not safe)) - (##cdr _e2913729419_))) - (_hd2913629423_ + (##cdr _e2921829500_))) + (_hd2921729504_ (let () (declare (not safe)) - (##car _e2913729419_)))) + (##car _e2921829500_)))) (if (gx#stx-null? - _tl2913529426_) - (___match4038540386_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_ - _e2913729419_ - _hd2913629423_ - _tl2913529426_) + _tl2921629507_) + (___match4046640467_ + _e2921029540_ + _hd2920929544_ + _tl2920829547_ + _e2921829500_ + _hd2921729504_ + _tl2921629507_) (if (gx#identifier? - _hd2912829463_) + _hd2920929544_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42949_| - _hd2912829463_) - (___match4045140452_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_) + |gerbil/core$[1]#_g43023_| + _hd2920929544_) + (___match4053240533_ + _e2921029540_ + _hd2920929544_ + _tl2920829547_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g42948_| - _hd2912829463_) - (___match4045140452_ - _e2912929459_ - _hd2912829463_ - _tl2912729466_) + |gerbil/core$[1]#_g43022_| + _hd2920929544_) + (___match4053240533_ + _e2921029540_ + _hd2920929544_ + _tl2920829547_) (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]#_g43024_| + _hd2920929544_) + (if (gx#stx-pair? _tl2921629507_) + (let ((_e2924329376_ + (gx#syntax-e _tl2921629507_))) + (let ((_tl2924129383_ (let () (declare (not safe)) - (##cdr _e2916229295_))) - (_hd2916129299_ + (##cdr _e2924329376_))) + (_hd2924229380_ (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 _e2924329376_)))) + (if (gx#stx-null? _tl2924129383_) + (___kont4024640247_ + _hd2924229380_ + _hd2921729504_) + (___match4053240533_ + _e2921029540_ + _hd2920929544_ + _tl2920829547_)))) + (___match4053240533_ + _e2921029540_ + _hd2920929544_ + _tl2920829547_)) + (___match4053240533_ + _e2921029540_ + _hd2920929544_ + _tl2920829547_)))) + (___match4053240533_ + _e2921029540_ + _hd2920929544_ + _tl2920829547_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match4053240533_ + _e2921029540_ + _hd2920929544_ + _tl2920829547_)))))) + (___match4044640447_ + (lambda (_e2920529570_ + _hd2920429574_ + _tl2920329577_) + (let ((_L29580_ _tl2920329577_) + (_L29582_ _hd2920429574_)) (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_ + _L29582_)) + (___kont4023640237_ _L29580_ _L29582_) + (___match4045240453_ + _e2920529570_ + _hd2920429574_ + _tl2920329577_))))) + (___match4044040441_ + (lambda (_e2919129600_ + ___splice4023440235_ + _target2919229604_ + _tl2919429607_) + (letrec ((_loop2919529610_ + (lambda (_hd2919329614_ + _body2919929617_) + (if (gx#stx-pair? _hd2919329614_) + (let ((_e2919629620_ (gx#syntax-e - _hd2911229533_))) - (let ((_lp-tl2911729546_ + _hd2919329614_))) + (let ((_lp-tl2919829627_ (let () (declare (not safe)) - (##cdr _e2911529539_))) - (_lp-hd2911629543_ + (##cdr _e2919629620_))) + (_lp-hd2919729624_ (let () (declare (not safe)) - (##car _e2911529539_)))) - (let ((__tmp42951 - (cons _lp-hd2911629543_ + (##car _e2919629620_)))) + (let ((__tmp43025 + (cons _lp-hd2919729624_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body2911829536_))) + _body2919929617_))) (declare (not safe)) - (_loop2911429529_ _lp-tl2911729546_ __tmp42951)))) + (_loop2919529610_ _lp-tl2919829627_ __tmp43025)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body2911929549_ - (reverse _body2911829536_))) - (___kont4015140152_ - _body2911929549_)))))) + (let ((_body2920029630_ + (reverse _body2919929617_))) + (___kont4023240233_ + _body2920029630_)))))) (let () (declare (not safe)) - (_loop2911429529_ - _target2911129523_ + (_loop2919529610_ + _target2919229604_ '()))))) - (_g2902129575_ + (_g2910229656_ (lambda () - (if (gx#stx-vector? ___stx4012440125_) - (let ((_e2911029519_ + (if (gx#stx-vector? ___stx4020540206_) + (let ((_e2919129600_ (vector->list (gx#syntax-e - ___stx4012440125_)))) - (if (gx#stx-pair/null? _e2911029519_) - (let ((___splice4015340154_ + ___stx4020540206_)))) + (if (gx#stx-pair/null? _e2919129600_) + (let ((___splice4023440235_ (gx#syntax-split-splice - _e2911029519_ + _e2919129600_ '0))) - (let ((_tl2911329526_ + (let ((_tl2919429607_ (let () (declare (not safe)) (##vector-ref - ___splice4015340154_ + ___splice4023440235_ '1))) - (_target2911129523_ + (_target2919229604_ (let () (declare (not safe)) (##vector-ref - ___splice4015340154_ + ___splice4023440235_ '0)))) (if (gx#stx-null? - _tl2911329526_) - (___match4035940360_ - _e2911029519_ - ___splice4015340154_ - _target2911129523_ - _tl2911329526_) + _tl2919429607_) + (___match4044040441_ + _e2919129600_ + ___splice4023440235_ + _target2919229604_ + _tl2919429607_) (let () (declare (not safe)) - (_g2902929236_))))) + (_g2911029317_))))) (let () (declare (not safe)) - (_g2902929236_)))) + (_g2911029317_)))) (let () (declare (not safe)) - (_g2902929236_))))) - (_g2901729692_ + (_g2911029317_))))) + (_g2909829773_ (lambda () - (if (gx#stx-box? ___stx4012440125_) - (let ((_e2909329678_ + (if (gx#stx-box? ___stx4020540206_) + (let ((_e2917429759_ (unbox (gx#syntax-e - ___stx4012440125_)))) - (___kont4014340144_ _e2909329678_)) + ___stx4020540206_)))) + (___kont4022440225_ _e2917429759_)) (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_ + (_g2910229656_))))) + (___match4029440295_ + (lambda (_e2913129998_ + _hd2913030002_ + _tl2912930005_) + (let ((_L30008_ _tl2912930005_)) + (if (gx#stx-list? _L30008_) + (___kont4021240213_ _L30008_) + (___match4044640447_ + _e2913129998_ + _hd2913030002_ + _tl2912930005_))))) + (___match4028440285_ + (lambda (_e2912730083_ + _hd2912630087_ + _tl2912530090_) + (let ((_L30093_ _tl2912530090_)) + (if (gx#stx-list? _L30093_) + (___kont4021040211_ _L30093_) + (___match4044640447_ + _e2912730083_ + _hd2912630087_ + _tl2912530090_)))))) + (if (gx#stx-pair? ___stx4020540206_) + (let ((_e2912030168_ + (gx#syntax-e ___stx4020540206_))) + (let ((_tl2911830175_ (let () (declare (not safe)) - (##cdr _e2903930087_))) - (_hd2903830091_ + (##cdr _e2912030168_))) + (_hd2911930172_ (let () (declare (not safe)) - (##car _e2903930087_)))) - (if (gx#identifier? _hd2903830091_) + (##car _e2912030168_)))) + (if (gx#identifier? _hd2911930172_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42961_| - _hd2903830091_) - (if (gx#stx-pair? _tl2903730094_) - (let ((_e2904230097_ + |gerbil/core$[1]#_g43035_| + _hd2911930172_) + (if (gx#stx-pair? _tl2911830175_) + (let ((_e2912330178_ (gx#syntax-e - _tl2903730094_))) - (let ((_tl2904030104_ + _tl2911830175_))) + (let ((_tl2912130185_ (let () (declare (not safe)) - (##cdr _e2904230097_))) - (_hd2904130101_ + (##cdr _e2912330178_))) + (_hd2912230182_ (let () (declare (not safe)) - (##car _e2904230097_)))) - (___kont4012740128_ - _tl2904030104_ - _hd2904130101_))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)) + (##car _e2912330178_)))) + (___kont4020840209_ + _tl2912130185_ + _hd2912230182_))) + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42960_| - _hd2903830091_) - (___match4020340204_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_) + |gerbil/core$[1]#_g43034_| + _hd2911930172_) + (___match4028440285_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42959_| - _hd2903830091_) - (___match4021340214_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_) + |gerbil/core$[1]#_g43033_| + _hd2911930172_) + (___match4029440295_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42958_| - _hd2903830091_) + |gerbil/core$[1]#_g43032_| + _hd2911930172_) (if (gx#stx-pair? - _tl2903730094_) - (let ((_e2905729887_ + _tl2911830175_) + (let ((_e2913829968_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2903730094_))) - (let ((_tl2905529894_ - (let () (declare (not safe)) (##cdr _e2905729887_))) - (_hd2905629891_ + (gx#syntax-e _tl2911830175_))) + (let ((_tl2913629975_ + (let () (declare (not safe)) (##cdr _e2913829968_))) + (_hd2913729972_ (let () (declare (not safe)) - (##car _e2905729887_)))) - (if (gx#stx-null? _tl2905529894_) - (___kont4013340134_ _hd2905629891_) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)) + (##car _e2913829968_)))) + (if (gx#stx-null? _tl2913629975_) + (___kont4021440215_ _hd2913729972_) + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_)))) + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_)) (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]#_g43031_| + _hd2911930172_) + (if (gx#stx-pair? _tl2911830175_) + (let ((_e2914629914_ (gx#syntax-e _tl2911830175_))) + (let ((_tl2914429921_ (let () (declare (not safe)) - (##cdr _e2906529833_))) - (_hd2906429837_ + (##cdr _e2914629914_))) + (_hd2914529918_ (let () (declare (not safe)) - (##car _e2906529833_)))) - (if (gx#stx-pair? _tl2906329840_) - (let ((_e2906829843_ - (gx#syntax-e _tl2906329840_))) - (let ((_tl2906629850_ + (##car _e2914629914_)))) + (if (gx#stx-pair? _tl2914429921_) + (let ((_e2914929924_ + (gx#syntax-e _tl2914429921_))) + (let ((_tl2914729931_ (let () (declare (not safe)) - (##cdr _e2906829843_))) - (_hd2906729847_ + (##cdr _e2914929924_))) + (_hd2914829928_ (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 _e2914929924_)))) + (if (gx#stx-null? _tl2914729931_) + (___kont4021640217_ + _hd2914829928_ + _hd2914529918_) + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_)))) + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_)))) + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_)) (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]#_g43030_| + _hd2911930172_) + (if (gx#stx-pair? _tl2911830175_) + (let ((_e2915829858_ (gx#syntax-e _tl2911830175_))) + (let ((_tl2915629865_ (let () (declare (not safe)) - (##cdr _e2907729777_))) - (_hd2907629781_ + (##cdr _e2915829858_))) + (_hd2915729862_ (let () (declare (not safe)) - (##car _e2907729777_)))) - (if (gx#stx-pair? _tl2907529784_) - (let ((_e2908029787_ - (gx#syntax-e _tl2907529784_))) - (let ((_tl2907829794_ + (##car _e2915829858_)))) + (if (gx#stx-pair? _tl2915629865_) + (let ((_e2916129868_ + (gx#syntax-e _tl2915629865_))) + (let ((_tl2915929875_ (let () (declare (not safe)) - (##cdr _e2908029787_))) - (_hd2907929791_ + (##cdr _e2916129868_))) + (_hd2916029872_ (let () (declare (not safe)) - (##car _e2908029787_)))) - (___kont4013740138_ - _tl2907829794_ - _hd2907929791_ - _hd2907629781_))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)) + (##car _e2916129868_)))) + (___kont4021840219_ + _tl2915929875_ + _hd2916029872_ + _hd2915729862_))) + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_)))) + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42955_| - _hd2903830091_) - (___kont4013940140_ _tl2903730094_) + |gerbil/core$[1]#_g43029_| + _hd2911930172_) + (___kont4022040221_ _tl2911830175_) (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]#_g43028_| + _hd2911930172_) + (if (gx#stx-pair? _tl2911830175_) + (let ((_e2917229790_ + (gx#syntax-e _tl2911830175_))) + (let ((_tl2917029797_ (let () (declare (not safe)) - (##cdr _e2909129709_))) - (_hd2909029713_ + (##cdr _e2917229790_))) + (_hd2917129794_ (let () (declare (not safe)) - (##car _e2909129709_)))) - (if (gx#stx-null? _tl2908929716_) - (___kont4014140142_ _hd2909029713_) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)))) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)) + (##car _e2917229790_)))) + (if (gx#stx-null? _tl2917029797_) + (___kont4022240223_ _hd2917129794_) + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_)))) + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_)) (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]#_g43027_| + _hd2911930172_) + (if (gx#stx-pair? _tl2911830175_) + (let ((_e2918129729_ + (gx#syntax-e _tl2911830175_))) + (let ((_tl2917929736_ (let () (declare (not safe)) - (##cdr _e2910029648_))) - (_hd2909929652_ + (##cdr _e2918129729_))) + (_hd2918029733_ (let () (declare (not safe)) - (##car _e2910029648_)))) - (if (gx#stx-null? _tl2909829655_) - (___kont4014540146_ - _hd2909929652_) - (___kont4014740148_ - _tl2903730094_)))) - (___kont4014740148_ _tl2903730094_)) + (##car _e2918129729_)))) + (if (gx#stx-null? _tl2917929736_) + (___kont4022640227_ + _hd2918029733_) + (___kont4022840229_ + _tl2911830175_)))) + (___kont4022840229_ _tl2911830175_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42952_| - _hd2903830091_) - (___kont4014940150_ _tl2903730094_) - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4036540366_ - _e2903930087_ - _hd2903830091_ - _tl2903730094_)))) + |gerbil/core$[1]#_g43026_| + _hd2911930172_) + (___kont4023040231_ _tl2911830175_) + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match4044640447_ + _e2912030168_ + _hd2911930172_ + _tl2911830175_)))) (let () (declare (not safe)) - (_g2901729692_)))))))) - (_parse-list28656_ - (lambda (_body28836_) - (let* ((___stx4045440455_ _body28836_) - (_g2884228871_ + (_g2909829773_)))))))) + (_parse-list28737_ + (lambda (_body28917_) + (let* ((___stx4053540536_ _body28917_) + (_g2892328952_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4045440455_)))) - (let ((___kont4045740458_ - (lambda (_L28989_) + ___stx4053540536_)))) + (let ((___kont4053840539_ + (lambda (_L29070_) (let () (declare (not safe)) - (_parse128654_ _L28989_)))) - (___kont4045940460_ - (lambda (_L28941_ _L28943_ _L28944_) + (_parse128735_ _L29070_)))) + (___kont4054040541_ + (lambda (_L29022_ _L29024_ _L29025_) (cons 'splice: (cons (let () (declare (not safe)) - (_parse128654_ _L28944_)) + (_parse128735_ _L29025_)) (cons (let () (declare (not safe)) - (_parse-list28656_ - _L28941_)) + (_parse-list28737_ + _L29022_)) '()))))) - (___kont4046140462_ - (lambda (_L28899_ _L28901_) + (___kont4054240543_ + (lambda (_L28980_ _L28982_) (cons 'cons: (cons (let () (declare (not safe)) - (_parse128654_ _L28901_)) + (_parse128735_ _L28982_)) (cons (let () (declare (not safe)) - (_parse-list28656_ - _L28899_)) + (_parse-list28737_ + _L28980_)) '()))))) - (___kont4046340464_ + (___kont4054440545_ (lambda () - (if (gx#stx-null? _body28836_) + (if (gx#stx-null? _body28917_) (cons 'null: '()) - (if (not (gx#stx-pair? _body28836_)) + (if (not (gx#stx-pair? _body28917_)) (let () (declare (not safe)) - (_parse128654_ _body28836_)) + (_parse128735_ _body28917_)) (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-error28742_ _body28917_))))))) + (let* ((___match4058440585_ + (lambda (_e2894628970_ + _hd2894528974_ + _tl2894428977_) + (let ((_L28980_ _tl2894428977_) + (_L28982_ _hd2894528974_)) + (if (not (gx#ellipsis? _L28982_)) + (___kont4054240543_ _L28980_ _L28982_) + (___kont4054440545_))))) + (___match4057840579_ + (lambda (_e2893829002_ + _hd2893729006_ + _tl2893629009_ + _e2894129012_ + _hd2894029016_ + _tl2893929019_) + (let ((_L29022_ _tl2893929019_) + (_L29024_ _hd2894029016_) + (_L29025_ _hd2893729006_)) + (if (gx#ellipsis? _L29024_) + (___kont4054040541_ + _L29022_ + _L29024_ + _L29025_) + (___match4058440585_ + _e2893829002_ + _hd2893729006_ + _tl2893629009_)))))) + (if (gx#stx-pair? ___stx4053540536_) + (let ((_e2892829046_ + (gx#syntax-e ___stx4053540536_))) + (let ((_tl2892629053_ (let () (declare (not safe)) - (##cdr _e2884728965_))) - (_hd2884628969_ + (##cdr _e2892829046_))) + (_hd2892729050_ (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 _e2892829046_)))) + (if (gx#stx-datum? _hd2892729050_) + (let ((_e2892929056_ + (gx#stx-e _hd2892729050_))) + (if (equal? _e2892929056_ '::) + (if (gx#stx-pair? _tl2892629053_) + (let ((_e2893229060_ (gx#syntax-e - _tl2884528972_))) - (let ((_tl2884928986_ + _tl2892629053_))) + (let ((_tl2893029067_ (let () (declare (not safe)) - (##cdr _e2885128979_))) - (_hd2885028983_ + (##cdr _e2893229060_))) + (_hd2893129064_ (let () (declare (not safe)) - (##car _e2885128979_)))) + (##car _e2893229060_)))) (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_ + _tl2893029067_) + (___kont4053840539_ + _hd2893129064_) + (___match4057840579_ + _e2892829046_ + _hd2892729050_ + _tl2892629053_ + _e2893229060_ + _hd2893129064_ + _tl2893029067_)))) + (___match4058440585_ + _e2892829046_ + _hd2892729050_ + _tl2892629053_)) + (if (gx#stx-pair? _tl2892629053_) + (let ((_e2894129012_ (gx#syntax-e - _tl2884528972_))) - (let ((_tl2885828938_ + _tl2892629053_))) + (let ((_tl2893929019_ (let () (declare (not safe)) - (##cdr _e2886028931_))) - (_hd2885928935_ + (##cdr _e2894129012_))) + (_hd2894029016_ (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 _e2894129012_)))) + (___match4057840579_ + _e2892829046_ + _hd2892729050_ + _tl2892629053_ + _e2894129012_ + _hd2894029016_ + _tl2893929019_))) + (___match4058440585_ + _e2892829046_ + _hd2892729050_ + _tl2892629053_)))) + (if (gx#stx-pair? _tl2892629053_) + (let ((_e2894129012_ + (gx#syntax-e _tl2892629053_))) + (let ((_tl2893929019_ (let () (declare (not safe)) - (##cdr _e2886028931_))) - (_hd2885928935_ + (##cdr _e2894129012_))) + (_hd2894029016_ (let () (declare (not safe)) - (##car _e2886028931_)))) - (___match4049740498_ - _e2884728965_ - _hd2884628969_ - _tl2884528972_ - _e2886028931_ - _hd2885928935_ - _tl2885828938_))) - (___match4050340504_ - _e2884728965_ - _hd2884628969_ - _tl2884528972_))))) - (___kont4046340464_))))))) - (_parse-vector28657_ - (lambda (_body28833_) + (##car _e2894129012_)))) + (___match4057840579_ + _e2892829046_ + _hd2892729050_ + _tl2892629053_ + _e2894129012_ + _hd2894029016_ + _tl2893929019_))) + (___match4058440585_ + _e2892829046_ + _hd2892729050_ + _tl2892629053_))))) + (___kont4054440545_))))))) + (_parse-vector28738_ + (lambda (_body28914_) (if (let () (declare (not safe)) - (_simple-vector?28658_ _body28833_)) + (_simple-vector?28739_ _body28914_)) (cons 'simple: - (cons (gx#stx-map _parse128654_ _body28833_) + (cons (gx#stx-map _parse128735_ _body28914_) '())) (cons 'list: (cons (let () (declare (not safe)) - (_parse-list28656_ _body28833_)) + (_parse-list28737_ _body28914_)) '()))))) - (_simple-vector?28658_ - (lambda (_body28770_) - (let* ((___stx4050640507_ _body28770_) - (_g2877428786_ + (_simple-vector?28739_ + (lambda (_body28851_) + (let* ((___stx4058740588_ _body28851_) + (_g2885528867_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4050640507_)))) - (let ((___kont4050940510_ - (lambda (_L28814_ _L28816_) - (if (not (gx#ellipsis? _L28816_)) + ___stx4058740588_)))) + (let ((___kont4059040591_ + (lambda (_L28895_ _L28897_) + (if (not (gx#ellipsis? _L28897_)) (let () (declare (not safe)) - (_simple-vector?28658_ _L28814_)) + (_simple-vector?28739_ _L28895_)) '#f))) - (___kont4051140512_ - (lambda () (gx#stx-null? _body28770_)))) - (if (gx#stx-pair? ___stx4050640507_) - (let ((_e2878028804_ - (gx#syntax-e ___stx4050640507_))) - (let ((_tl2877828811_ + (___kont4059240593_ + (lambda () (gx#stx-null? _body28851_)))) + (if (gx#stx-pair? ___stx4058740588_) + (let ((_e2886128885_ + (gx#syntax-e ___stx4058740588_))) + (let ((_tl2885928892_ (let () (declare (not safe)) - (##cdr _e2878028804_))) - (_hd2877928808_ + (##cdr _e2886128885_))) + (_hd2886028889_ (let () (declare (not safe)) - (##car _e2878028804_)))) - (___kont4050940510_ - _tl2877828811_ - _hd2877928808_))) - (___kont4051140512_)))))) - (_parse-class-body28659_ - (lambda (_body28679_) - (let _recur28682_ ((_rest28685_ _body28679_)) - (let* ((___stx4052240523_ _rest28685_) - (_g2868928705_ + (##car _e2886128885_)))) + (___kont4059040591_ + _tl2885928892_ + _hd2886028889_))) + (___kont4059240593_)))))) + (_parse-class-body28740_ + (lambda (_body28760_) + (let _recur28763_ ((_rest28766_ _body28760_)) + (let* ((___stx4060340604_ _rest28766_) + (_g2877028786_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4052240523_)))) - (let ((___kont4052540526_ - (lambda (_L28743_ _L28745_ _L28746_) - (cons* _L28746_ + ___stx4060340604_)))) + (let ((___kont4060640607_ + (lambda (_L28824_ _L28826_ _L28827_) + (cons* _L28827_ (let () (declare (not safe)) - (_parse128654_ _L28745_)) + (_parse128735_ _L28826_)) (let () (declare (not safe)) - (_recur28682_ _L28743_))))) - (___kont4052740528_ + (_recur28763_ _L28824_))))) + (___kont4060840609_ (lambda () - (if (gx#stx-null? _rest28685_) + (if (gx#stx-null? _rest28766_) '() (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-error28742_ _rest28766_)))))) + (let ((___match4062240623_ + (lambda (_e2877728804_ + _hd2877628808_ + _tl2877528811_ + _e2878028814_ + _hd2877928818_ + _tl2877828821_) + (let ((_L28824_ _tl2877828821_) + (_L28826_ _hd2877928818_) + (_L28827_ _hd2877628808_)) + (if (gx#stx-keyword? _L28827_) + (___kont4060640607_ + _L28824_ + _L28826_ + _L28827_) + (___kont4060840609_)))))) + (if (gx#stx-pair? ___stx4060340604_) + (let ((_e2877728804_ + (gx#syntax-e ___stx4060340604_))) + (let ((_tl2877528811_ (let () (declare (not safe)) - (##cdr _e2869628723_))) - (_hd2869528727_ + (##cdr _e2877728804_))) + (_hd2877628808_ (let () (declare (not safe)) - (##car _e2869628723_)))) - (if (gx#stx-pair? _tl2869428730_) - (let ((_e2869928733_ - (gx#syntax-e _tl2869428730_))) - (let ((_tl2869728740_ + (##car _e2877728804_)))) + (if (gx#stx-pair? _tl2877528811_) + (let ((_e2878028814_ + (gx#syntax-e _tl2877528811_))) + (let ((_tl2877828821_ (let () (declare (not safe)) - (##cdr _e2869928733_))) - (_hd2869828737_ + (##cdr _e2878028814_))) + (_hd2877928818_ (let () (declare (not safe)) - (##car _e2869928733_)))) - (___match4054140542_ - _e2869628723_ - _hd2869528727_ - _tl2869428730_ - _e2869928733_ - _hd2869828737_ - _tl2869728740_))) - (___kont4052740528_)))) - (___kont4052740528_)))))))) - (_parse-qq28660_ - (lambda (_hd28666_) - (let ((_g2866828675_ - (lambda (_g2866928671_) + (##car _e2878028814_)))) + (___match4062240623_ + _e2877728804_ + _hd2877628808_ + _tl2877528811_ + _e2878028814_ + _hd2877928818_ + _tl2877828821_))) + (___kont4060840609_)))) + (___kont4060840609_)))))))) + (_parse-qq28741_ + (lambda (_hd28747_) + (let ((_g2874928756_ + (lambda (_g2875028752_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2866928671_)))) + _g2875028752_)))) (declare (not safe)) - (_g2866828675_ _hd28666_)))) - (_parse-error28661_ - (lambda (_hd28663_) + (_g2874928756_ _hd28747_)))) + (_parse-error28742_ + (lambda (_hd28744_) (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-stx28733_ + (cons _match-stx28733_ + (cons _stx28731_ (cons _hd28744_ '()))) + (cons _stx28731_ (cons _hd28744_ '()))))))) + (let () (declare (not safe)) (_parse128735_ _stx28731_))))) (define |gerbil/core$[1]#parse-match-pattern__0| - (lambda (_stx30334_) - (let ((_match-stx30337_ '#f)) + (lambda (_stx30415_) + (let ((_match-stx30418_ '#f)) (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _stx30334_ - _match-stx30337_)))) + _stx30415_ + _match-stx30418_)))) (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 _g43037_ + (let ((_g43036_ (let () (declare (not safe)) (##length _g43037_)))) + (cond ((let () (declare (not safe)) (##fx= _g43036_ 1)) + (apply (lambda (_stx30415_) (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_) + _stx30415_))) + _g43037_)) + ((let () (declare (not safe)) (##fx= _g43036_ 2)) + (apply (lambda (_stx30421_ _match-stx30423_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _stx30340_ - _match-stx30342_))) - _g42963_)) + _stx30421_ + _match-stx30423_))) + _g43037_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$[1]#parse-match-pattern| - _g42963_)))))) + _g43037_)))))) (define |gerbil/core$[1]#match-pattern?| - (lambda (_stx28634_) + (lambda (_stx28715_) (call-with-current-continuation - (lambda (_E28638_) + (lambda (_E28719_) (with-exception-handler - (let ((_E!28641_ (current-exception-handler))) - (lambda (_e28644_) - (if (syntax-error? _e28644_) - (_E28638_ '#f) - (_E!28641_ _e28644_)))) + (let ((_E!28722_ (current-exception-handler))) + (lambda (_e28725_) + (if (syntax-error? _e28725_) + (_E28719_ '#f) + (_E!28722_ _e28725_)))) (lambda () (let () (declare (not safe)) - (|gerbil/core$[1]#parse-match-pattern__0| _stx28634_)) + (|gerbil/core$[1]#parse-match-pattern__0| _stx28715_)) '#t)))))) (define |gerbil/core$[1]#match-pattern-vars| - (lambda (_ptree27369_) - (letrec ((_loop27372_ - (lambda (_ptree27659_ _vars27661_ _K27662_) - (let* ((___stx4064040641_ _ptree27659_) - (_g2767527785_ + (lambda (_ptree27450_) + (letrec ((_loop27453_ + (lambda (_ptree27740_ _vars27742_ _K27743_) + (let* ((___stx4072140722_ _ptree27740_) + (_g2775627866_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4064040641_)))) - (let ((___kont4064340644_ - (lambda (_L28415_) - (let* ((___stx4056040561_ _L28415_) - (_g2843228466_ + ___stx4072140722_)))) + (let ((___kont4072440725_ + (lambda (_L28496_) + (let* ((___stx4064140642_ _L28496_) + (_g2851328547_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4056040561_)))) - (let ((___kont4056340564_ - (lambda (_L28615_) + ___stx4064140642_)))) + (let ((___kont4064440645_ + (lambda (_L28696_) (let () (declare (not safe)) - (_loop27372_ - _L28615_ - _vars27661_ - _K27662_)))) - (___kont4056540566_ - (lambda (_L28584_) + (_loop27453_ + _L28696_ + _vars27742_ + _K27743_)))) + (___kont4064640647_ + (lambda (_L28665_) (let () (declare (not safe)) - (_loop27372_ - _L28584_ - _vars27661_ - _K27662_)))) - (___kont4056740568_ - (lambda (_L28532_) + (_loop27453_ + _L28665_ + _vars27742_ + _K27743_)))) + (___kont4064840649_ + (lambda (_L28613_) (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_ + (_loop27453_ + _L28613_ + _vars27742_ + _K27743_)))) + (___kont4065040651_ + (lambda () (_K27743_ _vars27742_)))) + (if (gx#stx-pair? ___stx4064140642_) + (let ((_e2851828686_ + (gx#syntax-e ___stx4064140642_))) + (let ((_tl2851628693_ (let () (declare (not safe)) - (##cdr _e2843728605_))) - (_hd2843628609_ + (##cdr _e2851828686_))) + (_hd2851728690_ (let () (declare (not safe)) - (##car _e2843728605_)))) - (if (gx#stx-null? _tl2843528612_) - (___kont4056340564_ - _hd2843628609_) + (##car _e2851828686_)))) + (if (gx#stx-null? _tl2851628693_) + (___kont4064440645_ + _hd2851728690_) (if (gx#stx-datum? - _hd2843628609_) - (let ((_e2844228570_ + _hd2851728690_) + (let ((_e2852328651_ (gx#stx-e - _hd2843628609_))) - (if (equal? _e2844228570_ + _hd2851728690_))) + (if (equal? _e2852328651_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '=>:) - (if (gx#stx-pair? _tl2843528612_) - (let ((_e2844528574_ (gx#syntax-e _tl2843528612_))) - (let ((_tl2844328581_ + (if (gx#stx-pair? _tl2851628693_) + (let ((_e2852628655_ (gx#syntax-e _tl2851628693_))) + (let ((_tl2852428662_ (let () (declare (not safe)) - (##cdr _e2844528574_))) - (_hd2844428578_ + (##cdr _e2852628655_))) + (_hd2852528659_ (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 _e2852628655_)))) + (if (gx#stx-null? _tl2852428662_) + (___kont4064640647_ _hd2852528659_) + (___kont4065040651_)))) + (___kont4065040651_)) + (if (equal? _e2852328651_ '::) + (if (gx#stx-pair? _tl2851628693_) + (let ((_e2853428579_ (gx#syntax-e _tl2851628693_))) + (let ((_tl2853228586_ (let () (declare (not safe)) - (##cdr _e2845328498_))) - (_hd2845228502_ + (##cdr _e2853428579_))) + (_hd2853328583_ (let () (declare (not safe)) - (##car _e2845328498_)))) - (if (gx#stx-pair? _tl2845128505_) - (let ((_e2845628508_ - (gx#syntax-e _tl2845128505_))) - (let ((_tl2845428515_ + (##car _e2853428579_)))) + (if (gx#stx-pair? _tl2853228586_) + (let ((_e2853728589_ + (gx#syntax-e _tl2853228586_))) + (let ((_tl2853528596_ (let () (declare (not safe)) - (##cdr _e2845628508_))) - (_hd2845528512_ + (##cdr _e2853728589_))) + (_hd2853628593_ (let () (declare (not safe)) - (##car _e2845628508_)))) - (if (gx#stx-datum? _hd2845528512_) - (let ((_e2845728518_ - (gx#stx-e _hd2845528512_))) - (if (equal? _e2845728518_ '=>:) + (##car _e2853728589_)))) + (if (gx#stx-datum? _hd2853628593_) + (let ((_e2853828599_ + (gx#stx-e _hd2853628593_))) + (if (equal? _e2853828599_ '=>:) (if (gx#stx-pair? - _tl2845428515_) - (let ((_e2846028522_ + _tl2853528596_) + (let ((_e2854128603_ (gx#syntax-e - _tl2845428515_))) - (let ((_tl2845828529_ + _tl2853528596_))) + (let ((_tl2853928610_ (let () (declare (not safe)) - (##cdr _e2846028522_))) - (_hd2845928526_ + (##cdr _e2854128603_))) + (_hd2854028607_ (let () (declare (not safe)) - (##car _e2846028522_)))) + (##car _e2854128603_)))) (if (gx#stx-null? - _tl2845828529_) - (___kont4056740568_ - _hd2845928526_) - (___kont4056940570_)))) - (___kont4056940570_)) - (___kont4056940570_))) - (___kont4056940570_)))) - (___kont4056940570_)))) - (___kont4056940570_)) - (___kont4056940570_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4056940570_))))) - (___kont4056940570_)))))) - (___kont4064540646_ - (lambda (_L28302_ _L28304_) - (let* ((___stx4054440545_ _L28302_) - (_g2832028332_ + _tl2853928610_) + (___kont4064840649_ + _hd2854028607_) + (___kont4065040651_)))) + (___kont4065040651_)) + (___kont4065040651_))) + (___kont4065040651_)))) + (___kont4065040651_)))) + (___kont4065040651_)) + (___kont4065040651_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4065040651_))))) + (___kont4065040651_)))))) + (___kont4072640727_ + (lambda (_L28383_ _L28385_) + (let* ((___stx4062540626_ _L28383_) + (_g2840128413_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4054440545_)))) - (let ((___kont4054740548_ - (lambda (_L28360_ _L28362_) - (let ((__tmp42964 - (lambda (_g2837428376_) - (let ((__tmp42965 - (cons _L28304_ - _L28360_))) + ___stx4062540626_)))) + (let ((___kont4062840629_ + (lambda (_L28441_ _L28443_) + (let ((__tmp43038 + (lambda (_g2845528457_) + (let ((__tmp43039 + (cons _L28385_ + _L28441_))) (declare (not safe)) - (_loop27372_ - __tmp42965 - _g2837428376_ - _K27662_))))) + (_loop27453_ + __tmp43039 + _g2845528457_ + _K27743_))))) (declare (not safe)) - (_loop27372_ - _L28362_ - _vars27661_ - __tmp42964)))) - (___kont4054940550_ - (lambda () (_K27662_ _vars27661_)))) - (if (gx#stx-pair? ___stx4054440545_) - (let ((_e2832628350_ - (gx#syntax-e ___stx4054440545_))) - (let ((_tl2832428357_ + (_loop27453_ + _L28443_ + _vars27742_ + __tmp43038)))) + (___kont4063040631_ + (lambda () (_K27743_ _vars27742_)))) + (if (gx#stx-pair? ___stx4062540626_) + (let ((_e2840728431_ + (gx#syntax-e ___stx4062540626_))) + (let ((_tl2840528438_ (let () (declare (not safe)) - (##cdr _e2832628350_))) - (_hd2832528354_ + (##cdr _e2840728431_))) + (_hd2840628435_ (let () (declare (not safe)) - (##car _e2832628350_)))) - (___kont4054740548_ - _tl2832428357_ - _hd2832528354_))) - (___kont4054940550_)))))) - (___kont4064740648_ - (lambda (_L28271_) + (##car _e2840728431_)))) + (___kont4062840629_ + _tl2840528438_ + _hd2840628435_))) + (___kont4063040631_)))))) + (___kont4072840729_ + (lambda (_L28352_) (let () (declare (not safe)) - (_loop27372_ _L28271_ _vars27661_ _K27662_)))) - (___kont4064940650_ - (lambda (_L28217_ _L28219_) - (let ((__tmp42966 - (lambda (_g2823428236_) + (_loop27453_ _L28352_ _vars27742_ _K27743_)))) + (___kont4073040731_ + (lambda (_L28298_ _L28300_) + (let ((__tmp43040 + (lambda (_g2831528317_) (let () (declare (not safe)) - (_loop27372_ - _L28217_ - _g2823428236_ - _K27662_))))) + (_loop27453_ + _L28298_ + _g2831528317_ + _K27743_))))) (declare (not safe)) - (_loop27372_ - _L28219_ - _vars27661_ - __tmp42966)))) - (___kont4065140652_ - (lambda (_L28153_ _L28155_) - (let ((__tmp42967 - (lambda (_g2817028172_) + (_loop27453_ + _L28300_ + _vars27742_ + __tmp43040)))) + (___kont4073240733_ + (lambda (_L28234_ _L28236_) + (let ((__tmp43041 + (lambda (_g2825128253_) (let () (declare (not safe)) - (_loop27372_ - _L28153_ - _g2817028172_ - _K27662_))))) + (_loop27453_ + _L28234_ + _g2825128253_ + _K27743_))))) (declare (not safe)) - (_loop27372_ - _L28155_ - _vars27661_ - __tmp42967)))) - (___kont4065340654_ - (lambda (_L28098_) + (_loop27453_ + _L28236_ + _vars27742_ + __tmp43041)))) + (___kont4073440735_ + (lambda (_L28179_) (let () (declare (not safe)) - (_loop27372_ _L28098_ _vars27661_ _K27662_)))) - (___kont4065540656_ - (lambda (_L28048_ _L28050_) + (_loop27453_ _L28179_ _vars27742_ _K27743_)))) + (___kont4073640737_ + (lambda (_L28129_ _L28131_) (let () (declare (not safe)) - (_loop-vector27374_ - _L28048_ - _vars27661_ - _K27662_)))) - (___kont4065740658_ - (lambda (_L28005_) + (_loop-vector27455_ + _L28129_ + _vars27742_ + _K27743_)))) + (___kont4073840739_ + (lambda (_L28086_) (let () (declare (not safe)) - (_loop-vector27374_ - _L28005_ - _vars27661_ - _K27662_)))) - (___kont4065940660_ - (lambda (_L27948_) + (_loop-vector27455_ + _L28086_ + _vars27742_ + _K27743_)))) + (___kont4074040741_ + (lambda (_L28029_) (let () (declare (not safe)) - (_loop-class-list27376_ - _L27948_ - _vars27661_ - _K27662_)))) - (___kont4066140662_ - (lambda (_L27889_ _L27891_) + (_loop-class-list27457_ + _L28029_ + _vars27742_ + _K27743_)))) + (___kont4074240743_ + (lambda (_L27970_ _L27972_) (let () (declare (not safe)) - (_loop27372_ _L27889_ _vars27661_ _K27662_)))) - (___kont4066340664_ - (lambda (_L27827_) - (if (find (lambda (_g2784227844_) + (_loop27453_ _L27970_ _vars27742_ _K27743_)))) + (___kont4074440745_ + (lambda (_L27908_) + (if (find (lambda (_g2792327925_) (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_ + _g2792327925_ + _L27908_)) + _vars27742_) + (_K27743_ _vars27742_) + (_K27743_ (cons _L27908_ _vars27742_))))) + (___kont4074640747_ + (lambda () (_K27743_ _vars27742_)))) + (let* ((___match4087840879_ + (lambda (_e2781528109_ + _hd2781428113_ + _tl2781328116_ + _e2781828119_ + _hd2781728123_ + _tl2781628126_) + (let ((_L28129_ _hd2781728123_) + (_L28131_ _hd2781428113_)) + (if (or (gx#stx-eq? 'values: _L28131_) + (gx#stx-eq? 'vector: _L28131_)) + (___kont4073640737_ _L28129_ _L28131_) + (if (gx#stx-datum? _hd2781428113_) + (let ((_e2782328062_ + (gx#stx-e _hd2781428113_))) + (if (equal? _e2782328062_ 'struct:) - (___kont4066540666_) - (if (equal? _e2774227981_ + (___kont4074640747_) + (if (equal? _e2782328062_ 'class:) - (___kont4066540666_) - (if (equal? _e2774227981_ + (___kont4074640747_) + (if (equal? _e2782328062_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '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:) + (___kont4074640747_) + (if (equal? _e2782328062_ 'var:) + (___kont4074440745_ _hd2781728123_) + (___kont4074640747_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4074640747_)))))) + (___match4077240773_ + (lambda (_e2777028373_ + _hd2776928377_ + _tl2776828380_) + (let ((_L28383_ _tl2776828380_) + (_L28385_ _hd2776928377_)) + (if (or (gx#stx-eq? 'and: _L28385_) + (gx#stx-eq? 'or: _L28385_)) + (___kont4072640727_ _L28383_ _L28385_) + (if (gx#stx-datum? _hd2776928377_) + (let ((_e2777528338_ + (gx#stx-e _hd2776928377_))) + (if (equal? _e2777528338_ 'not:) (if (gx#stx-pair? - _tl2768728299_) - (let ((_e2769728261_ + _tl2776828380_) + (let ((_e2777828342_ (gx#syntax-e - _tl2768728299_))) - (let ((_tl2769528268_ + _tl2776828380_))) + (let ((_tl2777628349_ (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 _e2777828342_))) + (_hd2777728346_ + (let () (declare (not safe)) (##car _e2777828342_)))) + (if (gx#stx-null? _tl2777628349_) + (___kont4072840729_ _hd2777728346_) + (___kont4074640747_)))) + (___kont4074640747_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (equal? _e2777528338_ 'cons:) (if (gx#stx-pair? - _tl2768728299_) - (let ((_e2770628197_ + _tl2776828380_) + (let ((_e2778728278_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2768728299_))) - (let ((_tl2770428204_ - (let () (declare (not safe)) (##cdr _e2770628197_))) - (_hd2770528201_ + (gx#syntax-e _tl2776828380_))) + (let ((_tl2778528285_ + (let () (declare (not safe)) (##cdr _e2778728278_))) + (_hd2778628282_ (let () (declare (not safe)) - (##car _e2770628197_)))) - (if (gx#stx-pair? _tl2770428204_) - (let ((_e2770928207_ (gx#syntax-e _tl2770428204_))) - (let ((_tl2770728214_ + (##car _e2778728278_)))) + (if (gx#stx-pair? _tl2778528285_) + (let ((_e2779028288_ (gx#syntax-e _tl2778528285_))) + (let ((_tl2778828295_ (let () (declare (not safe)) - (##cdr _e2770928207_))) - (_hd2770828211_ + (##cdr _e2779028288_))) + (_hd2778928292_ (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 _e2779028288_)))) + (if (gx#stx-null? _tl2778828295_) + (___kont4073040731_ + _hd2778928292_ + _hd2778628282_) + (___kont4074640747_)))) + (if (gx#stx-null? _tl2778528285_) + (___match4087840879_ + _e2777028373_ + _hd2776928377_ + _tl2776828380_ + _e2778728278_ + _hd2778628282_ + _tl2778528285_) + (___kont4074640747_))))) + (___kont4074640747_)) + (if (equal? _e2777528338_ 'splice:) + (if (gx#stx-pair? _tl2776828380_) + (let ((_e2779928214_ (gx#syntax-e _tl2776828380_))) + (let ((_tl2779728221_ (let () (declare (not safe)) - (##cdr _e2771828133_))) - (_hd2771728137_ + (##cdr _e2779928214_))) + (_hd2779828218_ (let () (declare (not safe)) - (##car _e2771828133_)))) - (if (gx#stx-pair? _tl2771628140_) - (let ((_e2772128143_ - (gx#syntax-e _tl2771628140_))) - (let ((_tl2771928150_ + (##car _e2779928214_)))) + (if (gx#stx-pair? _tl2779728221_) + (let ((_e2780228224_ + (gx#syntax-e _tl2779728221_))) + (let ((_tl2780028231_ (let () (declare (not safe)) - (##cdr _e2772128143_))) - (_hd2772028147_ + (##cdr _e2780228224_))) + (_hd2780128228_ (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 _e2780228224_)))) + (if (gx#stx-null? _tl2780028231_) + (___kont4073240733_ + _hd2780128228_ + _hd2779828218_) + (___kont4074640747_)))) + (if (gx#stx-null? _tl2779728221_) + (___match4087840879_ + _e2777028373_ + _hd2776928377_ + _tl2776828380_ + _e2779928214_ + _hd2779828218_ + _tl2779728221_) + (___kont4074640747_))))) + (___kont4074640747_)) + (if (equal? _e2777528338_ 'box:) + (if (gx#stx-pair? _tl2776828380_) + (let ((_e2781028169_ (gx#syntax-e _tl2776828380_))) + (let ((_tl2780828176_ (let () (declare (not safe)) - (##cdr _e2772928088_))) - (_hd2772828092_ + (##cdr _e2781028169_))) + (_hd2780928173_ (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 _e2781028169_)))) + (if (gx#stx-null? _tl2780828176_) + (___kont4073440735_ _hd2780928173_) + (___kont4074640747_)))) + (___kont4074640747_)) + (if (gx#stx-pair? _tl2776828380_) + (let ((_e2781828119_ (gx#syntax-e _tl2776828380_))) + (let ((_tl2781628126_ (let () (declare (not safe)) - (##cdr _e2773728038_))) - (_hd2773628042_ + (##cdr _e2781828119_))) + (_hd2781728123_ (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 _e2781828119_)))) + (if (gx#stx-null? _tl2781628126_) + (___match4087840879_ + _e2777028373_ + _hd2776928377_ + _tl2776828380_ + _e2781828119_ + _hd2781728123_ + _tl2781628126_) + (if (equal? _e2777528338_ 'struct:) + (if (gx#stx-pair? _tl2781628126_) + (let ((_e2782928076_ + (gx#syntax-e _tl2781628126_))) + (let ((_tl2782728083_ (let () (declare (not safe)) - (##cdr _e2774827995_))) - (_hd2774727999_ + (##cdr _e2782928076_))) + (_hd2782828080_ (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 _e2782928076_)))) + (if (gx#stx-null? _tl2782728083_) + (___kont4073840739_ + _hd2782828080_) + (___kont4074640747_)))) + (___kont4074640747_)) + (if (equal? _e2777528338_ 'class:) + (if (gx#stx-pair? _tl2781628126_) + (let ((_e2784028019_ (gx#syntax-e - _tl2773528045_))) - (let ((_tl2775727945_ + _tl2781628126_))) + (let ((_tl2783828026_ (let () (declare (not safe)) - (##cdr _e2775927938_))) - (_hd2775827942_ + (##cdr _e2784028019_))) + (_hd2783928023_ (let () (declare (not safe)) - (##car _e2775927938_)))) + (##car _e2784028019_)))) (if (gx#stx-null? - _tl2775727945_) - (___kont4065940660_ - _hd2775827942_) - (___kont4066540666_)))) - (___kont4066540666_)) - (if (equal? _e2769428257_ 'apply:) - (if (gx#stx-pair? _tl2773528045_) - (let ((_e2777127879_ + _tl2783828026_) + (___kont4074040741_ + _hd2783928023_) + (___kont4074640747_)))) + (___kont4074640747_)) + (if (equal? _e2777528338_ 'apply:) + (if (gx#stx-pair? _tl2781628126_) + (let ((_e2785227960_ (gx#syntax-e - _tl2773528045_))) - (let ((_tl2776927886_ + _tl2781628126_))) + (let ((_tl2785027967_ (let () (declare (not safe)) - (##cdr _e2777127879_))) - (_hd2777027883_ + (##cdr _e2785227960_))) + (_hd2785127964_ (let () (declare (not safe)) - (##car _e2777127879_)))) + (##car _e2785227960_)))) (if (gx#stx-null? - _tl2776927886_) - (___kont4066140662_ - _hd2777027883_ - _hd2773628042_) - (___kont4066540666_)))) - (___kont4066540666_)) - (___kont4066540666_))))))) - (___kont4066540666_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl2768728299_) - (let ((_e2773728038_ + _tl2785027967_) + (___kont4074240743_ + _hd2785127964_ + _hd2781728123_) + (___kont4074640747_)))) + (___kont4074640747_)) + (___kont4074640747_))))))) + (___kont4074640747_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _tl2776828380_) + (let ((_e2781828119_ (gx#syntax-e - _tl2768728299_))) - (let ((_tl2773528045_ + _tl2776828380_))) + (let ((_tl2781628126_ (let () (declare (not safe)) - (##cdr _e2773728038_))) - (_hd2773628042_ + (##cdr _e2781828119_))) + (_hd2781728123_ (let () (declare (not safe)) - (##car _e2773728038_)))) + (##car _e2781828119_)))) (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_ + _tl2781628126_) + (___match4087840879_ + _e2777028373_ + _hd2776928377_ + _tl2776828380_ + _e2781828119_ + _hd2781728123_ + _tl2781628126_) + (___kont4074640747_)))) + (___kont4074640747_)))))))) + (if (gx#stx-pair? ___stx4072140722_) + (let ((_e2776128472_ + (gx#syntax-e ___stx4072140722_))) + (let ((_tl2775928479_ (let () (declare (not safe)) - (##cdr _e2768028391_))) - (_hd2767928395_ + (##cdr _e2776128472_))) + (_hd2776028476_ (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 _e2776128472_)))) + (if (gx#stx-datum? _hd2776028476_) + (let ((_e2776228482_ + (gx#stx-e _hd2776028476_))) + (if (equal? _e2776228482_ '?:) + (if (gx#stx-pair? _tl2775928479_) + (let ((_e2776528486_ (gx#syntax-e - _tl2767828398_))) - (let ((_tl2768228412_ + _tl2775928479_))) + (let ((_tl2776328493_ (let () (declare (not safe)) - (##cdr _e2768428405_))) - (_hd2768328409_ + (##cdr _e2776528486_))) + (_hd2776428490_ (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 _e2776528486_)))) + (___kont4072440725_ + _tl2776328493_))) + (___match4077240773_ + _e2776128472_ + _hd2776028476_ + _tl2775928479_)) + (___match4077240773_ + _e2776128472_ + _hd2776028476_ + _tl2775928479_))) + (___match4077240773_ + _e2776128472_ + _hd2776028476_ + _tl2775928479_)))) + (___kont4074640747_))))))) + (_loop-vector27455_ + (lambda (_body27616_ _vars27618_ _K27619_) + (let* ((___stx4097940980_ _body27616_) + (_g2762227645_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4089840899_)))) - (let ((___kont4090140902_ - (lambda (_L27641_) + ___stx4097940980_)))) + (let ((___kont4098240983_ + (lambda (_L27722_) (let () (declare (not safe)) - (_loop-list27375_ - _L27641_ - _vars27537_ - _K27538_)))) - (___kont4090340904_ - (lambda (_L27595_) + (_loop-list27456_ + _L27722_ + _vars27618_ + _K27619_)))) + (___kont4098440985_ + (lambda (_L27676_) (let () (declare (not safe)) - (_loop27372_ - _L27595_ - _vars27537_ - _K27538_))))) - (if (gx#stx-pair? ___stx4089840899_) - (let ((_e2754627617_ - (gx#syntax-e ___stx4089840899_))) - (let ((_tl2754427624_ + (_loop27453_ + _L27676_ + _vars27618_ + _K27619_))))) + (if (gx#stx-pair? ___stx4097940980_) + (let ((_e2762727698_ + (gx#syntax-e ___stx4097940980_))) + (let ((_tl2762527705_ (let () (declare (not safe)) - (##cdr _e2754627617_))) - (_hd2754527621_ + (##cdr _e2762727698_))) + (_hd2762627702_ (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 _e2762727698_)))) + (if (gx#stx-datum? _hd2762627702_) + (let ((_e2762827708_ + (gx#stx-e _hd2762627702_))) + (if (equal? _e2762827708_ 'simple:) + (if (gx#stx-pair? _tl2762527705_) + (let ((_e2763127712_ (gx#syntax-e - _tl2754427624_))) - (let ((_tl2754827638_ + _tl2762527705_))) + (let ((_tl2762927719_ (let () (declare (not safe)) - (##cdr _e2755027631_))) - (_hd2754927635_ + (##cdr _e2763127712_))) + (_hd2763027716_ (let () (declare (not safe)) - (##car _e2755027631_)))) + (##car _e2763127712_)))) (if (gx#stx-null? - _tl2754827638_) - (___kont4090140902_ - _hd2754927635_) + _tl2762927719_) + (___kont4098240983_ + _hd2763027716_) (let () (declare (not safe)) - (_g2754127564_))))) + (_g2762227645_))))) (let () (declare (not safe)) - (_g2754127564_))) - (if (equal? _e2754727627_ 'list:) - (if (gx#stx-pair? _tl2754427624_) - (let ((_e2755827585_ + (_g2762227645_))) + (if (equal? _e2762827708_ 'list:) + (if (gx#stx-pair? _tl2762527705_) + (let ((_e2763927666_ (gx#syntax-e - _tl2754427624_))) - (let ((_tl2755627592_ + _tl2762527705_))) + (let ((_tl2763727673_ (let () (declare (not safe)) - (##cdr _e2755827585_))) - (_hd2755727589_ + (##cdr _e2763927666_))) + (_hd2763827670_ (let () (declare (not safe)) - (##car _e2755827585_)))) + (##car _e2763927666_)))) (if (gx#stx-null? - _tl2755627592_) - (___kont4090340904_ - _hd2755727589_) + _tl2763727673_) + (___kont4098440985_ + _hd2763827670_) (let () (declare (not safe)) - (_g2754127564_))))) + (_g2762227645_))))) (let () (declare (not safe)) - (_g2754127564_))) + (_g2762227645_))) (let () (declare (not safe)) - (_g2754127564_))))) + (_g2762227645_))))) (let () (declare (not safe)) - (_g2754127564_))))) - (let () (declare (not safe)) (_g2754127564_))))))) - (_loop-list27375_ - (lambda (_rest27465_ _vars27467_ _K27468_) - (let* ((___stx4094840949_ _rest27465_) - (_g2747127483_ + (_g2762227645_))))) + (let () (declare (not safe)) (_g2762227645_))))))) + (_loop-list27456_ + (lambda (_rest27546_ _vars27548_ _K27549_) + (let* ((___stx4102941030_ _rest27546_) + (_g2755227564_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4094840949_)))) - (let ((___kont4095140952_ - (lambda (_L27511_ _L27513_) - (let ((__tmp42968 - (lambda (_g2752527527_) + ___stx4102941030_)))) + (let ((___kont4103241033_ + (lambda (_L27592_ _L27594_) + (let ((__tmp43042 + (lambda (_g2760627608_) (let () (declare (not safe)) - (_loop-list27375_ - _L27511_ - _g2752527527_ - _K27468_))))) + (_loop-list27456_ + _L27592_ + _g2760627608_ + _K27549_))))) (declare (not safe)) - (_loop27372_ - _L27513_ - _vars27467_ - __tmp42968)))) - (___kont4095340954_ - (lambda () (_K27468_ _vars27467_)))) - (if (gx#stx-pair? ___stx4094840949_) - (let ((_e2747727501_ - (gx#syntax-e ___stx4094840949_))) - (let ((_tl2747527508_ + (_loop27453_ + _L27594_ + _vars27548_ + __tmp43042)))) + (___kont4103441035_ + (lambda () (_K27549_ _vars27548_)))) + (if (gx#stx-pair? ___stx4102941030_) + (let ((_e2755827582_ + (gx#syntax-e ___stx4102941030_))) + (let ((_tl2755627589_ (let () (declare (not safe)) - (##cdr _e2747727501_))) - (_hd2747627505_ + (##cdr _e2755827582_))) + (_hd2755727586_ (let () (declare (not safe)) - (##car _e2747727501_)))) - (___kont4095140952_ - _tl2747527508_ - _hd2747627505_))) - (___kont4095340954_)))))) - (_loop-class-list27376_ - (lambda (_rest27378_ _vars27380_ _K27381_) - (let* ((___stx4096440965_ _rest27378_) - (_g2738427399_ + (##car _e2755827582_)))) + (___kont4103241033_ + _tl2755627589_ + _hd2755727586_))) + (___kont4103441035_)))))) + (_loop-class-list27457_ + (lambda (_rest27459_ _vars27461_ _K27462_) + (let* ((___stx4104541046_ _rest27459_) + (_g2746527480_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4096440965_)))) - (let ((___kont4096740968_ - (lambda (_L27437_ _L27439_) - (let ((__tmp42969 - (lambda (_g2745527457_) + ___stx4104541046_)))) + (let ((___kont4104841049_ + (lambda (_L27518_ _L27520_) + (let ((__tmp43043 + (lambda (_g2753627538_) (let () (declare (not safe)) - (_loop-class-list27376_ - _L27437_ - _g2745527457_ - _K27381_))))) + (_loop-class-list27457_ + _L27518_ + _g2753627538_ + _K27462_))))) (declare (not safe)) - (_loop27372_ - _L27439_ - _vars27380_ - __tmp42969)))) - (___kont4096940970_ - (lambda () (_K27381_ _vars27380_)))) - (if (gx#stx-pair? ___stx4096440965_) - (let ((_e2739027417_ - (gx#syntax-e ___stx4096440965_))) - (let ((_tl2738827424_ + (_loop27453_ + _L27520_ + _vars27461_ + __tmp43043)))) + (___kont4105041051_ + (lambda () (_K27462_ _vars27461_)))) + (if (gx#stx-pair? ___stx4104541046_) + (let ((_e2747127498_ + (gx#syntax-e ___stx4104541046_))) + (let ((_tl2746927505_ (let () (declare (not safe)) - (##cdr _e2739027417_))) - (_hd2738927421_ + (##cdr _e2747127498_))) + (_hd2747027502_ (let () (declare (not safe)) - (##car _e2739027417_)))) - (if (gx#stx-pair? _tl2738827424_) - (let ((_e2739327427_ - (gx#syntax-e _tl2738827424_))) - (let ((_tl2739127434_ + (##car _e2747127498_)))) + (if (gx#stx-pair? _tl2746927505_) + (let ((_e2747427508_ + (gx#syntax-e _tl2746927505_))) + (let ((_tl2747227515_ (let () (declare (not safe)) - (##cdr _e2739327427_))) - (_hd2739227431_ + (##cdr _e2747427508_))) + (_hd2747327512_ (let () (declare (not safe)) - (##car _e2739327427_)))) - (___kont4096740968_ - _tl2739127434_ - _hd2739227431_))) - (___kont4096940970_)))) - (___kont4096940970_))))))) + (##car _e2747427508_)))) + (___kont4104841049_ + _tl2747227515_ + _hd2747327512_))) + (___kont4105041051_)))) + (___kont4105041051_))))))) (let () (declare (not safe)) - (_loop27372_ _ptree27369_ '() values))))) + (_loop27453_ _ptree27450_ '() 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 (_stx24033_ _tgt24035_ _ptree24036_ _K24037_ _E24038_) + (letrec ((_generate124040_ + (lambda (_tgt25663_ _ptree25665_ _K25666_ _E25667_) + (let* ((_g2566925677_ + (lambda (_g2567025673_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2558925592_))) - (_g2558727365_ - (lambda (_g2558925600_) - ((lambda (_L25603_) + _g2567025673_))) + (_g2566827446_ + (lambda (_g2567025681_) + ((lambda (_L25684_) (let () - (let* ((___stx4120041201_ _ptree25584_) - (_g2563025772_ + (let* ((___stx4128141282_ _ptree25665_) + (_g2571125853_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4120041201_)))) - (let ((___kont4120341204_ - (lambda (_L27080_ _L27082_) - (let* ((___stx4111841119_ - _L27080_) - (_g2709927134_ + ___stx4128141282_)))) + (let ((___kont4128441285_ + (lambda (_L27161_ _L27163_) + (let* ((___stx4119941200_ + _L27161_) + (_g2718027215_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4111841119_)))) - (let ((___kont4112141122_ + ___stx4119941200_)))) + (let ((___kont4120241203_ (lambda () (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _L27082_ (cons _L25603_ '()))) - (cons _K25585_ (cons _E25586_ '())))))) - (___kont4112341124_ - (lambda (_L27335_) + (cons _L27163_ (cons _L25684_ '()))) + (cons _K25666_ (cons _E25667_ '())))))) + (___kont4120441205_ + (lambda (_L27416_) (cons 'if (cons (cons (gx#datum->syntax '#f '?) - (cons _L27082_ (cons _L25603_ '()))) + (cons _L27163_ (cons _L25684_ '()))) (cons (let () (declare (not safe)) - (_generate123959_ - _tgt25582_ - _L27335_ - _K25585_ - _E25586_)) - (cons _E25586_ '())))))) - (___kont4112541126_ - (lambda (_L27273_) - (let* ((_g2728727295_ - (lambda (_g2728827291_) + (_generate124040_ + _tgt25663_ + _L27416_ + _K25666_ + _E25667_)) + (cons _E25667_ '())))))) + (___kont4120641207_ + (lambda (_L27354_) + (let* ((_g2736827376_ + (lambda (_g2736927372_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2728827291_))) - (_g2728627314_ - (lambda (_g2728827299_) - ((lambda (_L27302_) + _g2736927372_))) + (_g2736727395_ + (lambda (_g2736927380_) + ((lambda (_L27383_) (let () (cons 'let - (cons (cons (cons _L27302_ - (cons (cons _L27082_ + (cons (cons (cons _L27383_ + (cons (cons _L27163_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L25603_ '())) + (cons _L25684_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons 'if - (cons _L27302_ + (cons _L27383_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_generate123959_ - _L27302_ - _L27273_ - _K25585_ - _E25586_)) - (cons _E25586_ '())))) + (_generate124040_ + _L27383_ + _L27354_ + _K25666_ + _E25667_)) + (cons _E25667_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _g2728827299_))) - (__tmp42970 (gx#genident 'e))) + _g2736927380_))) + (__tmp43044 (gx#genident 'e))) (declare (not safe)) - (_g2728627314_ __tmp42970)))) - (___kont4112741128_ - (lambda (_L27189_ _L27191_) - (let* ((_g2721127219_ - (lambda (_g2721227215_) + (_g2736727395_ __tmp43044)))) + (___kont4120841209_ + (lambda (_L27270_ _L27272_) + (let* ((_g2729227300_ + (lambda (_g2729327296_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2721227215_))) - (_g2721027238_ - (lambda (_g2721227223_) - ((lambda (_L27226_) + _g2729327296_))) + (_g2729127319_ + (lambda (_g2729327304_) + ((lambda (_L27307_) (let () (cons 'if (cons (cons (gx#datum->syntax '#f '?) - (cons _L27082_ - (cons _L25603_ '()))) + (cons _L27163_ + (cons _L25684_ '()))) (cons (cons 'let - (cons (cons (cons _L27226_ + (cons (cons (cons _L27307_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _L27191_ (cons _L25603_ '())) + (cons (cons _L27272_ (cons _L25684_ '())) '())) '()) (cons (let () (declare (not safe)) - (_generate123959_ - _L27226_ - _L27189_ - _K25585_ - _E25586_)) + (_generate124040_ + _L27307_ + _L27270_ + _K25666_ + _E25667_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _E25586_ '())))))) - _g2721227223_))) - (__tmp42971 (gx#genident 'e))) + (cons _E25667_ '())))))) + _g2729327304_))) + (__tmp43045 (gx#genident 'e))) (declare (not safe)) - (_g2721027238_ __tmp42971))))) + (_g2729127319_ __tmp43045))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g2709627346_ + (let ((_g2717727427_ (lambda () (if (gx#stx-pair? - ___stx4111841119_) - (let ((_e2710427325_ + ___stx4119941200_) + (let ((_e2718527406_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e ___stx4111841119_))) - (let ((_tl2710227332_ + (gx#syntax-e ___stx4119941200_))) + (let ((_tl2718327413_ (let () (declare (not safe)) - (##cdr _e2710427325_))) - (_hd2710327329_ + (##cdr _e2718527406_))) + (_hd2718427410_ (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 _e2718527406_)))) + (if (gx#stx-null? _tl2718327413_) + (___kont4120441205_ _hd2718427410_) + (if (gx#stx-datum? _hd2718427410_) + (let ((_e2719027340_ + (gx#stx-e _hd2718427410_))) + (if (equal? _e2719027340_ '=>:) + (if (gx#stx-pair? _tl2718327413_) + (let ((_e2719327344_ (gx#syntax-e - _tl2710227332_))) - (let ((_tl2711027270_ + _tl2718327413_))) + (let ((_tl2719127351_ (let () (declare (not safe)) - (##cdr _e2711227263_))) - (_hd2711127267_ + (##cdr _e2719327344_))) + (_hd2719227348_ (let () (declare (not safe)) - (##car _e2711227263_)))) + (##car _e2719327344_)))) (if (gx#stx-null? - _tl2711027270_) - (___kont4112541126_ - _hd2711127267_) + _tl2719127351_) + (___kont4120641207_ + _hd2719227348_) (let () (declare (not safe)) - (_g2709927134_))))) + (_g2718027215_))))) (let () (declare (not safe)) - (_g2709927134_))) - (if (equal? _e2710927259_ '::) - (if (gx#stx-pair? _tl2710227332_) - (let ((_e2712127155_ + (_g2718027215_))) + (if (equal? _e2719027340_ '::) + (if (gx#stx-pair? _tl2718327413_) + (let ((_e2720227236_ (gx#syntax-e - _tl2710227332_))) - (let ((_tl2711927162_ + _tl2718327413_))) + (let ((_tl2720027243_ (let () (declare (not safe)) - (##cdr _e2712127155_))) - (_hd2712027159_ + (##cdr _e2720227236_))) + (_hd2720127240_ (let () (declare (not safe)) - (##car _e2712127155_)))) + (##car _e2720227236_)))) (if (gx#stx-pair? - _tl2711927162_) - (let ((_e2712427165_ + _tl2720027243_) + (let ((_e2720527246_ (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_ + _tl2720027243_))) + (let ((_tl2720327253_ + (let () (declare (not safe)) (##cdr _e2720527246_))) + (_hd2720427250_ + (let () (declare (not safe)) (##car _e2720527246_)))) + (if (gx#stx-datum? _hd2720427250_) + (let ((_e2720627256_ (gx#stx-e _hd2720427250_))) + (if (equal? _e2720627256_ '=>:) + (if (gx#stx-pair? _tl2720327253_) + (let ((_e2720927260_ + (gx#syntax-e _tl2720327253_))) + (let ((_tl2720727267_ (let () (declare (not safe)) - (##cdr _e2712827179_))) - (_hd2712727183_ + (##cdr _e2720927260_))) + (_hd2720827264_ (let () (declare (not safe)) - (##car _e2712827179_)))) - (if (gx#stx-null? _tl2712627186_) - (___kont4112741128_ - _hd2712727183_ - _hd2712027159_) + (##car _e2720927260_)))) + (if (gx#stx-null? _tl2720727267_) + (___kont4120841209_ + _hd2720827264_ + _hd2720127240_) (let () (declare (not safe)) - (_g2709927134_))))) + (_g2718027215_))))) (let () (declare (not safe)) - (_g2709927134_))) - (let () (declare (not safe)) (_g2709927134_)))) - (let () (declare (not safe)) (_g2709927134_))))) - (let () (declare (not safe)) (_g2709927134_))))) + (_g2718027215_))) + (let () (declare (not safe)) (_g2718027215_)))) + (let () (declare (not safe)) (_g2718027215_))))) + (let () (declare (not safe)) (_g2718027215_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2709927134_))) + (_g2718027215_))) (let () (declare (not safe)) - (_g2709927134_))))) + (_g2718027215_))))) (let () (declare (not safe)) - (_g2709927134_)))))) - (let () (declare (not safe)) (_g2709927134_)))))) + (_g2718027215_)))))) + (let () (declare (not safe)) (_g2718027215_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - ___stx4111841119_) - (___kont4112141122_) + ___stx4119941200_) + (___kont4120241203_) (let () (declare (not safe)) - (_g2709627346_)))))))) - (___kont4120541206_ - (lambda (_L26977_) - (let* ((___stx4110241103_ - _L26977_) - (_g2699027002_ + (_g2717727427_)))))))) + (___kont4128641287_ + (lambda (_L27058_) + (let* ((___stx4118341184_ + _L27058_) + (_g2707127083_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4110241103_)))) - (let ((___kont4110541106_ - (lambda (_L27030_ - _L27032_) - (let ((__tmp42972 - (let ((__tmp42973 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'and: _L27030_))) + ___stx4118341184_)))) + (let ((___kont4118641187_ + (lambda (_L27111_ + _L27113_) + (let ((__tmp43046 + (let ((__tmp43047 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons 'and: _L27111_))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - __tmp42973 - _K25585_ - _E25586_)))) + (_generate124040_ + _tgt25663_ + __tmp43047 + _K25666_ + _E25667_)))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - _L27032_ - __tmp42972 - _E25586_)))) - (___kont4110741108_ (lambda () _K25585_))) + (_generate124040_ + _tgt25663_ + _L27113_ + __tmp43046 + _E25667_)))) + (___kont4118841189_ (lambda () _K25666_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4110241103_) - (let ((_e2699627020_ + ___stx4118341184_) + (let ((_e2707727101_ (gx#syntax-e - ___stx4110241103_))) - (let ((_tl2699427027_ + ___stx4118341184_))) + (let ((_tl2707527108_ (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 _e2707727101_))) + (_hd2707627105_ + (let () (declare (not safe)) (##car _e2707727101_)))) + (___kont4118641187_ _tl2707527108_ _hd2707627105_))) + (___kont4118841189_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4128841289_ + (lambda (_L26965_) + (let* ((___stx4116741168_ + _L26965_) + (_g2697826990_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4108641087_)))) - (let ((___kont4108941090_ - (lambda (_L26937_ - _L26939_) - (let ((__tmp42974 - (let ((__tmp42975 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons 'or: _L26937_))) + ___stx4116741168_)))) + (let ((___kont4117041171_ + (lambda (_L27018_ + _L27020_) + (let ((__tmp43048 + (let ((__tmp43049 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons 'or: _L27018_))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - __tmp42975 - _K25585_ - _E25586_)))) + (_generate124040_ + _tgt25663_ + __tmp43049 + _K25666_ + _E25667_)))) (declare (not safe)) - (_generate123959_ - _tgt25582_ - _L26939_ - _K25585_ - __tmp42974)))) - (___kont4109141092_ (lambda () _E25586_))) + (_generate124040_ + _tgt25663_ + _L27020_ + _K25666_ + __tmp43048)))) + (___kont4117241173_ (lambda () _E25667_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4108641087_) - (let ((_e2690326927_ + ___stx4116741168_) + (let ((_e2698427008_ (gx#syntax-e - ___stx4108641087_))) - (let ((_tl2690126934_ + ___stx4116741168_))) + (let ((_tl2698227015_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2690326927_))) - (_hd2690226931_ - (let () (declare (not safe)) (##car _e2690326927_)))) - (___kont4108941090_ _tl2690126934_ _hd2690226931_))) - (___kont4109141092_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4120941210_ - (lambda (_L26849_) + (##cdr _e2698427008_))) + (_hd2698327012_ + (let () (declare (not safe)) (##car _e2698427008_)))) + (___kont4117041171_ _tl2698227015_ _hd2698327012_))) + (___kont4117241173_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4129041291_ + (lambda (_L26930_) (let () (declare (not safe)) - (_generate123959_ - _tgt25582_ - _L26849_ - _E25586_ - _K25585_)))) - (___kont4121141212_ - (lambda (_L26731_ _L26733_) - (let* ((_g2675026765_ - (lambda (_g2675126761_) + (_generate124040_ + _tgt25663_ + _L26930_ + _E25667_ + _K25666_)))) + (___kont4129241293_ + (lambda (_L26812_ _L26814_) + (let* ((_g2683126846_ + (lambda (_g2683226842_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2675126761_))) - (_g2674926814_ - (lambda (_g2675126769_) + _g2683226842_))) + (_g2683026895_ + (lambda (_g2683226850_) (if (gx#stx-pair? - _g2675126769_) - (let ((_e2675626772_ + _g2683226850_) + (let ((_e2683726853_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g2675126769_))) - (let ((_hd2675526776_ + (gx#syntax-e _g2683226850_))) + (let ((_hd2683626857_ (let () (declare (not safe)) - (##car _e2675626772_))) - (_tl2675426779_ + (##car _e2683726853_))) + (_tl2683526860_ (let () (declare (not safe)) - (##cdr _e2675626772_)))) - (if (gx#stx-pair? _tl2675426779_) - (let ((_e2675926782_ (gx#syntax-e _tl2675426779_))) - (let ((_hd2675826786_ + (##cdr _e2683726853_)))) + (if (gx#stx-pair? _tl2683526860_) + (let ((_e2684026863_ (gx#syntax-e _tl2683526860_))) + (let ((_hd2683926867_ (let () (declare (not safe)) - (##car _e2675926782_))) - (_tl2675726789_ + (##car _e2684026863_))) + (_tl2683826870_ (let () (declare (not safe)) - (##cdr _e2675926782_)))) - (if (gx#stx-null? _tl2675726789_) - ((lambda (_L26792_ _L26794_) + (##cdr _e2684026863_)))) + (if (gx#stx-null? _tl2683826870_) + ((lambda (_L26873_ _L26875_) (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 _L25684_ '())) + (cons (let ((_hd-pat26891_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#stx-e _L26814_)) + (_tl-pat26893_ (gx#stx-e _L26812_))) + (if (and (equal? _hd-pat26891_ '(any:)) + (equal? _tl-pat26893_ '(any:))) + _K25666_ + (if (equal? _tl-pat26893_ '(any:)) (cons 'let - (cons (cons (cons _L26794_ + (cons (cons (cons _L26875_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) - (cons _L25603_ '())) + (cons _L25684_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (let () (declare (not safe)) - (_generate123959_ - _L26794_ - _L26733_ - _K25585_ - _E25586_)) + (_generate124040_ + _L26875_ + _L26814_ + _K25666_ + _E25667_)) '()))) - (if (equal? _hd-pat26810_ '(any:)) + (if (equal? _hd-pat26891_ '(any:)) (cons 'let - (cons (cons (cons _L26792_ + (cons (cons (cons _L26873_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _L25603_ '())) + (cons _L25684_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (let () (declare (not safe)) - (_generate123959_ - _L26792_ - _L26731_ - _K25585_ - _E25586_)) + (_generate124040_ + _L26873_ + _L26812_ + _K25666_ + _E25667_)) '()))) (cons 'let - (cons (cons (cons _L26794_ + (cons (cons (cons _L26875_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) - (cons _L25603_ '())) + (cons _L25684_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L26792_ + (cons (cons _L26873_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _L25603_ '())) + (cons _L25684_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (let ((__tmp42976 + (cons (let ((__tmp43050 (let () (declare (not safe)) - (_generate123959_ - _L26792_ - _L26731_ - _K25585_ - _E25586_)))) + (_generate124040_ + _L26873_ + _L26812_ + _K25666_ + _E25667_)))) (declare (not safe)) - (_generate123959_ - _L26794_ - _L26733_ - __tmp42976 - _E25586_)) + (_generate124040_ + _L26875_ + _L26814_ + __tmp43050 + _E25667_)) '()))))))) - (cons _E25586_ '())))))) + (cons _E25667_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2675826786_ - _hd2675526776_) + _hd2683926867_ + _hd2683626857_) (let () (declare (not safe)) - (_g2675026765_ _g2675126769_))))) + (_g2683126846_ _g2683226850_))))) (let () (declare (not safe)) - (_g2675026765_ _g2675126769_))))) + (_g2683126846_ _g2683226850_))))) (let () (declare (not safe)) - (_g2675026765_ _g2675126769_))))) + (_g2683126846_ _g2683226850_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42977 + (__tmp43051 (list (gx#genident 'hd) (gx#genident 'tl)))) (declare (not safe)) - (_g2674926814_ __tmp42977)))) - (___kont4121341214_ + (_g2683026895_ __tmp43051)))) + (___kont4129441295_ (lambda () (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##null?) - (cons _L25603_ '())) - (cons _K25585_ (cons _E25586_ '())))))) + (cons _L25684_ '())) + (cons _K25666_ (cons _E25667_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4121541216_ - (lambda (_L26647_ _L26649_) + (___kont4129641297_ + (lambda (_L26728_ _L26730_) (let () (declare (not safe)) - (_generate-splice23961_ - _tgt25582_ - _L26649_ - _L26647_ - _K25585_ - _E25586_)))) - (___kont4121741218_ - (lambda (_L26561_) - (let* ((_g2657526583_ - (lambda (_g2657626579_) + (_generate-splice24042_ + _tgt25663_ + _L26730_ + _L26728_ + _K25666_ + _E25667_)))) + (___kont4129841299_ + (lambda (_L26642_) + (let* ((_g2665626664_ + (lambda (_g2665726660_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2657626579_))) - (_g2657426602_ - (lambda (_g2657626587_) - ((lambda (_L26590_) + _g2665726660_))) + (_g2665526683_ + (lambda (_g2665726668_) + ((lambda (_L26671_) (let () (cons 'if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##box?) - (cons _L25603_ '())) + (cons _L25684_ '())) (cons (cons 'let - (cons (cons (cons _L26590_ + (cons (cons (cons _L26671_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unbox) - (cons _L25603_ '())) + (cons _L25684_ '())) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) - (_generate123959_ - _L26590_ - _L26561_ - _K25585_ - _E25586_)) + (_generate124040_ + _L26671_ + _L26642_ + _K25666_ + _E25667_)) '()))) - (cons _E25586_ '())))))) - _g2657626587_))) + (cons _E25667_ '())))))) + _g2665726668_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42978 + (__tmp43052 (gx#genident 'e))) (declare (not safe)) - (_g2657426602_ __tmp42978)))) - (___kont4121941220_ - (lambda (_L26366_) - (let* ((___stx4103641037_ - _L26366_) - (_g2638126404_ + (_g2665526683_ __tmp43052)))) + (___kont4130041301_ + (lambda (_L26447_) + (let* ((___stx4111741118_ + _L26447_) + (_g2646226485_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4103641037_)))) - (let ((___kont4103941040_ - (lambda (_L26481_) - (let* ((_g2649526503_ + ___stx4111741118_)))) + (let ((___kont4112041121_ + (lambda (_L26562_) + (let* ((_g2657626584_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2649626499_) + (lambda (_g2657726580_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2649626499_))) - (_g2649426522_ - (lambda (_g2649626507_) - ((lambda (_L26510_) + _g2657726580_))) + (_g2657526603_ + (lambda (_g2657726588_) + ((lambda (_L26591_) (let () (cons 'if (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f 'values-count) - (cons _L25603_ + (cons _L25684_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _L26510_ '()))) + (cons _L26591_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) - (_generate-simple-vector23962_ - _tgt25582_ - _L26481_ + (_generate-simple-vector24043_ + _tgt25663_ + _L26562_ '0 - _K25585_ - _E25586_)) - (cons _E25586_ '())))))) - _g2649626507_))) - (__tmp42979 (gx#stx-length _L26481_))) + _K25666_ + _E25667_)) + (cons _E25667_ '())))))) + _g2657726588_))) + (__tmp43053 (gx#stx-length _L26562_))) (declare (not safe)) - (_g2649426522_ __tmp42979)))) - (___kont4104141042_ - (lambda (_L26435_) + (_g2657526603_ __tmp43053)))) + (___kont4112241123_ + (lambda (_L26516_) (let () (declare (not safe)) - (_generate-list-vector23963_ - _tgt25582_ - _L26435_ + (_generate-list-vector24044_ + _tgt25663_ + _L26516_ 'values->list - _K25585_ - _E25586_))))) + _K25666_ + _E25667_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4103641037_) - (let ((_e2638626457_ + ___stx4111741118_) + (let ((_e2646726538_ (gx#syntax-e - ___stx4103641037_))) - (let ((_tl2638426464_ + ___stx4111741118_))) + (let ((_tl2646526545_ (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 _e2646726538_))) + (_hd2646626542_ + (let () (declare (not safe)) (##car _e2646726538_)))) + (if (gx#stx-datum? _hd2646626542_) + (let ((_e2646826548_ (gx#stx-e _hd2646626542_))) + (if (equal? _e2646826548_ 'simple:) + (if (gx#stx-pair? _tl2646526545_) + (let ((_e2647126552_ + (gx#syntax-e _tl2646526545_))) + (let ((_tl2646926559_ (let () (declare (not safe)) - (##cdr _e2639026471_))) - (_hd2638926475_ + (##cdr _e2647126552_))) + (_hd2647026556_ (let () (declare (not safe)) - (##car _e2639026471_)))) - (if (gx#stx-null? _tl2638826478_) - (___kont4103941040_ _hd2638926475_) + (##car _e2647126552_)))) + (if (gx#stx-null? _tl2646926559_) + (___kont4112041121_ _hd2647026556_) (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_ + (_g2646226485_))))) + (let () (declare (not safe)) (_g2646226485_))) + (if (equal? _e2646826548_ 'list:) + (if (gx#stx-pair? _tl2646526545_) + (let ((_e2647926506_ + (gx#syntax-e _tl2646526545_))) + (let ((_tl2647726513_ (let () (declare (not safe)) - (##cdr _e2639826425_))) - (_hd2639726429_ + (##cdr _e2647926506_))) + (_hd2647826510_ (let () (declare (not safe)) - (##car _e2639826425_)))) - (if (gx#stx-null? _tl2639626432_) - (___kont4104141042_ _hd2639726429_) + (##car _e2647926506_)))) + (if (gx#stx-null? _tl2647726513_) + (___kont4112241123_ _hd2647826510_) (let () (declare (not safe)) - (_g2638126404_))))) + (_g2646226485_))))) (let () (declare (not safe)) - (_g2638126404_))) + (_g2646226485_))) (let () (declare (not safe)) - (_g2638126404_))))) - (let () (declare (not safe)) (_g2638126404_))))) - (let () (declare (not safe)) (_g2638126404_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4122141222_ - (lambda (_L26171_) - (let* ((___stx4098640987_ - _L26171_) - (_g2618626209_ + (_g2646226485_))))) + (let () (declare (not safe)) (_g2646226485_))))) + (let () (declare (not safe)) (_g2646226485_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4130241303_ + (lambda (_L26252_) + (let* ((___stx4106741068_ + _L26252_) + (_g2626726290_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4098640987_)))) - (let ((___kont4098940990_ - (lambda (_L26286_) - (let* ((_g2630026308_ + ___stx4106741068_)))) + (let ((___kont4107041071_ + (lambda (_L26367_) + (let* ((_g2638126389_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2630126304_) + (lambda (_g2638226385_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2630126304_))) - (_g2629926327_ - (lambda (_g2630126312_) - ((lambda (_L26315_) + _g2638226385_))) + (_g2638026408_ + (lambda (_g2638226393_) + ((lambda (_L26396_) (let () (cons 'if (cons (cons (gx#datum->syntax '#f '##vector?) - (cons _L25603_ '())) + (cons _L25684_ '())) (cons (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##vector-length) - (cons _L25603_ '())) - (cons _L26315_ '()))) + (cons _L25684_ '())) + (cons _L26396_ '()))) (cons (let () (declare (not safe)) - (_generate-simple-vector23962_ - _tgt25582_ - _L26286_ + (_generate-simple-vector24043_ + _tgt25663_ + _L26367_ '0 - _K25585_ - _E25586_)) - (cons _E25586_ '())))) + _K25666_ + _E25667_)) + (cons _E25667_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _E25586_ '())))))) - _g2630126312_))) - (__tmp42980 (gx#stx-length _L26286_))) + (cons _E25667_ '())))))) + _g2638226393_))) + (__tmp43054 (gx#stx-length _L26367_))) (declare (not safe)) - (_g2629926327_ __tmp42980)))) - (___kont4099140992_ - (lambda (_L26240_) + (_g2638026408_ __tmp43054)))) + (___kont4107241073_ + (lambda (_L26321_) (cons 'if (cons (cons (gx#datum->syntax '#f '##vector?) - (cons _L25603_ '())) + (cons _L25684_ '())) (cons (let () (declare (not safe)) - (_generate-list-vector23963_ - _tgt25582_ - _L26240_ + (_generate-list-vector24044_ + _tgt25663_ + _L26321_ 'vector->list - _K25585_ - _E25586_)) - (cons _E25586_ '()))))))) + _K25666_ + _E25667_)) + (cons _E25667_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4098640987_) - (let ((_e2619126262_ + ___stx4106741068_) + (let ((_e2627226343_ (gx#syntax-e - ___stx4098640987_))) - (let ((_tl2618926269_ + ___stx4106741068_))) + (let ((_tl2627026350_ (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 _e2627226343_))) + (_hd2627126347_ + (let () (declare (not safe)) (##car _e2627226343_)))) + (if (gx#stx-datum? _hd2627126347_) + (let ((_e2627326353_ (gx#stx-e _hd2627126347_))) + (if (equal? _e2627326353_ 'simple:) + (if (gx#stx-pair? _tl2627026350_) + (let ((_e2627626357_ + (gx#syntax-e _tl2627026350_))) + (let ((_tl2627426364_ (let () (declare (not safe)) - (##cdr _e2619526276_))) - (_hd2619426280_ + (##cdr _e2627626357_))) + (_hd2627526361_ (let () (declare (not safe)) - (##car _e2619526276_)))) - (if (gx#stx-null? _tl2619326283_) - (___kont4098940990_ _hd2619426280_) + (##car _e2627626357_)))) + (if (gx#stx-null? _tl2627426364_) + (___kont4107041071_ _hd2627526361_) (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_ + (_g2626726290_))))) + (let () (declare (not safe)) (_g2626726290_))) + (if (equal? _e2627326353_ 'list:) + (if (gx#stx-pair? _tl2627026350_) + (let ((_e2628426311_ + (gx#syntax-e _tl2627026350_))) + (let ((_tl2628226318_ (let () (declare (not safe)) - (##cdr _e2620326230_))) - (_hd2620226234_ + (##cdr _e2628426311_))) + (_hd2628326315_ (let () (declare (not safe)) - (##car _e2620326230_)))) - (if (gx#stx-null? _tl2620126237_) - (___kont4099140992_ _hd2620226234_) + (##car _e2628426311_)))) + (if (gx#stx-null? _tl2628226318_) + (___kont4107241073_ _hd2628326315_) (let () (declare (not safe)) - (_g2618626209_))))) + (_g2626726290_))))) (let () (declare (not safe)) - (_g2618626209_))) + (_g2626726290_))) (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_))) + (_g2626726290_))))) + (let () (declare (not safe)) (_g2626726290_))))) + (let () (declare (not safe)) (_g2626726290_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4130441305_ + (lambda (_L26203_ _L26205_) + (let ((__tmp43055 + (gx#stx-e _L26205_))) (declare (not safe)) - (_generate-struct23964_ - __tmp42981 - _tgt25582_ - _L26122_ - _K25585_ - _E25586_)))) - (___kont4122541226_ - (lambda (_L26063_ _L26065_) - (let ((__tmp42982 - (gx#stx-e _L26065_))) + (_generate-struct24045_ + __tmp43055 + _tgt25663_ + _L26203_ + _K25666_ + _E25667_)))) + (___kont4130641307_ + (lambda (_L26144_ _L26146_) + (let ((__tmp43056 + (gx#stx-e _L26146_))) (declare (not safe)) - (_generate-class23965_ - __tmp42982 - _tgt25582_ - _L26063_ - _K25585_ - _E25586_)))) - (___kont4122741228_ - (lambda (_L25966_) - (let* ((_g2598025988_ - (lambda (_g2598125984_) + (_generate-class24046_ + __tmp43056 + _tgt25663_ + _L26144_ + _K25666_ + _E25667_)))) + (___kont4130841309_ + (lambda (_L26047_) + (let* ((_g2606126069_ + (lambda (_g2606226065_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2598125984_))) - (_g2597926007_ - (lambda (_g2598125992_) - ((lambda (_L25995_) + _g2606226065_))) + (_g2606026088_ + (lambda (_g2606226073_) + ((lambda (_L26076_) (let () (cons 'if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _L25995_ - (cons _L25603_ + (cons (cons _L26076_ + (cons _L25684_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L25966_ '())) + (cons _L26047_ '())) '()))) - (cons _K25585_ (cons _E25586_ '())))))) - _g2598125992_))) + (cons _K25666_ (cons _E25667_ '())))))) + _g2606226073_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42983 - (let ((_e26011_ + (__tmp43057 + (let ((_e26092_ (gx#stx-e - _L25966_))) - (if (or (symbol? _e26011_) + _L26047_))) + (if (or (symbol? _e26092_) (keyword? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e26011_) - (immediate? _e26011_)) + _e26092_) + (immediate? _e26092_)) '##eq? - (if (number? _e26011_) 'eqv? 'equal?))))) + (if (number? _e26092_) 'eqv? 'equal?))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2597926007_ __tmp42983)))) - (___kont4122941230_ - (lambda (_L25886_ _L25888_) - (let* ((_g2590425912_ - (lambda (_g2590525908_) + (_g2606026088_ __tmp43057)))) + (___kont4131041311_ + (lambda (_L25967_ _L25969_) + (let* ((_g2598525993_ + (lambda (_g2598625989_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2590525908_))) - (_g2590325931_ - (lambda (_g2590525916_) - ((lambda (_L25919_) + _g2598625989_))) + (_g2598426012_ + (lambda (_g2598625997_) + ((lambda (_L26000_) (let () (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _L25919_ - (cons (cons _L25888_ - (cons _L25603_ '())) + (cons (cons (cons _L26000_ + (cons (cons _L25969_ + (cons _L25684_ '())) '())) '()) (cons (let () (declare (not safe)) - (_generate123959_ - _L25919_ - _L25886_ - _K25585_ - _E25586_)) + (_generate124040_ + _L26000_ + _L25967_ + _K25666_ + _E25667_)) '()))))) - _g2590525916_))) + _g2598625997_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42984 + (__tmp43058 (gx#genident 'e))) (declare (not safe)) - (_g2590325931_ __tmp42984)))) - (___kont4123141232_ - (lambda (_L25828_) + (_g2598426012_ __tmp43058)))) + (___kont4131241313_ + (lambda (_L25909_) (cons 'let - (cons (cons (cons _L25828_ + (cons (cons (cons _L25909_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L25603_ '())) + (cons _L25684_ '())) '()) - (cons _K25585_ '()))))) + (cons _K25666_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4123341234_ - (lambda () _K25585_))) - (if (gx#stx-pair? ___stx4120041201_) - (let ((_e2563627056_ + (___kont4131441315_ + (lambda () _K25666_))) + (if (gx#stx-pair? ___stx4128141282_) + (let ((_e2571727137_ (gx#syntax-e - ___stx4120041201_))) - (let ((_tl2563427063_ + ___stx4128141282_))) + (let ((_tl2571527144_ (let () (declare (not safe)) - (##cdr _e2563627056_))) - (_hd2563527060_ + (##cdr _e2571727137_))) + (_hd2571627141_ (let () (declare (not safe)) - (##car _e2563627056_)))) + (##car _e2571727137_)))) (if (gx#stx-datum? - _hd2563527060_) - (let ((_e2563727066_ + _hd2571627141_) + (let ((_e2571827147_ (gx#stx-e - _hd2563527060_))) - (if (equal? _e2563727066_ + _hd2571627141_))) + (if (equal? _e2571827147_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '?:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2564027070_ (gx#syntax-e _tl2563427063_))) - (let ((_tl2563827077_ + (if (gx#stx-pair? _tl2571527144_) + (let ((_e2572127151_ (gx#syntax-e _tl2571527144_))) + (let ((_tl2571927158_ (let () (declare (not safe)) - (##cdr _e2564027070_))) - (_hd2563927074_ + (##cdr _e2572127151_))) + (_hd2572027155_ (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 _e2572127151_)))) + (___kont4128441285_ _tl2571927158_ _hd2572027155_))) + (let () (declare (not safe)) (_g2571125853_))) + (if (equal? _e2571827147_ 'and:) + (___kont4128641287_ _tl2571527144_) + (if (equal? _e2571827147_ 'or:) + (___kont4128841289_ _tl2571527144_) + (if (equal? _e2571827147_ 'not:) + (if (gx#stx-pair? _tl2571527144_) + (let ((_e2573926920_ + (gx#syntax-e _tl2571527144_))) + (let ((_tl2573726927_ (let () (declare (not safe)) - (##cdr _e2565826839_))) - (_hd2565726843_ + (##cdr _e2573926920_))) + (_hd2573826924_ (let () (declare (not safe)) - (##car _e2565826839_)))) - (if (gx#stx-null? _tl2565626846_) - (___kont4120941210_ _hd2565726843_) + (##car _e2573926920_)))) + (if (gx#stx-null? _tl2573726927_) + (___kont4129041291_ _hd2573826924_) (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_ + (_g2571125853_))))) + (let () (declare (not safe)) (_g2571125853_))) + (if (equal? _e2571827147_ 'cons:) + (if (gx#stx-pair? _tl2571527144_) + (let ((_e2574826792_ + (gx#syntax-e _tl2571527144_))) + (let ((_tl2574626799_ (let () (declare (not safe)) - (##cdr _e2566726711_))) - (_hd2566626715_ + (##cdr _e2574826792_))) + (_hd2574726796_ (let () (declare (not safe)) - (##car _e2566726711_)))) - (if (gx#stx-pair? _tl2566526718_) - (let ((_e2567026721_ + (##car _e2574826792_)))) + (if (gx#stx-pair? _tl2574626799_) + (let ((_e2575126802_ (gx#syntax-e - _tl2566526718_))) - (let ((_tl2566826728_ + _tl2574626799_))) + (let ((_tl2574926809_ (let () (declare (not safe)) - (##cdr _e2567026721_))) - (_hd2566926725_ + (##cdr _e2575126802_))) + (_hd2575026806_ (let () (declare (not safe)) - (##car _e2567026721_)))) + (##car _e2575126802_)))) (if (gx#stx-null? - _tl2566826728_) - (___kont4121141212_ - _hd2566926725_ - _hd2566626715_) + _tl2574926809_) + (___kont4129241293_ + _hd2575026806_ + _hd2574726796_) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2571125853_))))) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2571125853_))))) (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ 'null:) - (if (gx#stx-null? _tl2563427063_) - (___kont4121341214_) + (_g2571125853_))) + (if (equal? _e2571827147_ 'null:) + (if (gx#stx-null? _tl2571527144_) + (___kont4129441295_) (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ 'splice:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2568326627_ + (_g2571125853_))) + (if (equal? _e2571827147_ 'splice:) + (if (gx#stx-pair? _tl2571527144_) + (let ((_e2576426708_ (gx#syntax-e - _tl2563427063_))) - (let ((_tl2568126634_ + _tl2571527144_))) + (let ((_tl2576226715_ (let () (declare (not safe)) - (##cdr _e2568326627_))) - (_hd2568226631_ + (##cdr _e2576426708_))) + (_hd2576326712_ (let () (declare (not safe)) - (##car _e2568326627_)))) + (##car _e2576426708_)))) (if (gx#stx-pair? - _tl2568126634_) - (let ((_e2568626637_ + _tl2576226715_) + (let ((_e2576726718_ (gx#syntax-e - _tl2568126634_))) - (let ((_tl2568426644_ + _tl2576226715_))) + (let ((_tl2576526725_ (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 _e2576726718_))) + (_hd2576626722_ + (let () (declare (not safe)) (##car _e2576726718_)))) + (if (gx#stx-null? _tl2576526725_) + (___kont4129641297_ _hd2576626722_ _hd2576326712_) + (let () (declare (not safe)) (_g2571125853_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2563025772_))))) + (_g2571125853_))))) (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ 'box:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2569426551_ + (_g2571125853_))) + (if (equal? _e2571827147_ 'box:) + (if (gx#stx-pair? _tl2571527144_) + (let ((_e2577526632_ (gx#syntax-e - _tl2563427063_))) - (let ((_tl2569226558_ + _tl2571527144_))) + (let ((_tl2577326639_ (let () (declare (not safe)) - (##cdr _e2569426551_))) - (_hd2569326555_ + (##cdr _e2577526632_))) + (_hd2577426636_ (let () (declare (not safe)) - (##car _e2569426551_)))) + (##car _e2577526632_)))) (if (gx#stx-null? - _tl2569226558_) - (___kont4121741218_ - _hd2569326555_) + _tl2577326639_) + (___kont4129841299_ + _hd2577426636_) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2571125853_))))) (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ + (_g2571125853_))) + (if (equal? _e2571827147_ 'values:) (if (gx#stx-pair? - _tl2563427063_) - (let ((_e2570226356_ + _tl2571527144_) + (let ((_e2578326437_ (gx#syntax-e - _tl2563427063_))) - (let ((_tl2570026363_ + _tl2571527144_))) + (let ((_tl2578126444_ (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 _e2578326437_))) + (_hd2578226441_ + (let () (declare (not safe)) (##car _e2578326437_)))) + (if (gx#stx-null? _tl2578126444_) + (___kont4130041301_ _hd2578226441_) + (let () (declare (not safe)) (_g2571125853_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ + (_g2571125853_))) + (if (equal? _e2571827147_ 'vector:) (if (gx#stx-pair? - _tl2563427063_) - (let ((_e2571026161_ + _tl2571527144_) + (let ((_e2579126242_ (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_))) + _tl2571527144_))) + (let ((_tl2578926249_ + (let () (declare (not safe)) (##cdr _e2579126242_))) + (_hd2579026246_ + (let () (declare (not safe)) (##car _e2579126242_)))) + (if (gx#stx-null? _tl2578926249_) + (___kont4130241303_ _hd2579026246_) + (let () (declare (not safe)) (_g2571125853_))))) + (let () (declare (not safe)) (_g2571125853_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _e2563727066_ + (if (equal? _e2571827147_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'struct:) - (if (gx#stx-pair? _tl2563427063_) - (let ((_e2571926102_ (gx#syntax-e _tl2563427063_))) - (let ((_tl2571726109_ + (if (gx#stx-pair? _tl2571527144_) + (let ((_e2580026183_ (gx#syntax-e _tl2571527144_))) + (let ((_tl2579826190_ (let () (declare (not safe)) - (##cdr _e2571926102_))) - (_hd2571826106_ + (##cdr _e2580026183_))) + (_hd2579926187_ (let () (declare (not safe)) - (##car _e2571926102_)))) - (if (gx#stx-pair? _tl2571726109_) - (let ((_e2572226112_ - (gx#syntax-e _tl2571726109_))) - (let ((_tl2572026119_ + (##car _e2580026183_)))) + (if (gx#stx-pair? _tl2579826190_) + (let ((_e2580326193_ + (gx#syntax-e _tl2579826190_))) + (let ((_tl2580126200_ (let () (declare (not safe)) - (##cdr _e2572226112_))) - (_hd2572126116_ + (##cdr _e2580326193_))) + (_hd2580226197_ (let () (declare (not safe)) - (##car _e2572226112_)))) - (if (gx#stx-null? _tl2572026119_) - (___kont4122341224_ - _hd2572126116_ - _hd2571826106_) + (##car _e2580326193_)))) + (if (gx#stx-null? _tl2580126200_) + (___kont4130441305_ + _hd2580226197_ + _hd2579926187_) (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_ + (_g2571125853_))))) + (let () (declare (not safe)) (_g2571125853_))))) + (let () (declare (not safe)) (_g2571125853_))) + (if (equal? _e2571827147_ 'class:) + (if (gx#stx-pair? _tl2571527144_) + (let ((_e2581226124_ (gx#syntax-e _tl2571527144_))) + (let ((_tl2581026131_ (let () (declare (not safe)) - (##cdr _e2573126043_))) - (_hd2573026047_ + (##cdr _e2581226124_))) + (_hd2581126128_ (let () (declare (not safe)) - (##car _e2573126043_)))) - (if (gx#stx-pair? _tl2572926050_) - (let ((_e2573426053_ - (gx#syntax-e _tl2572926050_))) - (let ((_tl2573226060_ + (##car _e2581226124_)))) + (if (gx#stx-pair? _tl2581026131_) + (let ((_e2581526134_ + (gx#syntax-e _tl2581026131_))) + (let ((_tl2581326141_ (let () (declare (not safe)) - (##cdr _e2573426053_))) - (_hd2573326057_ + (##cdr _e2581526134_))) + (_hd2581426138_ (let () (declare (not safe)) - (##car _e2573426053_)))) - (if (gx#stx-null? _tl2573226060_) - (___kont4122541226_ - _hd2573326057_ - _hd2573026047_) + (##car _e2581526134_)))) + (if (gx#stx-null? _tl2581326141_) + (___kont4130641307_ + _hd2581426138_ + _hd2581126128_) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2571125853_))))) (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_ + (_g2571125853_))))) + (let () (declare (not safe)) (_g2571125853_))) + (if (equal? _e2571827147_ 'datum:) + (if (gx#stx-pair? _tl2571527144_) + (let ((_e2582326037_ + (gx#syntax-e _tl2571527144_))) + (let ((_tl2582126044_ (let () (declare (not safe)) - (##cdr _e2574225956_))) - (_hd2574125960_ + (##cdr _e2582326037_))) + (_hd2582226041_ (let () (declare (not safe)) - (##car _e2574225956_)))) - (if (gx#stx-null? _tl2574025963_) - (___kont4122741228_ _hd2574125960_) + (##car _e2582326037_)))) + (if (gx#stx-null? _tl2582126044_) + (___kont4130841309_ _hd2582226041_) (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_ + (_g2571125853_))))) + (let () (declare (not safe)) (_g2571125853_))) + (if (equal? _e2571827147_ 'apply:) + (if (gx#stx-pair? _tl2571527144_) + (let ((_e2583225947_ + (gx#syntax-e _tl2571527144_))) + (let ((_tl2583025954_ (let () (declare (not safe)) - (##cdr _e2575125866_))) - (_hd2575025870_ + (##cdr _e2583225947_))) + (_hd2583125951_ (let () (declare (not safe)) - (##car _e2575125866_)))) - (if (gx#stx-pair? _tl2574925873_) - (let ((_e2575425876_ - (gx#syntax-e _tl2574925873_))) - (let ((_tl2575225883_ + (##car _e2583225947_)))) + (if (gx#stx-pair? _tl2583025954_) + (let ((_e2583525957_ + (gx#syntax-e _tl2583025954_))) + (let ((_tl2583325964_ (let () (declare (not safe)) - (##cdr _e2575425876_))) - (_hd2575325880_ + (##cdr _e2583525957_))) + (_hd2583425961_ (let () (declare (not safe)) - (##car _e2575425876_)))) - (if (gx#stx-null? _tl2575225883_) - (___kont4122941230_ - _hd2575325880_ - _hd2575025870_) + (##car _e2583525957_)))) + (if (gx#stx-null? _tl2583325964_) + (___kont4131041311_ + _hd2583425961_ + _hd2583125951_) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2571125853_))))) (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_ + (_g2571125853_))))) + (let () (declare (not safe)) (_g2571125853_))) + (if (equal? _e2571827147_ 'var:) + (if (gx#stx-pair? _tl2571527144_) + (let ((_e2584325899_ + (gx#syntax-e _tl2571527144_))) + (let ((_tl2584125906_ (let () (declare (not safe)) - (##cdr _e2576225818_))) - (_hd2576125822_ + (##cdr _e2584325899_))) + (_hd2584225903_ (let () (declare (not safe)) - (##car _e2576225818_)))) - (if (gx#stx-null? _tl2576025825_) - (___kont4123141232_ - _hd2576125822_) + (##car _e2584325899_)))) + (if (gx#stx-null? _tl2584125906_) + (___kont4131241313_ + _hd2584225903_) (let () (declare (not safe)) - (_g2563025772_))))) + (_g2571125853_))))) (let () (declare (not safe)) - (_g2563025772_))) - (if (equal? _e2563727066_ 'any:) - (if (gx#stx-null? _tl2563427063_) - (___kont4123341234_) + (_g2571125853_))) + (if (equal? _e2571827147_ 'any:) + (if (gx#stx-null? _tl2571527144_) + (___kont4131441315_) (let () (declare (not safe)) - (_g2563025772_))) + (_g2571125853_))) (let () (declare (not safe)) - (_g2563025772_))))))))))))))))))) + (_g2571125853_))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2563025772_))))) + (_g2571125853_))))) (let () (declare (not safe)) - (_g2563025772_))))))) - _g2558925600_)))) + (_g2571125853_))))))) + _g2567025681_)))) (declare (not safe)) - (_g2558727365_ _tgt25582_)))) - (_generate-splice23961_ - (lambda (_tgt24954_ _hd24956_ _rest24957_ _K24958_ _E24959_) - (let* ((_g2496124978_ - (lambda (_g2496224974_) + (_g2566827446_ _tgt25663_)))) + (_generate-splice24042_ + (lambda (_tgt25035_ _hd25037_ _rest25038_ _K25039_ _E25040_) + (let* ((_g2504225059_ + (lambda (_g2504325055_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2496224974_))) - (_g2496025578_ - (lambda (_g2496224982_) - (if (gx#stx-pair/null? _g2496224982_) - (let ((_g42985_ + _g2504325055_))) + (_g2504125659_ + (lambda (_g2504325063_) + (if (gx#stx-pair/null? _g2504325063_) + (let ((_g43059_ (gx#syntax-split-splice - _g2496224982_ + _g2504325063_ '0))) (begin - (let ((_g42986_ + (let ((_g43060_ (let () (declare (not safe)) - (if (##values? _g42985_) - (##vector-length _g42985_) + (if (##values? _g43059_) + (##vector-length _g43059_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42986_ 2))) + (##fx= _g43060_ 2))) (error "Context expects 2 values" - _g42986_))) - (let ((_target2496424985_ + _g43060_))) + (let ((_target2504525066_ (let () (declare (not safe)) - (##vector-ref _g42985_ 0))) - (_tl2496624988_ + (##vector-ref _g43059_ 0))) + (_tl2504725069_ (let () (declare (not safe)) - (##vector-ref _g42985_ 1)))) - (if (gx#stx-null? _tl2496624988_) - (letrec ((_loop2496724991_ - (lambda (_hd2496524995_ - _var2497124998_) + (##vector-ref _g43059_ 1)))) + (if (gx#stx-null? _tl2504725069_) + (letrec ((_loop2504825072_ + (lambda (_hd2504625076_ + _var2505225079_) (if (gx#stx-pair? - _hd2496524995_) - (let ((_e2496825001_ + _hd2504625076_) + (let ((_e2504925082_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd2496524995_))) - (let ((_lp-hd2496925005_ + (gx#syntax-e _hd2504625076_))) + (let ((_lp-hd2505025086_ (let () (declare (not safe)) - (##car _e2496825001_))) - (_lp-tl2497025008_ + (##car _e2504925082_))) + (_lp-tl2505125089_ (let () (declare (not safe)) - (##cdr _e2496825001_)))) - (let ((__tmp43004 - (cons _lp-hd2496925005_ _var2497124998_))) + (##cdr _e2504925082_)))) + (let ((__tmp43078 + (cons _lp-hd2505025086_ _var2505225079_))) (declare (not safe)) - (_loop2496724991_ _lp-tl2497025008_ __tmp43004)))) - (let ((_var2497225011_ (reverse _var2497124998_))) - ((lambda (_L25015_) + (_loop2504825072_ _lp-tl2505125089_ __tmp43078)))) + (let ((_var2505325092_ (reverse _var2505225079_))) + ((lambda (_L25096_) (let () - (let* ((_g2503125048_ - (lambda (_g2503225044_) + (let* ((_g2511225129_ + (lambda (_g2511325125_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2503225044_))) - (_g2503025566_ - (lambda (_g2503225052_) - (if (gx#stx-pair/null? _g2503225052_) - (let ((_g42987_ + _g2511325125_))) + (_g2511125647_ + (lambda (_g2511325133_) + (if (gx#stx-pair/null? _g2511325133_) + (let ((_g43061_ (gx#syntax-split-splice - _g2503225052_ + _g2511325133_ '0))) (begin - (let ((_g42988_ + (let ((_g43062_ (let () (declare (not safe)) - (if (##values? _g42987_) + (if (##values? _g43061_) (##vector-length - _g42987_) + _g43061_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42988_ 2))) + (##fx= _g43062_ 2))) (error "Context expects 2 values" - _g42988_))) - (let ((_target2503425055_ + _g43062_))) + (let ((_target2511525136_ (let () (declare (not safe)) (##vector-ref - _g42987_ + _g43061_ 0))) - (_tl2503625058_ + (_tl2511725139_ (let () (declare (not safe)) (##vector-ref - _g42987_ + _g43061_ 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_ + _tl2511725139_) + (letrec ((_loop2511825142_ + (lambda (_hd2511625146_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _var-r2512225149_) + (if (gx#stx-pair? _hd2511625146_) + (let ((_e2511925152_ (gx#syntax-e _hd2511625146_))) + (let ((_lp-hd2512025156_ (let () (declare (not safe)) - (##car _e2503825071_))) - (_lp-tl2504025078_ + (##car _e2511925152_))) + (_lp-tl2512125159_ (let () (declare (not safe)) - (##cdr _e2503825071_)))) - (let ((__tmp43002 - (cons _lp-hd2503925075_ - _var-r2504125068_))) + (##cdr _e2511925152_)))) + (let ((__tmp43076 + (cons _lp-hd2512025156_ + _var-r2512225149_))) (declare (not safe)) - (_loop2503725061_ - _lp-tl2504025078_ - __tmp43002)))) - (let ((_var-r2504225081_ - (reverse _var-r2504125068_))) - ((lambda (_L25085_) + (_loop2511825142_ + _lp-tl2512125159_ + __tmp43076)))) + (let ((_var-r2512325162_ + (reverse _var-r2512225149_))) + ((lambda (_L25166_) (let () - (let* ((_g2510225119_ - (lambda (_g2510325115_) + (let* ((_g2518325200_ + (lambda (_g2518425196_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2510325115_))) - (_g2510125554_ - (lambda (_g2510325123_) + _g2518425196_))) + (_g2518225635_ + (lambda (_g2518425204_) (if (gx#stx-pair/null? - _g2510325123_) - (let ((_g42989_ + _g2518425204_) + (let ((_g43063_ (gx#syntax-split-splice - _g2510325123_ + _g2518425204_ '0))) (begin - (let ((_g42990_ + (let ((_g43064_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42989_) - (##vector-length _g42989_) + _g43063_) + (##vector-length _g43063_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42990_ 2))) - (error "Context expects 2 values" _g42990_))) + (if (not (let () (declare (not safe)) (##fx= _g43064_ 2))) + (error "Context expects 2 values" _g43064_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2510525126_ + (let ((_target2518625207_ (let () (declare (not safe)) (##vector-ref - _g42989_ + _g43063_ 0))) - (_tl2510725129_ + (_tl2518825210_ (let () (declare (not safe)) (##vector-ref - _g42989_ + _g43063_ 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_ + _tl2518825210_) + (letrec ((_loop2518925213_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd2518725217_ _init2519325220_) + (if (gx#stx-pair? _hd2518725217_) + (let ((_e2519025223_ + (gx#syntax-e _hd2518725217_))) + (let ((_lp-hd2519125227_ (let () (declare (not safe)) - (##car _e2510925142_))) - (_lp-tl2511125149_ + (##car _e2519025223_))) + (_lp-tl2519225230_ (let () (declare (not safe)) - (##cdr _e2510925142_)))) - (let ((__tmp43000 - (cons _lp-hd2511025146_ - _init2511225139_))) + (##cdr _e2519025223_)))) + (let ((__tmp43074 + (cons _lp-hd2519125227_ + _init2519325220_))) (declare (not safe)) - (_loop2510825132_ - _lp-tl2511125149_ - __tmp43000)))) - (let ((_init2511325152_ - (reverse _init2511225139_))) - ((lambda (_L25156_) + (_loop2518925213_ + _lp-tl2519225230_ + __tmp43074)))) + (let ((_init2519425233_ + (reverse _init2519325220_))) + ((lambda (_L25237_) (let () - (let* ((_g2517325181_ - (lambda (_g2517425177_) + (let* ((_g2525425262_ + (lambda (_g2525525258_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2517425177_))) - (_g2517225550_ - (lambda (_g2517425185_) - ((lambda (_L25188_) + _g2525525258_))) + (_g2525325631_ + (lambda (_g2525525266_) + ((lambda (_L25269_) (let () - (let* ((_g2520125209_ - (lambda (_g2520225205_) + (let* ((_g2528225290_ + (lambda (_g2528325286_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax" - _g2520225205_))) - (_g2520025546_ - (lambda (_g2520225213_) - ((lambda (_L25216_) + _g2528325286_))) + (_g2528125627_ + (lambda (_g2528325294_) + ((lambda (_L25297_) (let () - (let* ((_g2522925237_ - (lambda (_g2523025233_) + (let* ((_g2531025318_ + (lambda (_g2531125314_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2523025233_))) - (_g2522825542_ - (lambda (_g2523025241_) - ((lambda (_L25244_) + _g2531125314_))) + (_g2530925623_ + (lambda (_g2531125322_) + ((lambda (_L25325_) (let () - (let* ((_g2525725265_ - (lambda (_g2525825261_) + (let* ((_g2533825346_ + (lambda (_g2533925342_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2525825261_))) - (_g2525625538_ - (lambda (_g2525825269_) - ((lambda (_L25272_) + _g2533925342_))) + (_g2533725619_ + (lambda (_g2533925350_) + ((lambda (_L25353_) (let () - (let* ((_g2528525293_ + (let* ((_g2536625374_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2528625289_) + (lambda (_g2536725370_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2528625289_))) - (_g2528425534_ - (lambda (_g2528625297_) - ((lambda (_L25300_) + _g2536725370_))) + (_g2536525615_ + (lambda (_g2536725378_) + ((lambda (_L25381_) (let () - (let* ((_g2531325321_ - (lambda (_g2531425317_) + (let* ((_g2539425402_ + (lambda (_g2539525398_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2531425317_))) - (_g2531225530_ - (lambda (_g2531425325_) - ((lambda (_L25328_) + _g2539525398_))) + (_g2539325611_ + (lambda (_g2539525406_) + ((lambda (_L25409_) (let () - (let* ((_g2534125349_ - (lambda (_g2534225345_) + (let* ((_g2542225430_ + (lambda (_g2542325426_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2534225345_))) - (_g2534025526_ - (lambda (_g2534225353_) - ((lambda (_L25356_) + _g2542325426_))) + (_g2542125607_ + (lambda (_g2542325434_) + ((lambda (_L25437_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g2536925377_ - (lambda (_g2537025373_) + (let* ((_g2545025458_ + (lambda (_g2545125454_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2537025373_))) - (_g2536825511_ - (lambda (_g2537025381_) - ((lambda (_L25384_) + _g2545125454_))) + (_g2544925592_ + (lambda (_g2545125462_) + ((lambda (_L25465_) (let () - (let* ((_g2539725405_ - (lambda (_g2539825401_) + (let* ((_g2547825486_ + (lambda (_g2547925482_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2539825401_))) - (_g2539625499_ - (lambda (_g2539825409_) - ((lambda (_L25412_) + _g2547925482_))) + (_g2547725580_ + (lambda (_g2547925490_) + ((lambda (_L25493_) (let () - (let* ((_g2542525433_ - (lambda (_g2542625429_) + (let* ((_g2550625514_ + (lambda (_g2550725510_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax" - _g2542625429_))) - (_g2542425495_ - (lambda (_g2542625437_) - ((lambda (_L25440_) + _g2550725510_))) + (_g2550525576_ + (lambda (_g2550725518_) + ((lambda (_L25521_) (let () (let () (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _L25216_ + (cons (cons (cons _L25297_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons (cons _L25328_ - (foldr (lambda (_g2546225465_ - _g2546325468_) - (cons _g2546225465_ - _g2546325468_)) + (cons (cons _L25409_ + (foldr (lambda (_g2554325546_ + _g2554425549_) + (cons _g2554325546_ + _g2554425549_)) '() - _L25015_)) - (cons _L25356_ '()))) + _L25096_)) + (cons _L25437_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L25272_ + (cons (cons _L25353_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons (cons _L25300_ - (cons _L25328_ - (foldr (lambda (_g2546025471_ + (cons (cons _L25381_ + (cons _L25409_ + (foldr (lambda (_g2554125552_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2546125474_) - (cons _g2546025471_ _g2546125474_)) + _g2554225555_) + (cons _g2554125552_ _g2554225555_)) '() - _L25085_))) + _L25166_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L25440_ '()))) + (cons _L25521_ '()))) '())) - (cons (cons _L25244_ + (cons (cons _L25325_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _L25328_ - (foldr (lambda (_g2545825477_ + (cons (cons _L25409_ + (foldr (lambda (_g2553925558_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2545925480_) - (cons _g2545825477_ _g2545925480_)) + _g2554025561_) + (cons _g2553925558_ _g2554025561_)) '() - _L25085_)) + _L25166_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -3712,1267 +3712,1267 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'pair?) - (cons _L25328_ '())) - (cons (cons _L25272_ + (cons _L25409_ '())) + (cons (cons _L25353_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _L25328_ '())) - (cons _L25328_ - (foldr (lambda (_g2545625483_ + (cons _L25409_ '())) + (cons _L25409_ + (foldr (lambda (_g2553725564_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2545725486_) - (cons _g2545625483_ _g2545725486_)) + _g2553825567_) + (cons _g2553725564_ _g2553825567_)) '() - _L25085_)))) + _L25166_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L25412_ '())))) + (cons _L25493_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L25244_ - (cons _L25188_ - (foldr (lambda (_g2545425489_ + (cons (cons _L25325_ + (cons _L25269_ + (foldr (lambda (_g2553525570_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2545525492_) - (cons _g2545425489_ _g2545525492_)) + _g2553625573_) + (cons _g2553525570_ _g2553625573_)) '() - _L25156_))) + _L25237_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _g2542625437_))) - (__tmp42991 + _g2550725518_))) + (__tmp43065 (let () (declare (not safe)) - (_generate123959_ - _L25300_ - _hd24956_ - _L25384_ - _L25412_)))) + (_generate124040_ + _L25381_ + _hd25037_ + _L25465_ + _L25493_)))) (declare (not safe)) - (_g2542425495_ __tmp42991)))) + (_g2550525576_ __tmp43065)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2539825409_))) - (__tmp42992 - (cons _L25216_ - (cons _L25328_ - (foldr (lambda (_g2550225505_ + _g2547925490_))) + (__tmp43066 + (cons _L25297_ + (cons _L25409_ + (foldr (lambda (_g2558325586_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2550325508_) + _g2558425589_) (cons (cons (gx#datum->syntax '#f 'reverse) - (cons _g2550225505_ '())) - _g2550325508_)) + (cons _g2558325586_ '())) + _g2558425589_)) '() - _L25085_))))) + _L25166_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2539625499_ __tmp42992)))) - _g2537025381_))) - (__tmp42993 - (cons _L25244_ + (_g2547725580_ __tmp43066)))) + _g2545125462_))) + (__tmp43067 + (cons _L25325_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _L25328_ '())) + (cons _L25409_ '())) (begin (gx#syntax-check-splice-targets - _L25085_ - _L25015_) - (foldr (lambda (_g2551425518_ - _g2551525521_ - _g2551625523_) + _L25166_ + _L25096_) + (foldr (lambda (_g2559525599_ + _g2559625602_ + _g2559725604_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'cons) - (cons _g2551525521_ (cons _g2551425518_ '()))) - _g2551625523_)) + (cons _g2559625602_ (cons _g2559525599_ '()))) + _g2559725604_)) '() - _L25085_ - _L25015_)))))) + _L25166_ + _L25096_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2536825511_ __tmp42993)))) - _g2534225353_))) - (__tmp42994 + (_g2544925592_ __tmp43067)))) + _g2542325434_))) + (__tmp43068 (let () (declare (not safe)) - (_generate123959_ - _L25328_ - _rest24957_ - _K24958_ - _E24959_)))) + (_generate124040_ + _L25409_ + _rest25038_ + _K25039_ + _E25040_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2534025526_ - __tmp42994)))) - _g2531425325_))) - (__tmp42995 (gx#genident 'rest))) + (_g2542125607_ + __tmp43068)))) + _g2539525406_))) + (__tmp43069 (gx#genident 'rest))) (declare (not safe)) - (_g2531225530_ __tmp42995)))) - _g2528625297_))) - (__tmp42996 (gx#genident 'hd))) + (_g2539325611_ __tmp43069)))) + _g2536725378_))) + (__tmp43070 (gx#genident 'hd))) (declare (not safe)) - (_g2528425534_ __tmp42996)))) - _g2525825269_))) + (_g2536525615_ __tmp43070)))) + _g2533925350_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42997 + (__tmp43071 (gx#genident 'splice-try))) (declare (not safe)) - (_g2525625538_ __tmp42997)))) - _g2523025241_))) - (__tmp42998 (gx#genident 'splice-loop))) + (_g2533725619_ __tmp43071)))) + _g2531125322_))) + (__tmp43072 (gx#genident 'splice-loop))) (declare (not safe)) - (_g2522825542_ __tmp42998)))) - _g2520225213_))) - (__tmp42999 (gx#genident 'splice-rest))) + (_g2530925623_ __tmp43072)))) + _g2528325294_))) + (__tmp43073 (gx#genident 'splice-rest))) (declare (not safe)) - (_g2520025546_ __tmp42999)))) + (_g2528125627_ __tmp43073)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2517425185_)))) + _g2525525266_)))) (declare (not safe)) - (_g2517225550_ _tgt24954_)))) - _init2511325152_)))))) + (_g2525325631_ _tgt25035_)))) + _init2519425233_)))))) (let () (declare (not safe)) - (_loop2510825132_ _target2510525126_ '()))) + (_loop2518925213_ _target2518625207_ '()))) (let () (declare (not safe)) - (_g2510225119_ _g2510325123_)))))) + (_g2518325200_ _g2518425204_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2510225119_ - _g2510325123_))))) - (__tmp43001 + (_g2518325200_ + _g2518425204_))))) + (__tmp43075 (make-list (gx#stx-length - (foldr (lambda (_g2555725560_ - _g2555825563_) - (cons _g2555725560_ - _g2555825563_)) + (foldr (lambda (_g2563825641_ + _g2563925644_) + (cons _g2563825641_ + _g2563925644_)) '() - _L25015_)) + _L25096_)) (cons (gx#datum->syntax '#f '@list) '())))) (declare (not safe)) - (_g2510125554_ __tmp43001)))) - _var-r2504225081_)))))) + (_g2518225635_ __tmp43075)))) + _var-r2512325162_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2503725061_ - _target2503425055_ + (_loop2511825142_ + _target2511525136_ '()))) (let () (declare (not safe)) - (_g2503125048_ - _g2503225052_)))))) + (_g2511225129_ + _g2511325133_)))))) (let () (declare (not safe)) - (_g2503125048_ _g2503225052_))))) - (__tmp43003 + (_g2511225129_ _g2511325133_))))) + (__tmp43077 (gx#gentemps - (foldr (lambda (_g2556925572_ - _g2557025575_) - (cons _g2556925572_ - _g2557025575_)) + (foldr (lambda (_g2565025653_ + _g2565125656_) + (cons _g2565025653_ + _g2565125656_)) '() - _L25015_)))) + _L25096_)))) (declare (not safe)) - (_g2503025566_ __tmp43003)))) - _var2497225011_)))))) + (_g2511125647_ __tmp43077)))) + _var2505325092_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2496724991_ - _target2496424985_ + (_loop2504825072_ + _target2504525066_ '()))) (let () (declare (not safe)) - (_g2496124978_ - _g2496224982_)))))) + (_g2504225059_ + _g2504325063_)))))) (let () (declare (not safe)) - (_g2496124978_ _g2496224982_))))) - (__tmp43005 + (_g2504225059_ _g2504325063_))))) + (__tmp43079 (let () (declare (not safe)) (|gerbil/core$[1]#match-pattern-vars| - _hd24956_)))) + _hd25037_)))) (declare (not safe)) - (_g2496025578_ __tmp43005)))) - (_generate-simple-vector23962_ - (lambda (_tgt24796_ - _body24798_ - _start24799_ - _K24800_ - _E24801_) - (let _recur24803_ ((_rest24806_ _body24798_) - (_off24808_ _start24799_)) - (let* ((___stx4155841559_ _rest24806_) - (_g2481124823_ + (_g2504125659_ __tmp43079)))) + (_generate-simple-vector24043_ + (lambda (_tgt24877_ + _body24879_ + _start24880_ + _K24881_ + _E24882_) + (let _recur24884_ ((_rest24887_ _body24879_) + (_off24889_ _start24880_)) + (let* ((___stx4163941640_ _rest24887_) + (_g2489224904_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4155841559_)))) - (let ((___kont4156141562_ - (lambda (_L24851_ _L24853_) - (let* ((_g2486824887_ - (lambda (_g2486924883_) + ___stx4163941640_)))) + (let ((___kont4164241643_ + (lambda (_L24932_ _L24934_) + (let* ((_g2494924968_ + (lambda (_g2495024964_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2486924883_))) - (_g2486724946_ - (lambda (_g2486924891_) - (if (gx#stx-pair? _g2486924891_) - (let ((_e2487524894_ + _g2495024964_))) + (_g2494825027_ + (lambda (_g2495024972_) + (if (gx#stx-pair? _g2495024972_) + (let ((_e2495624975_ (gx#syntax-e - _g2486924891_))) - (let ((_hd2487424898_ + _g2495024972_))) + (let ((_hd2495524979_ (let () (declare (not safe)) - (##car _e2487524894_))) - (_tl2487324901_ + (##car _e2495624975_))) + (_tl2495424982_ (let () (declare (not safe)) - (##cdr _e2487524894_)))) + (##cdr _e2495624975_)))) (if (gx#stx-pair? - _tl2487324901_) - (let ((_e2487824904_ + _tl2495424982_) + (let ((_e2495924985_ (gx#syntax-e - _tl2487324901_))) - (let ((_hd2487724908_ + _tl2495424982_))) + (let ((_hd2495824989_ (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 _e2495924985_))) + (_tl2495724992_ + (let () (declare (not safe)) (##cdr _e2495924985_)))) + (if (gx#stx-pair? _tl2495724992_) + (let ((_e2496224995_ (gx#syntax-e _tl2495724992_))) + (let ((_hd2496124999_ (let () (declare (not safe)) - (##car _e2488124914_))) - (_tl2487924921_ + (##car _e2496224995_))) + (_tl2496025002_ (let () (declare (not safe)) - (##cdr _e2488124914_)))) - (if (gx#stx-null? _tl2487924921_) - ((lambda (_L24924_ _L24926_ _L24927_) + (##cdr _e2496224995_)))) + (if (gx#stx-null? _tl2496025002_) + ((lambda (_L25005_ _L25007_ _L25008_) (let () (cons 'let - (cons (cons (cons _L24927_ + (cons (cons (cons _L25008_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _L24926_ (cons _L24924_ '()))) + (cons _L25007_ (cons _L25005_ '()))) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (let ((__tmp43006 - (let ((__tmp43007 + (cons (let ((__tmp43080 + (let ((__tmp43081 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (fx1+ _off24808_))) + (fx1+ _off24889_))) (declare (not safe)) - (_recur24803_ _L24851_ __tmp43007)))) + (_recur24884_ _L24932_ __tmp43081)))) (declare (not safe)) - (_generate123959_ _L24927_ _L24853_ __tmp43006 _E24801_)) + (_generate124040_ _L25008_ _L24934_ __tmp43080 _E24882_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2488024918_ - _hd2487724908_ - _hd2487424898_) + _hd2496124999_ + _hd2495824989_ + _hd2495524979_) (let () (declare (not safe)) - (_g2486824887_ _g2486924891_))))) + (_g2494924968_ _g2495024972_))))) (let () (declare (not safe)) - (_g2486824887_ _g2486924891_))))) - (let () (declare (not safe)) (_g2486824887_ _g2486924891_))))) + (_g2494924968_ _g2495024972_))))) + (let () (declare (not safe)) (_g2494924968_ _g2495024972_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2486824887_ - _g2486924891_))))) - (__tmp43008 + (_g2494924968_ + _g2495024972_))))) + (__tmp43082 (list (gx#genident 'e) - _tgt24796_ - _off24808_))) + _tgt24877_ + _off24889_))) (declare (not safe)) - (_g2486724946_ __tmp43008)))) - (___kont4156341564_ (lambda () _K24800_))) - (if (gx#stx-pair? ___stx4155841559_) - (let ((_e2481724841_ - (gx#syntax-e ___stx4155841559_))) - (let ((_tl2481524848_ + (_g2494825027_ __tmp43082)))) + (___kont4164441645_ (lambda () _K24881_))) + (if (gx#stx-pair? ___stx4163941640_) + (let ((_e2489824922_ + (gx#syntax-e ___stx4163941640_))) + (let ((_tl2489624929_ (let () (declare (not safe)) - (##cdr _e2481724841_))) - (_hd2481624845_ + (##cdr _e2489824922_))) + (_hd2489724926_ (let () (declare (not safe)) - (##car _e2481724841_)))) - (___kont4156141562_ - _tl2481524848_ - _hd2481624845_))) - (___kont4156341564_))))))) - (_generate-list-vector23963_ - (lambda (_tgt24688_ - _body24690_ - _->list24691_ - _K24692_ - _E24693_) - (let* ((_g2469524703_ - (lambda (_g2469624699_) + (##car _e2489824922_)))) + (___kont4164241643_ + _tl2489624929_ + _hd2489724926_))) + (___kont4164441645_))))))) + (_generate-list-vector24044_ + (lambda (_tgt24769_ + _body24771_ + _->list24772_ + _K24773_ + _E24774_) + (let* ((_g2477624784_ + (lambda (_g2477724780_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2469624699_))) - (_g2469424792_ - (lambda (_g2469624707_) - ((lambda (_L24710_) + _g2477724780_))) + (_g2477524873_ + (lambda (_g2477724788_) + ((lambda (_L24791_) (let () - (let* ((_g2472224730_ - (lambda (_g2472324726_) + (let* ((_g2480324811_ + (lambda (_g2480424807_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2472324726_))) - (_g2472124788_ - (lambda (_g2472324734_) - ((lambda (_L24737_) + _g2480424807_))) + (_g2480224869_ + (lambda (_g2480424815_) + ((lambda (_L24818_) (let () - (let* ((_g2475024758_ - (lambda (_g2475124754_) + (let* ((_g2483124839_ + (lambda (_g2483224835_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2475124754_))) - (_g2474924780_ - (lambda (_g2475124762_) - ((lambda (_L24765_) + _g2483224835_))) + (_g2483024861_ + (lambda (_g2483224843_) + ((lambda (_L24846_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (cons 'let - (cons (cons (cons _L24710_ - (cons _L24765_ '())) + (cons (cons (cons _L24791_ + (cons _L24846_ '())) '()) (cons (let () (declare (not safe)) - (_generate123959_ - _L24710_ - _body24690_ - _K24692_ - _E24693_)) + (_generate124040_ + _L24791_ + _body24771_ + _K24773_ + _E24774_)) '())))))) - _g2475124762_))) - (__tmp43009 - (let ((_$e24784_ _->list24691_)) - (if (eq? 'values->list _$e24784_) + _g2483224843_))) + (__tmp43083 + (let ((_$e24865_ _->list24772_)) + (if (eq? 'values->list _$e24865_) (cons (gx#datum->syntax '#f 'values->list) - (cons _L24737_ '())) - (if (eq? 'vector->list _$e24784_) + (cons _L24818_ '())) + (if (eq? 'vector->list _$e24865_) (cons (gx#datum->syntax '#f '##vector->list) - (cons _L24737_ '())) - (if (eq? 'struct->list _$e24784_) + (cons _L24818_ '())) + (if (eq? 'struct->list _$e24865_) (cons (gx#datum->syntax '#f '##cdr) (cons (cons (gx#datum->syntax '#f '##vector->list) - (cons _L24737_ '())) + (cons _L24818_ '())) '())) (gx#raise-syntax-error '#f '"Unexpected list conversion" - _stx23952_ - _->list24691_))))))) + _stx24033_ + _->list24772_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2474924780_ - __tmp43009)))) - _g2472324734_)))) + (_g2483024861_ + __tmp43083)))) + _g2480424815_)))) (declare (not safe)) - (_g2472124788_ _tgt24688_)))) - _g2469624707_))) - (__tmp43010 (gx#genident 'e))) + (_g2480224869_ _tgt24769_)))) + _g2477724788_))) + (__tmp43084 (gx#genident 'e))) (declare (not safe)) - (_g2469424792_ __tmp43010)))) - (_generate-struct23964_ - (lambda (_info24346_ - _tgt24348_ - _body24349_ - _K24350_ - _E24351_) - (let* ((_rtd24353_ + (_g2477524873_ __tmp43084)))) + (_generate-struct24045_ + (lambda (_info24427_ + _tgt24429_ + _body24430_ + _K24431_ + _E24432_) + (let* ((_rtd24434_ (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#extended-struct-info::t| - _info24346_)) + _info24427_)) (let () (declare (not safe)) (unchecked-slot-ref - _info24346_ + _info24427_ 'type-exhibitor)) '#f)) - (_fields24363_ - (let _lp24356_ ((_rtd24359_ _rtd24353_) - (_k24361_ '0)) - (if _rtd24359_ - (let ((__tmp43012 - (let ((__tmp43013 + (_fields24444_ + (let _lp24437_ ((_rtd24440_ _rtd24434_) + (_k24442_ '0)) + (if _rtd24440_ + (let ((__tmp43086 + (let ((__tmp43087 (##structure-ref - _rtd24359_ + _rtd24440_ '2 |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '#f))) (declare (not safe)) (|gerbil/core$$[1]#runtime-type-exhibitor-e| - __tmp43013))) - (__tmp43011 + __tmp43087))) + (__tmp43085 (fx+ (length (##structure-ref - _rtd24359_ + _rtd24440_ '6 |gerbil/core$$[1]#runtime-struct-exhibitor::t| '#f)) - _k24361_))) + _k24442_))) (declare (not safe)) - (_lp24356_ __tmp43012 __tmp43011)) - _k24361_))) - (_final?24366_ - (if _rtd24353_ + (_lp24437_ __tmp43086 __tmp43085)) + _k24442_))) + (_final?24447_ + (if _rtd24434_ (assgetq 'final: (##structure-ref - _rtd24353_ + _rtd24434_ '5 |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '#f)) '#f)) - (_g2436924377_ - (lambda (_g2437024373_) + (_g2445024458_ + (lambda (_g2445124454_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2437024373_))) - (_g2436824684_ - (lambda (_g2437024381_) - ((lambda (_L24384_) + _g2445124454_))) + (_g2444924765_ + (lambda (_g2445124462_) + ((lambda (_L24465_) (let () - (let* ((_g2439924407_ - (lambda (_g2440024403_) + (let* ((_g2448024488_ + (lambda (_g2448124484_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2440024403_))) - (_g2439824586_ - (lambda (_g2440024411_) - ((lambda (_L24414_) + _g2448124484_))) + (_g2447924667_ + (lambda (_g2448124492_) + ((lambda (_L24495_) (let () (let () - (let* ((___stx4157441575_ - _body24349_) - (_g2443024453_ + (let* ((___stx4165541656_ + _body24430_) + (_g2451124534_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4157441575_)))) - (let ((___kont4157741578_ - (lambda (_L24532_) - (let ((_K24546_ + ___stx4165541656_)))) + (let ((___kont4165841659_ + (lambda (_L24613_) + (let ((_K24627_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_generate-simple-vector23962_ - _tgt24348_ - _L24532_ + (_generate-simple-vector24043_ + _tgt24429_ + _L24613_ '1 - _K24350_ - _E24351_))) - (_len24548_ (gx#stx-length _L24532_))) - (if (and _rtd24353_ (fx<= _len24548_ _fields24363_)) + _K24431_ + _E24432_))) + (_len24629_ (gx#stx-length _L24613_))) + (if (and _rtd24434_ (fx<= _len24629_ _fields24444_)) (cons 'if - (cons _L24414_ - (cons _K24546_ (cons _E24351_ '())))) - (let* ((_g2455024558_ - (lambda (_g2455124554_) + (cons _L24495_ + (cons _K24627_ (cons _E24432_ '())))) + (let* ((_g2463124639_ + (lambda (_g2463224635_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2455124554_))) - (_g2454924578_ - (lambda (_g2455124562_) - ((lambda (_L24565_) + _g2463224635_))) + (_g2463024659_ + (lambda (_g2463224643_) + ((lambda (_L24646_) (let () (cons 'if - (cons _L24414_ + (cons _L24495_ (cons (cons 'if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _L24565_ + (cons _L24646_ (cons (cons (gx#datum->syntax '#f '##vector-length) - (cons _L24384_ '())) + (cons _L24465_ '())) '()))) - (cons _K24546_ (cons _E24351_ '())))) - (cons _E24351_ '())))))) + (cons _K24627_ (cons _E24432_ '())))) + (cons _E24432_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2455124562_)))) + _g2463224643_)))) (declare (not safe)) - (_g2454924578_ _len24548_)))))) - (___kont4157941580_ - (lambda (_L24484_) + (_g2463024659_ _len24629_)))))) + (___kont4166041661_ + (lambda (_L24565_) (cons 'if - (cons _L24414_ + (cons _L24495_ (cons (let () (declare (not safe)) - (_generate-list-vector23963_ - _tgt24348_ - _L24484_ + (_generate-list-vector24044_ + _tgt24429_ + _L24565_ 'struct->list - _K24350_ - _E24351_)) - (cons _E24351_ '()))))))) - (if (gx#stx-pair? ___stx4157441575_) - (let ((_e2443524508_ (gx#syntax-e ___stx4157441575_))) - (let ((_tl2443324515_ + _K24431_ + _E24432_)) + (cons _E24432_ '()))))))) + (if (gx#stx-pair? ___stx4165541656_) + (let ((_e2451624589_ (gx#syntax-e ___stx4165541656_))) + (let ((_tl2451424596_ (let () (declare (not safe)) - (##cdr _e2443524508_))) - (_hd2443424512_ + (##cdr _e2451624589_))) + (_hd2451524593_ (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 _e2451624589_)))) + (if (gx#stx-datum? _hd2451524593_) + (let ((_e2451724599_ (gx#stx-e _hd2451524593_))) + (if (equal? _e2451724599_ 'simple:) + (if (gx#stx-pair? _tl2451424596_) + (let ((_e2452024603_ + (gx#syntax-e _tl2451424596_))) + (let ((_tl2451824610_ (let () (declare (not safe)) - (##cdr _e2443924522_))) - (_hd2443824526_ + (##cdr _e2452024603_))) + (_hd2451924607_ (let () (declare (not safe)) - (##car _e2443924522_)))) - (if (gx#stx-null? _tl2443724529_) - (___kont4157741578_ - _hd2443824526_) + (##car _e2452024603_)))) + (if (gx#stx-null? _tl2451824610_) + (___kont4165841659_ + _hd2451924607_) (let () (declare (not safe)) - (_g2443024453_))))) + (_g2451124534_))))) (let () (declare (not safe)) - (_g2443024453_))) - (if (equal? _e2443624518_ 'list:) - (if (gx#stx-pair? _tl2443324515_) - (let ((_e2444724474_ - (gx#syntax-e _tl2443324515_))) - (let ((_tl2444524481_ + (_g2451124534_))) + (if (equal? _e2451724599_ 'list:) + (if (gx#stx-pair? _tl2451424596_) + (let ((_e2452824555_ + (gx#syntax-e _tl2451424596_))) + (let ((_tl2452624562_ (let () (declare (not safe)) - (##cdr _e2444724474_))) - (_hd2444624478_ + (##cdr _e2452824555_))) + (_hd2452724559_ (let () (declare (not safe)) - (##car _e2444724474_)))) - (if (gx#stx-null? _tl2444524481_) - (___kont4157941580_ - _hd2444624478_) + (##car _e2452824555_)))) + (if (gx#stx-null? _tl2452624562_) + (___kont4166041661_ + _hd2452724559_) (let () (declare (not safe)) - (_g2443024453_))))) + (_g2451124534_))))) (let () (declare (not safe)) - (_g2443024453_))) + (_g2451124534_))) (let () (declare (not safe)) - (_g2443024453_))))) - (let () (declare (not safe)) (_g2443024453_))))) - (let () (declare (not safe)) (_g2443024453_)))))))) + (_g2451124534_))))) + (let () (declare (not safe)) (_g2451124534_))))) + (let () (declare (not safe)) (_g2451124534_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2440024411_))) - (__tmp43014 + _g2448124492_))) + (__tmp43088 (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#expander-type-info::t| - _info24346_)) - (let* ((_g2459024598_ - (lambda (_g2459124594_) + _info24427_)) + (let* ((_g2467124679_ + (lambda (_g2467224675_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2459124594_))) - (_g2458924617_ - (lambda (_g2459124602_) - ((lambda (_L24605_) + _g2467224675_))) + (_g2467024698_ + (lambda (_g2467224683_) + ((lambda (_L24686_) (let () - (cons _L24605_ + (cons _L24686_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L24384_ '())))) - _g2459124602_))) - (__tmp43016 + (cons _L24465_ '())))) + _g2467224683_))) + (__tmp43090 (cadddr (let () (declare (not safe)) (unchecked-slot-ref - _info24346_ + _info24427_ 'expander-identifiers))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2458924617_ __tmp43016)) - (let* ((_g2462124636_ - (lambda (_g2462224632_) + (_g2467024698_ __tmp43090)) + (let* ((_g2470224717_ + (lambda (_g2470324713_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2462224632_))) - (_g2462024680_ - (lambda (_g2462224640_) + _g2470324713_))) + (_g2470124761_ + (lambda (_g2470324721_) (if (gx#stx-pair? - _g2462224640_) - (let ((_e2462724643_ + _g2470324721_) + (let ((_e2470824724_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g2462224640_))) - (let ((_hd2462624647_ + (gx#syntax-e _g2470324721_))) + (let ((_hd2470724728_ (let () (declare (not safe)) - (##car _e2462724643_))) - (_tl2462524650_ + (##car _e2470824724_))) + (_tl2470624731_ (let () (declare (not safe)) - (##cdr _e2462724643_)))) - (if (gx#stx-pair? _tl2462524650_) - (let ((_e2463024653_ - (gx#syntax-e _tl2462524650_))) - (let ((_hd2462924657_ + (##cdr _e2470824724_)))) + (if (gx#stx-pair? _tl2470624731_) + (let ((_e2471124734_ + (gx#syntax-e _tl2470624731_))) + (let ((_hd2471024738_ (let () (declare (not safe)) - (##car _e2463024653_))) - (_tl2462824660_ + (##car _e2471124734_))) + (_tl2470924741_ (let () (declare (not safe)) - (##cdr _e2463024653_)))) - (if (gx#stx-null? _tl2462824660_) - ((lambda (_L24663_ _L24665_) + (##cdr _e2471124734_)))) + (if (gx#stx-null? _tl2470924741_) + ((lambda (_L24744_ _L24746_) (let () - (cons _L24663_ - (cons _L24665_ - (cons _L24384_ '()))))) - _hd2462924657_ - _hd2462624647_) + (cons _L24744_ + (cons _L24746_ + (cons _L24465_ '()))))) + _hd2471024738_ + _hd2470724728_) (let () (declare (not safe)) - (_g2462124636_ _g2462224640_))))) + (_g2470224717_ _g2470324721_))))) (let () (declare (not safe)) - (_g2462124636_ _g2462224640_))))) + (_g2470224717_ _g2470324721_))))) (let () (declare (not safe)) - (_g2462124636_ _g2462224640_))))) - (__tmp43015 + (_g2470224717_ _g2470324721_))))) + (__tmp43089 (list (let () (declare (not safe)) - (unchecked-slot-ref _info24346_ 'runtime-identifier)) - (if _final?24366_ + (unchecked-slot-ref _info24427_ 'runtime-identifier)) + (if _final?24447_ (gx#datum->syntax '#f 'direct-instance?) (gx#datum->syntax '#f 'struct-instance?))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2462024680_ __tmp43015))))) + (_g2470124761_ __tmp43089))))) (declare (not safe)) - (_g2439824586_ __tmp43014)))) - _g2437024381_)))) + (_g2447924667_ __tmp43088)))) + _g2445124462_)))) (declare (not safe)) - (_g2436824684_ _tgt24348_)))) - (_generate-class23965_ - (lambda (_info23967_ - _tgt23969_ - _body23970_ - _K23971_ - _E23972_) - (letrec* ((_rtd23974_ + (_g2444924765_ _tgt24429_)))) + (_generate-class24046_ + (lambda (_info24048_ + _tgt24050_ + _body24051_ + _K24052_ + _E24053_) + (letrec* ((_rtd24055_ (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#extended-class-info::t| - _info23967_)) + _info24048_)) (let () (declare (not safe)) (unchecked-slot-ref - _info23967_ + _info24048_ 'type-exhibitor)) '#f)) - (_known-slot?23976_ - (if _rtd23974_ - (lambda (_key24340_) - (let ((_slot24343_ + (_known-slot?24057_ + (if _rtd24055_ + (lambda (_key24421_) + (let ((_slot24424_ (keyword->symbol - (gx#stx-e _key24340_)))) + (gx#stx-e _key24421_)))) (declare (not safe)) - (_rtd-known-slot?23978_ - _rtd23974_ - _slot24343_))) + (_rtd-known-slot?24059_ + _rtd24055_ + _slot24424_))) false)) - (_final?23977_ - (if _rtd23974_ + (_final?24058_ + (if _rtd24055_ (assgetq 'final: (##structure-ref - _rtd23974_ + _rtd24055_ '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?24059_ + (lambda (_rtd24408_ _slot24410_) + (if _rtd24408_ + (let ((_$e24412_ + (memq _slot24410_ (##structure-ref - _rtd24327_ + _rtd24408_ '6 |gerbil/core$$[1]#runtime-class-exhibitor::t| '#f)))) - (if _$e24331_ - _$e24331_ - (ormap (lambda (_g2433424336_) + (if _$e24412_ + _$e24412_ + (ormap (lambda (_g2441524417_) (let () (declare (not safe)) - (_rtd-known-slot?23978_ - _g2433424336_ - _slot24329_))) + (_rtd-known-slot?24059_ + _g2441524417_ + _slot24410_))) (map |gerbil/core$$[1]#runtime-type-exhibitor-e| (##structure-ref - _rtd24327_ + _rtd24408_ '2 |gerbil/core$$[1]#runtime-rtd-exhibitor::t| '#f))))) '#f))) - (_recur23979_ - (lambda (_klass24113_ _rest24115_) - (let* ((___stx4162441625_ _rest24115_) - (_g2411824134_ + (_recur24060_ + (lambda (_klass24194_ _rest24196_) + (let* ((___stx4170541706_ _rest24196_) + (_g2419924215_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4162441625_)))) - (let ((___kont4162741628_ - (lambda (_L24172_ _L24174_ _L24175_) - (let* ((_g2419124199_ - (lambda (_g2419224195_) + ___stx4170541706_)))) + (let ((___kont4170841709_ + (lambda (_L24253_ _L24255_ _L24256_) + (let* ((_g2427224280_ + (lambda (_g2427324276_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2419224195_))) - (_g2419024319_ - (lambda (_g2419224203_) - ((lambda (_L24206_) + _g2427324276_))) + (_g2427124400_ + (lambda (_g2427324284_) + ((lambda (_L24287_) (let () - (let* ((_g2421824226_ + (let* ((_g2429924307_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2421924222_) + (lambda (_g2430024303_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2421924222_))) - (_g2421724315_ - (lambda (_g2421924230_) - ((lambda (_L24233_) + _g2430024303_))) + (_g2429824396_ + (lambda (_g2430024311_) + ((lambda (_L24314_) (let () - (let* ((_g2424624254_ - (lambda (_g2424724250_) + (let* ((_g2432724335_ + (lambda (_g2432824331_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2424724250_))) - (_g2424524311_ - (lambda (_g2424724258_) - ((lambda (_L24261_) + _g2432824331_))) + (_g2432624392_ + (lambda (_g2432824339_) + ((lambda (_L24342_) (let () - (let* ((_g2427424282_ - (lambda (_g2427524278_) + (let* ((_g2435524363_ + (lambda (_g2435624359_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2427524278_))) - (_g2427324307_ - (lambda (_g2427524286_) - ((lambda (_L24289_) + _g2435624359_))) + (_g2435424388_ + (lambda (_g2435624367_) + ((lambda (_L24370_) (let () - (let ((_K24302_ + (let ((_K24383_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'let - (cons (cons (cons _L24289_ + (cons (cons (cons _L24370_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _L24206_ + (cons _L24287_ (cons (cons (gx#datum->syntax '#f 'fx1+) - (cons _L24261_ '())) + (cons _L24342_ '())) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (let ((__tmp43017 + (cons (let ((__tmp43091 (let () (declare (not safe)) - (_recur23979_ - _klass24113_ - _L24172_)))) + (_recur24060_ + _klass24194_ + _L24253_)))) (declare (not safe)) - (_generate123959_ - _L24289_ - _L24174_ - __tmp43017 - _E23972_)) + (_generate124040_ + _L24370_ + _L24255_ + __tmp43091 + _E24053_)) '()))))) - (if (_known-slot?23976_ _L24175_) + (if (_known-slot?24057_ _L24256_) (cons 'let - (cons (cons (cons _L24261_ + (cons (cons (cons _L24342_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'class-slot-offset) - (cons _L24233_ (cons _L24175_ '()))) + (cons _L24314_ (cons _L24256_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _K24302_ '()))) + (cons _K24383_ '()))) (cons 'let - (cons (cons (cons _L24261_ + (cons (cons (cons _L24342_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'class-slot-offset) - (cons _L24233_ (cons _L24175_ '()))) + (cons _L24314_ (cons _L24256_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons 'if - (cons _L24261_ - (cons _K24302_ + (cons _L24342_ + (cons _K24383_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _E23972_ '())))) + (cons _E24053_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _g2427524286_))) - (__tmp43018 (gx#genident 'e))) + _g2435624367_))) + (__tmp43092 (gx#genident 'e))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2427324307_ - __tmp43018)))) - _g2424724258_))) - (__tmp43019 (gx#genident 'slot))) + (_g2435424388_ + __tmp43092)))) + _g2432824339_))) + (__tmp43093 (gx#genident 'slot))) (declare (not safe)) - (_g2424524311_ __tmp43019)))) - _g2421924230_)))) + (_g2432624392_ __tmp43093)))) + _g2430024311_)))) (declare (not safe)) - (_g2421724315_ _klass24113_)))) - _g2419224203_)))) + (_g2429824396_ _klass24194_)))) + _g2427324284_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2419024319_ _tgt23969_)))) - (___kont4162941630_ - (lambda () _K23971_))) - (if (gx#stx-pair? ___stx4162441625_) - (let ((_e2412524152_ + (_g2427124400_ _tgt24050_)))) + (___kont4171041711_ + (lambda () _K24052_))) + (if (gx#stx-pair? ___stx4170541706_) + (let ((_e2420624233_ (gx#syntax-e - ___stx4162441625_))) - (let ((_tl2412324159_ + ___stx4170541706_))) + (let ((_tl2420424240_ (let () (declare (not safe)) - (##cdr _e2412524152_))) - (_hd2412424156_ + (##cdr _e2420624233_))) + (_hd2420524237_ (let () (declare (not safe)) - (##car _e2412524152_)))) - (if (gx#stx-pair? _tl2412324159_) - (let ((_e2412824162_ + (##car _e2420624233_)))) + (if (gx#stx-pair? _tl2420424240_) + (let ((_e2420924243_ (gx#syntax-e - _tl2412324159_))) - (let ((_tl2412624169_ + _tl2420424240_))) + (let ((_tl2420724250_ (let () (declare (not safe)) - (##cdr _e2412824162_))) - (_hd2412724166_ + (##cdr _e2420924243_))) + (_hd2420824247_ (let () (declare (not safe)) - (##car _e2412824162_)))) - (___kont4162741628_ - _tl2412624169_ - _hd2412724166_ - _hd2412424156_))) - (___kont4162941630_)))) - (___kont4162941630_))))))) - (let* ((_g2398123989_ - (lambda (_g2398223985_) + (##car _e2420924243_)))) + (___kont4170841709_ + _tl2420724250_ + _hd2420824247_ + _hd2420524237_))) + (___kont4171041711_)))) + (___kont4171041711_))))))) + (let* ((_g2406224070_ + (lambda (_g2406324066_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2398223985_))) - (_g2398024109_ - (lambda (_g2398223993_) - ((lambda (_L23996_) + _g2406324066_))) + (_g2406124190_ + (lambda (_g2406324074_) + ((lambda (_L24077_) (let () - (let* ((_g2401124019_ - (lambda (_g2401224015_) + (let* ((_g2409224100_ + (lambda (_g2409324096_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2401224015_))) - (_g2401024105_ - (lambda (_g2401224023_) - ((lambda (_L24026_) + _g2409324096_))) + (_g2409124186_ + (lambda (_g2409324104_) + ((lambda (_L24107_) (let () - (let* ((_g2403924047_ - (lambda (_g2404024043_) + (let* ((_g2412024128_ + (lambda (_g2412124124_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2404024043_))) - (_g2403824101_ - (lambda (_g2404024051_) - ((lambda (_L24054_) + _g2412124124_))) + (_g2411924182_ + (lambda (_g2412124132_) + ((lambda (_L24135_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2406724075_ - (lambda (_g2406824071_) + (let* ((_g2414824156_ + (lambda (_g2414924152_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2406824071_))) - (_g2406624097_ - (lambda (_g2406824079_) - ((lambda (_L24082_) + _g2414924152_))) + (_g2414724178_ + (lambda (_g2414924160_) + ((lambda (_L24163_) (let () (let () (cons 'if - (cons (cons _L24082_ - (cons _L24054_ + (cons (cons _L24163_ + (cons _L24135_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L24026_ '()))) + (cons _L24107_ '()))) (cons (cons 'let - (cons (cons (cons _L23996_ + (cons (cons (cons _L24077_ (cons (cons (gx#datum->syntax '#f 'object-type) - (cons _L24026_ '())) + (cons _L24107_ '())) '())) '()) (cons (let () (declare (not safe)) - (_recur23979_ _L23996_ _body23970_)) + (_recur24060_ _L24077_ _body24051_)) '()))) - (cons _E23972_ '()))))))) + (cons _E24053_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2406824079_))) - (__tmp43020 - (if _final?23977_ + _g2414924160_))) + (__tmp43094 + (if _final?24058_ (gx#datum->syntax '#f 'direct-instance?) (gx#datum->syntax '#f 'class-instance?)))) (declare (not safe)) - (_g2406624097_ __tmp43020)))) - _g2404024051_))) - (__tmp43021 + (_g2414724178_ __tmp43094)))) + _g2412124132_))) + (__tmp43095 (let () (declare (not safe)) - (unchecked-slot-ref _info23967_ 'runtime-identifier)))) + (unchecked-slot-ref _info24048_ 'runtime-identifier)))) (declare (not safe)) - (_g2403824101_ __tmp43021)))) + (_g2411924182_ __tmp43095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2401224023_)))) + _g2409324104_)))) (declare (not safe)) - (_g2401024105_ _tgt23969_)))) - _g2398223993_))) - (__tmp43022 (gx#genident 'class))) + (_g2409124186_ _tgt24050_)))) + _g2406324074_))) + (__tmp43096 (gx#genident 'class))) (declare (not safe)) - (_g2398024109_ __tmp43022)))))) + (_g2406124190_ __tmp43096)))))) (let () (declare (not safe)) - (_generate123959_ _tgt23954_ _ptree23955_ _K23956_ _E23957_))))) + (_generate124040_ _tgt24035_ _ptree24036_ _K24037_ _E24038_))))) (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 (_stx22929_ _tgt-lst22931_ _clauses22932_) + (letrec ((_parse-body22934_ + (lambda (_hd-len23855_) + (let _lp23858_ ((_rest23861_ _clauses22932_) + (_r23863_ '())) + (let* ((___stx4175541756_ _rest23861_) + (_g2386623878_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4167441675_)))) - (let ((___kont4167741678_ - (lambda (_L23825_ _L23827_) - (let* ((___stx4164641647_ _L23827_) - (_g2384423860_ + ___stx4175541756_)))) + (let ((___kont4175841759_ + (lambda (_L23906_ _L23908_) + (let* ((___stx4172741728_ _L23908_) + (_g2392523941_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4164641647_)))) - (let ((___kont4164941650_ - (lambda (_L23929_) - (if (gx#stx-null? _L23825_) + ___stx4172741728_)))) + (let ((___kont4173041731_ + (lambda (_L24010_) + (if (gx#stx-null? _L23906_) (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) _L24010_) + (let ((_$e24021_ (gx#stx-source _L23908_))) + (if _$e24021_ + _$e24021_ + (gx#stx-source _stx22929_)))) '()))) - _r23782_) + _r23863_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _stx22848_ - _L23827_)))) - (___kont4165141652_ - (lambda (_L23888_ _L23890_) - (let ((__tmp43023 + _stx22929_ + _L23908_)))) + (___kont4173241733_ + (lambda (_L23969_ _L23971_) + (let ((__tmp43097 (cons (cons (gx#genident 'try-match) (cons (gx#stx-map ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2390223904_) + (lambda (_g2398323985_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _g2390223904_ - _stx22848_))) - _L23890_) + _g2398323985_ + _stx22929_))) + _L23971_) (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_)))) + _L23969_) + (let ((_$e23989_ (gx#stx-source _L23908_))) + (if _$e23989_ + _$e23989_ + (gx#stx-source _stx22929_)))) '()))) - _r23782_))) + _r23863_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp23777_ - _L23825_ - __tmp43023)))) - (___kont4165341654_ + (_lp23858_ + _L23906_ + __tmp43097)))) + (___kont4173441735_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal match clause" - _stx22848_ - _L23827_)))) - (let* ((___match4167141672_ - (lambda (_e2385423878_ - _hd2385323882_ - _tl2385223885_) - (let ((_L23888_ _tl2385223885_) - (_L23890_ _hd2385323882_)) + _stx22929_ + _L23908_)))) + (let* ((___match4175241753_ + (lambda (_e2393523959_ + _hd2393423963_ + _tl2393323966_) + (let ((_L23969_ _tl2393323966_) + (_L23971_ _hd2393423963_)) (if (and (gx#stx-list? - _L23890_) + _L23971_) (fx= (gx#stx-length - _L23890_) - _hd-len23774_) + _L23971_) + _hd-len23855_) (gx#stx-list? - _L23888_) + _L23969_) (not (gx#stx-null? - _L23888_))) - (___kont4165141652_ - _L23888_ - _L23890_) - (___kont4165341654_))))) - (___match4166541666_ - (lambda (_e2384923919_ - _hd2384823923_ - _tl2384723926_) - (let ((_L23929_ _tl2384723926_)) + _L23969_))) + (___kont4173241733_ + _L23969_ + _L23971_) + (___kont4173441735_))))) + (___match4174641747_ + (lambda (_e2393024000_ + _hd2392924004_ + _tl2392824007_) + (let ((_L24010_ _tl2392824007_)) (if (and (gx#stx-list? - _L23929_) + _L24010_) (not (gx#stx-null? - _L23929_))) - (___kont4164941650_ - _L23929_) - (___match4167141672_ - _e2384923919_ - _hd2384823923_ - _tl2384723926_)))))) - (if (gx#stx-pair? ___stx4164641647_) - (let ((_e2384923919_ + _L24010_))) + (___kont4173041731_ + _L24010_) + (___match4175241753_ + _e2393024000_ + _hd2392924004_ + _tl2392824007_)))))) + (if (gx#stx-pair? ___stx4172741728_) + (let ((_e2393024000_ (gx#syntax-e - ___stx4164641647_))) - (let ((_tl2384723926_ + ___stx4172741728_))) + (let ((_tl2392824007_ (let () (declare (not safe)) - (##cdr _e2384923919_))) - (_hd2384823923_ + (##cdr _e2393024000_))) + (_hd2392924004_ (let () (declare (not safe)) - (##car _e2384923919_)))) + (##car _e2393024000_)))) (if (gx#identifier? - _hd2384823923_) + _hd2392924004_) (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]#_g43098_| + _hd2392924004_) + (___match4174641747_ + _e2393024000_ + _hd2392924004_ + _tl2392824007_) + (___match4175241753_ + _e2393024000_ + _hd2392924004_ + _tl2392824007_)) + (___match4175241753_ + _e2393024000_ + _hd2392924004_ + _tl2392824007_)))) + (___kont4173441735_))))))) + (___kont4176041761_ (lambda () _r23863_))) + (if (gx#stx-pair? ___stx4175541756_) + (let ((_e2387223896_ + (gx#syntax-e ___stx4175541756_))) + (let ((_tl2387023903_ (let () (declare (not safe)) - (##cdr _e2379123815_))) - (_hd2379023819_ + (##cdr _e2387223896_))) + (_hd2387123900_ (let () (declare (not safe)) - (##car _e2379123815_)))) - (___kont4167741678_ - _tl2378923822_ - _hd2379023819_))) - (___kont4167941680_))))))) - (_generate-body22855_ - (lambda (_body23559_) - (let* ((_g2356223570_ - (lambda (_g2356323566_) + (##car _e2387223896_)))) + (___kont4175841759_ + _tl2387023903_ + _hd2387123900_))) + (___kont4176041761_))))))) + (_generate-body22936_ + (lambda (_body23640_) + (let* ((_g2364323651_ + (lambda (_g2364423647_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2356323566_))) - (_g2356123770_ - (lambda (_g2356323574_) - ((lambda (_L23577_) + _g2364423647_))) + (_g2364223851_ + (lambda (_g2364423655_) + ((lambda (_L23658_) (let () - (let* ((_g2358923606_ - (lambda (_g2359023602_) + (let* ((_g2367023687_ + (lambda (_g2367123683_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2359023602_))) - (_g2358823766_ - (lambda (_g2359023610_) + _g2367123683_))) + (_g2366923847_ + (lambda (_g2367123691_) (if (gx#stx-pair/null? - _g2359023610_) - (let ((_g43087_ + _g2367123691_) + (let ((_g43099_ (gx#syntax-split-splice - _g2359023610_ + _g2367123691_ '0))) (begin - (let ((_g43088_ + (let ((_g43100_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g43087_) - (##vector-length _g43087_) + _g43099_) + (##vector-length _g43099_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g43088_ 2))) - (error "Context expects 2 values" _g43088_))) + (if (not (let () (declare (not safe)) (##fx= _g43100_ 2))) + (error "Context expects 2 values" _g43100_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2359223613_ + (let ((_target2367323694_ (let () (declare (not safe)) (##vector-ref - _g43087_ + _g43099_ 0))) - (_tl2359423616_ + (_tl2367523697_ (let () (declare (not safe)) (##vector-ref - _g43087_ + _g43099_ 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_ + _tl2367523697_) + (letrec ((_loop2367623700_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd2367423704_ _target2368023707_) + (if (gx#stx-pair? _hd2367423704_) + (let ((_e2367723710_ + (gx#syntax-e _hd2367423704_))) + (let ((_lp-hd2367823714_ (let () (declare (not safe)) - (##car _e2359623629_))) - (_lp-tl2359823636_ + (##car _e2367723710_))) + (_lp-tl2367923717_ (let () (declare (not safe)) - (##cdr _e2359623629_)))) - (let ((__tmp43093 - (cons _lp-hd2359723633_ - _target2359923626_))) + (##cdr _e2367723710_)))) + (let ((__tmp43105 + (cons _lp-hd2367823714_ + _target2368023707_))) (declare (not safe)) - (_loop2359523619_ - _lp-tl2359823636_ - __tmp43093)))) - (let ((_target2360023639_ - (reverse _target2359923626_))) - ((lambda (_L23643_) + (_loop2367623700_ + _lp-tl2367923717_ + __tmp43105)))) + (let ((_target2368123720_ + (reverse _target2368023707_))) + ((lambda (_L23724_) (let () - (let* ((_g2366023668_ - (lambda (_g2366123664_) + (let* ((_g2374123749_ + (lambda (_g2374223745_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2366123664_))) - (_g2365923754_ - (lambda (_g2366123672_) - ((lambda (_L23675_) + _g2374223745_))) + (_g2374023835_ + (lambda (_g2374223753_) + ((lambda (_L23756_) (let () - (let* ((_g2368823696_ + (let* ((_g2376923777_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2368923692_) + (lambda (_g2377023773_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2368923692_))) - (_g2368723750_ - (lambda (_g2368923700_) - ((lambda (_L23703_) + _g2377023773_))) + (_g2376823831_ + (lambda (_g2377023781_) + ((lambda (_L23784_) (let () - (let* ((_g2371623724_ - (lambda (_g2371723720_) + (let* ((_g2379723805_ + (lambda (_g2379823801_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2371723720_))) - (_g2371523746_ - (lambda (_g2371723728_) - ((lambda (_L23731_) + _g2379823801_))) + (_g2379623827_ + (lambda (_g2379823809_) + ((lambda (_L23812_) (let () (let () (cons (gx#datum->syntax @@ -4981,33 +4981,33 @@ (cons (gx#datum->syntax '#f '@match) - (cons _L23731_ + (cons _L23812_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2371723728_))) - (__tmp43089 + _g2379823809_))) + (__tmp43101 (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L23577_ + (cons (cons (cons _L23658_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L23675_ '())) + (cons _L23756_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _L23703_ '()))) - (gx#stx-source _stx22848_)))) + (cons _L23784_ '()))) + (gx#stx-source _stx22929_)))) (declare (not safe)) - (_g2371523746_ __tmp43089)))) - _g2368923700_))) - (__tmp43090 - (let ((__tmp43091 (cons _L23577_ '()))) + (_g2379623827_ __tmp43101)))) + _g2377023781_))) + (__tmp43102 + (let ((__tmp43103 (cons _L23658_ '()))) (declare (not safe)) - (_generate-clauses22856_ _body23559_ __tmp43091)))) + (_generate-clauses22937_ _body23640_ __tmp43103)))) (declare (not safe)) - (_g2368723750_ __tmp43090)))) + (_g2376823831_ __tmp43102)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2366123672_))) - (__tmp43092 + _g2374223753_))) + (__tmp43104 (gx#stx-wrap-source (cons (gx#datum->syntax '#f @@ -5018,259 +5018,259 @@ '#f 'error) (cons '"No clause matching" - (foldr (lambda (_g2375723760_ - _g2375823763_) - (cons _g2375723760_ - _g2375823763_)) + (foldr (lambda (_g2383823841_ + _g2383923844_) + (cons _g2383823841_ + _g2383923844_)) '() - _L23643_))) + _L23724_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _stx22848_)))) + _stx22929_)))) (declare (not safe)) - (_g2365923754_ __tmp43092)))) - _target2360023639_)))))) + (_g2374023835_ __tmp43104)))) + _target2368123720_)))))) (let () (declare (not safe)) - (_loop2359523619_ _target2359223613_ '()))) + (_loop2367623700_ _target2367323694_ '()))) (let () (declare (not safe)) - (_g2358923606_ _g2359023610_)))))) + (_g2367023687_ _g2367123691_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2358923606_ - _g2359023610_)))))) + (_g2367023687_ + _g2367123691_)))))) (declare (not safe)) - (_g2358823766_ _tgt-lst22850_)))) - _g2356323574_))) - (__tmp43094 (gx#genident 'E))) + (_g2366923847_ _tgt-lst22931_)))) + _g2364423655_))) + (__tmp43106 (gx#genident 'E))) (declare (not safe)) - (_g2356123770_ __tmp43094)))) - (_generate-clauses22856_ - (lambda (_rest23211_ _E23213_) - (let* ((___stx4169041691_ _rest23211_) - (_g2321723233_ + (_g2364223851_ __tmp43106)))) + (_generate-clauses22937_ + (lambda (_rest23292_ _E23294_) + (let* ((___stx4177141772_ _rest23292_) + (_g2329823314_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4169041691_)))) - (let ((___kont4169341694_ - (lambda (_L23467_) - (let* ((_g2347823496_ - (lambda (_g2347923492_) + ___stx4177141772_)))) + (let ((___kont4177441775_ + (lambda (_L23548_) + (let* ((_g2355923577_ + (lambda (_g2356023573_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2347923492_))) - (_g2347723551_ - (lambda (_g2347923500_) - (if (gx#stx-pair? _g2347923500_) - (let ((_e2348423503_ + _g2356023573_))) + (_g2355823632_ + (lambda (_g2356023581_) + (if (gx#stx-pair? _g2356023581_) + (let ((_e2356523584_ (gx#syntax-e - _g2347923500_))) - (let ((_hd2348323507_ + _g2356023581_))) + (let ((_hd2356423588_ (let () (declare (not safe)) - (##car _e2348423503_))) - (_tl2348223510_ + (##car _e2356523584_))) + (_tl2356323591_ (let () (declare (not safe)) - (##cdr _e2348423503_)))) + (##cdr _e2356523584_)))) (if (gx#stx-pair? - _tl2348223510_) - (let ((_e2348723513_ + _tl2356323591_) + (let ((_e2356823594_ (gx#syntax-e - _tl2348223510_))) - (let ((_hd2348623517_ + _tl2356323591_))) + (let ((_hd2356723598_ (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 _e2356823594_))) + (_tl2356623601_ + (let () (declare (not safe)) (##cdr _e2356823594_)))) + (if (gx#stx-pair? _tl2356623601_) + (let ((_e2357123604_ (gx#syntax-e _tl2356623601_))) + (let ((_hd2357023608_ (let () (declare (not safe)) - (##car _e2349023523_))) - (_tl2348823530_ + (##car _e2357123604_))) + (_tl2356923611_ (let () (declare (not safe)) - (##cdr _e2349023523_)))) - (if (gx#stx-null? _tl2348823530_) - ((lambda (_L23533_ _L23535_) + (##cdr _e2357123604_)))) + (if (gx#stx-null? _tl2356923611_) + ((lambda (_L23614_ _L23616_) (cons 'begin-annotation (cons '@match-body - (cons (if (gx#stx-e _L23535_) + (cons (if (gx#stx-e _L23616_) (let () (declare (not safe)) - (_generate122857_ - _L23535_ - _L23533_ - _E23213_)) - _L23533_) + (_generate122938_ + _L23616_ + _L23614_ + _E23294_)) + _L23614_) '())))) - _hd2348923527_ - _hd2348623517_) + _hd2357023608_ + _hd2356723598_) (let () (declare (not safe)) - (_g2347823496_ _g2347923500_))))) + (_g2355923577_ _g2356023581_))))) (let () (declare (not safe)) - (_g2347823496_ _g2347923500_))))) + (_g2355923577_ _g2356023581_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2347823496_ - _g2347923500_))))) + (_g2355923577_ + _g2356023581_))))) (let () (declare (not safe)) - (_g2347823496_ - _g2347923500_)))))) + (_g2355923577_ + _g2356023581_)))))) (declare (not safe)) - (_g2347723551_ _L23467_)))) - (___kont4169541696_ - (lambda (_L23261_ _L23263_) - (let* ((_g2327623295_ - (lambda (_g2327723291_) + (_g2355823632_ _L23548_)))) + (___kont4177641777_ + (lambda (_L23342_ _L23344_) + (let* ((_g2335723376_ + (lambda (_g2335823372_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2327723291_))) - (_g2327523446_ - (lambda (_g2327723299_) - (if (gx#stx-pair? _g2327723299_) - (let ((_e2328323302_ + _g2335823372_))) + (_g2335623527_ + (lambda (_g2335823380_) + (if (gx#stx-pair? _g2335823380_) + (let ((_e2336423383_ (gx#syntax-e - _g2327723299_))) - (let ((_hd2328223306_ + _g2335823380_))) + (let ((_hd2336323387_ (let () (declare (not safe)) - (##car _e2328323302_))) - (_tl2328123309_ + (##car _e2336423383_))) + (_tl2336223390_ (let () (declare (not safe)) - (##cdr _e2328323302_)))) + (##cdr _e2336423383_)))) (if (gx#stx-pair? - _tl2328123309_) - (let ((_e2328623312_ + _tl2336223390_) + (let ((_e2336723393_ (gx#syntax-e - _tl2328123309_))) - (let ((_hd2328523316_ + _tl2336223390_))) + (let ((_hd2336623397_ (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 _e2336723393_))) + (_tl2336523400_ + (let () (declare (not safe)) (##cdr _e2336723393_)))) + (if (gx#stx-pair? _tl2336523400_) + (let ((_e2337023403_ (gx#syntax-e _tl2336523400_))) + (let ((_hd2336923407_ (let () (declare (not safe)) - (##car _e2328923322_))) - (_tl2328723329_ + (##car _e2337023403_))) + (_tl2336823410_ (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 _e2337023403_)))) + (if (gx#stx-null? _tl2336823410_) + ((lambda (_L23413_ _L23415_ _L23416_) + (if (gx#stx-e _L23415_) + (let* ((_g2343323448_ + (lambda (_g2343423444_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2335323363_))) - (_g2335123412_ - (lambda (_g2335323371_) - (if (gx#stx-pair? _g2335323371_) - (let ((_e2335823374_ + _g2343423444_))) + (_g2343223493_ + (lambda (_g2343423452_) + (if (gx#stx-pair? _g2343423452_) + (let ((_e2343923455_ (gx#syntax-e - _g2335323371_))) - (let ((_hd2335723378_ + _g2343423452_))) + (let ((_hd2343823459_ (let () (declare (not safe)) - (##car _e2335823374_))) - (_tl2335623381_ + (##car _e2343923455_))) + (_tl2343723462_ (let () (declare (not safe)) - (##cdr _e2335823374_)))) + (##cdr _e2343923455_)))) (if (gx#stx-pair? - _tl2335623381_) - (let ((_e2336123384_ + _tl2343723462_) + (let ((_e2344223465_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2335623381_))) - (let ((_hd2336023388_ - (let () (declare (not safe)) (##car _e2336123384_))) - (_tl2335923391_ + (gx#syntax-e _tl2343723462_))) + (let ((_hd2344123469_ + (let () (declare (not safe)) (##car _e2344223465_))) + (_tl2344023472_ (let () (declare (not safe)) - (##cdr _e2336123384_)))) - (if (gx#stx-null? _tl2335923391_) - ((lambda (_L23394_ _L23396_) + (##cdr _e2344223465_)))) + (if (gx#stx-null? _tl2344023472_) + ((lambda (_L23475_ _L23477_) (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L23335_ + (cons (cons (cons _L23416_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _L23396_ '()))) + (cons '() (cons _L23477_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _L23394_ '()))))) - _hd2336023388_ - _hd2335723378_) + (cons _L23475_ '()))))) + _hd2344123469_ + _hd2343823459_) (let () (declare (not safe)) - (_g2335223367_ _g2335323371_))))) + (_g2343323448_ _g2343423452_))))) (let () (declare (not safe)) - (_g2335223367_ _g2335323371_))))) + (_g2343323448_ _g2343423452_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2335223367_ - _g2335323371_))))) - (__tmp43097 + (_g2343323448_ + _g2343423452_))))) + (__tmp43109 (list (let () (declare (not safe)) - (_generate122857_ - _L23334_ - _L23332_ - _E23213_)) - (let ((__tmp43098 - (cons _L23335_ '()))) + (_generate122938_ + _L23415_ + _L23413_ + _E23294_)) + (let ((__tmp43110 + (cons _L23416_ '()))) (declare (not safe)) - (_generate-clauses22856_ - _L23261_ - __tmp43098))))) + (_generate-clauses22937_ + _L23342_ + __tmp43110))))) (declare (not safe)) - (_g2335123412_ __tmp43097)) - (let* ((_g2341623424_ - (lambda (_g2341723420_) + (_g2343223493_ __tmp43109)) + (let* ((_g2349723505_ + (lambda (_g2349823501_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2341723420_))) - (_g2341523442_ - (lambda (_g2341723428_) - ((lambda (_L23431_) + _g2349823501_))) + (_g2349623523_ + (lambda (_g2349823509_) + ((lambda (_L23512_) (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L23335_ + (cons (cons (cons _L23416_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -5282,766 +5282,766 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _L23332_ '()))) + (cons '() (cons _L23413_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _L23431_ '()))))) + (cons _L23512_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2341723428_))) - (__tmp43095 - (let ((__tmp43096 - (cons _L23335_ '()))) + _g2349823509_))) + (__tmp43107 + (let ((__tmp43108 + (cons _L23416_ '()))) (declare (not safe)) - (_generate-clauses22856_ - _L23261_ - __tmp43096)))) + (_generate-clauses22937_ + _L23342_ + __tmp43108)))) (declare (not safe)) - (_g2341523442_ __tmp43095)))) - _hd2328823326_ - _hd2328523316_ - _hd2328223306_) + (_g2349623523_ __tmp43107)))) + _hd2336923407_ + _hd2336623397_ + _hd2336323387_) (let () (declare (not safe)) - (_g2327623295_ _g2327723299_))))) + (_g2335723376_ _g2335823380_))))) (let () (declare (not safe)) - (_g2327623295_ _g2327723299_))))) + (_g2335723376_ _g2335823380_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2327623295_ - _g2327723299_))))) + (_g2335723376_ + _g2335823380_))))) (let () (declare (not safe)) - (_g2327623295_ - _g2327723299_)))))) + (_g2335723376_ + _g2335823380_)))))) (declare (not safe)) - (_g2327523446_ _L23263_)))) - (___kont4169741698_ + (_g2335623527_ _L23344_)))) + (___kont4177841779_ (lambda () (cons 'begin-annotation (cons '@match-body - (cons _E23213_ '())))))) - (if (gx#stx-pair? ___stx4169041691_) - (let ((_e2322223457_ - (gx#syntax-e ___stx4169041691_))) - (let ((_tl2322023464_ + (cons _E23294_ '())))))) + (if (gx#stx-pair? ___stx4177141772_) + (let ((_e2330323538_ + (gx#syntax-e ___stx4177141772_))) + (let ((_tl2330123545_ (let () (declare (not safe)) - (##cdr _e2322223457_))) - (_hd2322123461_ + (##cdr _e2330323538_))) + (_hd2330223542_ (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 _e2330323538_)))) + (if (gx#stx-null? _tl2330123545_) + (___kont4177441775_ _hd2330223542_) + (___kont4177641777_ + _tl2330123545_ + _hd2330223542_)))) + (___kont4177841779_)))))) + (_generate122938_ + (lambda (_clause22940_ _body22942_ _E22943_) + (let* ((_g2294522969_ + (lambda (_g2294622965_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2286522884_))) - (_g2286323207_ - (lambda (_g2286522892_) - (if (gx#stx-pair? _g2286522892_) - (let ((_e2287022895_ - (gx#syntax-e _g2286522892_))) - (let ((_hd2286922899_ + _g2294622965_))) + (_g2294423288_ + (lambda (_g2294622973_) + (if (gx#stx-pair? _g2294622973_) + (let ((_e2295122976_ + (gx#syntax-e _g2294622973_))) + (let ((_hd2295022980_ (let () (declare (not safe)) - (##car _e2287022895_))) - (_tl2286822902_ + (##car _e2295122976_))) + (_tl2294922983_ (let () (declare (not safe)) - (##cdr _e2287022895_)))) - (if (gx#stx-pair? _tl2286822902_) - (let ((_e2287322905_ - (gx#syntax-e _tl2286822902_))) - (let ((_hd2287222909_ + (##cdr _e2295122976_)))) + (if (gx#stx-pair? _tl2294922983_) + (let ((_e2295422986_ + (gx#syntax-e _tl2294922983_))) + (let ((_hd2295322990_ (let () (declare (not safe)) - (##car _e2287322905_))) - (_tl2287122912_ + (##car _e2295422986_))) + (_tl2295222993_ (let () (declare (not safe)) - (##cdr _e2287322905_)))) + (##cdr _e2295422986_)))) (if (gx#stx-pair/null? - _hd2287222909_) - (let ((_g43099_ + _hd2295322990_) + (let ((_g43111_ (gx#syntax-split-splice - _hd2287222909_ + _hd2295322990_ '0))) (begin - (let ((_g43100_ + (let ((_g43112_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g43099_) - (##vector-length _g43099_) + (if (##values? _g43111_) + (##vector-length _g43111_) 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= _g43112_ 2))) + (error "Context expects 2 values" _g43112_))) + (let ((_target2295522996_ + (let () (declare (not safe)) (##vector-ref _g43111_ 0))) + (_tl2295722999_ + (let () (declare (not safe)) (##vector-ref _g43111_ 1)))) + (if (gx#stx-null? _tl2295722999_) + (letrec ((_loop2295823002_ + (lambda (_hd2295623006_ _var2296223009_) + (if (gx#stx-pair? _hd2295623006_) + (let ((_e2295923012_ + (gx#syntax-e _hd2295623006_))) + (let ((_lp-hd2296023016_ (let () (declare (not safe)) - (##car _e2287822931_))) - (_lp-tl2288022938_ + (##car _e2295923012_))) + (_lp-tl2296123019_ (let () (declare (not safe)) - (##cdr _e2287822931_)))) - (let ((__tmp43104 - (cons _lp-hd2287922935_ - _var2288122928_))) + (##cdr _e2295923012_)))) + (let ((__tmp43116 + (cons _lp-hd2296023016_ + _var2296223009_))) (declare (not safe)) - (_loop2287722921_ - _lp-tl2288022938_ - __tmp43104)))) - (let ((_var2288222941_ - (reverse _var2288122928_))) - (if (gx#stx-null? _tl2287122912_) - ((lambda (_L22945_ _L22947_) + (_loop2295823002_ + _lp-tl2296123019_ + __tmp43116)))) + (let ((_var2296323022_ + (reverse _var2296223009_))) + (if (gx#stx-null? _tl2295222993_) + ((lambda (_L23026_ _L23028_) (let () (gx#check-duplicate-identifiers - (foldr (lambda (_g2296822971_ - _g2296922974_) - (cons _g2296822971_ - _g2296922974_)) + (foldr (lambda (_g2304923052_ + _g2305023055_) + (cons _g2304923052_ + _g2305023055_)) '() - _L22945_) - _stx22848_) - (let* ((_g2297722985_ - (lambda (_g2297822981_) + _L23026_) + _stx22929_) + (let* ((_g2305823066_ + (lambda (_g2305923062_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2297822981_))) - (_g2297623079_ - (lambda (_g2297822989_) - ((lambda (_L22992_) + _g2305923062_))) + (_g2305723160_ + (lambda (_g2305923070_) + ((lambda (_L23073_) (let () - (let* ((_g2300523013_ + (let* ((_g2308623094_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2300623009_) + (lambda (_g2308723090_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2300623009_))) - (_g2300423075_ - (lambda (_g2300623017_) - ((lambda (_L23020_) + _g2308723090_))) + (_g2308523156_ + (lambda (_g2308723098_) + ((lambda (_L23101_) (let () - (let* ((_g2303323041_ - (lambda (_g2303423037_) + (let* ((_g2311423122_ + (lambda (_g2311523118_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2303423037_))) - (_g2303223063_ - (lambda (_g2303423045_) - ((lambda (_L23048_) + _g2311523118_))) + (_g2311323144_ + (lambda (_g2311523126_) + ((lambda (_L23129_) (let () (let () (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons _L22947_ + (cons (cons _L23028_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L23048_ '())) - (cons _L22992_ '()))) - (gx#stx-source _stx22848_))))) + (cons _L23129_ '())) + (cons _L23073_ '()))) + (gx#stx-source _stx22929_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2303423045_))) - (__tmp43101 + _g2311523126_))) + (__tmp43113 (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (foldr (lambda (_g2306623069_ + (cons (foldr (lambda (_g2314723150_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2306723072_) - (cons _g2306623069_ _g2306723072_)) + _g2314823153_) + (cons _g2314723150_ _g2314823153_)) '() - _L22945_) - (cons _L23020_ '()))) + _L23026_) + (cons _L23101_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx22848_)))) + (gx#stx-source _stx22929_)))) (declare (not safe)) - (_g2303223063_ __tmp43101)))) - _g2300623017_)))) + (_g2311323144_ __tmp43113)))) + _g2308723098_)))) (declare (not safe)) - (_g2300423075_ _body22861_)))) - _g2297822989_))) - (__tmp43102 - (let _recur23083_ ((_rest23086_ _clause22859_) - (_rest-targets23088_ _tgt-lst22850_)) - (let* ((___stx4171641717_ _rest23086_) - (_g2309123103_ + (_g2308523156_ _body22942_)))) + _g2305923070_))) + (__tmp43114 + (let _recur23164_ ((_rest23167_ _clause22940_) + (_rest-targets23169_ _tgt-lst22931_)) + (let* ((___stx4179741798_ _rest23167_) + (_g2317223184_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4171641717_)))) - (let ((___kont4171941720_ - (lambda (_L23139_ _L23141_) - (let* ((_g2315623168_ - (lambda (_g2315723164_) + ___stx4179741798_)))) + (let ((___kont4180041801_ + (lambda (_L23220_ _L23222_) + (let* ((_g2323723249_ + (lambda (_g2323823245_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2315723164_))) - (_g2315523199_ - (lambda (_g2315723172_) - (if (gx#stx-pair? _g2315723172_) - (let ((_e2316223175_ - (gx#syntax-e _g2315723172_))) - (let ((_hd2316123179_ + _g2323823245_))) + (_g2323623280_ + (lambda (_g2323823253_) + (if (gx#stx-pair? _g2323823253_) + (let ((_e2324323256_ + (gx#syntax-e _g2323823253_))) + (let ((_hd2324223260_ (let () (declare (not safe)) - (##car _e2316223175_))) - (_tl2316023182_ + (##car _e2324323256_))) + (_tl2324123263_ (let () (declare (not safe)) - (##cdr _e2316223175_)))) - ((lambda (_L23185_ _L23187_) - (let ((__tmp43103 + (##cdr _e2324323256_)))) + ((lambda (_L23266_ _L23268_) + (let ((__tmp43115 (let () (declare (not safe)) - (_recur23083_ - _L23139_ - _L23185_)))) + (_recur23164_ + _L23220_ + _L23266_)))) (declare (not safe)) (|gerbil/core$[1]#generate-match1| - _stx22848_ - _L23187_ - _L23141_ - __tmp43103 - _E22862_))) - _tl2316023182_ - _hd2316123179_))) + _stx22929_ + _L23268_ + _L23222_ + __tmp43115 + _E22943_))) + _tl2324123263_ + _hd2324223260_))) (let () (declare (not safe)) - (_g2315623168_ _g2315723172_)))))) + (_g2323723249_ _g2323823253_)))))) (declare (not safe)) - (_g2315523199_ _rest-targets23088_)))) - (___kont4172141722_ + (_g2323623280_ _rest-targets23169_)))) + (___kont4180241803_ (lambda () - (cons _L22947_ - (foldr (lambda (_g2311323116_ _g2311423119_) - (cons _g2311323116_ _g2311423119_)) + (cons _L23028_ + (foldr (lambda (_g2319423197_ _g2319523200_) + (cons _g2319423197_ _g2319523200_)) '() - _L22945_))))) - (if (gx#stx-pair? ___stx4171641717_) - (let ((_e2309723129_ (gx#syntax-e ___stx4171641717_))) - (let ((_tl2309523136_ + _L23026_))))) + (if (gx#stx-pair? ___stx4179741798_) + (let ((_e2317823210_ (gx#syntax-e ___stx4179741798_))) + (let ((_tl2317623217_ (let () (declare (not safe)) - (##cdr _e2309723129_))) - (_hd2309623133_ + (##cdr _e2317823210_))) + (_hd2317723214_ (let () (declare (not safe)) - (##car _e2309723129_)))) - (___kont4171941720_ - _tl2309523136_ - _hd2309623133_))) - (___kont4172141722_))))))) + (##car _e2317823210_)))) + (___kont4180041801_ + _tl2317623217_ + _hd2317723214_))) + (___kont4180241803_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2297623079_ __tmp43102)))) - _var2288222941_ - _hd2286922899_) + (_g2305723160_ __tmp43114)))) + _var2296323022_ + _hd2295022980_) (let () (declare (not safe)) - (_g2286422888_ - _g2286522892_)))))))) + (_g2294522969_ + _g2294622973_)))))))) (let () (declare (not safe)) - (_loop2287722921_ _target2287422915_ '()))) + (_loop2295823002_ _target2295522996_ '()))) (let () (declare (not safe)) - (_g2286422888_ _g2286522892_)))))) + (_g2294522969_ _g2294622973_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2286422888_ - _g2286522892_))))) + (_g2294522969_ + _g2294622973_))))) (let () (declare (not safe)) - (_g2286422888_ _g2286522892_))))) + (_g2294522969_ _g2294622973_))))) (let () (declare (not safe)) - (_g2286422888_ _g2286522892_))))) - (__tmp43105 + (_g2294522969_ _g2294622973_))))) + (__tmp43117 (list (gx#genident 'K) (apply append (map |gerbil/core$[1]#match-pattern-vars| - _clause22859_))))) + _clause22940_))))) (declare (not safe)) - (_g2286323207_ __tmp43105))))) - (let ((__tmp43106 - (let ((__tmp43107 (gx#stx-length _tgt-lst22850_))) + (_g2294423288_ __tmp43117))))) + (let ((__tmp43118 + (let ((__tmp43119 (gx#stx-length _tgt-lst22931_))) (declare (not safe)) - (_parse-body22853_ __tmp43107)))) + (_parse-body22934_ __tmp43119)))) (declare (not safe)) - (_generate-body22855_ __tmp43106))))) + (_generate-body22936_ __tmp43118))))) (define |gerbil/core$[1]#generate-match| - (lambda (_stx22750_ _tgt22752_ _clauses22753_) - (letrec ((_reclause22755_ - (lambda (_clause22758_) - (let* ((___stx4173241733_ _clause22758_) - (_g2276322778_ + (lambda (_stx22831_ _tgt22833_ _clauses22834_) + (letrec ((_reclause22836_ + (lambda (_clause22839_) + (let* ((___stx4181341814_ _clause22839_) + (_g2284422859_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4173241733_)))) - (let ((___kont4173541736_ (lambda () _clause22758_)) - (___kont4173741738_ - (lambda (_L22806_ _L22808_) + ___stx4181341814_)))) + (let ((___kont4181641817_ (lambda () _clause22839_)) + (___kont4181841819_ + (lambda (_L22887_ _L22889_) (gx#stx-wrap-source - (cons (cons _L22808_ '()) _L22806_) + (cons (cons _L22889_ '()) _L22887_) (gx#stx-source (gx#datum->syntax '#f 'clause))))) - (___kont4173941740_ + (___kont4182041821_ (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_ + _stx22831_ + _clause22839_)))) + (if (gx#stx-pair? ___stx4181341814_) + (let ((_e2284822911_ + (gx#syntax-e ___stx4181341814_))) + (let ((_tl2284622918_ (let () (declare (not safe)) - (##cdr _e2276722830_))) - (_hd2276622834_ + (##cdr _e2284822911_))) + (_hd2284722915_ (let () (declare (not safe)) - (##car _e2276722830_)))) - (if (gx#identifier? _hd2276622834_) + (##car _e2284822911_)))) + (if (gx#identifier? _hd2284722915_) (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]#_g43120_| + _hd2284722915_) + (___kont4181641817_) + (___kont4181841819_ + _tl2284622918_ + _hd2284722915_)) + (___kont4181841819_ + _tl2284622918_ + _hd2284722915_)))) + (___kont4182041821_))))))) + (let ((__tmp43122 (cons _tgt22833_ '())) + (__tmp43121 (gx#stx-map _reclause22836_ _clauses22834_))) (declare (not safe)) (|gerbil/core$[1]#generate-match*| - _stx22750_ - __tmp43110 - __tmp43109))))) + _stx22831_ + __tmp43122 + __tmp43121))))) (define |gerbil/core$[:0:]#match| - (lambda (_stx30359_) - (let* ((___stx4176041761_ _stx30359_) - (_g3036430393_ + (lambda (_stx30440_) + (let* ((___stx4184141842_ _stx30440_) + (_g3044530474_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4176041761_)))) - (let ((___kont4176341764_ - (lambda (_L30633_) - (let* ((_g3064630654_ - (lambda (_g3064730650_) + ___stx4184141842_)))) + (let ((___kont4184441845_ + (lambda (_L30714_) + (let* ((_g3072730735_ + (lambda (_g3072830731_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3064730650_))) - (_g3064530707_ - (lambda (_g3064730658_) - ((lambda (_L30661_) + _g3072830731_))) + (_g3072630788_ + (lambda (_g3072830739_) + ((lambda (_L30742_) (let () - (let* ((_g3067330681_ - (lambda (_g3067430677_) + (let* ((_g3075430762_ + (lambda (_g3075530758_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3067430677_))) - (_g3067230703_ - (lambda (_g3067430685_) - ((lambda (_L30688_) + _g3075530758_))) + (_g3075330784_ + (lambda (_g3075530766_) + ((lambda (_L30769_) (let () (let () (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _L30661_ + (cons (cons _L30742_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _L30688_ '())))))) + (cons _L30769_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g3067430685_)))) - (_g3067230703_ + _g3075530766_)))) + (_g3075330784_ (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 _L30742_ _L30714_)) + (gx#stx-source _stx30440_)))))) + _g3072830739_)))) + (_g3072630788_ (gx#genident 'e))))) + (___kont4184641847_ + (lambda (_L30609_) + (let* ((_g3062230630_ + (lambda (_g3062330626_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3054230545_))) - (_g3054030602_ - (lambda (_g3054230553_) - ((lambda (_L30556_) + _g3062330626_))) + (_g3062130683_ + (lambda (_g3062330634_) + ((lambda (_L30637_) (let () - (let* ((_g3056830576_ - (lambda (_g3056930572_) + (let* ((_g3064930657_ + (lambda (_g3065030653_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3056930572_))) - (_g3056730598_ - (lambda (_g3056930580_) - ((lambda (_L30583_) + _g3065030653_))) + (_g3064830679_ + (lambda (_g3065030661_) + ((lambda (_L30664_) (let () (let () (cons (gx#datum->syntax '#f 'lambda) - (cons _L30556_ - (cons _L30583_ + (cons _L30637_ + (cons _L30664_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g3056930580_)))) - (_g3056730598_ + _g3065030661_)))) + (_g3064830679_ (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 _L30637_ _L30609_)) + (gx#stx-source _stx30440_)))))) + _g3062330634_)))) + (_g3062130683_ (gx#genident 'args))))) + (___kont4184841849_ + (lambda (_L30501_ _L30503_) + (let* ((_g3051730525_ + (lambda (_g3051830521_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3043730440_))) - (_g3043530497_ - (lambda (_g3043730448_) - ((lambda (_L30451_) + _g3051830521_))) + (_g3051630578_ + (lambda (_g3051830529_) + ((lambda (_L30532_) (let () - (let* ((_g3046330471_ - (lambda (_g3046430467_) + (let* ((_g3054430552_ + (lambda (_g3054530548_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3046430467_))) - (_g3046230493_ - (lambda (_g3046430475_) - ((lambda (_L30478_) + _g3054530548_))) + (_g3054330574_ + (lambda (_g3054530556_) + ((lambda (_L30559_) (let () (let () (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _L30451_ + (cons (cons (cons _L30532_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L30422_ '())) + (cons _L30503_ '())) '()) - (cons _L30478_ '())))))) + (cons _L30559_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g3046430475_)))) - (_g3046230493_ + _g3054530556_)))) + (_g3054330574_ (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_ + _stx30440_ + _L30532_ + _L30501_)))))) + _g3051830529_)))) + (_g3051630578_ (gx#genident _L30503_)))))) + (let* ((___match4189441895_ + (lambda (_e3046530481_ + _hd3046430485_ + _tl3046330488_ + _e3046830491_ + _hd3046730495_ + _tl3046630498_) + (let ((_L30501_ _tl3046630498_) + (_L30503_ _hd3046730495_)) + (if (gx#stx-list? _L30501_) + (___kont4184841849_ _L30501_ _L30503_) + (let () (declare (not safe)) (_g3044530474_)))))) + (___match4188241883_ + (lambda (_e3045730589_ + _hd3045630593_ + _tl3045530596_ + _e3046030599_ + _hd3045930603_ + _tl3045830606_) + (let ((_L30609_ _tl3045830606_)) + (if (gx#stx-list? _L30609_) + (___kont4184641847_ _L30609_) + (___match4189441895_ + _e3045730589_ + _hd3045630593_ + _tl3045530596_ + _e3046030599_ + _hd3045930603_ + _tl3045830606_))))) + (___match4186641867_ + (lambda (_e3045030694_ + _hd3044930698_ + _tl3044830701_ + _e3045330704_ + _hd3045230708_ + _tl3045130711_) + (let ((_L30714_ _tl3045130711_)) + (if (gx#stx-list? _L30714_) + (___kont4184441845_ _L30714_) + (___match4189441895_ + _e3045030694_ + _hd3044930698_ + _tl3044830701_ + _e3045330704_ + _hd3045230708_ + _tl3045130711_)))))) + (if (gx#stx-pair? ___stx4184141842_) + (let ((_e3045030694_ (gx#syntax-e ___stx4184141842_))) + (let ((_tl3044830701_ + (let () (declare (not safe)) (##cdr _e3045030694_))) + (_hd3044930698_ (let () (declare (not safe)) - (##car _e3036930613_)))) - (if (gx#stx-pair? _tl3036730620_) - (let ((_e3037230623_ (gx#syntax-e _tl3036730620_))) - (let ((_tl3037030630_ + (##car _e3045030694_)))) + (if (gx#stx-pair? _tl3044830701_) + (let ((_e3045330704_ (gx#syntax-e _tl3044830701_))) + (let ((_tl3045130711_ (let () (declare (not safe)) - (##cdr _e3037230623_))) - (_hd3037130627_ + (##cdr _e3045330704_))) + (_hd3045230708_ (let () (declare (not safe)) - (##car _e3037230623_)))) - (if (gx#identifier? _hd3037130627_) + (##car _e3045330704_)))) + (if (gx#identifier? _hd3045230708_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43112_| - _hd3037130627_) - (___match4178541786_ - _e3036930613_ - _hd3036830617_ - _tl3036730620_ - _e3037230623_ - _hd3037130627_ - _tl3037030630_) + |gerbil/core$[1]#_g43124_| + _hd3045230708_) + (___match4186641867_ + _e3045030694_ + _hd3044930698_ + _tl3044830701_ + _e3045330704_ + _hd3045230708_ + _tl3045130711_) (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]#_g43123_| + _hd3045230708_) + (___match4188241883_ + _e3045030694_ + _hd3044930698_ + _tl3044830701_ + _e3045330704_ + _hd3045230708_ + _tl3045130711_) + (___match4189441895_ + _e3045030694_ + _hd3044930698_ + _tl3044830701_ + _e3045330704_ + _hd3045230708_ + _tl3045130711_))) + (___match4189441895_ + _e3045030694_ + _hd3044930698_ + _tl3044830701_ + _e3045330704_ + _hd3045230708_ + _tl3045130711_)))) + (let () (declare (not safe)) (_g3044530474_))))) + (let () (declare (not safe)) (_g3044530474_)))))))) (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 (_stx30796_) + (let* ((_g3079930823_ + (lambda (_g3080030819_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3080030819_))) + (_g3079831035_ + (lambda (_g3080030827_) + (if (gx#stx-pair? _g3080030827_) + (let ((_e3080530830_ (gx#syntax-e _g3080030827_))) + (let ((_hd3080430834_ (let () (declare (not safe)) - (##car _e3072430749_))) - (_tl3072230756_ + (##car _e3080530830_))) + (_tl3080330837_ (let () (declare (not safe)) - (##cdr _e3072430749_)))) - (if (gx#stx-pair? _tl3072230756_) - (let ((_e3072730759_ - (gx#syntax-e _tl3072230756_))) - (let ((_hd3072630763_ + (##cdr _e3080530830_)))) + (if (gx#stx-pair? _tl3080330837_) + (let ((_e3080830840_ + (gx#syntax-e _tl3080330837_))) + (let ((_hd3080730844_ (let () (declare (not safe)) - (##car _e3072730759_))) - (_tl3072530766_ + (##car _e3080830840_))) + (_tl3080630847_ (let () (declare (not safe)) - (##cdr _e3072730759_)))) - (if (gx#stx-pair/null? _hd3072630763_) - (let ((_g43113_ + (##cdr _e3080830840_)))) + (if (gx#stx-pair/null? _hd3080730844_) + (let ((_g43125_ (gx#syntax-split-splice - _hd3072630763_ + _hd3080730844_ '0))) (begin - (let ((_g43114_ + (let ((_g43126_ (let () (declare (not safe)) - (if (##values? _g43113_) + (if (##values? _g43125_) (##vector-length - _g43113_) + _g43125_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43114_ 2))) + (##fx= _g43126_ 2))) (error "Context expects 2 values" - _g43114_))) - (let ((_target3072830769_ + _g43126_))) + (let ((_target3080930850_ (let () (declare (not safe)) - (##vector-ref _g43113_ 0))) - (_tl3073030772_ + (##vector-ref _g43125_ 0))) + (_tl3081130853_ (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 _g43125_ 1)))) + (if (gx#stx-null? _tl3081130853_) + (letrec ((_loop3081230856_ + (lambda (_hd3081030860_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _e3081630863_) + (if (gx#stx-pair? _hd3081030860_) + (let ((_e3081330866_ (gx#syntax-e _hd3081030860_))) + (let ((_lp-hd3081430870_ (let () (declare (not safe)) - (##car _e3073230785_))) - (_lp-tl3073430792_ + (##car _e3081330866_))) + (_lp-tl3081530873_ (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 _e3081330866_)))) + (_loop3081230856_ + _lp-tl3081530873_ + (cons _lp-hd3081430870_ _e3081630863_)))) + (let ((_e3081730876_ (reverse _e3081630863_))) + ((lambda (_L30880_ _L30882_) + (if (gx#stx-list? _L30880_) + (let* ((_g3090030917_ + (lambda (_g3090130913_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3082030832_))) - (_g3081830942_ - (lambda (_g3082030840_) + _g3090130913_))) + (_g3089931023_ + (lambda (_g3090130921_) (if (gx#stx-pair/null? - _g3082030840_) - (let ((_g43115_ + _g3090130921_) + (let ((_g43127_ (gx#syntax-split-splice - _g3082030840_ + _g3090130921_ '0))) (begin - (let ((_g43116_ + (let ((_g43128_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g43115_) - (##vector-length _g43115_) + _g43127_) + (##vector-length _g43127_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g43116_ 2))) - (error "Context expects 2 values" _g43116_))) + (##fx= _g43128_ 2))) + (error "Context expects 2 values" _g43128_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3082230843_ + (let ((_target3090330924_ (let () (declare (not safe)) (##vector-ref - _g43115_ + _g43127_ 0))) - (_tl3082430846_ + (_tl3090530927_ (let () (declare (not safe)) (##vector-ref - _g43115_ + _g43127_ 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_ + _tl3090530927_) + (letrec ((_loop3090630930_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd3090430934_ _$e3091030937_) + (if (gx#stx-pair? _hd3090430934_) + (let ((_e3090730940_ + (gx#syntax-e _hd3090430934_))) + (let ((_lp-hd3090830944_ (let () (declare (not safe)) - (##car _e3082630859_))) - (_lp-tl3082830866_ + (##car _e3090730940_))) + (_lp-tl3090930947_ (let () (declare (not safe)) - (##cdr _e3082630859_)))) - (_loop3082530849_ - _lp-tl3082830866_ - (cons _lp-hd3082730863_ - _$e3082930856_)))) - (let ((_$e3083030869_ - (reverse _$e3082930856_))) - ((lambda (_L30873_) + (##cdr _e3090730940_)))) + (_loop3090630930_ + _lp-tl3090930947_ + (cons _lp-hd3090830944_ + _$e3091030937_)))) + (let ((_$e3091130950_ + (reverse _$e3091030937_))) + ((lambda (_L30954_) (let () - (let* ((_g3088930897_ - (lambda (_g3089030893_) + (let* ((_g3097030978_ + (lambda (_g3097130974_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3089030893_))) - (_g3088830930_ - (lambda (_g3089030901_) - ((lambda (_L30904_) + _g3097130974_))) + (_g3096931011_ + (lambda (_g3097130982_) + ((lambda (_L30985_) (let () (let () (cons (gx#datum->syntax @@ -6050,984 +6050,984 @@ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-check-splice-targets - _L30801_ - _L30873_) - (foldr (lambda (_g3091830922_ - _g3091930925_ - _g3092030927_) - (cons (cons _g3091930925_ - (cons _g3091830922_ '())) - _g3092030927_)) + _L30882_ + _L30954_) + (foldr (lambda (_g3099931003_ + _g3100031006_ + _g3100131008_) + (cons (cons _g3100031006_ + (cons _g3099931003_ '())) + _g3100131008_)) '() - _L30801_ - _L30873_)) - (cons _L30904_ '())))))) + _L30882_ + _L30954_)) + (cons _L30985_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g3089030901_)))) - (_g3088830930_ - (let ((__tmp43117 - (foldr (lambda (_g3093330936_ + _g3097130982_)))) + (_g3096931011_ + (let ((__tmp43129 + (foldr (lambda (_g3101431017_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3093430939_) - (cons _g3093330936_ _g3093430939_)) + _g3101531020_) + (cons _g3101431017_ _g3101531020_)) '() - _L30873_))) + _L30954_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (|gerbil/core$[1]#generate-match*| - _stx30715_ - __tmp43117 - _L30799_)))))) - _$e3083030869_)))))) - (_loop3082530849_ _target3082230843_ '())) - (_g3081930836_ _g3082030840_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3081930836_ - _g3082030840_))))) - (_g3081830942_ + _stx30796_ + __tmp43129 + _L30880_)))))) + _$e3091130950_)))))) + (_loop3090630930_ _target3090330924_ '())) + (_g3090030917_ _g3090130921_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g3090030917_ + _g3090130921_))))) + (_g3089931023_ (gx#gentemps - (foldr (lambda (_g3094530948_ - _g3094630951_) - (cons _g3094530948_ - _g3094630951_)) + (foldr (lambda (_g3102631029_ + _g3102731032_) + (cons _g3102631029_ + _g3102731032_)) '() - _L30801_)))) - (_g3071830742_ _g3071930746_))) - _tl3072530766_ - _e3073630795_)))))) + _L30882_)))) + (_g3079930823_ _g3080030827_))) + _tl3080630847_ + _e3081730876_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3073130775_ - _target3072830769_ + (_loop3081230856_ + _target3080930850_ '())) - (_g3071830742_ - _g3071930746_))))) - (_g3071830742_ _g3071930746_)))) - (_g3071830742_ _g3071930746_)))) - (_g3071830742_ _g3071930746_))))) - (_g3071730954_ _stx30715_)))) + (_g3079930823_ + _g3080030827_))))) + (_g3079930823_ _g3080030827_)))) + (_g3079930823_ _g3080030827_)))) + (_g3079930823_ _g3080030827_))))) + (_g3079831035_ _stx30796_)))) (define |gerbil/core$[:0:]#with| - (lambda (_$stx30960_) - (let* ((___stx4181641817_ _$stx30960_) - (_g3096631049_ + (lambda (_$stx31041_) + (let* ((___stx4189741898_ _$stx31041_) + (_g3104731130_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4181641817_)))) - (let ((___kont4181941820_ - (lambda (_L31379_) + ___stx4189741898_)))) + (let ((___kont4190041901_ + (lambda (_L31460_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_g3139531398_ _g3139631401_) - (cons _g3139531398_ _g3139631401_)) + (foldr (lambda (_g3147631479_ _g3147731482_) + (cons _g3147631479_ _g3147731482_)) '() - _L31379_))))) - (___kont4182341824_ - (lambda (_L31287_ _L31289_ _L31290_ _L31291_) - (cons _L31291_ - (cons (cons (cons _L31290_ (cons _L31289_ '())) '()) - (foldr (lambda (_g3131331316_ _g3131431319_) - (cons _g3131331316_ _g3131431319_)) + _L31460_))))) + (___kont4190441905_ + (lambda (_L31368_ _L31370_ _L31371_ _L31372_) + (cons _L31372_ + (cons (cons (cons _L31371_ (cons _L31370_ '())) '()) + (foldr (lambda (_g3139431397_ _g3139531400_) + (cons _g3139431397_ _g3139531400_)) '() - _L31287_))))) - (___kont4182741828_ - (lambda (_L31160_ _L31162_ _L31163_) + _L31368_))))) + (___kont4190841909_ + (lambda (_L31241_ _L31243_ _L31244_) (cons (gx#datum->syntax '#f 'match*) - (cons (foldr (lambda (_g3118931192_ _g3119031195_) - (cons _g3118931192_ _g3119031195_)) + (cons (foldr (lambda (_g3127031273_ _g3127131276_) + (cons _g3127031273_ _g3127131276_)) '() - _L31162_) - (cons (cons (foldr (lambda (_g3118731198_ - _g3118831201_) - (cons _g3118731198_ - _g3118831201_)) + _L31243_) + (cons (cons (foldr (lambda (_g3126831279_ + _g3126931282_) + (cons _g3126831279_ + _g3126931282_)) '() - _L31163_) - (foldr (lambda (_g3118531204_ - _g3118631207_) - (cons _g3118531204_ - _g3118631207_)) + _L31244_) + (foldr (lambda (_g3126631285_ + _g3126731288_) + (cons _g3126631285_ + _g3126731288_)) '() - _L31160_)) + _L31241_)) '())))))) - (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* ((___match4199041991_ + (lambda (_e3109531137_ + _hd3109431141_ + _tl3109331144_ + _e3109831147_ + _hd3109731151_ + _tl3109631154_ + ___splice4191041911_ + _target3109931157_ + _tl3110131160_) + (letrec ((_loop3110231163_ + (lambda (_hd3110031167_ + _expr3110631170_ + _hd3110731172_) + (if (gx#stx-pair? _hd3110031167_) + (let ((_e3110331175_ + (gx#syntax-e _hd3110031167_))) + (let ((_lp-tl3110531182_ (let () (declare (not safe)) - (##cdr _e3102231094_))) - (_lp-hd3102331098_ + (##cdr _e3110331175_))) + (_lp-hd3110431179_ (let () (declare (not safe)) - (##car _e3102231094_)))) - (if (gx#stx-pair? _lp-hd3102331098_) - (let ((_e3103131104_ + (##car _e3110331175_)))) + (if (gx#stx-pair? _lp-hd3110431179_) + (let ((_e3111231185_ (gx#syntax-e - _lp-hd3102331098_))) - (let ((_tl3102931111_ + _lp-hd3110431179_))) + (let ((_tl3111031192_ (let () (declare (not safe)) - (##cdr _e3103131104_))) - (_hd3103031108_ + (##cdr _e3111231185_))) + (_hd3111131189_ (let () (declare (not safe)) - (##car _e3103131104_)))) + (##car _e3111231185_)))) (if (gx#stx-pair? - _tl3102931111_) - (let ((_e3103431114_ + _tl3111031192_) + (let ((_e3111531195_ (gx#syntax-e - _tl3102931111_))) - (let ((_tl3103231121_ + _tl3111031192_))) + (let ((_tl3111331202_ (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 _e3111531195_))) + (_hd3111431199_ + (let () (declare (not safe)) (##car _e3111531195_)))) + (if (gx#stx-null? _tl3111331202_) + (_loop3110231163_ + _lp-tl3110531182_ + (cons _hd3111431199_ _expr3110631170_) + (cons _hd3111131189_ _hd3110731172_)) + (let () (declare (not safe)) (_g3104731130_))))) + (let () (declare (not safe)) (_g3104731130_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3096631049_))))) - (let ((_hd3102831127_ - (reverse _hd3102631091_)) - (_expr3102731124_ - (reverse _expr3102531089_))) - (if (gx#stx-pair/null? _tl3101531073_) - (let ((___splice4183141832_ + (_g3104731130_))))) + (let ((_hd3110931208_ + (reverse _hd3110731172_)) + (_expr3110831205_ + (reverse _expr3110631170_))) + (if (gx#stx-pair/null? _tl3109631154_) + (let ((___splice4191241913_ (gx#syntax-split-splice - _tl3101531073_ + _tl3109631154_ '0))) - (let ((_tl3103731133_ + (let ((_tl3111831214_ (let () (declare (not safe)) (##vector-ref - ___splice4183141832_ + ___splice4191241913_ '1))) - (_target3103531130_ + (_target3111631211_ (let () (declare (not safe)) (##vector-ref - ___splice4183141832_ + ___splice4191241913_ '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_ + _tl3111831214_) + (letrec ((_loop3111931217_ + (lambda (_hd3111731221_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _body3112331224_) + (if (gx#stx-pair? _hd3111731221_) + (let ((_e3112031227_ (gx#syntax-e _hd3111731221_))) + (let ((_lp-tl3112231234_ (let () (declare (not safe)) - (##cdr _e3103931146_))) - (_lp-hd3104031150_ + (##cdr _e3112031227_))) + (_lp-hd3112131231_ (let () (declare (not safe)) - (##car _e3103931146_)))) - (_loop3103831136_ - _lp-tl3104131153_ - (cons _lp-hd3104031150_ _body3104231143_)))) - (let ((_body3104331156_ - (reverse _body3104231143_))) - (___kont4182741828_ - _body3104331156_ - _expr3102731124_ - _hd3102831127_)))))) - (_loop3103831136_ _target3103531130_ '())) + (##car _e3112031227_)))) + (_loop3111931217_ + _lp-tl3112231234_ + (cons _lp-hd3112131231_ _body3112331224_)))) + (let ((_body3112431237_ + (reverse _body3112331224_))) + (___kont4190841909_ + _body3112431237_ + _expr3110831205_ + _hd3110931208_)))))) + (_loop3111931217_ _target3111631211_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3096631049_))))) + (_g3104731130_))))) (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_ + (_g3104731130_)))))))) + (_loop3110231163_ _target3109931157_ '() '())))) + (___match4198241983_ + (lambda (_e3109531137_ + _hd3109431141_ + _tl3109331144_ + _e3109831147_ + _hd3109731151_ + _tl3109631154_) + (if (gx#stx-pair/null? _hd3109731151_) + (let ((___splice4191041911_ + (gx#syntax-split-splice _hd3109731151_ '0))) + (let ((_tl3110131160_ (let () (declare (not safe)) - (##vector-ref ___splice4182941830_ '1))) - (_target3101831076_ + (##vector-ref ___splice4191041911_ '1))) + (_target3109931157_ (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 ___splice4191041911_ '0)))) + (if (gx#stx-null? _tl3110131160_) + (___match4199041991_ + _e3109531137_ + _hd3109431141_ + _tl3109331144_ + _e3109831147_ + _hd3109731151_ + _tl3109631154_ + ___splice4191041911_ + _target3109931157_ + _tl3110131160_) (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_ + (_g3104731130_))))) + (let () (declare (not safe)) (_g3104731130_))))) + (___match4197041971_ + (lambda (_e3107131298_ + _hd3107031302_ + _tl3106931305_ + _e3107431308_ + _hd3107331312_ + _tl3107231315_ + _e3107731318_ + _hd3107631322_ + _tl3107531325_ + _e3108031328_ + _hd3107931332_ + _tl3107831335_ + ___splice4190641907_ + _target3108131338_ + _tl3108331341_) + (letrec ((_loop3108431344_ + (lambda (_hd3108231348_ _body3108831351_) + (if (gx#stx-pair? _hd3108231348_) + (let ((_e3108531354_ + (gx#syntax-e _hd3108231348_))) + (let ((_lp-tl3108731361_ (let () (declare (not safe)) - (##cdr _e3100431273_))) - (_lp-hd3100531277_ + (##cdr _e3108531354_))) + (_lp-hd3108631358_ (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 _e3108531354_)))) + (_loop3108431344_ + _lp-tl3108731361_ + (cons _lp-hd3108631358_ + _body3108831351_)))) + (let ((_body3108931364_ + (reverse _body3108831351_))) + (let ((_L31368_ _body3108931364_) + (_L31370_ _hd3107931332_) + (_L31371_ _hd3107631322_) + (_L31372_ _hd3107031302_)) (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_ + _L31371_)) + (___kont4190441905_ + _L31368_ + _L31370_ + _L31371_ + _L31372_) + (___match4198241983_ + _e3107131298_ + _hd3107031302_ + _tl3106931305_ + _e3107431308_ + _hd3107331312_ + _tl3107231315_)))))))) + (_loop3108431344_ _target3108131338_ '())))) + (___match4193641937_ + (lambda (_e3105231410_ + _hd3105131414_ + _tl3105031417_ + _e3105531420_ + _hd3105431424_ + _tl3105331427_ + ___splice4190241903_ + _target3105631430_ + _tl3105831433_) + (letrec ((_loop3105931436_ + (lambda (_hd3105731440_ _body3106331443_) + (if (gx#stx-pair? _hd3105731440_) + (let ((_e3106031446_ + (gx#syntax-e _hd3105731440_))) + (let ((_lp-tl3106231453_ (let () (declare (not safe)) - (##cdr _e3097931365_))) - (_lp-hd3098031369_ + (##cdr _e3106031446_))) + (_lp-hd3106131450_ (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 _e3106031446_)))) + (_loop3105931436_ + _lp-tl3106231453_ + (cons _lp-hd3106131450_ + _body3106331443_)))) + (let ((_body3106431456_ + (reverse _body3106331443_))) + (___kont4190041901_ + _body3106431456_)))))) + (_loop3105931436_ _target3105631430_ '()))))) + (if (gx#stx-pair? ___stx4189741898_) + (let ((_e3105231410_ (gx#syntax-e ___stx4189741898_))) + (let ((_tl3105031417_ + (let () (declare (not safe)) (##cdr _e3105231410_))) + (_hd3105131414_ (let () (declare (not safe)) - (##car _e3097131329_)))) - (if (gx#stx-pair? _tl3096931336_) - (let ((_e3097431339_ (gx#syntax-e _tl3096931336_))) - (let ((_tl3097231346_ + (##car _e3105231410_)))) + (if (gx#stx-pair? _tl3105031417_) + (let ((_e3105531420_ (gx#syntax-e _tl3105031417_))) + (let ((_tl3105331427_ (let () (declare (not safe)) - (##cdr _e3097431339_))) - (_hd3097331343_ + (##cdr _e3105531420_))) + (_hd3105431424_ (let () (declare (not safe)) - (##car _e3097431339_)))) - (if (gx#stx-null? _hd3097331343_) - (if (gx#stx-pair/null? _tl3097231346_) - (let ((___splice4182141822_ + (##car _e3105531420_)))) + (if (gx#stx-null? _hd3105431424_) + (if (gx#stx-pair/null? _tl3105331427_) + (let ((___splice4190241903_ (gx#syntax-split-splice - _tl3097231346_ + _tl3105331427_ '0))) - (let ((_tl3097731352_ + (let ((_tl3105831433_ (let () (declare (not safe)) (##vector-ref - ___splice4182141822_ + ___splice4190241903_ '1))) - (_target3097531349_ + (_target3105631430_ (let () (declare (not safe)) (##vector-ref - ___splice4182141822_ + ___splice4190241903_ '0)))) - (if (gx#stx-null? _tl3097731352_) - (___match4185541856_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182141822_ - _target3097531349_ - _tl3097731352_) + (if (gx#stx-null? _tl3105831433_) + (___match4193641937_ + _e3105231410_ + _hd3105131414_ + _tl3105031417_ + _e3105531420_ + _hd3105431424_ + _tl3105331427_ + ___splice4190241903_ + _target3105631430_ + _tl3105831433_) (if (gx#stx-pair/null? - _hd3097331343_) - (let ((___splice4182941830_ + _hd3105431424_) + (let ((___splice4191041911_ (gx#syntax-split-splice - _hd3097331343_ + _hd3105431424_ '0))) - (let ((_tl3102031079_ + (let ((_tl3110131160_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4191041911_ '1))) - (_target3101831076_ + (_target3109931157_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4191041911_ '0)))) (if (gx#stx-null? - _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) + _tl3110131160_) + (___match4199041991_ + _e3105231410_ + _hd3105131414_ + _tl3105031417_ + _e3105531420_ + _hd3105431424_ + _tl3105331427_ + ___splice4191041911_ + _target3109931157_ + _tl3110131160_) (let () (declare (not safe)) - (_g3096631049_))))) + (_g3104731130_))))) (let () (declare (not safe)) - (_g3096631049_)))))) - (if (gx#stx-pair/null? _hd3097331343_) - (let ((___splice4182941830_ + (_g3104731130_)))))) + (if (gx#stx-pair/null? _hd3105431424_) + (let ((___splice4191041911_ (gx#syntax-split-splice - _hd3097331343_ + _hd3105431424_ '0))) - (let ((_tl3102031079_ + (let ((_tl3110131160_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4191041911_ '1))) - (_target3101831076_ + (_target3109931157_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4191041911_ '0)))) - (if (gx#stx-null? _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) + (if (gx#stx-null? _tl3110131160_) + (___match4199041991_ + _e3105231410_ + _hd3105131414_ + _tl3105031417_ + _e3105531420_ + _hd3105431424_ + _tl3105331427_ + ___splice4191041911_ + _target3109931157_ + _tl3110131160_) (let () (declare (not safe)) - (_g3096631049_))))) + (_g3104731130_))))) (let () (declare (not safe)) - (_g3096631049_)))) - (if (gx#stx-pair? _hd3097331343_) - (let ((_e3099631237_ - (gx#syntax-e _hd3097331343_))) - (let ((_tl3099431244_ + (_g3104731130_)))) + (if (gx#stx-pair? _hd3105431424_) + (let ((_e3107731318_ + (gx#syntax-e _hd3105431424_))) + (let ((_tl3107531325_ (let () (declare (not safe)) - (##cdr _e3099631237_))) - (_hd3099531241_ + (##cdr _e3107731318_))) + (_hd3107631322_ (let () (declare (not safe)) - (##car _e3099631237_)))) - (if (gx#stx-pair? _tl3099431244_) - (let ((_e3099931247_ + (##car _e3107731318_)))) + (if (gx#stx-pair? _tl3107531325_) + (let ((_e3108031328_ (gx#syntax-e - _tl3099431244_))) - (let ((_tl3099731254_ + _tl3107531325_))) + (let ((_tl3107831335_ (let () (declare (not safe)) - (##cdr _e3099931247_))) - (_hd3099831251_ + (##cdr _e3108031328_))) + (_hd3107931332_ (let () (declare (not safe)) - (##car _e3099931247_)))) + (##car _e3108031328_)))) (if (gx#stx-null? - _tl3099731254_) + _tl3107831335_) (if (gx#stx-pair/null? - _tl3097231346_) - (let ((___splice4182541826_ + _tl3105331427_) + (let ((___splice4190641907_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl3097231346_ '0))) - (let ((_tl3100231260_ + (gx#syntax-split-splice _tl3105331427_ '0))) + (let ((_tl3108331341_ (let () (declare (not safe)) - (##vector-ref ___splice4182541826_ '1))) - (_target3100031257_ + (##vector-ref ___splice4190641907_ '1))) + (_target3108131338_ (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 ___splice4190641907_ '0)))) + (if (gx#stx-null? _tl3108331341_) + (___match4197041971_ + _e3105231410_ + _hd3105131414_ + _tl3105031417_ + _e3105531420_ + _hd3105431424_ + _tl3105331427_ + _e3107731318_ + _hd3107631322_ + _tl3107531325_ + _e3108031328_ + _hd3107931332_ + _tl3107831335_ + ___splice4190641907_ + _target3108131338_ + _tl3108331341_) + (if (gx#stx-pair/null? _hd3105431424_) + (let ((___splice4191041911_ (gx#syntax-split-splice - _hd3097331343_ + _hd3105431424_ '0))) - (let ((_tl3102031079_ + (let ((_tl3110131160_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4191041911_ '1))) - (_target3101831076_ + (_target3109931157_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4191041911_ '0)))) - (if (gx#stx-null? _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) + (if (gx#stx-null? _tl3110131160_) + (___match4199041991_ + _e3105231410_ + _hd3105131414_ + _tl3105031417_ + _e3105531420_ + _hd3105431424_ + _tl3105331427_ + ___splice4191041911_ + _target3109931157_ + _tl3110131160_) (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_ + (_g3104731130_))))) + (let () (declare (not safe)) (_g3104731130_)))))) + (if (gx#stx-pair/null? _hd3105431424_) + (let ((___splice4191041911_ + (gx#syntax-split-splice _hd3105431424_ '0))) + (let ((_tl3110131160_ (let () (declare (not safe)) - (##vector-ref ___splice4182941830_ '1))) - (_target3101831076_ + (##vector-ref ___splice4191041911_ '1))) + (_target3109931157_ (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 ___splice4191041911_ '0)))) + (if (gx#stx-null? _tl3110131160_) + (___match4199041991_ + _e3105231410_ + _hd3105131414_ + _tl3105031417_ + _e3105531420_ + _hd3105431424_ + _tl3105331427_ + ___splice4191041911_ + _target3109931157_ + _tl3110131160_) + (let () (declare (not safe)) (_g3104731130_))))) + (let () (declare (not safe)) (_g3104731130_)))) + (if (gx#stx-pair/null? _hd3105431424_) + (let ((___splice4191041911_ + (gx#syntax-split-splice _hd3105431424_ '0))) + (let ((_tl3110131160_ (let () (declare (not safe)) - (##vector-ref ___splice4182941830_ '1))) - (_target3101831076_ + (##vector-ref ___splice4191041911_ '1))) + (_target3109931157_ (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 ___splice4191041911_ '0)))) + (if (gx#stx-null? _tl3110131160_) + (___match4199041991_ + _e3105231410_ + _hd3105131414_ + _tl3105031417_ + _e3105531420_ + _hd3105431424_ + _tl3105331427_ + ___splice4191041911_ + _target3109931157_ + _tl3110131160_) + (let () (declare (not safe)) (_g3104731130_))))) + (let () (declare (not safe)) (_g3104731130_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _hd3097331343_) - (let ((___splice4182941830_ + _hd3105431424_) + (let ((___splice4191041911_ (gx#syntax-split-splice - _hd3097331343_ + _hd3105431424_ '0))) - (let ((_tl3102031079_ + (let ((_tl3110131160_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4191041911_ '1))) - (_target3101831076_ + (_target3109931157_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4191041911_ '0)))) (if (gx#stx-null? - _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) + _tl3110131160_) + (___match4199041991_ + _e3105231410_ + _hd3105131414_ + _tl3105031417_ + _e3105531420_ + _hd3105431424_ + _tl3105331427_ + ___splice4191041911_ + _target3109931157_ + _tl3110131160_) (let () (declare (not safe)) - (_g3096631049_))))) + (_g3104731130_))))) (let () (declare (not safe)) - (_g3096631049_)))))) - (if (gx#stx-pair/null? _hd3097331343_) - (let ((___splice4182941830_ + (_g3104731130_)))))) + (if (gx#stx-pair/null? _hd3105431424_) + (let ((___splice4191041911_ (gx#syntax-split-splice - _hd3097331343_ + _hd3105431424_ '0))) - (let ((_tl3102031079_ + (let ((_tl3110131160_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4191041911_ '1))) - (_target3101831076_ + (_target3109931157_ (let () (declare (not safe)) (##vector-ref - ___splice4182941830_ + ___splice4191041911_ '0)))) - (if (gx#stx-null? _tl3102031079_) - (___match4190941910_ - _e3097131329_ - _hd3097031333_ - _tl3096931336_ - _e3097431339_ - _hd3097331343_ - _tl3097231346_ - ___splice4182941830_ - _target3101831076_ - _tl3102031079_) + (if (gx#stx-null? _tl3110131160_) + (___match4199041991_ + _e3105231410_ + _hd3105131414_ + _tl3105031417_ + _e3105531420_ + _hd3105431424_ + _tl3105331427_ + ___splice4191041911_ + _target3109931157_ + _tl3110131160_) (let () (declare (not safe)) - (_g3096631049_))))) + (_g3104731130_))))) (let () (declare (not safe)) - (_g3096631049_))))))) - (let () (declare (not safe)) (_g3096631049_))))) - (let () (declare (not safe)) (_g3096631049_)))))))) + (_g3104731130_))))))) + (let () (declare (not safe)) (_g3104731130_))))) + (let () (declare (not safe)) (_g3104731130_)))))))) (define |gerbil/core$[:0:]#with*| - (lambda (_$stx31412_) - (let* ((___stx4191241913_ _$stx31412_) - (_g3141731469_ + (lambda (_$stx31493_) + (let* ((___stx4199341994_ _$stx31493_) + (_g3149831550_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4191241913_)))) - (let ((___kont4191541916_ - (lambda (_L31639_ _L31641_ _L31642_ _L31643_ _L31644_) + ___stx4199341994_)))) + (let ((___kont4199641997_ + (lambda (_L31720_ _L31722_ _L31723_ _L31724_ _L31725_) (cons (gx#datum->syntax '#f 'with) - (cons (cons (cons _L31643_ (cons _L31642_ '())) '()) - (cons (cons _L31644_ - (cons _L31641_ - (foldr (lambda (_g3166931672_ + (cons (cons (cons _L31724_ (cons _L31723_ '())) '()) + (cons (cons _L31725_ + (cons _L31722_ + (foldr (lambda (_g3175031753_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3167031675_) - (cons _g3166931672_ _g3167031675_)) + _g3175131756_) + (cons _g3175031753_ _g3175131756_)) '() - _L31639_))) + _L31720_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont4191941920_ - (lambda (_L31526_) + (___kont4200042001_ + (lambda (_L31607_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_g3154331546_ _g3154431549_) - (cons _g3154331546_ _g3154431549_)) + (foldr (lambda (_g3162431627_ _g3162531630_) + (cons _g3162431627_ _g3162531630_)) '() - _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_ + _L31607_)))))) + (let* ((___match4206642067_ + (lambda (_e3153231557_ + _hd3153131561_ + _tl3153031564_ + _e3153531567_ + _hd3153431571_ + _tl3153331574_ + ___splice4200242003_ + _target3153631577_ + _tl3153831580_) + (letrec ((_loop3153931583_ + (lambda (_hd3153731587_ _body3154331590_) + (if (gx#stx-pair? _hd3153731587_) + (let ((_e3154031593_ + (gx#syntax-e _hd3153731587_))) + (let ((_lp-tl3154231600_ (let () (declare (not safe)) - (##cdr _e3145931512_))) - (_lp-hd3146031516_ + (##cdr _e3154031593_))) + (_lp-hd3154131597_ (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 _e3154031593_)))) + (_loop3153931583_ + _lp-tl3154231600_ + (cons _lp-hd3154131597_ + _body3154331590_)))) + (let ((_body3154431603_ + (reverse _body3154331590_))) + (___kont4200042001_ + _body3154431603_)))))) + (_loop3153931583_ _target3153631577_ '())))) + (___match4204442045_ + (lambda (_e3150731640_ + _hd3150631644_ + _tl3150531647_ + _e3151031650_ + _hd3150931654_ + _tl3150831657_ + _e3151331660_ + _hd3151231664_ + _tl3151131667_ + _e3151631670_ + _hd3151531674_ + _tl3151431677_ + _e3151931680_ + _hd3151831684_ + _tl3151731687_ + ___splice4199841999_ + _target3152031690_ + _tl3152231693_) + (letrec ((_loop3152331696_ + (lambda (_hd3152131700_ _body3152731703_) + (if (gx#stx-pair? _hd3152131700_) + (let ((_e3152431706_ + (gx#syntax-e _hd3152131700_))) + (let ((_lp-tl3152631713_ (let () (declare (not safe)) - (##cdr _e3144331625_))) - (_lp-hd3144431629_ + (##cdr _e3152431706_))) + (_lp-hd3152531710_ (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 _e3152431706_)))) + (_loop3152331696_ + _lp-tl3152631713_ + (cons _lp-hd3152531710_ + _body3152731703_)))) + (let ((_body3152831716_ + (reverse _body3152731703_))) + (___kont4199641997_ + _body3152831716_ + _tl3151131667_ + _hd3151831684_ + _hd3151531674_ + _hd3150631644_)))))) + (_loop3152331696_ _target3152031690_ '()))))) + (if (gx#stx-pair? ___stx4199341994_) + (let ((_e3150731640_ (gx#syntax-e ___stx4199341994_))) + (let ((_tl3150531647_ + (let () (declare (not safe)) (##cdr _e3150731640_))) + (_hd3150631644_ (let () (declare (not safe)) - (##car _e3142631559_)))) - (if (gx#stx-pair? _tl3142431566_) - (let ((_e3142931569_ (gx#syntax-e _tl3142431566_))) - (let ((_tl3142731576_ + (##car _e3150731640_)))) + (if (gx#stx-pair? _tl3150531647_) + (let ((_e3151031650_ (gx#syntax-e _tl3150531647_))) + (let ((_tl3150831657_ (let () (declare (not safe)) - (##cdr _e3142931569_))) - (_hd3142831573_ + (##cdr _e3151031650_))) + (_hd3150931654_ (let () (declare (not safe)) - (##car _e3142931569_)))) - (if (gx#stx-pair? _hd3142831573_) - (let ((_e3143231579_ - (gx#syntax-e _hd3142831573_))) - (let ((_tl3143031586_ + (##car _e3151031650_)))) + (if (gx#stx-pair? _hd3150931654_) + (let ((_e3151331660_ + (gx#syntax-e _hd3150931654_))) + (let ((_tl3151131667_ (let () (declare (not safe)) - (##cdr _e3143231579_))) - (_hd3143131583_ + (##cdr _e3151331660_))) + (_hd3151231664_ (let () (declare (not safe)) - (##car _e3143231579_)))) - (if (gx#stx-pair? _hd3143131583_) - (let ((_e3143531589_ - (gx#syntax-e _hd3143131583_))) - (let ((_tl3143331596_ + (##car _e3151331660_)))) + (if (gx#stx-pair? _hd3151231664_) + (let ((_e3151631670_ + (gx#syntax-e _hd3151231664_))) + (let ((_tl3151431677_ (let () (declare (not safe)) - (##cdr _e3143531589_))) - (_hd3143431593_ + (##cdr _e3151631670_))) + (_hd3151531674_ (let () (declare (not safe)) - (##car _e3143531589_)))) - (if (gx#stx-pair? _tl3143331596_) - (let ((_e3143831599_ + (##car _e3151631670_)))) + (if (gx#stx-pair? _tl3151431677_) + (let ((_e3151931680_ (gx#syntax-e - _tl3143331596_))) - (let ((_tl3143631606_ + _tl3151431677_))) + (let ((_tl3151731687_ (let () (declare (not safe)) - (##cdr _e3143831599_))) - (_hd3143731603_ + (##cdr _e3151931680_))) + (_hd3151831684_ (let () (declare (not safe)) - (##car _e3143831599_)))) + (##car _e3151931680_)))) (if (gx#stx-null? - _tl3143631606_) + _tl3151731687_) (if (gx#stx-pair/null? - _tl3142731576_) - (let ((___splice4191741918_ + _tl3150831657_) + (let ((___splice4199841999_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl3142731576_ '0))) - (let ((_tl3144131612_ + (gx#syntax-split-splice _tl3150831657_ '0))) + (let ((_tl3152231693_ (let () (declare (not safe)) - (##vector-ref ___splice4191741918_ '1))) - (_target3143931609_ + (##vector-ref ___splice4199841999_ '1))) + (_target3152031690_ (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 ___splice4199841999_ '0)))) + (if (gx#stx-null? _tl3152231693_) + (___match4204442045_ + _e3150731640_ + _hd3150631644_ + _tl3150531647_ + _e3151031650_ + _hd3150931654_ + _tl3150831657_ + _e3151331660_ + _hd3151231664_ + _tl3151131667_ + _e3151631670_ + _hd3151531674_ + _tl3151431677_ + _e3151931680_ + _hd3151831684_ + _tl3151731687_ + ___splice4199841999_ + _target3152031690_ + _tl3152231693_) + (let () (declare (not safe)) (_g3149831550_))))) + (let () (declare (not safe)) (_g3149831550_))) + (let () (declare (not safe)) (_g3149831550_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3141731469_))))) + (_g3149831550_))))) (let () (declare (not safe)) - (_g3141731469_))))) - (if (gx#stx-null? _hd3142831573_) - (if (gx#stx-pair/null? _tl3142731576_) - (let ((___splice4192141922_ + (_g3149831550_))))) + (if (gx#stx-null? _hd3150931654_) + (if (gx#stx-pair/null? _tl3150831657_) + (let ((___splice4200242003_ (gx#syntax-split-splice - _tl3142731576_ + _tl3150831657_ '0))) - (let ((_tl3145731499_ + (let ((_tl3153831580_ (let () (declare (not safe)) (##vector-ref - ___splice4192141922_ + ___splice4200242003_ '1))) - (_target3145531496_ + (_target3153631577_ (let () (declare (not safe)) (##vector-ref - ___splice4192141922_ + ___splice4200242003_ '0)))) - (if (gx#stx-null? _tl3145731499_) - (___match4198541986_ - _e3142631559_ - _hd3142531563_ - _tl3142431566_ - _e3142931569_ - _hd3142831573_ - _tl3142731576_ - ___splice4192141922_ - _target3145531496_ - _tl3145731499_) + (if (gx#stx-null? _tl3153831580_) + (___match4206642067_ + _e3150731640_ + _hd3150631644_ + _tl3150531647_ + _e3151031650_ + _hd3150931654_ + _tl3150831657_ + ___splice4200242003_ + _target3153631577_ + _tl3153831580_) (let () (declare (not safe)) - (_g3141731469_))))) + (_g3149831550_))))) (let () (declare (not safe)) - (_g3141731469_))) + (_g3149831550_))) (let () (declare (not safe)) - (_g3141731469_)))))) - (let () (declare (not safe)) (_g3141731469_))))) - (let () (declare (not safe)) (_g3141731469_)))))))) + (_g3149831550_)))))) + (let () (declare (not safe)) (_g3149831550_))))) + (let () (declare (not safe)) (_g3149831550_)))))))) (define |gerbil/core$[:0:]#?| - (lambda (_$stx31684_) - (let* ((___stx4198841989_ _$stx31684_) - (_g3169531841_ + (lambda (_$stx31765_) + (let* ((___stx4206942070_ _$stx31765_) + (_g3177631922_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4198841989_)))) - (let ((___kont4199141992_ - (lambda (_L32445_ _L32447_ _L32448_) + ___stx4206942070_)))) + (let ((___kont4207242073_ + (lambda (_L32526_ _L32528_ _L32529_) (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_g3246932472_ _g3247032475_) - (cons (cons _L32448_ - (cons _g3246932472_ - (cons _L32445_ '()))) - _g3247032475_)) + (foldr (lambda (_g3255032553_ _g3255132556_) + (cons (cons _L32529_ + (cons _g3255032553_ + (cons _L32526_ '()))) + _g3255132556_)) '() - _L32447_)))) - (___kont4199541996_ - (lambda (_L32335_ _L32337_ _L32338_) + _L32528_)))) + (___kont4207642077_ + (lambda (_L32416_ _L32418_ _L32419_) (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_g3235932362_ _g3236032365_) - (cons (cons _L32338_ - (cons _g3235932362_ - (cons _L32335_ '()))) - _g3236032365_)) + (foldr (lambda (_g3244032443_ _g3244132446_) + (cons (cons _L32419_ + (cons _g3244032443_ + (cons _L32416_ '()))) + _g3244132446_)) '() - _L32337_)))) - (___kont4199942000_ - (lambda (_L32235_ _L32237_ _L32238_) + _L32418_)))) + (___kont4208042081_ + (lambda (_L32316_ _L32318_ _L32319_) (cons (gx#datum->syntax '#f 'not) - (cons (cons _L32238_ - (cons _L32237_ (cons _L32235_ '()))) + (cons (cons _L32319_ + (cons _L32318_ (cons _L32316_ '()))) '())))) - (___kont4200142002_ - (lambda (_L32161_ _L32163_) - (cons _L32163_ (cons _L32161_ '())))) - (___kont4200342004_ - (lambda (_L32109_ _L32111_) + (___kont4208242083_ + (lambda (_L32242_ _L32244_) + (cons _L32244_ (cons _L32242_ '())))) + (___kont4208442085_ + (lambda (_L32190_ _L32192_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) - (cons (cons _L32111_ - (cons _L32109_ + (cons (cons _L32192_ + (cons _L32190_ (cons (gx#datum->syntax '#f '$obj) '()))) '()))))) - (___kont4200542006_ - (lambda (_L32061_ _L32063_ _L32064_) + (___kont4208642087_ + (lambda (_L32142_ _L32144_ _L32145_) (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 _L32145_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L32063_ + (cons _L32144_ (cons (gx#datum->syntax '#f '$obj) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L32061_ + (cons (cons _L32142_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7036,20 +7036,20 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont4200742008_ - (lambda (_L31992_ _L31994_ _L31995_) + (___kont4208842089_ + (lambda (_L32073_ _L32075_ _L32076_) (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 _L32076_ + (cons _L32075_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L31992_ + (cons (cons _L32073_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7058,1746 +7058,1746 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont4200942010_ - (lambda (_L31912_ _L31914_ _L31915_ _L31916_) + (___kont4209042091_ + (lambda (_L31993_ _L31995_ _L31996_ _L31997_) (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 _L31997_ + (cons _L31996_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _L31912_ - (cons (cons _L31914_ + (cons (cons _L31993_ + (cons (cons _L31995_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f '$obj) '())) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((___match4216142162_ - (lambda (_e3178732021_ - _hd3178632025_ - _tl3178532028_ - _e3179032031_ - _hd3178932035_ - _tl3178832038_ - _e3179332041_ - _hd3179232045_ - _tl3179132048_) - (if (gx#identifier? _hd3179232045_) + (let* ((___match4224242243_ + (lambda (_e3186832102_ + _hd3186732106_ + _tl3186632109_ + _e3187132112_ + _hd3187032116_ + _tl3186932119_ + _e3187432122_ + _hd3187332126_ + _tl3187232129_) + (if (gx#identifier? _hd3187332126_) (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]#_g43131_| + _hd3187332126_) + (if (gx#stx-pair? _tl3187232129_) + (let ((_e3187732132_ + (gx#syntax-e _tl3187232129_))) + (let ((_tl3187532139_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3187732132_))) + (_hd3187632136_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3178932035_ - _hd3178632025_) + (##car _e3187732132_)))) + (if (gx#stx-null? _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3187032116_ + _hd3186732106_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (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_ + (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))) + (if (gx#stx-datum? _hd3187332126_) + (let ((_e3189032059_ (gx#stx-e _hd3187332126_))) + (if (equal? _e3189032059_ '::) + (if (gx#stx-pair? _tl3187232129_) + (let ((_e3189332063_ + (gx#syntax-e _tl3187232129_))) + (let ((_tl3189132070_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3189332063_))) + (_hd3189232067_ (let () (declare (not safe)) - (##car _e3181231982_)))) - (if (gx#stx-null? _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3178932035_ - _hd3178632025_) + (##car _e3189332063_)))) + (if (gx#stx-null? _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3187032116_ + _hd3186732106_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3189132070_) + (let ((_e3191331973_ (gx#syntax-e - _tl3181031989_))) - (let ((_tl3183031899_ + _tl3189132070_))) + (let ((_tl3191131980_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ - (let () (declare (not safe)) (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##cdr _e3191331973_))) + (_hd3191231977_ + (let () (declare (not safe)) (##car _e3191331973_)))) + (if (gx#identifier? _hd3191231977_) (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]#_g43130_| + _hd3191231977_) + (if (gx#stx-pair? _tl3191131980_) + (let ((_e3191631983_ (gx#syntax-e _tl3191131980_))) + (let ((_tl3191431990_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3191631983_))) + (_hd3191531987_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3178932035_ - _hd3178632025_) + (##car _e3191631983_)))) + (if (gx#stx-null? _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3187032116_ + _hd3186732106_) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))))) + (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_)))))) + (_g3177631922_)))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (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_ + (_g3177631922_)))) + (let () (declare (not safe)) (_g3177631922_)))))) + (___match4222242223_ + (lambda (_e3185932170_ + _hd3185832174_ + _tl3185732177_ + _e3186232180_ + _hd3186132184_ + _tl3186032187_) + (if (gx#stx-null? _tl3186032187_) + (___kont4208442085_ _hd3186132184_ _hd3185832174_) + (if (gx#stx-pair? _tl3186032187_) + (let ((_e3187432122_ + (gx#syntax-e _tl3186032187_))) + (let ((_tl3187232129_ (let () (declare (not safe)) - (##cdr _e3179332041_))) - (_hd3179232045_ + (##cdr _e3187432122_))) + (_hd3187332126_ (let () (declare (not safe)) - (##car _e3179332041_)))) - (if (gx#identifier? _hd3179232045_) + (##car _e3187432122_)))) + (if (gx#identifier? _hd3187332126_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43119_| - _hd3179232045_) - (if (gx#stx-pair? _tl3179132048_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g43131_| + _hd3187332126_) + (if (gx#stx-pair? _tl3187232129_) + (let ((_e3187732132_ (gx#syntax-e - _tl3179132048_))) - (let ((_tl3179432058_ + _tl3187232129_))) + (let ((_tl3187532139_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3187732132_))) + (_hd3187632136_ (let () (declare (not safe)) - (##car _e3179632051_)))) + (##car _e3187732132_)))) (if (gx#stx-null? - _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3178032103_ - _hd3177732093_) + _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3186132184_ + _hd3185832174_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3179232045_) - (let ((_e3180931978_ - (gx#stx-e _hd3179232045_))) - (if (equal? _e3180931978_ '::) + (_g3177631922_))) + (if (gx#stx-datum? _hd3187332126_) + (let ((_e3189032059_ + (gx#stx-e _hd3187332126_))) + (if (equal? _e3189032059_ '::) (if (gx#stx-pair? - _tl3179132048_) - (let ((_e3181231982_ + _tl3187232129_) + (let ((_e3189332063_ (gx#syntax-e - _tl3179132048_))) - (let ((_tl3181031989_ + _tl3187232129_))) + (let ((_tl3189132070_ (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 _e3189332063_))) + (_hd3189232067_ + (let () (declare (not safe)) (##car _e3189332063_)))) + (if (gx#stx-null? _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3186132184_ + _hd3185832174_) + (if (gx#stx-pair? _tl3189132070_) + (let ((_e3191331973_ (gx#syntax-e _tl3189132070_))) + (let ((_tl3191131980_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3191331973_))) + (_hd3191231977_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3191331973_)))) + (if (gx#identifier? _hd3191231977_) (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]#_g43130_| + _hd3191231977_) + (if (gx#stx-pair? _tl3191131980_) + (let ((_e3191631983_ + (gx#syntax-e _tl3191131980_))) + (let ((_tl3191431990_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3191631983_))) + (_hd3191531987_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3178032103_ - _hd3177732093_) + (##car _e3191631983_)))) + (if (gx#stx-null? _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3186132184_ + _hd3185832174_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) + (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3177631922_)))) (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_ + (_g3177631922_)))))) + (let () (declare (not safe)) (_g3177631922_)))))) + (___match4215242153_ + (lambda (_e3180732346_ + _hd3180632350_ + _tl3180532353_ + _e3181032356_ + _hd3180932360_ + _tl3180832363_ + _e3181332366_ + _hd3181232370_ + _tl3181132373_ + ___splice4207842079_ + _target3181432376_ + _tl3181632379_) + (letrec ((_loop3181732382_ + (lambda (_hd3181532386_ _pred3182132389_) + (if (gx#stx-pair? _hd3181532386_) + (let ((_e3181832392_ + (gx#syntax-e _hd3181532386_))) + (let ((_lp-tl3182032399_ (let () (declare (not safe)) - (##cdr _e3173732311_))) - (_lp-hd3173832315_ + (##cdr _e3181832392_))) + (_lp-hd3181932396_ (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 _e3181832392_)))) + (_loop3181732382_ + _lp-tl3182032399_ + (cons _lp-hd3181932396_ + _pred3182132389_)))) + (let ((_pred3182232402_ + (reverse _pred3182132389_))) + (if (gx#stx-pair? _tl3180832363_) + (let ((_e3182532406_ (gx#syntax-e - _tl3172732282_))) - (let ((_tl3174232332_ + _tl3180832363_))) + (let ((_tl3182332413_ (let () (declare (not safe)) - (##cdr _e3174432325_))) - (_hd3174332329_ + (##cdr _e3182532406_))) + (_hd3182432410_ (let () (declare (not safe)) - (##car _e3174432325_)))) + (##car _e3182532406_)))) (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_ + _tl3182332413_) + (___kont4207642077_ + _hd3182432410_ + _pred3182232402_ + _hd3180632350_) + (___match4224242243_ + _e3180732346_ + _hd3180632350_ + _tl3180532353_ + _e3181032356_ + _hd3180932360_ + _tl3180832363_ + _e3182532406_ + _hd3182432410_ + _tl3182332413_)))) + (___match4222242223_ + _e3180732346_ + _hd3180632350_ + _tl3180532353_ + _e3181032356_ + _hd3180932360_ + _tl3180832363_))))))) + (_loop3181732382_ _target3181432376_ '())))) + (___match4212242123_ + (lambda (_e3178332456_ + _hd3178232460_ + _tl3178132463_ + _e3178632466_ + _hd3178532470_ + _tl3178432473_ + _e3178932476_ + _hd3178832480_ + _tl3178732483_ + ___splice4207442075_ + _target3179032486_ + _tl3179232489_) + (letrec ((_loop3179332492_ + (lambda (_hd3179132496_ _pred3179732499_) + (if (gx#stx-pair? _hd3179132496_) + (let ((_e3179432502_ + (gx#syntax-e _hd3179132496_))) + (let ((_lp-tl3179632509_ (let () (declare (not safe)) - (##cdr _e3171332421_))) - (_lp-hd3171432425_ + (##cdr _e3179432502_))) + (_lp-hd3179532506_ (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 _e3179432502_)))) + (_loop3179332492_ + _lp-tl3179632509_ + (cons _lp-hd3179532506_ + _pred3179732499_)))) + (let ((_pred3179832512_ + (reverse _pred3179732499_))) + (if (gx#stx-pair? _tl3178432473_) + (let ((_e3180132516_ (gx#syntax-e - _tl3170332392_))) - (let ((_tl3171832442_ + _tl3178432473_))) + (let ((_tl3179932523_ (let () (declare (not safe)) - (##cdr _e3172032435_))) - (_hd3171932439_ + (##cdr _e3180132516_))) + (_hd3180032520_ (let () (declare (not safe)) - (##car _e3172032435_)))) + (##car _e3180132516_)))) (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_ + _tl3179932523_) + (___kont4207242073_ + _hd3180032520_ + _pred3179832512_ + _hd3178232460_) + (___match4224242243_ + _e3178332456_ + _hd3178232460_ + _tl3178132463_ + _e3178632466_ + _hd3178532470_ + _tl3178432473_ + _e3180132516_ + _hd3180032520_ + _tl3179932523_)))) + (___match4222242223_ + _e3178332456_ + _hd3178232460_ + _tl3178132463_ + _e3178632466_ + _hd3178532470_ + _tl3178432473_))))))) + (_loop3179332492_ _target3179032486_ '()))))) + (if (gx#stx-pair? ___stx4206942070_) + (let ((_e3178332456_ (gx#syntax-e ___stx4206942070_))) + (let ((_tl3178132463_ + (let () (declare (not safe)) (##cdr _e3178332456_))) + (_hd3178232460_ (let () (declare (not safe)) - (##car _e3170232375_)))) - (if (gx#stx-pair? _tl3170032382_) - (let ((_e3170532385_ (gx#syntax-e _tl3170032382_))) - (let ((_tl3170332392_ + (##car _e3178332456_)))) + (if (gx#stx-pair? _tl3178132463_) + (let ((_e3178632466_ (gx#syntax-e _tl3178132463_))) + (let ((_tl3178432473_ (let () (declare (not safe)) - (##cdr _e3170532385_))) - (_hd3170432389_ + (##cdr _e3178632466_))) + (_hd3178532470_ (let () (declare (not safe)) - (##car _e3170532385_)))) - (if (gx#stx-pair? _hd3170432389_) - (let ((_e3170832395_ - (gx#syntax-e _hd3170432389_))) - (let ((_tl3170632402_ + (##car _e3178632466_)))) + (if (gx#stx-pair? _hd3178532470_) + (let ((_e3178932476_ + (gx#syntax-e _hd3178532470_))) + (let ((_tl3178732483_ (let () (declare (not safe)) - (##cdr _e3170832395_))) - (_hd3170732399_ + (##cdr _e3178932476_))) + (_hd3178832480_ (let () (declare (not safe)) - (##car _e3170832395_)))) - (if (gx#identifier? _hd3170732399_) + (##car _e3178932476_)))) + (if (gx#identifier? _hd3178832480_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43122_| - _hd3170732399_) + |gerbil/core$[1]#_g43134_| + _hd3178832480_) (if (gx#stx-pair/null? - _tl3170632402_) - (let ((___splice4199341994_ + _tl3178732483_) + (let ((___splice4207442075_ (gx#syntax-split-splice - _tl3170632402_ + _tl3178732483_ '0))) - (let ((_tl3171132408_ + (let ((_tl3179232489_ (let () (declare (not safe)) (##vector-ref - ___splice4199341994_ + ___splice4207442075_ '1))) - (_target3170932405_ + (_target3179032486_ (let () (declare (not safe)) (##vector-ref - ___splice4199341994_ + ___splice4207442075_ '0)))) (if (gx#stx-null? - _tl3171132408_) - (___match4204142042_ - _e3170232375_ - _hd3170132379_ - _tl3170032382_ - _e3170532385_ - _hd3170432389_ - _tl3170332392_ - _e3170832395_ - _hd3170732399_ - _tl3170632402_ - ___splice4199341994_ - _target3170932405_ - _tl3171132408_) + _tl3179232489_) + (___match4212242123_ + _e3178332456_ + _hd3178232460_ + _tl3178132463_ + _e3178632466_ + _hd3178532470_ + _tl3178432473_ + _e3178932476_ + _hd3178832480_ + _tl3178732483_ + ___splice4207442075_ + _target3179032486_ + _tl3179232489_) (if (gx#stx-pair? - _tl3170332392_) - (let ((_e3177332151_ + _tl3178432473_) + (let ((_e3185432232_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3170332392_))) - (let ((_tl3177132158_ + (gx#syntax-e _tl3178432473_))) + (let ((_tl3185232239_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3185432232_))) + (_hd3185332236_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3185432232_)))) + (if (gx#stx-null? _tl3185232239_) + (___kont4208242083_ + _hd3185332236_ + _hd3178532470_) + (if (gx#identifier? _hd3185332236_) (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]#_g43131_| + _hd3185332236_) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3187732132_ + (gx#syntax-e _tl3185232239_))) + (let ((_tl3187532139_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3187732132_))) + (_hd3187632136_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3187732132_)))) + (if (gx#stx-null? _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (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_ + (_g3177631922_))) + (if (gx#stx-datum? _hd3185332236_) + (let ((_e3189032059_ + (gx#stx-e _hd3185332236_))) + (if (equal? _e3189032059_ '::) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3189332063_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3181031989_ + _tl3185232239_))) + (let ((_tl3189132070_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3189332063_))) + (_hd3189232067_ (let () (declare (not safe)) - (##car _e3181231982_)))) + (##car _e3189332063_)))) (if (gx#stx-null? - _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3189132070_) + (let ((_e3191331973_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3181031989_))) - (let ((_tl3183031899_ + (gx#syntax-e _tl3189132070_))) + (let ((_tl3191131980_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3191331973_))) + (_hd3191231977_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3191331973_)))) + (if (gx#identifier? _hd3191231977_) (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]#_g43130_| + _hd3191231977_) + (if (gx#stx-pair? _tl3191131980_) + (let ((_e3191631983_ + (gx#syntax-e _tl3191131980_))) + (let ((_tl3191431990_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3191631983_))) + (_hd3191531987_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3191631983_)))) + (if (gx#stx-null? _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) + (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3177631922_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ _hd3170432389_ _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))))) + (_g3177631922_))))))) + (if (gx#stx-null? _tl3178432473_) + (___kont4208442085_ _hd3178532470_ _hd3178232460_) + (let () (declare (not safe)) (_g3177631922_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _tl3170332392_) - (let ((_e3177332151_ + _tl3178432473_) + (let ((_e3185432232_ (gx#syntax-e - _tl3170332392_))) - (let ((_tl3177132158_ + _tl3178432473_))) + (let ((_tl3185232239_ (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 _e3185432232_))) + (_hd3185332236_ + (let () (declare (not safe)) (##car _e3185432232_)))) + (if (gx#stx-null? _tl3185232239_) + (___kont4208242083_ _hd3185332236_ _hd3178532470_) + (if (gx#identifier? _hd3185332236_) (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]#_g43131_| + _hd3185332236_) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3187732132_ + (gx#syntax-e _tl3185232239_))) + (let ((_tl3187532139_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3187732132_))) + (_hd3187632136_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3187732132_)))) + (if (gx#stx-null? _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (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_ + (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))) + (if (gx#stx-datum? _hd3185332236_) + (let ((_e3189032059_ (gx#stx-e _hd3185332236_))) + (if (equal? _e3189032059_ '::) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3189332063_ + (gx#syntax-e _tl3185232239_))) + (let ((_tl3189132070_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3189332063_))) + (_hd3189232067_ (let () (declare (not safe)) - (##car _e3181231982_)))) - (if (gx#stx-null? _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3189332063_)))) + (if (gx#stx-null? _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3189132070_) + (let ((_e3191331973_ (gx#syntax-e - _tl3181031989_))) - (let ((_tl3183031899_ + _tl3189132070_))) + (let ((_tl3191131980_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ - (let () (declare (not safe)) (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##cdr _e3191331973_))) + (_hd3191231977_ + (let () (declare (not safe)) (##car _e3191331973_)))) + (if (gx#identifier? _hd3191231977_) (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]#_g43130_| + _hd3191231977_) + (if (gx#stx-pair? _tl3191131980_) + (let ((_e3191631983_ (gx#syntax-e _tl3191131980_))) + (let ((_tl3191431990_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3191631983_))) + (_hd3191531987_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3191631983_)))) + (if (gx#stx-null? _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))))) + (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_)))))) + (_g3177631922_)))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3177631922_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ _hd3170432389_ _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))) + (_g3177631922_))))))) + (if (gx#stx-null? _tl3178432473_) + (___kont4208442085_ _hd3178532470_ _hd3178232460_) + (let () (declare (not safe)) (_g3177631922_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g43121_| - _hd3170732399_) + |gerbil/core$[1]#_g43133_| + _hd3178832480_) (if (gx#stx-pair/null? - _tl3170632402_) - (let ((___splice4199741998_ + _tl3178732483_) + (let ((___splice4207842079_ (gx#syntax-split-splice - _tl3170632402_ + _tl3178732483_ '0))) - (let ((_tl3173532298_ + (let ((_tl3181632379_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4199741998_ '1))) - (_target3173332295_ + (##vector-ref ___splice4207842079_ '1))) + (_target3181432376_ (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 ___splice4207842079_ '0)))) + (if (gx#stx-null? _tl3181632379_) + (___match4215242153_ + _e3178332456_ + _hd3178232460_ + _tl3178132463_ + _e3178632466_ + _hd3178532470_ + _tl3178432473_ + _e3178932476_ + _hd3178832480_ + _tl3178732483_ + ___splice4207842079_ + _target3181432376_ + _tl3181632379_) + (if (gx#stx-pair? _tl3178432473_) + (let ((_e3185432232_ (gx#syntax-e _tl3178432473_))) + (let ((_tl3185232239_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3185432232_))) + (_hd3185332236_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3185432232_)))) + (if (gx#stx-null? _tl3185232239_) + (___kont4208242083_ + _hd3185332236_ + _hd3178532470_) + (if (gx#identifier? _hd3185332236_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43119_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g43131_| + _hd3185332236_) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3187732132_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3179432058_ + _tl3185232239_))) + (let ((_tl3187532139_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3187732132_))) + (_hd3187632136_ (let () (declare (not safe)) - (##car _e3179632051_)))) + (##car _e3187732132_)))) (if (gx#stx-null? - _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3177232155_) - (let ((_e3180931978_ - (gx#stx-e _hd3177232155_))) - (if (equal? _e3180931978_ '::) + (_g3177631922_))) + (if (gx#stx-datum? _hd3185332236_) + (let ((_e3189032059_ + (gx#stx-e _hd3185332236_))) + (if (equal? _e3189032059_ '::) (if (gx#stx-pair? - _tl3177132158_) - (let ((_e3181231982_ + _tl3185232239_) + (let ((_e3189332063_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3181031989_ + _tl3185232239_))) + (let ((_tl3189132070_ (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 _e3189332063_))) + (_hd3189232067_ + (let () (declare (not safe)) (##car _e3189332063_)))) + (if (gx#stx-null? _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) + (if (gx#stx-pair? _tl3189132070_) + (let ((_e3191331973_ (gx#syntax-e _tl3189132070_))) + (let ((_tl3191131980_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3191331973_))) + (_hd3191231977_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3191331973_)))) + (if (gx#identifier? _hd3191231977_) (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]#_g43130_| + _hd3191231977_) + (if (gx#stx-pair? _tl3191131980_) + (let ((_e3191631983_ + (gx#syntax-e _tl3191131980_))) + (let ((_tl3191431990_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3191631983_))) + (_hd3191531987_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3191631983_)))) + (if (gx#stx-null? _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) + (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3177631922_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ - _hd3170432389_ - _hd3170132379_) + (_g3177631922_))))))) + (if (gx#stx-null? _tl3178432473_) + (___kont4208442085_ + _hd3178532470_ + _hd3178232460_) (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_ + (_g3177631922_))))))) + (if (gx#stx-pair? _tl3178432473_) + (let ((_e3185432232_ (gx#syntax-e _tl3178432473_))) + (let ((_tl3185232239_ + (let () (declare (not safe)) (##cdr _e3185432232_))) + (_hd3185332236_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ _hd3177232155_ _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3185432232_)))) + (if (gx#stx-null? _tl3185232239_) + (___kont4208242083_ _hd3185332236_ _hd3178532470_) + (if (gx#identifier? _hd3185332236_) (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]#_g43131_| + _hd3185332236_) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3187732132_ + (gx#syntax-e _tl3185232239_))) + (let ((_tl3187532139_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3187732132_))) + (_hd3187632136_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3187732132_)))) + (if (gx#stx-null? _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (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_ + (_g3177631922_))) + (if (gx#stx-datum? _hd3185332236_) + (let ((_e3189032059_ + (gx#stx-e _hd3185332236_))) + (if (equal? _e3189032059_ '::) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3189332063_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3181031989_ + _tl3185232239_))) + (let ((_tl3189132070_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3189332063_))) + (_hd3189232067_ (let () (declare (not safe)) - (##car _e3181231982_)))) + (##car _e3189332063_)))) (if (gx#stx-null? - _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3189132070_) + (let ((_e3191331973_ (gx#syntax-e - _tl3181031989_))) - (let ((_tl3183031899_ + _tl3189132070_))) + (let ((_tl3191131980_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3183231892_))) - (_hd3183131896_ - (let () (declare (not safe)) (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (let () (declare (not safe)) (##cdr _e3191331973_))) + (_hd3191231977_ + (let () (declare (not safe)) (##car _e3191331973_)))) + (if (gx#identifier? _hd3191231977_) (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]#_g43130_| + _hd3191231977_) + (if (gx#stx-pair? _tl3191131980_) + (let ((_e3191631983_ + (gx#syntax-e _tl3191131980_))) + (let ((_tl3191431990_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3191631983_))) + (_hd3191531987_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3191631983_)))) + (if (gx#stx-null? _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (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_)))))) + (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3177631922_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ _hd3170432389_ _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))) + (_g3177631922_))))))) + (if (gx#stx-null? _tl3178432473_) + (___kont4208442085_ _hd3178532470_ _hd3178232460_) + (let () (declare (not safe)) (_g3177631922_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g43120_| - _hd3170732399_) + |gerbil/core$[1]#_g43132_| + _hd3178832480_) (if (gx#stx-pair? - _tl3170632402_) - (let ((_e3175932215_ + _tl3178732483_) + (let ((_e3184032296_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3170632402_))) - (let ((_tl3175732222_ - (let () (declare (not safe)) (##cdr _e3175932215_))) - (_hd3175832219_ + (gx#syntax-e _tl3178732483_))) + (let ((_tl3183832303_ + (let () (declare (not safe)) (##cdr _e3184032296_))) + (_hd3183932300_ (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 _e3184032296_)))) + (if (gx#stx-null? _tl3183832303_) + (if (gx#stx-pair? _tl3178432473_) + (let ((_e3184332306_ + (gx#syntax-e _tl3178432473_))) + (let ((_tl3184132313_ (let () (declare (not safe)) - (##cdr _e3176232225_))) - (_hd3176132229_ + (##cdr _e3184332306_))) + (_hd3184232310_ (let () (declare (not safe)) - (##car _e3176232225_)))) - (if (gx#stx-null? _tl3176032232_) - (___kont4199942000_ - _hd3176132229_ - _hd3175832219_ - _hd3170132379_) - (if (gx#identifier? _hd3176132229_) + (##car _e3184332306_)))) + (if (gx#stx-null? _tl3184132313_) + (___kont4208042081_ + _hd3184232310_ + _hd3183932300_ + _hd3178232460_) + (if (gx#identifier? _hd3184232310_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43119_| - _hd3176132229_) - (if (gx#stx-pair? _tl3176032232_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g43131_| + _hd3184232310_) + (if (gx#stx-pair? _tl3184132313_) + (let ((_e3187732132_ (gx#syntax-e - _tl3176032232_))) - (let ((_tl3179432058_ + _tl3184132313_))) + (let ((_tl3187532139_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3187732132_))) + (_hd3187632136_ (let () (declare (not safe)) - (##car _e3179632051_)))) + (##car _e3187732132_)))) (if (gx#stx-null? - _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3176132229_) - (let ((_e3180931978_ + (_g3177631922_))) + (if (gx#stx-datum? _hd3184232310_) + (let ((_e3189032059_ (gx#stx-e - _hd3176132229_))) - (if (equal? _e3180931978_ '::) + _hd3184232310_))) + (if (equal? _e3189032059_ '::) (if (gx#stx-pair? - _tl3176032232_) - (let ((_e3181231982_ + _tl3184132313_) + (let ((_e3189332063_ (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_ + _tl3184132313_))) + (let ((_tl3189132070_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e3189332063_))) + (_hd3189232067_ + (let () (declare (not safe)) (##car _e3189332063_)))) + (if (gx#stx-null? _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) + (if (gx#stx-pair? _tl3189132070_) + (let ((_e3191331973_ (gx#syntax-e _tl3189132070_))) + (let ((_tl3191131980_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3191331973_))) + (_hd3191231977_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3191331973_)))) + (if (gx#identifier? _hd3191231977_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ + |gerbil/core$[1]#_g43130_| + _hd3191231977_) + (if (gx#stx-pair? _tl3191131980_) + (let ((_e3191631983_ (gx#syntax-e - _tl3183031899_))) - (let ((_tl3183331909_ + _tl3191131980_))) + (let ((_tl3191431990_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3191631983_))) + (_hd3191531987_ (let () (declare (not safe)) - (##car _e3183531902_)))) + (##car _e3191631983_)))) (if (gx#stx-null? - _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) - (let () (declare (not safe)) (_g3169531841_))) + (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_)))))) + (let () (declare (not safe)) (_g3177631922_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_)))) + (_g3177631922_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ - _hd3170432389_ - _hd3170132379_) + (_g3177631922_))))))) + (if (gx#stx-null? _tl3178432473_) + (___kont4208442085_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_)))) - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3177332151_ - (gx#syntax-e _tl3170332392_))) - (let ((_tl3177132158_ + (_g3177631922_)))) + (if (gx#stx-pair? _tl3178432473_) + (let ((_e3185432232_ + (gx#syntax-e _tl3178432473_))) + (let ((_tl3185232239_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3185432232_))) + (_hd3185332236_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3185432232_)))) + (if (gx#stx-null? _tl3185232239_) + (___kont4208242083_ + _hd3185332236_ + _hd3178532470_) + (if (gx#identifier? _hd3185332236_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43119_| - _hd3177232155_) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3179632051_ + |gerbil/core$[1]#_g43131_| + _hd3185332236_) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3187732132_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3179432058_ + _tl3185232239_))) + (let ((_tl3187532139_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3187732132_))) + (_hd3187632136_ (let () (declare (not safe)) - (##car _e3179632051_)))) + (##car _e3187732132_)))) (if (gx#stx-null? - _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))) - (if (gx#stx-datum? _hd3177232155_) - (let ((_e3180931978_ + (_g3177631922_))) + (if (gx#stx-datum? _hd3185332236_) + (let ((_e3189032059_ (gx#stx-e - _hd3177232155_))) - (if (equal? _e3180931978_ '::) + _hd3185332236_))) + (if (equal? _e3189032059_ '::) (if (gx#stx-pair? - _tl3177132158_) - (let ((_e3181231982_ + _tl3185232239_) + (let ((_e3189332063_ (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_ + _tl3185232239_))) + (let ((_tl3189132070_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e3189332063_))) + (_hd3189232067_ + (let () (declare (not safe)) (##car _e3189332063_)))) + (if (gx#stx-null? _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) + (if (gx#stx-pair? _tl3189132070_) + (let ((_e3191331973_ (gx#syntax-e _tl3189132070_))) + (let ((_tl3191131980_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3191331973_))) + (_hd3191231977_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3191331973_)))) + (if (gx#identifier? _hd3191231977_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43118_| - _hd3183131896_) - (if (gx#stx-pair? _tl3183031899_) - (let ((_e3183531902_ + |gerbil/core$[1]#_g43130_| + _hd3191231977_) + (if (gx#stx-pair? _tl3191131980_) + (let ((_e3191631983_ (gx#syntax-e - _tl3183031899_))) - (let ((_tl3183331909_ + _tl3191131980_))) + (let ((_tl3191431990_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3191631983_))) + (_hd3191531987_ (let () (declare (not safe)) - (##car _e3183531902_)))) + (##car _e3191631983_)))) (if (gx#stx-null? - _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) - (let () (declare (not safe)) (_g3169531841_))) + (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_)))))) + (let () (declare (not safe)) (_g3177631922_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_)))) + (_g3177631922_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ - _hd3170432389_ - _hd3170132379_) + (_g3177631922_))))))) + (if (gx#stx-null? _tl3178432473_) + (___kont4208442085_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3177332151_ (gx#syntax-e _tl3170332392_))) - (let ((_tl3177132158_ + (_g3177631922_))))))) + (if (gx#stx-pair? _tl3178432473_) + (let ((_e3185432232_ (gx#syntax-e _tl3178432473_))) + (let ((_tl3185232239_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3185432232_))) + (_hd3185332236_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3185432232_)))) + (if (gx#stx-null? _tl3185232239_) + (___kont4208242083_ + _hd3185332236_ + _hd3178532470_) + (if (gx#identifier? _hd3185332236_) (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]#_g43131_| + _hd3185332236_) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3187732132_ + (gx#syntax-e _tl3185232239_))) + (let ((_tl3187532139_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3187732132_))) + (_hd3187632136_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3187732132_)))) + (if (gx#stx-null? _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (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_ + (_g3177631922_))) + (if (gx#stx-datum? _hd3185332236_) + (let ((_e3189032059_ + (gx#stx-e _hd3185332236_))) + (if (equal? _e3189032059_ '::) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3189332063_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3181031989_ + _tl3185232239_))) + (let ((_tl3189132070_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3189332063_))) + (_hd3189232067_ (let () (declare (not safe)) - (##car _e3181231982_)))) + (##car _e3189332063_)))) (if (gx#stx-null? - _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3189132070_) + (let ((_e3191331973_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3181031989_))) - (let ((_tl3183031899_ + (gx#syntax-e _tl3189132070_))) + (let ((_tl3191131980_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3191331973_))) + (_hd3191231977_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3191331973_)))) + (if (gx#identifier? _hd3191231977_) (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]#_g43130_| + _hd3191231977_) + (if (gx#stx-pair? _tl3191131980_) + (let ((_e3191631983_ + (gx#syntax-e _tl3191131980_))) + (let ((_tl3191431990_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3191631983_))) + (_hd3191531987_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3191631983_)))) + (if (gx#stx-null? _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))) - (let () (declare (not safe)) (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))) + (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3177631922_)))) (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_ + (_g3177631922_))))))) + (if (gx#stx-null? _tl3178432473_) + (___kont4208442085_ _hd3178532470_ _hd3178232460_) + (let () (declare (not safe)) (_g3177631922_))))) + (if (gx#stx-pair? _tl3178432473_) + (let ((_e3185432232_ (gx#syntax-e _tl3178432473_))) + (let ((_tl3185232239_ + (let () (declare (not safe)) (##cdr _e3185432232_))) + (_hd3185332236_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ _hd3177232155_ _hd3170432389_) - (if (gx#identifier? _hd3177232155_) + (##car _e3185432232_)))) + (if (gx#stx-null? _tl3185232239_) + (___kont4208242083_ _hd3185332236_ _hd3178532470_) + (if (gx#identifier? _hd3185332236_) (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]#_g43131_| + _hd3185332236_) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3187732132_ + (gx#syntax-e _tl3185232239_))) + (let ((_tl3187532139_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3187732132_))) + (_hd3187632136_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3187732132_)))) + (if (gx#stx-null? _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (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_ + (_g3177631922_))) + (if (gx#stx-datum? _hd3185332236_) + (let ((_e3189032059_ + (gx#stx-e _hd3185332236_))) + (if (equal? _e3189032059_ '::) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3189332063_ (gx#syntax-e - _tl3177132158_))) - (let ((_tl3181031989_ + _tl3185232239_))) + (let ((_tl3189132070_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3189332063_))) + (_hd3189232067_ (let () (declare (not safe)) - (##car _e3181231982_)))) + (##car _e3189332063_)))) (if (gx#stx-null? - _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (if (gx#stx-pair? - _tl3181031989_) - (let ((_e3183231892_ + _tl3189132070_) + (let ((_e3191331973_ (gx#syntax-e - _tl3181031989_))) - (let ((_tl3183031899_ + _tl3189132070_))) + (let ((_tl3191131980_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3183231892_))) - (_hd3183131896_ - (let () (declare (not safe)) (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (let () (declare (not safe)) (##cdr _e3191331973_))) + (_hd3191231977_ + (let () (declare (not safe)) (##car _e3191331973_)))) + (if (gx#identifier? _hd3191231977_) (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]#_g43130_| + _hd3191231977_) + (if (gx#stx-pair? _tl3191131980_) + (let ((_e3191631983_ + (gx#syntax-e _tl3191131980_))) + (let ((_tl3191431990_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3191631983_))) + (_hd3191531987_ (let () (declare (not safe)) - (##car _e3183531902_)))) - (if (gx#stx-null? _tl3183331909_) - (___kont4200942010_ - _hd3183431906_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) + (##car _e3191631983_)))) + (if (gx#stx-null? _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) (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_)))))) + (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_)))) + (_g3177631922_)))) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-null? _tl3170332392_) - (___kont4200342004_ _hd3170432389_ _hd3170132379_) - (let () (declare (not safe)) (_g3169531841_))))))) + (_g3177631922_))))))) + (if (gx#stx-null? _tl3178432473_) + (___kont4208442085_ _hd3178532470_ _hd3178232460_) + (let () (declare (not safe)) (_g3177631922_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3177332151_ + (if (gx#stx-pair? _tl3178432473_) + (let ((_e3185432232_ (gx#syntax-e - _tl3170332392_))) - (let ((_tl3177132158_ + _tl3178432473_))) + (let ((_tl3185232239_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3185432232_))) + (_hd3185332236_ (let () (declare (not safe)) - (##car _e3177332151_)))) + (##car _e3185432232_)))) (if (gx#stx-null? - _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) + _tl3185232239_) + (___kont4208242083_ + _hd3185332236_ + _hd3178532470_) (if (gx#identifier? - _hd3177232155_) + _hd3185332236_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43119_| - _hd3177232155_) + |gerbil/core$[1]#_g43131_| + _hd3185332236_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl3177132158_) - (let ((_e3179632051_ (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ + _tl3185232239_) + (let ((_e3187732132_ (gx#syntax-e _tl3185232239_))) + (let ((_tl3187532139_ (let () (declare (not safe)) - (##cdr _e3179632051_))) - (_hd3179532055_ + (##cdr _e3187732132_))) + (_hd3187632136_ (let () (declare (not safe)) - (##car _e3179632051_)))) - (if (gx#stx-null? _tl3179432058_) - (___kont4200542006_ - _hd3179532055_ - _hd3170432389_ - _hd3170132379_) + (##car _e3187732132_)))) + (if (gx#stx-null? _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3178532470_ + _hd3178232460_) (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_ + (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))) + (if (gx#stx-datum? _hd3185332236_) + (let ((_e3189032059_ (gx#stx-e _hd3185332236_))) + (if (equal? _e3189032059_ '::) + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3189332063_ + (gx#syntax-e _tl3185232239_))) + (let ((_tl3189132070_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3189332063_))) + (_hd3189232067_ (let () (declare (not safe)) - (##car _e3181231982_)))) - (if (gx#stx-null? _tl3181031989_) - (___kont4200742008_ - _hd3181131986_ - _hd3170432389_ - _hd3170132379_) - (if (gx#stx-pair? _tl3181031989_) - (let ((_e3183231892_ + (##car _e3189332063_)))) + (if (gx#stx-null? _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) + (if (gx#stx-pair? _tl3189132070_) + (let ((_e3191331973_ (gx#syntax-e - _tl3181031989_))) - (let ((_tl3183031899_ + _tl3189132070_))) + (let ((_tl3191131980_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3191331973_))) + (_hd3191231977_ (let () (declare (not safe)) - (##car _e3183231892_)))) + (##car _e3191331973_)))) (if (gx#identifier? - _hd3183131896_) + _hd3191231977_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43118_| - _hd3183131896_) + |gerbil/core$[1]#_g43130_| + _hd3191231977_) (if (gx#stx-pair? - _tl3183031899_) - (let ((_e3183531902_ + _tl3191131980_) + (let ((_e3191631983_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3183031899_))) - (let ((_tl3183331909_ + (gx#syntax-e _tl3191131980_))) + (let ((_tl3191431990_ (let () (declare (not safe)) - (##cdr _e3183531902_))) - (_hd3183431906_ + (##cdr _e3191631983_))) + (_hd3191531987_ (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 _e3191631983_)))) + (if (gx#stx-null? _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) + (let () (declare (not safe)) (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (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_) + (_g3177631922_)))))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_)))) + (let () (declare (not safe)) (_g3177631922_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? _tl3178432473_) + (___kont4208442085_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))))) - (if (gx#stx-pair? _tl3170332392_) - (let ((_e3177332151_ - (gx#syntax-e _tl3170332392_))) - (let ((_tl3177132158_ + (_g3177631922_))))))) + (if (gx#stx-pair? _tl3178432473_) + (let ((_e3185432232_ + (gx#syntax-e _tl3178432473_))) + (let ((_tl3185232239_ (let () (declare (not safe)) - (##cdr _e3177332151_))) - (_hd3177232155_ + (##cdr _e3185432232_))) + (_hd3185332236_ (let () (declare (not safe)) - (##car _e3177332151_)))) - (if (gx#stx-null? _tl3177132158_) - (___kont4200142002_ - _hd3177232155_ - _hd3170432389_) + (##car _e3185432232_)))) + (if (gx#stx-null? _tl3185232239_) + (___kont4208242083_ + _hd3185332236_ + _hd3178532470_) (if (gx#identifier? - _hd3177232155_) + _hd3185332236_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43119_| - _hd3177232155_) + |gerbil/core$[1]#_g43131_| + _hd3185332236_) (if (gx#stx-pair? - _tl3177132158_) - (let ((_e3179632051_ + _tl3185232239_) + (let ((_e3187732132_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3177132158_))) - (let ((_tl3179432058_ - (let () (declare (not safe)) (##cdr _e3179632051_))) - (_hd3179532055_ + (gx#syntax-e _tl3185232239_))) + (let ((_tl3187532139_ + (let () (declare (not safe)) (##cdr _e3187732132_))) + (_hd3187632136_ (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 _e3187732132_)))) + (if (gx#stx-null? _tl3187532139_) + (___kont4208642087_ + _hd3187632136_ + _hd3178532470_ + _hd3178232460_) + (let () (declare (not safe)) (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-datum? - _hd3177232155_) - (let ((_e3180931978_ + _hd3185332236_) + (let ((_e3189032059_ (gx#stx-e - _hd3177232155_))) - (if (equal? _e3180931978_ + _hd3185332236_))) + (if (equal? _e3189032059_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '::) - (if (gx#stx-pair? _tl3177132158_) - (let ((_e3181231982_ (gx#syntax-e _tl3177132158_))) - (let ((_tl3181031989_ + (if (gx#stx-pair? _tl3185232239_) + (let ((_e3189332063_ (gx#syntax-e _tl3185232239_))) + (let ((_tl3189132070_ (let () (declare (not safe)) - (##cdr _e3181231982_))) - (_hd3181131986_ + (##cdr _e3189332063_))) + (_hd3189232067_ (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 _e3189332063_)))) + (if (gx#stx-null? _tl3189132070_) + (___kont4208842089_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) + (if (gx#stx-pair? _tl3189132070_) + (let ((_e3191331973_ + (gx#syntax-e _tl3189132070_))) + (let ((_tl3191131980_ (let () (declare (not safe)) - (##cdr _e3183231892_))) - (_hd3183131896_ + (##cdr _e3191331973_))) + (_hd3191231977_ (let () (declare (not safe)) - (##car _e3183231892_)))) - (if (gx#identifier? _hd3183131896_) + (##car _e3191331973_)))) + (if (gx#identifier? _hd3191231977_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g43118_| - _hd3183131896_) + |gerbil/core$[1]#_g43130_| + _hd3191231977_) (if (gx#stx-pair? - _tl3183031899_) - (let ((_e3183531902_ + _tl3191131980_) + (let ((_e3191631983_ (gx#syntax-e - _tl3183031899_))) - (let ((_tl3183331909_ + _tl3191131980_))) + (let ((_tl3191431990_ (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 _e3191631983_))) + (_hd3191531987_ + (let () (declare (not safe)) (##car _e3191631983_)))) + (if (gx#stx-null? _tl3191431990_) + (___kont4209042091_ + _hd3191531987_ + _hd3189232067_ + _hd3178532470_ + _hd3178232460_) + (let () (declare (not safe)) (_g3177631922_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))) + (_g3177631922_))) (let () (declare (not safe)) - (_g3169531841_))))) + (_g3177631922_))))) (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_) + (_g3177631922_)))))) + (let () (declare (not safe)) (_g3177631922_))) + (let () (declare (not safe)) (_g3177631922_)))) + (let () (declare (not safe)) (_g3177631922_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? _tl3178432473_) + (___kont4208442085_ + _hd3178532470_ + _hd3178232460_) (let () (declare (not safe)) - (_g3169531841_))))))) - (let () (declare (not safe)) (_g3169531841_))))) - (let () (declare (not safe)) (_g3169531841_)))))))) + (_g3177631922_))))))) + (let () (declare (not safe)) (_g3177631922_))))) + (let () (declare (not safe)) (_g3177631922_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-match| - (lambda (_$stx32484_) - (let* ((___stx4225642257_ _$stx32484_) - (_g3248932523_ + (lambda (_$stx32565_) + (let* ((___stx4233742338_ _$stx32565_) + (_g3257032604_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4225642257_)))) - (let ((___kont4225942260_ - (lambda (_L32627_ _L32629_ _L32630_) + ___stx4233742338_)))) + (let ((___kont4234042341_ + (lambda (_L32708_ _L32710_ _L32711_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _L32630_ + (cons _L32711_ (cons (cons (gx#datum->syntax '#f 'make-match-macro) @@ -8809,9 +8809,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$match-e) - (cons _L32629_ '())) + (cons _L32710_ '())) (cons (cons (gx#datum->syntax '#f '$macro-e) - (cons _L32627_ '())) + (cons _L32708_ '())) '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$stx) @@ -8868,11 +8868,11 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont4226142262_ - (lambda (_L32560_ _L32562_ _L32563_) - (cons _L32563_ - (cons _L32562_ - (cons _L32560_ + (___kont4234242343_ + (lambda (_L32641_ _L32643_ _L32644_) + (cons _L32644_ + (cons _L32643_ + (cons _L32641_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -8889,135 +8889,135 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (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 ((___match4237042371_ + (lambda (_e3257732668_ + _hd3257632672_ + _tl3257532675_ + _e3258032678_ + _hd3257932682_ + _tl3257832685_ + _e3258332688_ + _hd3258232692_ + _tl3258132695_ + _e3258632698_ + _hd3258532702_ + _tl3258432705_) + (let ((_L32708_ _hd3258532702_) + (_L32710_ _hd3258232692_) + (_L32711_ _hd3257932682_)) + (if (gx#identifier? _L32711_) + (___kont4234042341_ _L32708_ _L32710_ _L32711_) + (let () (declare (not safe)) (_g3257032604_))))))) + (if (gx#stx-pair? ___stx4233742338_) + (let ((_e3257732668_ (gx#syntax-e ___stx4233742338_))) + (let ((_tl3257532675_ + (let () (declare (not safe)) (##cdr _e3257732668_))) + (_hd3257632672_ (let () (declare (not safe)) - (##car _e3249632587_)))) - (if (gx#stx-pair? _tl3249432594_) - (let ((_e3249932597_ (gx#syntax-e _tl3249432594_))) - (let ((_tl3249732604_ + (##car _e3257732668_)))) + (if (gx#stx-pair? _tl3257532675_) + (let ((_e3258032678_ (gx#syntax-e _tl3257532675_))) + (let ((_tl3257832685_ (let () (declare (not safe)) - (##cdr _e3249932597_))) - (_hd3249832601_ + (##cdr _e3258032678_))) + (_hd3257932682_ (let () (declare (not safe)) - (##car _e3249932597_)))) - (if (gx#stx-pair? _tl3249732604_) - (let ((_e3250232607_ - (gx#syntax-e _tl3249732604_))) - (let ((_tl3250032614_ + (##car _e3258032678_)))) + (if (gx#stx-pair? _tl3257832685_) + (let ((_e3258332688_ + (gx#syntax-e _tl3257832685_))) + (let ((_tl3258132695_ (let () (declare (not safe)) - (##cdr _e3250232607_))) - (_hd3250132611_ + (##cdr _e3258332688_))) + (_hd3258232692_ (let () (declare (not safe)) - (##car _e3250232607_)))) - (if (gx#stx-pair? _tl3250032614_) - (let ((_e3250532617_ - (gx#syntax-e _tl3250032614_))) - (let ((_tl3250332624_ + (##car _e3258332688_)))) + (if (gx#stx-pair? _tl3258132695_) + (let ((_e3258632698_ + (gx#syntax-e _tl3258132695_))) + (let ((_tl3258432705_ (let () (declare (not safe)) - (##cdr _e3250532617_))) - (_hd3250432621_ + (##cdr _e3258632698_))) + (_hd3258532702_ (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 _e3258632698_)))) + (if (gx#stx-null? _tl3258432705_) + (___match4237042371_ + _e3257732668_ + _hd3257632672_ + _tl3257532675_ + _e3258032678_ + _hd3257932682_ + _tl3257832685_ + _e3258332688_ + _hd3258232692_ + _tl3258132695_ + _e3258632698_ + _hd3258532702_ + _tl3258432705_) (let () (declare (not safe)) - (_g3248932523_))))) - (if (gx#stx-null? _tl3250032614_) - (___kont4226142262_ - _hd3250132611_ - _hd3249832601_ - _hd3249532591_) + (_g3257032604_))))) + (if (gx#stx-null? _tl3258132695_) + (___kont4234242343_ + _hd3258232692_ + _hd3257932682_ + _hd3257632672_) (let () (declare (not safe)) - (_g3248932523_)))))) + (_g3257032604_)))))) (let () (declare (not safe)) - (_g3248932523_))))) - (let () (declare (not safe)) (_g3248932523_))))) - (let () (declare (not safe)) (_g3248932523_)))))))) + (_g3257032604_))))) + (let () (declare (not safe)) (_g3257032604_))))) + (let () (declare (not safe)) (_g3257032604_)))))))) (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 (_$stx32733_) + (let* ((_g3273732752_ + (lambda (_g3273832748_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3273832748_))) + (_g3273632795_ + (lambda (_g3273832756_) + (if (gx#stx-pair? _g3273832756_) + (let ((_e3274332759_ (gx#syntax-e _g3273832756_))) + (let ((_hd3274232763_ (let () (declare (not safe)) - (##car _e3266232678_))) - (_tl3266032685_ + (##car _e3274332759_))) + (_tl3274132766_ (let () (declare (not safe)) - (##cdr _e3266232678_)))) - (if (gx#stx-pair? _tl3266032685_) - (let ((_e3266532688_ - (gx#syntax-e _tl3266032685_))) - (let ((_hd3266432692_ + (##cdr _e3274332759_)))) + (if (gx#stx-pair? _tl3274132766_) + (let ((_e3274632769_ + (gx#syntax-e _tl3274132766_))) + (let ((_hd3274532773_ (let () (declare (not safe)) - (##car _e3266532688_))) - (_tl3266332695_ + (##car _e3274632769_))) + (_tl3274432776_ (let () (declare (not safe)) - (##cdr _e3266532688_)))) - ((lambda (_L32698_ _L32700_) + (##cdr _e3274632769_)))) + ((lambda (_L32779_ _L32781_) (cons (gx#datum->syntax '#f 'defsyntax-for-match) - (cons _L32700_ + (cons _L32781_ (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _L32698_) + _L32779_) '())))) - _tl3266332695_ - _hd3266432692_))) - (_g3265632671_ _g3265732675_)))) - (_g3265632671_ _g3265732675_))))) - (_g3265532714_ _$stx32652_)))))) + _tl3274432776_ + _hd3274532773_))) + (_g3273732752_ _g3273832756_)))) + (_g3273732752_ _g3273832756_))))) + (_g3273632795_ _$stx32733_)))))) diff --git a/src/bootstrap/gerbil/core__11.scm b/src/bootstrap/gerbil/core__11.scm index 9dd58f1ffe..92b258b0a4 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]#_g43137_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43029_| + (define |gerbil/core$[2]#_g43139_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43030_| + (define |gerbil/core$[2]#_g43140_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43031_| + (define |gerbil/core$[2]#_g43141_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43032_| + (define |gerbil/core$[2]#_g43142_| (##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 ((__tmp43143 |gerbil/core$[2]#_g43140_|) + (__tmp43138 + (cons (cons |gerbil/core$[2]#_g43139_| '()) + (cons |gerbil/core$[2]#_g43140_| + (cons |gerbil/core$[2]#_g43141_| + (cons |gerbil/core$[2]#_g43142_| (cons '() (cons '() '()))))))) - (__tmp43025 - (let ((__tmp43026 (list |gerbil/core$[2]#_g43027_|))) + (__tmp43135 + (let ((__tmp43136 (list |gerbil/core$[2]#_g43137_|))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#match-macro::t - __tmp43026 + __tmp43136 'match-macro '#f '() @@ -58,8 +58,8 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp43033 + __tmp43143 'expander-identifiers: - __tmp43028 + __tmp43138 'type-exhibitor: - __tmp43025)))) + __tmp43135)))) diff --git a/src/bootstrap/gerbil/core__12.scm b/src/bootstrap/gerbil/core__12.scm index 6e9be250b3..350f0b413f 100644 --- a/src/bootstrap/gerbil/core__12.scm +++ b/src/bootstrap/gerbil/core__12.scm @@ -1,29 +1,29 @@ (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 (_$stx32800_) + (let ((_g3280332810_ + (lambda (_g3280432806_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3280432806_)))) + (_g3280332810_ _$stx32800_)))) (define |gerbil/core$[:0:]#:~| - (lambda (_$stx32733_) - (let ((_g3273632743_ - (lambda (_g3273732739_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3273732739_)))) - (_g3273632743_ _$stx32733_)))) + (lambda (_$stx32814_) + (let ((_g3281732824_ + (lambda (_g3281832820_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3281832820_)))) + (_g3281732824_ _$stx32814_)))) (define |gerbil/core$[:0:]#:-| - (lambda (_$stx32747_) - (let ((_g3275032757_ - (lambda (_g3275132753_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3275132753_)))) - (_g3275032757_ _$stx32747_)))) + (lambda (_$stx32828_) + (let ((_g3283132838_ + (lambda (_g3283232834_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3283232834_)))) + (_g3283132838_ _$stx32828_)))) (define |gerbil/core$[:0:]#:=| - (lambda (_$stx32761_) - (let ((_g3276432771_ - (lambda (_g3276532767_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3276532767_)))) - (_g3276432771_ _$stx32761_)))) + (lambda (_$stx32842_) + (let ((_g3284532852_ + (lambda (_g3284632848_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3284632848_)))) + (_g3284532852_ _$stx32842_)))) (define |gerbil/core$[1]#setq-macro::t| (make-class-type 'gerbil.core#setq-macro::t @@ -35,10 +35,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 _$args32867_ (apply make-class-instance |gerbil/core$[1]#setq-macro::t| - _$args32786_))) + _$args32867_))) (define |gerbil/core$[1]#setf-macro::t| (make-class-type 'gerbil.core#setf-macro::t @@ -50,1202 +50,1202 @@ (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 _$args32863_ (apply make-class-instance |gerbil/core$[1]#setf-macro::t| - _$args32782_))) + _$args32863_))) (define |gerbil/core$[1]#syntax-local-setf-macro?| - (lambda (_stx32779_) - (if (gx#identifier? _stx32779_) - (let ((__tmp43034 (gx#syntax-local-value _stx32779_ false))) + (lambda (_stx32860_) + (if (gx#identifier? _stx32860_) + (let ((__tmp43144 (gx#syntax-local-value _stx32860_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setf-macro::t| - __tmp43034)) + __tmp43144)) '#f))) (define |gerbil/core$[1]#syntax-local-setq-macro?| - (lambda (_stx32776_) - (if (gx#identifier? _stx32776_) - (let ((__tmp43035 (gx#syntax-local-value _stx32776_ false))) + (lambda (_stx32857_) + (if (gx#identifier? _stx32857_) + (let ((__tmp43145 (gx#syntax-local-value _stx32857_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setq-macro::t| - __tmp43035)) + __tmp43145)) '#f))) (define |gerbil/core$[:0:]#set!| - (lambda (_stx32790_) - (let* ((___stx4231242313_ _stx32790_) - (_g3279632855_ + (lambda (_stx32871_) + (let* ((___stx4239342394_ _stx32871_) + (_g3287732936_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx4231242313_)))) - (let ((___kont4231542316_ - (lambda (_L33128_) + (gx#raise-syntax-error '#f '"Bad syntax" ___stx4239342394_)))) + (let ((___kont4239642397_ + (lambda (_L33209_) (gx#core-apply-expander - (gx#syntax-local-e _L33128_) - _stx32790_))) - (___kont4231742318_ - (lambda (_L33027_ _L33029_ _L33030_) - (let* ((_g3305233060_ - (lambda (_g3305333056_) + (gx#syntax-local-e _L33209_) + _stx32871_))) + (___kont4239842399_ + (lambda (_L33108_ _L33110_ _L33111_) + (let* ((_g3313333141_ + (lambda (_g3313433137_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3305333056_))) - (_g3305133087_ - (lambda (_g3305333064_) - ((lambda (_L33067_) + _g3313433137_))) + (_g3313233168_ + (lambda (_g3313433145_) + ((lambda (_L33148_) (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 _L33148_ + (foldr (lambda (_g3315933162_ + _g3316033165_) + (cons _g3315933162_ + _g3316033165_)) + (cons _L33108_ '()) + _L33110_)))) + _g3313433145_)))) + (_g3313233168_ + (gx#stx-identifier _L33111_ _L33111_ '"-set!"))))) + (___kont4240242403_ + (lambda (_L33018_) (gx#core-apply-expander - (gx#syntax-local-e _L32937_) - _stx32790_))) - (___kont4232342324_ - (lambda (_L32892_ _L32894_) + (gx#syntax-local-e _L33018_) + _stx32871_))) + (___kont4240442405_ + (lambda (_L32973_ _L32975_) (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 _L32975_ (cons _L32973_ '())))))) + (let* ((___match4248442485_ + (lambda (_e3292432943_ + _hd3292332947_ + _tl3292232950_ + _e3292732953_ + _hd3292632957_ + _tl3292532960_ + _e3293032963_ + _hd3292932967_ + _tl3292832970_) + (let ((_L32973_ _hd3292932967_) (_L32975_ _hd3292632957_)) + (if (gx#identifier? _L32975_) + (___kont4240442405_ _L32973_ _L32975_) + (let () (declare (not safe)) (_g3287732936_)))))) + (___match4246442465_ + (lambda (_e3291632998_ + _hd3291533002_ + _tl3291433005_ + _e3291933008_ + _hd3291833012_ + _tl3291733015_) + (let ((_L33018_ _hd3291833012_)) (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_ + _L33018_)) + (___kont4240242403_ _L33018_) + (if (gx#stx-pair? _tl3291733015_) + (let ((_e3293032963_ + (gx#syntax-e _tl3291733015_))) + (let ((_tl3292832970_ (let () (declare (not safe)) - (##cdr _e3284932882_))) - (_hd3284832886_ + (##cdr _e3293032963_))) + (_hd3292932967_ (let () (declare (not safe)) - (##car _e3284932882_)))) - (if (gx#stx-null? _tl3284732889_) - (___match4240342404_ - _e3283532917_ - _hd3283432921_ - _tl3283332924_ - _e3283832927_ - _hd3283732931_ - _tl3283632934_ - _e3284932882_ - _hd3284832886_ - _tl3284732889_) + (##car _e3293032963_)))) + (if (gx#stx-null? _tl3292832970_) + (___match4248442485_ + _e3291632998_ + _hd3291533002_ + _tl3291433005_ + _e3291933008_ + _hd3291833012_ + _tl3291733015_ + _e3293032963_ + _hd3292932967_ + _tl3292832970_) (let () (declare (not safe)) - (_g3279632855_))))) + (_g3287732936_))))) (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_ + (_g3287732936_))))))) + (___match4245242453_ + (lambda (_e3289433038_ + _hd3289333042_ + _tl3289233045_ + _e3289733048_ + _hd3289633052_ + _tl3289533055_ + _e3290033058_ + _hd3289933062_ + _tl3289833065_ + ___splice4240042401_ + _target3290133068_ + _tl3290333071_) + (letrec ((_loop3290433074_ + (lambda (_hd3290233078_ _arg3290833081_) + (if (gx#stx-pair? _hd3290233078_) + (let ((_e3290533084_ + (gx#syntax-e _hd3290233078_))) + (let ((_lp-tl3290733091_ (let () (declare (not safe)) - (##cdr _e3282433003_))) - (_lp-hd3282533007_ + (##cdr _e3290533084_))) + (_lp-hd3290633088_ (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 _e3290533084_)))) + (_loop3290433074_ + _lp-tl3290733091_ + (cons _lp-hd3290633088_ + _arg3290833081_)))) + (let ((_arg3290933094_ + (reverse _arg3290833081_))) + (if (gx#stx-pair? _tl3289533055_) + (let ((_e3291233098_ + (gx#syntax-e _tl3289533055_))) + (let ((_tl3291033105_ (let () (declare (not safe)) - (##cdr _e3283133017_))) - (_hd3283033021_ + (##cdr _e3291233098_))) + (_hd3291133102_ (let () (declare (not safe)) - (##car _e3283133017_)))) - (if (gx#stx-null? _tl3282933024_) - (let ((_L33027_ - _hd3283033021_) - (_L33029_ - _arg3282833013_) - (_L33030_ - _hd3281832981_)) + (##car _e3291233098_)))) + (if (gx#stx-null? _tl3291033105_) + (let ((_L33108_ + _hd3291133102_) + (_L33110_ + _arg3290933094_) + (_L33111_ + _hd3289933062_)) (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_ + _L33111_) + (___kont4239842399_ + _L33108_ + _L33110_ + _L33111_) + (___match4246442465_ + _e3289433038_ + _hd3289333042_ + _tl3289233045_ + _e3289733048_ + _hd3289633052_ + _tl3289533055_))) + (___match4246442465_ + _e3289433038_ + _hd3289333042_ + _tl3289233045_ + _e3289733048_ + _hd3289633052_ + _tl3289533055_)))) + (___match4246442465_ + _e3289433038_ + _hd3289333042_ + _tl3289233045_ + _e3289733048_ + _hd3289633052_ + _tl3289533055_))))))) + (_loop3290433074_ _target3290133068_ '()))))) + (if (gx#stx-pair? ___stx4239342394_) + (let ((_e3288233179_ (gx#syntax-e ___stx4239342394_))) + (let ((_tl3288033186_ + (let () (declare (not safe)) (##cdr _e3288233179_))) + (_hd3288133183_ + (let () (declare (not safe)) (##car _e3288233179_)))) + (if (gx#stx-pair? _tl3288033186_) + (let ((_e3288533189_ (gx#syntax-e _tl3288033186_))) + (let ((_tl3288333196_ (let () (declare (not safe)) - (##cdr _e3280433108_))) - (_hd3280333112_ + (##cdr _e3288533189_))) + (_hd3288433193_ (let () (declare (not safe)) - (##car _e3280433108_)))) - (if (gx#stx-pair? _hd3280333112_) - (let ((_e3280733118_ - (gx#syntax-e _hd3280333112_))) - (let ((_tl3280533125_ + (##car _e3288533189_)))) + (if (gx#stx-pair? _hd3288433193_) + (let ((_e3288833199_ + (gx#syntax-e _hd3288433193_))) + (let ((_tl3288633206_ (let () (declare (not safe)) - (##cdr _e3280733118_))) - (_hd3280633122_ + (##cdr _e3288833199_))) + (_hd3288733203_ (let () (declare (not safe)) - (##car _e3280733118_)))) - (if (let ((__tmp43036 + (##car _e3288833199_)))) + (if (let ((__tmp43146 (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_ + __tmp43146)) + (let ((_L33209_ _hd3288733203_)) + (___kont4239642397_ _L33209_)) + (if (gx#stx-pair/null? _tl3288633206_) + (let ((___splice4240042401_ (gx#syntax-split-splice - _tl3280533125_ + _tl3288633206_ '0))) - (let ((_tl3282232990_ + (let ((_tl3290333071_ (let () (declare (not safe)) (##vector-ref - ___splice4231942320_ + ___splice4240042401_ '1))) - (_target3282032987_ + (_target3290133068_ (let () (declare (not safe)) (##vector-ref - ___splice4231942320_ + ___splice4240042401_ '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_)))))))) + _tl3290333071_) + (___match4245242453_ + _e3288233179_ + _hd3288133183_ + _tl3288033186_ + _e3288533189_ + _hd3288433193_ + _tl3288333196_ + _e3288833199_ + _hd3288733203_ + _tl3288633206_ + ___splice4240042401_ + _target3290133068_ + _tl3290333071_) + (___match4246442465_ + _e3288233179_ + _hd3288133183_ + _tl3288033186_ + _e3288533189_ + _hd3288433193_ + _tl3288333196_)))) + (___match4246442465_ + _e3288233179_ + _hd3288133183_ + _tl3288033186_ + _e3288533189_ + _hd3288433193_ + _tl3288333196_))))) + (___match4246442465_ + _e3288233179_ + _hd3288133183_ + _tl3288033186_ + _e3288533189_ + _hd3288433193_ + _tl3288333196_)))) + (let () (declare (not safe)) (_g3287732936_))))) + (let () (declare (not safe)) (_g3287732936_)))))))) (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 (_stx33229_) + (let* ((_g3323233256_ + (lambda (_g3323333252_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3323333252_))) + (_g3323133434_ + (lambda (_g3323333260_) + (if (gx#stx-pair? _g3323333260_) + (let ((_e3323833263_ (gx#syntax-e _g3323333260_))) + (let ((_hd3323733267_ (let () (declare (not safe)) - (##car _e3315733182_))) - (_tl3315533189_ + (##car _e3323833263_))) + (_tl3323633270_ (let () (declare (not safe)) - (##cdr _e3315733182_)))) - (if (gx#stx-pair/null? _tl3315533189_) - (if (fx>= (gx#stx-length _tl3315533189_) '1) - (let ((_g43037_ + (##cdr _e3323833263_)))) + (if (gx#stx-pair/null? _tl3323633270_) + (if (fx>= (gx#stx-length _tl3323633270_) '1) + (let ((_g43147_ (gx#syntax-split-splice - _tl3315533189_ + _tl3323633270_ '1))) (begin - (let ((_g43038_ + (let ((_g43148_ (let () (declare (not safe)) - (if (##values? _g43037_) - (##vector-length _g43037_) + (if (##values? _g43147_) + (##vector-length _g43147_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43038_ 2))) + (##fx= _g43148_ 2))) (error "Context expects 2 values" - _g43038_))) - (let ((_target3315833192_ + _g43148_))) + (let ((_target3323933273_ (let () (declare (not safe)) - (##vector-ref _g43037_ 0))) - (_tl3316033195_ + (##vector-ref _g43147_ 0))) + (_tl3324133276_ (let () (declare (not safe)) - (##vector-ref _g43037_ 1)))) - (if (gx#stx-pair? _tl3316033195_) - (let ((_e3316933198_ - (gx#syntax-e _tl3316033195_))) - (let ((_hd3316833202_ + (##vector-ref _g43147_ 1)))) + (if (gx#stx-pair? _tl3324133276_) + (let ((_e3325033279_ + (gx#syntax-e _tl3324133276_))) + (let ((_hd3324933283_ (let () (declare (not safe)) - (##car _e3316933198_))) - (_tl3316733205_ + (##car _e3325033279_))) + (_tl3324833286_ (let () (declare (not safe)) - (##cdr _e3316933198_)))) - (if (gx#stx-null? _tl3316733205_) - (letrec ((_loop3316133208_ - (lambda (_hd3315933212_ + (##cdr _e3325033279_)))) + (if (gx#stx-null? _tl3324833286_) + (letrec ((_loop3324233289_ + (lambda (_hd3324033293_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tgt3316533215_) - (if (gx#stx-pair? _hd3315933212_) - (let ((_e3316233218_ (gx#syntax-e _hd3315933212_))) - (let ((_lp-hd3316333222_ + _tgt3324633296_) + (if (gx#stx-pair? _hd3324033293_) + (let ((_e3324333299_ (gx#syntax-e _hd3324033293_))) + (let ((_lp-hd3324433303_ (let () (declare (not safe)) - (##car _e3316233218_))) - (_lp-tl3316433225_ + (##car _e3324333299_))) + (_lp-tl3324533306_ (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 _e3324333299_)))) + (_loop3324233289_ + _lp-tl3324533306_ + (cons _lp-hd3324433303_ _tgt3324633296_)))) + (let ((_tgt3324733309_ (reverse _tgt3324633296_))) + ((lambda (_L33313_ _L33315_) + (let* ((_g3333333350_ + (lambda (_g3333433346_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3325333265_))) - (_g3325133341_ - (lambda (_g3325333273_) - (if (gx#stx-pair/null? _g3325333273_) - (let ((_g43039_ + _g3333433346_))) + (_g3333233422_ + (lambda (_g3333433354_) + (if (gx#stx-pair/null? _g3333433354_) + (let ((_g43149_ (gx#syntax-split-splice - _g3325333273_ + _g3333433354_ '0))) (begin - (let ((_g43040_ + (let ((_g43150_ (let () (declare (not safe)) (if (##values? - _g43039_) + _g43149_) (##vector-length - _g43039_) + _g43149_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43040_ + (##fx= _g43150_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g43040_))) + (error "Context expects 2 values" _g43150_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3325533276_ + (let ((_target3333633357_ (let () (declare (not safe)) (##vector-ref - _g43039_ + _g43149_ 0))) - (_tl3325733279_ + (_tl3333833360_ (let () (declare (not safe)) (##vector-ref - _g43039_ + _g43149_ 1)))) (if (gx#stx-null? - _tl3325733279_) - (letrec ((_loop3325833282_ + _tl3333833360_) + (letrec ((_loop3333933363_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd3325633286_ _$e3326233289_) - (if (gx#stx-pair? _hd3325633286_) - (let ((_e3325933292_ - (gx#syntax-e _hd3325633286_))) - (let ((_lp-hd3326033296_ + (lambda (_hd3333733367_ _$e3334333370_) + (if (gx#stx-pair? _hd3333733367_) + (let ((_e3334033373_ + (gx#syntax-e _hd3333733367_))) + (let ((_lp-hd3334133377_ (let () (declare (not safe)) - (##car _e3325933292_))) - (_lp-tl3326133299_ + (##car _e3334033373_))) + (_lp-tl3334233380_ (let () (declare (not safe)) - (##cdr _e3325933292_)))) - (_loop3325833282_ - _lp-tl3326133299_ - (cons _lp-hd3326033296_ _$e3326233289_)))) - (let ((_$e3326333302_ (reverse _$e3326233289_))) - ((lambda (_L33306_) + (##cdr _e3334033373_)))) + (_loop3333933363_ + _lp-tl3334233380_ + (cons _lp-hd3334133377_ _$e3334333370_)))) + (let ((_$e3334433383_ (reverse _$e3334333370_))) + ((lambda (_L33387_) (let () (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (foldr (lambda (_g3332433327_ + (cons (cons (cons (foldr (lambda (_g3340533408_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3332533330_) - (cons _g3332433327_ _g3332533330_)) + _g3340633411_) + (cons _g3340533408_ _g3340633411_)) '() - _L33306_) - (cons _L33232_ '())) + _L33387_) + (cons _L33313_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _L33306_ - _L33234_) - (foldr (lambda (_g3332133333_ + _L33387_ + _L33315_) + (foldr (lambda (_g3340233414_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3332233336_ - _g3332333338_) + _g3340333417_ + _g3340433419_) (cons (cons (gx#datum->syntax '#f 'set!) - (cons _g3332233336_ (cons _g3332133333_ '()))) - _g3332333338_)) + (cons _g3340333417_ (cons _g3340233414_ '()))) + _g3340433419_)) '() - _L33306_ - _L33234_)))))) + _L33387_ + _L33315_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e3326333302_)))))) - (_loop3325833282_ _target3325533276_ '())) - (_g3325233269_ _g3325333273_))))) + _$e3334433383_)))))) + (_loop3333933363_ _target3333633357_ '())) + (_g3333333350_ _g3333433354_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3325233269_ _g3325333273_))))) - (_g3325133341_ + (_g3333333350_ _g3333433354_))))) + (_g3333233422_ (gx#gentemps - (foldr (lambda (_g3334433347_ _g3334533350_) - (cons _g3334433347_ _g3334533350_)) + (foldr (lambda (_g3342533428_ _g3342633431_) + (cons _g3342533428_ _g3342633431_)) '() - _L33234_))))) - _hd3316833202_ - _tgt3316633228_)))))) + _L33315_))))) + _hd3324933283_ + _tgt3324733309_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3316133208_ - _target3315833192_ + (_loop3324233289_ + _target3323933273_ '())) - (_g3315133175_ - _g3315233179_)))) - (_g3315133175_ _g3315233179_))))) - (_g3315133175_ _g3315233179_)) - (_g3315133175_ _g3315233179_)))) - (_g3315133175_ _g3315233179_))))) - (_g3315033353_ _stx33148_)))) + (_g3323233256_ + _g3323333260_)))) + (_g3323233256_ _g3323333260_))))) + (_g3323233256_ _g3323333260_)) + (_g3323233256_ _g3323333260_)))) + (_g3323233256_ _g3323333260_))))) + (_g3323133434_ _stx33229_)))) (define |gerbil/core$[:0:]#parameterize| - (lambda (_stx33359_) - (let* ((___stx4240642407_ _stx33359_) - (_g3336333421_ + (lambda (_stx33440_) + (let* ((___stx4248742488_ _stx33440_) + (_g3344433502_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx4240642407_)))) - (let ((___kont4240942410_ - (lambda (_L33755_) + (gx#raise-syntax-error '#f '"Bad syntax" ___stx4248742488_)))) + (let ((___kont4249042491_ + (lambda (_L33836_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_g3377133774_ _g3377233777_) - (cons _g3377133774_ _g3377233777_)) + (foldr (lambda (_g3385233855_ _g3385333858_) + (cons _g3385233855_ _g3385333858_)) '() - _L33755_))))) - (___kont4241342414_ - (lambda (_L33532_ _L33534_ _L33535_) - (let* ((_g3355833566_ - (lambda (_g3355933562_) + _L33836_))))) + (___kont4249442495_ + (lambda (_L33613_ _L33615_ _L33616_) + (let* ((_g3363933647_ + (lambda (_g3364033643_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3355933562_))) - (_g3355733686_ - (lambda (_g3355933570_) - ((lambda (_L33573_) + _g3364033643_))) + (_g3363833767_ + (lambda (_g3364033651_) + ((lambda (_L33654_) (let () - (let* ((_g3358533602_ - (lambda (_g3358633598_) + (let* ((_g3366633683_ + (lambda (_g3366733679_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3358633598_))) - (_g3358433666_ - (lambda (_g3358633606_) - (if (gx#stx-pair/null? _g3358633606_) - (let ((_g43041_ + _g3366733679_))) + (_g3366533747_ + (lambda (_g3366733687_) + (if (gx#stx-pair/null? _g3366733687_) + (let ((_g43151_ (gx#syntax-split-splice - _g3358633606_ + _g3366733687_ '0))) (begin - (let ((_g43042_ + (let ((_g43152_ (let () (declare (not safe)) (if (##values? - _g43041_) + _g43151_) (##vector-length - _g43041_) + _g43151_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g43042_ 2))) - (error "Context expects 2 values" _g43042_))) + (##fx= _g43152_ 2))) + (error "Context expects 2 values" _g43152_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3358833609_ + (let ((_target3366933690_ (let () (declare (not safe)) (##vector-ref - _g43041_ + _g43151_ 0))) - (_tl3359033612_ + (_tl3367133693_ (let () (declare (not safe)) (##vector-ref - _g43041_ + _g43151_ 1)))) (if (gx#stx-null? - _tl3359033612_) - (letrec ((_loop3359133615_ + _tl3367133693_) + (letrec ((_loop3367233696_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd3358933619_ _arg3359533622_) - (if (gx#stx-pair? _hd3358933619_) - (let ((_e3359233625_ - (gx#syntax-e _hd3358933619_))) - (let ((_lp-hd3359333629_ + (lambda (_hd3367033700_ _arg3367633703_) + (if (gx#stx-pair? _hd3367033700_) + (let ((_e3367333706_ + (gx#syntax-e _hd3367033700_))) + (let ((_lp-hd3367433710_ (let () (declare (not safe)) - (##car _e3359233625_))) - (_lp-tl3359433632_ + (##car _e3367333706_))) + (_lp-tl3367533713_ (let () (declare (not safe)) - (##cdr _e3359233625_)))) - (_loop3359133615_ - _lp-tl3359433632_ - (cons _lp-hd3359333629_ - _arg3359533622_)))) - (let ((_arg3359633635_ - (reverse _arg3359533622_))) - ((lambda (_L33639_) + (##cdr _e3367333706_)))) + (_loop3367233696_ + _lp-tl3367533713_ + (cons _lp-hd3367433710_ + _arg3367633703_)))) + (let ((_arg3367733716_ + (reverse _arg3367633703_))) + ((lambda (_L33720_) (let () (let () (cons (gx#datum->syntax '#f 'call-with-parameters) - (cons _L33573_ - (foldr (lambda (_g3365733660_ + (cons _L33654_ + (foldr (lambda (_g3373833741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3365833663_) - (cons _g3365733660_ _g3365833663_)) + _g3373933744_) + (cons _g3373833741_ _g3373933744_)) '() - _L33639_)))))) + _L33720_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _arg3359633635_)))))) - (_loop3359133615_ _target3358833609_ '())) - (_g3358533602_ _g3358633606_))))) + _arg3367733716_)))))) + (_loop3367233696_ _target3366933690_ '())) + (_g3366633683_ _g3366733687_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3358533602_ _g3358633606_))))) - (_g3358433666_ + (_g3366633683_ _g3366733687_))))) + (_g3366533747_ (foldr cons* '() (gx#syntax->list - (foldr (lambda (_g3366933672_ - _g3367033675_) - (cons _g3366933672_ - _g3367033675_)) + (foldr (lambda (_g3375033753_ + _g3375133756_) + (cons _g3375033753_ + _g3375133756_)) '() - _L33535_)) + _L33616_)) (gx#syntax->list - (foldr (lambda (_g3367733680_ - _g3367833683_) - (cons _g3367733680_ - _g3367833683_)) + (foldr (lambda (_g3375833761_ + _g3375933764_) + (cons _g3375833761_ + _g3375933764_)) '() - _L33534_))))))) - _g3355933570_)))) - (_g3355733686_ + _L33615_))))))) + _g3364033651_)))) + (_g3363833767_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (foldr (lambda (_g3368933692_ _g3369033695_) - (cons _g3368933692_ _g3369033695_)) + (foldr (lambda (_g3377033773_ _g3377133776_) + (cons _g3377033773_ _g3377133776_)) '() - _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_ + _L33613_))) + (gx#stx-source _stx33440_))))))) + (let* ((___match4254242543_ + (lambda (_e3346733509_ + _hd3346633513_ + _tl3346533516_ + _e3347033519_ + _hd3346933523_ + _tl3346833526_ + ___splice4249642497_ + _target3347133529_ + _tl3347333532_) + (letrec ((_loop3347433535_ + (lambda (_hd3347233539_ + _expr3347833542_ + _param3347933544_) + (if (gx#stx-pair? _hd3347233539_) + (let ((_e3347533547_ + (gx#syntax-e _hd3347233539_))) + (let ((_lp-tl3347733554_ (let () (declare (not safe)) - (##cdr _e3339433466_))) - (_lp-hd3339533470_ + (##cdr _e3347533547_))) + (_lp-hd3347633551_ (let () (declare (not safe)) - (##car _e3339433466_)))) - (if (gx#stx-pair? _lp-hd3339533470_) - (let ((_e3340333476_ + (##car _e3347533547_)))) + (if (gx#stx-pair? _lp-hd3347633551_) + (let ((_e3348433557_ (gx#syntax-e - _lp-hd3339533470_))) - (let ((_tl3340133483_ + _lp-hd3347633551_))) + (let ((_tl3348233564_ (let () (declare (not safe)) - (##cdr _e3340333476_))) - (_hd3340233480_ + (##cdr _e3348433557_))) + (_hd3348333561_ (let () (declare (not safe)) - (##car _e3340333476_)))) + (##car _e3348433557_)))) (if (gx#stx-pair? - _tl3340133483_) - (let ((_e3340633486_ + _tl3348233564_) + (let ((_e3348733567_ (gx#syntax-e - _tl3340133483_))) - (let ((_tl3340433493_ + _tl3348233564_))) + (let ((_tl3348533574_ (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 _e3348733567_))) + (_hd3348633571_ + (let () (declare (not safe)) (##car _e3348733567_)))) + (if (gx#stx-null? _tl3348533574_) + (_loop3347433535_ + _lp-tl3347733554_ + (cons _hd3348633571_ _expr3347833542_) + (cons _hd3348333561_ _param3347933544_)) + (let () (declare (not safe)) (_g3344433502_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3336333421_))))) + (_g3344433502_))))) (let () (declare (not safe)) - (_g3336333421_))))) - (let ((_param3340033499_ - (reverse _param3339833463_)) - (_expr3339933496_ - (reverse _expr3339733461_))) - (if (gx#stx-pair/null? _tl3338733445_) - (let ((___splice4241742418_ + (_g3344433502_))))) + (let ((_param3348133580_ + (reverse _param3347933544_)) + (_expr3348033577_ + (reverse _expr3347833542_))) + (if (gx#stx-pair/null? _tl3346833526_) + (let ((___splice4249842499_ (gx#syntax-split-splice - _tl3338733445_ + _tl3346833526_ '0))) - (let ((_tl3340933505_ + (let ((_tl3349033586_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4249842499_ '1))) - (_target3340733502_ + (_target3348833583_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4249842499_ '0)))) - (if (gx#stx-null? _tl3340933505_) - (letrec ((_loop3341033508_ - (lambda (_hd3340833512_ + (if (gx#stx-null? _tl3349033586_) + (letrec ((_loop3349133589_ + (lambda (_hd3348933593_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3341433515_) - (if (gx#stx-pair? _hd3340833512_) - (let ((_e3341133518_ (gx#syntax-e _hd3340833512_))) - (let ((_lp-tl3341333525_ + _body3349533596_) + (if (gx#stx-pair? _hd3348933593_) + (let ((_e3349233599_ (gx#syntax-e _hd3348933593_))) + (let ((_lp-tl3349433606_ (let () (declare (not safe)) - (##cdr _e3341133518_))) - (_lp-hd3341233522_ + (##cdr _e3349233599_))) + (_lp-hd3349333603_ (let () (declare (not safe)) - (##car _e3341133518_)))) - (_loop3341033508_ - _lp-tl3341333525_ - (cons _lp-hd3341233522_ _body3341433515_)))) - (let ((_body3341533528_ (reverse _body3341433515_))) - (___kont4241342414_ - _body3341533528_ - _expr3339933496_ - _param3340033499_)))))) + (##car _e3349233599_)))) + (_loop3349133589_ + _lp-tl3349433606_ + (cons _lp-hd3349333603_ _body3349533596_)))) + (let ((_body3349633609_ (reverse _body3349533596_))) + (___kont4249442495_ + _body3349633609_ + _expr3348033577_ + _param3348133580_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3341033508_ - _target3340733502_ + (_loop3349133589_ + _target3348833583_ '())) (let () (declare (not safe)) - (_g3336333421_))))) + (_g3344433502_))))) (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_ + (_g3344433502_)))))))) + (_loop3347433535_ _target3347133529_ '() '())))) + (___match4252242523_ + (lambda (_e3344933786_ + _hd3344833790_ + _tl3344733793_ + _e3345233796_ + _hd3345133800_ + _tl3345033803_ + ___splice4249242493_ + _target3345333806_ + _tl3345533809_) + (letrec ((_loop3345633812_ + (lambda (_hd3345433816_ _body3346033819_) + (if (gx#stx-pair? _hd3345433816_) + (let ((_e3345733822_ + (gx#syntax-e _hd3345433816_))) + (let ((_lp-tl3345933829_ (let () (declare (not safe)) - (##cdr _e3337633741_))) - (_lp-hd3337733745_ + (##cdr _e3345733822_))) + (_lp-hd3345833826_ (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 _e3345733822_)))) + (_loop3345633812_ + _lp-tl3345933829_ + (cons _lp-hd3345833826_ + _body3346033819_)))) + (let ((_body3346133832_ + (reverse _body3346033819_))) + (___kont4249042491_ + _body3346133832_)))))) + (_loop3345633812_ _target3345333806_ '()))))) + (if (gx#stx-pair? ___stx4248742488_) + (let ((_e3344933786_ (gx#syntax-e ___stx4248742488_))) + (let ((_tl3344733793_ + (let () (declare (not safe)) (##cdr _e3344933786_))) + (_hd3344833790_ + (let () (declare (not safe)) (##car _e3344933786_)))) + (if (gx#stx-pair? _tl3344733793_) + (let ((_e3345233796_ (gx#syntax-e _tl3344733793_))) + (let ((_tl3345033803_ (let () (declare (not safe)) - (##cdr _e3337133715_))) - (_hd3337033719_ + (##cdr _e3345233796_))) + (_hd3345133800_ (let () (declare (not safe)) - (##car _e3337133715_)))) - (if (gx#stx-null? _hd3337033719_) - (if (gx#stx-pair/null? _tl3336933722_) - (let ((___splice4241142412_ + (##car _e3345233796_)))) + (if (gx#stx-null? _hd3345133800_) + (if (gx#stx-pair/null? _tl3345033803_) + (let ((___splice4249242493_ (gx#syntax-split-splice - _tl3336933722_ + _tl3345033803_ '0))) - (let ((_tl3337433728_ + (let ((_tl3345533809_ (let () (declare (not safe)) (##vector-ref - ___splice4241142412_ + ___splice4249242493_ '1))) - (_target3337233725_ + (_target3345333806_ (let () (declare (not safe)) (##vector-ref - ___splice4241142412_ + ___splice4249242493_ '0)))) - (if (gx#stx-null? _tl3337433728_) - (___match4244142442_ - _e3336833705_ - _hd3336733709_ - _tl3336633712_ - _e3337133715_ - _hd3337033719_ - _tl3336933722_ - ___splice4241142412_ - _target3337233725_ - _tl3337433728_) + (if (gx#stx-null? _tl3345533809_) + (___match4252242523_ + _e3344933786_ + _hd3344833790_ + _tl3344733793_ + _e3345233796_ + _hd3345133800_ + _tl3345033803_ + ___splice4249242493_ + _target3345333806_ + _tl3345533809_) (if (gx#stx-pair/null? - _hd3337033719_) - (let ((___splice4241542416_ + _hd3345133800_) + (let ((___splice4249642497_ (gx#syntax-split-splice - _hd3337033719_ + _hd3345133800_ '0))) - (let ((_tl3339233451_ + (let ((_tl3347333532_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4249642497_ '1))) - (_target3339033448_ + (_target3347133529_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4249642497_ '0)))) (if (gx#stx-null? - _tl3339233451_) - (___match4246142462_ - _e3336833705_ - _hd3336733709_ - _tl3336633712_ - _e3337133715_ - _hd3337033719_ - _tl3336933722_ - ___splice4241542416_ - _target3339033448_ - _tl3339233451_) + _tl3347333532_) + (___match4254242543_ + _e3344933786_ + _hd3344833790_ + _tl3344733793_ + _e3345233796_ + _hd3345133800_ + _tl3345033803_ + ___splice4249642497_ + _target3347133529_ + _tl3347333532_) (let () (declare (not safe)) - (_g3336333421_))))) + (_g3344433502_))))) (let () (declare (not safe)) - (_g3336333421_)))))) - (if (gx#stx-pair/null? _hd3337033719_) - (let ((___splice4241542416_ + (_g3344433502_)))))) + (if (gx#stx-pair/null? _hd3345133800_) + (let ((___splice4249642497_ (gx#syntax-split-splice - _hd3337033719_ + _hd3345133800_ '0))) - (let ((_tl3339233451_ + (let ((_tl3347333532_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4249642497_ '1))) - (_target3339033448_ + (_target3347133529_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4249642497_ '0)))) - (if (gx#stx-null? _tl3339233451_) - (___match4246142462_ - _e3336833705_ - _hd3336733709_ - _tl3336633712_ - _e3337133715_ - _hd3337033719_ - _tl3336933722_ - ___splice4241542416_ - _target3339033448_ - _tl3339233451_) + (if (gx#stx-null? _tl3347333532_) + (___match4254242543_ + _e3344933786_ + _hd3344833790_ + _tl3344733793_ + _e3345233796_ + _hd3345133800_ + _tl3345033803_ + ___splice4249642497_ + _target3347133529_ + _tl3347333532_) (let () (declare (not safe)) - (_g3336333421_))))) + (_g3344433502_))))) (let () (declare (not safe)) - (_g3336333421_)))) - (if (gx#stx-pair/null? _hd3337033719_) - (let ((___splice4241542416_ + (_g3344433502_)))) + (if (gx#stx-pair/null? _hd3345133800_) + (let ((___splice4249642497_ (gx#syntax-split-splice - _hd3337033719_ + _hd3345133800_ '0))) - (let ((_tl3339233451_ + (let ((_tl3347333532_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4249642497_ '1))) - (_target3339033448_ + (_target3347133529_ (let () (declare (not safe)) (##vector-ref - ___splice4241542416_ + ___splice4249642497_ '0)))) - (if (gx#stx-null? _tl3339233451_) - (___match4246142462_ - _e3336833705_ - _hd3336733709_ - _tl3336633712_ - _e3337133715_ - _hd3337033719_ - _tl3336933722_ - ___splice4241542416_ - _target3339033448_ - _tl3339233451_) + (if (gx#stx-null? _tl3347333532_) + (___match4254242543_ + _e3344933786_ + _hd3344833790_ + _tl3344733793_ + _e3345233796_ + _hd3345133800_ + _tl3345033803_ + ___splice4249642497_ + _target3347133529_ + _tl3347333532_) (let () (declare (not safe)) - (_g3336333421_))))) + (_g3344433502_))))) (let () (declare (not safe)) - (_g3336333421_)))))) - (let () (declare (not safe)) (_g3336333421_))))) - (let () (declare (not safe)) (_g3336333421_)))))))) + (_g3344433502_)))))) + (let () (declare (not safe)) (_g3344433502_))))) + (let () (declare (not safe)) (_g3344433502_)))))))) (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 (_$stx33869_) + (let* ((_g3387333897_ + (lambda (_g3387433893_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3387433893_))) + (_g3387233982_ + (lambda (_g3387433901_) + (if (gx#stx-pair? _g3387433901_) + (let ((_e3387933904_ (gx#syntax-e _g3387433901_))) + (let ((_hd3387833908_ (let () (declare (not safe)) - (##car _e3379833823_))) - (_tl3379633830_ + (##car _e3387933904_))) + (_tl3387733911_ (let () (declare (not safe)) - (##cdr _e3379833823_)))) - (if (gx#stx-pair? _tl3379633830_) - (let ((_e3380133833_ (gx#syntax-e _tl3379633830_))) - (let ((_hd3380033837_ + (##cdr _e3387933904_)))) + (if (gx#stx-pair? _tl3387733911_) + (let ((_e3388233914_ (gx#syntax-e _tl3387733911_))) + (let ((_hd3388133918_ (let () (declare (not safe)) - (##car _e3380133833_))) - (_tl3379933840_ + (##car _e3388233914_))) + (_tl3388033921_ (let () (declare (not safe)) - (##cdr _e3380133833_)))) - (if (gx#stx-pair/null? _tl3379933840_) - (let ((_g43043_ + (##cdr _e3388233914_)))) + (if (gx#stx-pair/null? _tl3388033921_) + (let ((_g43153_ (gx#syntax-split-splice - _tl3379933840_ + _tl3388033921_ '0))) (begin - (let ((_g43044_ + (let ((_g43154_ (let () (declare (not safe)) - (if (##values? _g43043_) - (##vector-length _g43043_) + (if (##values? _g43153_) + (##vector-length _g43153_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43044_ 2))) + (##fx= _g43154_ 2))) (error "Context expects 2 values" - _g43044_))) - (let ((_target3380233843_ + _g43154_))) + (let ((_target3388333924_ (let () (declare (not safe)) - (##vector-ref _g43043_ 0))) - (_tl3380433846_ + (##vector-ref _g43153_ 0))) + (_tl3388533927_ (let () (declare (not safe)) - (##vector-ref _g43043_ 1)))) - (if (gx#stx-null? _tl3380433846_) - (letrec ((_loop3380533849_ - (lambda (_hd3380333853_ + (##vector-ref _g43153_ 1)))) + (if (gx#stx-null? _tl3388533927_) + (letrec ((_loop3388633930_ + (lambda (_hd3388433934_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3380933856_) - (if (gx#stx-pair? _hd3380333853_) - (let ((_e3380633859_ (gx#syntax-e _hd3380333853_))) - (let ((_lp-hd3380733863_ + _body3389033937_) + (if (gx#stx-pair? _hd3388433934_) + (let ((_e3388733940_ (gx#syntax-e _hd3388433934_))) + (let ((_lp-hd3388833944_ (let () (declare (not safe)) - (##car _e3380633859_))) - (_lp-tl3380833866_ + (##car _e3388733940_))) + (_lp-tl3388933947_ (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 _e3388733940_)))) + (_loop3388633930_ + _lp-tl3388933947_ + (cons _lp-hd3388833944_ _body3389033937_)))) + (let ((_body3389133950_ (reverse _body3389033937_))) + ((lambda (_L33954_ _L33956_) + (if (gx#identifier? _L33956_) (cons (gx#datum->syntax '#f 'call/cc) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _L33875_ '()) - (foldr (lambda (_g3389233895_ + (cons (cons _L33956_ '()) + (foldr (lambda (_g3397333976_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3389333898_) - (cons _g3389233895_ _g3389333898_)) + _g3397433979_) + (cons _g3397333976_ _g3397433979_)) '() - _L33873_))) + _L33954_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_g3379233816_ _g3379333820_))) - _body3381033869_ - _hd3380033837_)))))) + (_g3387333897_ _g3387433901_))) + _body3389133950_ + _hd3388133918_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3380533849_ - _target3380233843_ + (_loop3388633930_ + _target3388333924_ '())) - (_g3379233816_ _g3379333820_))))) - (_g3379233816_ _g3379333820_)))) - (_g3379233816_ _g3379333820_)))) - (_g3379233816_ _g3379333820_))))) - (_g3379133901_ _$stx33788_)))) + (_g3387333897_ _g3387433901_))))) + (_g3387333897_ _g3387433901_)))) + (_g3387333897_ _g3387433901_)))) + (_g3387333897_ _g3387433901_))))) + (_g3387233982_ _$stx33869_)))) (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 (_$stx33987_) + (let* ((_g3399134015_ + (lambda (_g3399234011_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3399234011_))) + (_g3399034100_ + (lambda (_g3399234019_) + (if (gx#stx-pair? _g3399234019_) + (let ((_e3399734022_ (gx#syntax-e _g3399234019_))) + (let ((_hd3399634026_ (let () (declare (not safe)) - (##car _e3391633941_))) - (_tl3391433948_ + (##car _e3399734022_))) + (_tl3399534029_ (let () (declare (not safe)) - (##cdr _e3391633941_)))) - (if (gx#stx-pair? _tl3391433948_) - (let ((_e3391933951_ (gx#syntax-e _tl3391433948_))) - (let ((_hd3391833955_ + (##cdr _e3399734022_)))) + (if (gx#stx-pair? _tl3399534029_) + (let ((_e3400034032_ (gx#syntax-e _tl3399534029_))) + (let ((_hd3399934036_ (let () (declare (not safe)) - (##car _e3391933951_))) - (_tl3391733958_ + (##car _e3400034032_))) + (_tl3399834039_ (let () (declare (not safe)) - (##cdr _e3391933951_)))) - (if (gx#stx-pair/null? _tl3391733958_) - (let ((_g43045_ + (##cdr _e3400034032_)))) + (if (gx#stx-pair/null? _tl3399834039_) + (let ((_g43155_ (gx#syntax-split-splice - _tl3391733958_ + _tl3399834039_ '0))) (begin - (let ((_g43046_ + (let ((_g43156_ (let () (declare (not safe)) - (if (##values? _g43045_) - (##vector-length _g43045_) + (if (##values? _g43155_) + (##vector-length _g43155_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43046_ 2))) + (##fx= _g43156_ 2))) (error "Context expects 2 values" - _g43046_))) - (let ((_target3392033961_ + _g43156_))) + (let ((_target3400134042_ (let () (declare (not safe)) - (##vector-ref _g43045_ 0))) - (_tl3392233964_ + (##vector-ref _g43155_ 0))) + (_tl3400334045_ (let () (declare (not safe)) - (##vector-ref _g43045_ 1)))) - (if (gx#stx-null? _tl3392233964_) - (letrec ((_loop3392333967_ - (lambda (_hd3392133971_ + (##vector-ref _g43155_ 1)))) + (if (gx#stx-null? _tl3400334045_) + (letrec ((_loop3400434048_ + (lambda (_hd3400234052_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3392733974_) - (if (gx#stx-pair? _hd3392133971_) - (let ((_e3392433977_ (gx#syntax-e _hd3392133971_))) - (let ((_lp-hd3392533981_ + _body3400834055_) + (if (gx#stx-pair? _hd3400234052_) + (let ((_e3400534058_ (gx#syntax-e _hd3400234052_))) + (let ((_lp-hd3400634062_ (let () (declare (not safe)) - (##car _e3392433977_))) - (_lp-tl3392633984_ + (##car _e3400534058_))) + (_lp-tl3400734065_ (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 _e3400534058_)))) + (_loop3400434048_ + _lp-tl3400734065_ + (cons _lp-hd3400634062_ _body3400834055_)))) + (let ((_body3400934068_ (reverse _body3400834055_))) + ((lambda (_L34072_ _L34074_) + (if (gx#identifier? _L34074_) (cons (gx#datum->syntax '#f 'call/esc) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _L33993_ '()) - (foldr (lambda (_g3401034013_ + (cons (cons _L34074_ '()) + (foldr (lambda (_g3409134094_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3401134016_) - (cons _g3401034013_ _g3401134016_)) + _g3409234097_) + (cons _g3409134094_ _g3409234097_)) '() - _L33991_))) + _L34072_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_g3391033934_ _g3391133938_))) - _body3392833987_ - _hd3391833955_)))))) + (_g3399134015_ _g3399234019_))) + _body3400934068_ + _hd3399934036_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3392333967_ - _target3392033961_ + (_loop3400434048_ + _target3400134042_ '())) - (_g3391033934_ _g3391133938_))))) - (_g3391033934_ _g3391133938_)))) - (_g3391033934_ _g3391133938_)))) - (_g3391033934_ _g3391133938_))))) - (_g3390934019_ _$stx33906_)))) + (_g3399134015_ _g3399234019_))))) + (_g3399134015_ _g3399234019_)))) + (_g3399134015_ _g3399234019_)))) + (_g3399134015_ _g3399234019_))))) + (_g3399034100_ _$stx33987_)))) (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 (_$stx34105_) + (let* ((_g3410934137_ + (lambda (_g3411034133_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3411034133_))) + (_g3410834236_ + (lambda (_g3411034141_) + (if (gx#stx-pair? _g3411034141_) + (let ((_e3411634144_ (gx#syntax-e _g3411034141_))) + (let ((_hd3411534148_ (let () (declare (not safe)) - (##car _e3403534063_))) - (_tl3403334070_ + (##car _e3411634144_))) + (_tl3411434151_ (let () (declare (not safe)) - (##cdr _e3403534063_)))) - (if (gx#stx-pair? _tl3403334070_) - (let ((_e3403834073_ (gx#syntax-e _tl3403334070_))) - (let ((_hd3403734077_ + (##cdr _e3411634144_)))) + (if (gx#stx-pair? _tl3411434151_) + (let ((_e3411934154_ (gx#syntax-e _tl3411434151_))) + (let ((_hd3411834158_ (let () (declare (not safe)) - (##car _e3403834073_))) - (_tl3403634080_ + (##car _e3411934154_))) + (_tl3411734161_ (let () (declare (not safe)) - (##cdr _e3403834073_)))) - (if (gx#stx-pair? _tl3403634080_) - (let ((_e3404134083_ - (gx#syntax-e _tl3403634080_))) - (let ((_hd3404034087_ + (##cdr _e3411934154_)))) + (if (gx#stx-pair? _tl3411734161_) + (let ((_e3412234164_ + (gx#syntax-e _tl3411734161_))) + (let ((_hd3412134168_ (let () (declare (not safe)) - (##car _e3404134083_))) - (_tl3403934090_ + (##car _e3412234164_))) + (_tl3412034171_ (let () (declare (not safe)) - (##cdr _e3404134083_)))) - (if (gx#stx-pair/null? _tl3403934090_) - (let ((_g43047_ + (##cdr _e3412234164_)))) + (if (gx#stx-pair/null? _tl3412034171_) + (let ((_g43157_ (gx#syntax-split-splice - _tl3403934090_ + _tl3412034171_ '0))) (begin - (let ((_g43048_ + (let ((_g43158_ (let () (declare (not safe)) (if (##values? - _g43047_) + _g43157_) (##vector-length - _g43047_) + _g43157_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43048_ + (##fx= _g43158_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g43048_))) + (error "Context expects 2 values" _g43158_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3404234093_ + (let ((_target3412334174_ (let () (declare (not safe)) (##vector-ref - _g43047_ + _g43157_ 0))) - (_tl3404434096_ + (_tl3412534177_ (let () (declare (not safe)) (##vector-ref - _g43047_ + _g43157_ 1)))) (if (gx#stx-null? - _tl3404434096_) - (letrec ((_loop3404534099_ - (lambda (_hd3404334103_ + _tl3412534177_) + (letrec ((_loop3412634180_ + (lambda (_hd3412434184_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest3404934106_) - (if (gx#stx-pair? _hd3404334103_) - (let ((_e3404634109_ - (gx#syntax-e _hd3404334103_))) - (let ((_lp-hd3404734113_ + _rest3413034187_) + (if (gx#stx-pair? _hd3412434184_) + (let ((_e3412734190_ + (gx#syntax-e _hd3412434184_))) + (let ((_lp-hd3412834194_ (let () (declare (not safe)) - (##car _e3404634109_))) - (_lp-tl3404834116_ + (##car _e3412734190_))) + (_lp-tl3412934197_ (let () (declare (not safe)) - (##cdr _e3404634109_)))) - (_loop3404534099_ - _lp-tl3404834116_ - (cons _lp-hd3404734113_ _rest3404934106_)))) - (let ((_rest3405034119_ - (reverse _rest3404934106_))) - ((lambda (_L34123_ _L34125_ _L34126_) + (##cdr _e3412734190_)))) + (_loop3412634180_ + _lp-tl3412934197_ + (cons _lp-hd3412834194_ _rest3413034187_)))) + (let ((_rest3413134200_ + (reverse _rest3413034187_))) + ((lambda (_L34204_ _L34206_ _L34207_) (cons (gx#datum->syntax '#f 'with-unwind-protect) @@ -1253,7 +1253,7 @@ '#f 'lambda) (cons '() - (cons _L34126_ + (cons _L34207_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1262,77 +1262,77 @@ 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L34125_ - (foldr (lambda (_g3414634149_ _g3414734152_) - (cons _g3414634149_ _g3414734152_)) + (cons _L34206_ + (foldr (lambda (_g3422734230_ _g3422834233_) + (cons _g3422734230_ _g3422834233_)) '() - _L34123_)))) + _L34204_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _rest3405034119_ - _hd3404034087_ - _hd3403734077_)))))) - (_loop3404534099_ _target3404234093_ '())) - (_g3402834056_ _g3402934060_))))) + _rest3413134200_ + _hd3412134168_ + _hd3411834158_)))))) + (_loop3412634180_ _target3412334174_ '())) + (_g3410934137_ _g3411034141_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3402834056_ _g3402934060_)))) - (_g3402834056_ _g3402934060_)))) - (_g3402834056_ _g3402934060_)))) - (_g3402834056_ _g3402934060_))))) - (_g3402734155_ _$stx34024_)))) + (_g3410934137_ _g3411034141_)))) + (_g3410934137_ _g3411034141_)))) + (_g3410934137_ _g3411034141_)))) + (_g3410934137_ _g3411034141_))))) + (_g3410834236_ _$stx34105_)))) (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 (_stx34241_) + (let* ((_g3424434258_ + (lambda (_g3424534254_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3424534254_))) + (_g3424334330_ + (lambda (_g3424534262_) + (if (gx#stx-pair? _g3424534262_) + (let ((_e3424934265_ (gx#syntax-e _g3424534262_))) + (let ((_hd3424834269_ (let () (declare (not safe)) - (##car _e3416834184_))) - (_tl3416634191_ + (##car _e3424934265_))) + (_tl3424734272_ (let () (declare (not safe)) - (##cdr _e3416834184_)))) - (if (gx#stx-pair? _tl3416634191_) - (let ((_e3417134194_ (gx#syntax-e _tl3416634191_))) - (let ((_hd3417034198_ + (##cdr _e3424934265_)))) + (if (gx#stx-pair? _tl3424734272_) + (let ((_e3425234275_ (gx#syntax-e _tl3424734272_))) + (let ((_hd3425134279_ (let () (declare (not safe)) - (##car _e3417134194_))) - (_tl3416934201_ + (##car _e3425234275_))) + (_tl3425034282_ (let () (declare (not safe)) - (##cdr _e3417134194_)))) - (if (gx#stx-null? _tl3416934201_) - ((lambda (_L34204_) - (if (gx#stx-string? _L34204_) - (let* ((_g3421834226_ - (lambda (_g3421934222_) + (##cdr _e3425234275_)))) + (if (gx#stx-null? _tl3425034282_) + ((lambda (_L34285_) + (if (gx#stx-string? _L34285_) + (let* ((_g3429934307_ + (lambda (_g3430034303_) (gx#raise-syntax-error '#f '"Bad syntax" - _g3421934222_))) - (_g3421734245_ - (lambda (_g3421934230_) - ((lambda (_L34233_) + _g3430034303_))) + (_g3429834326_ + (lambda (_g3430034311_) + ((lambda (_L34314_) (let () (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L34233_ '())))) - _g3421934230_)))) + (cons _L34314_ '())))) + _g3430034311_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3421734245_ + (_g3429834326_ (string->bytes - (gx#stx-e _L34204_)))) - (_g3416334177_ _g3416434181_))) - _hd3417034198_) - (_g3416334177_ _g3416434181_)))) - (_g3416334177_ _g3416434181_)))) - (_g3416334177_ _g3416434181_))))) - (_g3416234249_ _stx34160_))))) + (gx#stx-e _L34285_)))) + (_g3424434258_ _g3424534262_))) + _hd3425134279_) + (_g3424434258_ _g3424534262_)))) + (_g3424434258_ _g3424534262_)))) + (_g3424434258_ _g3424534262_))))) + (_g3424334330_ _stx34241_))))) diff --git a/src/bootstrap/gerbil/core__13.scm b/src/bootstrap/gerbil/core__13.scm index 7657f690fb..48b9e3c38d 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]#_g43161_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43053_| + (define |gerbil/core$[2]#_g43163_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43054_| + (define |gerbil/core$[2]#_g43164_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43055_| + (define |gerbil/core$[2]#_g43165_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43056_| + (define |gerbil/core$[2]#_g43166_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43061_| + (define |gerbil/core$[2]#_g43171_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43062_| + (define |gerbil/core$[2]#_g43172_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g43063_| + (define |gerbil/core$[2]#_g43173_| (##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 ((__tmp43167 |gerbil/core$[2]#_g43164_|) + (__tmp43162 + (cons (cons |gerbil/core$[2]#_g43163_| '()) + (cons |gerbil/core$[2]#_g43164_| + (cons |gerbil/core$[2]#_g43165_| + (cons |gerbil/core$[2]#_g43166_| (cons '() (cons '() '()))))))) - (__tmp43049 - (let ((__tmp43050 (list |gerbil/core$[2]#_g43051_|))) + (__tmp43159 + (let ((__tmp43160 (list |gerbil/core$[2]#_g43161_|))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#setq-macro::t - __tmp43050 + __tmp43160 'setq-macro '#f '() @@ -80,26 +80,26 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp43057 + __tmp43167 'expander-identifiers: - __tmp43052 + __tmp43162 'type-exhibitor: - __tmp43049))) + __tmp43159))) (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 ((__tmp43174 |gerbil/core$[2]#_g43171_|) + (__tmp43170 + (cons (cons |gerbil/core$[2]#_g43163_| '()) + (cons |gerbil/core$[2]#_g43171_| + (cons |gerbil/core$[2]#_g43172_| + (cons |gerbil/core$[2]#_g43173_| (cons '() (cons '() '()))))))) - (__tmp43058 - (let ((__tmp43059 (list |gerbil/core$[2]#_g43051_|))) + (__tmp43168 + (let ((__tmp43169 (list |gerbil/core$[2]#_g43161_|))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#setf-macro::t - __tmp43059 + __tmp43169 'setf-macro '#f '() @@ -108,8 +108,8 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp43064 + __tmp43174 'expander-identifiers: - __tmp43060 + __tmp43170 'type-exhibitor: - __tmp43058))))) + __tmp43168))))) diff --git a/src/bootstrap/gerbil/core__14.scm b/src/bootstrap/gerbil/core__14.scm index 08569392c6..12b09a6039 100644 --- a/src/bootstrap/gerbil/core__14.scm +++ b/src/bootstrap/gerbil/core__14.scm @@ -1,36 +1,36 @@ (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 (_$stx34337_) + (let* ((_g3434134352_ + (lambda (_g3434234348_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3434234348_))) + (_g3434034382_ + (lambda (_g3434234356_) + (if (gx#stx-pair? _g3434234356_) + (let ((_e3434634359_ (gx#syntax-e _g3434234356_))) + (let ((_hd3434534363_ (let () (declare (not safe)) - (##car _e3426534278_))) - (_tl3426334285_ + (##car _e3434634359_))) + (_tl3434434366_ (let () (declare (not safe)) - (##cdr _e3426534278_)))) - ((lambda (_L34288_) + (##cdr _e3434634359_)))) + ((lambda (_L34369_) (cons (gx#datum->syntax '#f 'make-setq-macro) (cons 'macro: (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _L34288_) + _L34369_) '())))) - _tl3426334285_))) - (_g3426034271_ _g3426134275_))))) - (_g3425934301_ _$stx34256_)))) + _tl3434434366_))) + (_g3434134352_ _g3434234356_))))) + (_g3434034382_ _$stx34337_)))) (define |gerbil/core$[:0:]#quasisyntax| - (lambda (_$stx34305_) - (let ((_g3430834315_ - (lambda (_g3430934311_) - (gx#raise-syntax-error '#f '"Bad syntax" _g3430934311_)))) - (_g3430834315_ _$stx34305_))))) + (lambda (_$stx34386_) + (let ((_g3438934396_ + (lambda (_g3439034392_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3439034392_)))) + (_g3438934396_ _$stx34386_))))) diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index 615c011531..1fe60420ba 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -1,2572 +1,2572 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#require| - (lambda (_$stx34320_) - (let* ((___stx4246442465_ _$stx34320_) - (_g3432534344_ + (lambda (_$stx34401_) + (let* ((___stx4254542546_ _$stx34401_) + (_g3440634425_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx4246442465_)))) - (let ((___kont4246742468_ + (gx#raise-syntax-error '#f '"Bad syntax" ___stx4254542546_)))) + (let ((___kont4254842549_ (lambda () (cons (gx#datum->syntax '#f 'begin) '()))) - (___kont4246942470_ - (lambda (_L34371_ _L34373_ _L34374_) + (___kont4255042551_ + (lambda (_L34452_ _L34454_ _L34455_) (cons (gx#datum->syntax '#f 'cond-expand) - (cons (cons _L34373_ - (cons (cons _L34374_ _L34371_) '())) + (cons (cons _L34454_ + (cons (cons _L34455_ _L34452_) '())) (cons (cons (gx#datum->syntax '#f 'else) (cons (cons (gx#datum->syntax '#f 'syntax-error) (cons '"Missing required feature" - (cons _L34373_ + (cons _L34454_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())))))) - (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? ___stx4254542546_) + (let ((_e3441034478_ (gx#syntax-e ___stx4254542546_))) + (let ((_tl3440834485_ + (let () (declare (not safe)) (##cdr _e3441034478_))) + (_hd3440934482_ + (let () (declare (not safe)) (##car _e3441034478_)))) + (if (gx#stx-null? _tl3440834485_) + (___kont4254842549_) + (if (gx#stx-pair? _tl3440834485_) + (let ((_e3441934442_ (gx#syntax-e _tl3440834485_))) + (let ((_tl3441734449_ (let () (declare (not safe)) - (##cdr _e3433834361_))) - (_hd3433734365_ + (##cdr _e3441934442_))) + (_hd3441834446_ (let () (declare (not safe)) - (##car _e3433834361_)))) - (___kont4246942470_ - _tl3433634368_ - _hd3433734365_ - _hd3432834401_))) - (let () (declare (not safe)) (_g3432534344_)))))) - (let () (declare (not safe)) (_g3432534344_))))))) + (##car _e3441934442_)))) + (___kont4255042551_ + _tl3441734449_ + _hd3441834446_ + _hd3440934482_))) + (let () (declare (not safe)) (_g3440634425_)))))) + (let () (declare (not safe)) (_g3440634425_))))))) (define |gerbil/core$[:0:]#defsyntax-for-import| - (lambda (_$stx34415_) - (let* ((___stx4249442495_ _$stx34415_) - (_g3442034460_ + (lambda (_$stx34496_) + (let* ((___stx4257542576_ _$stx34496_) + (_g3450134541_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx4249442495_)))) - (let ((___kont4249742498_ - (lambda (_L34598_ _L34600_) + (gx#raise-syntax-error '#f '"Bad syntax" ___stx4257542576_)))) + (let ((___kont4257842579_ + (lambda (_L34679_ _L34681_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _L34600_ + (cons _L34681_ (cons (cons (gx#datum->syntax '#f 'make-import-expander) - (cons _L34598_ '())) + (cons _L34679_ '())) '()))))) - (___kont4249942500_ - (lambda (_L34527_ _L34529_ _L34530_ _L34531_) - (cons _L34531_ - (cons _L34530_ + (___kont4258042581_ + (lambda (_L34608_ _L34610_ _L34611_ _L34612_) + (cons _L34612_ + (cons _L34611_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _L34529_ - (foldr (lambda (_g3455234555_ - _g3455334558_) - (cons _g3455234555_ - _g3455334558_)) + (cons _L34610_ + (foldr (lambda (_g3463334636_ + _g3463434639_) + (cons _g3463334636_ + _g3463434639_)) '() - _L34527_))) + _L34608_))) '())))))) - (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* ((___match4263042631_ + (lambda (_e3452034548_ + _hd3451934552_ + _tl3451834555_ + _e3452334558_ + _hd3452234562_ + _tl3452134565_ + _e3452634568_ + _hd3452534572_ + _tl3452434575_ + ___splice4258242583_ + _target3452734578_ + _tl3452934581_) + (letrec ((_loop3453034584_ + (lambda (_hd3452834588_ _body3453434591_) + (if (gx#stx-pair? _hd3452834588_) + (let ((_e3453134594_ + (gx#syntax-e _hd3452834588_))) + (let ((_lp-tl3453334601_ (let () (declare (not safe)) - (##cdr _e3445034513_))) - (_lp-hd3445134517_ + (##cdr _e3453134594_))) + (_lp-hd3453234598_ (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 _e3453134594_)))) + (_loop3453034584_ + _lp-tl3453334601_ + (cons _lp-hd3453234598_ + _body3453434591_)))) + (let ((_body3453534604_ + (reverse _body3453434591_))) + (let ((_L34608_ _body3453534604_) + (_L34610_ _tl3452434575_) + (_L34611_ _hd3452534572_) + (_L34612_ _hd3451934552_)) + (if (gx#identifier? _L34611_) + (___kont4258042581_ + _L34608_ + _L34610_ + _L34611_ + _L34612_) (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_ + (_g3450134541_))))))))) + (_loop3453034584_ _target3452734578_ '())))) + (___match4260442605_ + (lambda (_e3450734649_ + _hd3450634653_ + _tl3450534656_ + _e3451034659_ + _hd3450934663_ + _tl3450834666_ + _e3451334669_ + _hd3451234673_ + _tl3451134676_) + (let ((_L34679_ _hd3451234673_) (_L34681_ _hd3450934663_)) + (if (gx#identifier? _L34681_) + (___kont4257842579_ _L34679_ _L34681_) + (if (gx#stx-pair? _hd3450934663_) + (let ((_e3452634568_ + (gx#syntax-e _hd3450934663_))) + (let ((_tl3452434575_ (let () (declare (not safe)) - (##cdr _e3444534487_))) - (_hd3444434491_ + (##cdr _e3452634568_))) + (_hd3452534572_ (let () (declare (not safe)) - (##car _e3444534487_)))) - (if (gx#stx-pair/null? _tl3442734585_) - (let ((___splice4250142502_ + (##car _e3452634568_)))) + (if (gx#stx-pair/null? _tl3450834666_) + (let ((___splice4258242583_ (gx#syntax-split-splice - _tl3442734585_ + _tl3450834666_ '0))) - (let ((_tl3444834500_ + (let ((_tl3452934581_ (let () (declare (not safe)) (##vector-ref - ___splice4250142502_ + ___splice4258242583_ '1))) - (_target3444634497_ + (_target3452734578_ (let () (declare (not safe)) (##vector-ref - ___splice4250142502_ + ___splice4258242583_ '0)))) - (if (gx#stx-null? _tl3444834500_) - (___match4254942550_ - _e3442634568_ - _hd3442534572_ - _tl3442434575_ - _e3442934578_ - _hd3442834582_ - _tl3442734585_ - _e3444534487_ - _hd3444434491_ - _tl3444334494_ - ___splice4250142502_ - _target3444634497_ - _tl3444834500_) + (if (gx#stx-null? _tl3452934581_) + (___match4263042631_ + _e3450734649_ + _hd3450634653_ + _tl3450534656_ + _e3451034659_ + _hd3450934663_ + _tl3450834666_ + _e3452634568_ + _hd3452534572_ + _tl3452434575_ + ___splice4258242583_ + _target3452734578_ + _tl3452934581_) (let () (declare (not safe)) - (_g3442034460_))))) + (_g3450134541_))))) (let () (declare (not safe)) - (_g3442034460_))))) + (_g3450134541_))))) (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_ + (_g3450134541_)))))))) + (if (gx#stx-pair? ___stx4257542576_) + (let ((_e3450734649_ (gx#syntax-e ___stx4257542576_))) + (let ((_tl3450534656_ + (let () (declare (not safe)) (##cdr _e3450734649_))) + (_hd3450634653_ + (let () (declare (not safe)) (##car _e3450734649_)))) + (if (gx#stx-pair? _tl3450534656_) + (let ((_e3451034659_ (gx#syntax-e _tl3450534656_))) + (let ((_tl3450834666_ (let () (declare (not safe)) - (##cdr _e3442934578_))) - (_hd3442834582_ + (##cdr _e3451034659_))) + (_hd3450934663_ (let () (declare (not safe)) - (##car _e3442934578_)))) - (if (gx#stx-pair? _tl3442734585_) - (let ((_e3443234588_ - (gx#syntax-e _tl3442734585_))) - (let ((_tl3443034595_ + (##car _e3451034659_)))) + (if (gx#stx-pair? _tl3450834666_) + (let ((_e3451334669_ + (gx#syntax-e _tl3450834666_))) + (let ((_tl3451134676_ (let () (declare (not safe)) - (##cdr _e3443234588_))) - (_hd3443134592_ + (##cdr _e3451334669_))) + (_hd3451234673_ (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 _e3451334669_)))) + (if (gx#stx-null? _tl3451134676_) + (___match4260442605_ + _e3450734649_ + _hd3450634653_ + _tl3450534656_ + _e3451034659_ + _hd3450934663_ + _tl3450834666_ + _e3451334669_ + _hd3451234673_ + _tl3451134676_) + (if (gx#stx-pair? _hd3450934663_) + (let ((_e3452634568_ (gx#syntax-e - _hd3442834582_))) - (let ((_tl3444334494_ + _hd3450934663_))) + (let ((_tl3452434575_ (let () (declare (not safe)) - (##cdr _e3444534487_))) - (_hd3444434491_ + (##cdr _e3452634568_))) + (_hd3452534572_ (let () (declare (not safe)) - (##car _e3444534487_)))) + (##car _e3452634568_)))) (if (gx#stx-pair/null? - _tl3442734585_) - (let ((___splice4250142502_ + _tl3450834666_) + (let ((___splice4258242583_ (gx#syntax-split-splice - _tl3442734585_ + _tl3450834666_ '0))) - (let ((_tl3444834500_ + (let ((_tl3452934581_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4250142502_ '1))) - (_target3444634497_ + (##vector-ref ___splice4258242583_ '1))) + (_target3452734578_ (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 ___splice4258242583_ '0)))) + (if (gx#stx-null? _tl3452934581_) + (___match4263042631_ + _e3450734649_ + _hd3450634653_ + _tl3450534656_ + _e3451034659_ + _hd3450934663_ + _tl3450834666_ + _e3452634568_ + _hd3452534572_ + _tl3452434575_ + ___splice4258242583_ + _target3452734578_ + _tl3452934581_) + (let () (declare (not safe)) (_g3450134541_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3442034460_))))) + (_g3450134541_))))) (let () (declare (not safe)) - (_g3442034460_)))))) - (if (gx#stx-pair? _hd3442834582_) - (let ((_e3444534487_ - (gx#syntax-e _hd3442834582_))) - (let ((_tl3444334494_ + (_g3450134541_)))))) + (if (gx#stx-pair? _hd3450934663_) + (let ((_e3452634568_ + (gx#syntax-e _hd3450934663_))) + (let ((_tl3452434575_ (let () (declare (not safe)) - (##cdr _e3444534487_))) - (_hd3444434491_ + (##cdr _e3452634568_))) + (_hd3452534572_ (let () (declare (not safe)) - (##car _e3444534487_)))) - (if (gx#stx-pair/null? _tl3442734585_) - (let ((___splice4250142502_ + (##car _e3452634568_)))) + (if (gx#stx-pair/null? _tl3450834666_) + (let ((___splice4258242583_ (gx#syntax-split-splice - _tl3442734585_ + _tl3450834666_ '0))) - (let ((_tl3444834500_ + (let ((_tl3452934581_ (let () (declare (not safe)) (##vector-ref - ___splice4250142502_ + ___splice4258242583_ '1))) - (_target3444634497_ + (_target3452734578_ (let () (declare (not safe)) (##vector-ref - ___splice4250142502_ + ___splice4258242583_ '0)))) (if (gx#stx-null? - _tl3444834500_) - (___match4254942550_ - _e3442634568_ - _hd3442534572_ - _tl3442434575_ - _e3442934578_ - _hd3442834582_ - _tl3442734585_ - _e3444534487_ - _hd3444434491_ - _tl3444334494_ - ___splice4250142502_ - _target3444634497_ - _tl3444834500_) + _tl3452934581_) + (___match4263042631_ + _e3450734649_ + _hd3450634653_ + _tl3450534656_ + _e3451034659_ + _hd3450934663_ + _tl3450834666_ + _e3452634568_ + _hd3452534572_ + _tl3452434575_ + ___splice4258242583_ + _target3452734578_ + _tl3452934581_) (let () (declare (not safe)) - (_g3442034460_))))) + (_g3450134541_))))) (let () (declare (not safe)) - (_g3442034460_))))) + (_g3450134541_))))) (let () (declare (not safe)) - (_g3442034460_)))))) - (let () (declare (not safe)) (_g3442034460_))))) - (let () (declare (not safe)) (_g3442034460_)))))))) + (_g3450134541_)))))) + (let () (declare (not safe)) (_g3450134541_))))) + (let () (declare (not safe)) (_g3450134541_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-export| - (lambda (_$stx34620_) - (let* ((___stx4255242553_ _$stx34620_) - (_g3462534665_ + (lambda (_$stx34701_) + (let* ((___stx4263342634_ _$stx34701_) + (_g3470634746_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx4255242553_)))) - (let ((___kont4255542556_ - (lambda (_L34803_ _L34805_) + (gx#raise-syntax-error '#f '"Bad syntax" ___stx4263342634_)))) + (let ((___kont4263642637_ + (lambda (_L34884_ _L34886_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _L34805_ + (cons _L34886_ (cons (cons (gx#datum->syntax '#f 'make-export-expander) - (cons _L34803_ '())) + (cons _L34884_ '())) '()))))) - (___kont4255742558_ - (lambda (_L34732_ _L34734_ _L34735_ _L34736_) - (cons _L34736_ - (cons _L34735_ + (___kont4263842639_ + (lambda (_L34813_ _L34815_ _L34816_ _L34817_) + (cons _L34817_ + (cons _L34816_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _L34734_ - (foldr (lambda (_g3475734760_ - _g3475834763_) - (cons _g3475734760_ - _g3475834763_)) + (cons _L34815_ + (foldr (lambda (_g3483834841_ + _g3483934844_) + (cons _g3483834841_ + _g3483934844_)) '() - _L34732_))) + _L34813_))) '())))))) - (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* ((___match4268842689_ + (lambda (_e3472534753_ + _hd3472434757_ + _tl3472334760_ + _e3472834763_ + _hd3472734767_ + _tl3472634770_ + _e3473134773_ + _hd3473034777_ + _tl3472934780_ + ___splice4264042641_ + _target3473234783_ + _tl3473434786_) + (letrec ((_loop3473534789_ + (lambda (_hd3473334793_ _body3473934796_) + (if (gx#stx-pair? _hd3473334793_) + (let ((_e3473634799_ + (gx#syntax-e _hd3473334793_))) + (let ((_lp-tl3473834806_ (let () (declare (not safe)) - (##cdr _e3465534718_))) - (_lp-hd3465634722_ + (##cdr _e3473634799_))) + (_lp-hd3473734803_ (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 _e3473634799_)))) + (_loop3473534789_ + _lp-tl3473834806_ + (cons _lp-hd3473734803_ + _body3473934796_)))) + (let ((_body3474034809_ + (reverse _body3473934796_))) + (let ((_L34813_ _body3474034809_) + (_L34815_ _tl3472934780_) + (_L34816_ _hd3473034777_) + (_L34817_ _hd3472434757_)) + (if (gx#identifier? _L34816_) + (___kont4263842639_ + _L34813_ + _L34815_ + _L34816_ + _L34817_) (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_ + (_g3470634746_))))))))) + (_loop3473534789_ _target3473234783_ '())))) + (___match4266242663_ + (lambda (_e3471234854_ + _hd3471134858_ + _tl3471034861_ + _e3471534864_ + _hd3471434868_ + _tl3471334871_ + _e3471834874_ + _hd3471734878_ + _tl3471634881_) + (let ((_L34884_ _hd3471734878_) (_L34886_ _hd3471434868_)) + (if (gx#identifier? _L34886_) + (___kont4263642637_ _L34884_ _L34886_) + (if (gx#stx-pair? _hd3471434868_) + (let ((_e3473134773_ + (gx#syntax-e _hd3471434868_))) + (let ((_tl3472934780_ (let () (declare (not safe)) - (##cdr _e3465034692_))) - (_hd3464934696_ + (##cdr _e3473134773_))) + (_hd3473034777_ (let () (declare (not safe)) - (##car _e3465034692_)))) - (if (gx#stx-pair/null? _tl3463234790_) - (let ((___splice4255942560_ + (##car _e3473134773_)))) + (if (gx#stx-pair/null? _tl3471334871_) + (let ((___splice4264042641_ (gx#syntax-split-splice - _tl3463234790_ + _tl3471334871_ '0))) - (let ((_tl3465334705_ + (let ((_tl3473434786_ (let () (declare (not safe)) (##vector-ref - ___splice4255942560_ + ___splice4264042641_ '1))) - (_target3465134702_ + (_target3473234783_ (let () (declare (not safe)) (##vector-ref - ___splice4255942560_ + ___splice4264042641_ '0)))) - (if (gx#stx-null? _tl3465334705_) - (___match4260742608_ - _e3463134773_ - _hd3463034777_ - _tl3462934780_ - _e3463434783_ - _hd3463334787_ - _tl3463234790_ - _e3465034692_ - _hd3464934696_ - _tl3464834699_ - ___splice4255942560_ - _target3465134702_ - _tl3465334705_) + (if (gx#stx-null? _tl3473434786_) + (___match4268842689_ + _e3471234854_ + _hd3471134858_ + _tl3471034861_ + _e3471534864_ + _hd3471434868_ + _tl3471334871_ + _e3473134773_ + _hd3473034777_ + _tl3472934780_ + ___splice4264042641_ + _target3473234783_ + _tl3473434786_) (let () (declare (not safe)) - (_g3462534665_))))) + (_g3470634746_))))) (let () (declare (not safe)) - (_g3462534665_))))) + (_g3470634746_))))) (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_ + (_g3470634746_)))))))) + (if (gx#stx-pair? ___stx4263342634_) + (let ((_e3471234854_ (gx#syntax-e ___stx4263342634_))) + (let ((_tl3471034861_ + (let () (declare (not safe)) (##cdr _e3471234854_))) + (_hd3471134858_ + (let () (declare (not safe)) (##car _e3471234854_)))) + (if (gx#stx-pair? _tl3471034861_) + (let ((_e3471534864_ (gx#syntax-e _tl3471034861_))) + (let ((_tl3471334871_ (let () (declare (not safe)) - (##cdr _e3463434783_))) - (_hd3463334787_ + (##cdr _e3471534864_))) + (_hd3471434868_ (let () (declare (not safe)) - (##car _e3463434783_)))) - (if (gx#stx-pair? _tl3463234790_) - (let ((_e3463734793_ - (gx#syntax-e _tl3463234790_))) - (let ((_tl3463534800_ + (##car _e3471534864_)))) + (if (gx#stx-pair? _tl3471334871_) + (let ((_e3471834874_ + (gx#syntax-e _tl3471334871_))) + (let ((_tl3471634881_ (let () (declare (not safe)) - (##cdr _e3463734793_))) - (_hd3463634797_ + (##cdr _e3471834874_))) + (_hd3471734878_ (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 _e3471834874_)))) + (if (gx#stx-null? _tl3471634881_) + (___match4266242663_ + _e3471234854_ + _hd3471134858_ + _tl3471034861_ + _e3471534864_ + _hd3471434868_ + _tl3471334871_ + _e3471834874_ + _hd3471734878_ + _tl3471634881_) + (if (gx#stx-pair? _hd3471434868_) + (let ((_e3473134773_ (gx#syntax-e - _hd3463334787_))) - (let ((_tl3464834699_ + _hd3471434868_))) + (let ((_tl3472934780_ (let () (declare (not safe)) - (##cdr _e3465034692_))) - (_hd3464934696_ + (##cdr _e3473134773_))) + (_hd3473034777_ (let () (declare (not safe)) - (##car _e3465034692_)))) + (##car _e3473134773_)))) (if (gx#stx-pair/null? - _tl3463234790_) - (let ((___splice4255942560_ + _tl3471334871_) + (let ((___splice4264042641_ (gx#syntax-split-splice - _tl3463234790_ + _tl3471334871_ '0))) - (let ((_tl3465334705_ + (let ((_tl3473434786_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4255942560_ '1))) - (_target3465134702_ + (##vector-ref ___splice4264042641_ '1))) + (_target3473234783_ (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 ___splice4264042641_ '0)))) + (if (gx#stx-null? _tl3473434786_) + (___match4268842689_ + _e3471234854_ + _hd3471134858_ + _tl3471034861_ + _e3471534864_ + _hd3471434868_ + _tl3471334871_ + _e3473134773_ + _hd3473034777_ + _tl3472934780_ + ___splice4264042641_ + _target3473234783_ + _tl3473434786_) + (let () (declare (not safe)) (_g3470634746_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3462534665_))))) + (_g3470634746_))))) (let () (declare (not safe)) - (_g3462534665_)))))) - (if (gx#stx-pair? _hd3463334787_) - (let ((_e3465034692_ - (gx#syntax-e _hd3463334787_))) - (let ((_tl3464834699_ + (_g3470634746_)))))) + (if (gx#stx-pair? _hd3471434868_) + (let ((_e3473134773_ + (gx#syntax-e _hd3471434868_))) + (let ((_tl3472934780_ (let () (declare (not safe)) - (##cdr _e3465034692_))) - (_hd3464934696_ + (##cdr _e3473134773_))) + (_hd3473034777_ (let () (declare (not safe)) - (##car _e3465034692_)))) - (if (gx#stx-pair/null? _tl3463234790_) - (let ((___splice4255942560_ + (##car _e3473134773_)))) + (if (gx#stx-pair/null? _tl3471334871_) + (let ((___splice4264042641_ (gx#syntax-split-splice - _tl3463234790_ + _tl3471334871_ '0))) - (let ((_tl3465334705_ + (let ((_tl3473434786_ (let () (declare (not safe)) (##vector-ref - ___splice4255942560_ + ___splice4264042641_ '1))) - (_target3465134702_ + (_target3473234783_ (let () (declare (not safe)) (##vector-ref - ___splice4255942560_ + ___splice4264042641_ '0)))) (if (gx#stx-null? - _tl3465334705_) - (___match4260742608_ - _e3463134773_ - _hd3463034777_ - _tl3462934780_ - _e3463434783_ - _hd3463334787_ - _tl3463234790_ - _e3465034692_ - _hd3464934696_ - _tl3464834699_ - ___splice4255942560_ - _target3465134702_ - _tl3465334705_) + _tl3473434786_) + (___match4268842689_ + _e3471234854_ + _hd3471134858_ + _tl3471034861_ + _e3471534864_ + _hd3471434868_ + _tl3471334871_ + _e3473134773_ + _hd3473034777_ + _tl3472934780_ + ___splice4264042641_ + _target3473234783_ + _tl3473434786_) (let () (declare (not safe)) - (_g3462534665_))))) + (_g3470634746_))))) (let () (declare (not safe)) - (_g3462534665_))))) + (_g3470634746_))))) (let () (declare (not safe)) - (_g3462534665_)))))) - (let () (declare (not safe)) (_g3462534665_))))) - (let () (declare (not safe)) (_g3462534665_)))))))) + (_g3470634746_)))))) + (let () (declare (not safe)) (_g3470634746_))))) + (let () (declare (not safe)) (_g3470634746_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-import-export| - (lambda (_$stx34825_) - (let* ((___stx4261042611_ _$stx34825_) - (_g3483034870_ + (lambda (_$stx34906_) + (let* ((___stx4269142692_ _$stx34906_) + (_g3491134951_ (lambda () - (gx#raise-syntax-error '#f '"Bad syntax" ___stx4261042611_)))) - (let ((___kont4261342614_ - (lambda (_L35008_ _L35010_) + (gx#raise-syntax-error '#f '"Bad syntax" ___stx4269142692_)))) + (let ((___kont4269442695_ + (lambda (_L35089_ _L35091_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _L35010_ + (cons _L35091_ (cons (cons (gx#datum->syntax '#f 'make-import-export-expander) - (cons _L35008_ '())) + (cons _L35089_ '())) '()))))) - (___kont4261542616_ - (lambda (_L34937_ _L34939_ _L34940_ _L34941_) - (cons _L34941_ - (cons _L34940_ + (___kont4269642697_ + (lambda (_L35018_ _L35020_ _L35021_ _L35022_) + (cons _L35022_ + (cons _L35021_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _L34939_ - (foldr (lambda (_g3496234965_ - _g3496334968_) - (cons _g3496234965_ - _g3496334968_)) + (cons _L35020_ + (foldr (lambda (_g3504335046_ + _g3504435049_) + (cons _g3504335046_ + _g3504435049_)) '() - _L34937_))) + _L35018_))) '())))))) - (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* ((___match4274642747_ + (lambda (_e3493034958_ + _hd3492934962_ + _tl3492834965_ + _e3493334968_ + _hd3493234972_ + _tl3493134975_ + _e3493634978_ + _hd3493534982_ + _tl3493434985_ + ___splice4269842699_ + _target3493734988_ + _tl3493934991_) + (letrec ((_loop3494034994_ + (lambda (_hd3493834998_ _body3494435001_) + (if (gx#stx-pair? _hd3493834998_) + (let ((_e3494135004_ + (gx#syntax-e _hd3493834998_))) + (let ((_lp-tl3494335011_ (let () (declare (not safe)) - (##cdr _e3486034923_))) - (_lp-hd3486134927_ + (##cdr _e3494135004_))) + (_lp-hd3494235008_ (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 _e3494135004_)))) + (_loop3494034994_ + _lp-tl3494335011_ + (cons _lp-hd3494235008_ + _body3494435001_)))) + (let ((_body3494535014_ + (reverse _body3494435001_))) + (let ((_L35018_ _body3494535014_) + (_L35020_ _tl3493434985_) + (_L35021_ _hd3493534982_) + (_L35022_ _hd3492934962_)) + (if (gx#identifier? _L35021_) + (___kont4269642697_ + _L35018_ + _L35020_ + _L35021_ + _L35022_) (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_ + (_g3491134951_))))))))) + (_loop3494034994_ _target3493734988_ '())))) + (___match4272042721_ + (lambda (_e3491735059_ + _hd3491635063_ + _tl3491535066_ + _e3492035069_ + _hd3491935073_ + _tl3491835076_ + _e3492335079_ + _hd3492235083_ + _tl3492135086_) + (let ((_L35089_ _hd3492235083_) (_L35091_ _hd3491935073_)) + (if (gx#identifier? _L35091_) + (___kont4269442695_ _L35089_ _L35091_) + (if (gx#stx-pair? _hd3491935073_) + (let ((_e3493634978_ + (gx#syntax-e _hd3491935073_))) + (let ((_tl3493434985_ (let () (declare (not safe)) - (##cdr _e3485534897_))) - (_hd3485434901_ + (##cdr _e3493634978_))) + (_hd3493534982_ (let () (declare (not safe)) - (##car _e3485534897_)))) - (if (gx#stx-pair/null? _tl3483734995_) - (let ((___splice4261742618_ + (##car _e3493634978_)))) + (if (gx#stx-pair/null? _tl3491835076_) + (let ((___splice4269842699_ (gx#syntax-split-splice - _tl3483734995_ + _tl3491835076_ '0))) - (let ((_tl3485834910_ + (let ((_tl3493934991_ (let () (declare (not safe)) (##vector-ref - ___splice4261742618_ + ___splice4269842699_ '1))) - (_target3485634907_ + (_target3493734988_ (let () (declare (not safe)) (##vector-ref - ___splice4261742618_ + ___splice4269842699_ '0)))) - (if (gx#stx-null? _tl3485834910_) - (___match4266542666_ - _e3483634978_ - _hd3483534982_ - _tl3483434985_ - _e3483934988_ - _hd3483834992_ - _tl3483734995_ - _e3485534897_ - _hd3485434901_ - _tl3485334904_ - ___splice4261742618_ - _target3485634907_ - _tl3485834910_) + (if (gx#stx-null? _tl3493934991_) + (___match4274642747_ + _e3491735059_ + _hd3491635063_ + _tl3491535066_ + _e3492035069_ + _hd3491935073_ + _tl3491835076_ + _e3493634978_ + _hd3493534982_ + _tl3493434985_ + ___splice4269842699_ + _target3493734988_ + _tl3493934991_) (let () (declare (not safe)) - (_g3483034870_))))) + (_g3491134951_))))) (let () (declare (not safe)) - (_g3483034870_))))) + (_g3491134951_))))) (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_ + (_g3491134951_)))))))) + (if (gx#stx-pair? ___stx4269142692_) + (let ((_e3491735059_ (gx#syntax-e ___stx4269142692_))) + (let ((_tl3491535066_ + (let () (declare (not safe)) (##cdr _e3491735059_))) + (_hd3491635063_ + (let () (declare (not safe)) (##car _e3491735059_)))) + (if (gx#stx-pair? _tl3491535066_) + (let ((_e3492035069_ (gx#syntax-e _tl3491535066_))) + (let ((_tl3491835076_ (let () (declare (not safe)) - (##cdr _e3483934988_))) - (_hd3483834992_ + (##cdr _e3492035069_))) + (_hd3491935073_ (let () (declare (not safe)) - (##car _e3483934988_)))) - (if (gx#stx-pair? _tl3483734995_) - (let ((_e3484234998_ - (gx#syntax-e _tl3483734995_))) - (let ((_tl3484035005_ + (##car _e3492035069_)))) + (if (gx#stx-pair? _tl3491835076_) + (let ((_e3492335079_ + (gx#syntax-e _tl3491835076_))) + (let ((_tl3492135086_ (let () (declare (not safe)) - (##cdr _e3484234998_))) - (_hd3484135002_ + (##cdr _e3492335079_))) + (_hd3492235083_ (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 _e3492335079_)))) + (if (gx#stx-null? _tl3492135086_) + (___match4272042721_ + _e3491735059_ + _hd3491635063_ + _tl3491535066_ + _e3492035069_ + _hd3491935073_ + _tl3491835076_ + _e3492335079_ + _hd3492235083_ + _tl3492135086_) + (if (gx#stx-pair? _hd3491935073_) + (let ((_e3493634978_ (gx#syntax-e - _hd3483834992_))) - (let ((_tl3485334904_ + _hd3491935073_))) + (let ((_tl3493434985_ (let () (declare (not safe)) - (##cdr _e3485534897_))) - (_hd3485434901_ + (##cdr _e3493634978_))) + (_hd3493534982_ (let () (declare (not safe)) - (##car _e3485534897_)))) + (##car _e3493634978_)))) (if (gx#stx-pair/null? - _tl3483734995_) - (let ((___splice4261742618_ + _tl3491835076_) + (let ((___splice4269842699_ (gx#syntax-split-splice - _tl3483734995_ + _tl3491835076_ '0))) - (let ((_tl3485834910_ + (let ((_tl3493934991_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4261742618_ '1))) - (_target3485634907_ + (##vector-ref ___splice4269842699_ '1))) + (_target3493734988_ (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 ___splice4269842699_ '0)))) + (if (gx#stx-null? _tl3493934991_) + (___match4274642747_ + _e3491735059_ + _hd3491635063_ + _tl3491535066_ + _e3492035069_ + _hd3491935073_ + _tl3491835076_ + _e3493634978_ + _hd3493534982_ + _tl3493434985_ + ___splice4269842699_ + _target3493734988_ + _tl3493934991_) + (let () (declare (not safe)) (_g3491134951_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3483034870_))))) + (_g3491134951_))))) (let () (declare (not safe)) - (_g3483034870_)))))) - (if (gx#stx-pair? _hd3483834992_) - (let ((_e3485534897_ - (gx#syntax-e _hd3483834992_))) - (let ((_tl3485334904_ + (_g3491134951_)))))) + (if (gx#stx-pair? _hd3491935073_) + (let ((_e3493634978_ + (gx#syntax-e _hd3491935073_))) + (let ((_tl3493434985_ (let () (declare (not safe)) - (##cdr _e3485534897_))) - (_hd3485434901_ + (##cdr _e3493634978_))) + (_hd3493534982_ (let () (declare (not safe)) - (##car _e3485534897_)))) - (if (gx#stx-pair/null? _tl3483734995_) - (let ((___splice4261742618_ + (##car _e3493634978_)))) + (if (gx#stx-pair/null? _tl3491835076_) + (let ((___splice4269842699_ (gx#syntax-split-splice - _tl3483734995_ + _tl3491835076_ '0))) - (let ((_tl3485834910_ + (let ((_tl3493934991_ (let () (declare (not safe)) (##vector-ref - ___splice4261742618_ + ___splice4269842699_ '1))) - (_target3485634907_ + (_target3493734988_ (let () (declare (not safe)) (##vector-ref - ___splice4261742618_ + ___splice4269842699_ '0)))) (if (gx#stx-null? - _tl3485834910_) - (___match4266542666_ - _e3483634978_ - _hd3483534982_ - _tl3483434985_ - _e3483934988_ - _hd3483834992_ - _tl3483734995_ - _e3485534897_ - _hd3485434901_ - _tl3485334904_ - ___splice4261742618_ - _target3485634907_ - _tl3485834910_) + _tl3493934991_) + (___match4274642747_ + _e3491735059_ + _hd3491635063_ + _tl3491535066_ + _e3492035069_ + _hd3491935073_ + _tl3491835076_ + _e3493634978_ + _hd3493534982_ + _tl3493434985_ + ___splice4269842699_ + _target3493734988_ + _tl3493934991_) (let () (declare (not safe)) - (_g3483034870_))))) + (_g3491134951_))))) (let () (declare (not safe)) - (_g3483034870_))))) + (_g3491134951_))))) (let () (declare (not safe)) - (_g3483034870_)))))) - (let () (declare (not safe)) (_g3483034870_))))) - (let () (declare (not safe)) (_g3483034870_)))))))) + (_g3491134951_)))))) + (let () (declare (not safe)) (_g3491134951_))))) + (let () (declare (not safe)) (_g3491134951_)))))))) (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 (_stx35111_) + (let* ((_g3511435134_ + (lambda (_g3511535130_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3511535130_))) + (_g3511335205_ + (lambda (_g3511535138_) + (if (gx#stx-pair? _g3511535138_) + (let ((_e3511935141_ (gx#syntax-e _g3511535138_))) + (let ((_hd3511835145_ (let () (declare (not safe)) - (##car _e3503835060_))) - (_tl3503635067_ + (##car _e3511935141_))) + (_tl3511735148_ (let () (declare (not safe)) - (##cdr _e3503835060_)))) - (if (gx#stx-pair/null? _tl3503635067_) - (let ((_g43065_ + (##cdr _e3511935141_)))) + (if (gx#stx-pair/null? _tl3511735148_) + (let ((_g43175_ (gx#syntax-split-splice - _tl3503635067_ + _tl3511735148_ '0))) (begin - (let ((_g43066_ + (let ((_g43176_ (let () (declare (not safe)) - (if (##values? _g43065_) - (##vector-length _g43065_) + (if (##values? _g43175_) + (##vector-length _g43175_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43066_ 2))) + (##fx= _g43176_ 2))) (error "Context expects 2 values" - _g43066_))) - (let ((_target3503935070_ + _g43176_))) + (let ((_target3512035151_ (let () (declare (not safe)) - (##vector-ref _g43065_ 0))) - (_tl3504135073_ + (##vector-ref _g43175_ 0))) + (_tl3512235154_ (let () (declare (not safe)) - (##vector-ref _g43065_ 1)))) - (if (gx#stx-null? _tl3504135073_) - (letrec ((_loop3504235076_ - (lambda (_hd3504035080_ - _body3504635083_) + (##vector-ref _g43175_ 1)))) + (if (gx#stx-null? _tl3512235154_) + (letrec ((_loop3512335157_ + (lambda (_hd3512135161_ + _body3512735164_) (if (gx#stx-pair? - _hd3504035080_) - (let ((_e3504335086_ + _hd3512135161_) + (let ((_e3512435167_ (gx#syntax-e - _hd3504035080_))) - (let ((_lp-hd3504435090_ + _hd3512135161_))) + (let ((_lp-hd3512535171_ (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 _e3512435167_))) + (_lp-tl3512635174_ + (let () (declare (not safe)) (##cdr _e3512435167_)))) + (_loop3512335157_ + _lp-tl3512635174_ + (cons _lp-hd3512535171_ _body3512735164_)))) + (let ((_body3512835177_ (reverse _body3512735164_))) + ((lambda (_L35181_) (cons 'phi: (cons '1 - (foldr (lambda (_g3511535118_ _g3511635121_) - (cons _g3511535118_ _g3511635121_)) + (foldr (lambda (_g3519635199_ _g3519735202_) + (cons _g3519635199_ _g3519735202_)) '() - _L35100_)))) - _body3504735096_)))))) + _L35181_)))) + _body3512835177_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3504235076_ - _target3503935070_ + (_loop3512335157_ + _target3512035151_ '())) - (_g3503335053_ _g3503435057_))))) - (_g3503335053_ _g3503435057_)))) - (_g3503335053_ _g3503435057_))))) - (_g3503235124_ _stx35030_))))) + (_g3511435134_ _g3511535138_))))) + (_g3511435134_ _g3511535138_)))) + (_g3511435134_ _g3511535138_))))) + (_g3511335205_ _stx35111_))))) (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 (_stx35210_) + (let* ((_g3521335233_ + (lambda (_g3521435229_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3521435229_))) + (_g3521235304_ + (lambda (_g3521435237_) + (if (gx#stx-pair? _g3521435237_) + (let ((_e3521835240_ (gx#syntax-e _g3521435237_))) + (let ((_hd3521735244_ (let () (declare (not safe)) - (##car _e3513735159_))) - (_tl3513535166_ + (##car _e3521835240_))) + (_tl3521635247_ (let () (declare (not safe)) - (##cdr _e3513735159_)))) - (if (gx#stx-pair/null? _tl3513535166_) - (let ((_g43067_ + (##cdr _e3521835240_)))) + (if (gx#stx-pair/null? _tl3521635247_) + (let ((_g43177_ (gx#syntax-split-splice - _tl3513535166_ + _tl3521635247_ '0))) (begin - (let ((_g43068_ + (let ((_g43178_ (let () (declare (not safe)) - (if (##values? _g43067_) - (##vector-length _g43067_) + (if (##values? _g43177_) + (##vector-length _g43177_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43068_ 2))) + (##fx= _g43178_ 2))) (error "Context expects 2 values" - _g43068_))) - (let ((_target3513835169_ + _g43178_))) + (let ((_target3521935250_ (let () (declare (not safe)) - (##vector-ref _g43067_ 0))) - (_tl3514035172_ + (##vector-ref _g43177_ 0))) + (_tl3522135253_ (let () (declare (not safe)) - (##vector-ref _g43067_ 1)))) - (if (gx#stx-null? _tl3514035172_) - (letrec ((_loop3514135175_ - (lambda (_hd3513935179_ - _body3514535182_) + (##vector-ref _g43177_ 1)))) + (if (gx#stx-null? _tl3522135253_) + (letrec ((_loop3522235256_ + (lambda (_hd3522035260_ + _body3522635263_) (if (gx#stx-pair? - _hd3513935179_) - (let ((_e3514235185_ + _hd3522035260_) + (let ((_e3522335266_ (gx#syntax-e - _hd3513935179_))) - (let ((_lp-hd3514335189_ + _hd3522035260_))) + (let ((_lp-hd3522435270_ (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 _e3522335266_))) + (_lp-tl3522535273_ + (let () (declare (not safe)) (##cdr _e3522335266_)))) + (_loop3522235256_ + _lp-tl3522535273_ + (cons _lp-hd3522435270_ _body3522635263_)))) + (let ((_body3522735276_ (reverse _body3522635263_))) + ((lambda (_L35280_) (cons 'phi: (cons '-1 - (foldr (lambda (_g3521435217_ _g3521535220_) - (cons _g3521435217_ _g3521535220_)) + (foldr (lambda (_g3529535298_ _g3529635301_) + (cons _g3529535298_ _g3529635301_)) '() - _L35199_)))) - _body3514635195_)))))) + _L35280_)))) + _body3522735276_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3514135175_ - _target3513835169_ + (_loop3522235256_ + _target3521935250_ '())) - (_g3513235152_ _g3513335156_))))) - (_g3513235152_ _g3513335156_)))) - (_g3513235152_ _g3513335156_))))) - (_g3513135223_ _stx35129_))))) + (_g3521335233_ _g3521435237_))))) + (_g3521335233_ _g3521435237_)))) + (_g3521335233_ _g3521435237_))))) + (_g3521235304_ _stx35210_))))) (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 (_stx35309_) + (let* ((_g3531235336_ + (lambda (_g3531335332_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3531335332_))) + (_g3531135458_ + (lambda (_g3531335340_) + (if (gx#stx-pair? _g3531335340_) + (let ((_e3531835343_ (gx#syntax-e _g3531335340_))) + (let ((_hd3531735347_ (let () (declare (not safe)) - (##car _e3523735262_))) - (_tl3523535269_ + (##car _e3531835343_))) + (_tl3531635350_ (let () (declare (not safe)) - (##cdr _e3523735262_)))) - (if (gx#stx-pair? _tl3523535269_) - (let ((_e3524035272_ - (gx#syntax-e _tl3523535269_))) - (let ((_hd3523935276_ + (##cdr _e3531835343_)))) + (if (gx#stx-pair? _tl3531635350_) + (let ((_e3532135353_ + (gx#syntax-e _tl3531635350_))) + (let ((_hd3532035357_ (let () (declare (not safe)) - (##car _e3524035272_))) - (_tl3523835279_ + (##car _e3532135353_))) + (_tl3531935360_ (let () (declare (not safe)) - (##cdr _e3524035272_)))) - (if (gx#stx-pair/null? _tl3523835279_) - (let ((_g43069_ + (##cdr _e3532135353_)))) + (if (gx#stx-pair/null? _tl3531935360_) + (let ((_g43179_ (gx#syntax-split-splice - _tl3523835279_ + _tl3531935360_ '0))) (begin - (let ((_g43070_ + (let ((_g43180_ (let () (declare (not safe)) - (if (##values? _g43069_) + (if (##values? _g43179_) (##vector-length - _g43069_) + _g43179_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43070_ 2))) + (##fx= _g43180_ 2))) (error "Context expects 2 values" - _g43070_))) - (let ((_target3524135282_ + _g43180_))) + (let ((_target3532235363_ (let () (declare (not safe)) - (##vector-ref _g43069_ 0))) - (_tl3524335285_ + (##vector-ref _g43179_ 0))) + (_tl3532435366_ (let () (declare (not safe)) - (##vector-ref _g43069_ 1)))) - (if (gx#stx-null? _tl3524335285_) - (letrec ((_loop3524435288_ - (lambda (_hd3524235292_ + (##vector-ref _g43179_ 1)))) + (if (gx#stx-null? _tl3532435366_) + (letrec ((_loop3532535369_ + (lambda (_hd3532335373_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3524835295_) - (if (gx#stx-pair? _hd3524235292_) - (let ((_e3524535298_ (gx#syntax-e _hd3524235292_))) - (let ((_lp-hd3524635302_ + _id3532935376_) + (if (gx#stx-pair? _hd3532335373_) + (let ((_e3532635379_ (gx#syntax-e _hd3532335373_))) + (let ((_lp-hd3532735383_ (let () (declare (not safe)) - (##car _e3524535298_))) - (_lp-tl3524735305_ + (##car _e3532635379_))) + (_lp-tl3532835386_ (let () (declare (not safe)) - (##cdr _e3524535298_)))) - (_loop3524435288_ - _lp-tl3524735305_ - (cons _lp-hd3524635302_ _id3524835295_)))) - (let ((_id3524935308_ (reverse _id3524835295_))) - ((lambda (_L35312_ _L35314_) + (##cdr _e3532635379_)))) + (_loop3532535369_ + _lp-tl3532835386_ + (cons _lp-hd3532735383_ _id3532935376_)))) + (let ((_id3533035389_ (reverse _id3532935376_))) + ((lambda (_L35393_ _L35395_) (if (gx#identifier-list? - (foldr (lambda (_g3533135334_ _g3533235337_) - (cons _g3533135334_ _g3533235337_)) + (foldr (lambda (_g3541235415_ _g3541335418_) + (cons _g3541235415_ _g3541335418_)) '() - _L35312_)) - (let* ((_keys35348_ + _L35393_)) + (let* ((_keys35429_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_g3533935342_ - _g3534035345_) - (cons _g3533935342_ - _g3534035345_)) + (foldr (lambda (_g3542035423_ + _g3542135426_) + (cons _g3542035423_ + _g3542135426_)) '() - _L35312_))) - (_keytab35359_ - (let ((_ht35351_ (make-hash-table))) + _L35393_))) + (_keytab35440_ + (let ((_ht35432_ (make-hash-table))) (for-each - (lambda (_g3535335355_) + (lambda (_g3543435436_) (hash-put! - _ht35351_ - _g3535335355_ + _ht35432_ + _g3543435436_ '#t)) - _keys35348_) - _ht35351_)) - (_imports35362_ + _keys35429_) + _ht35432_)) + (_imports35443_ (gx#core-expand-import-source - _L35314_)) - (_fold-e35372_ - (letrec ((_fold-e35365_ - (lambda (_in35368_ _r35370_) + _L35395_)) + (_fold-e35453_ + (letrec ((_fold-e35446_ + (lambda (_in35449_ _r35451_) (if (gx#module-import? - _in35368_) + _in35449_) (if (hash-get - _keytab35359_ + _keytab35440_ (gx#module-import-name - _in35368_)) - (cons _in35368_ + _in35449_)) + (cons _in35449_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r35370_) - _r35370_) - (if (gx#import-set? _in35368_) - (foldl _fold-e35365_ - _r35370_ - (gx#import-set-imports _in35368_)) - _r35370_))))) + _r35451_) + _r35451_) + (if (gx#import-set? _in35449_) + (foldl _fold-e35446_ + _r35451_ + (gx#import-set-imports _in35449_)) + _r35451_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e35365_))) + _fold-e35446_))) (cons 'begin: - (foldl _fold-e35372_ + (foldl _fold-e35453_ '() - _imports35362_))) - (_g3523135255_ _g3523235259_))) - _id3524935308_ - _hd3523935276_)))))) + _imports35443_))) + (_g3531235336_ _g3531335340_))) + _id3533035389_ + _hd3532035357_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3524435288_ - _target3524135282_ + (_loop3532535369_ + _target3532235363_ '())) - (_g3523135255_ - _g3523235259_))))) - (_g3523135255_ _g3523235259_)))) - (_g3523135255_ _g3523235259_)))) - (_g3523135255_ _g3523235259_))))) - (_g3523035377_ _stx35228_))))) + (_g3531235336_ + _g3531335340_))))) + (_g3531235336_ _g3531335340_)))) + (_g3531235336_ _g3531335340_)))) + (_g3531235336_ _g3531335340_))))) + (_g3531135458_ _stx35309_))))) (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 (_stx35463_) + (let* ((_g3546635490_ + (lambda (_g3546735486_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3546735486_))) + (_g3546535612_ + (lambda (_g3546735494_) + (if (gx#stx-pair? _g3546735494_) + (let ((_e3547235497_ (gx#syntax-e _g3546735494_))) + (let ((_hd3547135501_ (let () (declare (not safe)) - (##car _e3539135416_))) - (_tl3538935423_ + (##car _e3547235497_))) + (_tl3547035504_ (let () (declare (not safe)) - (##cdr _e3539135416_)))) - (if (gx#stx-pair? _tl3538935423_) - (let ((_e3539435426_ - (gx#syntax-e _tl3538935423_))) - (let ((_hd3539335430_ + (##cdr _e3547235497_)))) + (if (gx#stx-pair? _tl3547035504_) + (let ((_e3547535507_ + (gx#syntax-e _tl3547035504_))) + (let ((_hd3547435511_ (let () (declare (not safe)) - (##car _e3539435426_))) - (_tl3539235433_ + (##car _e3547535507_))) + (_tl3547335514_ (let () (declare (not safe)) - (##cdr _e3539435426_)))) - (if (gx#stx-pair/null? _tl3539235433_) - (let ((_g43071_ + (##cdr _e3547535507_)))) + (if (gx#stx-pair/null? _tl3547335514_) + (let ((_g43181_ (gx#syntax-split-splice - _tl3539235433_ + _tl3547335514_ '0))) (begin - (let ((_g43072_ + (let ((_g43182_ (let () (declare (not safe)) - (if (##values? _g43071_) + (if (##values? _g43181_) (##vector-length - _g43071_) + _g43181_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43072_ 2))) + (##fx= _g43182_ 2))) (error "Context expects 2 values" - _g43072_))) - (let ((_target3539535436_ + _g43182_))) + (let ((_target3547635517_ (let () (declare (not safe)) - (##vector-ref _g43071_ 0))) - (_tl3539735439_ + (##vector-ref _g43181_ 0))) + (_tl3547835520_ (let () (declare (not safe)) - (##vector-ref _g43071_ 1)))) - (if (gx#stx-null? _tl3539735439_) - (letrec ((_loop3539835442_ - (lambda (_hd3539635446_ + (##vector-ref _g43181_ 1)))) + (if (gx#stx-null? _tl3547835520_) + (letrec ((_loop3547935523_ + (lambda (_hd3547735527_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3540235449_) - (if (gx#stx-pair? _hd3539635446_) - (let ((_e3539935452_ (gx#syntax-e _hd3539635446_))) - (let ((_lp-hd3540035456_ + _id3548335530_) + (if (gx#stx-pair? _hd3547735527_) + (let ((_e3548035533_ (gx#syntax-e _hd3547735527_))) + (let ((_lp-hd3548135537_ (let () (declare (not safe)) - (##car _e3539935452_))) - (_lp-tl3540135459_ + (##car _e3548035533_))) + (_lp-tl3548235540_ (let () (declare (not safe)) - (##cdr _e3539935452_)))) - (_loop3539835442_ - _lp-tl3540135459_ - (cons _lp-hd3540035456_ _id3540235449_)))) - (let ((_id3540335462_ (reverse _id3540235449_))) - ((lambda (_L35466_ _L35468_) + (##cdr _e3548035533_)))) + (_loop3547935523_ + _lp-tl3548235540_ + (cons _lp-hd3548135537_ _id3548335530_)))) + (let ((_id3548435543_ (reverse _id3548335530_))) + ((lambda (_L35547_ _L35549_) (if (gx#identifier-list? - (foldr (lambda (_g3548535488_ _g3548635491_) - (cons _g3548535488_ _g3548635491_)) + (foldr (lambda (_g3556635569_ _g3556735572_) + (cons _g3556635569_ _g3556735572_)) '() - _L35466_)) - (let* ((_keys35502_ + _L35547_)) + (let* ((_keys35583_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_g3549335496_ - _g3549435499_) - (cons _g3549335496_ - _g3549435499_)) + (foldr (lambda (_g3557435577_ + _g3557535580_) + (cons _g3557435577_ + _g3557535580_)) '() - _L35466_))) - (_keytab35513_ - (let ((_ht35505_ (make-hash-table))) + _L35547_))) + (_keytab35594_ + (let ((_ht35586_ (make-hash-table))) (for-each - (lambda (_g3550735509_) + (lambda (_g3558835590_) (hash-put! - _ht35505_ - _g3550735509_ + _ht35586_ + _g3558835590_ '#t)) - _keys35502_) - _ht35505_)) - (_imports35516_ + _keys35583_) + _ht35586_)) + (_imports35597_ (gx#core-expand-import-source - _L35468_)) - (_fold-e35526_ - (letrec ((_fold-e35519_ - (lambda (_in35522_ _r35524_) + _L35549_)) + (_fold-e35607_ + (letrec ((_fold-e35600_ + (lambda (_in35603_ _r35605_) (if (gx#module-import? - _in35522_) + _in35603_) (if (hash-get - _keytab35513_ + _keytab35594_ (gx#module-import-name - _in35522_)) - _r35524_ - (cons _in35522_ + _in35603_)) + _r35605_ + (cons _in35603_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r35524_)) - (if (gx#import-set? _in35522_) - (foldl _fold-e35519_ - _r35524_ - (gx#import-set-imports _in35522_)) - (cons _in35522_ _r35524_)))))) + _r35605_)) + (if (gx#import-set? _in35603_) + (foldl _fold-e35600_ + _r35605_ + (gx#import-set-imports _in35603_)) + (cons _in35603_ _r35605_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e35519_))) + _fold-e35600_))) (cons 'begin: - (foldl _fold-e35526_ + (foldl _fold-e35607_ '() - _imports35516_))) - (_g3538535409_ _g3538635413_))) - _id3540335462_ - _hd3539335430_)))))) + _imports35597_))) + (_g3546635490_ _g3546735494_))) + _id3548435543_ + _hd3547435511_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3539835442_ - _target3539535436_ + (_loop3547935523_ + _target3547635517_ '())) - (_g3538535409_ - _g3538635413_))))) - (_g3538535409_ _g3538635413_)))) - (_g3538535409_ _g3538635413_)))) - (_g3538535409_ _g3538635413_))))) - (_g3538435531_ _stx35382_))))) + (_g3546635490_ + _g3546735494_))))) + (_g3546635490_ _g3546735494_)))) + (_g3546635490_ _g3546735494_)))) + (_g3546635490_ _g3546735494_))))) + (_g3546535612_ _stx35463_))))) (define |gerbil/core$[1]#module-import-rename| - (lambda (_in35583_ _rename35585_) + (lambda (_in35664_ _rename35666_) (gx#make-module-import - (gx#module-import-source _in35583_) - _rename35585_ - (gx#module-import-phi _in35583_) - (gx#module-import-weak? _in35583_)))) + (gx#module-import-source _in35664_) + _rename35666_ + (gx#module-import-phi _in35664_) + (gx#module-import-weak? _in35664_)))) (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 (_name35617_ _pre35619_) + (let* ((_name3562035628_ _name35617_) + (_else3562235640_ + (lambda () (make-symbol _pre35619_ _name35617_))) + (_K3562435648_ + (lambda (_mark35644_ _id35646_) + (cons (make-symbol _pre35619_ _id35646_) _mark35644_)))) + (if (let () (declare (not safe)) (##pair? _name3562035628_)) + (let ((_hd3562535652_ + (let () (declare (not safe)) (##car _name3562035628_))) + (_tl3562635655_ + (let () (declare (not safe)) (##cdr _name3562035628_)))) + (let* ((_id35658_ _hd3562535652_) (_mark35661_ _tl3562635655_)) (declare (not safe)) - (_K3554335567_ _mark35580_ _id35577_))) - (let () (declare (not safe)) (_else3554135559_)))))) + (_K3562435648_ _mark35661_ _id35658_))) + (let () (declare (not safe)) (_else3562235640_)))))) (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 (_stx35668_) + (let* ((_g3567135704_ + (lambda (_g3567235700_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3567235700_))) + (_g3567035890_ + (lambda (_g3567235708_) + (if (gx#stx-pair? _g3567235708_) + (let ((_e3567835711_ (gx#syntax-e _g3567235708_))) + (let ((_hd3567735715_ (let () (declare (not safe)) - (##car _e3559735630_))) - (_tl3559535637_ + (##car _e3567835711_))) + (_tl3567635718_ (let () (declare (not safe)) - (##cdr _e3559735630_)))) - (if (gx#stx-pair? _tl3559535637_) - (let ((_e3560035640_ - (gx#syntax-e _tl3559535637_))) - (let ((_hd3559935644_ + (##cdr _e3567835711_)))) + (if (gx#stx-pair? _tl3567635718_) + (let ((_e3568135721_ + (gx#syntax-e _tl3567635718_))) + (let ((_hd3568035725_ (let () (declare (not safe)) - (##car _e3560035640_))) - (_tl3559835647_ + (##car _e3568135721_))) + (_tl3567935728_ (let () (declare (not safe)) - (##cdr _e3560035640_)))) - (if (gx#stx-pair/null? _tl3559835647_) - (let ((_g43073_ + (##cdr _e3568135721_)))) + (if (gx#stx-pair/null? _tl3567935728_) + (let ((_g43183_ (gx#syntax-split-splice - _tl3559835647_ + _tl3567935728_ '0))) (begin - (let ((_g43074_ + (let ((_g43184_ (let () (declare (not safe)) - (if (##values? _g43073_) + (if (##values? _g43183_) (##vector-length - _g43073_) + _g43183_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43074_ 2))) + (##fx= _g43184_ 2))) (error "Context expects 2 values" - _g43074_))) - (let ((_target3560135650_ + _g43184_))) + (let ((_target3568235731_ (let () (declare (not safe)) - (##vector-ref _g43073_ 0))) - (_tl3560335653_ + (##vector-ref _g43183_ 0))) + (_tl3568435734_ (let () (declare (not safe)) - (##vector-ref _g43073_ 1)))) - (if (gx#stx-null? _tl3560335653_) - (letrec ((_loop3560435656_ - (lambda (_hd3560235660_ + (##vector-ref _g43183_ 1)))) + (if (gx#stx-null? _tl3568435734_) + (letrec ((_loop3568535737_ + (lambda (_hd3568335741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _new-id3560835663_ - _id3560935665_) - (if (gx#stx-pair? _hd3560235660_) - (let ((_e3560535668_ (gx#syntax-e _hd3560235660_))) - (let ((_lp-hd3560635672_ + _new-id3568935744_ + _id3569035746_) + (if (gx#stx-pair? _hd3568335741_) + (let ((_e3568635749_ (gx#syntax-e _hd3568335741_))) + (let ((_lp-hd3568735753_ (let () (declare (not safe)) - (##car _e3560535668_))) - (_lp-tl3560735675_ + (##car _e3568635749_))) + (_lp-tl3568835756_ (let () (declare (not safe)) - (##cdr _e3560535668_)))) - (if (gx#stx-pair? _lp-hd3560635672_) - (let ((_e3561435678_ - (gx#syntax-e _lp-hd3560635672_))) - (let ((_hd3561335682_ + (##cdr _e3568635749_)))) + (if (gx#stx-pair? _lp-hd3568735753_) + (let ((_e3569535759_ + (gx#syntax-e _lp-hd3568735753_))) + (let ((_hd3569435763_ (let () (declare (not safe)) - (##car _e3561435678_))) - (_tl3561235685_ + (##car _e3569535759_))) + (_tl3569335766_ (let () (declare (not safe)) - (##cdr _e3561435678_)))) - (if (gx#stx-pair? _tl3561235685_) - (let ((_e3561735688_ - (gx#syntax-e _tl3561235685_))) - (let ((_hd3561635692_ + (##cdr _e3569535759_)))) + (if (gx#stx-pair? _tl3569335766_) + (let ((_e3569835769_ + (gx#syntax-e _tl3569335766_))) + (let ((_hd3569735773_ (let () (declare (not safe)) - (##car _e3561735688_))) - (_tl3561535695_ + (##car _e3569835769_))) + (_tl3569635776_ (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 _e3569835769_)))) + (if (gx#stx-null? _tl3569635776_) + (_loop3568535737_ + _lp-tl3568835756_ + (cons _hd3569735773_ + _new-id3568935744_) + (cons _hd3569435763_ + _id3569035746_)) + (_g3567135704_ _g3567235708_)))) + (_g3567135704_ _g3567235708_)))) + (_g3567135704_ _g3567235708_)))) + (let ((_new-id3569135779_ (reverse _new-id3568935744_)) + (_id3569235782_ (reverse _id3569035746_))) + ((lambda (_L35785_ _L35787_ _L35788_) (if (and (gx#identifier-list? - (foldr (lambda (_g3572535728_ - _g3572635731_) - (cons _g3572535728_ - _g3572635731_)) + (foldr (lambda (_g3580635809_ + _g3580735812_) + (cons _g3580635809_ + _g3580735812_)) '() - _L35706_)) + _L35787_)) (gx#identifier-list? - (foldr (lambda (_g3573335736_ - _g3573435739_) - (cons _g3573335736_ - _g3573435739_)) + (foldr (lambda (_g3581435817_ + _g3581535820_) + (cons _g3581435817_ + _g3581535820_)) '() - _L35704_))) - (let* ((_keytab35742_ (make-hash-table)) - (_found35745_ (make-hash-table)) - (_g43075_ + _L35785_))) + (let* ((_keytab35823_ (make-hash-table)) + (_found35826_ (make-hash-table)) + (_g43185_ (for-each - (lambda (_id35748_ _new-id35750_) + (lambda (_id35829_ _new-id35831_) (hash-put! - _keytab35742_ - (gx#core-identifier-key _id35748_) + _keytab35823_ + (gx#core-identifier-key _id35829_) (gx#core-identifier-key - _new-id35750_))) - (foldr (lambda (_g3575135754_ - _g3575235757_) - (cons _g3575135754_ - _g3575235757_)) + _new-id35831_))) + (foldr (lambda (_g3583235835_ + _g3583335838_) + (cons _g3583235835_ + _g3583335838_)) '() - _L35706_) - (foldr (lambda (_g3575935762_ - _g3576035765_) - (cons _g3575935762_ - _g3576035765_)) + _L35787_) + (foldr (lambda (_g3584035843_ + _g3584135846_) + (cons _g3584035843_ + _g3584135846_)) '() - _L35704_))) - (_imports35770_ + _L35785_))) + (_imports35851_ (gx#core-expand-import-source - _L35707_)) - (_fold-e35790_ - (letrec ((_fold-e35773_ - (lambda (_in35776_ _r35778_) + _L35788_)) + (_fold-e35871_ + (letrec ((_fold-e35854_ + (lambda (_in35857_ _r35859_) (if (gx#module-import? - _in35776_) - (let* ((_name35780_ + _in35857_) + (let* ((_name35861_ (gx#module-import-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in35776_)) - (_$e35783_ (hash-get _keytab35742_ _name35780_))) - (if _$e35783_ - ((lambda (_rename35787_) - (hash-put! _found35745_ _name35780_ '#t) + _in35857_)) + (_$e35864_ (hash-get _keytab35823_ _name35861_))) + (if _$e35864_ + ((lambda (_rename35868_) + (hash-put! _found35826_ _name35861_ '#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_)))))) + _in35857_ + _rename35868_)) + _r35859_)) + _$e35864_) + (cons _in35857_ _r35859_))) + (if (gx#import-set? _in35857_) + (foldl _fold-e35854_ + _r35859_ + (gx#import-set-imports _in35857_)) + (cons _in35857_ _r35859_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e35773_)) - (_new-imports35793_ - (foldl _fold-e35790_ + _fold-e35854_)) + (_new-imports35874_ + (foldl _fold-e35871_ '() - _imports35770_))) + _imports35851_))) (for-each - (lambda (_id35798_) + (lambda (_id35879_) (if (hash-get - _found35745_ - (gx#core-identifier-key _id35798_)) + _found35826_ + (gx#core-identifier-key _id35879_)) '#!void (gx#raise-syntax-error '#f '"Bad syntax; identifier is not in the import set" - _stx35587_ - _id35798_))) - (foldr (lambda (_g3580035803_ _g3580135806_) - (cons _g3580035803_ _g3580135806_)) + _stx35668_ + _id35879_))) + (foldr (lambda (_g3588135884_ _g3588235887_) + (cons _g3588135884_ _g3588235887_)) '() - _L35706_)) - (cons 'begin: _new-imports35793_)) - (_g3559035623_ _g3559135627_))) - _new-id3561035698_ - _id3561135701_ - _hd3559935644_)))))) + _L35787_)) + (cons 'begin: _new-imports35874_)) + (_g3567135704_ _g3567235708_))) + _new-id3569135779_ + _id3569235782_ + _hd3568035725_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3560435656_ - _target3560135650_ + (_loop3568535737_ + _target3568235731_ '() '())) - (_g3559035623_ - _g3559135627_))))) - (_g3559035623_ _g3559135627_)))) - (_g3559035623_ _g3559135627_)))) - (_g3559035623_ _g3559135627_))))) - (_g3558935809_ _stx35587_))))) + (_g3567135704_ + _g3567235708_))))) + (_g3567135704_ _g3567235708_)))) + (_g3567135704_ _g3567235708_)))) + (_g3567135704_ _g3567235708_))))) + (_g3567035890_ _stx35668_))))) (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 (_stx35896_) + (let* ((_g3589935917_ + (lambda (_g3590035913_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3590035913_))) + (_g3589835996_ + (lambda (_g3590035921_) + (if (gx#stx-pair? _g3590035921_) + (let ((_e3590535924_ (gx#syntax-e _g3590035921_))) + (let ((_hd3590435928_ (let () (declare (not safe)) - (##car _e3582435843_))) - (_tl3582235850_ + (##car _e3590535924_))) + (_tl3590335931_ (let () (declare (not safe)) - (##cdr _e3582435843_)))) - (if (gx#stx-pair? _tl3582235850_) - (let ((_e3582735853_ - (gx#syntax-e _tl3582235850_))) - (let ((_hd3582635857_ + (##cdr _e3590535924_)))) + (if (gx#stx-pair? _tl3590335931_) + (let ((_e3590835934_ + (gx#syntax-e _tl3590335931_))) + (let ((_hd3590735938_ (let () (declare (not safe)) - (##car _e3582735853_))) - (_tl3582535860_ + (##car _e3590835934_))) + (_tl3590635941_ (let () (declare (not safe)) - (##cdr _e3582735853_)))) - (if (gx#stx-pair? _tl3582535860_) - (let ((_e3583035863_ - (gx#syntax-e _tl3582535860_))) - (let ((_hd3582935867_ + (##cdr _e3590835934_)))) + (if (gx#stx-pair? _tl3590635941_) + (let ((_e3591135944_ + (gx#syntax-e _tl3590635941_))) + (let ((_hd3591035948_ (let () (declare (not safe)) - (##car _e3583035863_))) - (_tl3582835870_ + (##car _e3591135944_))) + (_tl3590935951_ (let () (declare (not safe)) - (##cdr _e3583035863_)))) - (if (gx#stx-null? _tl3582835870_) - ((lambda (_L35873_ _L35875_) - (if (gx#identifier? _L35873_) - (let* ((_pre35891_ + (##cdr _e3591135944_)))) + (if (gx#stx-null? _tl3590935951_) + ((lambda (_L35954_ _L35956_) + (if (gx#identifier? _L35954_) + (let* ((_pre35972_ (gx#stx-e - _L35873_)) - (_imports35894_ + _L35954_)) + (_imports35975_ (gx#core-expand-import-source - _L35875_)) - (_rename-e35900_ - (lambda (_name35897_) + _L35956_)) + (_rename-e35981_ + (lambda (_name35978_) (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_ + _name35978_ + _pre35972_)))) + (_fold-e35991_ + (letrec ((_fold-e35984_ + (lambda (_in35987_ _r35989_) + (if (gx#module-import? _in35987_) + (cons (let ((__tmp43186 + (_rename-e35981_ (gx#module-import-name - _in35906_)))) + _in35987_)))) (declare (not safe)) (|gerbil/core$[1]#module-import-rename| - _in35906_ - __tmp43076)) - _r35908_) - (if (gx#import-set? _in35906_) - (foldl _fold-e35903_ - _r35908_ + _in35987_ + __tmp43186)) + _r35989_) + (if (gx#import-set? _in35987_) + (foldl _fold-e35984_ + _r35989_ (gx#import-set-imports - _in35906_)) - (cons _in35906_ _r35908_)))))) - _fold-e35903_))) - (cons 'begin: (foldl _fold-e35910_ '() _imports35894_))) + _in35987_)) + (cons _in35987_ _r35989_)))))) + _fold-e35984_))) + (cons 'begin: (foldl _fold-e35991_ '() _imports35975_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3581835836_ - _g3581935840_))) - _hd3582935867_ - _hd3582635857_) - (_g3581835836_ _g3581935840_)))) - (_g3581835836_ _g3581935840_)))) - (_g3581835836_ _g3581935840_)))) - (_g3581835836_ _g3581935840_))))) - (_g3581735915_ _stx35815_))))) + (_g3589935917_ + _g3590035921_))) + _hd3591035948_ + _hd3590735938_) + (_g3589935917_ _g3590035921_)))) + (_g3589935917_ _g3590035921_)))) + (_g3589935917_ _g3590035921_)))) + (_g3589935917_ _g3590035921_))))) + (_g3589835996_ _stx35896_))))) (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 (_stx36000_) + (letrec ((_flatten36003_ + (lambda (_list-of-lists36258_) + (foldr (lambda (_v36261_ _acc36263_) + (if (null? _v36261_) + _acc36263_ + (if (pair? _v36261_) + (append (_flatten36003_ _v36261_) + _acc36263_) + (cons _v36261_ _acc36263_)))) '() - _list-of-lists36177_))) - (_expand-path35924_ - (lambda (_top36045_ _mod36047_) - (let* ((___stx4266842669_ _mod36047_) - (_g3605036072_ + _list-of-lists36258_))) + (_expand-path36005_ + (lambda (_top36126_ _mod36128_) + (let* ((___stx4274942750_ _mod36128_) + (_g3613136153_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4266842669_)))) - (let ((___kont4267142672_ - (lambda (_L36140_ _L36142_) - (map (lambda (_mod36157_) + ___stx4274942750_)))) + (let ((___kont4275242753_ + (lambda (_L36221_ _L36223_) + (map (lambda (_mod36238_) (gx#stx-identifier - _top36045_ - _top36045_ + _top36126_ + _top36126_ '"/" - _mod36157_)) - (_flatten35922_ - (map (lambda (_g3615936161_) - (_expand-path35924_ - _L36142_ - _g3615936161_)) - (foldr (lambda (_g3616436167_ - _g3616536170_) - (cons _g3616436167_ - _g3616536170_)) + _mod36238_)) + (_flatten36003_ + (map (lambda (_g3624036242_) + (_expand-path36005_ + _L36223_ + _g3624036242_)) + (foldr (lambda (_g3624536248_ + _g3624636251_) + (cons _g3624536248_ + _g3624636251_)) '() - _L36140_)))))) - (___kont4267542676_ - (lambda (_L36079_) + _L36221_)))))) + (___kont4275642757_ + (lambda (_L36160_) (gx#stx-identifier - _top36045_ - _top36045_ + _top36126_ + _top36126_ '"/" - _L36079_)))) - (let* ((_g3604936093_ + _L36160_)))) + (let* ((_g3613036174_ (lambda () - (let ((_L36079_ ___stx4266842669_)) - (if (or (gx#identifier? _L36079_) - (gx#stx-fixnum? _L36079_)) - (___kont4267542676_ _L36079_) + (let ((_L36160_ ___stx4274942750_)) + (if (or (gx#identifier? _L36160_) + (gx#stx-fixnum? _L36160_)) + (___kont4275642757_ _L36160_) (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_ + (_g3613136153_)))))) + (___match4277242773_ + (lambda (_e3613736181_ + _hd3613636185_ + _tl3613536188_ + ___splice4275442755_ + _target3613836191_ + _tl3614036194_) + (letrec ((_loop3614136197_ + (lambda (_hd3613936201_ + _mod3614536204_) + (if (gx#stx-pair? _hd3613936201_) + (let ((_e3614236207_ (gx#syntax-e - _hd3605836120_))) - (let ((_lp-tl3606336133_ + _hd3613936201_))) + (let ((_lp-tl3614436214_ (let () (declare (not safe)) - (##cdr _e3606136126_))) - (_lp-hd3606236130_ + (##cdr _e3614236207_))) + (_lp-hd3614336211_ (let () (declare (not safe)) - (##car _e3606136126_)))) - (_loop3606036116_ - _lp-tl3606336133_ - (cons _lp-hd3606236130_ - _mod3606436123_)))) - (let ((_mod3606536136_ - (reverse _mod3606436123_))) - (___kont4267142672_ - _mod3606536136_ - _hd3605536104_)))))) - (_loop3606036116_ - _target3605736110_ + (##car _e3614236207_)))) + (_loop3614136197_ + _lp-tl3614436214_ + (cons _lp-hd3614336211_ + _mod3614536204_)))) + (let ((_mod3614636217_ + (reverse _mod3614536204_))) + (___kont4275242753_ + _mod3614636217_ + _hd3613636185_)))))) + (_loop3614136197_ + _target3613836191_ '()))))) - (if (gx#stx-pair? ___stx4266842669_) - (let ((_e3605636100_ - (gx#syntax-e ___stx4266842669_))) - (let ((_tl3605436107_ + (if (gx#stx-pair? ___stx4274942750_) + (let ((_e3613736181_ + (gx#syntax-e ___stx4274942750_))) + (let ((_tl3613536188_ (let () (declare (not safe)) - (##cdr _e3605636100_))) - (_hd3605536104_ + (##cdr _e3613736181_))) + (_hd3613636185_ (let () (declare (not safe)) - (##car _e3605636100_)))) - (if (gx#stx-pair/null? _tl3605436107_) - (let ((___splice4267342674_ + (##car _e3613736181_)))) + (if (gx#stx-pair/null? _tl3613536188_) + (let ((___splice4275442755_ (gx#syntax-split-splice - _tl3605436107_ + _tl3613536188_ '0))) - (let ((_tl3605936113_ + (let ((_tl3614036194_ (let () (declare (not safe)) (##vector-ref - ___splice4267342674_ + ___splice4275442755_ '1))) - (_target3605736110_ + (_target3613836191_ (let () (declare (not safe)) (##vector-ref - ___splice4267342674_ + ___splice4275442755_ '0)))) - (if (gx#stx-null? _tl3605936113_) - (___match4269142692_ - _e3605636100_ - _hd3605536104_ - _tl3605436107_ - ___splice4267342674_ - _target3605736110_ - _tl3605936113_) + (if (gx#stx-null? _tl3614036194_) + (___match4277242773_ + _e3613736181_ + _hd3613636185_ + _tl3613536188_ + ___splice4275442755_ + _target3613836191_ + _tl3614036194_) (let () (declare (not safe)) - (_g3604936093_))))) + (_g3613036174_))))) (let () (declare (not safe)) - (_g3604936093_))))) + (_g3613036174_))))) (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_ + (_g3613036174_))))))))) + (let* ((_g3600736031_ + (lambda (_g3600836027_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3600836027_))) + (_g3600636122_ + (lambda (_g3600836035_) + (if (gx#stx-pair? _g3600836035_) + (let ((_e3601336038_ (gx#syntax-e _g3600836035_))) + (let ((_hd3601236042_ (let () (declare (not safe)) - (##car _e3593235957_))) - (_tl3593035964_ + (##car _e3601336038_))) + (_tl3601136045_ (let () (declare (not safe)) - (##cdr _e3593235957_)))) - (if (gx#stx-pair? _tl3593035964_) - (let ((_e3593535967_ - (gx#syntax-e _tl3593035964_))) - (let ((_hd3593435971_ + (##cdr _e3601336038_)))) + (if (gx#stx-pair? _tl3601136045_) + (let ((_e3601636048_ + (gx#syntax-e _tl3601136045_))) + (let ((_hd3601536052_ (let () (declare (not safe)) - (##car _e3593535967_))) - (_tl3593335974_ + (##car _e3601636048_))) + (_tl3601436055_ (let () (declare (not safe)) - (##cdr _e3593535967_)))) - (if (gx#stx-pair/null? _tl3593335974_) - (let ((_g43077_ + (##cdr _e3601636048_)))) + (if (gx#stx-pair/null? _tl3601436055_) + (let ((_g43187_ (gx#syntax-split-splice - _tl3593335974_ + _tl3601436055_ '0))) (begin - (let ((_g43078_ + (let ((_g43188_ (let () (declare (not safe)) - (if (##values? _g43077_) + (if (##values? _g43187_) (##vector-length - _g43077_) + _g43187_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43078_ 2))) + (##fx= _g43188_ 2))) (error "Context expects 2 values" - _g43078_))) - (let ((_target3593635977_ + _g43188_))) + (let ((_target3601736058_ (let () (declare (not safe)) - (##vector-ref _g43077_ 0))) - (_tl3593835980_ + (##vector-ref _g43187_ 0))) + (_tl3601936061_ (let () (declare (not safe)) (##vector-ref - _g43077_ + _g43187_ 1)))) - (if (gx#stx-null? _tl3593835980_) - (letrec ((_loop3593935983_ - (lambda (_hd3593735987_ + (if (gx#stx-null? _tl3601936061_) + (letrec ((_loop3602036064_ + (lambda (_hd3601836068_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mod3594335990_) - (if (gx#stx-pair? _hd3593735987_) - (let ((_e3594035993_ (gx#syntax-e _hd3593735987_))) - (let ((_lp-hd3594135997_ + _mod3602436071_) + (if (gx#stx-pair? _hd3601836068_) + (let ((_e3602136074_ (gx#syntax-e _hd3601836068_))) + (let ((_lp-hd3602236078_ (let () (declare (not safe)) - (##car _e3594035993_))) - (_lp-tl3594236000_ + (##car _e3602136074_))) + (_lp-tl3602336081_ (let () (declare (not safe)) - (##cdr _e3594035993_)))) - (_loop3593935983_ - _lp-tl3594236000_ - (cons _lp-hd3594135997_ _mod3594335990_)))) - (let ((_mod3594436003_ (reverse _mod3594335990_))) - ((lambda (_L36007_ _L36009_) + (##cdr _e3602136074_)))) + (_loop3602036064_ + _lp-tl3602336081_ + (cons _lp-hd3602236078_ _mod3602436071_)))) + (let ((_mod3602536084_ (reverse _mod3602436071_))) + ((lambda (_L36088_ _L36090_) (cons 'begin: - (_flatten35922_ - (map (lambda (_g3602736029_) - (_expand-path35924_ - _L36009_ - _g3602736029_)) - (foldr (lambda (_g3603236035_ - _g3603336038_) - (cons _g3603236035_ - _g3603336038_)) + (_flatten36003_ + (map (lambda (_g3610836110_) + (_expand-path36005_ + _L36090_ + _g3610836110_)) + (foldr (lambda (_g3611336116_ + _g3611436119_) + (cons _g3611336116_ + _g3611436119_)) '() - _L36007_))))) - _mod3594436003_ - _hd3593435971_)))))) + _L36088_))))) + _mod3602536084_ + _hd3601536052_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3593935983_ - _target3593635977_ + (_loop3602036064_ + _target3601736058_ '())) - (_g3592635950_ - _g3592735954_))))) - (_g3592635950_ _g3592735954_)))) - (_g3592635950_ _g3592735954_)))) - (_g3592635950_ _g3592735954_))))) - (_g3592536041_ _stx35919_)))))) + (_g3600736031_ + _g3600836035_))))) + (_g3600736031_ _g3600836035_)))) + (_g3600736031_ _g3600836035_)))) + (_g3600736031_ _g3600836035_))))) + (_g3600636122_ _stx36000_)))))) (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 (_stx36267_) + (let* ((_g3627036294_ + (lambda (_g3627136290_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3627136290_))) + (_g3626936416_ + (lambda (_g3627136298_) + (if (gx#stx-pair? _g3627136298_) + (let ((_e3627636301_ (gx#syntax-e _g3627136298_))) + (let ((_hd3627536305_ (let () (declare (not safe)) - (##car _e3619536220_))) - (_tl3619336227_ + (##car _e3627636301_))) + (_tl3627436308_ (let () (declare (not safe)) - (##cdr _e3619536220_)))) - (if (gx#stx-pair? _tl3619336227_) - (let ((_e3619836230_ - (gx#syntax-e _tl3619336227_))) - (let ((_hd3619736234_ + (##cdr _e3627636301_)))) + (if (gx#stx-pair? _tl3627436308_) + (let ((_e3627936311_ + (gx#syntax-e _tl3627436308_))) + (let ((_hd3627836315_ (let () (declare (not safe)) - (##car _e3619836230_))) - (_tl3619636237_ + (##car _e3627936311_))) + (_tl3627736318_ (let () (declare (not safe)) - (##cdr _e3619836230_)))) - (if (gx#stx-pair/null? _tl3619636237_) - (let ((_g43079_ + (##cdr _e3627936311_)))) + (if (gx#stx-pair/null? _tl3627736318_) + (let ((_g43189_ (gx#syntax-split-splice - _tl3619636237_ + _tl3627736318_ '0))) (begin - (let ((_g43080_ + (let ((_g43190_ (let () (declare (not safe)) - (if (##values? _g43079_) + (if (##values? _g43189_) (##vector-length - _g43079_) + _g43189_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43080_ 2))) + (##fx= _g43190_ 2))) (error "Context expects 2 values" - _g43080_))) - (let ((_target3619936240_ + _g43190_))) + (let ((_target3628036321_ (let () (declare (not safe)) - (##vector-ref _g43079_ 0))) - (_tl3620136243_ + (##vector-ref _g43189_ 0))) + (_tl3628236324_ (let () (declare (not safe)) - (##vector-ref _g43079_ 1)))) - (if (gx#stx-null? _tl3620136243_) - (letrec ((_loop3620236246_ - (lambda (_hd3620036250_ + (##vector-ref _g43189_ 1)))) + (if (gx#stx-null? _tl3628236324_) + (letrec ((_loop3628336327_ + (lambda (_hd3628136331_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3620636253_) - (if (gx#stx-pair? _hd3620036250_) - (let ((_e3620336256_ (gx#syntax-e _hd3620036250_))) - (let ((_lp-hd3620436260_ + _id3628736334_) + (if (gx#stx-pair? _hd3628136331_) + (let ((_e3628436337_ (gx#syntax-e _hd3628136331_))) + (let ((_lp-hd3628536341_ (let () (declare (not safe)) - (##car _e3620336256_))) - (_lp-tl3620536263_ + (##car _e3628436337_))) + (_lp-tl3628636344_ (let () (declare (not safe)) - (##cdr _e3620336256_)))) - (_loop3620236246_ - _lp-tl3620536263_ - (cons _lp-hd3620436260_ _id3620636253_)))) - (let ((_id3620736266_ (reverse _id3620636253_))) - ((lambda (_L36270_ _L36272_) + (##cdr _e3628436337_)))) + (_loop3628336327_ + _lp-tl3628636344_ + (cons _lp-hd3628536341_ _id3628736334_)))) + (let ((_id3628836347_ (reverse _id3628736334_))) + ((lambda (_L36351_ _L36353_) (if (gx#identifier-list? - (foldr (lambda (_g3628936292_ _g3629036295_) - (cons _g3628936292_ _g3629036295_)) + (foldr (lambda (_g3637036373_ _g3637136376_) + (cons _g3637036373_ _g3637136376_)) '() - _L36270_)) - (let* ((_keys36306_ + _L36351_)) + (let* ((_keys36387_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_g3629736300_ - _g3629836303_) - (cons _g3629736300_ - _g3629836303_)) + (foldr (lambda (_g3637836381_ + _g3637936384_) + (cons _g3637836381_ + _g3637936384_)) '() - _L36270_))) - (_keytab36317_ - (let ((_ht36309_ (make-hash-table))) + _L36351_))) + (_keytab36398_ + (let ((_ht36390_ (make-hash-table))) (for-each - (lambda (_g3631136313_) + (lambda (_g3639236394_) (hash-put! - _ht36309_ - _g3631136313_ + _ht36390_ + _g3639236394_ '#t)) - _keys36306_) - _ht36309_)) - (_exports36320_ + _keys36387_) + _ht36390_)) + (_exports36401_ (gx#core-expand-export-source - _L36272_)) - (_fold-e36330_ - (letrec ((_fold-e36323_ - (lambda (_out36326_ _r36328_) + _L36353_)) + (_fold-e36411_ + (letrec ((_fold-e36404_ + (lambda (_out36407_ _r36409_) (if (gx#module-export? - _out36326_) + _out36407_) (if (hash-get - _keytab36317_ + _keytab36398_ (gx#module-export-name - _out36326_)) - _r36328_ - (cons _out36326_ + _out36407_)) + _r36409_ + (cons _out36407_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r36328_)) - (if (gx#export-set? _out36326_) - (foldl _fold-e36323_ - _r36328_ - (gx#export-set-exports _out36326_)) - _r36328_))))) + _r36409_)) + (if (gx#export-set? _out36407_) + (foldl _fold-e36404_ + _r36409_ + (gx#export-set-exports _out36407_)) + _r36409_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e36323_))) + _fold-e36404_))) (cons 'begin: - (foldl _fold-e36330_ + (foldl _fold-e36411_ '() - _exports36320_))) - (_g3618936213_ _g3619036217_))) - _id3620736266_ - _hd3619736234_)))))) + _exports36401_))) + (_g3627036294_ _g3627136298_))) + _id3628836347_ + _hd3627836315_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3620236246_ - _target3619936240_ + (_loop3628336327_ + _target3628036321_ '())) - (_g3618936213_ - _g3619036217_))))) - (_g3618936213_ _g3619036217_)))) - (_g3618936213_ _g3619036217_)))) - (_g3618936213_ _g3619036217_))))) - (_g3618836335_ _stx36186_))))) + (_g3627036294_ + _g3627136298_))))) + (_g3627036294_ _g3627136298_)))) + (_g3627036294_ _g3627136298_)))) + (_g3627036294_ _g3627136298_))))) + (_g3626936416_ _stx36267_))))) (define |gerbil/core$[1]#module-export-rename| - (lambda (_out36340_ _rename36342_) + (lambda (_out36421_ _rename36423_) (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 _out36421_) + (gx#module-export-key _out36421_) + (gx#module-export-phi _out36421_) + _rename36423_ + (gx#module-export-weak? _out36421_)))) (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 (_stx36425_) + (let* ((_g3642836461_ + (lambda (_g3642936457_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3642936457_))) + (_g3642736647_ + (lambda (_g3642936465_) + (if (gx#stx-pair? _g3642936465_) + (let ((_e3643536468_ (gx#syntax-e _g3642936465_))) + (let ((_hd3643436472_ (let () (declare (not safe)) - (##car _e3635436387_))) - (_tl3635236394_ + (##car _e3643536468_))) + (_tl3643336475_ (let () (declare (not safe)) - (##cdr _e3635436387_)))) - (if (gx#stx-pair? _tl3635236394_) - (let ((_e3635736397_ - (gx#syntax-e _tl3635236394_))) - (let ((_hd3635636401_ + (##cdr _e3643536468_)))) + (if (gx#stx-pair? _tl3643336475_) + (let ((_e3643836478_ + (gx#syntax-e _tl3643336475_))) + (let ((_hd3643736482_ (let () (declare (not safe)) - (##car _e3635736397_))) - (_tl3635536404_ + (##car _e3643836478_))) + (_tl3643636485_ (let () (declare (not safe)) - (##cdr _e3635736397_)))) - (if (gx#stx-pair/null? _tl3635536404_) - (let ((_g43081_ + (##cdr _e3643836478_)))) + (if (gx#stx-pair/null? _tl3643636485_) + (let ((_g43191_ (gx#syntax-split-splice - _tl3635536404_ + _tl3643636485_ '0))) (begin - (let ((_g43082_ + (let ((_g43192_ (let () (declare (not safe)) - (if (##values? _g43081_) + (if (##values? _g43191_) (##vector-length - _g43081_) + _g43191_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43082_ 2))) + (##fx= _g43192_ 2))) (error "Context expects 2 values" - _g43082_))) - (let ((_target3635836407_ + _g43192_))) + (let ((_target3643936488_ (let () (declare (not safe)) - (##vector-ref _g43081_ 0))) - (_tl3636036410_ + (##vector-ref _g43191_ 0))) + (_tl3644136491_ (let () (declare (not safe)) - (##vector-ref _g43081_ 1)))) - (if (gx#stx-null? _tl3636036410_) - (letrec ((_loop3636136413_ - (lambda (_hd3635936417_ + (##vector-ref _g43191_ 1)))) + (if (gx#stx-null? _tl3644136491_) + (letrec ((_loop3644236494_ + (lambda (_hd3644036498_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _new-id3636536420_ - _id3636636422_) - (if (gx#stx-pair? _hd3635936417_) - (let ((_e3636236425_ (gx#syntax-e _hd3635936417_))) - (let ((_lp-hd3636336429_ + _new-id3644636501_ + _id3644736503_) + (if (gx#stx-pair? _hd3644036498_) + (let ((_e3644336506_ (gx#syntax-e _hd3644036498_))) + (let ((_lp-hd3644436510_ (let () (declare (not safe)) - (##car _e3636236425_))) - (_lp-tl3636436432_ + (##car _e3644336506_))) + (_lp-tl3644536513_ (let () (declare (not safe)) - (##cdr _e3636236425_)))) - (if (gx#stx-pair? _lp-hd3636336429_) - (let ((_e3637136435_ - (gx#syntax-e _lp-hd3636336429_))) - (let ((_hd3637036439_ + (##cdr _e3644336506_)))) + (if (gx#stx-pair? _lp-hd3644436510_) + (let ((_e3645236516_ + (gx#syntax-e _lp-hd3644436510_))) + (let ((_hd3645136520_ (let () (declare (not safe)) - (##car _e3637136435_))) - (_tl3636936442_ + (##car _e3645236516_))) + (_tl3645036523_ (let () (declare (not safe)) - (##cdr _e3637136435_)))) - (if (gx#stx-pair? _tl3636936442_) - (let ((_e3637436445_ - (gx#syntax-e _tl3636936442_))) - (let ((_hd3637336449_ + (##cdr _e3645236516_)))) + (if (gx#stx-pair? _tl3645036523_) + (let ((_e3645536526_ + (gx#syntax-e _tl3645036523_))) + (let ((_hd3645436530_ (let () (declare (not safe)) - (##car _e3637436445_))) - (_tl3637236452_ + (##car _e3645536526_))) + (_tl3645336533_ (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 _e3645536526_)))) + (if (gx#stx-null? _tl3645336533_) + (_loop3644236494_ + _lp-tl3644536513_ + (cons _hd3645436530_ + _new-id3644636501_) + (cons _hd3645136520_ + _id3644736503_)) + (_g3642836461_ _g3642936465_)))) + (_g3642836461_ _g3642936465_)))) + (_g3642836461_ _g3642936465_)))) + (let ((_new-id3644836536_ (reverse _new-id3644636501_)) + (_id3644936539_ (reverse _id3644736503_))) + ((lambda (_L36542_ _L36544_ _L36545_) (if (and (gx#identifier-list? - (foldr (lambda (_g3648236485_ - _g3648336488_) - (cons _g3648236485_ - _g3648336488_)) + (foldr (lambda (_g3656336566_ + _g3656436569_) + (cons _g3656336566_ + _g3656436569_)) '() - _L36463_)) + _L36544_)) (gx#identifier-list? - (foldr (lambda (_g3649036493_ - _g3649136496_) - (cons _g3649036493_ - _g3649136496_)) + (foldr (lambda (_g3657136574_ + _g3657236577_) + (cons _g3657136574_ + _g3657236577_)) '() - _L36461_))) - (let* ((_keytab36499_ (make-hash-table)) - (_found36502_ (make-hash-table)) - (_g43083_ + _L36542_))) + (let* ((_keytab36580_ (make-hash-table)) + (_found36583_ (make-hash-table)) + (_g43193_ (for-each - (lambda (_id36505_ _new-id36507_) + (lambda (_id36586_ _new-id36588_) (hash-put! - _keytab36499_ - (gx#core-identifier-key _id36505_) + _keytab36580_ + (gx#core-identifier-key _id36586_) (gx#core-identifier-key - _new-id36507_))) - (foldr (lambda (_g3650836511_ - _g3650936514_) - (cons _g3650836511_ - _g3650936514_)) + _new-id36588_))) + (foldr (lambda (_g3658936592_ + _g3659036595_) + (cons _g3658936592_ + _g3659036595_)) '() - _L36463_) - (foldr (lambda (_g3651636519_ - _g3651736522_) - (cons _g3651636519_ - _g3651736522_)) + _L36544_) + (foldr (lambda (_g3659736600_ + _g3659836603_) + (cons _g3659736600_ + _g3659836603_)) '() - _L36461_))) - (_exports36527_ + _L36542_))) + (_exports36608_ (gx#core-expand-export-source - _L36464_)) - (_fold-e36547_ - (letrec ((_fold-e36530_ - (lambda (_out36533_ _r36535_) + _L36545_)) + (_fold-e36628_ + (letrec ((_fold-e36611_ + (lambda (_out36614_ _r36616_) (if (gx#module-export? - _out36533_) - (let* ((_name36537_ + _out36614_) + (let* ((_name36618_ (gx#module-export-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out36533_)) - (_$e36540_ (hash-get _keytab36499_ _name36537_))) - (if _$e36540_ - ((lambda (_rename36544_) - (hash-put! _found36502_ _name36537_ '#t) + _out36614_)) + (_$e36621_ (hash-get _keytab36580_ _name36618_))) + (if _$e36621_ + ((lambda (_rename36625_) + (hash-put! _found36583_ _name36618_ '#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_)))))) + _out36614_ + _rename36625_)) + _r36616_)) + _$e36621_) + (cons _out36614_ _r36616_))) + (if (gx#export-set? _out36614_) + (foldl _fold-e36611_ + _r36616_ + (gx#export-set-exports _out36614_)) + (cons _out36614_ _r36616_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e36530_)) - (_new-exports36550_ - (foldl _fold-e36547_ + _fold-e36611_)) + (_new-exports36631_ + (foldl _fold-e36628_ '() - _exports36527_))) + _exports36608_))) (for-each - (lambda (_id36555_) + (lambda (_id36636_) (if (hash-get - _found36502_ - (gx#core-identifier-key _id36555_)) + _found36583_ + (gx#core-identifier-key _id36636_)) '#!void (gx#raise-syntax-error '#f '"Bad syntax; identifier is not in the export set" - _stx36344_ - _id36555_))) - (foldr (lambda (_g3655736560_ _g3655836563_) - (cons _g3655736560_ _g3655836563_)) + _stx36425_ + _id36636_))) + (foldr (lambda (_g3663836641_ _g3663936644_) + (cons _g3663836641_ _g3663936644_)) '() - _L36463_)) - (cons 'begin: _new-exports36550_)) - (_g3634736380_ _g3634836384_))) - _new-id3636736455_ - _id3636836458_ - _hd3635636401_)))))) + _L36544_)) + (cons 'begin: _new-exports36631_)) + (_g3642836461_ _g3642936465_))) + _new-id3644836536_ + _id3644936539_ + _hd3643736482_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3636136413_ - _target3635836407_ + (_loop3644236494_ + _target3643936488_ '() '())) - (_g3634736380_ - _g3634836384_))))) - (_g3634736380_ _g3634836384_)))) - (_g3634736380_ _g3634836384_)))) - (_g3634736380_ _g3634836384_))))) - (_g3634636566_ _stx36344_))))) + (_g3642836461_ + _g3642936465_))))) + (_g3642836461_ _g3642936465_)))) + (_g3642836461_ _g3642936465_)))) + (_g3642836461_ _g3642936465_))))) + (_g3642736647_ _stx36425_))))) (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 (_stx36653_) + (let* ((_g3665636674_ + (lambda (_g3665736670_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3665736670_))) + (_g3665536753_ + (lambda (_g3665736678_) + (if (gx#stx-pair? _g3665736678_) + (let ((_e3666236681_ (gx#syntax-e _g3665736678_))) + (let ((_hd3666136685_ (let () (declare (not safe)) - (##car _e3658136600_))) - (_tl3657936607_ + (##car _e3666236681_))) + (_tl3666036688_ (let () (declare (not safe)) - (##cdr _e3658136600_)))) - (if (gx#stx-pair? _tl3657936607_) - (let ((_e3658436610_ - (gx#syntax-e _tl3657936607_))) - (let ((_hd3658336614_ + (##cdr _e3666236681_)))) + (if (gx#stx-pair? _tl3666036688_) + (let ((_e3666536691_ + (gx#syntax-e _tl3666036688_))) + (let ((_hd3666436695_ (let () (declare (not safe)) - (##car _e3658436610_))) - (_tl3658236617_ + (##car _e3666536691_))) + (_tl3666336698_ (let () (declare (not safe)) - (##cdr _e3658436610_)))) - (if (gx#stx-pair? _tl3658236617_) - (let ((_e3658736620_ - (gx#syntax-e _tl3658236617_))) - (let ((_hd3658636624_ + (##cdr _e3666536691_)))) + (if (gx#stx-pair? _tl3666336698_) + (let ((_e3666836701_ + (gx#syntax-e _tl3666336698_))) + (let ((_hd3666736705_ (let () (declare (not safe)) - (##car _e3658736620_))) - (_tl3658536627_ + (##car _e3666836701_))) + (_tl3666636708_ (let () (declare (not safe)) - (##cdr _e3658736620_)))) - (if (gx#stx-null? _tl3658536627_) - ((lambda (_L36630_ _L36632_) - (if (gx#identifier? _L36630_) - (let* ((_pre36648_ + (##cdr _e3666836701_)))) + (if (gx#stx-null? _tl3666636708_) + ((lambda (_L36711_ _L36713_) + (if (gx#identifier? _L36711_) + (let* ((_pre36729_ (gx#stx-e - _L36630_)) - (_exports36651_ + _L36711_)) + (_exports36732_ (gx#core-expand-export-source - _L36632_)) - (_rename-e36657_ - (lambda (_name36654_) + _L36713_)) + (_rename-e36738_ + (lambda (_name36735_) (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_ + _name36735_ + _pre36729_)))) + (_fold-e36748_ + (letrec ((_fold-e36741_ + (lambda (_out36744_ _r36746_) + (if (gx#module-export? _out36744_) + (cons (let ((__tmp43194 + (_rename-e36738_ (gx#module-export-name - _out36663_)))) + _out36744_)))) (declare (not safe)) (|gerbil/core$[1]#module-export-rename| - _out36663_ - __tmp43084)) - _r36665_) - (if (gx#export-set? _out36663_) - (foldl _fold-e36660_ - _r36665_ + _out36744_ + __tmp43194)) + _r36746_) + (if (gx#export-set? _out36744_) + (foldl _fold-e36741_ + _r36746_ (gx#export-set-exports - _out36663_)) - (cons _out36663_ _r36665_)))))) - _fold-e36660_))) - (cons 'begin: (foldl _fold-e36667_ '() _exports36651_))) + _out36744_)) + (cons _out36744_ _r36746_)))))) + _fold-e36741_))) + (cons 'begin: (foldl _fold-e36748_ '() _exports36732_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3657536593_ - _g3657636597_))) - _hd3658636624_ - _hd3658336614_) - (_g3657536593_ _g3657636597_)))) - (_g3657536593_ _g3657636597_)))) - (_g3657536593_ _g3657636597_)))) - (_g3657536593_ _g3657636597_))))) - (_g3657436672_ _stx36572_))))) + (_g3665636674_ + _g3665736678_))) + _hd3666736705_ + _hd3666436695_) + (_g3665636674_ _g3665736678_)))) + (_g3665636674_ _g3665736678_)))) + (_g3665636674_ _g3665736678_)))) + (_g3665636674_ _g3665736678_))))) + (_g3665536753_ _stx36653_))))) (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 (_stx36757_) + (let* ((_g3676036780_ + (lambda (_g3676136776_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3676136776_))) + (_g3675937015_ + (lambda (_g3676136784_) + (if (gx#stx-pair? _g3676136784_) + (let ((_e3676536787_ (gx#syntax-e _g3676136784_))) + (let ((_hd3676436791_ (let () (declare (not safe)) - (##car _e3668436706_))) - (_tl3668236713_ + (##car _e3676536787_))) + (_tl3676336794_ (let () (declare (not safe)) - (##cdr _e3668436706_)))) - (if (gx#stx-pair/null? _tl3668236713_) - (let ((_g43085_ + (##cdr _e3676536787_)))) + (if (gx#stx-pair/null? _tl3676336794_) + (let ((_g43195_ (gx#syntax-split-splice - _tl3668236713_ + _tl3676336794_ '0))) (begin - (let ((_g43086_ + (let ((_g43196_ (let () (declare (not safe)) - (if (##values? _g43085_) - (##vector-length _g43085_) + (if (##values? _g43195_) + (##vector-length _g43195_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g43086_ 2))) + (##fx= _g43196_ 2))) (error "Context expects 2 values" - _g43086_))) - (let ((_target3668536716_ + _g43196_))) + (let ((_target3676636797_ (let () (declare (not safe)) - (##vector-ref _g43085_ 0))) - (_tl3668736719_ + (##vector-ref _g43195_ 0))) + (_tl3676836800_ (let () (declare (not safe)) - (##vector-ref _g43085_ 1)))) - (if (gx#stx-null? _tl3668736719_) - (letrec ((_loop3668836722_ - (lambda (_hd3668636726_ - _id3669236729_) + (##vector-ref _g43195_ 1)))) + (if (gx#stx-null? _tl3676836800_) + (letrec ((_loop3676936803_ + (lambda (_hd3676736807_ + _id3677336810_) (if (gx#stx-pair? - _hd3668636726_) - (let ((_e3668936732_ + _hd3676736807_) + (let ((_e3677036813_ (gx#syntax-e - _hd3668636726_))) - (let ((_lp-hd3669036736_ + _hd3676736807_))) + (let ((_lp-hd3677136817_ (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 _e3677036813_))) + (_lp-tl3677236820_ + (let () (declare (not safe)) (##cdr _e3677036813_)))) + (_loop3676936803_ + _lp-tl3677236820_ + (cons _lp-hd3677136817_ _id3677336810_)))) + (let ((_id3677436823_ (reverse _id3677336810_))) + ((lambda (_L36827_) + (let _lp36843_ ((_rest36846_ + (foldr (lambda (_g3700637009_ + _g3700737012_) + (cons _g3700637009_ + _g3700737012_)) '() - _L36746_)) - (_ids36767_ '())) - (let* ((___stx4269442695_ _rest36765_) - (_g3677036782_ + _L36827_)) + (_ids36848_ '())) + (let* ((___stx4277542776_ _rest36846_) + (_g3685136863_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx4269442695_)))) - (let ((___kont4269742698_ - (lambda (_L36810_ _L36812_) - (let ((_info36827_ + ___stx4277542776_)))) + (let ((___kont4277842779_ + (lambda (_L36891_ _L36893_) + (let ((_info36908_ (gx#syntax-local-value - _L36812_ + _L36893_ false))) (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#expander-type-info::t| - _info36827_)) - (let* ((_g3682936846_ + _info36908_)) + (let* ((_g3691036927_ (slot-ref - _info36827_ + _info36908_ 'expander-identifiers)) - (_E3683136852_ + (_E3691236933_ (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_ + _g3691036927_))) + (_K3691336945_ + (lambda (_setf36937_ + _getf36939_ + _type?36940_ + _make-type36941_ + _type::t36942_ + _super36943_) + (_lp36843_ + _L36891_ + (cons _L36893_ + (cons _type::t36942_ + (cons _make-type36941_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _type?36859_ + (cons _type?36940_ (foldr cons - (foldr cons _ids36767_ _setf36856_) - _getf36858_))))))))) + (foldr cons _ids36848_ _setf36937_) + _getf36939_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _g3682936846_)) - (let ((_hd3683336868_ + (##pair? _g3691036927_)) + (let ((_hd3691436949_ (let () (declare (not safe)) - (##car _g3682936846_))) - (_tl3683436871_ + (##car _g3691036927_))) + (_tl3691536952_ (let () (declare (not safe)) - (##cdr _g3682936846_)))) - (let ((_super36874_ - _hd3683336868_)) + (##cdr _g3691036927_)))) + (let ((_super36955_ + _hd3691436949_)) (if (let () (declare (not safe)) - (##pair? _tl3683436871_)) - (let ((_hd3683536877_ + (##pair? _tl3691536952_)) + (let ((_hd3691636958_ (let () (declare (not safe)) - (##car _tl3683436871_))) - (_tl3683636880_ + (##car _tl3691536952_))) + (_tl3691736961_ (let () (declare (not safe)) - (##cdr _tl3683436871_)))) - (let ((_type::t36883_ - _hd3683536877_)) + (##cdr _tl3691536952_)))) + (let ((_type::t36964_ + _hd3691636958_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##pair? _tl3683636880_)) - (let ((_hd3683736886_ + (##pair? _tl3691736961_)) + (let ((_hd3691836967_ (let () (declare (not safe)) - (##car _tl3683636880_))) - (_tl3683836889_ + (##car _tl3691736961_))) + (_tl3691936970_ (let () (declare (not safe)) - (##cdr _tl3683636880_)))) - (let ((_make-type36892_ _hd3683736886_)) + (##cdr _tl3691736961_)))) + (let ((_make-type36973_ _hd3691836967_)) (if (let () (declare (not safe)) - (##pair? _tl3683836889_)) - (let ((_hd3683936895_ + (##pair? _tl3691936970_)) + (let ((_hd3692036976_ (let () (declare (not safe)) - (##car _tl3683836889_))) - (_tl3684036898_ + (##car _tl3691936970_))) + (_tl3692136979_ (let () (declare (not safe)) - (##cdr _tl3683836889_)))) - (let ((_type?36901_ _hd3683936895_)) + (##cdr _tl3691936970_)))) + (let ((_type?36982_ _hd3692036976_)) (if (let () (declare (not safe)) - (##pair? _tl3684036898_)) - (let ((_hd3684136904_ + (##pair? _tl3692136979_)) + (let ((_hd3692236985_ (let () (declare (not safe)) - (##car _tl3684036898_))) - (_tl3684236907_ + (##car _tl3692136979_))) + (_tl3692336988_ (let () (declare (not safe)) - (##cdr _tl3684036898_)))) - (let ((_getf36910_ _hd3684136904_)) + (##cdr _tl3692136979_)))) + (let ((_getf36991_ _hd3692236985_)) (if (let () (declare (not safe)) - (##pair? _tl3684236907_)) - (let ((_hd3684336913_ + (##pair? _tl3692336988_)) + (let ((_hd3692436994_ (let () (declare (not safe)) - (##car _tl3684236907_))) - (_tl3684436916_ + (##car _tl3692336988_))) + (_tl3692536997_ (let () (declare (not safe)) - (##cdr _tl3684236907_)))) - (let ((_setf36919_ - _hd3684336913_)) + (##cdr _tl3692336988_)))) + (let ((_setf37000_ + _hd3692436994_)) (if (let () (declare (not safe)) - (##null? _tl3684436916_)) - (_K3683236864_ - _setf36919_ - _getf36910_ - _type?36901_ - _make-type36892_ - _type::t36883_ - _super36874_) - (_E3683136852_)))) - (_E3683136852_)))) - (_E3683136852_)))) - (_E3683136852_)))) - (_E3683136852_)))) + (##null? _tl3692536997_)) + (_K3691336945_ + _setf37000_ + _getf36991_ + _type?36982_ + _make-type36973_ + _type::t36964_ + _super36955_) + (_E3691236933_)))) + (_E3691236933_)))) + (_E3691236933_)))) + (_E3691236933_)))) + (_E3691236933_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E3683136852_)))) - (_E3683136852_))) + (_E3691236933_)))) + (_E3691236933_))) (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_ + _stx36757_ + _L36893_))))) + (___kont4278042781_ + (lambda () (cons 'begin: _ids36848_)))) + (if (gx#stx-pair? ___stx4277542776_) + (let ((_e3685736881_ + (gx#syntax-e ___stx4277542776_))) + (let ((_tl3685536888_ (let () (declare (not safe)) - (##cdr _e3677636800_))) - (_hd3677536804_ + (##cdr _e3685736881_))) + (_hd3685636885_ (let () (declare (not safe)) - (##car _e3677636800_)))) - (___kont4269742698_ - _tl3677436807_ - _hd3677536804_))) - (___kont4269942700_)))))) - _id3669336742_)))))) + (##car _e3685736881_)))) + (___kont4277842779_ + _tl3685536888_ + _hd3685636885_))) + (___kont4278042781_)))))) + _id3677436823_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3668836722_ - _target3668536716_ + (_loop3676936803_ + _target3676636797_ '())) - (_g3667936699_ _g3668036703_))))) - (_g3667936699_ _g3668036703_)))) - (_g3667936699_ _g3668036703_))))) - (_g3667836934_ _stx36676_)))))) + (_g3676036780_ _g3676136784_))))) + (_g3676036780_ _g3676136784_)))) + (_g3676036780_ _g3676136784_))))) + (_g3675937015_ _stx36757_)))))) diff --git a/src/bootstrap/gerbil/core__16.scm b/src/bootstrap/gerbil/core__16.scm index 5267d19396..d5b33c6c65 100644 --- a/src/bootstrap/gerbil/core__16.scm +++ b/src/bootstrap/gerbil/core__16.scm @@ -1,37 +1,37 @@ (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 (_stx37021_) + (let* ((_g3702437038_ + (lambda (_g3702537034_) + (gx#raise-syntax-error '#f '"Bad syntax" _g3702537034_))) + (_g3702337080_ + (lambda (_g3702537042_) + (if (gx#stx-pair? _g3702537042_) + (let ((_e3702937045_ (gx#syntax-e _g3702537042_))) + (let ((_hd3702837049_ + (let () (declare (not safe)) (##car _e3702937045_))) + (_tl3702737052_ (let () (declare (not safe)) - (##cdr _e3694836964_)))) - (if (gx#stx-pair? _tl3694636971_) - (let ((_e3695136974_ (gx#syntax-e _tl3694636971_))) - (let ((_hd3695036978_ + (##cdr _e3702937045_)))) + (if (gx#stx-pair? _tl3702737052_) + (let ((_e3703237055_ (gx#syntax-e _tl3702737052_))) + (let ((_hd3703137059_ (let () (declare (not safe)) - (##car _e3695136974_))) - (_tl3694936981_ + (##car _e3703237055_))) + (_tl3703037062_ (let () (declare (not safe)) - (##cdr _e3695136974_)))) - (if (gx#stx-null? _tl3694936981_) - ((lambda (_L36984_) + (##cdr _e3703237055_)))) + (if (gx#stx-null? _tl3703037062_) + ((lambda (_L37065_) (if (gx#current-expander-compiling?) - (gx#eval-syntax _L36984_) + (gx#eval-syntax _L37065_) '#!void) (cons (gx#datum->syntax '#f 'void) '())) - _hd3695036978_) - (_g3694336957_ _g3694436961_)))) - (_g3694336957_ _g3694436961_)))) - (_g3694336957_ _g3694436961_))))) - (_g3694236999_ _stx36940_)))) + _hd3703137059_) + (_g3702437038_ _g3702537042_)))) + (_g3702437038_ _g3702537042_)))) + (_g3702437038_ _g3702537042_))))) + (_g3702337080_ _stx37021_)))) diff --git a/src/bootstrap/gerbil/core__2.scm b/src/bootstrap/gerbil/core__2.scm index f9cbab9d58..c3d3d2c9fe 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]#_g42794_| (##structure gx#syntax-quote::t 'values @@ -31,31 +31,31 @@ (declare (not safe)) (##cdr _e5486_)))) (if (gx#stx-pair/null? _tl5293_) - (let ((_g42709_ + (let ((_g42790_ (gx#syntax-split-splice _tl5293_ '0))) (begin - (let ((_g42710_ + (let ((_g42791_ (let () (declare (not safe)) - (if (##values? _g42709_) + (if (##values? _g42790_) (##vector-length - _g42709_) + _g42790_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42710_ 2))) + (##fx= _g42791_ 2))) (error "Context expects 2 values" - _g42710_))) + _g42791_))) (let ((_target5596_ (let () (declare (not safe)) - (##vector-ref _g42709_ 0))) + (##vector-ref _g42790_ 0))) (_tl5799_ (let () (declare (not safe)) - (##vector-ref _g42709_ 1)))) + (##vector-ref _g42790_ 1)))) (if (gx#stx-null? _tl5799_) (letrec ((_loop58102_ (lambda (_hd56106_ @@ -80,15 +80,15 @@ (let* ((_body291_ (gx#stx-map (lambda (_clause148_) - (let* ((___stx3700637007_ + (let* ((___stx3708737088_ _clause148_) (_g152179_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3700637007_)))) - (let ((___kont3700937010_ + ___stx3708737088_)))) + (let ((___kont3709037091_ (lambda (_L264_ _L266_) (cons _L266_ (cons (cons (gx#datum->syntax @@ -98,7 +98,7 @@ (cons _L264_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3701137012_ + (___kont3709237093_ (lambda (_L216_ _L218_ _L219_) @@ -110,10 +110,10 @@ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx3700637007_) + ___stx3708737088_) (let ((_e158244_ (gx#syntax-e - ___stx3700637007_))) + ___stx3708737088_))) (let ((_tl156251_ (let () (declare @@ -129,7 +129,7 @@ (_hd160258_ (let () (declare (not safe)) (##car _e161254_)))) (if (gx#stx-null? _tl159261_) - (___kont3700937010_ _hd160258_ _hd157248_) + (___kont3709037091_ _hd160258_ _hd157248_) (if (gx#stx-pair? _tl159261_) (let ((_e173206_ (gx#syntax-e _tl159261_))) (let ((_tl171213_ @@ -141,7 +141,7 @@ (declare (not safe)) (##car _e173206_)))) (if (gx#stx-null? _tl171213_) - (___kont3701137012_ + (___kont3709237093_ _hd172210_ _hd160258_ _hd157248_) @@ -167,41 +167,41 @@ (_g293370_ (lambda (_g295315_) (if (gx#stx-pair/null? _g295315_) - (let ((_g42711_ + (let ((_g42792_ (gx#syntax-split-splice _g295315_ '0))) (begin - (let ((_g42712_ + (let ((_g42793_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42711_) - (##vector-length _g42711_) + _g42792_) + (##vector-length _g42792_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42712_ 2))) - (error "Context expects 2 values" _g42712_))) + (##fx= _g42793_ 2))) + (error "Context expects 2 values" _g42793_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target297318_ (let () (declare (not safe)) (##vector-ref - _g42711_ + _g42792_ 0))) (_tl299321_ (let () (declare (not safe)) (##vector-ref - _g42711_ + _g42792_ 1)))) (if (gx#stx-null? _tl299321_) @@ -263,14 +263,14 @@ (_g44374_ _stx42_)))) (define |gerbil/core$[:0:]#with-syntax| (lambda (_stx380_) - (let* ((___stx3705037051_ _stx380_) + (let* ((___stx3713137132_ _stx380_) (_g385470_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3705037051_)))) - (let ((___kont3705337054_ + ___stx3713137132_)))) + (let ((___kont3713437135_ (lambda (_L810_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -278,7 +278,7 @@ (cons _g826829_ _g827832_)) '() _L810_))))) - (___kont3705737058_ + (___kont3713837139_ (lambda (_L718_ _L720_ _L721_) (cons (gx#datum->syntax '#f 'syntax-case) (cons _L720_ @@ -296,7 +296,7 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (___kont3706137062_ + (___kont3714237143_ (lambda (_L581_ _L583_ _L584_) (cons (gx#datum->syntax '#f 'syntax-case) (cons (cons (gx#datum->syntax '#f 'list) @@ -324,14 +324,14 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (let* ((___match3715137152_ + (let* ((___match3723237233_ (lambda (_e435477_ _hd434481_ _tl433484_ _e438487_ _hd437491_ _tl436494_ - ___splice3706337064_ + ___splice3714437145_ _target439497_ _tl441500_) (letrec ((_loop442503_ @@ -384,7 +384,7 @@ (let ((_pat449548_ (reverse _pat447512_)) (_e448545_ (reverse _e446510_))) (if (gx#stx-pair/null? _tl436494_) - (let ((___splice3706537066_ + (let ((___splice3714637147_ (gx#syntax-split-splice _tl436494_ '0))) @@ -392,13 +392,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice3706537066_ + ___splice3714637147_ '1))) (_target456551_ (let () (declare (not safe)) (##vector-ref - ___splice3706537066_ + ___splice3714637147_ '0)))) (if (gx#stx-null? _tl458554_) (letrec ((_loop459557_ @@ -419,7 +419,7 @@ _lp-tl462574_ (cons _lp-hd461571_ _body463564_)))) (let ((_body464577_ (reverse _body463564_))) - (___kont3706137062_ + (___kont3714237143_ _body464577_ _e448545_ _pat449548_)))))) @@ -432,7 +432,7 @@ (declare (not safe)) (_g385470_)))))))) (_loop442503_ _target439497_ '() '())))) - (___match3713137132_ + (___match3721237213_ (lambda (_e408638_ _hd407642_ _tl406645_ @@ -448,7 +448,7 @@ _e420678_ _hd419682_ _tl418685_ - ___splice3705937060_ + ___splice3714037141_ _target421688_ _tl423691_) (letrec ((_loop424694_ @@ -469,19 +469,19 @@ (cons _lp-hd426708_ _body428701_)))) (let ((_body429714_ (reverse _body428701_))) - (___kont3705737058_ + (___kont3713837139_ _body429714_ _hd419682_ _hd416672_)))))) (_loop424694_ _target421688_ '())))) - (___match3708937090_ + (___match3717037171_ (lambda (_e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3705537056_ + ___splice3713637137_ _target394780_ _tl396783_) (letrec ((_loop397786_ @@ -502,10 +502,10 @@ (cons _lp-hd399800_ _body401793_)))) (let ((_body402806_ (reverse _body401793_))) - (___kont3705337054_ _body402806_)))))) + (___kont3713437135_ _body402806_)))))) (_loop397786_ _target394780_ '()))))) - (if (gx#stx-pair? ___stx3705037051_) - (let ((_e390760_ (gx#syntax-e ___stx3705037051_))) + (if (gx#stx-pair? ___stx3713137132_) + (let ((_e390760_ (gx#syntax-e ___stx3713137132_))) (let ((_tl388767_ (let () (declare (not safe)) (##cdr _e390760_))) (_hd389764_ @@ -522,7 +522,7 @@ (##car _e393770_)))) (if (gx#stx-null? _hd392774_) (if (gx#stx-pair/null? _tl391777_) - (let ((___splice3705537056_ + (let ((___splice3713637137_ (gx#syntax-split-splice _tl391777_ '0))) @@ -530,28 +530,28 @@ (let () (declare (not safe)) (##vector-ref - ___splice3705537056_ + ___splice3713637137_ '1))) (_target394780_ (let () (declare (not safe)) (##vector-ref - ___splice3705537056_ + ___splice3713637137_ '0)))) (if (gx#stx-null? _tl396783_) - (___match3708937090_ + (___match3717037171_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3705537056_ + ___splice3713637137_ _target394780_ _tl396783_) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3714437145_ (gx#syntax-split-splice _hd392774_ '0))) @@ -560,25 +560,25 @@ (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3723237233_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3714437145_ _target439497_ _tl441500_) (let () @@ -589,7 +589,7 @@ (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3714437145_ (gx#syntax-split-splice _hd392774_ '0))) @@ -597,23 +597,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3723237233_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3714437145_ _target439497_ _tl441500_) (let () @@ -658,22 +658,22 @@ (if (gx#stx-null? _tl418685_) (if (gx#stx-null? _tl412665_) (if (gx#stx-pair/null? _tl391777_) - (let ((___splice3705937060_ + (let ((___splice3714037141_ (gx#syntax-split-splice _tl391777_ '0))) (let ((_tl423691_ (let () (declare (not safe)) (##vector-ref - ___splice3705937060_ + ___splice3714037141_ '1))) (_target421688_ (let () (declare (not safe)) (##vector-ref - ___splice3705937060_ + ___splice3714037141_ '0)))) (if (gx#stx-null? _tl423691_) - (___match3713137132_ + (___match3721237213_ _e390760_ _hd389764_ _tl388767_ @@ -689,11 +689,11 @@ _e420678_ _hd419682_ _tl418685_ - ___splice3705937060_ + ___splice3714037141_ _target421688_ _tl423691_) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3714437145_ (gx#syntax-split-splice _hd392774_ '0))) @@ -701,23 +701,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3723237233_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3714437145_ _target439497_ _tl441500_) (let () @@ -727,7 +727,7 @@ (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3714437145_ (gx#syntax-split-splice _hd392774_ '0))) @@ -735,23 +735,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3723237233_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3714437145_ _target439497_ _tl441500_) (let () @@ -759,29 +759,29 @@ (_g385470_))))) (let () (declare (not safe)) (_g385470_)))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3714437145_ (gx#syntax-split-splice _hd392774_ '0))) (let ((_tl441500_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3723237233_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3714437145_ _target439497_ _tl441500_) (let () @@ -789,49 +789,49 @@ (_g385470_))))) (let () (declare (not safe)) (_g385470_)))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3714437145_ (gx#syntax-split-splice _hd392774_ '0))) (let ((_tl441500_ (let () (declare (not safe)) - (##vector-ref ___splice3706337064_ '1))) + (##vector-ref ___splice3714437145_ '1))) (_target439497_ (let () (declare (not safe)) - (##vector-ref ___splice3706337064_ '0)))) + (##vector-ref ___splice3714437145_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3723237233_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3714437145_ _target439497_ _tl441500_) (let () (declare (not safe)) (_g385470_))))) (let () (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3714437145_ (gx#syntax-split-splice _hd392774_ '0))) (let ((_tl441500_ (let () (declare (not safe)) - (##vector-ref ___splice3706337064_ '1))) + (##vector-ref ___splice3714437145_ '1))) (_target439497_ (let () (declare (not safe)) - (##vector-ref ___splice3706337064_ '0)))) + (##vector-ref ___splice3714437145_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3723237233_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3714437145_ _target439497_ _tl441500_) (let () (declare (not safe)) (_g385470_))))) @@ -839,7 +839,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3714437145_ (gx#syntax-split-splice _hd392774_ '0))) @@ -848,25 +848,25 @@ (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3723237233_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3714437145_ _target439497_ _tl441500_) (let () @@ -877,7 +877,7 @@ (declare (not safe)) (_g385470_)))))) (if (gx#stx-pair/null? _hd392774_) - (let ((___splice3706337064_ + (let ((___splice3714437145_ (gx#syntax-split-splice _hd392774_ '0))) @@ -885,23 +885,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '1))) (_target439497_ (let () (declare (not safe)) (##vector-ref - ___splice3706337064_ + ___splice3714437145_ '0)))) (if (gx#stx-null? _tl441500_) - (___match3715137152_ + (___match3723237233_ _e390760_ _hd389764_ _tl388767_ _e393770_ _hd392774_ _tl391777_ - ___splice3706337064_ + ___splice3714437145_ _target439497_ _tl441500_) (let () @@ -914,14 +914,14 @@ (let () (declare (not safe)) (_g385470_)))))))) (define |gerbil/core$[:0:]#with-syntax*| (lambda (_stx843_) - (let* ((___stx3715437155_ _stx843_) + (let* ((___stx3723537236_ _stx843_) (_g848925_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3715437155_)))) - (let ((___kont3715737158_ + ___stx3723537236_)))) + (let ((___kont3723837239_ (lambda (_L1221_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -929,7 +929,7 @@ (cons _g12371240_ _g12381243_)) '() _L1221_))))) - (___kont3716137162_ + (___kont3724237243_ (lambda (_L1123_ _L1125_ _L1126_ _L1127_ _L1128_) (cons (gx#datum->syntax '#f 'let-values) (cons (cons (cons _L1127_ (cons _L1126_ '())) '()) @@ -943,7 +943,7 @@ _L1123_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3716537166_ + (___kont3724637247_ (lambda (_L992_ _L994_ _L995_ _L996_) (cons (gx#datum->syntax '#f 'with-syntax) (cons (cons _L995_ '()) @@ -957,7 +957,7 @@ _L992_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((___match3726737268_ + (let* ((___match3734837349_ (lambda (_e904932_ _hd903936_ _tl902939_ @@ -967,7 +967,7 @@ _e910952_ _hd909956_ _tl908959_ - ___splice3716737168_ + ___splice3724837249_ _target911962_ _tl913965_) (letrec ((_loop914968_ @@ -988,13 +988,13 @@ (cons _lp-hd916982_ _body918975_)))) (let ((_body919988_ (reverse _body918975_))) - (___kont3716537166_ + (___kont3724637247_ _body919988_ _tl908959_ _hd909956_ _hd903936_)))))) (_loop914968_ _target911962_ '())))) - (___match3724137242_ + (___match3732237323_ (lambda (_e8731033_ _hd8721037_ _tl8711040_ @@ -1013,7 +1013,7 @@ _e8881083_ _hd8871087_ _tl8861090_ - ___splice3716337164_ + ___splice3724437245_ _target8891093_ _tl8911096_) (letrec ((_loop8921099_ @@ -1035,21 +1035,21 @@ _body8961106_)))) (let ((_body8971119_ (reverse _body8961106_))) - (___kont3716137162_ + (___kont3724237243_ _body8971119_ _tl8771060_ _hd8871087_ _tl8831080_ _hd8721037_)))))) (_loop8921099_ _target8891093_ '())))) - (___match3719137192_ + (___match3727237273_ (lambda (_e8531171_ _hd8521175_ _tl8511178_ _e8561181_ _hd8551185_ _tl8541188_ - ___splice3715937160_ + ___splice3724037241_ _target8571191_ _tl8591194_) (letrec ((_loop8601197_ @@ -1071,10 +1071,10 @@ _body8641204_)))) (let ((_body8651217_ (reverse _body8641204_))) - (___kont3715737158_ _body8651217_)))))) + (___kont3723837239_ _body8651217_)))))) (_loop8601197_ _target8571191_ '()))))) - (if (gx#stx-pair? ___stx3715437155_) - (let ((_e8531171_ (gx#syntax-e ___stx3715437155_))) + (if (gx#stx-pair? ___stx3723537236_) + (let ((_e8531171_ (gx#syntax-e ___stx3723537236_))) (let ((_tl8511178_ (let () (declare (not safe)) (##cdr _e8531171_))) (_hd8521175_ @@ -1091,7 +1091,7 @@ (##car _e8561181_)))) (if (gx#stx-null? _hd8551185_) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3715937160_ + (let ((___splice3724037241_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1099,23 +1099,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3715937160_ + ___splice3724037241_ '1))) (_target8571191_ (let () (declare (not safe)) (##vector-ref - ___splice3715937160_ + ___splice3724037241_ '0)))) (if (gx#stx-null? _tl8591194_) - (___match3719137192_ + (___match3727237273_ _e8531171_ _hd8521175_ _tl8511178_ _e8561181_ _hd8551185_ _tl8541188_ - ___splice3715937160_ + ___splice3724037241_ _target8571191_ _tl8591194_) (let () @@ -1161,7 +1161,7 @@ (let () (declare (not safe)) (##car _e8851073_)))) (if (gx#identifier? _hd8841077_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g42713_| + |gerbil/core$[1]#_g42794_| _hd8841077_) (if (gx#stx-pair? _tl8801070_) (let ((_e8881083_ (gx#syntax-e _tl8801070_))) @@ -1175,7 +1175,7 @@ (##car _e8881083_)))) (if (gx#stx-null? _tl8861090_) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716337164_ + (let ((___splice3724437245_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1183,16 +1183,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3716337164_ + ___splice3724437245_ '1))) (_target8891093_ (let () (declare (not safe)) (##vector-ref - ___splice3716337164_ + ___splice3724437245_ '0)))) (if (gx#stx-null? _tl8911096_) - (___match3724137242_ + (___match3732237323_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1211,7 +1211,7 @@ _e8881083_ _hd8871087_ _tl8861090_ - ___splice3716337164_ + ___splice3724437245_ _target8891093_ _tl8911096_) (let () @@ -1221,7 +1221,7 @@ (declare (not safe)) (_g848925_))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3724837249_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1229,16 +1229,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3724837249_ '1))) (_target911962_ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3724837249_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3734837349_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1248,7 +1248,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3724837249_ _target911962_ _tl913965_) (let () @@ -1258,7 +1258,7 @@ (declare (not safe)) (_g848925_)))))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3724837249_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1266,16 +1266,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3724837249_ '1))) (_target911962_ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3724837249_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3734837349_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1285,7 +1285,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3724837249_ _target911962_ _tl913965_) (let () @@ -1293,22 +1293,22 @@ (_g848925_))))) (let () (declare (not safe)) (_g848925_)))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3724837249_ (gx#syntax-split-splice _tl8541188_ '0))) (let ((_tl913965_ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3724837249_ '1))) (_target911962_ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3724837249_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3734837349_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1318,7 +1318,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3724837249_ _target911962_ _tl913965_) (let () @@ -1326,18 +1326,18 @@ (_g848925_))))) (let () (declare (not safe)) (_g848925_)))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3724837249_ (gx#syntax-split-splice _tl8541188_ '0))) (let ((_tl913965_ (let () (declare (not safe)) - (##vector-ref ___splice3716737168_ '1))) + (##vector-ref ___splice3724837249_ '1))) (_target911962_ (let () (declare (not safe)) - (##vector-ref ___splice3716737168_ '0)))) + (##vector-ref ___splice3724837249_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3734837349_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1347,24 +1347,24 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3724837249_ _target911962_ _tl913965_) (let () (declare (not safe)) (_g848925_))))) (let () (declare (not safe)) (_g848925_)))))) (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3724837249_ (gx#syntax-split-splice _tl8541188_ '0))) (let ((_tl913965_ (let () (declare (not safe)) - (##vector-ref ___splice3716737168_ '1))) + (##vector-ref ___splice3724837249_ '1))) (_target911962_ (let () (declare (not safe)) - (##vector-ref ___splice3716737168_ '0)))) + (##vector-ref ___splice3724837249_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3734837349_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1374,7 +1374,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3724837249_ _target911962_ _tl913965_) (let () (declare (not safe)) (_g848925_))))) @@ -1382,7 +1382,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl8541188_) - (let ((___splice3716737168_ + (let ((___splice3724837249_ (gx#syntax-split-splice _tl8541188_ '0))) @@ -1391,18 +1391,18 @@ (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3724837249_ '1))) (_target911962_ (let () (declare (not safe)) (##vector-ref - ___splice3716737168_ + ___splice3724837249_ '0)))) (if (gx#stx-null? _tl913965_) - (___match3726737268_ + (___match3734837349_ _e8531171_ _hd8521175_ _tl8511178_ @@ -1412,7 +1412,7 @@ _e8791053_ _hd8781057_ _tl8771060_ - ___splice3716737168_ + ___splice3724837249_ _target911962_ _tl913965_) (let () diff --git a/src/bootstrap/gerbil/core__3.scm b/src/bootstrap/gerbil/core__3.scm index 788b9f43bb..4c1c5997e3 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]#_g42803_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42723_| + (define |gerbil/core$$[1]#_g42804_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42726_| + (define |gerbil/core$$[1]#_g42807_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42727_| + (define |gerbil/core$$[1]#_g43197_| (##structure gx#syntax-quote::t 'else @@ -63,37 +63,37 @@ (declare (not safe)) (##cdr _e13521394_)))) (if (gx#stx-pair/null? _tl13501401_) - (let ((_g42714_ + (let ((_g42795_ (gx#syntax-split-splice _tl13501401_ '0))) (begin - (let ((_g42715_ + (let ((_g42796_ (let () (declare (not safe)) (if (##values? - _g42714_) + _g42795_) (##vector-length - _g42714_) + _g42795_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42715_ 2))) - (error "Context expects 2 values" _g42715_))) + (##fx= _g42796_ 2))) + (error "Context expects 2 values" _g42796_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target13531404_ (let () (declare (not safe)) (##vector-ref - _g42714_ + _g42795_ 0))) (_tl13551407_ (let () (declare (not safe)) (##vector-ref - _g42714_ + _g42795_ 1)))) (if (gx#stx-null? _tl13551407_) @@ -147,14 +147,14 @@ (_g13381468_ _$stx1335_)))) (define |gerbil/core$$[:0:]#defsyntax%| (lambda (_$stx1473_) - (let* ((___stx3727037271_ _$stx1473_) + (let* ((___stx3735137352_ _$stx1473_) (_g14781517_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3727037271_)))) - (let ((___kont3727337274_ + ___stx3735137352_)))) + (let ((___kont3735437355_ (lambda (_L1639_ _L1641_ _L1642_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _L1642_ @@ -168,11 +168,11 @@ _L1639_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3727737278_ + (___kont3735837359_ (lambda (_L1554_ _L1556_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _L1556_ (cons _L1554_ '())))))) - (let* ((___match3732537326_ + (let* ((___match3740637407_ (lambda (_e15051524_ _hd15041528_ _tl15031531_ @@ -184,9 +184,9 @@ _tl15091551_) (let ((_L1554_ _hd15101548_) (_L1556_ _hd15071538_)) (if (gx#identifier? _L1556_) - (___kont3727737278_ _L1554_ _L1556_) + (___kont3735837359_ _L1554_ _L1556_) (let () (declare (not safe)) (_g14781517_)))))) - (___match3731737318_ + (___match3739837399_ (lambda (_e15051524_ _hd15041528_ _tl15031531_ @@ -204,7 +204,7 @@ (declare (not safe)) (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3740637407_ _e15051524_ _hd15041528_ _tl15031531_ @@ -218,7 +218,7 @@ (declare (not safe)) (_g14781517_))))) (let () (declare (not safe)) (_g14781517_))))) - (___match3730537306_ + (___match3738637387_ (lambda (_e14851579_ _hd14841583_ _tl14831586_ @@ -228,7 +228,7 @@ _e14911599_ _hd14901603_ _tl14891606_ - ___splice3727537276_ + ___splice3735637357_ _target14921609_ _tl14941612_) (letrec ((_loop14951615_ @@ -254,11 +254,11 @@ (_L1641_ _tl14891606_) (_L1642_ _hd14901603_)) (if (gx#identifier? _L1642_) - (___kont3727337274_ + (___kont3735437355_ _L1639_ _L1641_ _L1642_) - (___match3731737318_ + (___match3739837399_ _e14851579_ _hd14841583_ _tl14831586_ @@ -266,8 +266,8 @@ _hd14871593_ _tl14861596_)))))))) (_loop14951615_ _target14921609_ '()))))) - (if (gx#stx-pair? ___stx3727037271_) - (let ((_e14851579_ (gx#syntax-e ___stx3727037271_))) + (if (gx#stx-pair? ___stx3735137352_) + (let ((_e14851579_ (gx#syntax-e ___stx3735137352_))) (let ((_tl14831586_ (let () (declare (not safe)) (##cdr _e14851579_))) (_hd14841583_ @@ -294,7 +294,7 @@ (declare (not safe)) (##car _e14911599_)))) (if (gx#stx-pair/null? _tl14861596_) - (let ((___splice3727537276_ + (let ((___splice3735637357_ (gx#syntax-split-splice _tl14861596_ '0))) @@ -302,16 +302,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3727537276_ + ___splice3735637357_ '1))) (_target14921609_ (let () (declare (not safe)) (##vector-ref - ___splice3727537276_ + ___splice3735637357_ '0)))) (if (gx#stx-null? _tl14941612_) - (___match3730537306_ + (___match3738637387_ _e14851579_ _hd14841583_ _tl14831586_ @@ -321,7 +321,7 @@ _e14911599_ _hd14901603_ _tl14891606_ - ___splice3727537276_ + ___splice3735637357_ _target14921609_ _tl14941612_) (if (gx#stx-pair? @@ -337,7 +337,7 @@ (_hd15101548_ (let () (declare (not safe)) (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3740637407_ _e14851579_ _hd14841583_ _tl14831586_ @@ -364,7 +364,7 @@ (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3740637407_ _e14851579_ _hd14841583_ _tl14831586_ @@ -392,7 +392,7 @@ (declare (not safe)) (##car _e15111544_)))) (if (gx#stx-null? _tl15091551_) - (___match3732537326_ + (___match3740637407_ _e14851579_ _hd14841583_ _tl14831586_ @@ -467,14 +467,14 @@ (_g16781752_ _$stx1675_)))) (define |gerbil/core$$[:0:]#define| (lambda (_$stx1756_) - (let* ((___stx3732837329_ _$stx1756_) + (let* ((___stx3740937410_ _$stx1756_) (_g17611800_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3732837329_)))) - (let ((___kont3733137332_ + ___stx3740937410_)))) + (let ((___kont3741237413_ (lambda (_L1922_ _L1924_ _L1925_) (cons (gx#datum->syntax '#f 'define-values) (cons (cons _L1925_ '()) @@ -488,11 +488,11 @@ _L1922_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3733537336_ + (___kont3741637417_ (lambda (_L1837_ _L1839_) (cons (gx#datum->syntax '#f 'define-values) (cons (cons _L1839_ '()) (cons _L1837_ '())))))) - (let* ((___match3738337384_ + (let* ((___match3746437465_ (lambda (_e17881807_ _hd17871811_ _tl17861814_ @@ -504,9 +504,9 @@ _tl17921834_) (let ((_L1837_ _hd17931831_) (_L1839_ _hd17901821_)) (if (gx#identifier? _L1839_) - (___kont3733537336_ _L1837_ _L1839_) + (___kont3741637417_ _L1837_ _L1839_) (let () (declare (not safe)) (_g17611800_)))))) - (___match3737537376_ + (___match3745637457_ (lambda (_e17881807_ _hd17871811_ _tl17861814_ @@ -524,7 +524,7 @@ (declare (not safe)) (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3746437465_ _e17881807_ _hd17871811_ _tl17861814_ @@ -538,7 +538,7 @@ (declare (not safe)) (_g17611800_))))) (let () (declare (not safe)) (_g17611800_))))) - (___match3736337364_ + (___match3744437445_ (lambda (_e17681862_ _hd17671866_ _tl17661869_ @@ -548,7 +548,7 @@ _e17741882_ _hd17731886_ _tl17721889_ - ___splice3733337334_ + ___splice3741437415_ _target17751892_ _tl17771895_) (letrec ((_loop17781898_ @@ -574,11 +574,11 @@ (_L1924_ _tl17721889_) (_L1925_ _hd17731886_)) (if (gx#identifier? _L1925_) - (___kont3733137332_ + (___kont3741237413_ _L1922_ _L1924_ _L1925_) - (___match3737537376_ + (___match3745637457_ _e17681862_ _hd17671866_ _tl17661869_ @@ -586,8 +586,8 @@ _hd17701876_ _tl17691879_)))))))) (_loop17781898_ _target17751892_ '()))))) - (if (gx#stx-pair? ___stx3732837329_) - (let ((_e17681862_ (gx#syntax-e ___stx3732837329_))) + (if (gx#stx-pair? ___stx3740937410_) + (let ((_e17681862_ (gx#syntax-e ___stx3740937410_))) (let ((_tl17661869_ (let () (declare (not safe)) (##cdr _e17681862_))) (_hd17671866_ @@ -614,7 +614,7 @@ (declare (not safe)) (##car _e17741882_)))) (if (gx#stx-pair/null? _tl17691879_) - (let ((___splice3733337334_ + (let ((___splice3741437415_ (gx#syntax-split-splice _tl17691879_ '0))) @@ -622,16 +622,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3733337334_ + ___splice3741437415_ '1))) (_target17751892_ (let () (declare (not safe)) (##vector-ref - ___splice3733337334_ + ___splice3741437415_ '0)))) (if (gx#stx-null? _tl17771895_) - (___match3736337364_ + (___match3744437445_ _e17681862_ _hd17671866_ _tl17661869_ @@ -641,7 +641,7 @@ _e17741882_ _hd17731886_ _tl17721889_ - ___splice3733337334_ + ___splice3741437415_ _target17751892_ _tl17771895_) (if (gx#stx-pair? @@ -657,7 +657,7 @@ (_hd17931831_ (let () (declare (not safe)) (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3746437465_ _e17681862_ _hd17671866_ _tl17661869_ @@ -684,7 +684,7 @@ (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3746437465_ _e17681862_ _hd17671866_ _tl17661869_ @@ -712,7 +712,7 @@ (declare (not safe)) (##car _e17941827_)))) (if (gx#stx-null? _tl17921834_) - (___match3738337384_ + (___match3746437465_ _e17681862_ _hd17671866_ _tl17661869_ @@ -732,14 +732,14 @@ (let () (declare (not safe)) (_g17611800_)))))))) (define |gerbil/core$$[:0:]#let*-values| (lambda (_$stx1958_) - (let* ((___stx3738637387_ _$stx1958_) + (let* ((___stx3746737468_ _$stx1958_) (_g19632008_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3738637387_)))) - (let ((___kont3738937390_ + ___stx3746737468_)))) + (let ((___kont3747037471_ (lambda (_L2166_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -747,7 +747,7 @@ (cons _g21822185_ _g21832188_)) '() _L2166_))))) - (___kont3739337394_ + (___kont3747437475_ (lambda (_L2075_ _L2077_ _L2078_ _L2079_) (cons (gx#datum->syntax '#f 'let-values) (cons (cons _L2078_ '()) @@ -761,7 +761,7 @@ _L2075_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((___match3744537446_ + (let* ((___match3752637527_ (lambda (_e19872015_ _hd19862019_ _tl19852022_ @@ -771,7 +771,7 @@ _e19932035_ _hd19922039_ _tl19912042_ - ___splice3739537396_ + ___splice3747637477_ _target19942045_ _tl19962048_) (letrec ((_loop19972051_ @@ -793,20 +793,20 @@ _body20012058_)))) (let ((_body20022071_ (reverse _body20012058_))) - (___kont3739337394_ + (___kont3747437475_ _body20022071_ _tl19912042_ _hd19922039_ _hd19862019_)))))) (_loop19972051_ _target19942045_ '())))) - (___match3741937420_ + (___match3750037501_ (lambda (_e19682116_ _hd19672120_ _tl19662123_ _e19712126_ _hd19702130_ _tl19692133_ - ___splice3739137392_ + ___splice3747237473_ _target19722136_ _tl19742139_) (letrec ((_loop19752142_ @@ -828,11 +828,11 @@ _body19792149_)))) (let ((_body19802162_ (reverse _body19792149_))) - (___kont3738937390_ + (___kont3747037471_ _body19802162_)))))) (_loop19752142_ _target19722136_ '()))))) - (if (gx#stx-pair? ___stx3738637387_) - (let ((_e19682116_ (gx#syntax-e ___stx3738637387_))) + (if (gx#stx-pair? ___stx3746737468_) + (let ((_e19682116_ (gx#syntax-e ___stx3746737468_))) (let ((_tl19662123_ (let () (declare (not safe)) (##cdr _e19682116_))) (_hd19672120_ @@ -849,7 +849,7 @@ (##car _e19712126_)))) (if (gx#stx-null? _hd19702130_) (if (gx#stx-pair/null? _tl19692133_) - (let ((___splice3739137392_ + (let ((___splice3747237473_ (gx#syntax-split-splice _tl19692133_ '0))) @@ -857,23 +857,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3739137392_ + ___splice3747237473_ '1))) (_target19722136_ (let () (declare (not safe)) (##vector-ref - ___splice3739137392_ + ___splice3747237473_ '0)))) (if (gx#stx-null? _tl19742139_) - (___match3741937420_ + (___match3750037501_ _e19682116_ _hd19672120_ _tl19662123_ _e19712126_ _hd19702130_ _tl19692133_ - ___splice3739137392_ + ___splice3747237473_ _target19722136_ _tl19742139_) (let () @@ -894,7 +894,7 @@ (declare (not safe)) (##car _e19932035_)))) (if (gx#stx-pair/null? _tl19692133_) - (let ((___splice3739537396_ + (let ((___splice3747637477_ (gx#syntax-split-splice _tl19692133_ '0))) @@ -902,17 +902,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice3739537396_ + ___splice3747637477_ '1))) (_target19942045_ (let () (declare (not safe)) (##vector-ref - ___splice3739537396_ + ___splice3747637477_ '0)))) (if (gx#stx-null? _tl19962048_) - (___match3744537446_ + (___match3752637527_ _e19682116_ _hd19672120_ _tl19662123_ @@ -922,7 +922,7 @@ _e19932035_ _hd19922039_ _tl19912042_ - ___splice3739537396_ + ___splice3747637477_ _target19942045_ _tl19962048_) (let () @@ -938,14 +938,14 @@ (let () (declare (not safe)) (_g19632008_)))))))) (define |gerbil/core$$[:0:]#let| (lambda (_$stx2197_) - (let* ((___stx3744837449_ _$stx2197_) + (let* ((___stx3752937530_ _$stx2197_) (_g22022266_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3744837449_)))) - (let ((___kont3745137452_ + ___stx3752937530_)))) + (let ((___kont3753237533_ (lambda (_L2472_ _L2474_ _L2475_ _L2476_ _L2477_) (cons (cons (gx#datum->syntax '#f 'letrec-values) (cons (cons (cons (cons _L2477_ '()) @@ -970,7 +970,7 @@ (cons _g25022521_ _g25032524_)) '() _L2475_)))) - (___kont3745737458_ + (___kont3753837539_ (lambda (_L2323_ _L2325_) (cons (gx#datum->syntax '#f '~let) (cons (gx#datum->syntax '#f 'let-values) @@ -979,14 +979,14 @@ (cons _g23422345_ _g23432348_)) '() _L2323_))))))) - (let* ((___match3750537506_ + (let* ((___match3758637587_ (lambda (_e22482273_ _hd22472277_ _tl22462280_ _e22512283_ _hd22502287_ _tl22492290_ - ___splice3745937460_ + ___splice3754037541_ _target22522293_ _tl22542296_) (letrec ((_loop22552299_ @@ -1008,11 +1008,11 @@ _body22592306_)))) (let ((_body22602319_ (reverse _body22592306_))) - (___kont3745737458_ + (___kont3753837539_ _body22602319_ _hd22502287_)))))) (_loop22552299_ _target22522293_ '())))) - (___match3749737498_ + (___match3757837579_ (lambda (_e22482273_ _hd22472277_ _tl22462280_ @@ -1020,32 +1020,32 @@ _hd22502287_ _tl22492290_) (if (gx#stx-pair/null? _tl22492290_) - (let ((___splice3745937460_ + (let ((___splice3754037541_ (gx#syntax-split-splice _tl22492290_ '0))) (let ((_tl22542296_ (let () (declare (not safe)) - (##vector-ref ___splice3745937460_ '1))) + (##vector-ref ___splice3754037541_ '1))) (_target22522293_ (let () (declare (not safe)) - (##vector-ref ___splice3745937460_ '0)))) + (##vector-ref ___splice3754037541_ '0)))) (if (gx#stx-null? _tl22542296_) - (___match3750537506_ + (___match3758637587_ _e22482273_ _hd22472277_ _tl22462280_ _e22512283_ _hd22502287_ _tl22492290_ - ___splice3745937460_ + ___splice3754037541_ _target22522293_ _tl22542296_) (let () (declare (not safe)) (_g22022266_))))) (let () (declare (not safe)) (_g22022266_))))) - (___match3748537486_ + (___match3756637567_ (lambda (_e22112358_ _hd22102362_ _tl22092365_ @@ -1055,7 +1055,7 @@ _e22172378_ _hd22162382_ _tl22152385_ - ___splice3745337454_ + ___splice3753437535_ _target22182388_ _tl22202391_) (letrec ((_loop22212394_ @@ -1102,14 +1102,14 @@ _lp-tl22242413_ (cons _hd22332430_ _arg22252401_) (cons _hd22302420_ _var22262403_)) - (___match3749737498_ + (___match3757837579_ _e22112358_ _hd22102362_ _tl22092365_ _e22142368_ _hd22132372_ _tl22122375_)))) - (___match3749737498_ + (___match3757837579_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1117,7 +1117,7 @@ _hd22132372_ _tl22122375_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3749737498_ + (___match3757837579_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1129,7 +1129,7 @@ (_arg22272436_ (reverse _arg22252401_))) (if (gx#stx-pair/null? _tl22152385_) - (let ((___splice3745537456_ + (let ((___splice3753637537_ (gx#syntax-split-splice _tl22152385_ '0))) @@ -1137,13 +1137,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice3745537456_ + ___splice3753637537_ '1))) (_target22352442_ (let () (declare (not safe)) (##vector-ref - ___splice3745537456_ + ___splice3753637537_ '0)))) (if (gx#stx-null? _tl22372445_) (letrec ((_loop22382448_ @@ -1170,13 +1170,13 @@ (_L2476_ _var22282439_) (_L2477_ _hd22132372_)) (if (gx#identifier? _L2477_) - (___kont3745137452_ + (___kont3753237533_ _L2472_ _L2474_ _L2475_ _L2476_ _L2477_) - (___match3749737498_ + (___match3757837579_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1185,14 +1185,14 @@ _tl22122375_)))))))) (_loop22382448_ _target22352442_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match3749737498_ + (___match3757837579_ _e22112358_ _hd22102362_ _tl22092365_ _e22142368_ _hd22132372_ _tl22122375_)))) - (___match3749737498_ + (___match3757837579_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1200,8 +1200,8 @@ _hd22132372_ _tl22122375_))))))) (_loop22212394_ _target22182388_ '() '()))))) - (if (gx#stx-pair? ___stx3744837449_) - (let ((_e22112358_ (gx#syntax-e ___stx3744837449_))) + (if (gx#stx-pair? ___stx3752937530_) + (let ((_e22112358_ (gx#syntax-e ___stx3752937530_))) (let ((_tl22092365_ (let () (declare (not safe)) (##cdr _e22112358_))) (_hd22102362_ @@ -1228,7 +1228,7 @@ (declare (not safe)) (##car _e22172378_)))) (if (gx#stx-pair/null? _hd22162382_) - (let ((___splice3745337454_ + (let ((___splice3753437535_ (gx#syntax-split-splice _hd22162382_ '0))) @@ -1236,15 +1236,15 @@ (let () (declare (not safe)) (##vector-ref - ___splice3745337454_ + ___splice3753437535_ '1))) (_target22182388_ (let () (declare (not safe)) (##vector-ref - ___splice3745337454_ + ___splice3753437535_ '0)))) - (___match3748537486_ + (___match3756637567_ _e22112358_ _hd22102362_ _tl22092365_ @@ -1254,11 +1254,11 @@ _e22172378_ _hd22162382_ _tl22152385_ - ___splice3745337454_ + ___splice3753437535_ _target22182388_ _tl22202391_))) (if (gx#stx-pair/null? _tl22122375_) - (let ((___splice3745937460_ + (let ((___splice3754037541_ (gx#syntax-split-splice _tl22122375_ '0))) @@ -1266,24 +1266,24 @@ (let () (declare (not safe)) (##vector-ref - ___splice3745937460_ + ___splice3754037541_ '1))) (_target22522293_ (let () (declare (not safe)) (##vector-ref - ___splice3745937460_ + ___splice3754037541_ '0)))) (if (gx#stx-null? _tl22542296_) - (___match3750537506_ + (___match3758637587_ _e22112358_ _hd22102362_ _tl22092365_ _e22142368_ _hd22132372_ _tl22122375_ - ___splice3745937460_ + ___splice3754037541_ _target22522293_ _tl22542296_) (let () @@ -1293,7 +1293,7 @@ (declare (not safe)) (_g22022266_)))))) (if (gx#stx-pair/null? _tl22122375_) - (let ((___splice3745937460_ + (let ((___splice3754037541_ (gx#syntax-split-splice _tl22122375_ '0))) @@ -1301,23 +1301,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice3745937460_ + ___splice3754037541_ '1))) (_target22522293_ (let () (declare (not safe)) (##vector-ref - ___splice3745937460_ + ___splice3754037541_ '0)))) (if (gx#stx-null? _tl22542296_) - (___match3750537506_ + (___match3758637587_ _e22112358_ _hd22102362_ _tl22092365_ _e22142368_ _hd22132372_ _tl22122375_ - ___splice3745937460_ + ___splice3754037541_ _target22522293_ _tl22542296_) (let () @@ -1356,31 +1356,31 @@ (declare (not safe)) (##cdr _e25472579_)))) (if (gx#stx-pair/null? _tl25452586_) - (let ((_g42716_ + (let ((_g42797_ (gx#syntax-split-splice _tl25452586_ '0))) (begin - (let ((_g42717_ + (let ((_g42798_ (let () (declare (not safe)) - (if (##values? _g42716_) + (if (##values? _g42797_) (##vector-length - _g42716_) + _g42797_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42717_ 2))) + (##fx= _g42798_ 2))) (error "Context expects 2 values" - _g42717_))) + _g42798_))) (let ((_target25482589_ (let () (declare (not safe)) - (##vector-ref _g42716_ 0))) + (##vector-ref _g42797_ 0))) (_tl25502592_ (let () (declare (not safe)) - (##vector-ref _g42716_ 1)))) + (##vector-ref _g42797_ 1)))) (if (gx#stx-null? _tl25502592_) (letrec ((_loop25512595_ (lambda (_hd25492599_ @@ -1449,31 +1449,31 @@ (declare (not safe)) (##cdr _e26652697_)))) (if (gx#stx-pair/null? _tl26632704_) - (let ((_g42718_ + (let ((_g42799_ (gx#syntax-split-splice _tl26632704_ '0))) (begin - (let ((_g42719_ + (let ((_g42800_ (let () (declare (not safe)) - (if (##values? _g42718_) + (if (##values? _g42799_) (##vector-length - _g42718_) + _g42799_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42719_ 2))) + (##fx= _g42800_ 2))) (error "Context expects 2 values" - _g42719_))) + _g42800_))) (let ((_target26662707_ (let () (declare (not safe)) - (##vector-ref _g42718_ 0))) + (##vector-ref _g42799_ 0))) (_tl26682710_ (let () (declare (not safe)) - (##vector-ref _g42718_ 1)))) + (##vector-ref _g42799_ 1)))) (if (gx#stx-null? _tl26682710_) (letrec ((_loop26692713_ (lambda (_hd26672717_ @@ -1542,31 +1542,31 @@ (declare (not safe)) (##cdr _e27832815_)))) (if (gx#stx-pair/null? _tl27812822_) - (let ((_g42720_ + (let ((_g42801_ (gx#syntax-split-splice _tl27812822_ '0))) (begin - (let ((_g42721_ + (let ((_g42802_ (let () (declare (not safe)) - (if (##values? _g42720_) + (if (##values? _g42801_) (##vector-length - _g42720_) + _g42801_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42721_ 2))) + (##fx= _g42802_ 2))) (error "Context expects 2 values" - _g42721_))) + _g42802_))) (let ((_target27842825_ (let () (declare (not safe)) - (##vector-ref _g42720_ 0))) + (##vector-ref _g42801_ 0))) (_tl27862828_ (let () (declare (not safe)) - (##vector-ref _g42720_ 1)))) + (##vector-ref _g42801_ 1)))) (if (gx#stx-null? _tl27862828_) (letrec ((_loop27872831_ (lambda (_hd27852835_ @@ -1611,21 +1611,21 @@ (lambda (_stx2888_) (letrec ((_let-head?2891_ (lambda (_x3371_) - (let* ((___stx3750837509_ _x3371_) + (let* ((___stx3758937590_ _x3371_) (_g33753386_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3750837509_)))) - (let ((___kont3751137512_ + ___stx3758937590_)))) + (let ((___kont3759237593_ (lambda (_L3414_) (gx#stx-andmap gx#identifier? _L3414_))) - (___kont3751337514_ + (___kont3759437595_ (lambda () (gx#identifier? _x3371_)))) - (if (gx#stx-pair? ___stx3750837509_) + (if (gx#stx-pair? ___stx3758937590_) (let ((_e33803404_ - (gx#syntax-e ___stx3750837509_))) + (gx#syntax-e ___stx3758937590_))) (let ((_tl33783411_ (let () (declare (not safe)) @@ -1636,26 +1636,26 @@ (##car _e33803404_)))) (if (gx#identifier? _hd33793408_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42722_| + |gerbil/core$$[1]#_g42803_| _hd33793408_) - (___kont3751137512_ _tl33783411_) - (___kont3751337514_)) - (___kont3751337514_)))) - (___kont3751337514_)))))) + (___kont3759237593_ _tl33783411_) + (___kont3759437595_)) + (___kont3759437595_)))) + (___kont3759437595_)))))) (_let-head2893_ (lambda (_x3311_) - (let* ((___stx3752837529_ _x3311_) + (let* ((___stx3760937610_ _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_) + ___stx3760937610_)))) + (let ((___kont3761237613_ (lambda (_L3354_) _L3354_)) + (___kont3761437615_ (lambda () (list _x3311_)))) + (if (gx#stx-pair? ___stx3760937610_) (let ((_e33203344_ - (gx#syntax-e ___stx3752837529_))) + (gx#syntax-e ___stx3760937610_))) (let ((_tl33183351_ (let () (declare (not safe)) @@ -1666,27 +1666,27 @@ (##car _e33203344_)))) (if (gx#identifier? _hd33193348_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42723_| + |gerbil/core$$[1]#_g42804_| _hd33193348_) - (___kont3753137532_ _tl33183351_) - (___kont3753337534_)) - (___kont3753337534_)))) - (___kont3753337534_))))))) - (let* ((___stx3754837549_ _stx2888_) + (___kont3761237613_ _tl33183351_) + (___kont3761437615_)) + (___kont3761437615_)))) + (___kont3761437615_))))))) + (let* ((___stx3762937630_ _stx2888_) (_g28962962_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3754837549_)))) - (let ((___kont3755137552_ + ___stx3762937630_)))) + (let ((___kont3763237633_ (lambda (_L3280_ _L3282_ _L3283_ _L3284_ _L3285_) (cons _L3285_ (cons _L3284_ (cons (cons (cons _L3283_ (cons _L3282_ '())) '()) _L3280_))))) - (___kont3755337554_ + (___kont3763437635_ (lambda (_L3083_ _L3085_ _L3086_ _L3087_) (let* ((_g31223139_ (lambda (_g31233135_) @@ -1697,30 +1697,30 @@ (_g31213211_ (lambda (_g31233143_) (if (gx#stx-pair/null? _g31233143_) - (let ((_g42724_ + (let ((_g42805_ (gx#syntax-split-splice _g31233143_ '0))) (begin - (let ((_g42725_ + (let ((_g42806_ (let () (declare (not safe)) - (if (##values? _g42724_) - (##vector-length _g42724_) + (if (##values? _g42805_) + (##vector-length _g42805_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42725_ 2))) + (##fx= _g42806_ 2))) (error "Context expects 2 values" - _g42725_))) + _g42806_))) (let ((_target31253146_ (let () (declare (not safe)) - (##vector-ref _g42724_ 0))) + (##vector-ref _g42805_ 0))) (_tl31273149_ (let () (declare (not safe)) - (##vector-ref _g42724_ 1)))) + (##vector-ref _g42805_ 1)))) (if (gx#stx-null? _tl31273149_) (letrec ((_loop31283152_ (lambda (_hd31263156_ @@ -1781,7 +1781,7 @@ (cons _g32143217_ _g32153220_)) '() _L3086_))))))) - (let* ((___match3761737618_ + (let* ((___match3769837699_ (lambda (_e29242969_ _hd29232973_ _tl29222976_ @@ -1791,7 +1791,7 @@ _e29302989_ _hd29292993_ _tl29282996_ - ___splice3755537556_ + ___splice3763637637_ _target29312999_ _tl29333002_) (letrec ((_loop29343005_ @@ -1847,7 +1847,7 @@ (_e29403047_ (reverse _e29383012_))) (if (gx#stx-pair/null? _tl29282996_) - (let ((___splice3755737558_ + (let ((___splice3763837639_ (gx#syntax-split-splice _tl29282996_ '0))) @@ -1855,13 +1855,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice3755737558_ + ___splice3763837639_ '1))) (_target29483053_ (let () (declare (not safe)) (##vector-ref - ___splice3755737558_ + ___splice3763837639_ '0)))) (if (gx#stx-null? _tl29503056_) @@ -1893,7 +1893,7 @@ (cons _g31133116_ _g31143119_)) '() _L3086_)) - (___kont3755337554_ + (___kont3763437635_ _L3083_ _L3085_ _L3086_ @@ -1908,7 +1908,7 @@ (declare (not safe)) (_g28962962_)))))))) (_loop29343005_ _target29312999_ '() '())))) - (___match3759137592_ + (___match3767237673_ (lambda (_e29053230_ _hd29043234_ _tl29033237_ @@ -1930,14 +1930,14 @@ (_L3284_ _hd29073244_) (_L3285_ _hd29043234_)) (if (_let-head?2891_ _L3283_) - (___kont3755137552_ + (___kont3763237633_ _L3280_ _L3282_ _L3283_ _L3284_ _L3285_) (if (gx#stx-pair/null? _hd29103254_) - (let ((___splice3755537556_ + (let ((___splice3763637637_ (gx#syntax-split-splice _hd29103254_ '0))) @@ -1945,16 +1945,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3755537556_ + ___splice3763637637_ '1))) (_target29312999_ (let () (declare (not safe)) (##vector-ref - ___splice3755537556_ + ___splice3763637637_ '0)))) (if (gx#stx-null? _tl29333002_) - (___match3761737618_ + (___match3769837699_ _e29053230_ _hd29043234_ _tl29033237_ @@ -1964,7 +1964,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3763637637_ _target29312999_ _tl29333002_) (let () @@ -1973,8 +1973,8 @@ (let () (declare (not safe)) (_g28962962_)))))))) - (if (gx#stx-pair? ___stx3754837549_) - (let ((_e29053230_ (gx#syntax-e ___stx3754837549_))) + (if (gx#stx-pair? ___stx3762937630_) + (let ((_e29053230_ (gx#syntax-e ___stx3762937630_))) (let ((_tl29033237_ (let () (declare (not safe)) (##cdr _e29053230_))) (_hd29043234_ @@ -2026,7 +2026,7 @@ (_hd29163274_ (let () (declare (not safe)) (##car _e29173270_)))) (if (gx#stx-null? _tl29153277_) - (___match3759137592_ + (___match3767237673_ _e29053230_ _hd29043234_ _tl29033237_ @@ -2043,18 +2043,18 @@ _hd29163274_ _tl29153277_) (if (gx#stx-pair/null? _hd29103254_) - (let ((___splice3755537556_ + (let ((___splice3763637637_ (gx#syntax-split-splice _hd29103254_ '0))) (let ((_tl29333002_ (let () (declare (not safe)) - (##vector-ref ___splice3755537556_ '1))) + (##vector-ref ___splice3763637637_ '1))) (_target29312999_ (let () (declare (not safe)) - (##vector-ref ___splice3755537556_ '0)))) + (##vector-ref ___splice3763637637_ '0)))) (if (gx#stx-null? _tl29333002_) - (___match3761737618_ + (___match3769837699_ _e29053230_ _hd29043234_ _tl29033237_ @@ -2064,7 +2064,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3763637637_ _target29312999_ _tl29333002_) (let () (declare (not safe)) (_g28962962_))))) @@ -2072,7 +2072,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29103254_) - (let ((___splice3755537556_ + (let ((___splice3763637637_ (gx#syntax-split-splice _hd29103254_ '0))) @@ -2080,13 +2080,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice3755537556_ '1))) + (##vector-ref ___splice3763637637_ '1))) (_target29312999_ (let () (declare (not safe)) - (##vector-ref ___splice3755537556_ '0)))) + (##vector-ref ___splice3763637637_ '0)))) (if (gx#stx-null? _tl29333002_) - (___match3761737618_ + (___match3769837699_ _e29053230_ _hd29043234_ _tl29033237_ @@ -2096,7 +2096,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3763637637_ _target29312999_ _tl29333002_) (let () (declare (not safe)) (_g28962962_))))) @@ -2104,7 +2104,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29103254_) - (let ((___splice3755537556_ + (let ((___splice3763637637_ (gx#syntax-split-splice _hd29103254_ '0))) @@ -2112,17 +2112,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice3755537556_ + ___splice3763637637_ '1))) (_target29312999_ (let () (declare (not safe)) (##vector-ref - ___splice3755537556_ + ___splice3763637637_ '0)))) (if (gx#stx-null? _tl29333002_) - (___match3761737618_ + (___match3769837699_ _e29053230_ _hd29043234_ _tl29033237_ @@ -2132,7 +2132,7 @@ _e29113250_ _hd29103254_ _tl29093257_ - ___splice3755537556_ + ___splice3763637637_ _target29312999_ _tl29333002_) (let () @@ -2148,29 +2148,29 @@ (let () (declare (not safe)) (_g28962962_))))))))) (define |gerbil/core$$[:0:]#and| (lambda (_$stx3434_) - (let* ((___stx3762037621_ _$stx3434_) + (let* ((___stx3770137702_ _$stx3434_) (_g34403466_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3762037621_)))) - (let ((___kont3762337624_ (lambda () '#t)) - (___kont3762537626_ (lambda (_L3538_) _L3538_)) - (___kont3762737628_ + ___stx3770137702_)))) + (let ((___kont3770437705_ (lambda () '#t)) + (___kont3770637707_ (lambda (_L3538_) _L3538_)) + (___kont3770837709_ (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? ___stx3770137702_) + (let ((_e34443558_ (gx#syntax-e ___stx3770137702_))) (let ((_tl34423565_ (let () (declare (not safe)) (##cdr _e34443558_))) (_hd34433562_ (let () (declare (not safe)) (##car _e34443558_)))) (if (gx#stx-null? _tl34423565_) - (___kont3762337624_) + (___kont3770437705_) (if (gx#stx-pair? _tl34423565_) (let ((_e34513528_ (gx#syntax-e _tl34423565_))) (let ((_tl34493535_ @@ -2182,8 +2182,8 @@ (declare (not safe)) (##car _e34513528_)))) (if (gx#stx-null? _tl34493535_) - (___kont3762537626_ _hd34503532_) - (___kont3762737628_ + (___kont3770637707_ _hd34503532_) + (___kont3770837709_ _tl34493535_ _hd34503532_ _hd34433562_)))) @@ -2191,16 +2191,16 @@ (let () (declare (not safe)) (_g34403466_))))))) (define |gerbil/core$$[:0:]#or| (lambda (_$stx3576_) - (let* ((___stx3766637667_ _$stx3576_) + (let* ((___stx3774737748_ _$stx3576_) (_g35823608_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3766637667_)))) - (let ((___kont3766937670_ (lambda () '#f)) - (___kont3767137672_ (lambda (_L3680_) _L3680_)) - (___kont3767337674_ + ___stx3774737748_)))) + (let ((___kont3775037751_ (lambda () '#f)) + (___kont3775237753_ (lambda (_L3680_) _L3680_)) + (___kont3775437755_ (lambda (_L3635_ _L3637_ _L3638_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2216,14 +2216,14 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (if (gx#stx-pair? ___stx3766637667_) - (let ((_e35863700_ (gx#syntax-e ___stx3766637667_))) + (if (gx#stx-pair? ___stx3774737748_) + (let ((_e35863700_ (gx#syntax-e ___stx3774737748_))) (let ((_tl35843707_ (let () (declare (not safe)) (##cdr _e35863700_))) (_hd35853704_ (let () (declare (not safe)) (##car _e35863700_)))) (if (gx#stx-null? _tl35843707_) - (___kont3766937670_) + (___kont3775037751_) (if (gx#stx-pair? _tl35843707_) (let ((_e35933670_ (gx#syntax-e _tl35843707_))) (let ((_tl35913677_ @@ -2235,8 +2235,8 @@ (declare (not safe)) (##car _e35933670_)))) (if (gx#stx-null? _tl35913677_) - (___kont3767137672_ _hd35923674_) - (___kont3767337674_ + (___kont3775237753_ _hd35923674_) + (___kont3775437755_ _tl35913677_ _hd35923674_ _hd35853704_)))) @@ -2244,15 +2244,15 @@ (let () (declare (not safe)) (_g35823608_))))))) (define |gerbil/core$$[:0:]#cond| (lambda (_$stx3718_) - (let* ((___stx3771237713_ _$stx3718_) + (let* ((___stx3779337794_ _$stx3718_) (_g37273818_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3771237713_)))) - (let ((___kont3771537716_ (lambda () '#!void)) - (___kont3771737718_ + ___stx3779337794_)))) + (let ((___kont3779637797_ (lambda () '#!void)) + (___kont3779837799_ (lambda (_L4165_) (cons (gx#datum->syntax '#f '%#expression) (cons (cons (gx#datum->syntax '#f 'begin) @@ -2261,11 +2261,11 @@ '() _L4165_)) '())))) - (___kont3772137722_ + (___kont3780237803_ (lambda () (cons (gx#datum->syntax '#f 'syntax-error) (cons '"Bad syntax; misplaced else" '())))) - (___kont3772337724_ + (___kont3780437805_ (lambda (_L4038_ _L4040_ _L4041_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2281,7 +2281,7 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3772537726_ + (___kont3780637807_ (lambda (_L3976_ _L3978_ _L3979_ _L3980_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2297,7 +2297,7 @@ (cons (cons _L3980_ _L3976_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (___kont3772737728_ + (___kont3780837809_ (lambda (_L3885_ _L3887_ _L3888_ _L3889_) (cons (gx#datum->syntax '#f 'if) (cons _L3888_ @@ -2309,7 +2309,7 @@ '() _L3887_)) (cons (cons _L3889_ _L3885_) '()))))))) - (let* ((___match3787337874_ + (let* ((___match3795437955_ (lambda (_e37973825_ _hd37963829_ _tl37953832_ @@ -2319,7 +2319,7 @@ _e38033845_ _hd38023849_ _tl38013852_ - ___splice3772937730_ + ___splice3781037811_ _target38043855_ _tl38063858_) (letrec ((_loop38073861_ @@ -2341,13 +2341,13 @@ _body38113868_)))) (let ((_body38123881_ (reverse _body38113868_))) - (___kont3772737728_ + (___kont3780837809_ _tl37983842_ _body38123881_ _hd38023849_ _hd37963829_)))))) (_loop38073861_ _target38043855_ '())))) - (___match3776937770_ + (___match3785037851_ (lambda (_e37354105_ _hd37344109_ _tl37334112_ @@ -2357,7 +2357,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3771937720_ + ___splice3780037801_ _target37424135_ _tl37444138_) (letrec ((_loop37454141_ @@ -2380,17 +2380,17 @@ (let ((_body37504161_ (reverse _body37494148_))) (if (gx#stx-null? _tl37364122_) - (___kont3771737718_ _body37504161_) - (___kont3772137722_))))))) + (___kont3779837799_ _body37504161_) + (___kont3780237803_))))))) (_loop37454141_ _target37424135_ '()))))) - (if (gx#stx-pair? ___stx3771237713_) - (let ((_e37314200_ (gx#syntax-e ___stx3771237713_))) + (if (gx#stx-pair? ___stx3779337794_) + (let ((_e37314200_ (gx#syntax-e ___stx3779337794_))) (let ((_tl37294207_ (let () (declare (not safe)) (##cdr _e37314200_))) (_hd37304204_ (let () (declare (not safe)) (##car _e37314200_)))) (if (gx#stx-null? _tl37294207_) - (___kont3771537716_) + (___kont3779637797_) (if (gx#stx-pair? _tl37294207_) (let ((_e37384115_ (gx#syntax-e _tl37294207_))) (let ((_tl37364122_ @@ -2414,11 +2414,11 @@ (##car _e37414125_)))) (if (gx#identifier? _hd37404129_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42727_| + |gerbil/core$$[1]#_g43197_| _hd37404129_) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3771937720_ + (let ((___splice3780037801_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2426,13 +2426,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice3771937720_ '1))) + (##vector-ref ___splice3780037801_ '1))) (_target37424135_ (let () (declare (not safe)) - (##vector-ref ___splice3771937720_ '0)))) + (##vector-ref ___splice3780037801_ '0)))) (if (gx#stx-null? _tl37444138_) - (___match3776937770_ + (___match3785037851_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2442,15 +2442,15 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3771937720_ + ___splice3780037801_ _target37424135_ _tl37444138_) - (___kont3772137722_)))) - (___kont3772137722_)) + (___kont3780237803_)))) + (___kont3780237803_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl37394132_) - (___kont3772337724_ + (___kont3780437805_ _tl37364122_ _hd37404129_ _hd37304204_) @@ -2465,7 +2465,7 @@ (let () (declare (not safe)) (##car _e37873956_)))) (if (gx#identifier? _hd37863960_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42726_| + |gerbil/core$$[1]#_g42807_| _hd37863960_) (if (gx#stx-pair? _tl37853963_) (let ((_e37903966_ @@ -2479,13 +2479,13 @@ (declare (not safe)) (##car _e37903966_)))) (if (gx#stx-null? _tl37883973_) - (___kont3772537726_ + (___kont3780637807_ _tl37364122_ _hd37893970_ _hd37404129_ _hd37304204_) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3781037811_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2493,17 +2493,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3795437955_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2513,7 +2513,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3781037811_ _target38043855_ _tl38063858_) (let () @@ -2523,7 +2523,7 @@ (declare (not safe)) (_g37273818_)))))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3781037811_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2531,16 +2531,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3795437955_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2550,7 +2550,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3781037811_ _target38043855_ _tl38063858_) (let () @@ -2560,7 +2560,7 @@ (declare (not safe)) (_g37273818_)))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3781037811_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2568,16 +2568,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3795437955_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2587,7 +2587,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3781037811_ _target38043855_ _tl38063858_) (let () @@ -2595,22 +2595,22 @@ (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3781037811_ (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3795437955_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2620,7 +2620,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3781037811_ _target38043855_ _tl38063858_) (let () @@ -2628,18 +2628,18 @@ (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3781037811_ (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '1))) + (##vector-ref ___splice3781037811_ '1))) (_target38043855_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '0)))) + (##vector-ref ___splice3781037811_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3795437955_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2649,14 +2649,14 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3781037811_ _target38043855_ _tl38063858_) (let () (declare (not safe)) (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl37394132_) - (___kont3772337724_ + (___kont3780437805_ _tl37364122_ _hd37404129_ _hd37304204_) @@ -2674,7 +2674,7 @@ (let () (declare (not safe)) (##car _e37873956_)))) (if (gx#identifier? _hd37863960_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42726_| + |gerbil/core$$[1]#_g42807_| _hd37863960_) (if (gx#stx-pair? _tl37853963_) (let ((_e37903966_ (gx#syntax-e _tl37853963_))) @@ -2687,13 +2687,13 @@ (declare (not safe)) (##car _e37903966_)))) (if (gx#stx-null? _tl37883973_) - (___kont3772537726_ + (___kont3780637807_ _tl37364122_ _hd37893970_ _hd37404129_ _hd37304204_) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3781037811_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2701,16 +2701,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3795437955_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2720,7 +2720,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3781037811_ _target38043855_ _tl38063858_) (let () @@ -2730,7 +2730,7 @@ (declare (not safe)) (_g37273818_)))))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3781037811_ (gx#syntax-split-splice _tl37394132_ '0))) @@ -2738,16 +2738,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3795437955_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2757,7 +2757,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3781037811_ _target38043855_ _tl38063858_) (let () @@ -2765,22 +2765,22 @@ (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3781037811_ (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '1))) (_target38043855_ (let () (declare (not safe)) (##vector-ref - ___splice3772937730_ + ___splice3781037811_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3795437955_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2790,7 +2790,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3781037811_ _target38043855_ _tl38063858_) (let () @@ -2798,18 +2798,18 @@ (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3781037811_ (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '1))) + (##vector-ref ___splice3781037811_ '1))) (_target38043855_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '0)))) + (##vector-ref ___splice3781037811_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3795437955_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2819,7 +2819,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3781037811_ _target38043855_ _tl38063858_) (let () @@ -2827,18 +2827,18 @@ (_g37273818_))))) (let () (declare (not safe)) (_g37273818_)))))) (if (gx#stx-pair/null? _tl37394132_) - (let ((___splice3772937730_ + (let ((___splice3781037811_ (gx#syntax-split-splice _tl37394132_ '0))) (let ((_tl38063858_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '1))) + (##vector-ref ___splice3781037811_ '1))) (_target38043855_ (let () (declare (not safe)) - (##vector-ref ___splice3772937730_ '0)))) + (##vector-ref ___splice3781037811_ '0)))) (if (gx#stx-null? _tl38063858_) - (___match3787337874_ + (___match3795437955_ _e37314200_ _hd37304204_ _tl37294207_ @@ -2848,7 +2848,7 @@ _e37414125_ _hd37404129_ _tl37394132_ - ___splice3772937730_ + ___splice3781037811_ _target38043855_ _tl38063858_) (let () (declare (not safe)) (_g37273818_))))) @@ -2887,31 +2887,31 @@ (declare (not safe)) (##cdr _e42334265_)))) (if (gx#stx-pair/null? _tl42314272_) - (let ((_g42728_ + (let ((_g43198_ (gx#syntax-split-splice _tl42314272_ '0))) (begin - (let ((_g42729_ + (let ((_g43199_ (let () (declare (not safe)) - (if (##values? _g42728_) + (if (##values? _g43198_) (##vector-length - _g42728_) + _g43198_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42729_ 2))) + (##fx= _g43199_ 2))) (error "Context expects 2 values" - _g42729_))) + _g43199_))) (let ((_target42344275_ (let () (declare (not safe)) - (##vector-ref _g42728_ 0))) + (##vector-ref _g43198_ 0))) (_tl42364278_ (let () (declare (not safe)) - (##vector-ref _g42728_ 1)))) + (##vector-ref _g43198_ 1)))) (if (gx#stx-null? _tl42364278_) (letrec ((_loop42374281_ (lambda (_hd42354285_ @@ -2984,31 +2984,31 @@ (declare (not safe)) (##cdr _e43514383_)))) (if (gx#stx-pair/null? _tl43494390_) - (let ((_g42730_ + (let ((_g43200_ (gx#syntax-split-splice _tl43494390_ '0))) (begin - (let ((_g42731_ + (let ((_g43201_ (let () (declare (not safe)) - (if (##values? _g42730_) + (if (##values? _g43200_) (##vector-length - _g42730_) + _g43200_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42731_ 2))) + (##fx= _g43201_ 2))) (error "Context expects 2 values" - _g42731_))) + _g43201_))) (let ((_target43524393_ (let () (declare (not safe)) - (##vector-ref _g42730_ 0))) + (##vector-ref _g43200_ 0))) (_tl43544396_ (let () (declare (not safe)) - (##vector-ref _g42730_ 1)))) + (##vector-ref _g43200_ 1)))) (if (gx#stx-null? _tl43544396_) (letrec ((_loop43554399_ (lambda (_hd43534403_ @@ -3082,31 +3082,31 @@ (declare (not safe)) (##cdr _e44684500_)))) (if (gx#stx-pair/null? _tl44664507_) - (let ((_g42732_ + (let ((_g43202_ (gx#syntax-split-splice _tl44664507_ '0))) (begin - (let ((_g42733_ + (let ((_g43203_ (let () (declare (not safe)) - (if (##values? _g42732_) + (if (##values? _g43202_) (##vector-length - _g42732_) + _g43202_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42733_ 2))) + (##fx= _g43203_ 2))) (error "Context expects 2 values" - _g42733_))) + _g43203_))) (let ((_target44694510_ (let () (declare (not safe)) - (##vector-ref _g42732_ 0))) + (##vector-ref _g43202_ 0))) (_tl44714513_ (let () (declare (not safe)) - (##vector-ref _g42732_ 1)))) + (##vector-ref _g43202_ 1)))) (if (gx#stx-null? _tl44714513_) (letrec ((_loop44724516_ (lambda (_hd44704520_ @@ -3150,4 +3150,64 @@ (_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" _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..00ca308989 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]#_g42838_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42765_| + (define |gerbil/core$$[1]#_g42839_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42766_| + (define |gerbil/core$$[1]#_g42840_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42802_| + (define |gerbil/core$$[1]#_g42876_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42803_| + (define |gerbil/core$$[1]#_g42877_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42804_| + (define |gerbil/core$$[1]#_g42878_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42811_| + (define |gerbil/core$$[1]#_g42885_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42812_| + (define |gerbil/core$$[1]#_g42886_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42813_| + (define |gerbil/core$$[1]#_g42887_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42814_| + (define |gerbil/core$$[1]#_g42888_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42815_| + (define |gerbil/core$$[1]#_g42889_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42816_| + (define |gerbil/core$$[1]#_g42890_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42817_| + (define |gerbil/core$$[1]#_g42891_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42818_| + (define |gerbil/core$$[1]#_g42892_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42819_| + (define |gerbil/core$$[1]#_g42893_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g42820_| + (define |gerbil/core$$[1]#_g42894_| (##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* ((___stx3798137982_ _rest7913_) + (_g79187930_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3790037901_)))) - (let ((___kont3790337904_ - (lambda (_L7881_ _L7883_) - (let* ((___stx3787637877_ _L7883_) - (_g78997913_ + ___stx3798137982_)))) + (let ((___kont3798437985_ + (lambda (_L7962_ _L7964_) + (let* ((___stx3795737958_ _L7964_) + (_g79807994_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3787637877_)))) - (let ((___kont3787937880_ - (lambda (_L7951_) - (_lp7829_ _L7881_ '#t))) - (___kont3788137882_ + ___stx3795737958_)))) + (let ((___kont3796037961_ + (lambda (_L8032_) + (_lp7910_ _L7962_ '#t))) + (___kont3796237963_ (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 ((___match3797837979_ + (lambda (_e79858012_ + _hd79848016_ + _tl79838019_ + _e79888022_ + _hd79878026_ + _tl79868029_) + (let ((_L8032_ _hd79848016_)) + (if (gx#identifier? _L8032_) + (___kont3796037961_ + _L8032_) + (___kont3796237963_)))))) + (if (gx#stx-pair? ___stx3795737958_) + (let ((_e79858012_ (gx#syntax-e - ___stx3787637877_))) - (let ((_tl79027938_ + ___stx3795737958_))) + (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_) + (___match3797837979_ + _e79858012_ + _hd79848016_ + _tl79838019_ + _e79888022_ + _hd79878026_ + _tl79868029_) + (___kont3796237963_)))) + (___kont3796237963_)))) + (___kont3796237963_))))))) + (___kont3798637987_ (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? ___stx3798137982_) + (let ((_e79247952_ + (gx#syntax-e ___stx3798137982_))) + (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_)))) + (___kont3798437985_ + _tl79227959_ + _hd79237956_))) + (___kont3798637987_))))))) + (_opt-lambda-split4661_ + (lambda (_hd7759_) + (let _lp7762_ ((_rest7765_ _hd7759_) + (_pre7767_ '()) + (_opt7768_ '())) + (let* ((___stx3802138022_ _rest7765_) + (_g77717783_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3794037941_)))) - (let ((___kont3794337944_ - (lambda (_L7730_ _L7732_) - (let* ((___stx3791637917_ _L7732_) - (_g77487763_ + ___stx3802138022_)))) + (let ((___kont3802438025_ + (lambda (_L7811_ _L7813_) + (let* ((___stx3799737998_ _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_ + ___stx3799737998_)))) + (let ((___kont3800038001_ + (lambda (_L7882_ _L7884_) + (_lp7762_ + _L7811_ + _pre7767_ + (cons (cons (_generate-bind4664_ + _L7884_) + _L7882_) + _opt7768_)))) + (___kont3800238003_ (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? ___stx3799737998_) + (let ((_e78357862_ (gx#syntax-e - ___stx3791637917_))) - (let ((_tl77527788_ + ___stx3799737998_))) + (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_) + (___kont3800038001_ + _hd78377876_ + _hd78347866_) + (___kont3800238003_)))) + (___kont3800238003_)))) + (___kont3800238003_)))))) + (___kont3802638027_ (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? ___stx3802138022_) + (let ((_e77777801_ + (gx#syntax-e ___stx3802138022_))) + (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_)))) + (___kont3802438025_ + _tl77757808_ + _hd77767805_))) + (___kont3802638027_))))))) + (_kw-lambda?4662_ + (lambda (_hd7427_) + (let _lp7430_ ((_rest7433_ _hd7427_) + (_opt?7435_ '#f) + (_key?7436_ '#f)) + (let* ((___stx3808538086_ _rest7433_) + (_g74417471_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3800438005_)))) - (let ((___kont3800738008_ - (lambda (_L7585_ _L7587_ _L7588_) - (let* ((___stx3798037981_ _L7587_) - (_g76037617_ + ___stx3808538086_)))) + (let ((___kont3808838089_ + (lambda (_L7666_ _L7668_ _L7669_) + (let* ((___stx3806138062_ _L7668_) + (_g76847698_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3798037981_)))) - (let ((___kont3798337984_ - (lambda (_L7655_) - (if (gx#identifier? _L7655_) - (_lp7349_ - _L7585_ - _opt?7354_ + ___stx3806138062_)))) + (let ((___kont3806438065_ + (lambda (_L7736_) + (if (gx#identifier? _L7736_) + (_lp7430_ + _L7666_ + _opt?7435_ '#t) '#f))) - (___kont3798537986_ + (___kont3806638067_ (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? ___stx3806138062_) + (let ((_e76897716_ (gx#syntax-e - ___stx3798037981_))) - (let ((_tl76067642_ + ___stx3806138062_))) + (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_) + (___kont3806438065_ + _hd76887720_) + (___kont3806638067_)))) + (___kont3806638067_)))) + (___kont3806638067_)))))) + (___kont3809038091_ + (lambda (_L7623_ _L7625_) + (if (gx#identifier? _L7625_) + (_lp7430_ _L7623_ _opt?7435_ '#t) '#f))) - (___kont3801138012_ - (lambda (_L7422_ _L7424_) - (let* ((___stx3795637957_ _L7424_) - (_g74407454_ + (___kont3809238093_ + (lambda (_L7503_ _L7505_) + (let* ((___stx3803738038_ _L7505_) + (_g75217535_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3795637957_)))) - (let ((___kont3795937960_ - (lambda (_L7492_) - (if (gx#identifier? _L7492_) - (_lp7349_ - _L7422_ + ___stx3803738038_)))) + (let ((___kont3804038041_ + (lambda (_L7573_) + (if (gx#identifier? _L7573_) + (_lp7430_ + _L7503_ '#t - _key?7355_) + _key?7436_) '#f))) - (___kont3796137962_ + (___kont3804238043_ (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? ___stx3803738038_) + (let ((_e75267553_ (gx#syntax-e - ___stx3795637957_))) - (let ((_tl74437479_ + ___stx3803738038_))) + (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_) + (___kont3804038041_ + _hd75257557_) + (___kont3804238043_)))) + (___kont3804238043_)))) + (___kont3804238043_)))))) + (___kont3809438095_ (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 ((___match3810838109_ + (lambda (_e74487646_ + _hd74477650_ + _tl74467653_ + _e74517656_ + _hd74507660_ + _tl74497663_) + (let ((_L7666_ _tl74497663_) + (_L7668_ _hd74507660_) + (_L7669_ _hd74477650_)) + (if (gx#stx-keyword? _L7669_) + (___kont3808838089_ + _L7666_ + _L7668_ + _L7669_) + (if (gx#stx-datum? _hd74477650_) + (let ((_e74577609_ + (gx#stx-e _hd74477650_))) + (if (equal? _e74577609_ '#!key) + (___kont3809038091_ + _tl74497663_ + _hd74507660_) + (___kont3809238093_ + _tl74467653_ + _hd74477650_))) + (___kont3809238093_ + _tl74467653_ + _hd74477650_))))))) + (if (gx#stx-pair? ___stx3808538086_) + (let ((_e74487646_ + (gx#syntax-e ___stx3808538086_))) + (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_)))) + (___match3810838109_ + _e74487646_ + _hd74477650_ + _tl74467653_ + _e74517656_ + _hd74507660_ + _tl74497663_))) + (if (gx#stx-datum? _hd74477650_) + (let ((_e74577609_ + (gx#stx-e _hd74477650_))) + (___kont3809238093_ + _tl74467653_ + _hd74477650_)) + (___kont3809238093_ + _tl74467653_ + _hd74477650_))))) + (___kont3809438095_)))))))) + (_kw-lambda-split4663_ + (lambda (_hd7160_) + (let _lp7163_ ((_rest7166_ _hd7160_) + (_kwvar7168_ '#f) + (_kwargs7169_ '()) + (_args7170_ '())) + (let* ((___stx3815938160_ _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_) + ___stx3815938160_)))) + (let ((___kont3816238163_ + (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* ((___stx3813538136_ _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_ + ___stx3813538136_)))) + (let ((___kont3813838139_ + (lambda (_L7401_ _L7403_) + (_lp7163_ + _L7324_ + _kwvar7168_ + (cons (list _key7341_ + (_generate-bind4664_ + _L7403_) + _L7401_) + _kwargs7169_) + _args7170_))) + (___kont3814038141_ (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? ___stx3813538136_) + (let ((_e73547381_ (gx#syntax-e - ___stx3805438055_))) - (let ((_tl72717307_ + ___stx3813538136_))) + (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_) + (___kont3813838139_ _hd73567395_ _hd73537385_) + (___kont3814038141_)))) + (___kont3814038141_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3814038141_)))))))) + (___kont3816438165_ + (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_)))) + (___kont3816638167_ + (lambda (_L7233_ _L7235_) + (_lp7163_ + _L7233_ + _kwvar7168_ + _kwargs7169_ + (cons _L7235_ _args7170_)))) + (___kont3816838169_ (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 ((___match3818238183_ + (lambda (_e71827304_ + _hd71817308_ + _tl71807311_ + _e71857314_ + _hd71847318_ + _tl71837321_) + (let ((_L7324_ _tl71837321_) + (_L7326_ _hd71847318_) + (_L7327_ _hd71817308_)) + (if (gx#stx-keyword? _L7327_) + (___kont3816238163_ + _L7324_ + _L7326_ + _L7327_) + (if (gx#stx-datum? _hd71817308_) + (let ((_e71917267_ + (gx#stx-e _hd71817308_))) + (if (equal? _e71917267_ '#!key) + (___kont3816438165_ + _tl71837321_ + _hd71847318_) + (___kont3816638167_ + _tl71807311_ + _hd71817308_))) + (___kont3816638167_ + _tl71807311_ + _hd71817308_))))))) + (if (gx#stx-pair? ___stx3815938160_) + (let ((_e71827304_ + (gx#syntax-e ___stx3815938160_))) + (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_)))) + (___match3818238183_ + _e71827304_ + _hd71817308_ + _tl71807311_ + _e71857314_ + _hd71847318_ + _tl71837321_))) + (if (gx#stx-datum? _hd71817308_) + (let ((_e71917267_ + (gx#stx-e _hd71817308_))) + (___kont3816638167_ + _tl71807311_ + _hd71817308_)) + (___kont3816638167_ + _tl71807311_ + _hd71817308_))))) + (___kont3816838169_)))))))) + (_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* ((___stx3823338234_ _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_) + ___stx3823338234_)))) + (let ((___kont3823638237_ + (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_) + _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_) + _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* ((___stx3820938210_ _L7016_) + (_g70287042_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3812838129_)))) - (let ((___kont3813138132_ - (lambda (_L6999_) - (_lp6779_ - _L6933_ - (_cons-id6776_ _L6999_ _ids6784_)))) - (___kont3813338134_ + ___stx3820938210_)))) + (let ((___kont3821238213_ + (lambda (_L7080_) + (_lp6860_ + _L7014_ + (_cons-id6857_ _L7080_ _ids6865_)))) + (___kont3821438215_ (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? ___stx3820938210_) + (let ((_e70337060_ + (gx#syntax-e ___stx3820938210_))) + (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_) + (___kont3821238213_ + _hd70327064_) + (___kont3821438215_)))) + (___kont3821438215_)))) + (___kont3821438215_))))) + _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_) + _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_))))))) + (___kont3823838239_ (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? ___stx3823338234_) + (let ((_e68746898_ + (gx#syntax-e ___stx3823338234_))) + (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_)))) + (___kont3823638237_ + _tl68726905_ + _hd68736902_))) + (___kont3823838239_)))))))) + (_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_ + _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 ((_g42808_ (gx#syntax-split-splice - _hd65786623_ + _hd66596704_ '0))) (begin - (let ((_g42735_ + (let ((_g42809_ (let () (declare (not safe)) - (if (##values? _g42734_) + (if (##values? _g42808_) (##vector-length - _g42734_) + _g42808_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42735_ 2))) + (##fx= _g42809_ 2))) (error "Context expects 2 values" - _g42735_))) - (let ((_target65806629_ + _g42809_))) + (let ((_target66616710_ (let () (declare (not safe)) (##vector-ref - _g42734_ + _g42808_ 0))) - (_tl65826632_ + (_tl66636713_ (let () (declare (not safe)) (##vector-ref - _g42734_ + _g42808_ 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 ((_g42810_ (gx#syntax-split-splice - _hd65906663_ + _hd66716744_ '0))) (begin - (let ((_g42737_ + (let ((_g42811_ (let () (declare (not safe)) - (if (##values? _g42736_) + (if (##values? _g42810_) (##vector-length - _g42736_) + _g42810_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42737_ 2))) + (##fx= _g42811_ 2))) (error "Context expects 2 values" - _g42737_))) - (let ((_target65926669_ + _g42811_))) + (let ((_target66736750_ (let () (declare (not safe)) (##vector-ref - _g42736_ + _g42810_ 0))) - (_tl65946672_ + (_tl66756753_ (let () (declare (not safe)) (##vector-ref - _g42736_ + _g42810_ 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_ + _g62206232_))) + (_g62186419_ + (lambda (_g62206240_) + (if (gx#stx-pair/null? _g62206240_) + (let ((_g42816_ (gx#syntax-split-splice - _g61396159_ + _g62206240_ '0))) (begin - (let ((_g42743_ + (let ((_g42817_ (let () (declare (not safe)) - (if (##values? _g42742_) + (if (##values? _g42816_) (##vector-length - _g42742_) + _g42816_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42743_ 2))) + (##fx= _g42817_ 2))) (error "Context expects 2 values" - _g42743_))) - (let ((_target61416162_ + _g42817_))) + (let ((_target62226243_ (let () (declare (not safe)) (##vector-ref - _g42742_ + _g42816_ 0))) - (_tl61436165_ + (_tl62246246_ (let () (declare (not safe)) (##vector-ref - _g42742_ + _g42816_ 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_ + _g62956307_))) + (_g62936415_ + (lambda (_g62956315_) + (if (gx#stx-pair/null? _g62956315_) + (let ((_g42818_ (gx#syntax-split-splice - _g62146234_ + _g62956315_ '0))) (begin - (let ((_g42745_ + (let ((_g42819_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42744_) - (##vector-length _g42744_) + _g42818_) + (##vector-length _g42818_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42745_ 2))) - (error "Context expects 2 values" _g42745_))) + (##fx= _g42819_ 2))) + (error "Context expects 2 values" _g42819_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target62166237_ + (let ((_target62976318_ (let () (declare (not safe)) (##vector-ref - _g42744_ + _g42818_ 0))) - (_tl62186240_ + (_tl62996321_ (let () (declare (not safe)) (##vector-ref - _g42744_ + _g42818_ 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_) + _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_ + _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 ((_g42812_ (gx#syntax-split-splice - _hd63496394_ + _hd64306475_ '0))) (begin - (let ((_g42739_ + (let ((_g42813_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g42738_) - (##vector-length _g42738_) + (if (##values? _g42812_) + (##vector-length _g42812_) 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= _g42813_ 2))) + (error "Context expects 2 values" _g42813_))) + (let ((_target64326481_ + (let () (declare (not safe)) (##vector-ref _g42812_ 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 _g42812_ 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 ((_g42814_ (gx#syntax-split-splice - _hd63616434_ + _hd64426515_ '0))) (begin - (let ((_g42741_ + (let ((_g42815_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g42740_) - (##vector-length _g42740_) + (if (##values? _g42814_) + (##vector-length _g42814_) 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= _g42815_ 2))) + (error "Context expects 2 values" _g42815_))) + (let ((_target64446521_ + (let () (declare (not safe)) (##vector-ref _g42814_ 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 _g42814_ 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_) + _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_) + _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_) + _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_ + _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 ((_g42820_ (gx#syntax-split-splice - _hd59395981_ + _hd60206062_ '0))) (begin - (let ((_g42747_ + (let ((_g42821_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42746_) - (##vector-length _g42746_) + _g42820_) + (##vector-length _g42820_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42747_ 2))) - (error "Context expects 2 values" _g42747_))) + (if (not (let () (declare (not safe)) (##fx= _g42821_ 2))) + (error "Context expects 2 values" _g42821_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target59415987_ + (let ((_target60226068_ (let () (declare (not safe)) (##vector-ref - _g42746_ + _g42820_ 0))) - (_tl59435990_ + (_tl60246071_ (let () (declare (not safe)) (##vector-ref - _g42746_ + _g42820_ 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 ((_g42822_ (gx#syntax-split-splice - _hd59516021_ + _hd60326102_ '0))) (begin - (let ((_g42749_ + (let ((_g42823_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42748_) - (##vector-length _g42748_) + _g42822_) + (##vector-length _g42822_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42749_ 2))) - (error "Context expects 2 values" _g42749_))) + (if (not (let () (declare (not safe)) (##fx= _g42823_ 2))) + (error "Context expects 2 values" _g42823_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target59536027_ + (let ((_target60346108_ (let () (declare (not safe)) (##vector-ref - _g42748_ + _g42822_ 0))) - (_tl59556030_ + (_tl60366111_ (let () (declare (not safe)) (##vector-ref - _g42748_ + _g42822_ 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_ + _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_) + _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_) + _g56005612_))) + (_g55985752_ + (lambda (_g56005620_) (if (gx#stx-pair/null? - _g55195539_) - (let ((_g42750_ + _g56005620_) + (let ((_g42824_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _g55195539_ '0))) + (gx#syntax-split-splice _g56005620_ '0))) (begin - (let ((_g42751_ + (let ((_g42825_ (let () (declare (not safe)) - (if (##values? _g42750_) - (##vector-length _g42750_) + (if (##values? _g42824_) + (##vector-length _g42824_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42751_ 2))) - (error "Context expects 2 values" _g42751_))) - (let ((_target55215542_ + (##fx= _g42825_ 2))) + (error "Context expects 2 values" _g42825_))) + (let ((_target56025623_ (let () (declare (not safe)) - (##vector-ref _g42750_ 0))) - (_tl55235545_ + (##vector-ref _g42824_ 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 _g42824_ 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_) + _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_) + _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_) + _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_) + _g54115423_))) + (_g54095523_ + (lambda (_g54115431_) (if (gx#stx-pair/null? - _g53305350_) - (let ((_g42752_ + _g54115431_) + (let ((_g42826_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _g53305350_ '0))) + (gx#syntax-split-splice _g54115431_ '0))) (begin - (let ((_g42753_ + (let ((_g42827_ (let () (declare (not safe)) - (if (##values? _g42752_) - (##vector-length _g42752_) + (if (##values? _g42826_) + (##vector-length _g42826_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42753_ 2))) - (error "Context expects 2 values" _g42753_))) - (let ((_target53325353_ + (##fx= _g42827_ 2))) + (error "Context expects 2 values" _g42827_))) + (let ((_target54135434_ (let () (declare (not safe)) - (##vector-ref _g42752_ 0))) - (_tl53345356_ + (##vector-ref _g42826_ 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 _g42826_ 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_) + _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_) + _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_) + _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_) + _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_) + _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_ + _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,2484 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#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* ((___stx3824938250_ _stx4655_) + (_g46764707_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3816838169_)))) - (let ((___kont3817138172_ - (lambda (_L5058_ _L5060_) + ___stx3824938250_)))) + (let ((___kont3825238253_ + (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_)))) + (___kont3825438255_ + (lambda (_L4911_ _L4913_) + (let ((_g42828_ (_opt-lambda-split4661_ _L4913_))) (begin - (let ((_g42755_ + (let ((_g42829_ (let () (declare (not safe)) - (if (##values? _g42754_) - (##vector-length _g42754_) + (if (##values? _g42828_) + (##vector-length _g42828_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42755_ 3))) - (error "Context expects 3 values" _g42755_))) - (let ((_pre4845_ + (##fx= _g42829_ 3))) + (error "Context expects 3 values" _g42829_))) + (let ((_pre4926_ (let () (declare (not safe)) - (##vector-ref _g42754_ 0))) - (_opt4847_ + (##vector-ref _g42828_ 0))) + (_opt4928_ (let () (declare (not safe)) - (##vector-ref _g42754_ 1))) - (_tail4848_ + (##vector-ref _g42828_ 1))) + (_tail4929_ (let () (declare (not safe)) - (##vector-ref _g42754_ 2)))) - (let* ((_g48504858_ - (lambda (_g48514854_) + (##vector-ref _g42828_ 2)))) + (let* ((_g49314939_ + (lambda (_g49324935_) (gx#raise-syntax-error '#f '"Bad syntax" - _g48514854_))) - (_g48495027_ - (lambda (_g48514862_) - ((lambda (_L4865_) + _g49324935_))) + (_g49305108_ + (lambda (_g49324943_) + ((lambda (_L4946_) (let () - (let* ((_g48784886_ - (lambda (_g48794882_) + (let* ((_g49594967_ + (lambda (_g49604963_) (gx#raise-syntax-error '#f '"Bad syntax" - _g48794882_))) - (_g48775023_ - (lambda (_g48794890_) - ((lambda (_L4893_) + _g49604963_))) + (_g49585104_ + (lambda (_g49604971_) + ((lambda (_L4974_) (let () - (let* ((_g49064923_ + (let* ((_g49875004_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g49074919_) + (lambda (_g49885000_) (gx#raise-syntax-error '#f '"Bad syntax" - _g49074919_))) - (_g49055019_ - (lambda (_g49074927_) - (if (gx#stx-pair/null? _g49074927_) - (let ((_g42756_ - (gx#syntax-split-splice _g49074927_ '0))) + _g49885000_))) + (_g49865100_ + (lambda (_g49885008_) + (if (gx#stx-pair/null? _g49885008_) + (let ((_g42830_ + (gx#syntax-split-splice _g49885008_ '0))) (begin - (let ((_g42757_ + (let ((_g42831_ (let () (declare (not safe)) - (if (##values? _g42756_) - (##vector-length _g42756_) + (if (##values? _g42830_) + (##vector-length _g42830_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42757_ 2))) + (##fx= _g42831_ 2))) (error "Context expects 2 values" - _g42757_))) - (let ((_target49094930_ + _g42831_))) + (let ((_target49905011_ (let () (declare (not safe)) - (##vector-ref _g42756_ 0))) - (_tl49114933_ + (##vector-ref _g42830_ 0))) + (_tl49925014_ (let () (declare (not safe)) - (##vector-ref _g42756_ 1)))) - (if (gx#stx-null? _tl49114933_) - (letrec ((_loop49124936_ - (lambda (_hd49104940_ - _clause49164943_) + (##vector-ref _g42830_ 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_) + _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)))))))) + (___kont3825638257_ + (lambda (_L4734_ _L4736_) + (let* ((_g47524759_ + (lambda (_g47534755_) (gx#raise-syntax-error '#f '"Bad syntax" - _g46724674_))) - (_g46704799_ - (lambda (_g46724682_) + _g47534755_))) + (_g47514880_ + (lambda (_g47534763_) ((lambda () (let () - (let ((_g42758_ - (_kw-lambda-split4582_ _L4655_))) + (let ((_g42832_ + (_kw-lambda-split4663_ _L4736_))) (begin - (let ((_g42759_ + (let ((_g42833_ (let () (declare (not safe)) - (if (##values? _g42758_) - (##vector-length _g42758_) + (if (##values? _g42832_) + (##vector-length _g42832_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42759_ 3))) + (##fx= _g42833_ 3))) (error "Context expects 3 values" - _g42759_))) - (let ((_key4691_ + _g42833_))) + (let ((_key4772_ (let () (declare (not safe)) - (##vector-ref _g42758_ 0))) - (_kwargs4693_ + (##vector-ref _g42832_ 0))) + (_kwargs4774_ (let () (declare (not safe)) - (##vector-ref _g42758_ 1))) - (_args4694_ + (##vector-ref _g42832_ 1))) + (_args4775_ (let () (declare (not safe)) - (##vector-ref _g42758_ 2)))) - (let* ((_g46964704_ - (lambda (_g46974700_) + (##vector-ref _g42832_ 2)))) + (let* ((_g47774785_ + (lambda (_g47784781_) (gx#raise-syntax-error '#f '"Bad syntax" - _g46974700_))) - (_g46954795_ - (lambda (_g46974708_) - ((lambda (_L4711_) + _g47784781_))) + (_g47764876_ + (lambda (_g47784789_) + ((lambda (_L4792_) (let () - (let* ((_g47294737_ + (let* ((_g48104818_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g47304733_) + (lambda (_g48114814_) (gx#raise-syntax-error '#f '"Bad syntax" - _g47304733_))) - (_g47284791_ - (lambda (_g47304741_) - ((lambda (_L4744_) + _g48114814_))) + (_g48094872_ + (lambda (_g48114822_) + ((lambda (_L4825_) (let () - (let* ((_g47574765_ - (lambda (_g47584761_) + (let* ((_g48384846_ + (lambda (_g48394842_) (gx#raise-syntax-error '#f '"Bad syntax" - _g47584761_))) - (_g47564787_ - (lambda (_g47584769_) - ((lambda (_L4772_) + _g48394842_))) + (_g48374868_ + (lambda (_g48394850_) + ((lambda (_L4853_) (let () (let () (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _L4711_ + (cons (cons (cons (cons _L4792_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _L4744_ '())) + (cons _L4825_ '())) '()) - (cons _L4772_ '())))))) + (cons _L4853_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g47584769_)))) - (_g47564787_ + _g48394850_)))) + (_g48374868_ (gx#stx-wrap-source - (_generate-kw-dispatch4590_ - _L4711_ - _kwargs4693_ - (not _key4691_)) - (gx#stx-source _stx4574_)))))) - _g47304741_)))) - (_g47284791_ + (_generate-kw-dispatch4671_ + _L4792_ + _kwargs4774_ + (not _key4772_)) + (gx#stx-source _stx4655_)))))) + _g48114822_)))) + (_g48094872_ (gx#stx-wrap-source - (_generate-kw-primary4589_ - _key4691_ - _kwargs4693_ - _args4694_ - _L4653_) - (gx#stx-source _stx4574_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g46974708_)))) - (_g46954795_ + (_generate-kw-primary4670_ + _key4772_ + _kwargs4774_ + _args4775_ + _L4734_) + (gx#stx-source _stx4655_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g47784789_)))) + (_g47764876_ (gx#genident 'kw-lambda)))))))))))) - (_g46704799_ - (_check-duplicate-bindings4584_ _L4655_)))))) - (let* ((___match3821338214_ - (lambda (_e46174633_ - _hd46164637_ - _tl46154640_ - _e46204643_ - _hd46194647_ - _tl46184650_) - (let ((_L4653_ _tl46184650_) (_L4655_ _hd46194647_)) - (if (_kw-lambda?4581_ _L4655_) - (___kont3817538176_ _L4653_ _L4655_) - (let () (declare (not safe)) (_g45954626_)))))) - (___match3820138202_ - (lambda (_e46094810_ - _hd46084814_ - _tl46074817_ - _e46124820_ - _hd46114824_ - _tl46104827_) - (let ((_L4830_ _tl46104827_) (_L4832_ _hd46114824_)) - (if (_opt-lambda?4579_ _L4832_) - (___kont3817338174_ _L4830_ _L4832_) - (___match3821338214_ - _e46094810_ - _hd46084814_ - _tl46074817_ - _e46124820_ - _hd46114824_ - _tl46104827_))))) - (___match3818938190_ - (lambda (_e46015038_ - _hd46005042_ - _tl45995045_ - _e46045048_ - _hd46035052_ - _tl46025055_) - (let ((_L5058_ _tl46025055_) (_L5060_ _hd46035052_)) - (if (_simple-lambda?4577_ _L5060_) - (___kont3817138172_ _L5058_ _L5060_) - (___match3820138202_ - _e46015038_ - _hd46005042_ - _tl45995045_ - _e46045048_ - _hd46035052_ - _tl46025055_)))))) - (if (gx#stx-pair? ___stx3816838169_) - (let ((_e46015038_ (gx#syntax-e ___stx3816838169_))) - (let ((_tl45995045_ - (let () (declare (not safe)) (##cdr _e46015038_))) - (_hd46005042_ + (_g47514880_ + (_check-duplicate-bindings4665_ _L4736_)))))) + (let* ((___match3829438295_ + (lambda (_e46984714_ + _hd46974718_ + _tl46964721_ + _e47014724_ + _hd47004728_ + _tl46994731_) + (let ((_L4734_ _tl46994731_) (_L4736_ _hd47004728_)) + (if (_kw-lambda?4662_ _L4736_) + (___kont3825638257_ _L4734_ _L4736_) + (let () (declare (not safe)) (_g46764707_)))))) + (___match3828238283_ + (lambda (_e46904891_ + _hd46894895_ + _tl46884898_ + _e46934901_ + _hd46924905_ + _tl46914908_) + (let ((_L4911_ _tl46914908_) (_L4913_ _hd46924905_)) + (if (_opt-lambda?4660_ _L4913_) + (___kont3825438255_ _L4911_ _L4913_) + (___match3829438295_ + _e46904891_ + _hd46894895_ + _tl46884898_ + _e46934901_ + _hd46924905_ + _tl46914908_))))) + (___match3827038271_ + (lambda (_e46825119_ + _hd46815123_ + _tl46805126_ + _e46855129_ + _hd46845133_ + _tl46835136_) + (let ((_L5139_ _tl46835136_) (_L5141_ _hd46845133_)) + (if (_simple-lambda?4658_ _L5141_) + (___kont3825238253_ _L5139_ _L5141_) + (___match3828238283_ + _e46825119_ + _hd46815123_ + _tl46805126_ + _e46855129_ + _hd46845133_ + _tl46835136_)))))) + (if (gx#stx-pair? ___stx3824938250_) + (let ((_e46825119_ (gx#syntax-e ___stx3824938250_))) + (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_)))) + (___match3827038271_ + _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* ((___stx3829738298_ _$stx8071_) + (_g80778141_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3821638217_)))) - (let ((___kont3821938220_ - (lambda (_L8290_ _L8292_ _L8293_ _L8294_) + ___stx3829738298_)))) + (let ((___kont3830038301_ + (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_) + (___kont3830438305_ + (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_) + (___kont3830838309_ + (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* ((___match3838838389_ + (lambda (_e81298148_ + _hd81288152_ + _tl81278155_ + _e81328158_ + _hd81318162_ + _tl81308165_ + _e81358168_ + _hd81348172_ + _tl81338175_) + (let ((_L8178_ _hd81348172_) (_L8180_ _hd81318162_)) + (if (gx#identifier? _L8180_) + (___kont3830838309_ _L8178_ _L8180_) + (let () (declare (not safe)) (_g80778141_)))))) + (___match3838038381_ + (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_) + (___match3838838389_ + _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_))))) + (___match3836838369_ + (lambda (_e81098203_ + _hd81088207_ + _tl81078210_ + _e81128213_ + _hd81118217_ + _tl81108220_ + _e81158223_ + _hd81148227_ + _tl81138230_ + ___splice3830638307_ + _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_) + (___kont3830438305_ + _L8263_ + _L8265_ + _L8266_) + (___match3838038381_ + _e81098203_ + _hd81088207_ + _tl81078210_ + _e81128213_ + _hd81118217_ + _tl81108220_)))))))) + (_loop81198239_ _target81168233_ '())))) + (___match3834238343_ + (lambda (_e80858301_ + _hd80848305_ + _tl80838308_ + _e80888311_ + _hd80878315_ + _tl80868318_ + _e80918321_ + _hd80908325_ + _tl80898328_ + _e80948331_ + _hd80938335_ + _tl80928338_ + ___splice3830238303_ + _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_))) + (___kont3830038301_ + _body81038367_ + _tl80898328_ + _tl80928338_ + _hd80938335_)))))) + (_loop80988347_ _target80958341_ '()))))) + (if (gx#stx-pair? ___stx3829738298_) + (let ((_e80858301_ (gx#syntax-e ___stx3829738298_))) + (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 ((___splice3830238303_ (gx#syntax-split-splice - _tl80058237_ + _tl80868318_ '0))) - (let ((_tl80168263_ + (let ((_tl80978344_ (let () (declare (not safe)) (##vector-ref - ___splice3822138222_ + ___splice3830238303_ '1))) - (_target80148260_ + (_target80958341_ (let () (declare (not safe)) (##vector-ref - ___splice3822138222_ + ___splice3830238303_ '0)))) (if (gx#stx-null? - _tl80168263_) - (___match3826138262_ - _e80048220_ - _hd80038224_ - _tl80028227_ - _e80078230_ - _hd80068234_ - _tl80058237_ - _e80108240_ - _hd80098244_ - _tl80088247_ - _e80138250_ - _hd80128254_ - _tl80118257_ - ___splice3822138222_ - _target80148260_ - _tl80168263_) + _tl80978344_) + (___match3834238343_ + _e80858301_ + _hd80848305_ + _tl80838308_ + _e80888311_ + _hd80878315_ + _tl80868318_ + _e80918321_ + _hd80908325_ + _tl80898328_ + _e80948331_ + _hd80938335_ + _tl80928338_ + ___splice3830238303_ + _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_) + (___match3838838389_ + _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_) + (___match3838838389_ + _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 ((___splice3830638307_ (gx#syntax-split-splice - _tl80058237_ + _tl80868318_ '0))) - (let ((_tl80378155_ + (let ((_tl81188236_ (let () (declare (not safe)) (##vector-ref - ___splice3822538226_ + ___splice3830638307_ '1))) - (_target80358152_ + (_target81168233_ (let () (declare (not safe)) (##vector-ref - ___splice3822538226_ + ___splice3830638307_ '0)))) (if (gx#stx-null? - _tl80378155_) - (___match3828738288_ - _e80048220_ - _hd80038224_ - _tl80028227_ - _e80078230_ - _hd80068234_ - _tl80058237_ - _e80108240_ - _hd80098244_ - _tl80088247_ - ___splice3822538226_ - _target80358152_ - _tl80378155_) + _tl81188236_) + (___match3836838369_ + _e80858301_ + _hd80848305_ + _tl80838308_ + _e80888311_ + _hd80878315_ + _tl80868318_ + _e80918321_ + _hd80908325_ + _tl80898328_ + ___splice3830638307_ + _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_) + (___match3838838389_ + _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_) + (___match3838838389_ + _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_) + (___match3838838389_ + _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" _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 ((_g42834_ (gx#syntax-split-splice - _tl83428383_ + _tl84238464_ '0))) (begin - (let ((_g42761_ + (let ((_g42835_ (let () (declare (not safe)) - (if (##values? _g42760_) + (if (##values? _g42834_) (##vector-length - _g42760_) + _g42834_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42761_ 2))) + (##fx= _g42835_ 2))) (error "Context expects 2 values" - _g42761_))) - (let ((_target83458386_ + _g42835_))) + (let ((_target84268467_ (let () (declare (not safe)) - (##vector-ref _g42760_ 0))) - (_tl83478389_ + (##vector-ref _g42834_ 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 _g42834_ 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" _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" _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 ((_g42836_ (gx#syntax-split-splice - _tl85418582_ + _tl86228663_ '0))) (begin - (let ((_g42763_ + (let ((_g42837_ (let () (declare (not safe)) - (if (##values? _g42762_) + (if (##values? _g42836_) (##vector-length - _g42762_) + _g42836_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42763_ 2))) + (##fx= _g42837_ 2))) (error "Context expects 2 values" - _g42763_))) - (let ((_target85448585_ + _g42837_))) + (let ((_target86258666_ (let () (declare (not safe)) - (##vector-ref _g42762_ 0))) - (_tl85468588_ + (##vector-ref _g42836_ 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 _g42836_ 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* ((___stx3848738488_ _rest11202_) + (_g1120911221_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3840638407_)))) - (let ((___kont3840938410_ - (lambda (_L11172_ _L11174_) - (let* ((___stx3831038311_ _L11174_) - (_g1119211265_ + ___stx3848738488_)))) + (let ((___kont3849038491_ + (lambda (_L11253_ _L11255_) + (let* ((___stx3839138392_ _L11255_) + (_g1127311346_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3831038311_)))) - (let ((___kont3831338314_ - (lambda (_L11630_) - (if (gx#stx-null? _L11172_) - (let* ((_g1164511653_ - (lambda (_g1164611649_) + ___stx3839138392_)))) + (let ((___kont3839438395_ + (lambda (_L11711_) + (if (gx#stx-null? _L11253_) + (let* ((_g1172611734_ + (lambda (_g1172711730_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1164611649_))) - (_g1164411672_ - (lambda (_g1164611657_) - ((lambda (_L11660_) + _g1172711730_))) + (_g1172511753_ + (lambda (_g1172711738_) + ((lambda (_L11741_) (let () - (_lp11118_ + (_lp11199_ '() - _datums11123_ - _dispatch11124_ - (cons _L11630_ + _datums11204_ + _dispatch11205_ + (cons _L11711_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L11660_ '()))))) - _g1164611657_)))) + (cons _L11741_ '()))))) + _g1172711738_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1164411672_ _e11114_)) + (_g1172511753_ _e11195_)) (gx#raise-syntax-error '#f '"Misplaced else clause" - _stx8648_ - _L11174_)))) - (___kont3831538316_ - (lambda (_L11570_) - (if (gx#stx-null? _L11172_) - (_lp11118_ + _stx8729_ + _L11255_)))) + (___kont3839638397_ + (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_)))) + (___kont3840038401_ + (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_) + _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_))))) + (___kont3840438405_ + (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* ((___match3848438485_ + (lambda (_e1132211353_ + _hd1132111357_ + _tl1132011360_ + ___splice3840638407_ + _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 ((___splice3840838409_ (gx#syntax-split-splice - _tl1123911279_ + _tl1132011360_ '0))) - (let ((_tl1125311315_ + (let ((_tl1133411396_ (let () (declare (not safe)) (##vector-ref - ___splice3832738328_ + ___splice3840838409_ '1))) - (_target1125111312_ + (_target1133211393_ (let () (declare (not safe)) (##vector-ref - ___splice3832738328_ + ___splice3840838409_ '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_))) + (___kont3840438405_ + _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_ + (___match3847038471_ + (lambda (_e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3840238403_ + _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]#_g42838_| + _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_) + (___kont3840038401_ + _hd1131611530_ + _datum1131111512_) + (___match3848438485_ + _e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3840238403_ + _target1130311486_ + _tl1130511489_)))) + (___match3848438485_ + _e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3840238403_ + _target1130311486_ + _tl1130511489_)) + (___match3848438485_ + _e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3840238403_ + _target1130311486_ + _tl1130511489_)) + (___match3848438485_ + _e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3840238403_ + _target1130311486_ + _tl1130511489_)))) + (___match3848438485_ + _e1130211476_ + _hd1130111480_ + _tl1130011483_ + ___splice3840238403_ + _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_ + (___match3845638457_ + (lambda (_e1128811611_ + _hd1128711615_ + _tl1128611618_ + ___splice3839838399_ + _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_))) + (___kont3839638397_ _body1129711647_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1129211627_ + _target1128911621_ '()))))) - (if (gx#stx-pair? ___stx3831038311_) - (let ((_e1119711600_ + (if (gx#stx-pair? ___stx3839138392_) + (let ((_e1127811681_ (gx#syntax-e - ___stx3831038311_))) - (let ((_tl1119511607_ + ___stx3839138392_))) + (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]#_g42840_| + _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]#_g42839_| + _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_) + (___kont3839438395_ _hd1128311705_) (if (gx#stx-pair/null? - _tl1119511607_) - (let ((___splice3831738318_ + _tl1127611688_) + (let ((___splice3839838399_ (gx#syntax-split-splice - _tl1119511607_ + _tl1127611688_ '0))) - (let ((_tl1121011543_ + (let ((_tl1129111624_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3839838399_ '1))) - (_target1120811540_ + (_target1128911621_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3839838399_ '0)))) (if (gx#stx-null? - _tl1121011543_) - (___match3837538376_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3831738318_ - _target1120811540_ - _tl1121011543_) + _tl1129111624_) + (___match3845638457_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3839838399_ + _target1128911621_ + _tl1129111624_) (if (gx#stx-pair/null? - _hd1119611604_) - (let ((___splice3832138322_ + _hd1127711685_) + (let ((___splice3840238403_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (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 ___splice3840238403_ '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 ___splice3840238403_ '0)))) + (if (gx#stx-null? _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _target1130311486_ + _tl1130511489_) + (let () (declare (not safe)) (_g1127311346_))))) + (let () (declare (not safe)) (_g1127311346_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _hd1119611604_) - (let ((___splice3832138322_ + _hd1127711685_) + (let ((___splice3840238403_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '0)))) (if (gx#stx-null? - _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _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 ((___splice3839838399_ (gx#syntax-split-splice - _tl1119511607_ + _tl1127611688_ '0))) - (let ((_tl1121011543_ + (let ((_tl1129111624_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3839838399_ '1))) - (_target1120811540_ + (_target1128911621_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3839838399_ '0)))) - (if (gx#stx-null? _tl1121011543_) - (___match3837538376_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3831738318_ - _target1120811540_ - _tl1121011543_) + (if (gx#stx-null? _tl1129111624_) + (___match3845638457_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3839838399_ + _target1128911621_ + _tl1129111624_) (if (gx#stx-pair/null? - _hd1119611604_) - (let ((___splice3832138322_ + _hd1127711685_) + (let ((___splice3840238403_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '0)))) (if (gx#stx-null? - _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _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 ((___splice3840238403_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '0)))) (if (gx#stx-null? - _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _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 ((___splice3839838399_ (gx#syntax-split-splice - _tl1119511607_ + _tl1127611688_ '0))) - (let ((_tl1121011543_ + (let ((_tl1129111624_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3839838399_ '1))) - (_target1120811540_ + (_target1128911621_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3839838399_ '0)))) - (if (gx#stx-null? _tl1121011543_) - (___match3837538376_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3831738318_ - _target1120811540_ - _tl1121011543_) + (if (gx#stx-null? _tl1129111624_) + (___match3845638457_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3839838399_ + _target1128911621_ + _tl1129111624_) (if (gx#stx-pair/null? - _hd1119611604_) - (let ((___splice3832138322_ + _hd1127711685_) + (let ((___splice3840238403_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '0)))) (if (gx#stx-null? - _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _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 ((___splice3840238403_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '0)))) - (if (gx#stx-null? _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + (if (gx#stx-null? _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _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 ((___splice3839838399_ (gx#syntax-split-splice - _tl1119511607_ + _tl1127611688_ '0))) - (let ((_tl1121011543_ + (let ((_tl1129111624_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3839838399_ '1))) - (_target1120811540_ + (_target1128911621_ (let () (declare (not safe)) (##vector-ref - ___splice3831738318_ + ___splice3839838399_ '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_) + (___match3845638457_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3839838399_ + _target1128911621_ + _tl1129111624_) + (if (gx#stx-pair/null? _hd1127711685_) + (let ((___splice3840238403_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '0)))) (if (gx#stx-null? - _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _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 ((___splice3840238403_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '0)))) - (if (gx#stx-null? _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + (if (gx#stx-null? _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _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 ((___splice3839838399_ + (gx#syntax-split-splice _tl1127611688_ '0))) + (let ((_tl1129111624_ (let () (declare (not safe)) - (##vector-ref ___splice3831738318_ '1))) - (_target1120811540_ + (##vector-ref ___splice3839838399_ '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 ___splice3839838399_ '0)))) + (if (gx#stx-null? _tl1129111624_) + (___match3845638457_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3839838399_ + _target1128911621_ + _tl1129111624_) + (if (gx#stx-pair/null? _hd1127711685_) + (let ((___splice3840238403_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '1))) - (_target1122211405_ + (_target1130311486_ (let () (declare (not safe)) (##vector-ref - ___splice3832138322_ + ___splice3840238403_ '0)))) - (if (gx#stx-null? _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + (if (gx#stx-null? _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _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 ((___splice3840238403_ + (gx#syntax-split-splice _hd1127711685_ '0))) + (let ((_tl1130511489_ (let () (declare (not safe)) - (##vector-ref ___splice3832138322_ '1))) - (_target1122211405_ + (##vector-ref ___splice3840238403_ '1))) + (_target1130311486_ (let () (declare (not safe)) - (##vector-ref ___splice3832138322_ '0)))) - (if (gx#stx-null? _tl1122411408_) - (___match3838938390_ - _e1119711600_ - _hd1119611604_ - _tl1119511607_ - ___splice3832138322_ - _target1122211405_ - _tl1122411408_) + (##vector-ref ___splice3840238403_ '0)))) + (if (gx#stx-null? _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _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 ((___splice3840238403_ + (gx#syntax-split-splice _hd1127711685_ '0))) + (let ((_tl1130511489_ (let () (declare (not safe)) - (##vector-ref ___splice3832138322_ '1))) - (_target1122211405_ + (##vector-ref ___splice3840238403_ '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 ___splice3840238403_ '0)))) + (if (gx#stx-null? _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _target1130311486_ + _tl1130511489_) + (let () (declare (not safe)) (_g1127311346_))))) + (let () (declare (not safe)) (_g1127311346_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _hd1119611604_) - (let ((___splice3832138322_ + _hd1127711685_) + (let ((___splice3840238403_ (gx#syntax-split-splice - _hd1119611604_ + _hd1127711685_ '0))) - (let ((_tl1122411408_ + (let ((_tl1130511489_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice3832138322_ '1))) - (_target1122211405_ + (##vector-ref ___splice3840238403_ '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 ___splice3840238403_ '0)))) + (if (gx#stx-null? _tl1130511489_) + (___match3847038471_ + _e1127811681_ + _hd1127711685_ + _tl1127611688_ + ___splice3840238403_ + _target1130311486_ + _tl1130511489_) + (let () (declare (not safe)) (_g1127311346_))))) + (let () (declare (not safe)) (_g1127311346_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1119211265_)))))))) - (___kont3841138412_ + (_g1127311346_)))))))) + (___kont3849238493_ (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? ___stx3848738488_) + (___kont3849238493_) (let () (declare (not safe)) - (_g1112811140_)))))) - (if (gx#stx-pair? ___stx3840638407_) - (let ((_e1113411162_ - (gx#syntax-e ___stx3840638407_))) - (let ((_tl1113211169_ + (_g1120911221_)))))) + (if (gx#stx-pair? ___stx3848738488_) + (let ((_e1121511243_ + (gx#syntax-e ___stx3848738488_))) + (let ((_tl1121311250_ (let () (declare (not safe)) - (##cdr _e1113411162_))) - (_hd1113311166_ + (##cdr _e1121511243_))) + (_hd1121411247_ (let () (declare (not safe)) - (##car _e1113411162_)))) - (___kont3840938410_ - _tl1113211169_ - _hd1113311166_))) + (##car _e1121511243_)))) + (___kont3849038491_ + _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_) + _g1091210915_))) + (_g1091011137_ + (lambda (_g1091210923_) + ((lambda (_L10926_) (let () - (let _recur10857_ ((_datums10860_ - _datums10826_) - (_dispatch10862_ - _dispatch10827_)) - (let* ((___stx3842438425_ _datums10860_) - (_g1086510886_ + (let _recur10938_ ((_datums10941_ + _datums10907_) + (_dispatch10943_ + _dispatch10908_)) + (let* ((___stx3850538506_ _datums10941_) + (_g1094610967_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3842438425_)))) - (let ((___kont3842738428_ - (lambda (_L10944_ _L10946_) - (let* ((_g1096610978_ - (lambda (_g1096710974_) + ___stx3850538506_)))) + (let ((___kont3850838509_ + (lambda (_L11025_ _L11027_) + (let* ((_g1104711059_ + (lambda (_g1104811055_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1096710974_))) - (_g1096511048_ - (lambda (_g1096710982_) + _g1104811055_))) + (_g1104611129_ + (lambda (_g1104811063_) (if (gx#stx-pair? - _g1096710982_) - (let ((_e1097210985_ + _g1104811063_) + (let ((_e1105311066_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1096710982_))) - (let ((_hd1097110989_ + (gx#syntax-e _g1104811063_))) + (let ((_hd1105211070_ (let () (declare (not safe)) - (##car _e1097210985_))) - (_tl1097010992_ + (##car _e1105311066_))) + (_tl1105111073_ (let () (declare (not safe)) - (##cdr _e1097210985_)))) - ((lambda (_L10995_ _L10997_) - (let* ((_g1100911017_ - (lambda (_g1101011013_) + (##cdr _e1105311066_)))) + ((lambda (_L11076_ _L11078_) + (let* ((_g1109011098_ + (lambda (_g1109111094_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1101011013_))) - (_g1100811044_ - (lambda (_g1101011021_) - ((lambda (_L11024_) + _g1109111094_))) + (_g1108911125_ + (lambda (_g1109111102_) + ((lambda (_L11105_) (let () (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_g1103511038_ + (foldr (lambda (_g1111611119_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1103611041_) + _g1111711122_) (cons (cons (gx#datum->syntax '#f '~case-test) - (cons _g1103511038_ - (cons _L10845_ '()))) - _g1103611041_)) + (cons _g1111611119_ + (cons _L10926_ '()))) + _g1111711122_)) '() - _L10946_)) - (cons _L10997_ (cons _L11024_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1101011021_)))) - (_g1100811044_ - (_recur10857_ _L10944_ _L10995_)))) - _tl1097010992_ - _hd1097110989_))) - (_g1096610978_ _g1096710982_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1096511048_ - _dispatch10862_)))) - (___kont3843138432_ - (lambda () _default10828_))) - (let ((___match3844738448_ - (lambda (_e1087110904_ - _hd1087010908_ - _tl1086910911_ - ___splice3842938430_ - _target1087210914_ - _tl1087410917_) - (letrec ((_loop1087510920_ - (lambda (_hd1087310924_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _datum1087910927_) - (if (gx#stx-pair? _hd1087310924_) - (let ((_e1087610930_ (gx#syntax-e _hd1087310924_))) - (let ((_lp-tl1087810937_ + _L11027_)) + (cons _L11078_ (cons _L11105_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1109111102_)))) + (_g1108911125_ + (_recur10938_ _L11025_ _L11076_)))) + _tl1105111073_ + _hd1105211070_))) + (_g1104711059_ _g1104811063_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g1104611129_ + _dispatch10943_)))) + (___kont3851238513_ + (lambda () _default10909_))) + (let ((___match3852838529_ + (lambda (_e1095210985_ + _hd1095110989_ + _tl1095010992_ + ___splice3851038511_ + _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_))) + (___kont3850838509_ + _tl1095010992_ + _datum1096111021_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop1095611001_ + _target1095310995_ '()))))) - (if (gx#stx-pair? ___stx3842438425_) - (let ((_e1087110904_ + (if (gx#stx-pair? ___stx3850538506_) + (let ((_e1095210985_ (gx#syntax-e - ___stx3842438425_))) - (let ((_tl1086910911_ + ___stx3850538506_))) + (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 ((___splice3851038511_ (gx#syntax-split-splice - _hd1087010908_ + _hd1095110989_ '0))) - (let ((_tl1087410917_ + (let ((_tl1095510998_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice3842938430_ '1))) - (_target1087210914_ + (##vector-ref ___splice3851038511_ '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 ___splice3851038511_ '0)))) + (if (gx#stx-null? _tl1095510998_) + (___match3852838529_ + _e1095210985_ + _hd1095110989_ + _tl1095010992_ + ___splice3851038511_ + _target1095310995_ + _tl1095510998_) + (___kont3851238513_)))) + (___kont3851238513_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3851238513_)))))))) + _g1091210923_)))) + (_g1091011137_ _e10905_)))) + (_datum-dispatch-index8741_ + (lambda (_datums10777_) + (let _lp10780_ ((_rest10783_ _datums10777_) + (_ix10785_ '0) + (_r10786_ '())) + (let* ((___stx3853138532_ _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_)) + ___stx3853138532_)))) + (let ((___kont3853438535_ + (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_))))) + (___kont3853838539_ (lambda () _r10786_))) + (let ((___match3855438555_ + (lambda (_e1079510828_ + _hd1079410832_ + _tl1079310835_ + ___splice3853638537_ + _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_))) + (___kont3853438535_ + _tl1079310835_ + _datum1080410864_)))))) + (_loop1079910844_ + _target1079610838_ '()))))) - (if (gx#stx-pair? ___stx3845038451_) - (let ((_e1071410747_ - (gx#syntax-e ___stx3845038451_))) - (let ((_tl1071210754_ + (if (gx#stx-pair? ___stx3853138532_) + (let ((_e1079510828_ + (gx#syntax-e ___stx3853138532_))) + (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 ((___splice3853638537_ (gx#syntax-split-splice - _hd1071310751_ + _hd1079410832_ '0))) - (let ((_tl1071710760_ + (let ((_tl1079810841_ (let () (declare (not safe)) (##vector-ref - ___splice3845538456_ + ___splice3853638537_ '1))) - (_target1071510757_ + (_target1079610838_ (let () (declare (not safe)) (##vector-ref - ___splice3845538456_ + ___splice3853638537_ '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_) + (___match3855438555_ + _e1079510828_ + _hd1079410832_ + _tl1079310835_ + ___splice3853638537_ + _target1079610838_ + _tl1079810841_) + (___kont3853838539_)))) + (___kont3853838539_)))) + (___kont3853838539_)))))))) + (_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_ + _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 +4674,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 +4692,7 @@ '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _L10394_ '()))) + (cons _L10475_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -4700,7 +4700,7 @@ '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _L10399_ + (cons _L10480_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -4711,199 +4711,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_ + _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 ((_g42841_ (gx#syntax-split-splice - _hd1046110527_ + _hd1054210608_ '0))) (begin - (let ((_g42768_ + (let ((_g42842_ (let () (declare (not safe)) - (if (##values? _g42767_) - (##vector-length _g42767_) + (if (##values? _g42841_) + (##vector-length _g42841_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42768_ 2))) + (##fx= _g42842_ 2))) (error "Context expects 2 values" - _g42768_))) - (let ((_target1046310533_ + _g42842_))) + (let ((_target1054410614_ (let () (declare (not safe)) - (##vector-ref _g42767_ 0))) - (_tl1046510536_ + (##vector-ref _g42841_ 0))) + (_tl1054610617_ (let () (declare (not safe)) - (##vector-ref _g42767_ 1)))) - (if (gx#stx-null? _tl1046510536_) - (letrec ((_loop1046610539_ - (lambda (_hd1046410543_ - _dispatch1047010546_) + (##vector-ref _g42841_ 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 +4914,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 +4923,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 +4949,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 +4964,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_ + _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 +5182,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 +5199,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_ + _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 ((_g42843_ (gx#syntax-split-splice - _hd999910065_ + _hd1008010146_ '0))) (begin - (let ((_g42770_ + (let ((_g42844_ (let () (declare (not safe)) - (if (##values? _g42769_) - (##vector-length _g42769_) + (if (##values? _g42843_) + (##vector-length _g42843_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42770_ 2))) + (##fx= _g42844_ 2))) (error "Context expects 2 values" - _g42770_))) - (let ((_target1000110071_ + _g42844_))) + (let ((_target1008210152_ (let () (declare (not safe)) - (##vector-ref _g42769_ 0))) - (_tl1000310074_ + (##vector-ref _g42843_ 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 _g42843_ 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 +5411,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 +5427,7 @@ '#f 'x) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _L10136_ + (cons _L10217_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -5438,218 +5439,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_ + _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 ((_g42845_ + (gx#syntax-split-splice _hd96999765_ '0))) (begin - (let ((_g42772_ + (let ((_g42846_ (let () (declare (not safe)) - (if (##values? _g42771_) - (##vector-length _g42771_) + (if (##values? _g42845_) + (##vector-length _g42845_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42772_ 2))) + (##fx= _g42846_ 2))) (error "Context expects 2 values" - _g42772_))) - (let ((_target96209690_ + _g42846_))) + (let ((_target97019771_ (let () (declare (not safe)) - (##vector-ref _g42771_ 0))) - (_tl96229693_ + (##vector-ref _g42845_ 0))) + (_tl97039774_ (let () (declare (not safe)) - (##vector-ref _g42771_ 1)))) - (if (gx#stx-null? _tl96229693_) - (letrec ((_loop96239696_ - (lambda (_hd96219700_ - _dispatch96279703_) + (##vector-ref _g42845_ 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 +5659,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 +5692,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _L9757_ '()))) + (cons _L9838_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5708,244 +5709,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_ + _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 ((_g42847_ (gx#syntax-split-splice - _hd93239389_ + _hd94049470_ '0))) (begin - (let ((_g42774_ + (let ((_g42848_ (let () (declare (not safe)) - (if (##values? _g42773_) - (##vector-length _g42773_) + (if (##values? _g42847_) + (##vector-length _g42847_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42774_ 2))) + (##fx= _g42848_ 2))) (error "Context expects 2 values" - _g42774_))) - (let ((_target93259395_ + _g42848_))) + (let ((_target94069476_ (let () (declare (not safe)) - (##vector-ref _g42773_ 0))) - (_tl93279398_ + (##vector-ref _g42847_ 0))) + (_tl94089479_ (let () (declare (not safe)) - (##vector-ref _g42773_ 1)))) - (if (gx#stx-null? _tl93279398_) - (letrec ((_loop93289401_ - (lambda (_hd93269405_ - _dispatch93329408_) + (##vector-ref _g42847_ 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_) + _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 +5955,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 +5979,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_ + _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 ((_g42849_ + (gx#syntax-split-splice _hd91799245_ '0))) (begin - (let ((_g42776_ + (let ((_g42850_ (let () (declare (not safe)) - (if (##values? _g42775_) - (##vector-length _g42775_) + (if (##values? _g42849_) + (##vector-length _g42849_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42776_ 2))) + (##fx= _g42850_ 2))) (error "Context expects 2 values" - _g42776_))) - (let ((_target91009170_ + _g42850_))) + (let ((_target91819251_ (let () (declare (not safe)) - (##vector-ref _g42775_ 0))) - (_tl91029173_ + (##vector-ref _g42849_ 0))) + (_tl91839254_ (let () (declare (not safe)) - (##vector-ref _g42775_ 1)))) - (if (gx#stx-null? _tl91029173_) - (letrec ((_loop91039176_ - (lambda (_hd91019180_ - _dispatch91079183_) + (##vector-ref _g42849_ 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 +6233,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _L9237_ '()))) + (cons _L9318_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6249,254 +6250,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 ((_g42851_ + (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 _g42851_ 0))) + (_hashf8890_ (let () (declare (not safe)) - (##vector-ref _g42777_ 1))) - (_eqf8810_ + (##vector-ref _g42851_ 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 _g42851_ 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_ + _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 ((_g42852_ (gx#syntax-split-splice - _hd88418913_ + _hd89228994_ '0))) (begin - (let ((_g42779_ + (let ((_g42853_ (let () (declare (not safe)) - (if (##values? _g42778_) - (##vector-length _g42778_) + (if (##values? _g42852_) + (##vector-length _g42852_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42779_ 2))) + (##fx= _g42853_ 2))) (error "Context expects 2 values" - _g42779_))) - (let ((_target88438919_ + _g42853_))) + (let ((_target89249000_ (let () (declare (not safe)) - (##vector-ref _g42778_ 0))) - (_tl88458922_ + (##vector-ref _g42852_ 0))) + (_tl89269003_ (let () (declare (not safe)) - (##vector-ref _g42778_ 1)))) - (if (gx#stx-null? _tl88458922_) - (letrec ((_loop88468925_ - (lambda (_hd88448929_ - _dispatch88508932_) + (##vector-ref _g42852_ 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 +6508,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 +6516,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 +6534,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 +6555,263 @@ '#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" _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 ((_g42854_ (gx#syntax-split-splice - _tl86848725_ + _tl87658806_ '0))) (begin - (let ((_g42781_ + (let ((_g42855_ (let () (declare (not safe)) - (if (##values? _g42780_) + (if (##values? _g42854_) (##vector-length - _g42780_) + _g42854_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42781_ 2))) + (##fx= _g42855_ 2))) (error "Context expects 2 values" - _g42781_))) - (let ((_target86878728_ + _g42855_))) + (let ((_target87688809_ (let () (declare (not safe)) (##vector-ref - _g42780_ + _g42854_ 0))) - (_tl86898731_ + (_tl87708812_ (let () (declare (not safe)) (##vector-ref - _g42780_ + _g42854_ 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 ((_g42856_ + (_parse-clauses8732_ + _L8841_ + (foldr (lambda (_g88598862_ _g88608865_) + (cons _g88598862_ _g88608865_)) '() - _L8758_)))) + _L8839_)))) (begin - (let ((_g42783_ + (let ((_g42857_ (let () (declare (not safe)) - (if (##values? _g42782_) - (##vector-length _g42782_) + (if (##values? _g42856_) + (##vector-length _g42856_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42783_ 3))) + (##fx= _g42857_ 3))) (error "Context expects 3 values" - _g42783_))) - (let ((_datums8787_ + _g42857_))) + (let ((_datums8868_ (let () (declare (not safe)) - (##vector-ref _g42782_ 0))) - (_dispatch8789_ + (##vector-ref _g42856_ 0))) + (_dispatch8870_ (let () (declare (not safe)) - (##vector-ref _g42782_ 1))) - (_default8790_ + (##vector-ref _g42856_ 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 _g42856_ 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" _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 +6819,190 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#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" _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 ((_g42858_ (gx#syntax-split-splice - _tl1180111842_ + _tl1188211923_ '0))) (begin - (let ((_g42785_ + (let ((_g42859_ (let () (declare (not safe)) - (if (##values? _g42784_) + (if (##values? _g42858_) (##vector-length - _g42784_) + _g42858_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42785_ 2))) + (##fx= _g42859_ 2))) (error "Context expects 2 values" - _g42785_))) - (let ((_target1180411845_ + _g42859_))) + (let ((_target1188511926_ (let () (declare (not safe)) - (##vector-ref _g42784_ 0))) - (_tl1180611848_ + (##vector-ref _g42858_ 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 _g42858_ 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* ((___stx3855738558_ _stx11989_) + (_g1199612092_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3847638477_)))) - (let ((___kont3847938480_ - (lambda (_L12488_ _L12490_) + ___stx3855738558_)))) + (let ((___kont3856038561_ + (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_) + (___kont3856238563_ + (lambda (_L12511_ _L12513_ _L12514_) _L12511_)) + (___kont3856438565_ + (lambda (_L12408_ _L12410_ _L12411_ _L12412_) + (let* ((_g1243312441_ + (lambda (_g1243412437_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1235312356_))) - (_g1235112379_ - (lambda (_g1235312364_) - ((lambda (_L12367_) + _g1243412437_))) + (_g1243212460_ + (lambda (_g1243412445_) + ((lambda (_L12448_) (let () (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx=) - (cons _L12330_ - (cons _L12367_ '()))) - (cons _L12329_ - (cons _L12327_ '())))))) - _g1235312364_)))) - (_g1235112379_ (gx#stx-e _L12331_))))) - (___kont3848538486_ - (lambda (_L12177_ _L12179_ _L12180_ _L12181_ _L12182_) - (let* ((_g1220612221_ - (lambda (_g1220712217_) + (cons _L12411_ + (cons _L12448_ '()))) + (cons _L12410_ + (cons _L12408_ '())))))) + _g1243412445_)))) + (_g1243212460_ (gx#stx-e _L12412_))))) + (___kont3856638567_ + (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_ + _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 +7011,2067 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#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_))))))) + (___kont3856838569_ + (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 ((___match3871438715_ + (lambda (_e1207112099_ + _hd1207012103_ + _tl1206912106_ + _e1207412109_ + _hd1207312113_ + _tl1207212116_ + _e1207712119_ + _hd1207612123_ + _tl1207512126_ + ___splice3857038571_ + _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_))) + (___kont3856838569_ + _K1208612155_ + _hd1207612123_ + _hd1207312113_)))))) + (_loop1208112135_ _target1207812129_ '()))))) + (if (gx#stx-pair? ___stx3855738558_) + (let ((_e1200212539_ (gx#syntax-e ___stx3855738558_))) + (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_) + (___kont3856038561_ + _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_) + (___kont3856238563_ + _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_) + (___kont3856438565_ + _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_) + (___kont3856638567_ + _hd1206412252_ + _hd1204112402_ + _hd1202212505_ + _hd1200712563_ + _hd1200412553_) + (if (gx#stx-pair/null? _tl1200612566_) + (let ((___splice3857038571_ (gx#syntax-split-splice - _tl1192512485_ + _tl1200612566_ '0))) - (let ((_tl1199912051_ + (let ((_tl1208012132_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3857038571_ '1))) - (_target1199712048_ + (_target1207812129_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3857038571_ '0)))) - (if (gx#stx-null? _tl1199912051_) - (___match3863338634_ - _e1192112458_ - _hd1192012462_ - _tl1191912465_ - _e1192412468_ - _hd1192312472_ - _tl1192212475_ - _e1192712478_ - _hd1192612482_ - _tl1192512485_ - ___splice3848938490_ - _target1199712048_ - _tl1199912051_) + (if (gx#stx-null? _tl1208012132_) + (___match3871438715_ + _e1200212539_ + _hd1200112543_ + _tl1200012546_ + _e1200512549_ + _hd1200412553_ + _tl1200312556_ + _e1200812559_ + _hd1200712563_ + _tl1200612566_ + ___splice3857038571_ + _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 ((___splice3857038571_ (gx#syntax-split-splice - _tl1192512485_ + _tl1200612566_ '0))) - (let ((_tl1199912051_ + (let ((_tl1208012132_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3857038571_ '1))) - (_target1199712048_ + (_target1207812129_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3857038571_ '0)))) - (if (gx#stx-null? _tl1199912051_) - (___match3863338634_ - _e1192112458_ - _hd1192012462_ - _tl1191912465_ - _e1192412468_ - _hd1192312472_ - _tl1192212475_ - _e1192712478_ - _hd1192612482_ - _tl1192512485_ - ___splice3848938490_ - _target1199712048_ - _tl1199912051_) + (if (gx#stx-null? _tl1208012132_) + (___match3871438715_ + _e1200212539_ + _hd1200112543_ + _tl1200012546_ + _e1200512549_ + _hd1200412553_ + _tl1200312556_ + _e1200812559_ + _hd1200712563_ + _tl1200612566_ + ___splice3857038571_ + _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 ((___splice3857038571_ + (gx#syntax-split-splice _tl1200612566_ '0))) + (let ((_tl1208012132_ (let () (declare (not safe)) - (##vector-ref ___splice3848938490_ '1))) - (_target1199712048_ + (##vector-ref ___splice3857038571_ '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 ___splice3857038571_ '0)))) + (if (gx#stx-null? _tl1208012132_) + (___match3871438715_ + _e1200212539_ + _hd1200112543_ + _tl1200012546_ + _e1200512549_ + _hd1200412553_ + _tl1200312556_ + _e1200812559_ + _hd1200712563_ + _tl1200612566_ + ___splice3857038571_ + _target1207812129_ + _tl1208012132_) + (let () (declare (not safe)) (_g1199612092_))))) + (let () (declare (not safe)) (_g1199612092_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl1192512485_) - (let ((___splice3848938490_ + _tl1200612566_) + (let ((___splice3857038571_ (gx#syntax-split-splice - _tl1192512485_ + _tl1200612566_ '0))) - (let ((_tl1199912051_ + (let ((_tl1208012132_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3857038571_ '1))) - (_target1199712048_ + (_target1207812129_ (let () (declare (not safe)) (##vector-ref - ___splice3848938490_ + ___splice3857038571_ '0)))) (if (gx#stx-null? - _tl1199912051_) - (___match3863338634_ - _e1192112458_ - _hd1192012462_ - _tl1191912465_ - _e1192412468_ - _hd1192312472_ - _tl1192212475_ - _e1192712478_ - _hd1192612482_ - _tl1192512485_ - ___splice3848938490_ - _target1199712048_ - _tl1199912051_) + _tl1208012132_) + (___match3871438715_ + _e1200212539_ + _hd1200112543_ + _tl1200012546_ + _e1200512549_ + _hd1200412553_ + _tl1200312556_ + _e1200812559_ + _hd1200712563_ + _tl1200612566_ + ___splice3857038571_ + _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" _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 ((_g42860_ (gx#syntax-split-splice - _tl1252712578_ + _tl1260812659_ '0))) (begin - (let ((_g42787_ + (let ((_g42861_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42786_) - (##vector-length _g42786_) + _g42860_) + (##vector-length _g42860_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42787_ 2))) - (error "Context expects 2 values" _g42787_))) + (if (not (let () (declare (not safe)) (##fx= _g42861_ 2))) + (error "Context expects 2 values" _g42861_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1253012581_ + (let ((_target1261112662_ (let () (declare (not safe)) (##vector-ref - _g42786_ + _g42860_ 0))) - (_tl1253212584_ + (_tl1261312665_ (let () (declare (not safe)) (##vector-ref - _g42786_ + _g42860_ 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)) + (_g42862_ + (_split12594_ + (foldr (lambda (_g1273012733_ + _g1273112736_) + (cons _g1273012733_ + _g1273112736_)) '() - _L12611_) - _mid12647_))) + _L12692_) + _mid12728_))) (begin - (let ((_g42789_ + (let ((_g42863_ (let () (declare (not safe)) - (if (##values? _g42788_) + (if (##values? _g42862_) (##vector-length - _g42788_) + _g42862_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42789_ 2))) + (##fx= _g42863_ 2))) (error "Context expects 2 values" - _g42789_))) - (let ((_left12658_ + _g42863_))) + (let ((_left12739_ (let () (declare (not safe)) - (##vector-ref _g42788_ 0))) - (_right12660_ + (##vector-ref _g42862_ 0))) + (_right12741_ (let () (declare (not safe)) (##vector-ref - _g42788_ + _g42862_ 1)))) (let () - (let* ((_g1266412705_ - (lambda (_g1266512701_) + (let* ((_g1274512786_ + (lambda (_g1274612782_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1266512701_))) - (_g1266312866_ - (lambda (_g1266512709_) + _g1274612782_))) + (_g1274412947_ + (lambda (_g1274612790_) (if (gx#stx-pair? - _g1266512709_) - (let ((_e1267212712_ + _g1274612790_) + (let ((_e1275312793_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1266512709_))) - (let ((_hd1267112716_ + (gx#syntax-e _g1274612790_))) + (let ((_hd1275212797_ (let () (declare (not safe)) - (##car _e1267212712_))) - (_tl1267012719_ + (##car _e1275312793_))) + (_tl1275112800_ (let () (declare (not safe)) - (##cdr _e1267212712_)))) - (if (gx#stx-pair? _tl1267012719_) - (let ((_e1267512722_ - (gx#syntax-e _tl1267012719_))) - (let ((_hd1267412726_ + (##cdr _e1275312793_)))) + (if (gx#stx-pair? _tl1275112800_) + (let ((_e1275612803_ + (gx#syntax-e _tl1275112800_))) + (let ((_hd1275512807_ (let () (declare (not safe)) - (##car _e1267512722_))) - (_tl1267312729_ + (##car _e1275612803_))) + (_tl1275412810_ (let () (declare (not safe)) - (##cdr _e1267512722_)))) - (if (gx#stx-pair/null? _hd1267412726_) - (let ((_g42790_ + (##cdr _e1275612803_)))) + (if (gx#stx-pair/null? _hd1275512807_) + (let ((_g42864_ (gx#syntax-split-splice - _hd1267412726_ + _hd1275512807_ '0))) (begin - (let ((_g42791_ + (let ((_g42865_ (let () (declare (not safe)) - (if (##values? _g42790_) + (if (##values? _g42864_) (##vector-length - _g42790_) + _g42864_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42791_ 2))) + (##fx= _g42865_ 2))) (error "Context expects 2 values" - _g42791_))) - (let ((_target1267612732_ + _g42865_))) + (let ((_target1275712813_ (let () (declare (not safe)) - (##vector-ref _g42790_ 0))) - (_tl1267812735_ + (##vector-ref _g42864_ 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 _g42864_ 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 ((_g42866_ (gx#syntax-split-splice - _hd1268612766_ + _hd1276712847_ '0))) (begin - (let ((_g42793_ + (let ((_g42867_ (let () (declare (not safe)) - (if (##values? _g42792_) + (if (##values? _g42866_) (##vector-length - _g42792_) + _g42866_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42793_ 2))) + (##fx= _g42867_ 2))) (error "Context expects 2 values" - _g42793_))) - (let ((_target1268812772_ + _g42867_))) + (let ((_target1276912853_ (let () (declare (not safe)) - (##vector-ref _g42792_ 0))) - (_tl1269012775_ + (##vector-ref _g42866_ 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 _g42866_ 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" _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 ((_g42868_ (gx#syntax-split-splice - _hd1290612986_ + _hd1298713067_ '0))) (begin - (let ((_g42795_ + (let ((_g42869_ (let () (declare (not safe)) - (if (##values? _g42794_) + (if (##values? _g42868_) (##vector-length - _g42794_) + _g42868_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42795_ 2))) + (##fx= _g42869_ 2))) (error "Context expects 2 values" - _g42795_))) - (let ((_target1290812992_ + _g42869_))) + (let ((_target1298913073_ (let () (declare (not safe)) - (##vector-ref _g42794_ 0))) - (_tl1291012995_ + (##vector-ref _g42868_ 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 _g42868_ 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 ((_g42874_ (gx#syntax-split-splice - _tl1292413039_ + _tl1300513120_ '0))) (begin - (let ((_g42801_ + (let ((_g42875_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42800_) - (##vector-length _g42800_) + _g42874_) + (##vector-length _g42874_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42801_ 2))) - (error "Context expects 2 values" _g42801_))) + (if (not (let () (declare (not safe)) (##fx= _g42875_ 2))) + (error "Context expects 2 values" _g42875_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1292713042_ + (let ((_target1300813123_ (let () (declare (not safe)) (##vector-ref - _g42800_ + _g42874_ 0))) - (_tl1292913045_ + (_tl1301013126_ (let () (declare (not safe)) (##vector-ref - _g42800_ + _g42874_ 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 ((_g42870_ (gx#syntax-split-splice - _tl1293913097_ + _tl1302013178_ '0))) (begin - (let ((_g42797_ + (let ((_g42871_ (let () (declare (not safe)) (if (##values? - _g42796_) + _g42870_) (##vector-length - _g42796_) + _g42870_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42797_ 2))) - (error "Context expects 2 values" _g42797_))) + (##fx= _g42871_ 2))) + (error "Context expects 2 values" _g42871_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1294213100_ + (let ((_target1302313181_ (let () (declare (not safe)) (##vector-ref - _g42796_ + _g42870_ 0))) - (_tl1294413103_ + (_tl1302513184_ (let () (declare (not safe)) (##vector-ref - _g42796_ + _g42870_ 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 ((_g42872_ (gx#syntax-split-splice - _tl1293613087_ + _tl1301713168_ '0))) (begin - (let ((_g42799_ + (let ((_g42873_ (let () (declare (not safe)) - (if (##values? _g42798_) + (if (##values? _g42872_) (##vector-length - _g42798_) + _g42872_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42799_ 2))) + (##fx= _g42873_ 2))) (error "Context expects 2 values" - _g42799_))) - (let ((_target1295113130_ + _g42873_))) + (let ((_target1303213211_ (let () (declare (not safe)) - (##vector-ref _g42798_ 0))) - (_tl1295313133_ + (##vector-ref _g42872_ 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 _g42872_ 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" _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* ((___stx3871738718_ _$stx13445_) + (_g1345013481_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3863638637_)))) - (let ((___kont3863938640_ (lambda (_L13512_) _L13512_)) - (___kont3864138642_ - (lambda (_L13457_ _L13459_) + ___stx3871738718_)))) + (let ((___kont3872038721_ (lambda (_L13593_) _L13593_)) + (___kont3872238723_ + (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 ((___match3876038761_ + (lambda (_e1346313488_ + _hd1346213492_ + _tl1346113495_ + _e1346613498_ + _hd1346513502_ + _tl1346413505_ + ___splice3872438725_ + _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_))) + (___kont3872238723_ + _rest1347513534_ + _hd1346513502_)))))) + (_loop1347013514_ _target1346713508_ '()))))) + (if (gx#stx-pair? ___stx3871738718_) + (let ((_e1345513573_ (gx#syntax-e ___stx3871738718_))) + (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_) + (___kont3872038721_ _hd1345713587_) + (if (gx#stx-pair/null? _tl1345613590_) + (let ((___splice3872438725_ (gx#syntax-split-splice - _tl1337513509_ + _tl1345613590_ '0))) - (let ((_tl1338813430_ + (let ((_tl1346913511_ (let () (declare (not safe)) (##vector-ref - ___splice3864338644_ + ___splice3872438725_ '1))) - (_target1338613427_ + (_target1346713508_ (let () (declare (not safe)) (##vector-ref - ___splice3864338644_ + ___splice3872438725_ '0)))) - (if (gx#stx-null? _tl1338813430_) - (___match3867938680_ - _e1337413492_ - _hd1337313496_ - _tl1337213499_ - _e1337713502_ - _hd1337613506_ - _tl1337513509_ - ___splice3864338644_ - _target1338613427_ - _tl1338813430_) + (if (gx#stx-null? _tl1346913511_) + (___match3876038761_ + _e1345513573_ + _hd1345413577_ + _tl1345313580_ + _e1345813583_ + _hd1345713587_ + _tl1345613590_ + ___splice3872438725_ + _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* ((___stx3876338764_ _$stx13611_) + (_g1361713670_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3868238683_)))) - (let ((___kont3868538686_ - (lambda (_L13791_ _L13793_) + ___stx3876338764_)))) + (let ((___kont3876638767_ + (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_ '()))))) + (___kont3876838769_ + (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_) + (___kont3877038771_ + (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* ((___match3885038851_ + (lambda (_e1364913677_ + _hd1364813681_ + _tl1364713684_ + _e1365213687_ + _hd1365113691_ + _tl1365013694_ + _e1365513697_ + _hd1365413701_ + _tl1365313704_ + ___splice3877238773_ + _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_) + (___kont3877038771_ + _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_ '())))) + (___match3882438825_ + (lambda (_e1363413776_ + _hd1363313780_ + _tl1363213783_ + _e1363713786_ + _hd1363613790_ + _tl1363513793_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + _e1364313806_ + _hd1364213810_ + _tl1364113813_) + (let ((_L13816_ _hd1364213810_) + (_L13818_ _tl1363813803_)) + (if (gx#identifier-list? _L13818_) + (___kont3876838769_ _L13816_ _L13818_) + (if (gx#stx-pair/null? _tl1363513793_) + (let ((___splice3877238773_ (gx#syntax-split-splice - _tl1355413712_ + _tl1363513793_ '0))) - (let ((_tl1357713629_ + (let ((_tl1365813710_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3877238773_ '1))) - (_target1357513626_ + (_target1365613707_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3877238773_ '0)))) - (if (gx#stx-null? _tl1357713629_) - (___match3876938770_ - _e1355313695_ - _hd1355213699_ - _tl1355113702_ - _e1355613705_ - _hd1355513709_ - _tl1355413712_ - _e1355913715_ - _hd1355813719_ - _tl1355713722_ - ___splice3869138692_ - _target1357513626_ - _tl1357713629_) + (if (gx#stx-null? _tl1365813710_) + (___match3885038851_ + _e1363413776_ + _hd1363313780_ + _tl1363213783_ + _e1363713786_ + _hd1363613790_ + _tl1363513793_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + ___splice3877238773_ + _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_))))))) + (___match3879438795_ + (lambda (_e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1362913862_ + _hd1362813866_ + _tl1362713869_) + (let ((_L13872_ _hd1362813866_) + (_L13874_ _hd1362513856_)) + (if (gx#identifier? _L13874_) + (___kont3876638767_ _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]#_g42876_| + _hd1363913800_) + (___match3882438825_ + _e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + _e1362913862_ + _hd1362813866_ + _tl1362713869_) (if (gx#stx-pair/null? - _tl1354313778_) - (let ((___splice3869138692_ + _tl1362413859_) + (let ((___splice3877238773_ (gx#syntax-split-splice - _tl1354313778_ + _tl1362413859_ '0))) - (let ((_tl1357713629_ + (let ((_tl1365813710_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3877238773_ '1))) - (_target1357513626_ + (_target1365613707_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3877238773_ '0)))) (if (gx#stx-null? - _tl1357713629_) - (___match3876938770_ - _e1354213761_ - _hd1354113765_ - _tl1354013768_ - _e1354513771_ - _hd1354413775_ - _tl1354313778_ - _e1355913715_ - _hd1355813719_ - _tl1355713722_ - ___splice3869138692_ - _target1357513626_ - _tl1357713629_) + _tl1365813710_) + (___match3885038851_ + _e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + ___splice3877238773_ + _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 ((___splice3877238773_ (gx#syntax-split-splice - _tl1354313778_ + _tl1362413859_ '0))) - (let ((_tl1357713629_ + (let ((_tl1365813710_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3877238773_ '1))) - (_target1357513626_ + (_target1365613707_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3877238773_ '0)))) (if (gx#stx-null? - _tl1357713629_) - (___match3876938770_ - _e1354213761_ - _hd1354113765_ - _tl1354013768_ - _e1354513771_ - _hd1354413775_ - _tl1354313778_ - _e1355913715_ - _hd1355813719_ - _tl1355713722_ - ___splice3869138692_ - _target1357513626_ - _tl1357713629_) + _tl1365813710_) + (___match3885038851_ + _e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + ___splice3877238773_ + _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? ___stx3876338764_) + (let ((_e1362313842_ (gx#syntax-e ___stx3876338764_))) + (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_) + (___match3879438795_ + _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 ((___splice3877238773_ (gx#syntax-split-splice - _tl1354313778_ + _tl1362413859_ '0))) - (let ((_tl1357713629_ + (let ((_tl1365813710_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice3869138692_ '1))) - (_target1357513626_ + (##vector-ref ___splice3877238773_ '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 ___splice3877238773_ '0)))) + (if (gx#stx-null? _tl1365813710_) + (___match3885038851_ + _e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + ___splice3877238773_ + _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 ((___splice3877238773_ (gx#syntax-split-splice - _tl1354313778_ + _tl1362413859_ '0))) - (let ((_tl1357713629_ + (let ((_tl1365813710_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3877238773_ '1))) - (_target1357513626_ + (_target1365613707_ (let () (declare (not safe)) (##vector-ref - ___splice3869138692_ + ___splice3877238773_ '0)))) (if (gx#stx-null? - _tl1357713629_) - (___match3876938770_ - _e1354213761_ - _hd1354113765_ - _tl1354013768_ - _e1354513771_ - _hd1354413775_ - _tl1354313778_ - _e1355913715_ - _hd1355813719_ - _tl1355713722_ - ___splice3869138692_ - _target1357513626_ - _tl1357713629_) + _tl1365813710_) + (___match3885038851_ + _e1362313842_ + _hd1362213846_ + _tl1362113849_ + _e1362613852_ + _hd1362513856_ + _tl1362413859_ + _e1364013796_ + _hd1363913800_ + _tl1363813803_ + ___splice3877238773_ + _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* ((___stx3885338854_ _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_ + ___stx3885338854_)))) + (let ((___kont3885638857_ + (lambda (_L14912_ _L14914_) + (_let-head?13900_ _L14914_))) + (___kont3885838859_ (lambda (_L14872_) '#t)) + (___kont3886038861_ (lambda () '#f))) + (if (gx#stx-pair? ___stx3885338854_) + (let ((_e1483114892_ + (gx#syntax-e ___stx3885338854_))) + (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_) + (___kont3885638857_ + _hd1483314906_ + _hd1483014896_) + (___kont3886038861_)))) + (if (gx#stx-null? _tl1482914899_) + (___kont3885838859_ _hd1483014896_) + (___kont3886038861_))))) + (___kont3886038861_)))))) + (_let-bind13899_ + (lambda (_x14722_) + (let* ((___stx3888738888_ _x14722_) + (_g1472614745_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3880638807_)))) - (let ((___kont3880938810_ - (lambda (_L14720_ _L14722_) _x14641_)) - (___kont3881138812_ - (lambda (_L14681_) + ___stx3888738888_)))) + (let ((___kont3889038891_ + (lambda (_L14801_ _L14803_) _x14722_)) + (___kont3889238893_ + (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? ___stx3888738888_) + (let ((_e1473214781_ + (gx#syntax-e ___stx3888738888_))) + (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_) + (___kont3889038891_ + _hd1473414795_ + _hd1473114785_) (let () (declare (not safe)) - (_g1464514664_))))) - (if (gx#stx-null? _tl1464914707_) - (___kont3881138812_ _hd1465014704_) + (_g1472614745_))))) + (if (gx#stx-null? _tl1473014788_) + (___kont3889238893_ _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* ((___stx3891938920_ _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_ + ___stx3891938920_)))) + (let ((___kont3892238923_ + (lambda (_L14705_) + (gx#stx-andmap gx#identifier? _L14705_))) + (___kont3892438925_ + (lambda () (gx#identifier? _x14662_)))) + (if (gx#stx-pair? ___stx3891938920_) + (let ((_e1467114695_ + (gx#syntax-e ___stx3891938920_))) + (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]#_g42877_| + _hd1467014699_) + (___kont3892238923_ _tl1466914702_) + (___kont3892438925_)) + (___kont3892438925_)))) + (___kont3892438925_)))))) + (_let-head13901_ + (lambda (_x14602_) + (let* ((___stx3893938940_ _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_ + ___stx3893938940_)))) + (let ((___kont3894238943_ (lambda (_L14645_) _L14645_)) + (___kont3894438945_ (lambda () (list _x14602_)))) + (if (gx#stx-pair? ___stx3893938940_) + (let ((_e1461114635_ + (gx#syntax-e ___stx3893938940_))) + (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]#_g42878_| + _hd1461014639_) + (___kont3894238943_ _tl1460914642_) + (___kont3894438945_)) + (___kont3894438945_)))) + (___kont3894438945_))))))) + (let* ((___stx3895938960_ _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_) + ___stx3895938960_)))) + (let ((___kont3896238963_ + (lambda (_L14575_ _L14577_ _L14578_ _L14579_) + (cons _L14579_ + (cons (cons (cons _L14578_ (cons _L14577_ '())) '()) + _L14575_)))) + (___kont3896438965_ + (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_) + (___kont3896838969_ + (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_ + _g1409814119_))) + (_g1409614408_ + (lambda (_g1409814127_) + (if (gx#stx-pair/null? _g1409814127_) + (let ((_g42879_ (gx#syntax-split-splice - _g1401714046_ + _g1409814127_ '0))) (begin - (let ((_g42806_ + (let ((_g42880_ (let () (declare (not safe)) - (if (##values? _g42805_) - (##vector-length _g42805_) + (if (##values? _g42879_) + (##vector-length _g42879_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42806_ 2))) + (##fx= _g42880_ 2))) (error "Context expects 2 values" - _g42806_))) - (let ((_target1402014049_ + _g42880_))) + (let ((_target1410114130_ (let () (declare (not safe)) - (##vector-ref _g42805_ 0))) - (_tl1402214052_ + (##vector-ref _g42879_ 0))) + (_tl1410314133_ (let () (declare (not safe)) - (##vector-ref _g42805_ 1)))) - (if (gx#stx-null? _tl1402214052_) - (letrec ((_loop1402314055_ - (lambda (_hd1402114059_ - _e1402714062_ - _hd1402814064_) + (##vector-ref _g42879_ 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_ + _g1420314215_))) + (_g1420114396_ + (lambda (_g1420314223_) + (if (gx#stx-pair/null? _g1420314223_) + (let ((_g42881_ (gx#syntax-split-splice - _g1412214142_ + _g1420314223_ '0))) (begin - (let ((_g42808_ + (let ((_g42882_ (let () (declare (not safe)) - (if (##values? _g42807_) + (if (##values? _g42881_) (##vector-length - _g42807_) + _g42881_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42808_ 2))) + (##fx= _g42882_ 2))) (error "Context expects 2 values" - _g42808_))) - (let ((_target1412414145_ + _g42882_))) + (let ((_target1420514226_ (let () (declare (not safe)) (##vector-ref - _g42807_ + _g42881_ 0))) - (_tl1412614148_ + (_tl1420714229_ (let () (declare (not safe)) (##vector-ref - _g42807_ + _g42881_ 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_) + _g1427414286_))) + (_g1427214384_ + (lambda (_g1427414294_) (if (gx#stx-pair/null? - _g1419314213_) - (let ((_g42809_ + _g1427414294_) + (let ((_g42883_ (gx#syntax-split-splice - _g1419314213_ + _g1427414294_ '0))) (begin - (let ((_g42810_ + (let ((_g42884_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42809_) - (##vector-length _g42809_) + _g42883_) + (##vector-length _g42883_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42810_ 2))) - (error "Context expects 2 values" _g42810_))) + (if (not (let () (declare (not safe)) (##fx= _g42884_ 2))) + (error "Context expects 2 values" _g42884_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1419514216_ + (let ((_target1427614297_ (let () (declare (not safe)) (##vector-ref - _g42809_ + _g42883_ 0))) - (_tl1419714219_ + (_tl1427814300_ (let () (declare (not safe)) (##vector-ref - _g42809_ + _g42883_ 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 +9079,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* ((___match3905639057_ + (lambda (_e1395013984_ + _hd1394913988_ + _tl1394813991_ + _e1395313994_ + _hd1395213998_ + _tl1395114001_ + ___splice3897038971_ + _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 ((___splice3897238973_ (gx#syntax-split-splice - _tl1387013920_ + _tl1395114001_ '0))) - (let ((_tl1388413956_ + (let ((_tl1396514037_ (let () (declare (not safe)) (##vector-ref - ___splice3889138892_ + ___splice3897238973_ '1))) - (_target1388213953_ + (_target1396314034_ (let () (declare (not safe)) (##vector-ref - ___splice3889138892_ + ___splice3897238973_ '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_)) + (___kont3896838969_ _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_ '())))) + (___match3903639037_ + (lambda (_e1392714427_ + _hd1392614431_ + _tl1392514434_ + _e1393014437_ + _hd1392914441_ + _tl1392814444_ + _e1393314447_ + _hd1393214451_ + _tl1393114454_ + _e1393614457_ + _hd1393514461_ + _tl1393414464_ + ___splice3896638967_ + _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_))) + (___kont3896438965_ + _body1394514493_ + _hd1393514461_)))))) + (_loop1394014473_ _target1393714467_ '())))) + (___match3900039001_ + (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_) + (___kont3896238963_ + _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 ((___splice3897038971_ (gx#syntax-split-splice - _hd1383414468_ + _hd1391514549_ '0))) - (let ((_tl1387513926_ + (let ((_tl1395614007_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3897038971_ '1))) - (_target1387313923_ + (_target1395414004_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3897038971_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (if (gx#stx-null? _tl1395614007_) + (___match3905639057_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3897038971_ + _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 ((___splice3897038971_ (gx#syntax-split-splice - _hd1383414468_ + _hd1391514549_ '0))) - (let ((_tl1387513926_ + (let ((_tl1395614007_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3897038971_ '1))) - (_target1387313923_ + (_target1395414004_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3897038971_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (if (gx#stx-null? _tl1395614007_) + (___match3905639057_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3897038971_ + _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? ___stx3895938960_) + (let ((_e1391314535_ (gx#syntax-e ___stx3895938960_))) + (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_) + (___match3900039001_ + _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 ((___splice3897038971_ + (gx#syntax-split-splice _hd1391514549_ '0))) + (let ((_tl1395614007_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3897038971_ '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 ___splice3897038971_ '0)))) + (if (gx#stx-null? _tl1395614007_) + (___match3905639057_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3897038971_ + _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 ((___splice3897038971_ + (gx#syntax-split-splice _hd1391514549_ '0))) + (let ((_tl1395614007_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3897038971_ '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 ___splice3897038971_ '0)))) + (if (gx#stx-null? _tl1395614007_) + (___match3905639057_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3897038971_ + _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 ((___splice3896638967_ + (gx#syntax-split-splice _tl1391414552_ '0))) + (let ((_tl1393914470_ (let () (declare (not safe)) - (##vector-ref ___splice3888538886_ '1))) - (_target1385614386_ + (##vector-ref ___splice3896638967_ '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 ___splice3896638967_ '0)))) + (if (gx#stx-null? _tl1393914470_) + (___match3903639037_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + _e1391914555_ + _hd1391814559_ + _tl1391714562_ + _e1393614457_ + _hd1393514461_ + _tl1393414464_ + ___splice3896638967_ + _target1393714467_ + _tl1393914470_) + (if (gx#stx-pair/null? _hd1391514549_) + (let ((___splice3897038971_ (gx#syntax-split-splice - _hd1383414468_ + _hd1391514549_ '0))) - (let ((_tl1387513926_ + (let ((_tl1395614007_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3897038971_ '1))) - (_target1387313923_ + (_target1395414004_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3897038971_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (if (gx#stx-null? _tl1395614007_) + (___match3905639057_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3897038971_ + _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 ((___splice3897038971_ + (gx#syntax-split-splice _hd1391514549_ '0))) + (let ((_tl1395614007_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3897038971_ '1))) + (_target1395414004_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3897038971_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (if (gx#stx-null? _tl1395614007_) + (___match3905639057_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3897038971_ + _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 ((___splice3897038971_ + (gx#syntax-split-splice _hd1391514549_ '0))) + (let ((_tl1395614007_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3897038971_ '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 ___splice3897038971_ '0)))) + (if (gx#stx-null? _tl1395614007_) + (___match3905639057_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3897038971_ + _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 ((___splice3897038971_ + (gx#syntax-split-splice _hd1391514549_ '0))) + (let ((_tl1395614007_ (let () (declare (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3897038971_ '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 ___splice3897038971_ '0)))) + (if (gx#stx-null? _tl1395614007_) + (___match3905639057_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3897038971_ + _target1395414004_ + _tl1395614007_) + (let () (declare (not safe)) (_g1390513977_))))) + (let () (declare (not safe)) (_g1390513977_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _hd1383414468_) - (let ((___splice3888938890_ + _hd1391514549_) + (let ((___splice3897038971_ (gx#syntax-split-splice - _hd1383414468_ + _hd1391514549_ '0))) - (let ((_tl1387513926_ + (let ((_tl1395614007_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice3888938890_ '1))) - (_target1387313923_ + (##vector-ref ___splice3897038971_ '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 ___splice3897038971_ '0)))) + (if (gx#stx-null? _tl1395614007_) + (___match3905639057_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3897038971_ + _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 ((___splice3897038971_ (gx#syntax-split-splice - _hd1383414468_ + _hd1391514549_ '0))) - (let ((_tl1387513926_ + (let ((_tl1395614007_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3897038971_ '1))) - (_target1387313923_ + (_target1395414004_ (let () (declare (not safe)) (##vector-ref - ___splice3888938890_ + ___splice3897038971_ '0)))) - (if (gx#stx-null? _tl1387513926_) - (___match3897538976_ - _e1383214454_ - _hd1383114458_ - _tl1383014461_ - _e1383514464_ - _hd1383414468_ - _tl1383314471_ - ___splice3888938890_ - _target1387313923_ - _tl1387513926_) + (if (gx#stx-null? _tl1395614007_) + (___match3905639057_ + _e1391314535_ + _hd1391214539_ + _tl1391114542_ + _e1391614545_ + _hd1391514549_ + _tl1391414552_ + ___splice3897038971_ + _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* ((___stx3905939060_ _$stx14937_) + (_g1494314994_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3897838979_)))) - (let ((___kont3898138982_ (lambda () '#t)) - (___kont3898338984_ - (lambda (_L15071_) + ___stx3905939060_)))) + (let ((___kont3906239063_ (lambda () '#t)) + (___kont3906439065_ + (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_))))) + (___kont3906839069_ + (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* ((___match3913639137_ + (lambda (_e1497315001_ + _hd1497215005_ + _tl1497115008_ + _e1497615011_ + _hd1497515015_ + _tl1497415018_ + _e1497915021_ + _hd1497815025_ + _tl1497715028_ + ___splice3907039071_ + _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_))) + (___kont3906839069_ + _body1498815057_ + _tl1497715028_ + _hd1497815025_ + _hd1497215005_)))))) + (_loop1498315037_ _target1498015031_ '())))) + (___match3911039111_ + (lambda (_e1495415102_ + _hd1495315106_ + _tl1495215109_ + _e1495715112_ + _hd1495615116_ + _tl1495515119_ + ___splice3906639067_ + _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_))) + (___kont3906439065_ + _body1496615148_)))))) + (_loop1496115128_ _target1495815122_ '()))))) + (if (gx#stx-pair? ___stx3905939060_) + (let ((_e1494715184_ (gx#syntax-e ___stx3905939060_))) + (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_) + (___kont3906239063_) + (if (gx#stx-pair/null? _tl1494815201_) + (let ((___splice3906639067_ (gx#syntax-split-splice - _tl1486715120_ + _tl1494815201_ '0))) - (let ((_tl1487915044_ + (let ((_tl1496015125_ (let () (declare (not safe)) (##vector-ref - ___splice3898538986_ + ___splice3906639067_ '1))) - (_target1487715041_ + (_target1495815122_ (let () (declare (not safe)) (##vector-ref - ___splice3898538986_ + ___splice3906639067_ '0)))) - (if (gx#stx-null? _tl1487915044_) - (___match3902939030_ - _e1486615103_ - _hd1486515107_ - _tl1486415110_ - _e1486915113_ - _hd1486815117_ - _tl1486715120_ - ___splice3898538986_ - _target1487715041_ - _tl1487915044_) + (if (gx#stx-null? _tl1496015125_) + (___match3911039111_ + _e1494715184_ + _hd1494615188_ + _tl1494515191_ + _e1495015194_ + _hd1494915198_ + _tl1494815201_ + ___splice3906639067_ + _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 ((___splice3907039071_ (gx#syntax-split-splice - _tl1486715120_ + _tl1494815201_ '0))) - (let ((_tl1490114953_ + (let ((_tl1498215034_ (let () (declare (not safe)) (##vector-ref - ___splice3898938990_ + ___splice3907039071_ '1))) - (_target1489914950_ + (_target1498015031_ (let () (declare (not safe)) (##vector-ref - ___splice3898938990_ + ___splice3907039071_ '0)))) (if (gx#stx-null? - _tl1490114953_) - (___match3905539056_ - _e1486615103_ - _hd1486515107_ - _tl1486415110_ - _e1486915113_ - _hd1486815117_ - _tl1486715120_ - _e1489814940_ - _hd1489714944_ - _tl1489614947_ - ___splice3898938990_ - _target1489914950_ - _tl1490114953_) + _tl1498215034_) + (___match3913639137_ + _e1494715184_ + _hd1494615188_ + _tl1494515191_ + _e1495015194_ + _hd1494915198_ + _tl1494815201_ + _e1497915021_ + _hd1497815025_ + _tl1497715028_ + ___splice3907039071_ + _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* ((___stx3913939140_ _$stx15214_) + (_g1522515303_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3905839059_)))) - (let ((___kont3906139062_ + ___stx3913939140_)))) + (let ((___kont3914239143_ (lambda () (cons (gx#datum->syntax '#f 'quote) (cons '() '())))) - (___kont3906339064_ - (lambda (_L15553_) - (cons (gx#datum->syntax '#f 'quote) (cons _L15553_ '())))) - (___kont3906539066_ - (lambda (_L15501_) + (___kont3914439145_ + (lambda (_L15634_) + (cons (gx#datum->syntax '#f 'quote) (cons _L15634_ '())))) + (___kont3914639147_ + (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_ '())))) + (___kont3914839149_ (lambda (_L15529_) _L15529_)) + (___kont3915039151_ (lambda (_L15471_ _L15473_) _L15473_)) + (___kont3915239153_ + (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_ '())))))) + (___kont3915439155_ + (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_) '()))))) + (___kont3915639157_ (lambda (_L15320_) _L15320_))) + (let* ((___match3927839279_ + (lambda (_e1527815383_ + _hd1527715387_ + _tl1527615390_ + _e1528115393_ + _hd1528015397_ + _tl1527915400_ + _e1528415403_ + _hd1528315407_ + _tl1528215410_) + (let ((_L15413_ _tl1528215410_) + (_L15415_ _hd1528315407_) + (_L15416_ _hd1528015397_) + (_L15417_ _hd1527715387_)) + (if (gx#ellipsis? _L15415_) + (___kont3915239153_ + _L15413_ + _L15415_ + _L15416_ + _L15417_) + (___kont3915439155_ + _tl1527915400_ + _hd1528015397_ + _hd1527715387_))))) + (___match3926039261_ + (lambda (_e1526515441_ + _hd1526415445_ + _tl1526315448_ + _e1526815451_ + _hd1526715455_ + _tl1526615458_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_) + (let ((_L15471_ _hd1527015465_) + (_L15473_ _hd1526715455_)) + (if (gx#ellipsis? _L15471_) + (___kont3915039151_ _L15471_ _L15473_) + (___match3927839279_ + _e1526515441_ + _hd1526415445_ + _tl1526315448_ + _e1526815451_ + _hd1526715455_ + _tl1526615458_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_)))))) + (if (gx#stx-pair? ___stx3913939140_) + (let ((_e1522915656_ (gx#syntax-e ___stx3913939140_))) + (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_) + (___kont3914239143_) + (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]#_g42886_| + _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_) + (___kont3914439145_ + _hd1523815628_) + (___match3927839279_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1523915624_ + _hd1523815628_ + _tl1523715631_)))) + (___kont3915439155_ + _tl1523415621_ + _hd1523515618_ + _hd1522815660_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42811_| - _hd1515415537_) - (if (gx#stx-pair? _tl1515315540_) - (let ((_e1516815491_ + |gerbil/core$$[1]#_g42885_| + _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_) + (___kont3914639147_ + _hd1524815576_) + (___match3927839279_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1524915572_ + _hd1524815576_ + _tl1524715579_)))) + (___kont3915439155_ + _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_) + (___match3926039261_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_) + (___match3927839279_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_)))) + (___kont3915439155_ + _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_) + (___kont3914839149_ _hd1525915523_) + (___match3927839279_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1526015519_ + _hd1525915523_ + _tl1525815526_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3915439155_ + _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_) + (___match3926039261_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_) + (___match3927839279_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3915439155_ + _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_) + (___match3926039261_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_) + (___match3927839279_ + _e1522915656_ + _hd1522815660_ + _tl1522715663_ + _e1523615614_ + _hd1523515618_ + _tl1523415621_ + _e1527115461_ + _hd1527015465_ + _tl1526915468_)))) + (___kont3915439155_ + _tl1523415621_ + _hd1523515618_ + _hd1522815660_)))))) + (___kont3915639157_ _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* ((___stx3929939300_ _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_) + ___stx3929939300_)))) + (let ((___kont3930239303_ (lambda () '#f)) + (___kont3930439305_ (lambda () '#f)) + (___kont3930639307_ + (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_)) + (___kont3930839309_ + (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_)))) + (___kont3931239313_ + (lambda (_L16436_) + (_simple-quote?15677_ _L16436_))) + (___kont3931439315_ (lambda () '#t))) + (let* ((_g1637516448_ (lambda () - (if (gx#stx-box? ___stx3921839219_) - (let ((_e1632716351_ + (if (gx#stx-box? ___stx3929939300_) + (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_ + ___stx3929939300_)))) + (___kont3931239313_ _e1640816432_)) + (___kont3931439315_)))) + (___match3937039371_ + (lambda (_e1639716455_ + ___splice3931039311_ + _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_))) + (___kont3930839309_ + _e1640616485_)))))) + (_loop1640116465_ + _target1639816459_ '())))) - (_g1629316430_ + (_g1637416511_ (lambda () - (if (gx#stx-vector? ___stx3921839219_) - (let ((_e1631616374_ + (if (gx#stx-vector? ___stx3929939300_) + (let ((_e1639716455_ (vector->list (gx#syntax-e - ___stx3921839219_)))) - (if (gx#stx-pair/null? _e1631616374_) - (let ((___splice3922939230_ + ___stx3929939300_)))) + (if (gx#stx-pair/null? _e1639716455_) + (let ((___splice3931039311_ (gx#syntax-split-splice - _e1631616374_ + _e1639716455_ '0))) - (let ((_tl1631916381_ + (let ((_tl1640016462_ (let () (declare (not safe)) (##vector-ref - ___splice3922939230_ + ___splice3931039311_ '1))) - (_target1631716378_ + (_target1639816459_ (let () (declare (not safe)) (##vector-ref - ___splice3922939230_ + ___splice3931039311_ '0)))) (if (gx#stx-null? - _tl1631916381_) - (___match3928939290_ - _e1631616374_ - ___splice3922939230_ - _target1631716378_ - _tl1631916381_) - (___kont3923339234_)))) - (___kont3923339234_))) + _tl1640016462_) + (___match3937039371_ + _e1639716455_ + ___splice3931039311_ + _target1639816459_ + _tl1640016462_) + (___kont3931439315_)))) + (___kont3931439315_))) (let () (declare (not safe)) - (_g1629416367_)))))) - (if (gx#stx-pair? ___stx3921839219_) - (let ((_e1630016498_ - (gx#syntax-e ___stx3921839219_))) - (let ((_tl1629816505_ + (_g1637516448_)))))) + (if (gx#stx-pair? ___stx3929939300_) + (let ((_e1638116579_ + (gx#syntax-e ___stx3929939300_))) + (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]#_g42888_| + _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_) + (___kont3930239303_) + (___kont3930639307_ + _tl1637916586_ + _hd1638016583_)))) + (___kont3930639307_ + _tl1637916586_ + _hd1638016583_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42813_| - _hd1629916502_) - (if (gx#stx-pair? _tl1629816505_) - (let ((_e1630916477_ + |gerbil/core$$[1]#_g42887_| + _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_) + (___kont3930439305_) + (___kont3930639307_ + _tl1637916586_ + _hd1638016583_)))) + (___kont3930639307_ + _tl1637916586_ + _hd1638016583_)) + (___kont3930639307_ + _tl1637916586_ + _hd1638016583_))) + (___kont3930639307_ + _tl1637916586_ + _hd1638016583_)))) (let () (declare (not safe)) - (_g1629316430_)))))))) - (_generate15598_ - (lambda (_e15660_ _d15662_) - (let* ((___stx3929639297_ _e15660_) - (_g1567115729_ + (_g1637416511_)))))))) + (_generate15679_ + (lambda (_e15741_ _d15743_) + (let* ((___stx3937739378_ _e15741_) + (_g1575215810_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3929639297_)))) - (let ((___kont3929939300_ - (lambda (_L16240_) - (let* ((_g1625316261_ - (lambda (_g1625416257_) + ___stx3937739378_)))) + (let ((___kont3938039381_ + (lambda (_L16321_) + (let* ((_g1633416342_ + (lambda (_g1633516338_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1625416257_))) - (_g1625216280_ - (lambda (_g1625416265_) - ((lambda (_L16268_) + _g1633516338_))) + (_g1633316361_ + (lambda (_g1633516346_) + ((lambda (_L16349_) (let () (cons (gx#datum->syntax '#f @@ -10482,26 +10483,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_)))))) + (___kont3938239383_ + (lambda (_L16250_) + (if (fxzero? _d15743_) + _L16250_ + (let* ((_g1626316271_ + (lambda (_g1626416267_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1618316186_))) - (_g1618116209_ - (lambda (_g1618316194_) - ((lambda (_L16197_) + _g1626416267_))) + (_g1626216290_ + (lambda (_g1626416275_) + ((lambda (_L16278_) (let () (cons (gx#datum->syntax '#f @@ -10511,32 +10512,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_))))))) + (___kont3938439385_ + (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_) + _g1619316196_))) + (_g1619116219_ + (lambda (_g1619316204_) + ((lambda (_L16207_) (let () (cons (gx#datum->syntax '#f @@ -10547,24 +10548,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_))))))) + (___kont3938639387_ + (lambda (_L16104_ _L16106_) + (let* ((_g1612116129_ + (lambda (_g1612216125_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1604116044_))) - (_g1603916067_ - (lambda (_g1604116052_) - ((lambda (_L16055_) + _g1612216125_))) + (_g1612016148_ + (lambda (_g1612216133_) + ((lambda (_L16136_) (let () (cons (gx#datum->syntax '#f @@ -10572,603 +10573,603 @@ (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_))))) + (___kont3938839389_ + (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_ + _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_)))))) + (___kont3939039391_ + (lambda (_L15920_) + (let* ((_g1593415942_ + (lambda (_g1593515938_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1585415857_))) - (_g1585215880_ - (lambda (_g1585415865_) - ((lambda (_L15868_) + _g1593515938_))) + (_g1593315961_ + (lambda (_g1593515946_) + ((lambda (_L15949_) (let () (cons (gx#datum->syntax '#f 'list->vector) - (cons _L15868_ '())))) - _g1585415865_)))) - (_g1585215880_ - (_generate15598_ - (foldr (lambda (_g1588315886_ _g1588415889_) - (cons _g1588315886_ _g1588415889_)) + (cons _L15949_ '())))) + _g1593515946_)))) + (_g1593315961_ + (_generate15679_ + (foldr (lambda (_g1596415967_ _g1596515970_) + (cons _g1596415967_ _g1596515970_)) '() - _L15839_) - _d15662_))))) - (___kont3931339314_ - (lambda (_L15757_) - (let* ((_g1576715775_ - (lambda (_g1576815771_) + _L15920_) + _d15743_))))) + (___kont3939439395_ + (lambda (_L15838_) + (let* ((_g1584815856_ + (lambda (_g1584915852_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1576815771_))) - (_g1576615794_ - (lambda (_g1576815779_) - ((lambda (_L15782_) + _g1584915852_))) + (_g1584715875_ + (lambda (_g1584915860_) + ((lambda (_L15863_) (let () (cons (gx#datum->syntax '#f 'box) - (cons _L15782_ '())))) - _g1576815779_)))) - (_g1576615794_ - (_generate15598_ _L15757_ _d15662_))))) - (___kont3931539316_ - (lambda (_L15736_) + (cons _L15863_ '())))) + _g1584915860_)))) + (_g1584715875_ + (_generate15679_ _L15838_ _d15743_))))) + (___kont3939639397_ + (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? ___stx3937739378_) + (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_ + ___stx3937739378_)))) + (___kont3939439395_ _e1580315834_)) + (___kont3939639397_ ___stx3937739378_)))) + (___match3949639497_ + (lambda (_e1579215886_ + ___splice3939239393_ + _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_))) + (___kont3939039391_ + _e1580115916_)))))) + (_loop1579615896_ + _target1579315890_ '())))) - (_g1566815892_ + (_g1574915973_ (lambda () - (if (gx#stx-vector? ___stx3929639297_) - (let ((_e1571115805_ + (if (gx#stx-vector? ___stx3937739378_) + (let ((_e1579215886_ (vector->list (gx#syntax-e - ___stx3929639297_)))) - (if (gx#stx-pair/null? _e1571115805_) - (let ((___splice3931139312_ + ___stx3937739378_)))) + (if (gx#stx-pair/null? _e1579215886_) + (let ((___splice3939239393_ (gx#syntax-split-splice - _e1571115805_ + _e1579215886_ '0))) - (let ((_tl1571415812_ + (let ((_tl1579515893_ (let () (declare (not safe)) (##vector-ref - ___splice3931139312_ + ___splice3939239393_ '1))) - (_target1571215809_ + (_target1579315890_ (let () (declare (not safe)) (##vector-ref - ___splice3931139312_ + ___splice3939239393_ '0)))) (if (gx#stx-null? - _tl1571415812_) - (___match3941539416_ - _e1571115805_ - ___splice3931139312_ - _target1571215809_ - _tl1571415812_) - (___kont3931539316_ - ___stx3929639297_)))) - (___kont3931539316_ - ___stx3929639297_))) + _tl1579515893_) + (___match3949639497_ + _e1579215886_ + ___splice3939239393_ + _target1579315890_ + _tl1579515893_) + (___kont3939639397_ + ___stx3937739378_)))) + (___kont3939639397_ + ___stx3937739378_))) (let () (declare (not safe)) - (_g1566915798_)))))) - (if (gx#stx-pair? ___stx3929639297_) - (let ((_e1567616220_ - (gx#syntax-e ___stx3929639297_))) - (let ((_tl1567416227_ + (_g1575015879_)))))) + (if (gx#stx-pair? ___stx3937739378_) + (let ((_e1575716301_ + (gx#syntax-e ___stx3937739378_))) + (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]#_g42892_| + _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_) + (___kont3938039381_ + _hd1575916315_) + (___kont3938839389_ + _tl1575516308_ + _hd1575616305_)))) + (___kont3938839389_ + _tl1575516308_ + _hd1575616305_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42817_| - _hd1567516224_) - (if (gx#stx-pair? _tl1567416227_) - (let ((_e1568616159_ + |gerbil/core$$[1]#_g42891_| + _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_) + (___kont3938239383_ + _hd1576616244_) + (___kont3938839389_ + _tl1575516308_ + _hd1575616305_)))) + (___kont3938839389_ + _tl1575516308_ + _hd1575616305_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42816_| - _hd1567516224_) + |gerbil/core$$[1]#_g42890_| + _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_) + (___kont3938439385_ _hd1577316173_) + (___kont3938839389_ _tl1575516308_ _hd1575616305_)))) + (___kont3938839389_ _tl1575516308_ _hd1575616305_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3938839389_ + _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]#_g42889_| + _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_)) + (___kont3938639387_ _L16104_ _L16106_)) + (___kont3938839389_ + _tl1575516308_ + _hd1575616305_)) + (___kont3938839389_ _tl1575516308_ _hd1575616305_)))) + (___kont3938839389_ _tl1575516308_ _hd1575616305_)) + (___kont3938839389_ _tl1575516308_ _hd1575616305_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont3938839389_ + _tl1575516308_ + _hd1575616305_)))) + (___kont3938839389_ + _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" _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* ((___stx3950339504_ _$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_) + ___stx3950339504_)))) + (let ((___kont3950639507_ + (lambda (_L16703_) + (cons (gx#datum->syntax '#f 'quote) (cons _L16703_ '())))) + (___kont3950839509_ + (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 ((___match3952439525_ + (lambda (_e1661916683_ + _hd1661816687_ + _tl1661716690_ + _e1662216693_ + _hd1662116697_ + _tl1662016700_) + (let ((_L16703_ _hd1662116697_)) + (if (gx#stx-datum? _L16703_) + (___kont3950639507_ _L16703_) + (___kont3950839509_ _hd1662116697_)))))) + (if (gx#stx-pair? ___stx3950339504_) + (let ((_e1661916683_ (gx#syntax-e ___stx3950339504_))) + (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_) + (___match3952439525_ + _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* ((___stx3956139562_ _rest16848_) + (_g1685416866_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3948039481_)))) - (let ((___kont3948339484_ - (lambda (_L16813_ _L16815_) - (let* ((___stx3946039461_ _L16815_) - (_g1683216839_ + ___stx3956139562_)))) + (let ((___kont3956439565_ + (lambda (_L16894_ _L16896_) + (let* ((___stx3954139542_ _L16896_) + (_g1691316920_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3946039461_)))) - (let ((___kont3946339464_ + ___stx3954139542_)))) + (let ((___kont3954439545_ (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_))))) + (___kont3954639547_ (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_ + _stx16720_ + _L16896_)))) + (___kont3954839549_ (lambda () - (_lp16764_ - _L16813_ - _hd16769_ - (cons _L16815_ _body16770_))))) - (if (gx#identifier? ___stx3946039461_) + (_lp16845_ + _L16894_ + _hd16850_ + (cons _L16896_ _body16851_))))) + (if (gx#identifier? ___stx3954139542_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42820_| - ___stx3946039461_) - (___kont3946339464_) + |gerbil/core$$[1]#_g42894_| + ___stx3954139542_) + (___kont3954439545_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42819_| - ___stx3946039461_) - (___kont3946539466_) - (___kont3946739468_))) - (___kont3946739468_)))))) - (___kont3948539486_ + |gerbil/core$$[1]#_g42893_| + ___stx3954139542_) + (___kont3954639547_) + (___kont3954839549_))) + (___kont3954839549_)))))) + (___kont3956639567_ (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? ___stx3956139562_) + (let ((_e1686016884_ + (gx#syntax-e ___stx3956139562_))) + (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_)))) + (___kont3956439565_ + _tl1685816891_ + _hd1685916888_))) + (___kont3956639567_)))))))) + (let* ((_g1672616737_ + (lambda (_g1672716733_) + (gx#raise-syntax-error '#f '"Bad syntax" _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 ((_g42895_ (_generate16723_ _L16754_))) (begin - (let ((_g42822_ + (let ((_g42896_ (let () (declare (not safe)) - (if (##values? _g42821_) - (##vector-length _g42821_) + (if (##values? _g42895_) + (##vector-length _g42895_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42822_ 3))) + (##fx= _g42896_ 3))) (error "Context expects 3 values" - _g42822_))) - (let ((_hd16686_ + _g42896_))) + (let ((_hd16767_ (let () (declare (not safe)) - (##vector-ref _g42821_ 0))) - (_body16688_ + (##vector-ref _g42895_ 0))) + (_body16769_ (let () (declare (not safe)) - (##vector-ref _g42821_ 1))) - (_tail?16689_ + (##vector-ref _g42895_ 1))) + (_tail?16770_ (let () (declare (not safe)) - (##vector-ref _g42821_ 2)))) - (let* ((_g1669116699_ - (lambda (_g1669216695_) + (##vector-ref _g42895_ 2)))) + (let* ((_g1677216780_ + (lambda (_g1677316776_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1669216695_))) - (_g1669016753_ - (lambda (_g1669216703_) - ((lambda (_L16706_) + _g1677316776_))) + (_g1677116834_ + (lambda (_g1677316784_) + ((lambda (_L16787_) (let () - (let* ((_g1671916727_ - (lambda (_g1672016723_) + (let* ((_g1680016808_ + (lambda (_g1680116804_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax" - _g1672016723_))) - (_g1671816749_ - (lambda (_g1672016731_) - ((lambda (_L16734_) + _g1680116804_))) + (_g1679916830_ + (lambda (_g1680116812_) + ((lambda (_L16815_) (let () (let () - (if _tail?16689_ + (if _tail?16770_ (cons (gx#datum->syntax '#f 'lambda%) - (cons _L16706_ + (cons _L16787_ (cons (cons (gx#datum->syntax '#f 'apply) - _L16734_) + _L16815_) '()))) (cons (gx#datum->syntax '#f 'lambda%) - (cons _L16706_ - (cons _L16734_ '()))))))) - _g1672016731_)))) - (_g1671816749_ _body16688_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1669216703_)))) - (_g1669016753_ _hd16686_))))) - (_g1664516656_ _g1664616660_))) - _tl1664816670_))) - (_g1664516656_ _g1664616660_))))) - (_g1664416757_ _stx16639_))))) + (cons _L16787_ + (cons _L16815_ '()))))))) + _g1680116812_)))) + (_g1679916830_ _body16769_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1677316784_)))) + (_g1677116834_ _hd16767_))))) + (_g1672616737_ _g1672716741_))) + _tl1672916751_))) + (_g1672616737_ _g1672716741_))))) + (_g1672516838_ _stx16720_))))) (define |gerbil/core$$[:0:]#<>| - (lambda (_$stx16887_) - (let ((_g1689016897_ - (lambda (_g1689116893_) - (gx#raise-syntax-error '#f '"Bad syntax" _g1689116893_)))) - (_g1689016897_ _$stx16887_)))) + (lambda (_$stx16968_) + (let ((_g1697116978_ + (lambda (_g1697216974_) + (gx#raise-syntax-error '#f '"Bad syntax" _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" _g1698616988_)))) + (_g1698516992_ _$stx16982_)))))) diff --git a/src/bootstrap/gerbil/core__5.scm b/src/bootstrap/gerbil/core__5.scm index 2f16caabc0..d484894a6f 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]#_g42903_| (##structure gx#syntax-quote::t 'quote @@ -9,571 +9,571 @@ '())) (begin (define |gerbil/core$$[:0:]#defsyntax| - (lambda (_$stx16916_) - (let* ((___stx3949639497_ _$stx16916_) - (_g1692116960_ + (lambda (_$stx16997_) + (let* ((___stx3957739578_ _$stx16997_) + (_g1700217041_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3949639497_)))) - (let ((___kont3949939500_ - (lambda (_L17083_ _L17085_ _L17086_) + ___stx3957739578_)))) + (let ((___kont3958039581_ + (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_) + (___kont3958439585_ + (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* ((___match3963239633_ + (lambda (_e1702917048_ + _hd1702817052_ + _tl1702717055_ + _e1703217058_ + _hd1703117062_ + _tl1703017065_ + _e1703517068_ + _hd1703417072_ + _tl1703317075_) + (let ((_L17078_ _hd1703417072_) + (_L17080_ _hd1703117062_)) + (if (gx#identifier? _L17080_) + (___kont3958439585_ _L17078_ _L17080_) + (let () (declare (not safe)) (_g1700217041_)))))) + (___match3962439625_ + (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_) + (___match3963239633_ + _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_))))) + (___match3961239613_ + (lambda (_e1700917104_ + _hd1700817108_ + _tl1700717111_ + _e1701217114_ + _hd1701117118_ + _tl1701017121_ + _e1701517124_ + _hd1701417128_ + _tl1701317131_ + ___splice3958239583_ + _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_) + (___kont3958039581_ + _L17164_ + _L17166_ + _L17167_) + (___match3962439625_ + _e1700917104_ + _hd1700817108_ + _tl1700717111_ + _e1701217114_ + _hd1701117118_ + _tl1701017121_)))))))) + (_loop1701917140_ _target1701617134_ '()))))) + (if (gx#stx-pair? ___stx3957739578_) + (let ((_e1700917104_ (gx#syntax-e ___stx3957739578_))) + (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 ((___splice3958239583_ (gx#syntax-split-splice - _tl1692917040_ + _tl1701017121_ '0))) - (let ((_tl1693717056_ + (let ((_tl1701817137_ (let () (declare (not safe)) (##vector-ref - ___splice3950139502_ + ___splice3958239583_ '1))) - (_target1693517053_ + (_target1701617134_ (let () (declare (not safe)) (##vector-ref - ___splice3950139502_ + ___splice3958239583_ '0)))) - (if (gx#stx-null? _tl1693717056_) - (___match3953139532_ - _e1692817023_ - _hd1692717027_ - _tl1692617030_ - _e1693117033_ - _hd1693017037_ - _tl1692917040_ - _e1693417043_ - _hd1693317047_ - _tl1693217050_ - ___splice3950139502_ - _target1693517053_ - _tl1693717056_) + (if (gx#stx-null? _tl1701817137_) + (___match3961239613_ + _e1700917104_ + _hd1700817108_ + _tl1700717111_ + _e1701217114_ + _hd1701117118_ + _tl1701017121_ + _e1701517124_ + _hd1701417128_ + _tl1701317131_ + ___splice3958239583_ + _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_) + (___match3963239633_ + _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_) + (___match3963239633_ + _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_) + (___match3963239633_ + _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" _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 ((_g42897_ (gx#syntax-split-splice - _tl1713317193_ + _tl1721417274_ '0))) (begin - (let ((_g42824_ + (let ((_g42898_ (let () (declare (not safe)) (if (##values? - _g42823_) + _g42897_) (##vector-length - _g42823_) + _g42897_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g42824_ 2))) - (error "Context expects 2 values" _g42824_))) + (##fx= _g42898_ 2))) + (error "Context expects 2 values" _g42898_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1713617196_ + (let ((_target1721717277_ (let () (declare (not safe)) (##vector-ref - _g42823_ + _g42897_ 0))) - (_tl1713817199_ + (_tl1721917280_ (let () (declare (not safe)) (##vector-ref - _g42823_ + _g42897_ 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 ((_g42899_ (gx#syntax-split-splice - _tl1713017183_ + _tl1721117264_ '0))) (begin - (let ((_g42826_ + (let ((_g42900_ (let () (declare (not safe)) - (if (##values? _g42825_) + (if (##values? _g42899_) (##vector-length - _g42825_) + _g42899_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42826_ 2))) + (##fx= _g42900_ 2))) (error "Context expects 2 values" - _g42826_))) - (let ((_target1714517226_ + _g42900_))) + (let ((_target1722617307_ (let () (declare (not safe)) - (##vector-ref _g42825_ 0))) - (_tl1714717229_ + (##vector-ref _g42899_ 0))) + (_tl1722817310_ (let () (declare (not safe)) - (##vector-ref _g42825_ 1)))) - (if (gx#stx-null? _tl1714717229_) - (letrec ((_loop1714817232_ - (lambda (_hd1714617236_ + (##vector-ref _g42899_ 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_) + _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_) + _g1740117413_))) + (_g1739917585_ + (lambda (_g1740117421_) (if (gx#stx-pair/null? - _g1732017340_) - (let ((_g42827_ + _g1740117421_) + (let ((_g42901_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _g1732017340_ '0))) + (gx#syntax-split-splice _g1740117421_ '0))) (begin - (let ((_g42828_ + (let ((_g42902_ (let () (declare (not safe)) - (if (##values? _g42827_) - (##vector-length _g42827_) + (if (##values? _g42901_) + (##vector-length _g42901_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42828_ 2))) - (error "Context expects 2 values" _g42828_))) - (let ((_target1732217343_ + (##fx= _g42902_ 2))) + (error "Context expects 2 values" _g42902_))) + (let ((_target1740317424_ (let () (declare (not safe)) - (##vector-ref _g42827_ 0))) - (_tl1732417346_ + (##vector-ref _g42901_ 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 _g42901_ 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_) + _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_) + _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 +586,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* ((___stx3963539636_ _$stx17608_) + (_g1761317649_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3955439555_)))) - (let ((___kont3955739558_ - (lambda (_L17682_ _L17684_) + ___stx3963539636_)))) + (let ((___kont3963839639_ + (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 +654,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_ + (___kont3964039641_ + (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* ((___match3970039701_ + (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_)) + (___kont3964039641_ _L17686_ _L17688_ _L17689_) + (let () (declare (not safe)) (_g1761317649_)))))) + (___match3968039681_ + (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_) + (___kont3963839639_ _L17763_ _L17765_) + (___match3970039701_ + _e1761917713_ + _hd1761817717_ + _tl1761717720_ + _e1762217723_ + _hd1762117727_ + _tl1762017730_ + _e1762517733_ + _hd1762417737_ + _tl1762317740_)))))) + (if (gx#stx-pair? ___stx3963539636_) + (let ((_e1761917713_ (gx#syntax-e ___stx3963539636_))) + (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]#_g42903_| + _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_) + (___match3968039681_ + _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_) + (___match3970039701_ + _e1761917713_ + _hd1761817717_ + _tl1761717720_ + _e1762217723_ + _hd1762117727_ + _tl1762017730_ + _e1762517733_ + _hd1762417737_ + _tl1762317740_) + (let () (declare (not safe)) (_g1761317649_)))))) + (if (gx#stx-null? _tl1762317740_) + (___match3970039701_ + _e1761917713_ + _hd1761817717_ + _tl1761717720_ + _e1762217723_ + _hd1762117727_ + _tl1762017730_ + _e1762517733_ + _hd1762417737_ + _tl1762317740_) + (let () (declare (not safe)) (_g1761317649_)))) + (if (gx#stx-null? _tl1762317740_) + (___match3970039701_ + _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_) + (___match3970039701_ + _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_) + (___match3970039701_ + _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..7bef1cb380 100644 --- a/src/bootstrap/gerbil/core__6.scm +++ b/src/bootstrap/gerbil/core__6.scm @@ -1,958 +1,958 @@ (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-stx19395_) (gx#stx-wrap-source - _e-stx19314_ - (gx#stx-source _stx17709_)))) - (_slotify17715_ - (lambda (_field19179_ _off19181_) - (let* ((___stx3962239623_ _field19179_) - (_g1918419211_ + _e-stx19395_ + (gx#stx-source _stx17790_)))) + (_slotify17796_ + (lambda (_field19260_ _off19262_) + (let* ((___stx3970339704_ _field19260_) + (_g1926519292_ (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_ + ___stx3970339704_)))) + (let ((___kont3970639707_ + (lambda (_L19376_ _L19378_) + (cons _off19262_ + (cons _L19378_ (cons _L19376_ '()))))) + (___kont3970839709_ + (lambda (_L19329_ _L19331_ _L19332_) + (cons _off19262_ + (cons _L19331_ (cons _L19329_ '())))))) + (if (gx#stx-pair? ___stx3970339704_) + (let ((_e1927119356_ + (gx#syntax-e ___stx3970339704_))) + (let ((_tl1926919363_ (let () (declare (not safe)) - (##cdr _e1919019275_))) - (_hd1918919279_ + (##cdr _e1927119356_))) + (_hd1927019360_ (let () (declare (not safe)) - (##car _e1919019275_)))) - (if (gx#stx-pair? _tl1918819282_) - (let ((_e1919319285_ - (gx#syntax-e _tl1918819282_))) - (let ((_tl1919119292_ + (##car _e1927119356_)))) + (if (gx#stx-pair? _tl1926919363_) + (let ((_e1927419366_ + (gx#syntax-e _tl1926919363_))) + (let ((_tl1927219373_ (let () (declare (not safe)) - (##cdr _e1919319285_))) - (_hd1919219289_ + (##cdr _e1927419366_))) + (_hd1927319370_ (let () (declare (not safe)) - (##car _e1919319285_)))) - (if (gx#stx-null? _tl1919119292_) - (___kont3962539626_ - _hd1919219289_ - _hd1918919279_) - (if (gx#stx-pair? _tl1919119292_) - (let ((_e1920519238_ + (##car _e1927419366_)))) + (if (gx#stx-null? _tl1927219373_) + (___kont3970639707_ + _hd1927319370_ + _hd1927019360_) + (if (gx#stx-pair? _tl1927219373_) + (let ((_e1928619319_ (gx#syntax-e - _tl1919119292_))) - (let ((_tl1920319245_ + _tl1927219373_))) + (let ((_tl1928419326_ (let () (declare (not safe)) - (##cdr _e1920519238_))) - (_hd1920419242_ + (##cdr _e1928619319_))) + (_hd1928519323_ (let () (declare (not safe)) - (##car _e1920519238_)))) + (##car _e1928619319_)))) (if (gx#stx-null? - _tl1920319245_) - (___kont3962739628_ - _hd1920419242_ - _hd1919219289_ - _hd1918919279_) + _tl1928419326_) + (___kont3970839709_ + _hd1928519323_ + _hd1927319370_ + _hd1927019360_) (let () (declare (not safe)) - (_g1918419211_))))) + (_g1926519292_))))) (let () (declare (not safe)) - (_g1918419211_)))))) + (_g1926519292_)))))) (let () (declare (not safe)) - (_g1918419211_))))) - (let () (declare (not safe)) (_g1918419211_))))))) - (_field-id17716_ - (lambda (_field19045_) - (let* ((___stx3966639667_ _field19045_) - (_g1904919076_ + (_g1926519292_))))) + (let () (declare (not safe)) (_g1926519292_))))))) + (_field-id17797_ + (lambda (_field19126_) + (let* ((___stx3974739748_ _field19126_) + (_g1913019157_ (lambda () (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_ + ___stx3974739748_)))) + (let ((___kont3975039751_ (lambda (_L19241_ _L19243_) ':)) + (___kont3975239753_ + (lambda (_L19194_ _L19196_ _L19197_) _L19197_))) + (if (gx#stx-pair? ___stx3974739748_) + (let ((_e1913619221_ + (gx#syntax-e ___stx3974739748_))) + (let ((_tl1913419228_ (let () (declare (not safe)) - (##cdr _e1905519140_))) - (_hd1905419144_ + (##cdr _e1913619221_))) + (_hd1913519225_ (let () (declare (not safe)) - (##car _e1905519140_)))) - (if (gx#stx-pair? _tl1905319147_) - (let ((_e1905819150_ - (gx#syntax-e _tl1905319147_))) - (let ((_tl1905619157_ + (##car _e1913619221_)))) + (if (gx#stx-pair? _tl1913419228_) + (let ((_e1913919231_ + (gx#syntax-e _tl1913419228_))) + (let ((_tl1913719238_ (let () (declare (not safe)) - (##cdr _e1905819150_))) - (_hd1905719154_ + (##cdr _e1913919231_))) + (_hd1913819235_ (let () (declare (not safe)) - (##car _e1905819150_)))) - (if (gx#stx-null? _tl1905619157_) - (___kont3966939670_ - _hd1905719154_ - _hd1905419144_) - (if (gx#stx-pair? _tl1905619157_) - (let ((_e1907019103_ + (##car _e1913919231_)))) + (if (gx#stx-null? _tl1913719238_) + (___kont3975039751_ + _hd1913819235_ + _hd1913519225_) + (if (gx#stx-pair? _tl1913719238_) + (let ((_e1915119184_ (gx#syntax-e - _tl1905619157_))) - (let ((_tl1906819110_ + _tl1913719238_))) + (let ((_tl1914919191_ (let () (declare (not safe)) - (##cdr _e1907019103_))) - (_hd1906919107_ + (##cdr _e1915119184_))) + (_hd1915019188_ (let () (declare (not safe)) - (##car _e1907019103_)))) + (##car _e1915119184_)))) (if (gx#stx-null? - _tl1906819110_) - (___kont3967139672_ - _hd1906919107_ - _hd1905719154_ - _hd1905419144_) + _tl1914919191_) + (___kont3975239753_ + _hd1915019188_ + _hd1913819235_ + _hd1913519225_) (let () (declare (not safe)) - (_g1904919076_))))) + (_g1913019157_))))) (let () (declare (not safe)) - (_g1904919076_)))))) + (_g1913019157_)))))) (let () (declare (not safe)) - (_g1904919076_))))) - (let () (declare (not safe)) (_g1904919076_))))))) - (_struct-opt?17717_ - (lambda (_key19042_) - (memq (gx#stx-e _key19042_) + (_g1913019157_))))) + (let () (declare (not safe)) (_g1913019157_))))))) + (_struct-opt?17798_ + (lambda (_key19123_) + (memq (gx#stx-e _key19123_) '(fields: id: name: plist: constructor: unchecked:)))) - (_class-opt?17718_ - (lambda (_key19039_) - (memq (gx#stx-e _key19039_) + (_class-opt?17799_ + (lambda (_key19120_) + (memq (gx#stx-e _key19120_) '(slots: id: name: plist: constructor: unchecked:)))) - (_module-type-id17719_ - (lambda (_type-t19026_) - (let ((_$e19029_ + (_module-type-id17800_ + (lambda (_type-t19107_) + (let ((_$e19110_ (gx#module-context-ns (gx#current-expander-context)))) - (if _$e19029_ - ((lambda (_ns19033_) + (if _$e19110_ + ((lambda (_ns19114_) (gx#stx-identifier - _type-t19026_ - _ns19033_ + _type-t19107_ + _ns19114_ '"#" - _type-t19026_)) - _$e19029_) - (let ((_mid19036_ + _type-t19107_)) + _$e19110_) + (let ((_mid19117_ (gx#expander-context-id (gx#current-expander-context)))) (gx#stx-identifier - _type-t19026_ - _mid19036_ + _type-t19107_ + _mid19117_ '"#" - _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-t19107_))))))) + (let* ((_g1780217829_ + (lambda (_g1780317825_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1780317825_))) + (_g1780119103_ + (lambda (_g1780317833_) + (if (gx#stx-pair? _g1780317833_) + (let ((_e1781117836_ (gx#syntax-e _g1780317833_))) + (let ((_hd1781017840_ (let () (declare (not safe)) - (##car _e1773017755_))) - (_tl1772817762_ + (##car _e1781117836_))) + (_tl1780917843_ (let () (declare (not safe)) - (##cdr _e1773017755_)))) - (if (gx#stx-pair? _tl1772817762_) - (let ((_e1773317765_ - (gx#syntax-e _tl1772817762_))) - (let ((_hd1773217769_ + (##cdr _e1781117836_)))) + (if (gx#stx-pair? _tl1780917843_) + (let ((_e1781417846_ + (gx#syntax-e _tl1780917843_))) + (let ((_hd1781317850_ (let () (declare (not safe)) - (##car _e1773317765_))) - (_tl1773117772_ + (##car _e1781417846_))) + (_tl1781217853_ (let () (declare (not safe)) - (##cdr _e1773317765_)))) - (if (gx#stx-pair? _tl1773117772_) - (let ((_e1773617775_ - (gx#syntax-e _tl1773117772_))) - (let ((_hd1773517779_ + (##cdr _e1781417846_)))) + (if (gx#stx-pair? _tl1781217853_) + (let ((_e1781717856_ + (gx#syntax-e _tl1781217853_))) + (let ((_hd1781617860_ (let () (declare (not safe)) - (##car _e1773617775_))) - (_tl1773417782_ + (##car _e1781717856_))) + (_tl1781517863_ (let () (declare (not safe)) - (##cdr _e1773617775_)))) - (if (gx#stx-pair? _tl1773417782_) - (let ((_e1773917785_ + (##cdr _e1781717856_)))) + (if (gx#stx-pair? _tl1781517863_) + (let ((_e1782017866_ (gx#syntax-e - _tl1773417782_))) - (let ((_hd1773817789_ + _tl1781517863_))) + (let ((_hd1781917870_ (let () (declare (not safe)) - (##car _e1773917785_))) - (_tl1773717792_ + (##car _e1782017866_))) + (_tl1781817873_ (let () (declare (not safe)) - (##cdr _e1773917785_)))) + (##cdr _e1782017866_)))) (if (gx#stx-pair? - _tl1773717792_) - (let ((_e1774217795_ + _tl1781817873_) + (let ((_e1782317876_ (gx#syntax-e - _tl1773717792_))) - (let ((_hd1774117799_ + _tl1781817873_))) + (let ((_hd1782217880_ (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_) + (##car _e1782317876_))) + (_tl1782117883_ + (let () (declare (not safe)) (##cdr _e1782317876_)))) + ((lambda (_L17886_ _L17888_ _L17889_ _L17890_ _L17891_) + (if (and (gx#identifier? _L17891_) + (or (gx#identifier? _L17889_) + (gx#stx-false? _L17889_)) + (gx#identifier? _L17888_) (gx#stx-plist? - _L17805_ - (if _struct?17711_ - _struct-opt?17717_ - _class-opt?17718_))) - (let* ((_els17844_ - (let ((_$e17840_ + _L17886_ + (if _struct?17792_ + _struct-opt?17798_ + _class-opt?17799_))) + (let* ((_els17925_ + (let ((_$e17921_ (gx#stx-getq - (if _struct?17711_ 'fields: 'slots:) - _L17805_))) - (if _$e17840_ _$e17840_ '()))) - (_g1784717878_ - (lambda (_g1784817874_) + (if _struct?17792_ 'fields: 'slots:) + _L17886_))) + (if _$e17921_ _$e17921_ '()))) + (_g1792817959_ + (lambda (_g1792917955_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1784817874_))) - (_g1784619018_ - (lambda (_g1784817882_) - (if (gx#stx-pair? _g1784817882_) - (let ((_e1785717885_ - (gx#syntax-e _g1784817882_))) - (let ((_hd1785617889_ + _g1792917955_))) + (_g1792719099_ + (lambda (_g1792917963_) + (if (gx#stx-pair? _g1792917963_) + (let ((_e1793817966_ + (gx#syntax-e _g1792917963_))) + (let ((_hd1793717970_ (let () (declare (not safe)) - (##car _e1785717885_))) - (_tl1785517892_ + (##car _e1793817966_))) + (_tl1793617973_ (let () (declare (not safe)) - (##cdr _e1785717885_)))) - (if (gx#stx-pair? _tl1785517892_) - (let ((_e1786017895_ + (##cdr _e1793817966_)))) + (if (gx#stx-pair? _tl1793617973_) + (let ((_e1794117976_ (gx#syntax-e - _tl1785517892_))) - (let ((_hd1785917899_ + _tl1793617973_))) + (let ((_hd1794017980_ (let () (declare (not safe)) - (##car _e1786017895_))) - (_tl1785817902_ + (##car _e1794117976_))) + (_tl1793917983_ (let () (declare (not safe)) - (##cdr _e1786017895_)))) + (##cdr _e1794117976_)))) (if (gx#stx-pair? - _tl1785817902_) - (let ((_e1786317905_ + _tl1793917983_) + (let ((_e1794417986_ (gx#syntax-e - _tl1785817902_))) - (let ((_hd1786217909_ + _tl1793917983_))) + (let ((_hd1794317990_ (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 _e1794417986_))) + (_tl1794217993_ + (let () (declare (not safe)) (##cdr _e1794417986_)))) + (if (gx#stx-pair? _tl1794217993_) + (let ((_e1794717996_ (gx#syntax-e _tl1794217993_))) + (let ((_hd1794618000_ (let () (declare (not safe)) - (##car _e1786617915_))) - (_tl1786417922_ + (##car _e1794717996_))) + (_tl1794518003_ (let () (declare (not safe)) - (##cdr _e1786617915_)))) - (if (gx#stx-pair? _tl1786417922_) - (let ((_e1786917925_ - (gx#syntax-e _tl1786417922_))) - (let ((_hd1786817929_ + (##cdr _e1794717996_)))) + (if (gx#stx-pair? _tl1794518003_) + (let ((_e1795018006_ + (gx#syntax-e _tl1794518003_))) + (let ((_hd1794918010_ (let () (declare (not safe)) - (##car _e1786917925_))) - (_tl1786717932_ + (##car _e1795018006_))) + (_tl1794818013_ (let () (declare (not safe)) - (##cdr _e1786917925_)))) - (if (gx#stx-pair? _tl1786717932_) - (let ((_e1787217935_ - (gx#syntax-e _tl1786717932_))) - (let ((_hd1787117939_ + (##cdr _e1795018006_)))) + (if (gx#stx-pair? _tl1794818013_) + (let ((_e1795318016_ + (gx#syntax-e _tl1794818013_))) + (let ((_hd1795218020_ (let () (declare (not safe)) - (##car _e1787217935_))) - (_tl1787017942_ + (##car _e1795318016_))) + (_tl1795118023_ (let () (declare (not safe)) - (##cdr _e1787217935_)))) - (if (gx#stx-null? _tl1787017942_) - ((lambda (_L17945_ - _L17947_ - _L17948_ - _L17949_ - _L17950_ - _L17951_) + (##cdr _e1795318016_)))) + (if (gx#stx-null? _tl1795118023_) + ((lambda (_L18026_ + _L18028_ + _L18029_ + _L18030_ + _L18031_ + _L18032_) (let () - (let* ((_g1798017988_ - (lambda (_g1798117984_) + (let* ((_g1806118069_ + (lambda (_g1806218065_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1798117984_))) - (_g1797919010_ - (lambda (_g1798117992_) - ((lambda (_L17995_) + _g1806218065_))) + (_g1806019091_ + (lambda (_g1806218073_) + ((lambda (_L18076_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g1800818016_ - (lambda (_g1800918012_) + (let* ((_g1808918097_ + (lambda (_g1809018093_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1800918012_))) - (_g1800719002_ - (lambda (_g1800918020_) - ((lambda (_L18023_) + _g1809018093_))) + (_g1808819083_ + (lambda (_g1809018101_) + ((lambda (_L18104_) (let () - (let* ((_g1803618044_ - (lambda (_g1803718040_) + (let* ((_g1811718125_ + (lambda (_g1811818121_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1803718040_))) - (_g1803518994_ - (lambda (_g1803718048_) - ((lambda (_L18051_) + _g1811818121_))) + (_g1811619075_ + (lambda (_g1811818129_) + ((lambda (_L18132_) (let () - (let* ((_g1806418072_ + (let* ((_g1814518153_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1806518068_) + (lambda (_g1814618149_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1806518068_))) - (_g1806318990_ - (lambda (_g1806518076_) - ((lambda (_L18079_) + _g1814618149_))) + (_g1814419071_ + (lambda (_g1814618157_) + ((lambda (_L18160_) (let () - (let* ((_g1809218100_ - (lambda (_g1809318096_) + (let* ((_g1817318181_ + (lambda (_g1817418177_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1809318096_))) - (_g1809118706_ - (lambda (_g1809318104_) - ((lambda (_L18107_) + _g1817418177_))) + (_g1817218787_ + (lambda (_g1817418185_) + ((lambda (_L18188_) (let () - (let* ((_g1812018128_ - (lambda (_g1812118124_) + (let* ((_g1820118209_ + (lambda (_g1820218205_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1812118124_))) - (_g1811918702_ - (lambda (_g1812118132_) - ((lambda (_L18135_) + _g1820218205_))) + (_g1820018783_ + (lambda (_g1820218213_) + ((lambda (_L18216_) (let () - (let* ((_g1814818156_ + (let* ((_g1822918237_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1814918152_) + (lambda (_g1823018233_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1814918152_))) - (_g1814718698_ - (lambda (_g1814918160_) - ((lambda (_L18163_) + _g1823018233_))) + (_g1822818779_ + (lambda (_g1823018241_) + ((lambda (_L18244_) (let () - (let* ((_g1817618184_ - (lambda (_g1817718180_) + (let* ((_g1825718265_ + (lambda (_g1825818261_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1817718180_))) - (_g1817518694_ - (lambda (_g1817718188_) - ((lambda (_L18191_) + _g1825818261_))) + (_g1825618775_ + (lambda (_g1825818269_) + ((lambda (_L18272_) (let () - (let* ((_attrs18204_ - (if _struct?17711_ + (let* ((_attrs18285_ + (if _struct?17792_ (gx#stx-map ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _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))) + _slotify17796_ + _els17925_ + (iota (gx#stx-length _els17925_))) + _els17925_)) + (_g1828818314_ + (lambda (_g1828918310_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1828918310_))) + (_g1828718687_ + (lambda (_g1828918318_) + (if (gx#stx-pair/null? _g1828918318_) + (let ((_g42904_ + (gx#syntax-split-splice _g1828918318_ '0))) (begin - (let ((_g42831_ + (let ((_g42905_ (let () (declare (not safe)) - (if (##values? _g42830_) - (##vector-length _g42830_) + (if (##values? _g42904_) + (##vector-length _g42904_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42831_ 2))) + (##fx= _g42905_ 2))) (error "Context expects 2 values" - _g42831_))) - (let ((_target1821118240_ + _g42905_))) + (let ((_target1829218321_ (let () (declare (not safe)) - (##vector-ref _g42830_ 0))) - (_tl1821318243_ + (##vector-ref _g42904_ 0))) + (_tl1829418324_ (let () (declare (not safe)) - (##vector-ref _g42830_ 1)))) - (if (gx#stx-null? _tl1821318243_) - (letrec ((_loop1821418246_ - (lambda (_hd1821218250_ - _def-setf1821818253_ - _def-getf1821918255_) + (##vector-ref _g42904_ 1)))) + (if (gx#stx-null? _tl1829418324_) + (letrec ((_loop1829518327_ + (lambda (_hd1829318331_ + _def-setf1829918334_ + _def-getf1830018336_) (if (gx#stx-pair? - _hd1821218250_) - (let ((_e1821518258_ + _hd1829318331_) + (let ((_e1829618339_ (gx#syntax-e - _hd1821218250_))) - (let ((_lp-hd1821618262_ + _hd1829318331_))) + (let ((_lp-hd1829718343_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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_ + (##car _e1829618339_))) + (_lp-tl1829818346_ + (let () (declare (not safe)) (##cdr _e1829618339_)))) + (if (gx#stx-pair? _lp-hd1829718343_) + (let ((_e1830518349_ (gx#syntax-e _lp-hd1829718343_))) + (let ((_hd1830418353_ (let () (declare (not safe)) - (##car _e1822418268_))) - (_tl1822218275_ + (##car _e1830518349_))) + (_tl1830318356_ (let () (declare (not safe)) - (##cdr _e1822418268_)))) - (if (gx#stx-pair? _tl1822218275_) - (let ((_e1822718278_ (gx#syntax-e _tl1822218275_))) - (let ((_hd1822618282_ + (##cdr _e1830518349_)))) + (if (gx#stx-pair? _tl1830318356_) + (let ((_e1830818359_ (gx#syntax-e _tl1830318356_))) + (let ((_hd1830718363_ (let () (declare (not safe)) - (##car _e1822718278_))) - (_tl1822518285_ + (##car _e1830818359_))) + (_tl1830618366_ (let () (declare (not safe)) - (##cdr _e1822718278_)))) - (if (gx#stx-null? _tl1822518285_) - (let ((__tmp42842 - (cons _hd1822618282_ - _def-setf1821818253_)) - (__tmp42841 - (cons _hd1822318272_ - _def-getf1821918255_))) + (##cdr _e1830818359_)))) + (if (gx#stx-null? _tl1830618366_) + (let ((__tmp42916 + (cons _hd1830718363_ + _def-setf1829918334_)) + (__tmp42915 + (cons _hd1830418353_ + _def-getf1830018336_))) (declare (not safe)) - (_loop1821418246_ - _lp-tl1821718265_ - __tmp42842 - __tmp42841)) + (_loop1829518327_ + _lp-tl1829818346_ + __tmp42916 + __tmp42915)) (let () (declare (not safe)) - (_g1820718233_ _g1820818237_))))) + (_g1828818314_ _g1828918318_))))) (let () (declare (not safe)) - (_g1820718233_ _g1820818237_))))) + (_g1828818314_ _g1828918318_))))) (let () (declare (not safe)) - (_g1820718233_ _g1820818237_))))) + (_g1828818314_ _g1828918318_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_def-setf1822018288_ - (reverse _def-setf1821818253_)) - (_def-getf1822118291_ - (reverse _def-getf1821918255_))) - ((lambda (_L18294_ - _L18296_) + (let ((_def-setf1830118369_ + (reverse _def-setf1829918334_)) + (_def-getf1830218372_ + (reverse _def-getf1830018336_))) + ((lambda (_L18375_ + _L18377_) (let () - (let* ((_g1831418340_ + (let* ((_g1839518421_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1831518336_) + (lambda (_g1839618417_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1831518336_))) - (_g1831318454_ - (lambda (_g1831518344_) - (if (gx#stx-pair/null? _g1831518344_) - (let ((_g42832_ + _g1839618417_))) + (_g1839418535_ + (lambda (_g1839618425_) + (if (gx#stx-pair/null? _g1839618425_) + (let ((_g42906_ (gx#syntax-split-splice - _g1831518344_ + _g1839618425_ '0))) (begin - (let ((_g42833_ + (let ((_g42907_ (let () (declare (not safe)) - (if (##values? _g42832_) - (##vector-length _g42832_) + (if (##values? _g42906_) + (##vector-length _g42906_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42833_ 2))) + (##fx= _g42907_ 2))) (error "Context expects 2 values" - _g42833_))) - (let ((_target1831818347_ + _g42907_))) + (let ((_target1839918428_ (let () (declare (not safe)) - (##vector-ref _g42832_ 0))) - (_tl1832018350_ + (##vector-ref _g42906_ 0))) + (_tl1840118431_ (let () (declare (not safe)) - (##vector-ref _g42832_ 1)))) - (if (gx#stx-null? _tl1832018350_) - (letrec ((_loop1832118353_ - (lambda (_hd1831918357_ - _def-usetf1832518360_ - _def-ugetf1832618362_) + (##vector-ref _g42906_ 1)))) + (if (gx#stx-null? _tl1840118431_) + (letrec ((_loop1840218434_ + (lambda (_hd1840018438_ + _def-usetf1840618441_ + _def-ugetf1840718443_) (if (gx#stx-pair? - _hd1831918357_) - (let ((_e1832218365_ + _hd1840018438_) + (let ((_e1840318446_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1831918357_))) - (let ((_lp-hd1832318369_ + (gx#syntax-e _hd1840018438_))) + (let ((_lp-hd1840418450_ (let () (declare (not safe)) - (##car _e1832218365_))) - (_lp-tl1832418372_ + (##car _e1840318446_))) + (_lp-tl1840518453_ (let () (declare (not safe)) - (##cdr _e1832218365_)))) - (if (gx#stx-pair? _lp-hd1832318369_) - (let ((_e1833118375_ - (gx#syntax-e _lp-hd1832318369_))) - (let ((_hd1833018379_ + (##cdr _e1840318446_)))) + (if (gx#stx-pair? _lp-hd1840418450_) + (let ((_e1841218456_ + (gx#syntax-e _lp-hd1840418450_))) + (let ((_hd1841118460_ (let () (declare (not safe)) - (##car _e1833118375_))) - (_tl1832918382_ + (##car _e1841218456_))) + (_tl1841018463_ (let () (declare (not safe)) - (##cdr _e1833118375_)))) - (if (gx#stx-pair? _tl1832918382_) - (let ((_e1833418385_ - (gx#syntax-e _tl1832918382_))) - (let ((_hd1833318389_ + (##cdr _e1841218456_)))) + (if (gx#stx-pair? _tl1841018463_) + (let ((_e1841518466_ + (gx#syntax-e _tl1841018463_))) + (let ((_hd1841418470_ (let () (declare (not safe)) - (##car _e1833418385_))) - (_tl1833218392_ + (##car _e1841518466_))) + (_tl1841318473_ (let () (declare (not safe)) - (##cdr _e1833418385_)))) - (if (gx#stx-null? _tl1833218392_) - (let ((__tmp42836 - (cons _hd1833318389_ - _def-usetf1832518360_)) - (__tmp42835 - (cons _hd1833018379_ - _def-ugetf1832618362_))) + (##cdr _e1841518466_)))) + (if (gx#stx-null? _tl1841318473_) + (let ((__tmp42910 + (cons _hd1841418470_ + _def-usetf1840618441_)) + (__tmp42909 + (cons _hd1841118460_ + _def-ugetf1840718443_))) (declare (not safe)) - (_loop1832118353_ - _lp-tl1832418372_ - __tmp42836 - __tmp42835)) + (_loop1840218434_ + _lp-tl1840518453_ + __tmp42910 + __tmp42909)) (let () (declare (not safe)) - (_g1831418340_ _g1831518344_))))) + (_g1839518421_ _g1839618425_))))) (let () (declare (not safe)) - (_g1831418340_ _g1831518344_))))) + (_g1839518421_ _g1839618425_))))) (let () (declare (not safe)) - (_g1831418340_ _g1831518344_))))) - (let ((_def-usetf1832718395_ - (reverse _def-usetf1832518360_)) - (_def-ugetf1832818398_ - (reverse _def-ugetf1832618362_))) - ((lambda (_L18401_ _L18403_) + (_g1839518421_ _g1839618425_))))) + (let ((_def-usetf1840818476_ + (reverse _def-usetf1840618441_)) + (_def-ugetf1840918479_ + (reverse _def-ugetf1840718443_))) + ((lambda (_L18482_ _L18484_) (let () (let () - (let ((__tmp42834 + (let ((__tmp42908 (cons (gx#datum->syntax '#f 'begin) - (cons _L18135_ - (cons _L18191_ - (cons _L18163_ - (foldr (lambda (_g1842118430_ + (cons _L18216_ + (cons _L18272_ + (cons _L18244_ + (foldr (lambda (_g1850218511_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _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_)) + _g1850318514_) + (cons _g1850218511_ _g1850318514_)) + (foldr (lambda (_g1850418517_ _g1850518520_) + (cons _g1850418517_ _g1850518520_)) + (foldr (lambda (_g1850618523_ _g1850718526_) + (cons _g1850618523_ _g1850718526_)) + (foldr (lambda (_g1850818529_ + _g1850918532_) + (cons _g1850818529_ + _g1850918532_)) '() - _L18401_) - _L18403_) - _L18294_) - _L18296_))))))) + _L18482_) + _L18484_) + _L18375_) + _L18377_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17713_ __tmp42834))))) - _def-usetf1832718395_ - _def-ugetf1832818398_)))))) + (_wrap17794_ __tmp42908))))) + _def-usetf1840818476_ + _def-ugetf1840918479_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1832118353_ - _target1831818347_ + (_loop1840218434_ + _target1839918428_ '() '()))) (let () (declare (not safe)) - (_g1831418340_ _g1831518344_)))))) + (_g1839518421_ _g1839618425_)))))) (let () (declare (not safe)) - (_g1831418340_ _g1831518344_))))) - (__tmp42837 - (if (gx#stx-e (gx#stx-getq 'unchecked: _L17805_)) + (_g1839518421_ _g1839618425_))))) + (__tmp42911 + (if (gx#stx-e (gx#stx-getq 'unchecked: _L17886_)) (gx#stx-map - (lambda (_ref18458_) - (let* ((_g1846118480_ - (lambda (_g1846218476_) + (lambda (_ref18539_) + (let* ((_g1854218561_ + (lambda (_g1854318557_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1846218476_))) - (_g1846018602_ - (lambda (_g1846218484_) - (if (gx#stx-pair? _g1846218484_) - (let ((_e1846818487_ + _g1854318557_))) + (_g1854118683_ + (lambda (_g1854318565_) + (if (gx#stx-pair? _g1854318565_) + (let ((_e1854918568_ (gx#syntax-e - _g1846218484_))) - (let ((_hd1846718491_ + _g1854318565_))) + (let ((_hd1854818572_ (let () (declare (not safe)) - (##car _e1846818487_))) - (_tl1846618494_ + (##car _e1854918568_))) + (_tl1854718575_ (let () (declare (not safe)) - (##cdr _e1846818487_)))) + (##cdr _e1854918568_)))) (if (gx#stx-pair? - _tl1846618494_) - (let ((_e1847118497_ + _tl1854718575_) + (let ((_e1855218578_ (gx#syntax-e - _tl1846618494_))) - (let ((_hd1847018501_ + _tl1854718575_))) + (let ((_hd1855118582_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (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 _e1855218578_))) + (_tl1855018585_ + (let () (declare (not safe)) (##cdr _e1855218578_)))) + (if (gx#stx-pair? _tl1855018585_) + (let ((_e1855518588_ (gx#syntax-e _tl1855018585_))) + (let ((_hd1855418592_ (let () (declare (not safe)) - (##car _e1847418507_))) - (_tl1847218514_ + (##car _e1855518588_))) + (_tl1855318595_ (let () (declare (not safe)) - (##cdr _e1847418507_)))) - (if (gx#stx-null? _tl1847218514_) - ((lambda (_L18517_ _L18519_ _L18520_) - (let* ((_g1853818553_ - (lambda (_g1853918549_) + (##cdr _e1855518588_)))) + (if (gx#stx-null? _tl1855318595_) + ((lambda (_L18598_ _L18600_ _L18601_) + (let* ((_g1861918634_ + (lambda (_g1862018630_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1853918549_))) - (_g1853718598_ - (lambda (_g1853918557_) - (if (gx#stx-pair? _g1853918557_) - (let ((_e1854418560_ + _g1862018630_))) + (_g1861818679_ + (lambda (_g1862018638_) + (if (gx#stx-pair? _g1862018638_) + (let ((_e1862518641_ (gx#syntax-e - _g1853918557_))) - (let ((_hd1854318564_ + _g1862018638_))) + (let ((_hd1862418645_ (let () (declare (not safe)) - (##car _e1854418560_))) - (_tl1854218567_ + (##car _e1862518641_))) + (_tl1862318648_ (let () (declare (not safe)) - (##cdr _e1854418560_)))) + (##cdr _e1862518641_)))) (if (gx#stx-pair? - _tl1854218567_) - (let ((_e1854718570_ + _tl1862318648_) + (let ((_e1862818651_ (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_) + _tl1862318648_))) + (let ((_hd1862718655_ + (let () (declare (not safe)) (##car _e1862818651_))) + (_tl1862618658_ + (let () (declare (not safe)) (##cdr _e1862818651_)))) + (if (gx#stx-null? _tl1862618658_) + ((lambda (_L18661_ _L18663_) (let () - (cons (let ((__tmp42838 + (cons (let ((__tmp42912 (cons (gx#datum->syntax '#f 'def) - (cons _L18582_ - (cons (cons _L17947_ + (cons _L18663_ + (cons (cons _L18028_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L17810_ + (cons _L17891_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18520_ '())) + (cons _L18601_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17713_ __tmp42838)) - (cons (let ((__tmp42839 + (_wrap17794_ __tmp42912)) + (cons (let ((__tmp42913 (cons (gx#datum->syntax '#f 'def) - (cons _L18580_ - (cons (cons _L17945_ + (cons _L18661_ + (cons (cons _L18026_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L17810_ + (cons _L17891_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18520_ '())) + (cons _L18601_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17713_ __tmp42839)) + (_wrap17794_ __tmp42913)) '())))) - _hd1854618574_ - _hd1854318564_) + _hd1862718655_ + _hd1862418645_) (let () (declare (not safe)) - (_g1853818553_ _g1853918557_))))) - (let () (declare (not safe)) (_g1853818553_ _g1853918557_))))) + (_g1861918634_ _g1862018638_))))) + (let () (declare (not safe)) (_g1861918634_ _g1862018638_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1853818553_ - _g1853918557_))))) - (__tmp42840 + (_g1861918634_ + _g1862018638_))))) + (__tmp42914 (list (gx#stx-identifier - _L18519_ + _L18600_ '"&" - _L18519_) + _L18600_) (gx#stx-identifier - _L18517_ + _L18598_ '"&" - _L18517_)))) + _L18598_)))) (declare (not safe)) - (_g1853718598_ __tmp42840))) - _hd1847318511_ - _hd1847018501_ - _hd1846718491_) + (_g1861818679_ __tmp42914))) + _hd1855418592_ + _hd1855118582_ + _hd1854818572_) (let () (declare (not safe)) - (_g1846118480_ _g1846218484_))))) + (_g1854218561_ _g1854318565_))))) (let () (declare (not safe)) - (_g1846118480_ _g1846218484_))))) - (let () (declare (not safe)) (_g1846118480_ _g1846218484_))))) + (_g1854218561_ _g1854318565_))))) + (let () (declare (not safe)) (_g1854218561_ _g1854318565_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1846118480_ - _g1846218484_)))))) + (_g1854218561_ + _g1854318565_)))))) (declare (not safe)) - (_g1846018602_ _ref18458_))) - _attrs18204_) + (_g1854118683_ _ref18539_))) + _attrs18285_) '()))) (declare (not safe)) - (_g1831318454_ __tmp42837)))) - _def-setf1822018288_ - _def-getf1822118291_)))))) + (_g1839418535_ __tmp42911)))) + _def-setf1830118369_ + _def-getf1830218372_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1821418246_ - _target1821118240_ + (_loop1829518327_ + _target1829218321_ '() '()))) (let () (declare (not safe)) - (_g1820718233_ _g1820818237_)))))) + (_g1828818314_ _g1828918318_)))))) (let () (declare (not safe)) - (_g1820718233_ _g1820818237_))))) - (__tmp42843 + (_g1828818314_ _g1828918318_))))) + (__tmp42917 (gx#stx-map - (lambda (_ref18610_) - (let* ((_g1861318632_ - (lambda (_g1861418628_) + (lambda (_ref18691_) + (let* ((_g1869418713_ + (lambda (_g1869518709_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1861418628_))) - (_g1861218690_ - (lambda (_g1861418636_) - (if (gx#stx-pair? _g1861418636_) - (let ((_e1862018639_ - (gx#syntax-e _g1861418636_))) - (let ((_hd1861918643_ + _g1869518709_))) + (_g1869318771_ + (lambda (_g1869518717_) + (if (gx#stx-pair? _g1869518717_) + (let ((_e1870118720_ + (gx#syntax-e _g1869518717_))) + (let ((_hd1870018724_ (let () (declare (not safe)) - (##car _e1862018639_))) - (_tl1861818646_ + (##car _e1870118720_))) + (_tl1869918727_ (let () (declare (not safe)) - (##cdr _e1862018639_)))) - (if (gx#stx-pair? _tl1861818646_) - (let ((_e1862318649_ + (##cdr _e1870118720_)))) + (if (gx#stx-pair? _tl1869918727_) + (let ((_e1870418730_ (gx#syntax-e - _tl1861818646_))) - (let ((_hd1862218653_ + _tl1869918727_))) + (let ((_hd1870318734_ (let () (declare (not safe)) - (##car _e1862318649_))) - (_tl1862118656_ + (##car _e1870418730_))) + (_tl1870218737_ (let () (declare (not safe)) - (##cdr _e1862318649_)))) + (##cdr _e1870418730_)))) (if (gx#stx-pair? - _tl1862118656_) - (let ((_e1862618659_ + _tl1870218737_) + (let ((_e1870718740_ (gx#syntax-e - _tl1862118656_))) - (let ((_hd1862518663_ + _tl1870218737_))) + (let ((_hd1870618744_ (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 + (##car _e1870718740_))) + (_tl1870518747_ + (let () (declare (not safe)) (##cdr _e1870718740_)))) + (if (gx#stx-null? _tl1870518747_) + ((lambda (_L18750_ _L18752_ _L18753_) + (cons (let ((__tmp42918 (cons (gx#datum->syntax '#f 'def) - (cons _L18671_ - (cons (cons _L17949_ - (cons _L17810_ + (cons _L18752_ + (cons (cons _L18030_ + (cons _L17891_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18672_ '())) + (cons _L18753_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17713_ __tmp42844)) - (cons (let ((__tmp42845 + (_wrap17794_ __tmp42918)) + (cons (let ((__tmp42919 (cons (gx#datum->syntax '#f 'def) - (cons _L18669_ - (cons (cons _L17948_ + (cons _L18750_ + (cons (cons _L18029_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L17810_ + (cons _L17891_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18672_ '())) + (cons _L18753_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17713_ __tmp42845)) + (_wrap17794_ __tmp42919)) '()))) - _hd1862518663_ - _hd1862218653_ - _hd1861918643_) + _hd1870618744_ + _hd1870318734_ + _hd1870018724_) (let () (declare (not safe)) - (_g1861318632_ _g1861418636_))))) + (_g1869418713_ _g1869518717_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1861318632_ - _g1861418636_))))) + (_g1869418713_ + _g1869518717_))))) (let () (declare (not safe)) - (_g1861318632_ - _g1861418636_))))) + (_g1869418713_ + _g1869518717_))))) (let () (declare (not safe)) - (_g1861318632_ _g1861418636_)))))) + (_g1869418713_ _g1869518717_)))))) (declare (not safe)) - (_g1861218690_ _ref18610_))) - _attrs18204_))) + (_g1869318771_ _ref18691_))) + _attrs18285_))) (declare (not safe)) - (_g1820618606_ __tmp42843)))) + (_g1828718687_ __tmp42917)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1817718188_))) - (__tmp42846 - (let ((__tmp42847 + _g1825818269_))) + (__tmp42920 + (let ((__tmp42921 (cons (gx#datum->syntax '#f 'def) - (cons _L17807_ - (cons (cons _L17950_ + (cons _L17888_ + (cons (cons _L18031_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L17810_ '())) + (cons _L17891_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17713_ __tmp42847)))) + (_wrap17794_ __tmp42921)))) (declare (not safe)) - (_g1817518694_ __tmp42846)))) - _g1814918160_))) - (__tmp42848 - (if (gx#stx-false? _L17808_) + (_g1825618775_ __tmp42920)))) + _g1823018241_))) + (__tmp42922 + (if (gx#stx-false? _L17889_) (cons (gx#datum->syntax '#f 'begin) '()) - (let ((__tmp42849 + (let ((__tmp42923 (cons (gx#datum->syntax '#f 'def) - (cons (cons _L17808_ + (cons (cons _L17889_ (gx#datum->syntax '#f '$args)) @@ -960,442 +960,442 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'apply) - (cons _L17951_ - (cons _L17810_ + (cons _L18032_ + (cons _L17891_ (cons (gx#datum->syntax '#f '$args) '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17713_ __tmp42849))))) + (_wrap17794_ __tmp42923))))) (declare (not safe)) - (_g1814718698_ __tmp42848)))) - _g1812118132_))) - (__tmp42850 - (let ((__tmp42851 + (_g1822818779_ __tmp42922)))) + _g1820218213_))) + (__tmp42924 + (let ((__tmp42925 (cons (gx#datum->syntax '#f 'def) - (cons _L17810_ (cons _L18107_ '()))))) + (cons _L17891_ (cons _L18188_ '()))))) (declare (not safe)) - (_wrap17713_ __tmp42851)))) + (_wrap17794_ __tmp42925)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1811918702_ __tmp42850)))) - _g1809318104_))) - (__tmp42852 - (if _struct?17711_ - (let* ((_g1871018734_ - (lambda (_g1871118730_) + (_g1820018783_ __tmp42924)))) + _g1817418185_))) + (__tmp42926 + (if _struct?17792_ + (let* ((_g1879118815_ + (lambda (_g1879218811_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1871118730_))) - (_g1870918821_ - (lambda (_g1871118738_) + _g1879218811_))) + (_g1879018902_ + (lambda (_g1879218819_) (if (gx#stx-pair? - _g1871118738_) - (let ((_e1871618741_ + _g1879218819_) + (let ((_e1879718822_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1871118738_))) - (let ((_hd1871518745_ - (let () (declare (not safe)) (##car _e1871618741_))) - (_tl1871418748_ + (gx#syntax-e _g1879218819_))) + (let ((_hd1879618826_ + (let () (declare (not safe)) (##car _e1879718822_))) + (_tl1879518829_ (let () (declare (not safe)) - (##cdr _e1871618741_)))) - (if (gx#stx-pair? _tl1871418748_) - (let ((_e1871918751_ (gx#syntax-e _tl1871418748_))) - (let ((_hd1871818755_ + (##cdr _e1879718822_)))) + (if (gx#stx-pair? _tl1879518829_) + (let ((_e1880018832_ (gx#syntax-e _tl1879518829_))) + (let ((_hd1879918836_ (let () (declare (not safe)) - (##car _e1871918751_))) - (_tl1871718758_ + (##car _e1880018832_))) + (_tl1879818839_ (let () (declare (not safe)) - (##cdr _e1871918751_)))) - (if (gx#stx-pair/null? _hd1871818755_) - (let ((_g42860_ + (##cdr _e1880018832_)))) + (if (gx#stx-pair/null? _hd1879918836_) + (let ((_g42934_ (gx#syntax-split-splice - _hd1871818755_ + _hd1879918836_ '0))) (begin - (let ((_g42861_ + (let ((_g42935_ (let () (declare (not safe)) - (if (##values? _g42860_) - (##vector-length _g42860_) + (if (##values? _g42934_) + (##vector-length _g42934_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42861_ 2))) + (##fx= _g42935_ 2))) (error "Context expects 2 values" - _g42861_))) - (let ((_target1872018761_ + _g42935_))) + (let ((_target1880118842_ (let () (declare (not safe)) - (##vector-ref _g42860_ 0))) - (_tl1872218764_ + (##vector-ref _g42934_ 0))) + (_tl1880318845_ (let () (declare (not safe)) - (##vector-ref _g42860_ 1)))) - (if (gx#stx-null? _tl1872218764_) - (letrec ((_loop1872318767_ - (lambda (_hd1872118771_ - _field-id1872718774_) + (##vector-ref _g42934_ 1)))) + (if (gx#stx-null? _tl1880318845_) + (letrec ((_loop1880418848_ + (lambda (_hd1880218852_ + _field-id1880818855_) (if (gx#stx-pair? - _hd1872118771_) - (let ((_e1872418777_ + _hd1880218852_) + (let ((_e1880518858_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1872118771_))) - (let ((_lp-hd1872518781_ + (gx#syntax-e _hd1880218852_))) + (let ((_lp-hd1880618862_ (let () (declare (not safe)) - (##car _e1872418777_))) - (_lp-tl1872618784_ + (##car _e1880518858_))) + (_lp-tl1880718865_ (let () (declare (not safe)) - (##cdr _e1872418777_)))) - (let ((__tmp42862 - (cons _lp-hd1872518781_ _field-id1872718774_))) + (##cdr _e1880518858_)))) + (let ((__tmp42936 + (cons _lp-hd1880618862_ _field-id1880818855_))) (declare (not safe)) - (_loop1872318767_ _lp-tl1872618784_ __tmp42862)))) - (let ((_field-id1872818787_ - (reverse _field-id1872718774_))) - (if (gx#stx-null? _tl1871718758_) - ((lambda (_L18791_ _L18793_) + (_loop1880418848_ _lp-tl1880718865_ __tmp42936)))) + (let ((_field-id1880918868_ + (reverse _field-id1880818855_))) + (if (gx#stx-null? _tl1879818839_) + ((lambda (_L18872_ _L18874_) (let () (cons (gx#datum->syntax '#f 'make-struct-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L17995_ '())) - (cons _L17809_ - (cons _L18793_ + (cons _L18076_ '())) + (cons _L17890_ + (cons _L18874_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L18023_ '())) - (cons _L18051_ + (cons _L18104_ '())) + (cons _L18132_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18079_ '())) + (cons _L18160_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_g1881218815_ + (cons (foldr (lambda (_g1889318896_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1881318818_) - (cons _g1881218815_ _g1881318818_)) + _g1889418899_) + (cons _g1889318896_ _g1889418899_)) '() - _L18791_) + _L18872_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _field-id1872818787_ - _hd1871518745_) + _field-id1880918868_ + _hd1879618826_) (let () (declare (not safe)) - (_g1871018734_ _g1871118738_)))))))) + (_g1879118815_ _g1879218819_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1872318767_ - _target1872018761_ + (_loop1880418848_ + _target1880118842_ '()))) (let () (declare (not safe)) - (_g1871018734_ - _g1871118738_)))))) + (_g1879118815_ + _g1879218819_)))))) (let () (declare (not safe)) - (_g1871018734_ _g1871118738_))))) + (_g1879118815_ _g1879218819_))))) (let () (declare (not safe)) - (_g1871018734_ _g1871118738_))))) + (_g1879118815_ _g1879218819_))))) (let () (declare (not safe)) - (_g1871018734_ _g1871118738_))))) + (_g1879118815_ _g1879218819_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42863 + (__tmp42937 (list (gx#stx-length - _els17844_) + _els17925_) (gx#stx-map - _field-id17716_ - _els17844_)))) + _field-id17797_ + _els17925_)))) (declare (not safe)) - (_g1870918821_ __tmp42863)) - (let* ((_g1882518858_ - (lambda (_g1882618854_) + (_g1879018902_ __tmp42937)) + (let* ((_g1890618939_ + (lambda (_g1890718935_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1882618854_))) - (_g1882418986_ - (lambda (_g1882618862_) + _g1890718935_))) + (_g1890519067_ + (lambda (_g1890718943_) (if (gx#stx-pair? - _g1882618862_) - (let ((_e1883118865_ + _g1890718943_) + (let ((_e1891218946_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1882618862_))) - (let ((_hd1883018869_ - (let () (declare (not safe)) (##car _e1883118865_))) - (_tl1882918872_ + (gx#syntax-e _g1890718943_))) + (let ((_hd1891118950_ + (let () (declare (not safe)) (##car _e1891218946_))) + (_tl1891018953_ (let () (declare (not safe)) - (##cdr _e1883118865_)))) - (if (gx#stx-pair/null? _hd1883018869_) - (let ((_g42853_ - (gx#syntax-split-splice _hd1883018869_ '0))) + (##cdr _e1891218946_)))) + (if (gx#stx-pair/null? _hd1891118950_) + (let ((_g42927_ + (gx#syntax-split-splice _hd1891118950_ '0))) (begin - (let ((_g42854_ + (let ((_g42928_ (let () (declare (not safe)) - (if (##values? _g42853_) - (##vector-length _g42853_) + (if (##values? _g42927_) + (##vector-length _g42927_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42854_ 2))) + (##fx= _g42928_ 2))) (error "Context expects 2 values" - _g42854_))) - (let ((_target1883218875_ + _g42928_))) + (let ((_target1891318956_ (let () (declare (not safe)) - (##vector-ref _g42853_ 0))) - (_tl1883418878_ + (##vector-ref _g42927_ 0))) + (_tl1891518959_ (let () (declare (not safe)) - (##vector-ref _g42853_ 1)))) - (if (gx#stx-null? _tl1883418878_) - (letrec ((_loop1883518881_ - (lambda (_hd1883318885_ - _super1883918888_) + (##vector-ref _g42927_ 1)))) + (if (gx#stx-null? _tl1891518959_) + (letrec ((_loop1891618962_ + (lambda (_hd1891418966_ + _super1892018969_) (if (gx#stx-pair? - _hd1883318885_) - (let ((_e1883618891_ + _hd1891418966_) + (let ((_e1891718972_ (gx#syntax-e - _hd1883318885_))) - (let ((_lp-hd1883718895_ + _hd1891418966_))) + (let ((_lp-hd1891818976_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e1883618891_))) - (_lp-tl1883818898_ - (let () (declare (not safe)) (##cdr _e1883618891_)))) - (let ((__tmp42858 (cons _lp-hd1883718895_ _super1883918888_))) + (##car _e1891718972_))) + (_lp-tl1891918979_ + (let () (declare (not safe)) (##cdr _e1891718972_)))) + (let ((__tmp42932 (cons _lp-hd1891818976_ _super1892018969_))) (declare (not safe)) - (_loop1883518881_ _lp-tl1883818898_ __tmp42858)))) + (_loop1891618962_ _lp-tl1891918979_ __tmp42932)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_super1884018901_ - (reverse _super1883918888_))) + (let ((_super1892118982_ + (reverse _super1892018969_))) (if (gx#stx-pair? - _tl1882918872_) - (let ((_e1884318905_ + _tl1891018953_) + (let ((_e1892418986_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1882918872_))) - (let ((_hd1884218909_ - (let () (declare (not safe)) (##car _e1884318905_))) - (_tl1884118912_ + (gx#syntax-e _tl1891018953_))) + (let ((_hd1892318990_ + (let () (declare (not safe)) (##car _e1892418986_))) + (_tl1892218993_ (let () (declare (not safe)) - (##cdr _e1884318905_)))) - (if (gx#stx-pair/null? _hd1884218909_) - (let ((_g42855_ - (gx#syntax-split-splice _hd1884218909_ '0))) + (##cdr _e1892418986_)))) + (if (gx#stx-pair/null? _hd1892318990_) + (let ((_g42929_ + (gx#syntax-split-splice _hd1892318990_ '0))) (begin - (let ((_g42856_ + (let ((_g42930_ (let () (declare (not safe)) - (if (##values? _g42855_) - (##vector-length _g42855_) + (if (##values? _g42929_) + (##vector-length _g42929_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42856_ 2))) + (##fx= _g42930_ 2))) (error "Context expects 2 values" - _g42856_))) - (let ((_target1884418915_ + _g42930_))) + (let ((_target1892518996_ (let () (declare (not safe)) - (##vector-ref _g42855_ 0))) - (_tl1884618918_ + (##vector-ref _g42929_ 0))) + (_tl1892718999_ (let () (declare (not safe)) - (##vector-ref _g42855_ 1)))) - (if (gx#stx-null? _tl1884618918_) - (letrec ((_loop1884718921_ - (lambda (_hd1884518925_ - _slot1885118928_) + (##vector-ref _g42929_ 1)))) + (if (gx#stx-null? _tl1892718999_) + (letrec ((_loop1892819002_ + (lambda (_hd1892619006_ + _slot1893219009_) (if (gx#stx-pair? - _hd1884518925_) - (let ((_e1884818931_ + _hd1892619006_) + (let ((_e1892919012_ (gx#syntax-e - _hd1884518925_))) - (let ((_lp-hd1884918935_ + _hd1892619006_))) + (let ((_lp-hd1893019016_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e1884818931_))) - (_lp-tl1885018938_ - (let () (declare (not safe)) (##cdr _e1884818931_)))) - (let ((__tmp42857 (cons _lp-hd1884918935_ _slot1885118928_))) + (##car _e1892919012_))) + (_lp-tl1893119019_ + (let () (declare (not safe)) (##cdr _e1892919012_)))) + (let ((__tmp42931 (cons _lp-hd1893019016_ _slot1893219009_))) (declare (not safe)) - (_loop1884718921_ _lp-tl1885018938_ __tmp42857)))) + (_loop1892819002_ _lp-tl1893119019_ __tmp42931)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_slot1885218941_ - (reverse _slot1885118928_))) + (let ((_slot1893319022_ + (reverse _slot1893219009_))) (if (gx#stx-null? - _tl1884118912_) - ((lambda (_L18945_ + _tl1892218993_) + ((lambda (_L19026_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L18947_) + _L19028_) (let () (cons (gx#datum->syntax '#f 'make-class-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L17995_ '())) + (cons _L18076_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g1897118974_ - _g1897218977_) - (cons _g1897118974_ - _g1897218977_)) + (foldr (lambda (_g1905219055_ + _g1905319058_) + (cons _g1905219055_ + _g1905319058_)) '() - _L18947_)) + _L19028_)) (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_g1896918980_ + (cons (foldr (lambda (_g1905019061_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1897018983_) - (cons _g1896918980_ _g1897018983_)) + _g1905119064_) + (cons _g1905019061_ _g1905119064_)) '() - _L18945_) + _L19026_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L18023_ '())) - (cons _L18051_ + (cons _L18104_ '())) + (cons _L18132_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L18079_ '())) + (cons _L18160_ '())) '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _slot1885218941_ - _super1884018901_) + _slot1893319022_ + _super1892118982_) (let () (declare (not safe)) - (_g1882518858_ _g1882618862_)))))))) + (_g1890618939_ _g1890718943_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1884718921_ - _target1884418915_ + (_loop1892819002_ + _target1892518996_ '()))) (let () (declare (not safe)) - (_g1882518858_ _g1882618862_)))))) + (_g1890618939_ _g1890718943_)))))) (let () (declare (not safe)) - (_g1882518858_ _g1882618862_))))) + (_g1890618939_ _g1890718943_))))) (let () (declare (not safe)) - (_g1882518858_ _g1882618862_)))))))) + (_g1890618939_ _g1890718943_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1883518881_ - _target1883218875_ + (_loop1891618962_ + _target1891318956_ '()))) (let () (declare (not safe)) - (_g1882518858_ _g1882618862_)))))) + (_g1890618939_ _g1890718943_)))))) (let () (declare (not safe)) - (_g1882518858_ _g1882618862_))))) + (_g1890618939_ _g1890718943_))))) (let () (declare (not safe)) - (_g1882518858_ _g1882618862_))))) + (_g1890618939_ _g1890718943_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42859 - (list _L17809_ + (__tmp42933 + (list _L17890_ (gx#stx-map gx#stx-car - _els17844_)))) + _els17925_)))) (declare (not safe)) - (_g1882418986_ __tmp42859))))) + (_g1890519067_ __tmp42933))))) (declare (not safe)) - (_g1809118706_ __tmp42852)))) - _g1806518076_))) - (__tmp42864 (gx#stx-getq 'constructor: _L17805_))) + (_g1817218787_ __tmp42926)))) + _g1814618157_))) + (__tmp42938 (gx#stx-getq 'constructor: _L17886_))) (declare (not safe)) - (_g1806318990_ __tmp42864)))) + (_g1814419071_ __tmp42938)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1803718048_))) - (__tmp42865 - (let ((_$e18998_ + _g1811818129_))) + (__tmp42939 + (let ((_$e19079_ (gx#stx-getq 'plist: - _L17805_))) - (if _$e18998_ - _$e18998_ + _L17886_))) + (if _$e19079_ + _$e19079_ (cons (gx#datum->syntax '#f '@list) '()))))) (declare (not safe)) - (_g1803518994_ __tmp42865)))) - _g1800918020_))) - (__tmp42866 - (let ((_$e19006_ - (gx#stx-getq 'name: _L17805_))) - (if _$e19006_ _$e19006_ _L17810_)))) + (_g1811619075_ __tmp42939)))) + _g1809018101_))) + (__tmp42940 + (let ((_$e19087_ + (gx#stx-getq 'name: _L17886_))) + (if _$e19087_ _$e19087_ _L17891_)))) (declare (not safe)) - (_g1800719002_ __tmp42866)))) - _g1798117992_))) - (__tmp42867 - (let ((_$e19014_ (gx#stx-getq 'id: _L17805_))) - (if _$e19014_ - _$e19014_ + (_g1808819083_ __tmp42940)))) + _g1806218073_))) + (__tmp42941 + (let ((_$e19095_ (gx#stx-getq 'id: _L17886_))) + (if _$e19095_ + _$e19095_ (if (gx#module-context? (gx#current-expander-context)) (let () (declare (not safe)) - (_module-type-id17719_ _L17810_)) - (gx#genident _L17810_)))))) + (_module-type-id17800_ _L17891_)) + (gx#genident _L17891_)))))) (declare (not safe)) - (_g1797919010_ __tmp42867)))) + (_g1806019091_ __tmp42941)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd1787117939_ - _hd1786817929_ - _hd1786517919_ - _hd1786217909_ - _hd1785917899_ - _hd1785617889_) + _hd1795218020_ + _hd1794918010_ + _hd1794618000_ + _hd1794317990_ + _hd1794017980_ + _hd1793717970_) (let () (declare (not safe)) - (_g1784717878_ - _g1784817882_))))) + (_g1792817959_ + _g1792917963_))))) (let () (declare (not safe)) - (_g1784717878_ _g1784817882_))))) + (_g1792817959_ _g1792917963_))))) (let () (declare (not safe)) - (_g1784717878_ _g1784817882_))))) + (_g1792817959_ _g1792917963_))))) (let () (declare (not safe)) - (_g1784717878_ _g1784817882_))))) - (let () (declare (not safe)) (_g1784717878_ _g1784817882_))))) + (_g1792817959_ _g1792917963_))))) + (let () (declare (not safe)) (_g1792817959_ _g1792917963_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1784717878_ - _g1784817882_))))) + (_g1792817959_ + _g1792917963_))))) (let () (declare (not safe)) - (_g1784717878_ _g1784817882_))))) - (__tmp42868 - (if _struct?17711_ + (_g1792817959_ _g1792917963_))))) + (__tmp42942 + (if _struct?17792_ (cons (gx#datum->syntax '#f 'make-struct-instance) @@ -1439,39 +1439,39 @@ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1784619018_ __tmp42868)) + (_g1792719099_ __tmp42942)) (let () (declare (not safe)) - (_g1772117748_ _g1772217752_)))) - _tl1774017802_ - _hd1774117799_ - _hd1773817789_ - _hd1773517779_ - _hd1773217769_))) - (let () (declare (not safe)) (_g1772117748_ _g1772217752_))))) + (_g1780217829_ _g1780317833_)))) + _tl1782117883_ + _hd1782217880_ + _hd1781917870_ + _hd1781617860_ + _hd1781317850_))) + (let () (declare (not safe)) (_g1780217829_ _g1780317833_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1772117748_ - _g1772217752_))))) + (_g1780217829_ + _g1780317833_))))) (let () (declare (not safe)) - (_g1772117748_ _g1772217752_))))) + (_g1780217829_ _g1780317833_))))) (let () (declare (not safe)) - (_g1772117748_ _g1772217752_))))) + (_g1780217829_ _g1780317833_))))) (let () (declare (not safe)) - (_g1772117748_ _g1772217752_)))))) + (_g1780217829_ _g1780317833_)))))) (declare (not safe)) - (_g1772019022_ _stx17709_))))) + (_g1780119103_ _stx17790_))))) (define |gerbil/core$$[:0:]#defstruct-type| - (lambda (_stx19322_) + (lambda (_stx19403_) (let () (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| _stx19322_ '#t)))) + (|gerbil/core$$[1]#generate-typedef| _stx19403_ '#t)))) (define |gerbil/core$$[:0:]#defclass-type| - (lambda (_stx19325_) + (lambda (_stx19406_) (let () (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| _stx19325_ '#f))))) + (|gerbil/core$$[1]#generate-typedef| _stx19406_ '#f))))) diff --git a/src/bootstrap/gerbil/core__7.scm b/src/bootstrap/gerbil/core__7.scm index 8c2ce3ee1b..0bd43a152f 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]#_g42986_| (##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 _$args20885_ (apply make-class-instance |gerbil/core$$[1]#runtime-struct-info::t| - _$args20804_))) + _$args20885_))) (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 _$args20881_ (apply make-class-instance |gerbil/core$$[1]#runtime-class-info::t| - _$args20800_))) + _$args20881_))) (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 _$args20877_ (apply make-class-instance |gerbil/core$$[1]#extended-struct-info::t| - _$args20796_))) + _$args20877_))) (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 _$args20873_ (apply make-class-instance |gerbil/core$$[1]#extended-class-info::t| - _$args20792_))) + _$args20873_))) (define |gerbil/core$$[1]#runtime-rtd-exhibitor::t| (make-struct-type 'gerbil.core#runtime-rtd-exhibitor::t @@ -200,10 +200,10 @@ (make-struct-predicate |gerbil/core$$[1]#runtime-struct-exhibitor::t|)) (define |gerbil/core$$[1]#make-runtime-struct-exhibitor| - (lambda _$args20788_ + (lambda _$args20869_ (apply make-struct-instance |gerbil/core$$[1]#runtime-struct-exhibitor::t| - _$args20788_))) + _$args20869_))) (define |gerbil/core$$[1]#runtime-struct-fields| (make-struct-field-accessor |gerbil/core$$[1]#runtime-struct-exhibitor::t| @@ -225,10 +225,10 @@ (make-struct-predicate |gerbil/core$$[1]#runtime-class-exhibitor::t|)) (define |gerbil/core$$[1]#make-runtime-class-exhibitor| - (lambda _$args20784_ + (lambda _$args20865_ (apply make-struct-instance |gerbil/core$$[1]#runtime-class-exhibitor::t| - _$args20784_))) + _$args20865_))) (define |gerbil/core$$[1]#runtime-class-slots| (make-struct-field-accessor |gerbil/core$$[1]#runtime-class-exhibitor::t| @@ -238,299 +238,299 @@ |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 (_stx20839_ _is?20841_) + (if (gx#identifier? _stx20839_) + (let ((_e2084220844_ (gx#syntax-local-value _stx20839_ false))) + (if _e2084220844_ + (let ((_e20848_ _e2084220844_)) (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#runtime-type-info::t| - _e20767_)) - (_is?20760_ _e20767_) + _e20848_)) + (_is?20841_ _e20848_) '#f)) '#f)) '#f))) (define |gerbil/core$$[1]#syntax-local-type-info?__0| - (lambda (_stx20774_) - (let ((_is?20777_ true)) + (lambda (_stx20855_) + (let ((_is?20858_ true)) (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__%| - _stx20774_ - _is?20777_)))) + _stx20855_ + _is?20858_)))) (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 _g42944_ + (let ((_g42943_ (let () (declare (not safe)) (##length _g42944_)))) + (cond ((let () (declare (not safe)) (##fx= _g42943_ 1)) + (apply (lambda (_stx20855_) (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_) + _stx20855_))) + _g42944_)) + ((let () (declare (not safe)) (##fx= _g42943_ 2)) + (apply (lambda (_stx20861_ _is?20863_) (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__%| - _stx20780_ - _is?20782_))) - _g42870_)) + _stx20861_ + _is?20863_))) + _g42944_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$$[1]#syntax-local-type-info?| - _g42870_)))))) + _g42944_)))))) (define |gerbil/core$$[1]#syntax-local-struct-info?| - (lambda (_stx20754_) + (lambda (_stx20835_) (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__%| - _stx20754_ + _stx20835_ |gerbil/core$$[1]#runtime-struct-info?|)))) (define |gerbil/core$$[1]#syntax-local-class-info?| - (lambda (_stx20751_) + (lambda (_stx20832_) (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__%| - _stx20751_ + _stx20832_ |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 (_id20826_) + (if _id20826_ + (let ((_info20829_ (gx#syntax-local-value _id20826_))) (if (let () (declare (not safe)) (class-instance? |gerbil/core$$[1]#extended-runtime-type-info::t| - _info20748_)) + _info20829_)) (let () (declare (not safe)) - (unchecked-slot-ref _info20748_ 'type-exhibitor)) + (unchecked-slot-ref _info20829_ '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 (_self20591_ _stx20593_) + (let* ((_g2059520615_ + (lambda (_g2059620611_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2059620611_))) + (_g2059420822_ + (lambda (_g2059620619_) + (if (gx#stx-pair? _g2059620619_) + (let ((_e2060020622_ (gx#syntax-e _g2059620619_))) + (let ((_hd2059920626_ (let () (declare (not safe)) - (##car _e2051920541_))) - (_tl2051720548_ + (##car _e2060020622_))) + (_tl2059820629_ (let () (declare (not safe)) - (##cdr _e2051920541_)))) - (if (gx#stx-pair/null? _tl2051720548_) - (let ((_g42871_ + (##cdr _e2060020622_)))) + (if (gx#stx-pair/null? _tl2059820629_) + (let ((_g42945_ (gx#syntax-split-splice - _tl2051720548_ + _tl2059820629_ '0))) (begin - (let ((_g42872_ + (let ((_g42946_ (let () (declare (not safe)) - (if (##values? _g42871_) - (##vector-length _g42871_) + (if (##values? _g42945_) + (##vector-length _g42945_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42872_ 2))) + (##fx= _g42946_ 2))) (error "Context expects 2 values" - _g42872_))) - (let ((_target2052020551_ + _g42946_))) + (let ((_target2060120632_ (let () (declare (not safe)) - (##vector-ref _g42871_ 0))) - (_tl2052220554_ + (##vector-ref _g42945_ 0))) + (_tl2060320635_ (let () (declare (not safe)) - (##vector-ref _g42871_ 1)))) - (if (gx#stx-null? _tl2052220554_) - (letrec ((_loop2052320557_ - (lambda (_hd2052120561_ - _arg2052720564_) + (##vector-ref _g42945_ 1)))) + (if (gx#stx-null? _tl2060320635_) + (letrec ((_loop2060420638_ + (lambda (_hd2060220642_ + _arg2060820645_) (if (gx#stx-pair? - _hd2052120561_) - (let ((_e2052420567_ + _hd2060220642_) + (let ((_e2060520648_ (gx#syntax-e - _hd2052120561_))) - (let ((_lp-hd2052520571_ + _hd2060220642_))) + (let ((_lp-hd2060620652_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (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 _e2060520648_))) + (_lp-tl2060720655_ + (let () (declare (not safe)) (##cdr _e2060520648_)))) + (let ((__tmp42948 + (cons _lp-hd2060620652_ _arg2060820645_))) (declare (not safe)) - (_loop2052320557_ _lp-tl2052620574_ __tmp42874)))) - (let ((_arg2052820577_ (reverse _arg2052720564_))) - ((lambda (_L20581_) - (let* ((_g2059720628_ - (lambda (_g2059820624_) + (_loop2060420638_ _lp-tl2060720655_ __tmp42948)))) + (let ((_arg2060920658_ (reverse _arg2060820645_))) + ((lambda (_L20662_) + (let* ((_g2067820709_ + (lambda (_g2067920705_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2059820624_))) - (_g2059620737_ - (lambda (_g2059820632_) - (if (gx#stx-pair? _g2059820632_) - (let ((_e2060720635_ - (gx#syntax-e _g2059820632_))) - (let ((_hd2060620639_ + _g2067920705_))) + (_g2067720818_ + (lambda (_g2067920713_) + (if (gx#stx-pair? _g2067920713_) + (let ((_e2068820716_ + (gx#syntax-e _g2067920713_))) + (let ((_hd2068720720_ (let () (declare (not safe)) - (##car _e2060720635_))) - (_tl2060520642_ + (##car _e2068820716_))) + (_tl2068620723_ (let () (declare (not safe)) - (##cdr _e2060720635_)))) - (if (gx#stx-pair? _tl2060520642_) - (let ((_e2061020645_ + (##cdr _e2068820716_)))) + (if (gx#stx-pair? _tl2068620723_) + (let ((_e2069120726_ (gx#syntax-e - _tl2060520642_))) - (let ((_hd2060920649_ + _tl2068620723_))) + (let ((_hd2069020730_ (let () (declare (not safe)) - (##car _e2061020645_))) - (_tl2060820652_ + (##car _e2069120726_))) + (_tl2068920733_ (let () (declare (not safe)) - (##cdr _e2061020645_)))) + (##cdr _e2069120726_)))) (if (gx#stx-pair? - _tl2060820652_) - (let ((_e2061320655_ + _tl2068920733_) + (let ((_e2069420736_ (gx#syntax-e - _tl2060820652_))) - (let ((_hd2061220659_ + _tl2068920733_))) + (let ((_hd2069320740_ (let () (declare (not safe)) - (##car _e2061320655_))) - (_tl2061120662_ + (##car _e2069420736_))) + (_tl2069220743_ (let () (declare (not safe)) - (##cdr _e2061320655_)))) + (##cdr _e2069420736_)))) (if (gx#stx-pair? - _tl2061120662_) - (let ((_e2061620665_ + _tl2069220743_) + (let ((_e2069720746_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2061120662_))) - (let ((_hd2061520669_ + (gx#syntax-e _tl2069220743_))) + (let ((_hd2069620750_ (let () (declare (not safe)) - (##car _e2061620665_))) - (_tl2061420672_ + (##car _e2069720746_))) + (_tl2069520753_ (let () (declare (not safe)) - (##cdr _e2061620665_)))) - (if (gx#stx-pair? _tl2061420672_) - (let ((_e2061920675_ (gx#syntax-e _tl2061420672_))) - (let ((_hd2061820679_ + (##cdr _e2069720746_)))) + (if (gx#stx-pair? _tl2069520753_) + (let ((_e2070020756_ (gx#syntax-e _tl2069520753_))) + (let ((_hd2069920760_ (let () (declare (not safe)) - (##car _e2061920675_))) - (_tl2061720682_ + (##car _e2070020756_))) + (_tl2069820763_ (let () (declare (not safe)) - (##cdr _e2061920675_)))) - (if (gx#stx-pair? _tl2061720682_) - (let ((_e2062220685_ - (gx#syntax-e _tl2061720682_))) - (let ((_hd2062120689_ + (##cdr _e2070020756_)))) + (if (gx#stx-pair? _tl2069820763_) + (let ((_e2070320766_ + (gx#syntax-e _tl2069820763_))) + (let ((_hd2070220770_ (let () (declare (not safe)) - (##car _e2062220685_))) - (_tl2062020692_ + (##car _e2070320766_))) + (_tl2070120773_ (let () (declare (not safe)) - (##cdr _e2062220685_)))) - (if (gx#stx-null? _tl2062020692_) - ((lambda (_L20695_ - _L20697_ - _L20698_ - _L20699_ - _L20700_ - _L20701_) + (##cdr _e2070320766_)))) + (if (gx#stx-null? _tl2070120773_) + ((lambda (_L20776_ + _L20778_ + _L20779_ + _L20780_ + _L20781_ + _L20782_) (let () - (cons _L20699_ - (foldr (lambda (_g2072820731_ + (cons _L20780_ + (foldr (lambda (_g2080920812_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2072920734_) - (cons _g2072820731_ _g2072920734_)) + _g2081020815_) + (cons _g2080920812_ _g2081020815_)) '() - _L20581_)))) + _L20662_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2062120689_ - _hd2061820679_ - _hd2061520669_ - _hd2061220659_ - _hd2060920649_ - _hd2060620639_) + _hd2070220770_ + _hd2069920760_ + _hd2069620750_ + _hd2069320740_ + _hd2069020730_ + _hd2068720720_) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) + (_g2067820709_ _g2067920713_))))) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) + (_g2067820709_ _g2067920713_))))) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) + (_g2067820709_ _g2067920713_))))) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) + (_g2067820709_ _g2067920713_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2059720628_ - _g2059820632_))))) + (_g2067820709_ + _g2067920713_))))) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) + (_g2067820709_ _g2067920713_))))) (let () (declare (not safe)) - (_g2059720628_ _g2059820632_))))) - (__tmp42873 + (_g2067820709_ _g2067920713_))))) + (__tmp42947 (let () (declare (not safe)) (unchecked-slot-ref - _self20510_ + _self20591_ 'expander-identifiers)))) (declare (not safe)) - (_g2059620737_ __tmp42873))) - _arg2052820577_)))))) + (_g2067720818_ __tmp42947))) + _arg2060920658_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2052320557_ - _target2052020551_ + (_loop2060420638_ + _target2060120632_ '()))) (let () (declare (not safe)) - (_g2051420534_ _g2051520538_)))))) + (_g2059520615_ _g2059620619_)))))) (let () (declare (not safe)) - (_g2051420534_ _g2051520538_))))) + (_g2059520615_ _g2059620619_))))) (let () (declare (not safe)) - (_g2051420534_ _g2051520538_)))))) + (_g2059520615_ _g2059620619_)))))) (declare (not safe)) - (_g2051320741_ _stx20512_)))) + (_g2059420822_ _stx20593_)))) (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 (_stx20582_) + (letrec ((_body-opt?20585_ + (lambda (_key20588_) + (memq (gx#stx-e _key20588_) '(id: name: constructor: @@ -540,696 +540,696 @@ unchecked: print: equal:))))) - (gx#stx-plist? _stx20501_ _body-opt?20504_)))) + (gx#stx-plist? _stx20582_ _body-opt?20585_)))) (define |gerbil/core$$[1]#generate-typedef| - (lambda (_stx19329_ - _id19331_ - _super-ref19332_ - _els19333_ - _body19334_ - _struct?19335_) - (letrec* ((_wrap19337_ - (lambda (_e-stx20498_) + (lambda (_stx19410_ + _id19412_ + _super-ref19413_ + _els19414_ + _body19415_ + _struct?19416_) + (letrec* ((_wrap19418_ + (lambda (_e-stx20579_) (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-stx20579_ + (gx#stx-source _stx19410_)))) + (_make-id19420_ + (if (uninterned-symbol? (gx#stx-e _id19412_)) + (lambda _g42949_ (gx#genident _id19412_)) + (lambda _args20576_ + (apply gx#stx-identifier _id19412_ _args20576_))))) + (gx#check-duplicate-identifiers _els19414_ _stx19410_) + (let* ((_name19422_ (symbol->string (gx#stx-e _id19412_))) + (_super19425_ + (if _struct?19416_ + (if _super-ref19413_ + (gx#syntax-local-value _super-ref19413_) '#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-ref19413_))) + (_g1942819436_ + (lambda (_g1942919432_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1942919432_))) + (_g1942720570_ + (lambda (_g1942919440_) + ((lambda (_L19443_) (let () - (let* ((_g1937819386_ - (lambda (_g1937919382_) + (let* ((_g1945919467_ + (lambda (_g1946019463_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1937919382_))) - (_g1937720485_ - (lambda (_g1937919390_) - ((lambda (_L19393_) + _g1946019463_))) + (_g1945820566_ + (lambda (_g1946019471_) + ((lambda (_L19474_) (let () - (let* ((_g1940619414_ - (lambda (_g1940719410_) + (let* ((_g1948719495_ + (lambda (_g1948819491_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1940719410_))) - (_g1940520481_ - (lambda (_g1940719418_) - ((lambda (_L19421_) + _g1948819491_))) + (_g1948620562_ + (lambda (_g1948819499_) + ((lambda (_L19502_) (let () - (let* ((_g1943419442_ - (lambda (_g1943519438_) + (let* ((_g1951519523_ + (lambda (_g1951619519_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax" - _g1943519438_))) - (_g1943320477_ - (lambda (_g1943519446_) - ((lambda (_L19449_) + _g1951619519_))) + (_g1951420558_ + (lambda (_g1951619527_) + ((lambda (_L19530_) (let () - (let* ((_g1946219470_ - (lambda (_g1946319466_) + (let* ((_g1954319551_ + (lambda (_g1954419547_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1946319466_))) - (_g1946120473_ - (lambda (_g1946319474_) - ((lambda (_L19477_) + _g1954419547_))) + (_g1954220554_ + (lambda (_g1954419555_) + ((lambda (_L19558_) (let () - (let* ((_g1949019498_ - (lambda (_g1949119494_) + (let* ((_g1957119579_ + (lambda (_g1957219575_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1949119494_))) - (_g1948920469_ - (lambda (_g1949119502_) - ((lambda (_L19505_) + _g1957219575_))) + (_g1957020550_ + (lambda (_g1957219583_) + ((lambda (_L19586_) (let () - (let* ((_g1951819535_ + (let* ((_g1959919616_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1951919531_) + (lambda (_g1960019612_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1951919531_))) - (_g1951720465_ - (lambda (_g1951919539_) - (if (gx#stx-pair/null? _g1951919539_) - (let ((_g42876_ + _g1960019612_))) + (_g1959820546_ + (lambda (_g1960019620_) + (if (gx#stx-pair/null? _g1960019620_) + (let ((_g42950_ (gx#syntax-split-splice - _g1951919539_ + _g1960019620_ '0))) (begin - (let ((_g42877_ + (let ((_g42951_ (let () (declare (not safe)) - (if (##values? _g42876_) - (##vector-length _g42876_) + (if (##values? _g42950_) + (##vector-length _g42950_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42877_ 2))) + (##fx= _g42951_ 2))) (error "Context expects 2 values" - _g42877_))) - (let ((_target1952119542_ + _g42951_))) + (let ((_target1960219623_ (let () (declare (not safe)) - (##vector-ref _g42876_ 0))) - (_tl1952319545_ + (##vector-ref _g42950_ 0))) + (_tl1960419626_ (let () (declare (not safe)) - (##vector-ref _g42876_ 1)))) - (if (gx#stx-null? _tl1952319545_) - (letrec ((_loop1952419548_ - (lambda (_hd1952219552_ - _attr1952819555_) + (##vector-ref _g42950_ 1)))) + (if (gx#stx-null? _tl1960419626_) + (letrec ((_loop1960519629_ + (lambda (_hd1960319633_ + _attr1960919636_) (if (gx#stx-pair? - _hd1952219552_) - (let ((_e1952519558_ + _hd1960319633_) + (let ((_e1960619639_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1952219552_))) - (let ((_lp-hd1952619562_ + (gx#syntax-e _hd1960319633_))) + (let ((_lp-hd1960719643_ (let () (declare (not safe)) - (##car _e1952519558_))) - (_lp-tl1952719565_ + (##car _e1960619639_))) + (_lp-tl1960819646_ (let () (declare (not safe)) - (##cdr _e1952519558_)))) - (let ((__tmp42905 - (cons _lp-hd1952619562_ _attr1952819555_))) + (##cdr _e1960619639_)))) + (let ((__tmp42979 + (cons _lp-hd1960719643_ _attr1960919636_))) (declare (not safe)) - (_loop1952419548_ _lp-tl1952719565_ __tmp42905)))) - (let ((_attr1952919568_ (reverse _attr1952819555_))) - ((lambda (_L19572_) + (_loop1960519629_ _lp-tl1960819646_ __tmp42979)))) + (let ((_attr1961019649_ (reverse _attr1960919636_))) + ((lambda (_L19653_) (let () - (let* ((_g1958919606_ - (lambda (_g1959019602_) + (let* ((_g1967019687_ + (lambda (_g1967119683_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1959019602_))) - (_g1958820456_ - (lambda (_g1959019610_) - (if (gx#stx-pair/null? _g1959019610_) - (let ((_g42878_ + _g1967119683_))) + (_g1966920537_ + (lambda (_g1967119691_) + (if (gx#stx-pair/null? _g1967119691_) + (let ((_g42952_ (gx#syntax-split-splice - _g1959019610_ + _g1967119691_ '0))) (begin - (let ((_g42879_ + (let ((_g42953_ (let () (declare (not safe)) - (if (##values? _g42878_) + (if (##values? _g42952_) (##vector-length - _g42878_) + _g42952_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42879_ 2))) + (##fx= _g42953_ 2))) (error "Context expects 2 values" - _g42879_))) - (let ((_target1959219613_ + _g42953_))) + (let ((_target1967319694_ (let () (declare (not safe)) (##vector-ref - _g42878_ + _g42952_ 0))) - (_tl1959419616_ + (_tl1967519697_ (let () (declare (not safe)) (##vector-ref - _g42878_ + _g42952_ 1)))) (if (gx#stx-null? - _tl1959419616_) - (letrec ((_loop1959519619_ - (lambda (_hd1959319623_ + _tl1967519697_) + (letrec ((_loop1967619700_ + (lambda (_hd1967419704_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _getf1959919626_) - (if (gx#stx-pair? _hd1959319623_) - (let ((_e1959619629_ (gx#syntax-e _hd1959319623_))) - (let ((_lp-hd1959719633_ + _getf1968019707_) + (if (gx#stx-pair? _hd1967419704_) + (let ((_e1967719710_ (gx#syntax-e _hd1967419704_))) + (let ((_lp-hd1967819714_ (let () (declare (not safe)) - (##car _e1959619629_))) - (_lp-tl1959819636_ + (##car _e1967719710_))) + (_lp-tl1967919717_ (let () (declare (not safe)) - (##cdr _e1959619629_)))) - (let ((__tmp42903 - (cons _lp-hd1959719633_ - _getf1959919626_))) + (##cdr _e1967719710_)))) + (let ((__tmp42977 + (cons _lp-hd1967819714_ + _getf1968019707_))) (declare (not safe)) - (_loop1959519619_ - _lp-tl1959819636_ - __tmp42903)))) - (let ((_getf1960019639_ (reverse _getf1959919626_))) - ((lambda (_L19643_) + (_loop1967619700_ + _lp-tl1967919717_ + __tmp42977)))) + (let ((_getf1968119720_ (reverse _getf1968019707_))) + ((lambda (_L19724_) (let () - (let* ((_g1966019677_ - (lambda (_g1966119673_) + (let* ((_g1974119758_ + (lambda (_g1974219754_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1966119673_))) - (_g1965920447_ - (lambda (_g1966119681_) + _g1974219754_))) + (_g1974020528_ + (lambda (_g1974219762_) (if (gx#stx-pair/null? - _g1966119681_) - (let ((_g42880_ + _g1974219762_) + (let ((_g42954_ (gx#syntax-split-splice - _g1966119681_ + _g1974219762_ '0))) (begin - (let ((_g42881_ + (let ((_g42955_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g42880_) - (##vector-length _g42880_) + _g42954_) + (##vector-length _g42954_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g42881_ 2))) - (error "Context expects 2 values" _g42881_))) + (if (not (let () (declare (not safe)) (##fx= _g42955_ 2))) + (error "Context expects 2 values" _g42955_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1966319684_ + (let ((_target1974419765_ (let () (declare (not safe)) (##vector-ref - _g42880_ + _g42954_ 0))) - (_tl1966519687_ + (_tl1974619768_ (let () (declare (not safe)) (##vector-ref - _g42880_ + _g42954_ 1)))) (if (gx#stx-null? - _tl1966519687_) - (letrec ((_loop1966619690_ + _tl1974619768_) + (letrec ((_loop1974719771_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1966419694_ _setf1967019697_) - (if (gx#stx-pair? _hd1966419694_) - (let ((_e1966719700_ - (gx#syntax-e _hd1966419694_))) - (let ((_lp-hd1966819704_ + (lambda (_hd1974519775_ _setf1975119778_) + (if (gx#stx-pair? _hd1974519775_) + (let ((_e1974819781_ + (gx#syntax-e _hd1974519775_))) + (let ((_lp-hd1974919785_ (let () (declare (not safe)) - (##car _e1966719700_))) - (_lp-tl1966919707_ + (##car _e1974819781_))) + (_lp-tl1975019788_ (let () (declare (not safe)) - (##cdr _e1966719700_)))) - (let ((__tmp42901 - (cons _lp-hd1966819704_ - _setf1967019697_))) + (##cdr _e1974819781_)))) + (let ((__tmp42975 + (cons _lp-hd1974919785_ + _setf1975119778_))) (declare (not safe)) - (_loop1966619690_ - _lp-tl1966919707_ - __tmp42901)))) - (let ((_setf1967119710_ - (reverse _setf1967019697_))) - ((lambda (_L19714_) + (_loop1974719771_ + _lp-tl1975019788_ + __tmp42975)))) + (let ((_setf1975219791_ + (reverse _setf1975119778_))) + ((lambda (_L19795_) (let () - (let* ((_type-attr19759_ - (if (gx#stx-null? _els19333_) + (let* ((_type-attr19840_ + (if (gx#stx-null? _els19414_) '() - (if _struct?19335_ + (if _struct?19416_ (cons 'fields: (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-check-splice-targets - _L19714_ - _L19643_ - _L19572_) - (foldr (lambda (_g1973019735_ - _g1973119738_ - _g1973219740_ - _g1973319742_) - (cons (cons _g1973219740_ - (cons _g1973119738_ - (cons _g1973019735_ + _L19795_ + _L19724_ + _L19653_) + (foldr (lambda (_g1981119816_ + _g1981219819_ + _g1981319821_ + _g1981419823_) + (cons (cons _g1981319821_ + (cons _g1981219819_ + (cons _g1981119816_ '()))) - _g1973319742_)) + _g1981419823_)) '() - _L19714_ - _L19643_ - _L19572_)) + _L19795_ + _L19724_ + _L19653_)) '())) (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_ + _L19795_ + _L19724_ + _L19653_) + (foldr (lambda (_g1982519830_ + _g1982619833_ + _g1982719835_ + _g1982819837_) + (cons (cons _g1982719835_ + (cons _g1982619833_ + (cons _g1982519830_ '()))) - _g1974719756_)) + _g1982819837_)) '() - _L19714_ - _L19643_ - _L19572_)) + _L19795_ + _L19724_ + _L19653_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_type-name19766_ + (_type-name19847_ (cons 'name: - (cons (let ((_$e19762_ + (cons (let ((_$e19843_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'name: _body19334_))) - (if _$e19762_ _$e19762_ _id19331_)) + (gx#stx-getq 'name: _body19415_))) + (if _$e19843_ _$e19843_ _id19412_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_type-id19781_ - (let ((_$e19777_ - (let ((_e1976819770_ + (_type-id19862_ + (let ((_$e19858_ + (let ((_e1984919851_ (gx#stx-getq 'id: - _body19334_))) - (if _e1976819770_ - (let ((_e19774_ + _body19415_))) + (if _e1984919851_ + (let ((_e19855_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e1976819770_)) - (cons 'id: (cons _e19774_ '()))) + _e1984919851_)) + (cons 'id: (cons _e19855_ '()))) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e19777_ - _$e19777_ + (if _$e19858_ + _$e19858_ '()))) - (_type-ctor19796_ - (let ((_$e19792_ - (let ((_e1978319785_ + (_type-ctor19877_ + (let ((_$e19873_ + (let ((_e1986419866_ (gx#stx-getq 'constructor: - _body19334_))) - (if _e1978319785_ - (let ((_e19789_ + _body19415_))) + (if _e1986419866_ + (let ((_e19870_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e1978319785_)) - (cons 'constructor: (cons _e19789_ '()))) + _e1986419866_)) + (cons 'constructor: (cons _e19870_ '()))) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e19792_ - _$e19792_ + (if _$e19873_ + _$e19873_ '()))) - (_plist19840_ - (let* ((_plist19803_ - (let ((_$e19799_ + (_plist19921_ + (let* ((_plist19884_ + (let ((_$e19880_ (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_)))) + _body19415_))) + (if _$e19880_ _$e19880_ '()))) + (_plist19887_ + (if (gx#stx-e (gx#stx-getq 'transparent: _body19415_)) + (cons (cons 'transparent: '#t) _plist19884_) + _plist19884_)) + (_plist19890_ + (if (gx#stx-e (gx#stx-getq 'final: _body19415_)) + (cons (cons 'final: '#t) _plist19887_) + _plist19887_)) + (_plist19903_ + (let ((_$e19893_ + (gx#stx-e (gx#stx-getq 'print: _body19415_)))) + (if _$e19893_ + ((lambda (_print19897_) + (let ((_print19900_ + (if (eq? _print19897_ '#t) + _els19414_ + _print19897_))) + (cons (cons 'print: _print19900_) _plist19890_))) + _$e19893_) + _plist19890_))) + (_plist19916_ + (let ((_$e19906_ + (gx#stx-e (gx#stx-getq 'equal: _body19415_)))) + (if _$e19906_ + ((lambda (_equal19910_) + (let ((_equal19913_ + (if (eq? _equal19910_ '#t) + _els19414_ + _equal19910_))) + (cons (cons 'equal: _equal19913_) _plist19903_))) + _$e19906_) + _plist19903_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _plist19835_)) - (_type-plist19880_ - (if (null? _plist19840_) - _plist19840_ - (let* ((_g1984319851_ - (lambda (_g1984419847_) + _plist19916_)) + (_type-plist19961_ + (if (null? _plist19921_) + _plist19921_ + (let* ((_g1992419932_ + (lambda (_g1992519928_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1984419847_))) - (_g1984219876_ - (lambda (_g1984419855_) - ((lambda (_L19858_) + _g1992519928_))) + (_g1992319957_ + (lambda (_g1992519936_) + ((lambda (_L19939_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (cons 'plist: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L19858_ '())) + (cons _L19939_ '())) '())))) - _g1984419855_)))) + _g1992519936_)))) (declare (not safe)) - (_g1984219876_ _plist19840_)))) + (_g1992319957_ _plist19921_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_type-unchecked19895_ - (let ((_$e19891_ - (let ((_e1988219884_ + (_type-unchecked19976_ + (let ((_$e19972_ + (let ((_e1996319965_ (gx#stx-getq 'unchecked: - _body19334_))) - (if _e1988219884_ - (let ((_e19888_ + _body19415_))) + (if _e1996319965_ + (let ((_e19969_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e1988219884_)) - (cons 'unchecked: (cons _e19888_ '()))) + _e1996319965_)) + (cons 'unchecked: (cons _e19969_ '()))) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e19891_ - _$e19891_ + (if _$e19972_ + _$e19972_ (cons 'unchecked: (cons '#t '()))))) - (_g1989819915_ - (lambda (_g1989919911_) + (_g1997919996_ + (lambda (_g1998019992_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1989919911_))) - (_g1989720443_ - (lambda (_g1989919919_) + _g1998019992_))) + (_g1997820524_ + (lambda (_g1998020000_) (if (gx#stx-pair/null? - _g1989919919_) - (let ((_g42882_ + _g1998020000_) + (let ((_g42956_ (gx#syntax-split-splice - _g1989919919_ + _g1998020000_ '0))) (begin - (let ((_g42883_ + (let ((_g42957_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g42882_) - (##vector-length _g42882_) + (if (##values? _g42956_) + (##vector-length _g42956_) 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= _g42957_ 2))) + (error "Context expects 2 values" _g42957_))) + (let ((_target1998220003_ (let () (declare (not safe)) - (##vector-ref _g42882_ 0))) - (_tl1990319925_ + (##vector-ref _g42956_ 0))) + (_tl1998420006_ (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 _g42956_ 1)))) + (if (gx#stx-null? _tl1998420006_) + (letrec ((_loop1998520009_ + (lambda (_hd1998320013_ + _type-body1998920016_) + (if (gx#stx-pair? _hd1998320013_) + (let ((_e1998620019_ + (gx#syntax-e _hd1998320013_))) + (let ((_lp-hd1998720023_ (let () (declare (not safe)) - (##car _e1990519938_))) - (_lp-tl1990719945_ + (##car _e1998620019_))) + (_lp-tl1998820026_ (let () (declare (not safe)) - (##cdr _e1990519938_)))) - (let ((__tmp42899 - (cons _lp-hd1990619942_ - _type-body1990819935_))) + (##cdr _e1998620019_)))) + (let ((__tmp42973 + (cons _lp-hd1998720023_ + _type-body1998920016_))) (declare (not safe)) - (_loop1990419928_ - _lp-tl1990719945_ - __tmp42899)))) - (let ((_type-body1990919948_ - (reverse _type-body1990819935_))) - ((lambda (_L19952_) + (_loop1998520009_ + _lp-tl1998820026_ + __tmp42973)))) + (let ((_type-body1999020029_ + (reverse _type-body1998920016_))) + ((lambda (_L20033_) (let () - (let* ((_g1996919977_ - (lambda (_g1997019973_) + (let* ((_g2005020058_ + (lambda (_g2005120054_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1997019973_))) - (_g1996820431_ - (lambda (_g1997019981_) - ((lambda (_L19984_) + _g2005120054_))) + (_g2004920512_ + (lambda (_g2005120062_) + ((lambda (_L20065_) (let () - (let* ((_g1999720005_ + (let* ((_g2007820086_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1999820001_) + (lambda (_g2007920082_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1999820001_))) - (_g1999620427_ - (lambda (_g1999820009_) - ((lambda (_L20012_) + _g2007920082_))) + (_g2007720508_ + (lambda (_g2007920090_) + ((lambda (_L20093_) (let () - (let* ((_g2002520033_ - (lambda (_g2002620029_) + (let* ((_g2010620114_ + (lambda (_g2010720110_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2002620029_))) - (_g2002420341_ - (lambda (_g2002620037_) - ((lambda (_L20040_) + _g2010720110_))) + (_g2010520422_ + (lambda (_g2010720118_) + ((lambda (_L20121_) (let () - (let* ((_g2005320061_ - (lambda (_g2005420057_) + (let* ((_g2013420142_ + (lambda (_g2013520138_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2005420057_))) - (_g2005220337_ - (lambda (_g2005420065_) - ((lambda (_L20068_) + _g2013520138_))) + (_g2013320418_ + (lambda (_g2013520146_) + ((lambda (_L20149_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2008120089_ - (lambda (_g2008220085_) + (let* ((_g2016220170_ + (lambda (_g2016320166_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2008220085_))) - (_g2008020333_ - (lambda (_g2008220093_) - ((lambda (_L20096_) + _g2016320166_))) + (_g2016120414_ + (lambda (_g2016320174_) + ((lambda (_L20177_) (let () - (let* ((_g2010920117_ - (lambda (_g2011020113_) + (let* ((_g2019020198_ + (lambda (_g2019120194_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2011020113_))) - (_g2010820291_ - (lambda (_g2011020121_) - ((lambda (_L20124_) + _g2019120194_))) + (_g2018920372_ + (lambda (_g2019120202_) + ((lambda (_L20205_) (let () - (let* ((_g2013720145_ + (let* ((_g2021820226_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2013820141_) + (lambda (_g2021920222_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2013820141_))) - (_g2013620287_ - (lambda (_g2013820149_) - ((lambda (_L20152_) + _g2021920222_))) + (_g2021720368_ + (lambda (_g2021920230_) + ((lambda (_L20233_) (let () - (let* ((_g2016520173_ - (lambda (_g2016620169_) + (let* ((_g2024620254_ + (lambda (_g2024720250_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2016620169_))) - (_g2016420283_ - (lambda (_g2016620177_) - ((lambda (_L20180_) + _g2024720250_))) + (_g2024520364_ + (lambda (_g2024720258_) + ((lambda (_L20261_) (let () - (let* ((_g2019320201_ - (lambda (_g2019420197_) + (let* ((_g2027420282_ + (lambda (_g2027520278_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2019420197_))) - (_g2019220279_ - (lambda (_g2019420205_) - ((lambda (_L20208_) + _g2027520278_))) + (_g2027320360_ + (lambda (_g2027520286_) + ((lambda (_L20289_) (let () - (let* ((_g2022120229_ + (let* ((_g2030220310_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2022220225_) + (lambda (_g2030320306_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2022220225_))) - (_g2022020251_ - (lambda (_g2022220233_) - ((lambda (_L20236_) + _g2030320306_))) + (_g2030120332_ + (lambda (_g2030320314_) + ((lambda (_L20317_) (let () (let () - (let ((__tmp42884 + (let ((__tmp42958 (cons (gx#datum->syntax '#f 'begin) - (cons _L19984_ - (cons _L20236_ + (cons _L20065_ + (cons _L20317_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19337_ __tmp42884))))) - _g2022220233_))) - (__tmp42885 - (let ((__tmp42886 + (_wrap19418_ __tmp42958))))) + _g2030320314_))) + (__tmp42959 + (let ((__tmp42960 (cons (gx#datum->syntax '#f 'defsyntax) - (cons _L19393_ - (cons (cons _L20012_ + (cons _L19474_ + (cons (cons _L20093_ (cons 'runtime-identifier: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L19421_ '())) + (cons _L19502_ '())) (cons 'expander-identifiers: (cons (cons (gx#datum->syntax '#f '@list) - (cons _L20040_ + (cons _L20121_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _L19421_ '())) + (cons _L19502_ '())) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L19449_ '())) + (cons _L19530_ '())) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L19477_ '())) + (cons _L19558_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2025820261_ - _g2025920264_) + (foldr (lambda (_g2033920342_ + _g2034020345_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _g2025820261_ '())) - _g2025920264_)) + (cons _g2033920342_ '())) + _g2034020345_)) '() - _L19643_)) + _L19724_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2025620267_ + (foldr (lambda (_g2033720348_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2025720270_) + _g2033820351_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _g2025620267_ '())) - _g2025720270_)) + (cons _g2033720348_ '())) + _g2033820351_)) '() - _L19714_)) + _L19795_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'type-exhibitor: - (cons (cons _L20068_ + (cons (cons _L20149_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L20096_ '())) - (cons _L20124_ + (cons _L20177_ '())) + (cons _L20205_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20152_ '())) + (cons _L20233_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20180_ '())) + (cons _L20261_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L20208_ + (cons _L20289_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_g2025420273_ _g2025520276_) - (cons _g2025420273_ _g2025520276_)) + (cons (foldr (lambda (_g2033520354_ _g2033620357_) + (cons _g2033520354_ _g2033620357_)) '() - _L19572_) + _L19653_) '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1238,188 +1238,188 @@ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19337_ __tmp42886)))) + (_wrap19418_ __tmp42960)))) (declare (not safe)) - (_g2022020251_ __tmp42885)))) - _g2019420205_)))) + (_g2030120332_ __tmp42959)))) + _g2027520286_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2019220279_ - _plist19840_)))) - _g2016620177_))) - (__tmp42887 - (if (not (null? _type-ctor19796_)) - (cadr _type-ctor19796_) + (_g2027320360_ + _plist19921_)))) + _g2024720258_))) + (__tmp42961 + (if (not (null? _type-ctor19877_)) + (cadr _type-ctor19877_) '#f))) (declare (not safe)) - (_g2016420283_ __tmp42887)))) - _g2013820149_))) - (__tmp42888 (cadr _type-name19766_))) + (_g2024520364_ __tmp42961)))) + _g2021920230_))) + (__tmp42962 (cadr _type-name19847_))) (declare (not safe)) - (_g2013620287_ __tmp42888)))) - _g2011020121_))) + (_g2021720368_ __tmp42962)))) + _g2019120202_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42889 - (let ((_quote-e20330_ - (lambda (_x-ref20295_) - (if _x-ref20295_ - (let* ((_g2029820306_ + (__tmp42963 + (let ((_quote-e20411_ + (lambda (_x-ref20376_) + (if _x-ref20376_ + (let* ((_g2037920387_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2029920302_) + (lambda (_g2038020383_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2029920302_))) - (_g2029720326_ - (lambda (_g2029920310_) - ((lambda (_L20313_) + _g2038020383_))) + (_g2037820407_ + (lambda (_g2038020391_) + ((lambda (_L20394_) (let () (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L20313_ '())))) - _g2029920310_)))) + (cons _L20394_ '())))) + _g2038020391_)))) (declare (not safe)) - (_g2029720326_ _x-ref20295_)) + (_g2037820407_ _x-ref20376_)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _struct?19335_ + (if _struct?19416_ (let () (declare (not safe)) - (_quote-e20330_ - _super-ref19332_)) + (_quote-e20411_ + _super-ref19413_)) (cons 'list - (map _quote-e20330_ + (map _quote-e20411_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _super-ref19332_)))))) + _super-ref19413_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2010820291_ __tmp42889)))) - _g2008220093_))) - (__tmp42890 - (if (not (null? _type-id19781_)) - (cadr _type-id19781_) + (_g2018920372_ __tmp42963)))) + _g2016320174_))) + (__tmp42964 + (if (not (null? _type-id19862_)) + (cadr _type-id19862_) '#f))) (declare (not safe)) - (_g2008020333_ __tmp42890)))) - _g2005420065_))) - (__tmp42891 - (if _struct?19335_ + (_g2016120414_ __tmp42964)))) + _g2013520146_))) + (__tmp42965 + (if _struct?19416_ (gx#datum->syntax '#f 'make-runtime-struct-exhibitor) (gx#datum->syntax '#f 'make-runtime-class-exhibitor)))) (declare (not safe)) - (_g2005220337_ __tmp42891)))) + (_g2013320418_ __tmp42965)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2002620037_))) - (__tmp42892 - (if _struct?19335_ - (if _super19344_ + _g2010720118_))) + (__tmp42966 + (if _struct?19416_ + (if _super19425_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _L19505_ + (cons _L19586_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '#f) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_g2034520362_ - (lambda (_g2034620358_) + (let* ((_g2042620443_ + (lambda (_g2042720439_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2034620358_))) - (_g2034420423_ - (lambda (_g2034620366_) + _g2042720439_))) + (_g2042520504_ + (lambda (_g2042720447_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2034620366_) - (let ((_g42893_ - (gx#syntax-split-splice _g2034620366_ '0))) + _g2042720447_) + (let ((_g42967_ + (gx#syntax-split-splice _g2042720447_ '0))) (begin - (let ((_g42894_ + (let ((_g42968_ (let () (declare (not safe)) - (if (##values? _g42893_) - (##vector-length _g42893_) + (if (##values? _g42967_) + (##vector-length _g42967_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g42894_ 2))) - (error "Context expects 2 values" _g42894_))) - (let ((_target2034820369_ + (##fx= _g42968_ 2))) + (error "Context expects 2 values" _g42968_))) + (let ((_target2042920450_ (let () (declare (not safe)) - (##vector-ref _g42893_ 0))) - (_tl2035020372_ + (##vector-ref _g42967_ 0))) + (_tl2043120453_ (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 _g42967_ 1)))) + (if (gx#stx-null? _tl2043120453_) + (letrec ((_loop2043220456_ + (lambda (_hd2043020460_ + _super-id2043620463_) + (if (gx#stx-pair? _hd2043020460_) + (let ((_e2043320466_ (gx#syntax-e - _hd2034920379_))) - (let ((_lp-hd2035320389_ + _hd2043020460_))) + (let ((_lp-hd2043420470_ (let () (declare (not safe)) - (##car _e2035220385_))) - (_lp-tl2035420392_ + (##car _e2043320466_))) + (_lp-tl2043520473_ (let () (declare (not safe)) - (##cdr _e2035220385_)))) - (let ((__tmp42895 - (cons _lp-hd2035320389_ + (##cdr _e2043320466_)))) + (let ((__tmp42969 + (cons _lp-hd2043420470_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _super-id2035520382_))) + _super-id2043620463_))) (declare (not safe)) - (_loop2035120375_ _lp-tl2035420392_ __tmp42895)))) + (_loop2043220456_ _lp-tl2043520473_ __tmp42969)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_super-id2035620395_ - (reverse _super-id2035520382_))) - ((lambda (_L20399_) + (let ((_super-id2043720476_ + (reverse _super-id2043620463_))) + ((lambda (_L20480_) (let () (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2041420417_ + (foldr (lambda (_g2049520498_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2041520420_) + _g2049620501_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _g2041420417_ '())) - _g2041520420_)) + (cons _g2049520498_ '())) + _g2049620501_)) '() - _L20399_)))) + _L20480_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _super-id2035620395_)))))) + _super-id2043720476_)))))) (let () (declare (not safe)) - (_loop2035120375_ - _target2034820369_ + (_loop2043220456_ + _target2042920450_ '()))) (let () (declare (not safe)) - (_g2034520362_ _g2034620366_)))))) + (_g2042620443_ _g2042720447_)))))) (let () (declare (not safe)) - (_g2034520362_ _g2034620366_)))))) + (_g2042620443_ _g2042720447_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2034420423_ - _L19505_))))) + (_g2042520504_ + _L19586_))))) (declare (not safe)) - (_g2002420341_ __tmp42892)))) - _g1999820009_))) - (__tmp42896 - (if _struct?19335_ + (_g2010520422_ __tmp42966)))) + _g2007920090_))) + (__tmp42970 + (if _struct?19416_ (gx#datum->syntax '#f 'make-extended-struct-info) @@ -1427,628 +1427,628 @@ '#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_ + (_g2007720508_ __tmp42970)))) + _g2005120062_))) + (__tmp42971 + (let ((__tmp42972 + (cons _L19443_ + (cons _L19502_ + (cons _L19586_ + (cons _L19530_ + (cons _L19558_ + (foldr (lambda (_g2051520518_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2043520440_) - (cons _g2043420437_ _g2043520440_)) + _g2051620521_) + (cons _g2051520518_ _g2051620521_)) '() - _L19952_)))))))) + _L20033_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19337_ __tmp42898)))) + (_wrap19418_ __tmp42972)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1996820431_ __tmp42897)))) - _type-body1990919948_)))))) + (_g2004920512_ __tmp42971)))) + _type-body1999020029_)))))) (let () (declare (not safe)) - (_loop1990419928_ _target1990119922_ '()))) + (_loop1998520009_ _target1998220003_ '()))) (let () (declare (not safe)) - (_g1989819915_ _g1989919919_)))))) - (let () (declare (not safe)) (_g1989819915_ _g1989919919_))))) + (_g1997919996_ _g1998020000_)))))) + (let () (declare (not safe)) (_g1997919996_ _g1998020000_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42900 + (__tmp42974 (foldr cons (foldr cons (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons (foldr cons - _type-unchecked19895_ - _type-plist19880_) - _type-ctor19796_) - _type-name19766_) - _type-id19781_) - _type-attr19759_))) + _type-unchecked19976_ + _type-plist19961_) + _type-ctor19877_) + _type-name19847_) + _type-id19862_) + _type-attr19840_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1989720443_ __tmp42900)))) - _setf1967119710_)))))) + (_g1997820524_ __tmp42974)))) + _setf1975219791_)))))) (let () (declare (not safe)) - (_loop1966619690_ _target1966319684_ '()))) + (_loop1974719771_ _target1974419765_ '()))) (let () (declare (not safe)) - (_g1966019677_ _g1966119681_)))))) + (_g1974119758_ _g1974219762_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1966019677_ - _g1966119681_))))) - (__tmp42902 + (_g1974119758_ + _g1974219762_))))) + (__tmp42976 (gx#stx-map - (lambda (_g2045020452_) - (_make-id19339_ - _name19341_ + (lambda (_g2053120533_) + (_make-id19420_ + _name19422_ '"-" - _g2045020452_ + _g2053120533_ '"-set!")) - _els19333_))) + _els19414_))) (declare (not safe)) - (_g1965920447_ __tmp42902)))) - _getf1960019639_)))))) + (_g1974020528_ __tmp42976)))) + _getf1968119720_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1959519619_ - _target1959219613_ + (_loop1967619700_ + _target1967319694_ '()))) (let () (declare (not safe)) - (_g1958919606_ - _g1959019610_)))))) + (_g1967019687_ + _g1967119691_)))))) (let () (declare (not safe)) - (_g1958919606_ _g1959019610_))))) - (__tmp42904 + (_g1967019687_ _g1967119691_))))) + (__tmp42978 (gx#stx-map - (lambda (_g2045920461_) - (_make-id19339_ - _name19341_ + (lambda (_g2054020542_) + (_make-id19420_ + _name19422_ '"-" - _g2045920461_)) - _els19333_))) + _g2054020542_)) + _els19414_))) (declare (not safe)) - (_g1958820456_ __tmp42904)))) - _attr1952919568_)))))) + (_g1966920537_ __tmp42978)))) + _attr1961019649_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1952419548_ - _target1952119542_ + (_loop1960519629_ + _target1960219623_ '()))) (let () (declare (not safe)) - (_g1951819535_ - _g1951919539_)))))) + (_g1959919616_ + _g1960019620_)))))) (let () (declare (not safe)) - (_g1951819535_ _g1951919539_)))))) + (_g1959919616_ _g1960019620_)))))) (declare (not safe)) - (_g1951720465_ _els19333_)))) - _g1949119502_))) + (_g1959820546_ _els19414_)))) + _g1957219583_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp42906 - (if _struct?19335_ - (if _super19344_ + (__tmp42980 + (if _struct?19416_ + (if _super19425_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (unchecked-slot-ref _super19344_ 'runtime-identifier)) + (unchecked-slot-ref _super19425_ 'runtime-identifier)) '#f) (map |gerbil/core$$[1]#runtime-type-identifier| - _super19344_)))) + _super19425_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1948920469_ __tmp42906)))) - _g1946319474_))) - (__tmp42907 - (_make-id19339_ _name19341_ '"?"))) + (_g1957020550_ __tmp42980)))) + _g1954419555_))) + (__tmp42981 + (_make-id19420_ _name19422_ '"?"))) (declare (not safe)) - (_g1946120473_ __tmp42907)))) - _g1943519446_))) - (__tmp42908 (_make-id19339_ '"make-" _name19341_))) + (_g1954220554_ __tmp42981)))) + _g1951619527_))) + (__tmp42982 (_make-id19420_ '"make-" _name19422_))) (declare (not safe)) - (_g1943320477_ __tmp42908)))) + (_g1951420558_ __tmp42982)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1940719418_))) - (__tmp42909 - (_make-id19339_ - _name19341_ + _g1948819499_))) + (__tmp42983 + (_make-id19420_ + _name19422_ '"::t"))) (declare (not safe)) - (_g1940520481_ __tmp42909)))) - _g1937919390_)))) + (_g1948620562_ __tmp42983)))) + _g1946019471_)))) (declare (not safe)) - (_g1937720485_ _id19331_)))) - _g1934819359_))) - (__tmp42910 - (if _struct?19335_ + (_g1945820566_ _id19412_)))) + _g1942919440_))) + (__tmp42984 + (if _struct?19416_ (gx#datum->syntax '#f 'defstruct-type) (gx#datum->syntax '#f 'defclass-type)))) (declare (not safe)) - (_g1934620489_ __tmp42910))))) + (_g1942720570_ __tmp42984))))) (define |gerbil/core$$[:0:]#defstruct| - (lambda (_stx20817_) - (letrec ((_generate20820_ - (lambda (_hd20904_ _fields20906_ _body20907_) - (let* ((___stx3971039711_ _hd20904_) - (_g2091020925_ + (lambda (_stx20898_) + (letrec ((_generate20901_ + (lambda (_hd20985_ _fields20987_ _body20988_) + (let* ((___stx3979139792_ _hd20985_) + (_g2099121006_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3971039711_)))) - (let ((___kont3971339714_ - (lambda (_L20963_ _L20965_) + ___stx3979139792_)))) + (let ((___kont3979439795_ + (lambda (_L21044_ _L21046_) (let () (declare (not safe)) (|gerbil/core$$[1]#generate-typedef| - _stx20817_ - _L20965_ - _L20963_ - _fields20906_ - _body20907_ + _stx20898_ + _L21046_ + _L21044_ + _fields20987_ + _body20988_ '#t)))) - (___kont3971539716_ + (___kont3979639797_ (lambda () - (if (gx#identifier? _hd20904_) + (if (gx#identifier? _hd20985_) (let () (declare (not safe)) (|gerbil/core$$[1]#generate-typedef| - _stx20817_ - _hd20904_ + _stx20898_ + _hd20985_ '#f - _fields20906_ - _body20907_ + _fields20987_ + _body20988_ '#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_) + _stx20898_ + _hd20985_))))) + (let ((___match3981239813_ + (lambda (_e2099721024_ + _hd2099621028_ + _tl2099521031_ + _e2100021034_ + _hd2099921038_ + _tl2099821041_) + (let ((_L21044_ _hd2099921038_) + (_L21046_ _hd2099621028_)) + (if (and (gx#identifier? _L21046_) (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_ + _L21044_))) + (___kont3979439795_ _L21044_ _L21046_) + (___kont3979639797_)))))) + (if (gx#stx-pair? ___stx3979139792_) + (let ((_e2099721024_ + (gx#syntax-e ___stx3979139792_))) + (let ((_tl2099521031_ (let () (declare (not safe)) - (##cdr _e2091620943_))) - (_hd2091520947_ + (##cdr _e2099721024_))) + (_hd2099621028_ (let () (declare (not safe)) - (##car _e2091620943_)))) - (if (gx#stx-pair? _tl2091420950_) - (let ((_e2091920953_ - (gx#syntax-e _tl2091420950_))) - (let ((_tl2091720960_ + (##car _e2099721024_)))) + (if (gx#stx-pair? _tl2099521031_) + (let ((_e2100021034_ + (gx#syntax-e _tl2099521031_))) + (let ((_tl2099821041_ (let () (declare (not safe)) - (##cdr _e2091920953_))) - (_hd2091820957_ + (##cdr _e2100021034_))) + (_hd2099921038_ (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 _e2100021034_)))) + (if (gx#stx-null? _tl2099821041_) + (___match3981239813_ + _e2099721024_ + _hd2099621028_ + _tl2099521031_ + _e2100021034_ + _hd2099921038_ + _tl2099821041_) + (___kont3979639797_)))) + (___kont3979639797_)))) + (___kont3979639797_)))))))) + (let* ((_g2090420923_ + (lambda (_g2090520919_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2090520919_))) + (_g2090320981_ + (lambda (_g2090520927_) + (if (gx#stx-pair? _g2090520927_) + (let ((_e2091120930_ (gx#syntax-e _g2090520927_))) + (let ((_hd2091020934_ (let () (declare (not safe)) - (##car _e2083020849_))) - (_tl2082820856_ + (##car _e2091120930_))) + (_tl2090920937_ (let () (declare (not safe)) - (##cdr _e2083020849_)))) - (if (gx#stx-pair? _tl2082820856_) - (let ((_e2083320859_ - (gx#syntax-e _tl2082820856_))) - (let ((_hd2083220863_ + (##cdr _e2091120930_)))) + (if (gx#stx-pair? _tl2090920937_) + (let ((_e2091420940_ + (gx#syntax-e _tl2090920937_))) + (let ((_hd2091320944_ (let () (declare (not safe)) - (##car _e2083320859_))) - (_tl2083120866_ + (##car _e2091420940_))) + (_tl2091220947_ (let () (declare (not safe)) - (##cdr _e2083320859_)))) - (if (gx#stx-pair? _tl2083120866_) - (let ((_e2083620869_ - (gx#syntax-e _tl2083120866_))) - (let ((_hd2083520873_ + (##cdr _e2091420940_)))) + (if (gx#stx-pair? _tl2091220947_) + (let ((_e2091720950_ + (gx#syntax-e _tl2091220947_))) + (let ((_hd2091620954_ (let () (declare (not safe)) - (##car _e2083620869_))) - (_tl2083420876_ + (##car _e2091720950_))) + (_tl2091520957_ (let () (declare (not safe)) - (##cdr _e2083620869_)))) - ((lambda (_L20879_ - _L20881_ - _L20882_) + (##cdr _e2091720950_)))) + ((lambda (_L20960_ + _L20962_ + _L20963_) (if (and (gx#identifier-list? - _L20881_) + _L20962_) (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_))))) + _L20960_))) + (_generate20901_ + _L20963_ + _L20962_ + _L20960_) + (_g2090420923_ + _g2090520927_))) + _tl2091520957_ + _hd2091620954_ + _hd2091320944_))) + (_g2090420923_ _g2090520927_)))) + (_g2090420923_ _g2090520927_)))) + (_g2090420923_ _g2090520927_))))) + (_g2090320981_ _stx20898_))))) (define |gerbil/core$$[:0:]#defclass| - (lambda (_stx20984_) - (letrec ((_generate20987_ - (lambda (_hd21071_ _slots21073_ _body21074_) - (let* ((___stx3973439735_ _hd21071_) - (_g2107721089_ + (lambda (_stx21065_) + (letrec ((_generate21068_ + (lambda (_hd21152_ _slots21154_ _body21155_) + (let* ((___stx3981539816_ _hd21152_) + (_g2115821170_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3973439735_)))) - (let ((___kont3973739738_ - (lambda (_L21117_ _L21119_) - (let ((__tmp42911 (gx#syntax->list _L21117_))) + ___stx3981539816_)))) + (let ((___kont3981839819_ + (lambda (_L21198_ _L21200_) + (let ((__tmp42985 (gx#syntax->list _L21198_))) (declare (not safe)) (|gerbil/core$$[1]#generate-typedef| - _stx20984_ - _L21119_ - __tmp42911 - _slots21073_ - _body21074_ + _stx21065_ + _L21200_ + __tmp42985 + _slots21154_ + _body21155_ '#f)))) - (___kont3973939740_ + (___kont3982039821_ (lambda () - (if (gx#identifier? _hd21071_) + (if (gx#identifier? _hd21152_) (let () (declare (not safe)) (|gerbil/core$$[1]#generate-typedef| - _stx20984_ - _hd21071_ + _stx21065_ + _hd21152_ '() - _slots21073_ - _body21074_ + _slots21154_ + _body21155_ '#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_) + _stx21065_ + _hd21152_))))) + (let ((___match3982839829_ + (lambda (_e2116421188_ + _hd2116321192_ + _tl2116221195_) + (let ((_L21198_ _tl2116221195_) + (_L21200_ _hd2116321192_)) + (if (and (gx#stx-list? _L21198_) (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_ + _L21198_)) + (___kont3981839819_ _L21198_ _L21200_) + (___kont3982039821_)))))) + (if (gx#stx-pair? ___stx3981539816_) + (let ((_e2116421188_ + (gx#syntax-e ___stx3981539816_))) + (let ((_tl2116221195_ (let () (declare (not safe)) - (##cdr _e2108321107_))) - (_hd2108221111_ + (##cdr _e2116421188_))) + (_hd2116321192_ (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 _e2116421188_)))) + (___match3982839829_ + _e2116421188_ + _hd2116321192_ + _tl2116221195_))) + (___kont3982039821_)))))))) + (let* ((_g2107121090_ + (lambda (_g2107221086_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2107221086_))) + (_g2107021148_ + (lambda (_g2107221094_) + (if (gx#stx-pair? _g2107221094_) + (let ((_e2107821097_ (gx#syntax-e _g2107221094_))) + (let ((_hd2107721101_ (let () (declare (not safe)) - (##car _e2099721016_))) - (_tl2099521023_ + (##car _e2107821097_))) + (_tl2107621104_ (let () (declare (not safe)) - (##cdr _e2099721016_)))) - (if (gx#stx-pair? _tl2099521023_) - (let ((_e2100021026_ - (gx#syntax-e _tl2099521023_))) - (let ((_hd2099921030_ + (##cdr _e2107821097_)))) + (if (gx#stx-pair? _tl2107621104_) + (let ((_e2108121107_ + (gx#syntax-e _tl2107621104_))) + (let ((_hd2108021111_ (let () (declare (not safe)) - (##car _e2100021026_))) - (_tl2099821033_ + (##car _e2108121107_))) + (_tl2107921114_ (let () (declare (not safe)) - (##cdr _e2100021026_)))) - (if (gx#stx-pair? _tl2099821033_) - (let ((_e2100321036_ - (gx#syntax-e _tl2099821033_))) - (let ((_hd2100221040_ + (##cdr _e2108121107_)))) + (if (gx#stx-pair? _tl2107921114_) + (let ((_e2108421117_ + (gx#syntax-e _tl2107921114_))) + (let ((_hd2108321121_ (let () (declare (not safe)) - (##car _e2100321036_))) - (_tl2100121043_ + (##car _e2108421117_))) + (_tl2108221124_ (let () (declare (not safe)) - (##cdr _e2100321036_)))) - ((lambda (_L21046_ - _L21048_ - _L21049_) + (##cdr _e2108421117_)))) + ((lambda (_L21127_ + _L21129_ + _L21130_) (if (and (gx#identifier-list? - _L21048_) + _L21129_) (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_))))) + _L21127_))) + (_generate21068_ + _L21130_ + _L21129_ + _L21127_) + (_g2107121090_ + _g2107221094_))) + _tl2108221124_ + _hd2108321121_ + _hd2108021111_))) + (_g2107121090_ _g2107221094_)))) + (_g2107121090_ _g2107221094_)))) + (_g2107121090_ _g2107221094_))))) + (_g2107021148_ _stx21065_))))) (define |gerbil/core$$[:0:]#defmethod| - (lambda (_stx21136_) - (letrec ((_wrap21139_ - (lambda (_e-stx21476_) + (lambda (_stx21217_) + (letrec ((_wrap21220_ + (lambda (_e-stx21557_) (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-stx21557_ + (gx#stx-source _stx21217_)))) + (_method-opt?21222_ + (lambda (_x21554_) (memq (gx#stx-e _x21554_) '(rebind:))))) + (let* ((_g2122421253_ + (lambda (_g2122521249_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2122521249_))) + (_g2122321550_ + (lambda (_g2122521257_) + (if (gx#stx-pair? _g2122521257_) + (let ((_e2123221260_ (gx#syntax-e _g2122521257_))) + (let ((_hd2123121264_ (let () (declare (not safe)) - (##car _e2115121179_))) - (_tl2114921186_ + (##car _e2123221260_))) + (_tl2123021267_ (let () (declare (not safe)) - (##cdr _e2115121179_)))) - (if (gx#stx-pair? _tl2114921186_) - (let ((_e2115421189_ - (gx#syntax-e _tl2114921186_))) - (let ((_hd2115321193_ + (##cdr _e2123221260_)))) + (if (gx#stx-pair? _tl2123021267_) + (let ((_e2123521270_ + (gx#syntax-e _tl2123021267_))) + (let ((_hd2123421274_ (let () (declare (not safe)) - (##car _e2115421189_))) - (_tl2115221196_ + (##car _e2123521270_))) + (_tl2123321277_ (let () (declare (not safe)) - (##cdr _e2115421189_)))) - (if (gx#stx-pair? _hd2115321193_) - (let ((_e2115721199_ - (gx#syntax-e _hd2115321193_))) - (let ((_hd2115621203_ + (##cdr _e2123521270_)))) + (if (gx#stx-pair? _hd2123421274_) + (let ((_e2123821280_ + (gx#syntax-e _hd2123421274_))) + (let ((_hd2123721284_ (let () (declare (not safe)) - (##car _e2115721199_))) - (_tl2115521206_ + (##car _e2123821280_))) + (_tl2123621287_ (let () (declare (not safe)) - (##cdr _e2115721199_)))) - (if (gx#identifier? _hd2115621203_) + (##cdr _e2123821280_)))) + (if (gx#identifier? _hd2123721284_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g42912_| - _hd2115621203_) + |gerbil/core$$[1]#_g42986_| + _hd2123721284_) (if (gx#stx-pair? - _tl2115521206_) - (let ((_e2116021209_ + _tl2123621287_) + (let ((_e2124121290_ (gx#syntax-e - _tl2115521206_))) - (let ((_hd2115921213_ + _tl2123621287_))) + (let ((_hd2124021294_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (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 _e2124121290_))) + (_tl2123921297_ + (let () (declare (not safe)) (##cdr _e2124121290_)))) + (if (gx#stx-pair? _tl2123921297_) + (let ((_e2124421300_ (gx#syntax-e _tl2123921297_))) + (let ((_hd2124321304_ (let () (declare (not safe)) - (##car _e2116321219_))) - (_tl2116121226_ + (##car _e2124421300_))) + (_tl2124221307_ (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 _e2124421300_)))) + (if (gx#stx-null? _tl2124221307_) + (if (gx#stx-pair? _tl2123321277_) + (let ((_e2124721310_ + (gx#syntax-e _tl2123321277_))) + (let ((_hd2124621314_ (let () (declare (not safe)) - (##car _e2116621229_))) - (_tl2116421236_ + (##car _e2124721310_))) + (_tl2124521317_ (let () (declare (not safe)) - (##cdr _e2116621229_)))) - ((lambda (_L21239_ - _L21241_ - _L21242_ - _L21243_) - (if (and (gx#identifier? _L21243_) + (##cdr _e2124721310_)))) + ((lambda (_L21320_ + _L21322_ + _L21323_ + _L21324_) + (if (and (gx#identifier? _L21324_) (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__0| - _L21242_)) + _L21323_)) (gx#stx-plist? - _L21239_ - _method-opt?21141_)) - (let* ((_klass21268_ + _L21320_ + _method-opt?21222_)) + (let* ((_klass21349_ (gx#syntax-local-value - _L21242_)) - (_rebind?21271_ + _L21323_)) + (_rebind?21352_ (if (gx#stx-e (gx#stx-getq 'rebind: - _L21239_)) + _L21320_)) '#t '#f)) - (_g2127421282_ - (lambda (_g2127521278_) + (_g2135521363_ + (lambda (_g2135621359_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2127521278_))) - (_g2127321465_ - (lambda (_g2127521286_) - ((lambda (_L21289_) + _g2135621359_))) + (_g2135421546_ + (lambda (_g2135621367_) + ((lambda (_L21370_) (let () - (let* ((_g2130321311_ + (let* ((_g2138421392_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2130421307_) + (lambda (_g2138521388_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2130421307_))) - (_g2130221461_ - (lambda (_g2130421315_) - ((lambda (_L21318_) + _g2138521388_))) + (_g2138321542_ + (lambda (_g2138521396_) + ((lambda (_L21399_) (let () - (let* ((_g2133121339_ - (lambda (_g2133221335_) + (let* ((_g2141221420_ + (lambda (_g2141321416_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2133221335_))) - (_g2133021457_ - (lambda (_g2133221343_) - ((lambda (_L21346_) + _g2141321416_))) + (_g2141121538_ + (lambda (_g2141321424_) + ((lambda (_L21427_) (let () - (let* ((_g2135921367_ - (lambda (_g2136021363_) + (let* ((_g2144021448_ + (lambda (_g2144121444_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2136021363_))) - (_g2135821453_ - (lambda (_g2136021371_) - ((lambda (_L21374_) + _g2144121444_))) + (_g2143921534_ + (lambda (_g2144121452_) + ((lambda (_L21455_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2138721395_ - (lambda (_g2138821391_) + (let* ((_g2146821476_ + (lambda (_g2146921472_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2138821391_))) - (_g2138621449_ - (lambda (_g2138821399_) - ((lambda (_L21402_) + _g2146921472_))) + (_g2146721530_ + (lambda (_g2146921480_) + ((lambda (_L21483_) (let () - (let* ((_g2141521423_ - (lambda (_g2141621419_) + (let* ((_g2149621504_ + (lambda (_g2149721500_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2141621419_))) - (_g2141421445_ - (lambda (_g2141621427_) - ((lambda (_L21430_) + _g2149721500_))) + (_g2149521526_ + (lambda (_g2149721508_) + ((lambda (_L21511_) (let () (let () - (_wrap21139_ + (_wrap21220_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - (cons _L21374_ (cons _L21430_ '()))))))) + (cons _L21455_ (cons _L21511_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2141621427_)))) - (_g2141421445_ - (_wrap21139_ + _g2149721508_)))) + (_g2149521526_ + (_wrap21220_ (cons (gx#datum->syntax '#f 'bind-method!) - (cons _L21289_ + (cons _L21370_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L21243_ '())) - (cons _L21318_ (cons _L21402_ '())))))))))) + (cons _L21324_ '())) + (cons _L21399_ (cons _L21483_ '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2138821399_)))) - (_g2138621449_ _rebind?21271_)))) - _g2136021371_)))) - (_g2135821453_ - (_wrap21139_ + _g2146921480_)))) + (_g2146721530_ _rebind?21352_)))) + _g2144121452_)))) + (_g2143921534_ + (_wrap21220_ (cons (gx#datum->syntax '#f 'def) - (cons _L21318_ + (cons _L21399_ (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _L21346_ + (cons (cons (cons _L21427_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2067,11 +2067,11 @@ (cons (cons (gx#datum->syntax '#f 'call-next-method) - (cons _L21289_ + (cons _L21370_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'obj) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21243_ '())) + (cons _L21324_ '())) (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '())))))) @@ -2081,133 +2081,133 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _L21241_ '()))) + (cons _L21322_ '()))) '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2133221343_)))) - (_g2133021457_ + _g2141321424_)))) + (_g2141121538_ (gx#stx-identifier - _L21243_ + _L21324_ '@next-method))))) - _g2130421315_)))) - (_g2130221461_ + _g2138521396_)))) + (_g2138321542_ (gx#stx-identifier - _L21243_ - _L21242_ + _L21324_ + _L21323_ '"::" - _L21243_))))) - _g2127521286_)))) + _L21324_))))) + _g2135621367_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2127321465_ + (_g2135421546_ (let () (declare (not safe)) (unchecked-slot-ref - _klass21268_ + _klass21349_ 'runtime-identifier)))) (if (not (gx#identifier? - _L21243_)) + _L21324_)) (gx#raise-syntax-error '#f '"Bad syntax; expected method identifier" - _stx21136_ - _L21243_) + _stx21217_ + _L21324_) (if (not (let () (declare (not safe)) (|gerbil/core$$[1]#syntax-local-type-info?__0| - _L21242_))) + _L21323_))) (gx#raise-syntax-error '#f '"Bad syntax; expected type identifier" - _stx21136_ - _L21242_) + _stx21217_ + _L21323_) (gx#raise-syntax-error '#f '"Bad syntax; illegal method options" - _stx21136_))))) - _tl2116421236_ - _hd2116521233_ - _hd2116221223_ - _hd2115921213_))) - (_g2114321172_ _g2114421176_)) - (_g2114321172_ _g2114421176_)))) - (_g2114321172_ _g2114421176_)))) - (_g2114321172_ _g2114421176_)) + _stx21217_))))) + _tl2124521317_ + _hd2124621314_ + _hd2124321304_ + _hd2124021294_))) + (_g2122421253_ _g2122521257_)) + (_g2122421253_ _g2122521257_)))) + (_g2122421253_ _g2122521257_)))) + (_g2122421253_ _g2122521257_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2114321172_ - _g2114421176_)) - (_g2114321172_ - _g2114421176_)))) - (_g2114321172_ _g2114421176_)))) - (_g2114321172_ _g2114421176_)))) - (_g2114321172_ _g2114421176_))))) - (_g2114221469_ _stx21136_))))) + (_g2122421253_ + _g2122521257_)) + (_g2122421253_ + _g2122521257_)))) + (_g2122421253_ _g2122521257_)))) + (_g2122421253_ _g2122521257_)))) + (_g2122421253_ _g2122521257_))))) + (_g2122321550_ _stx21217_))))) (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 (_stx21560_) + (letrec ((_dotted-identifier?21563_ + (lambda (_id22196_) + (if (gx#identifier? _id22196_) + (let ((_id-str22199_ + (symbol->string (gx#stx-e _id22196_)))) + (if (string-index _id-str22199_ '#\.) + (let ((_split22202_ + (string-split _id-str22199_ '#\.))) + (fx= (length _split22202_) '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-dotted21565_ + (lambda (_id22185_) + (let* ((_id-str22188_ + (symbol->string (gx#stx-e _id22185_))) + (_split22191_ (string-split _id-str22188_ '#\.))) + (cons (gx#stx-identifier _id22185_ (car _split22191_)) (cons (gx#stx-identifier - _id22104_ - (cadr _split22110_)) + _id22185_ + (cadr _split22191_)) '())))))) - (let* ((___stx3975039751_ _stx21479_) - (_g2148921576_ + (let* ((___stx3983139832_ _stx21560_) + (_g2157021657_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3975039751_)))) - (let ((___kont3975339754_ - (lambda (_L21997_ _L21999_ _L22000_) - (let* ((_g2202822043_ - (lambda (_g2202922039_) + ___stx3983139832_)))) + (let ((___kont3983439835_ + (lambda (_L22078_ _L22080_ _L22081_) + (let* ((_g2210922124_ + (lambda (_g2211022120_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2202922039_))) - (_g2202722096_ - (lambda (_g2202922047_) - (if (gx#stx-pair? _g2202922047_) - (let ((_e2203422050_ - (gx#syntax-e _g2202922047_))) - (let ((_hd2203322054_ + _g2211022120_))) + (_g2210822177_ + (lambda (_g2211022128_) + (if (gx#stx-pair? _g2211022128_) + (let ((_e2211522131_ + (gx#syntax-e _g2211022128_))) + (let ((_hd2211422135_ (let () (declare (not safe)) - (##car _e2203422050_))) - (_tl2203222057_ + (##car _e2211522131_))) + (_tl2211322138_ (let () (declare (not safe)) - (##cdr _e2203422050_)))) - (if (gx#stx-pair? _tl2203222057_) - (let ((_e2203722060_ + (##cdr _e2211522131_)))) + (if (gx#stx-pair? _tl2211322138_) + (let ((_e2211822141_ (gx#syntax-e - _tl2203222057_))) - (let ((_hd2203622064_ + _tl2211322138_))) + (let ((_hd2211722145_ (let () (declare (not safe)) - (##car _e2203722060_))) - (_tl2203522067_ + (##car _e2211822141_))) + (_tl2211622148_ (let () (declare (not safe)) - (##cdr _e2203722060_)))) + (##cdr _e2211822141_)))) (if (gx#stx-null? - _tl2203522067_) - ((lambda (_L22070_ _L22072_) + _tl2211622148_) + ((lambda (_L22151_ _L22153_) (let () (cons (gx#datum->syntax '#f @@ -2216,1385 +2216,1385 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'call-method) - (cons _L22072_ + (cons _L22153_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22070_ '())) + (cons _L22151_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2208722090_ + (foldr (lambda (_g2216822171_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2208822093_) - (cons _g2208722090_ _g2208822093_)) + _g2216922174_) + (cons _g2216822171_ _g2216922174_)) '() - _L21999_)) + _L22080_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2203622064_ - _hd2203322054_) - (_g2202822043_ - _g2202922047_)))) - (_g2202822043_ _g2202922047_)))) - (_g2202822043_ _g2202922047_))))) - (_g2202722096_ (_split-dotted21484_ _L22000_))))) - (___kont3975739758_ - (lambda (_L21839_ _L21841_) - (let* ((_g2185821873_ - (lambda (_g2185921869_) + _hd2211722145_ + _hd2211422135_) + (_g2210922124_ + _g2211022128_)))) + (_g2210922124_ _g2211022128_)))) + (_g2210922124_ _g2211022128_))))) + (_g2210822177_ (_split-dotted21565_ _L22081_))))) + (___kont3983839839_ + (lambda (_L21920_ _L21922_) + (let* ((_g2193921954_ + (lambda (_g2194021950_) (gx#raise-syntax-error '#f '"Bad syntax" - _g2185921869_))) - (_g2185721926_ - (lambda (_g2185921877_) - (if (gx#stx-pair? _g2185921877_) - (let ((_e2186421880_ - (gx#syntax-e _g2185921877_))) - (let ((_hd2186321884_ + _g2194021950_))) + (_g2193822007_ + (lambda (_g2194021958_) + (if (gx#stx-pair? _g2194021958_) + (let ((_e2194521961_ + (gx#syntax-e _g2194021958_))) + (let ((_hd2194421965_ (let () (declare (not safe)) - (##car _e2186421880_))) - (_tl2186221887_ + (##car _e2194521961_))) + (_tl2194321968_ (let () (declare (not safe)) - (##cdr _e2186421880_)))) - (if (gx#stx-pair? _tl2186221887_) - (let ((_e2186721890_ + (##cdr _e2194521961_)))) + (if (gx#stx-pair? _tl2194321968_) + (let ((_e2194821971_ (gx#syntax-e - _tl2186221887_))) - (let ((_hd2186621894_ + _tl2194321968_))) + (let ((_hd2194721975_ (let () (declare (not safe)) - (##car _e2186721890_))) - (_tl2186521897_ + (##car _e2194821971_))) + (_tl2194621978_ (let () (declare (not safe)) - (##cdr _e2186721890_)))) + (##cdr _e2194821971_)))) (if (gx#stx-null? - _tl2186521897_) - ((lambda (_L21900_ _L21902_) + _tl2194621978_) + ((lambda (_L21981_ _L21983_) (let () (cons (gx#datum->syntax '#f 'call-method) - (cons _L21902_ + (cons _L21983_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21900_ '())) - (foldr (lambda (_g2191721920_ _g2191821923_) - (cons _g2191721920_ _g2191821923_)) + (cons _L21981_ '())) + (foldr (lambda (_g2199822001_ _g2199922004_) + (cons _g2199822001_ _g2199922004_)) '() - _L21839_)))))) + _L21920_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2186621894_ - _hd2186321884_) - (_g2185821873_ - _g2185921877_)))) - (_g2185821873_ _g2185921877_)))) - (_g2185821873_ _g2185921877_))))) - (_g2185721926_ (_split-dotted21484_ _L21841_))))) - (___kont3976139762_ - (lambda (_L21743_ _L21745_ _L21746_) + _hd2194721975_ + _hd2194421965_) + (_g2193921954_ + _g2194021958_)))) + (_g2193921954_ _g2194021958_)))) + (_g2193921954_ _g2194021958_))))) + (_g2193822007_ (_split-dotted21565_ _L21922_))))) + (___kont3984239843_ + (lambda (_L21824_ _L21826_ _L21827_) (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f 'call-method) - (cons _L21745_ + (cons _L21826_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21746_ '())) + (cons _L21827_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_g2177321776_ + (foldr (lambda (_g2185421857_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2177421779_) - (cons _g2177321776_ _g2177421779_)) + _g2185521860_) + (cons _g2185421857_ _g2185521860_)) '() - _L21743_)) + _L21824_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (___kont3976539766_ - (lambda (_L21643_ _L21645_ _L21646_) + (___kont3984639847_ + (lambda (_L21724_ _L21726_ _L21727_) (cons (gx#datum->syntax '#f 'call-method) - (cons _L21645_ + (cons _L21726_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21646_ '())) - (foldr (lambda (_g2166721670_ - _g2166821673_) - (cons _g2166721670_ - _g2166821673_)) + (cons _L21727_ '())) + (foldr (lambda (_g2174821751_ + _g2174921754_) + (cons _g2174821751_ + _g2174921754_)) '() - _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_ + _L21724_))))))) + (let* ((___match3995039951_ + (lambda (_e2163621664_ + _hd2163521668_ + _tl2163421671_ + _e2163921674_ + _hd2163821678_ + _tl2163721681_ + _e2164221684_ + _hd2164121688_ + _tl2164021691_ + ___splice3984839849_ + _target2164321694_ + _tl2164521697_) + (letrec ((_loop2164621700_ + (lambda (_hd2164421704_ _arg2165021707_) + (if (gx#stx-pair? _hd2164421704_) + (let ((_e2164721710_ + (gx#syntax-e _hd2164421704_))) + (let ((_lp-tl2164921717_ (let () (declare (not safe)) - (##cdr _e2156621629_))) - (_lp-hd2156721633_ + (##cdr _e2164721710_))) + (_lp-hd2164821714_ (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 _e2164721710_)))) + (_loop2164621700_ + _lp-tl2164921717_ + (cons _lp-hd2164821714_ + _arg2165021707_)))) + (let ((_arg2165121720_ + (reverse _arg2165021707_))) + (let ((_L21724_ _arg2165121720_) + (_L21726_ _hd2164121688_) + (_L21727_ _hd2163821678_)) + (if (gx#identifier? _L21727_) + (___kont3984639847_ + _L21724_ + _L21726_ + _L21727_) (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_ + (_g2157021657_))))))))) + (_loop2164621700_ _target2164321694_ '())))) + (___match3992439925_ + (lambda (_e2161521764_ + _hd2161421768_ + _tl2161321771_ + _e2161821774_ + _hd2161721778_ + _tl2161621781_ + _e2162121784_ + _hd2162021788_ + _tl2161921791_ + ___splice3984439845_ + _target2162221794_ + _tl2162421797_) + (letrec ((_loop2162521800_ + (lambda (_hd2162321804_ _arg2162921807_) + (if (gx#stx-pair? _hd2162321804_) + (let ((_e2162621810_ + (gx#syntax-e _hd2162321804_))) + (let ((_lp-tl2162821817_ (let () (declare (not safe)) - (##cdr _e2154521729_))) - (_lp-hd2154621733_ + (##cdr _e2162621810_))) + (_lp-hd2162721814_ (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 _e2162621810_)))) + (_loop2162521800_ + _lp-tl2162821817_ + (cons _lp-hd2162721814_ + _arg2162921807_)))) + (let ((_arg2163021820_ + (reverse _arg2162921807_))) + (let ((_L21824_ _arg2163021820_) + (_L21826_ _hd2162021788_) + (_L21827_ _hd2161721778_)) + (if (and (gx#identifier? _L21827_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_g2176521768_ + (foldr (lambda (_g2184621849_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2176621771_) - (cons _g2176521768_ _g2176621771_)) + _g2184721852_) + (cons _g2184621849_ _g2184721852_)) '() - _L21743_))) + _L21824_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_ + (___kont3984239843_ + _L21824_ + _L21826_ + _L21827_) + (___match3995039951_ + _e2161521764_ + _hd2161421768_ + _tl2161321771_ + _e2161821774_ + _hd2161721778_ + _tl2161621781_ + _e2162121784_ + _hd2162021788_ + _tl2161921791_ + ___splice3984439845_ + _target2162221794_ + _tl2162421797_)))))))) + (_loop2162521800_ _target2162221794_ '())))) + (___match3991039911_ + (lambda (_e2161521764_ + _hd2161421768_ + _tl2161321771_ + _e2161821774_ + _hd2161721778_ + _tl2161621781_) + (if (gx#stx-pair? _tl2161621781_) + (let ((_e2162121784_ (gx#syntax-e _tl2161621781_))) + (let ((_tl2161921791_ (let () (declare (not safe)) - (##cdr _e2154021703_))) - (_hd2153921707_ + (##cdr _e2162121784_))) + (_hd2162021788_ (let () (declare (not safe)) - (##car _e2154021703_)))) - (if (gx#stx-pair/null? _tl2153821710_) - (let ((___splice3976339764_ + (##car _e2162121784_)))) + (if (gx#stx-pair/null? _tl2161921791_) + (let ((___splice3984439845_ (gx#syntax-split-splice - _tl2153821710_ + _tl2161921791_ '0))) - (let ((_tl2154321716_ + (let ((_tl2162421797_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3984439845_ '1))) - (_target2154121713_ + (_target2162221794_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3984439845_ '0)))) - (if (gx#stx-null? _tl2154321716_) - (___match3984339844_ - _e2153421683_ - _hd2153321687_ - _tl2153221690_ - _e2153721693_ - _hd2153621697_ - _tl2153521700_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) + (if (gx#stx-null? _tl2162421797_) + (___match3992439925_ + _e2161521764_ + _hd2161421768_ + _tl2161321771_ + _e2161821774_ + _hd2161721778_ + _tl2161621781_ + _e2162121784_ + _hd2162021788_ + _tl2161921791_ + ___splice3984439845_ + _target2162221794_ + _tl2162421797_) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2157021657_))))) (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_ + (_g2157021657_))))) + (let () (declare (not safe)) (_g2157021657_))))) + (___match3989839899_ + (lambda (_e2159721870_ + _hd2159621874_ + _tl2159521877_ + _e2160021880_ + _hd2159921884_ + _tl2159821887_ + ___splice3984039841_ + _target2160121890_ + _tl2160321893_) + (letrec ((_loop2160421896_ + (lambda (_hd2160221900_ _arg2160821903_) + (if (gx#stx-pair? _hd2160221900_) + (let ((_e2160521906_ + (gx#syntax-e _hd2160221900_))) + (let ((_lp-tl2160721913_ (let () (declare (not safe)) - (##cdr _e2152421825_))) - (_lp-hd2152521829_ + (##cdr _e2160521906_))) + (_lp-hd2160621910_ (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 _e2160521906_)))) + (_loop2160421896_ + _lp-tl2160721913_ + (cons _lp-hd2160621910_ + _arg2160821903_)))) + (let ((_arg2160921916_ + (reverse _arg2160821903_))) + (let ((_L21920_ _arg2160921916_) + (_L21922_ _hd2159921884_)) + (if (_dotted-identifier?21563_ + _L21922_) + (___kont3983839839_ + _L21920_ + _L21922_) + (___match3991039911_ + _e2159721870_ + _hd2159621874_ + _tl2159521877_ + _e2160021880_ + _hd2159921884_ + _tl2159821887_)))))))) + (_loop2160421896_ _target2160121890_ '())))) + (___match3989639897_ + (lambda (_e2159721870_ + _hd2159621874_ + _tl2159521877_ + _e2160021880_ + _hd2159921884_ + _tl2159821887_ + ___splice3984039841_ + _target2160121890_ + _tl2160321893_) + (if (gx#stx-null? _tl2160321893_) + (___match3989839899_ + _e2159721870_ + _hd2159621874_ + _tl2159521877_ + _e2160021880_ + _hd2159921884_ + _tl2159821887_ + ___splice3984039841_ + _target2160121890_ + _tl2160321893_) + (if (gx#stx-pair? _tl2159821887_) + (let ((_e2162121784_ + (gx#syntax-e _tl2159821887_))) + (let ((_tl2161921791_ (let () (declare (not safe)) - (##cdr _e2154021703_))) - (_hd2153921707_ + (##cdr _e2162121784_))) + (_hd2162021788_ (let () (declare (not safe)) - (##car _e2154021703_)))) - (if (gx#stx-pair/null? _tl2153821710_) - (let ((___splice3976339764_ + (##car _e2162121784_)))) + (if (gx#stx-pair/null? _tl2161921791_) + (let ((___splice3984439845_ (gx#syntax-split-splice - _tl2153821710_ + _tl2161921791_ '0))) - (let ((_tl2154321716_ + (let ((_tl2162421797_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3984439845_ '1))) - (_target2154121713_ + (_target2162221794_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3984439845_ '0)))) - (if (gx#stx-null? _tl2154321716_) - (___match3984339844_ - _e2151621789_ - _hd2151521793_ - _tl2151421796_ - _e2151921799_ - _hd2151821803_ - _tl2151721806_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) + (if (gx#stx-null? _tl2162421797_) + (___match3992439925_ + _e2159721870_ + _hd2159621874_ + _tl2159521877_ + _e2160021880_ + _hd2159921884_ + _tl2159821887_ + _e2162121784_ + _hd2162021788_ + _tl2161921791_ + ___splice3984439845_ + _target2162221794_ + _tl2162421797_) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2157021657_))))) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2157021657_))))) (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_ + (_g2157021657_)))))) + (___match3987839879_ + (lambda (_e2157722018_ + _hd2157622022_ + _tl2157522025_ + _e2158022028_ + _hd2157922032_ + _tl2157822035_ + ___splice3983639837_ + _target2158122038_ + _tl2158322041_ + _e2159222044_ + _hd2159122048_ + _tl2159022051_) + (letrec ((_loop2158422054_ + (lambda (_hd2158222058_ _arg2158822061_) + (if (gx#stx-pair? _hd2158222058_) + (let ((_e2158522064_ + (gx#syntax-e _hd2158222058_))) + (let ((_lp-tl2158722071_ (let () (declare (not safe)) - (##cdr _e2150421983_))) - (_lp-hd2150521987_ + (##cdr _e2158522064_))) + (_lp-hd2158622068_ (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 _e2158522064_)))) + (_loop2158422054_ + _lp-tl2158722071_ + (cons _lp-hd2158622068_ + _arg2158822061_)))) + (let ((_arg2158922074_ + (reverse _arg2158822061_))) + (let ((_L22078_ _hd2159122048_) + (_L22080_ _arg2158922074_) + (_L22081_ _hd2157922032_)) + (if (and (_dotted-identifier?21563_ + _L22081_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_g2201922022_ + (foldr (lambda (_g2210022103_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2202022025_) - (cons _g2201922022_ _g2202022025_)) + _g2210122106_) + (cons _g2210022103_ _g2210122106_)) '() - _L21999_))) + _L22080_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont3975339754_ - _L21997_ - _L21999_ - _L22000_) - (let ((___splice3975939760_ + (___kont3983439835_ + _L22078_ + _L22080_ + _L22081_) + (let ((___splice3984039841_ (gx#syntax-split-splice - _tl2149721954_ + _tl2157822035_ '0))) - (let ((_tl2152221812_ + (let ((_tl2160321893_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3984039841_ '1))) - (_target2152021809_ + (_target2160121890_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3984039841_ '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_ + (___match3989639897_ + _e2157722018_ + _hd2157622022_ + _tl2157522025_ + _e2158022028_ + _hd2157922032_ + _tl2157822035_ + ___splice3984039841_ + _target2160121890_ + _tl2160321893_)))))))))) + (_loop2158422054_ _target2158122038_ '()))))) + (if (gx#stx-pair? ___stx3983139832_) + (let ((_e2157722018_ (gx#syntax-e ___stx3983139832_))) + (let ((_tl2157522025_ (let () (declare (not safe)) - (##cdr _e2149621937_))) - (_hd2149521941_ + (##cdr _e2157722018_))) + (_hd2157622022_ (let () (declare (not safe)) - (##car _e2149621937_)))) - (if (gx#stx-pair? _tl2149421944_) - (let ((_e2149921947_ (gx#syntax-e _tl2149421944_))) - (let ((_tl2149721954_ + (##car _e2157722018_)))) + (if (gx#stx-pair? _tl2157522025_) + (let ((_e2158022028_ (gx#syntax-e _tl2157522025_))) + (let ((_tl2157822035_ (let () (declare (not safe)) - (##cdr _e2149921947_))) - (_hd2149821951_ + (##cdr _e2158022028_))) + (_hd2157922032_ (let () (declare (not safe)) - (##car _e2149921947_)))) - (if (gx#stx-pair/null? _tl2149721954_) - (if (fx>= (gx#stx-length _tl2149721954_) + (##car _e2158022028_)))) + (if (gx#stx-pair/null? _tl2157822035_) + (if (fx>= (gx#stx-length _tl2157822035_) '1) - (let ((___splice3975539756_ + (let ((___splice3983639837_ (gx#syntax-split-splice - _tl2149721954_ + _tl2157822035_ '1))) - (let ((_tl2150221960_ + (let ((_tl2158322041_ (let () (declare (not safe)) (##vector-ref - ___splice3975539756_ + ___splice3983639837_ '1))) - (_target2150021957_ + (_target2158122038_ (let () (declare (not safe)) (##vector-ref - ___splice3975539756_ + ___splice3983639837_ '0)))) - (if (gx#stx-pair? _tl2150221960_) - (let ((_e2151121963_ + (if (gx#stx-pair? _tl2158322041_) + (let ((_e2159222044_ (gx#syntax-e - _tl2150221960_))) - (let ((_tl2150921970_ + _tl2158322041_))) + (let ((_tl2159022051_ (let () (declare (not safe)) - (##cdr _e2151121963_))) - (_hd2151021967_ + (##cdr _e2159222044_))) + (_hd2159122048_ (let () (declare (not safe)) - (##car _e2151121963_)))) + (##car _e2159222044_)))) (if (gx#stx-null? - _tl2150921970_) - (___match3979739798_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - ___splice3975539756_ - _target2150021957_ - _tl2150221960_ - _e2151121963_ - _hd2151021967_ - _tl2150921970_) - (let ((___splice3975939760_ + _tl2159022051_) + (___match3987839879_ + _e2157722018_ + _hd2157622022_ + _tl2157522025_ + _e2158022028_ + _hd2157922032_ + _tl2157822035_ + ___splice3983639837_ + _target2158122038_ + _tl2158322041_ + _e2159222044_ + _hd2159122048_ + _tl2159022051_) + (let ((___splice3984039841_ (gx#syntax-split-splice - _tl2149721954_ + _tl2157822035_ '0))) - (let ((_tl2152221812_ + (let ((_tl2160321893_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice3975939760_ '1))) - (_target2152021809_ + (##vector-ref ___splice3984039841_ '1))) + (_target2160121890_ (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 ___splice3984039841_ '0)))) + (if (gx#stx-null? _tl2160321893_) + (___match3989839899_ + _e2157722018_ + _hd2157622022_ + _tl2157522025_ + _e2158022028_ + _hd2157922032_ + _tl2157822035_ + ___splice3984039841_ + _target2160121890_ + _tl2160321893_) + (if (gx#stx-pair? _tl2157822035_) + (let ((_e2162121784_ (gx#syntax-e _tl2157822035_))) + (let ((_tl2161921791_ (let () (declare (not safe)) - (##cdr _e2154021703_))) - (_hd2153921707_ + (##cdr _e2162121784_))) + (_hd2162021788_ (let () (declare (not safe)) - (##car _e2154021703_)))) - (if (gx#stx-pair/null? _tl2153821710_) - (let ((___splice3976339764_ + (##car _e2162121784_)))) + (if (gx#stx-pair/null? _tl2161921791_) + (let ((___splice3984439845_ (gx#syntax-split-splice - _tl2153821710_ + _tl2161921791_ '0))) - (let ((_tl2154321716_ + (let ((_tl2162421797_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3984439845_ '1))) - (_target2154121713_ + (_target2162221794_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3984439845_ '0)))) - (if (gx#stx-null? _tl2154321716_) - (___match3984339844_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) + (if (gx#stx-null? _tl2162421797_) + (___match3992439925_ + _e2157722018_ + _hd2157622022_ + _tl2157522025_ + _e2158022028_ + _hd2157922032_ + _tl2157822035_ + _e2162121784_ + _hd2162021788_ + _tl2161921791_ + ___splice3984439845_ + _target2162221794_ + _tl2162421797_) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2157021657_))))) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2157021657_))))) (let () (declare (not safe)) - (_g2148921576_))))))))) + (_g2157021657_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___splice3975939760_ + (let ((___splice3984039841_ (gx#syntax-split-splice - _tl2149721954_ + _tl2157822035_ '0))) - (let ((_tl2152221812_ + (let ((_tl2160321893_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3984039841_ '1))) - (_target2152021809_ + (_target2160121890_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3984039841_ '0)))) (if (gx#stx-null? - _tl2152221812_) - (___match3981739818_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - ___splice3975939760_ - _target2152021809_ - _tl2152221812_) + _tl2160321893_) + (___match3989839899_ + _e2157722018_ + _hd2157622022_ + _tl2157522025_ + _e2158022028_ + _hd2157922032_ + _tl2157822035_ + ___splice3984039841_ + _target2160121890_ + _tl2160321893_) (if (gx#stx-pair? - _tl2149721954_) - (let ((_e2154021703_ + _tl2157822035_) + (let ((_e2162121784_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2149721954_))) - (let ((_tl2153821710_ + (gx#syntax-e _tl2157822035_))) + (let ((_tl2161921791_ (let () (declare (not safe)) - (##cdr _e2154021703_))) - (_hd2153921707_ + (##cdr _e2162121784_))) + (_hd2162021788_ (let () (declare (not safe)) - (##car _e2154021703_)))) - (if (gx#stx-pair/null? _tl2153821710_) - (let ((___splice3976339764_ - (gx#syntax-split-splice _tl2153821710_ '0))) - (let ((_tl2154321716_ + (##car _e2162121784_)))) + (if (gx#stx-pair/null? _tl2161921791_) + (let ((___splice3984439845_ + (gx#syntax-split-splice _tl2161921791_ '0))) + (let ((_tl2162421797_ (let () (declare (not safe)) - (##vector-ref ___splice3976339764_ '1))) - (_target2154121713_ + (##vector-ref ___splice3984439845_ '1))) + (_target2162221794_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3984439845_ '0)))) - (if (gx#stx-null? _tl2154321716_) - (___match3984339844_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) + (if (gx#stx-null? _tl2162421797_) + (___match3992439925_ + _e2157722018_ + _hd2157622022_ + _tl2157522025_ + _e2158022028_ + _hd2157922032_ + _tl2157822035_ + _e2162121784_ + _hd2162021788_ + _tl2161921791_ + ___splice3984439845_ + _target2162221794_ + _tl2162421797_) (let () (declare (not safe)) - (_g2148921576_))))) - (let () (declare (not safe)) (_g2148921576_))))) - (let () (declare (not safe)) (_g2148921576_))))))))) + (_g2157021657_))))) + (let () (declare (not safe)) (_g2157021657_))))) + (let () (declare (not safe)) (_g2157021657_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___splice3975939760_ + (let ((___splice3984039841_ (gx#syntax-split-splice - _tl2149721954_ + _tl2157822035_ '0))) - (let ((_tl2152221812_ + (let ((_tl2160321893_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3984039841_ '1))) - (_target2152021809_ + (_target2160121890_ (let () (declare (not safe)) (##vector-ref - ___splice3975939760_ + ___splice3984039841_ '0)))) - (if (gx#stx-null? _tl2152221812_) - (___match3981739818_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - ___splice3975939760_ - _target2152021809_ - _tl2152221812_) + (if (gx#stx-null? _tl2160321893_) + (___match3989839899_ + _e2157722018_ + _hd2157622022_ + _tl2157522025_ + _e2158022028_ + _hd2157922032_ + _tl2157822035_ + ___splice3984039841_ + _target2160121890_ + _tl2160321893_) (if (gx#stx-pair? - _tl2149721954_) - (let ((_e2154021703_ + _tl2157822035_) + (let ((_e2162121784_ (gx#syntax-e - _tl2149721954_))) - (let ((_tl2153821710_ + _tl2157822035_))) + (let ((_tl2161921791_ (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 _e2162121784_))) + (_hd2162021788_ + (let () (declare (not safe)) (##car _e2162121784_)))) + (if (gx#stx-pair/null? _tl2161921791_) + (let ((___splice3984439845_ + (gx#syntax-split-splice _tl2161921791_ '0))) + (let ((_tl2162421797_ (let () (declare (not safe)) - (##vector-ref ___splice3976339764_ '1))) - (_target2154121713_ + (##vector-ref ___splice3984439845_ '1))) + (_target2162221794_ (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 ___splice3984439845_ '0)))) + (if (gx#stx-null? _tl2162421797_) + (___match3992439925_ + _e2157722018_ + _hd2157622022_ + _tl2157522025_ + _e2158022028_ + _hd2157922032_ + _tl2157822035_ + _e2162121784_ + _hd2162021788_ + _tl2161921791_ + ___splice3984439845_ + _target2162221794_ + _tl2162421797_) + (let () (declare (not safe)) (_g2157021657_))))) + (let () (declare (not safe)) (_g2157021657_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2148921576_))))))) - (if (gx#stx-pair? _tl2149721954_) - (let ((_e2154021703_ - (gx#syntax-e _tl2149721954_))) - (let ((_tl2153821710_ + (_g2157021657_))))))) + (if (gx#stx-pair? _tl2157822035_) + (let ((_e2162121784_ + (gx#syntax-e _tl2157822035_))) + (let ((_tl2161921791_ (let () (declare (not safe)) - (##cdr _e2154021703_))) - (_hd2153921707_ + (##cdr _e2162121784_))) + (_hd2162021788_ (let () (declare (not safe)) - (##car _e2154021703_)))) + (##car _e2162121784_)))) (if (gx#stx-pair/null? - _tl2153821710_) - (let ((___splice3976339764_ + _tl2161921791_) + (let ((___splice3984439845_ (gx#syntax-split-splice - _tl2153821710_ + _tl2161921791_ '0))) - (let ((_tl2154321716_ + (let ((_tl2162421797_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3984439845_ '1))) - (_target2154121713_ + (_target2162221794_ (let () (declare (not safe)) (##vector-ref - ___splice3976339764_ + ___splice3984439845_ '0)))) (if (gx#stx-null? - _tl2154321716_) - (___match3984339844_ - _e2149621937_ - _hd2149521941_ - _tl2149421944_ - _e2149921947_ - _hd2149821951_ - _tl2149721954_ - _e2154021703_ - _hd2153921707_ - _tl2153821710_ - ___splice3976339764_ - _target2154121713_ - _tl2154321716_) + _tl2162421797_) + (___match3992439925_ + _e2157722018_ + _hd2157622022_ + _tl2157522025_ + _e2158022028_ + _hd2157922032_ + _tl2157822035_ + _e2162121784_ + _hd2162021788_ + _tl2161921791_ + ___splice3984439845_ + _target2162221794_ + _tl2162421797_) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2157021657_))))) (let () (declare (not safe)) - (_g2148921576_))))) + (_g2157021657_))))) (let () (declare (not safe)) - (_g2148921576_)))))) - (let () (declare (not safe)) (_g2148921576_))))) - (let () (declare (not safe)) (_g2148921576_))))))))) + (_g2157021657_)))))) + (let () (declare (not safe)) (_g2157021657_))))) + (let () (declare (not safe)) (_g2157021657_))))))))) (define |gerbil/core$$[:0:]#@| - (lambda (_$stx22128_) - (let* ((___stx3987239873_ _$stx22128_) - (_g2213322173_ + (lambda (_$stx22209_) + (let* ((___stx3995339954_ _$stx22209_) + (_g2221422254_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3987239873_)))) - (let ((___kont3987539876_ - (lambda (_L22311_ _L22313_) + ___stx3995339954_)))) + (let ((___kont3995639957_ + (lambda (_L22392_ _L22394_) (cons (gx#datum->syntax '#f 'slot-ref) - (cons _L22313_ + (cons _L22394_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22311_ '())) + (cons _L22392_ '())) '()))))) - (___kont3987739878_ - (lambda (_L22240_ _L22242_ _L22243_ _L22244_) - (cons _L22244_ - (cons (cons _L22244_ - (cons _L22243_ (cons _L22242_ '()))) - (foldr (lambda (_g2226522268_ _g2226622271_) - (cons _g2226522268_ _g2226622271_)) + (___kont3995839959_ + (lambda (_L22321_ _L22323_ _L22324_ _L22325_) + (cons _L22325_ + (cons (cons _L22325_ + (cons _L22324_ (cons _L22323_ '()))) + (foldr (lambda (_g2234622349_ _g2234722352_) + (cons _g2234622349_ _g2234722352_)) '() - _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_ + _L22321_)))))) + (let* ((___match4000840009_ + (lambda (_e2223322261_ + _hd2223222265_ + _tl2223122268_ + _e2223622271_ + _hd2223522275_ + _tl2223422278_ + _e2223922281_ + _hd2223822285_ + _tl2223722288_ + ___splice3996039961_ + _target2224022291_ + _tl2224222294_) + (letrec ((_loop2224322297_ + (lambda (_hd2224122301_ _rest2224722304_) + (if (gx#stx-pair? _hd2224122301_) + (let ((_e2224422307_ + (gx#syntax-e _hd2224122301_))) + (let ((_lp-tl2224622314_ (let () (declare (not safe)) - (##cdr _e2216322226_))) - (_lp-hd2216422230_ + (##cdr _e2224422307_))) + (_lp-hd2224522311_ (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 _e2224422307_)))) + (_loop2224322297_ + _lp-tl2224622314_ + (cons _lp-hd2224522311_ + _rest2224722304_)))) + (let ((_rest2224822317_ + (reverse _rest2224722304_))) + (___kont3995839959_ + _rest2224822317_ + _hd2223822285_ + _hd2223522275_ + _hd2223222265_)))))) + (_loop2224322297_ _target2224022291_ '())))) + (___match3998239983_ + (lambda (_e2222022362_ + _hd2221922366_ + _tl2221822369_ + _e2222322372_ + _hd2222222376_ + _tl2222122379_ + _e2222622382_ + _hd2222522386_ + _tl2222422389_) + (let ((_L22392_ _hd2222522386_) + (_L22394_ _hd2222222376_)) + (if (gx#identifier? _L22392_) + (___kont3995639957_ _L22392_ _L22394_) + (if (gx#stx-pair/null? _tl2222422389_) + (let ((___splice3996039961_ (gx#syntax-split-splice - _tl2214322308_ + _tl2222422389_ '0))) - (let ((_tl2216122213_ + (let ((_tl2224222294_ (let () (declare (not safe)) (##vector-ref - ___splice3987939880_ + ___splice3996039961_ '1))) - (_target2215922210_ + (_target2224022291_ (let () (declare (not safe)) (##vector-ref - ___splice3987939880_ + ___splice3996039961_ '0)))) - (if (gx#stx-null? _tl2216122213_) - (___match3992739928_ - _e2213922281_ - _hd2213822285_ - _tl2213722288_ - _e2214222291_ - _hd2214122295_ - _tl2214022298_ - _e2214522301_ - _hd2214422305_ - _tl2214322308_ - ___splice3987939880_ - _target2215922210_ - _tl2216122213_) + (if (gx#stx-null? _tl2224222294_) + (___match4000840009_ + _e2222022362_ + _hd2221922366_ + _tl2221822369_ + _e2222322372_ + _hd2222222376_ + _tl2222122379_ + _e2222622382_ + _hd2222522386_ + _tl2222422389_ + ___splice3996039961_ + _target2224022291_ + _tl2224222294_) (let () (declare (not safe)) - (_g2213322173_))))) + (_g2221422254_))))) (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_ + (_g2221422254_)))))))) + (if (gx#stx-pair? ___stx3995339954_) + (let ((_e2222022362_ (gx#syntax-e ___stx3995339954_))) + (let ((_tl2221822369_ + (let () (declare (not safe)) (##cdr _e2222022362_))) + (_hd2221922366_ (let () (declare (not safe)) - (##car _e2213922281_)))) - (if (gx#stx-pair? _tl2213722288_) - (let ((_e2214222291_ (gx#syntax-e _tl2213722288_))) - (let ((_tl2214022298_ + (##car _e2222022362_)))) + (if (gx#stx-pair? _tl2221822369_) + (let ((_e2222322372_ (gx#syntax-e _tl2221822369_))) + (let ((_tl2222122379_ (let () (declare (not safe)) - (##cdr _e2214222291_))) - (_hd2214122295_ + (##cdr _e2222322372_))) + (_hd2222222376_ (let () (declare (not safe)) - (##car _e2214222291_)))) - (if (gx#stx-pair? _tl2214022298_) - (let ((_e2214522301_ - (gx#syntax-e _tl2214022298_))) - (let ((_tl2214322308_ + (##car _e2222322372_)))) + (if (gx#stx-pair? _tl2222122379_) + (let ((_e2222622382_ + (gx#syntax-e _tl2222122379_))) + (let ((_tl2222422389_ (let () (declare (not safe)) - (##cdr _e2214522301_))) - (_hd2214422305_ + (##cdr _e2222622382_))) + (_hd2222522386_ (let () (declare (not safe)) - (##car _e2214522301_)))) - (if (gx#stx-null? _tl2214322308_) - (___match3990139902_ - _e2213922281_ - _hd2213822285_ - _tl2213722288_ - _e2214222291_ - _hd2214122295_ - _tl2214022298_ - _e2214522301_ - _hd2214422305_ - _tl2214322308_) + (##car _e2222622382_)))) + (if (gx#stx-null? _tl2222422389_) + (___match3998239983_ + _e2222022362_ + _hd2221922366_ + _tl2221822369_ + _e2222322372_ + _hd2222222376_ + _tl2222122379_ + _e2222622382_ + _hd2222522386_ + _tl2222422389_) (if (gx#stx-pair/null? - _tl2214322308_) - (let ((___splice3987939880_ + _tl2222422389_) + (let ((___splice3996039961_ (gx#syntax-split-splice - _tl2214322308_ + _tl2222422389_ '0))) - (let ((_tl2216122213_ + (let ((_tl2224222294_ (let () (declare (not safe)) (##vector-ref - ___splice3987939880_ + ___splice3996039961_ '1))) - (_target2215922210_ + (_target2224022291_ (let () (declare (not safe)) (##vector-ref - ___splice3987939880_ + ___splice3996039961_ '0)))) (if (gx#stx-null? - _tl2216122213_) - (___match3992739928_ - _e2213922281_ - _hd2213822285_ - _tl2213722288_ - _e2214222291_ - _hd2214122295_ - _tl2214022298_ - _e2214522301_ - _hd2214422305_ - _tl2214322308_ - ___splice3987939880_ - _target2215922210_ - _tl2216122213_) + _tl2224222294_) + (___match4000840009_ + _e2222022362_ + _hd2221922366_ + _tl2221822369_ + _e2222322372_ + _hd2222222376_ + _tl2222122379_ + _e2222622382_ + _hd2222522386_ + _tl2222422389_ + ___splice3996039961_ + _target2224022291_ + _tl2224222294_) (let () (declare (not safe)) - (_g2213322173_))))) + (_g2221422254_))))) (let () (declare (not safe)) - (_g2213322173_)))))) + (_g2221422254_)))))) (let () (declare (not safe)) - (_g2213322173_))))) - (let () (declare (not safe)) (_g2213322173_))))) - (let () (declare (not safe)) (_g2213322173_)))))))) + (_g2221422254_))))) + (let () (declare (not safe)) (_g2221422254_))))) + (let () (declare (not safe)) (_g2221422254_)))))))) (define |gerbil/core$$[:0:]#@-set!| - (lambda (_$stx22333_) - (let* ((___stx3993039931_ _$stx22333_) - (_g2233822390_ + (lambda (_$stx22414_) + (let* ((___stx4001140012_ _$stx22414_) + (_g2241922471_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx3993039931_)))) - (let ((___kont3993339934_ - (lambda (_L22566_ _L22568_ _L22569_) + ___stx4001140012_)))) + (let ((___kont4001440015_ + (lambda (_L22647_ _L22649_ _L22650_) (cons (gx#datum->syntax '#f 'slot-set!) - (cons _L22569_ + (cons _L22650_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22568_ '())) - (cons _L22566_ '())))))) - (___kont3993539936_ - (lambda (_L22477_ - _L22479_ - _L22480_ - _L22481_ - _L22482_ - _L22483_) - (cons _L22483_ + (cons _L22649_ '())) + (cons _L22647_ '())))))) + (___kont4001640017_ + (lambda (_L22558_ + _L22560_ + _L22561_ + _L22562_ + _L22563_ + _L22564_) + (cons _L22564_ (cons (cons (gx#datum->syntax '#f '@) - (cons _L22482_ - (cons _L22481_ - (foldr (lambda (_g2251022513_ + (cons _L22563_ + (cons _L22562_ + (foldr (lambda (_g2259122594_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2251122516_) - (cons _g2251022513_ _g2251122516_)) + _g2259222597_) + (cons _g2259122594_ _g2259222597_)) '() - _L22480_)))) + _L22561_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (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 _L22560_ (cons _L22558_ '()))))))) + (let* ((___match4008640087_ + (lambda (_e2244422478_ + _hd2244322482_ + _tl2244222485_ + _e2244722488_ + _hd2244622492_ + _tl2244522495_ + _e2245022498_ + _hd2244922502_ + _tl2244822505_ + ___splice4001840019_ + _target2245122508_ + _tl2245322511_ + _e2246222514_ + _hd2246122518_ + _tl2246022521_ + _e2246522524_ + _hd2246422528_ + _tl2246322531_) + (letrec ((_loop2245422534_ + (lambda (_hd2245222538_ _path2245822541_) + (if (gx#stx-pair? _hd2245222538_) + (let ((_e2245522544_ + (gx#syntax-e _hd2245222538_))) + (let ((_lp-tl2245722551_ (let () (declare (not safe)) - (##cdr _e2237422463_))) - (_lp-hd2237522467_ + (##cdr _e2245522544_))) + (_lp-hd2245622548_ (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 _e2245522544_)))) + (_loop2245422534_ + _lp-tl2245722551_ + (cons _lp-hd2245622548_ + _path2245822541_)))) + (let ((_path2245922554_ + (reverse _path2245822541_))) + (___kont4001640017_ + _hd2246422528_ + _hd2246122518_ + _path2245922554_ + _hd2244922502_ + _hd2244622492_ + _hd2244322482_)))))) + (_loop2245422534_ _target2245122508_ '())))) + (___match4004640047_ + (lambda (_e2242622607_ + _hd2242522611_ + _tl2242422614_ + _e2242922617_ + _hd2242822621_ + _tl2242722624_ + _e2243222627_ + _hd2243122631_ + _tl2243022634_ + _e2243522637_ + _hd2243422641_ + _tl2243322644_) + (let ((_L22647_ _hd2243422641_) + (_L22649_ _hd2243122631_) + (_L22650_ _hd2242822621_)) + (if (gx#identifier? _L22649_) + (___kont4001440015_ _L22647_ _L22649_ _L22650_) + (if (gx#stx-pair/null? _tl2243022634_) + (if (fx>= (gx#stx-length _tl2243022634_) '2) + (let ((___splice4001840019_ (gx#syntax-split-splice - _tl2234922553_ + _tl2243022634_ '2))) - (let ((_tl2237222430_ + (let ((_tl2245322511_ (let () (declare (not safe)) (##vector-ref - ___splice3993739938_ + ___splice4001840019_ '1))) - (_target2237022427_ + (_target2245122508_ (let () (declare (not safe)) (##vector-ref - ___splice3993739938_ + ___splice4001840019_ '0)))) - (if (gx#stx-pair? _tl2237222430_) - (let ((_e2238122433_ + (if (gx#stx-pair? _tl2245322511_) + (let ((_e2246222514_ (gx#syntax-e - _tl2237222430_))) - (let ((_tl2237922440_ + _tl2245322511_))) + (let ((_tl2246022521_ (let () (declare (not safe)) - (##cdr _e2238122433_))) - (_hd2238022437_ + (##cdr _e2246222514_))) + (_hd2246122518_ (let () (declare (not safe)) - (##car _e2238122433_)))) + (##car _e2246222514_)))) (if (gx#stx-pair? - _tl2237922440_) - (let ((_e2238422443_ + _tl2246022521_) + (let ((_e2246522524_ (gx#syntax-e - _tl2237922440_))) - (let ((_tl2238222450_ + _tl2246022521_))) + (let ((_tl2246322531_ (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 _e2246522524_))) + (_hd2246422528_ + (let () (declare (not safe)) (##car _e2246522524_)))) + (if (gx#stx-null? _tl2246322531_) + (___match4008640087_ + _e2242622607_ + _hd2242522611_ + _tl2242422614_ + _e2242922617_ + _hd2242822621_ + _tl2242722624_ + _e2243222627_ + _hd2243122631_ + _tl2243022634_ + ___splice4001840019_ + _target2245122508_ + _tl2245322511_ + _e2246222514_ + _hd2246122518_ + _tl2246022521_ + _e2246522524_ + _hd2246422528_ + _tl2246322531_) + (let () (declare (not safe)) (_g2241922471_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2233822390_))))) + (_g2241922471_))))) (let () (declare (not safe)) - (_g2233822390_))))) + (_g2241922471_))))) (let () (declare (not safe)) - (_g2233822390_))) + (_g2241922471_))) (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_ + (_g2241922471_)))))))) + (if (gx#stx-pair? ___stx4001140012_) + (let ((_e2242622607_ (gx#syntax-e ___stx4001140012_))) + (let ((_tl2242422614_ + (let () (declare (not safe)) (##cdr _e2242622607_))) + (_hd2242522611_ (let () (declare (not safe)) - (##car _e2234522526_)))) - (if (gx#stx-pair? _tl2234322533_) - (let ((_e2234822536_ (gx#syntax-e _tl2234322533_))) - (let ((_tl2234622543_ + (##car _e2242622607_)))) + (if (gx#stx-pair? _tl2242422614_) + (let ((_e2242922617_ (gx#syntax-e _tl2242422614_))) + (let ((_tl2242722624_ (let () (declare (not safe)) - (##cdr _e2234822536_))) - (_hd2234722540_ + (##cdr _e2242922617_))) + (_hd2242822621_ (let () (declare (not safe)) - (##car _e2234822536_)))) - (if (gx#stx-pair? _tl2234622543_) - (let ((_e2235122546_ - (gx#syntax-e _tl2234622543_))) - (let ((_tl2234922553_ + (##car _e2242922617_)))) + (if (gx#stx-pair? _tl2242722624_) + (let ((_e2243222627_ + (gx#syntax-e _tl2242722624_))) + (let ((_tl2243022634_ (let () (declare (not safe)) - (##cdr _e2235122546_))) - (_hd2235022550_ + (##cdr _e2243222627_))) + (_hd2243122631_ (let () (declare (not safe)) - (##car _e2235122546_)))) - (if (gx#stx-pair? _tl2234922553_) - (let ((_e2235422556_ - (gx#syntax-e _tl2234922553_))) - (let ((_tl2235222563_ + (##car _e2243222627_)))) + (if (gx#stx-pair? _tl2243022634_) + (let ((_e2243522637_ + (gx#syntax-e _tl2243022634_))) + (let ((_tl2243322644_ (let () (declare (not safe)) - (##cdr _e2235422556_))) - (_hd2235322560_ + (##cdr _e2243522637_))) + (_hd2243422641_ (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 _e2243522637_)))) + (if (gx#stx-null? _tl2243322644_) + (___match4004640047_ + _e2242622607_ + _hd2242522611_ + _tl2242422614_ + _e2242922617_ + _hd2242822621_ + _tl2242722624_ + _e2243222627_ + _hd2243122631_ + _tl2243022634_ + _e2243522637_ + _hd2243422641_ + _tl2243322644_) (if (gx#stx-pair/null? - _tl2234922553_) + _tl2243022634_) (if (fx>= (gx#stx-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2234922553_) + _tl2243022634_) '2) - (let ((___splice3993739938_ - (gx#syntax-split-splice _tl2234922553_ '2))) - (let ((_tl2237222430_ + (let ((___splice4001840019_ + (gx#syntax-split-splice _tl2243022634_ '2))) + (let ((_tl2245322511_ (let () (declare (not safe)) - (##vector-ref ___splice3993739938_ '1))) - (_target2237022427_ + (##vector-ref ___splice4001840019_ '1))) + (_target2245122508_ (let () (declare (not safe)) - (##vector-ref ___splice3993739938_ '0)))) - (if (gx#stx-pair? _tl2237222430_) - (let ((_e2238122433_ (gx#syntax-e _tl2237222430_))) - (let ((_tl2237922440_ + (##vector-ref ___splice4001840019_ '0)))) + (if (gx#stx-pair? _tl2245322511_) + (let ((_e2246222514_ (gx#syntax-e _tl2245322511_))) + (let ((_tl2246022521_ (let () (declare (not safe)) - (##cdr _e2238122433_))) - (_hd2238022437_ + (##cdr _e2246222514_))) + (_hd2246122518_ (let () (declare (not safe)) - (##car _e2238122433_)))) - (if (gx#stx-pair? _tl2237922440_) - (let ((_e2238422443_ - (gx#syntax-e _tl2237922440_))) - (let ((_tl2238222450_ + (##car _e2246222514_)))) + (if (gx#stx-pair? _tl2246022521_) + (let ((_e2246522524_ + (gx#syntax-e _tl2246022521_))) + (let ((_tl2246322531_ (let () (declare (not safe)) - (##cdr _e2238422443_))) - (_hd2238322447_ + (##cdr _e2246522524_))) + (_hd2246422528_ (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 _e2246522524_)))) + (if (gx#stx-null? _tl2246322531_) + (___match4008640087_ + _e2242622607_ + _hd2242522611_ + _tl2242422614_ + _e2242922617_ + _hd2242822621_ + _tl2242722624_ + _e2243222627_ + _hd2243122631_ + _tl2243022634_ + ___splice4001840019_ + _target2245122508_ + _tl2245322511_ + _e2246222514_ + _hd2246122518_ + _tl2246022521_ + _e2246522524_ + _hd2246422528_ + _tl2246322531_) (let () (declare (not safe)) - (_g2233822390_))))) + (_g2241922471_))))) (let () (declare (not safe)) - (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_))) - (let () (declare (not safe)) (_g2233822390_)))))) + (_g2241922471_))))) + (let () (declare (not safe)) (_g2241922471_))))) + (let () (declare (not safe)) (_g2241922471_))) + (let () (declare (not safe)) (_g2241922471_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl2234922553_) + _tl2243022634_) (if (fx>= (gx#stx-length - _tl2234922553_) + _tl2243022634_) '2) - (let ((___splice3993739938_ + (let ((___splice4001840019_ (gx#syntax-split-splice - _tl2234922553_ + _tl2243022634_ '2))) - (let ((_tl2237222430_ + (let ((_tl2245322511_ (let () (declare (not safe)) (##vector-ref - ___splice3993739938_ + ___splice4001840019_ '1))) - (_target2237022427_ + (_target2245122508_ (let () (declare (not safe)) (##vector-ref - ___splice3993739938_ + ___splice4001840019_ '0)))) (if (gx#stx-pair? - _tl2237222430_) - (let ((_e2238122433_ + _tl2245322511_) + (let ((_e2246222514_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2237222430_))) - (let ((_tl2237922440_ - (let () (declare (not safe)) (##cdr _e2238122433_))) - (_hd2238022437_ + (gx#syntax-e _tl2245322511_))) + (let ((_tl2246022521_ + (let () (declare (not safe)) (##cdr _e2246222514_))) + (_hd2246122518_ (let () (declare (not safe)) - (##car _e2238122433_)))) - (if (gx#stx-pair? _tl2237922440_) - (let ((_e2238422443_ (gx#syntax-e _tl2237922440_))) - (let ((_tl2238222450_ + (##car _e2246222514_)))) + (if (gx#stx-pair? _tl2246022521_) + (let ((_e2246522524_ (gx#syntax-e _tl2246022521_))) + (let ((_tl2246322531_ (let () (declare (not safe)) - (##cdr _e2238422443_))) - (_hd2238322447_ + (##cdr _e2246522524_))) + (_hd2246422528_ (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 _e2246522524_)))) + (if (gx#stx-null? _tl2246322531_) + (___match4008640087_ + _e2242622607_ + _hd2242522611_ + _tl2242422614_ + _e2242922617_ + _hd2242822621_ + _tl2242722624_ + _e2243222627_ + _hd2243122631_ + _tl2243022634_ + ___splice4001840019_ + _target2245122508_ + _tl2245322511_ + _e2246222514_ + _hd2246122518_ + _tl2246022521_ + _e2246522524_ + _hd2246422528_ + _tl2246322531_) (let () (declare (not safe)) - (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_))))) + (_g2241922471_))))) + (let () (declare (not safe)) (_g2241922471_))))) + (let () (declare (not safe)) (_g2241922471_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2233822390_))) + (_g2241922471_))) (let () (declare (not safe)) - (_g2233822390_)))))) + (_g2241922471_)))))) (let () (declare (not safe)) - (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_))))) - (let () (declare (not safe)) (_g2233822390_)))))))))) + (_g2241922471_))))) + (let () (declare (not safe)) (_g2241922471_))))) + (let () (declare (not safe)) (_g2241922471_)))))))))) diff --git a/src/bootstrap/gerbil/core__8.scm b/src/bootstrap/gerbil/core__8.scm index eba12c6bf5..aae52cea9c 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 _$args22825_ (apply make-class-instance |gerbil/core$$[1]#macro-object::t| - _$args22744_))) + _$args22825_))) (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 (_self22821_ _stx22823_) (gx#core-apply-expander - (let () (declare (not safe)) (unchecked-slot-ref _self22740_ 'macro)) - _stx22742_))) + (let () (declare (not safe)) (unchecked-slot-ref _self22821_ 'macro)) + _stx22823_))) (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 (__t37083) + (let ((__macro37084 + (let ((__tmp37085 (class-slot-offset __t37083 'macro))) + (if __tmp37085 + (let () (declare (not safe)) (##fx+ __tmp37085 '1)) (error '"Unknown slot" 'macro))))) - (lambda (_self22740_ _stx22742_) + (lambda (_self22821_ _stx22823_) (gx#core-apply-expander (let () (declare (not safe)) - (##unchecked-structure-ref _self22740_ __macro37003 __t37002 '#f)) - _stx22742_))))) + (##unchecked-structure-ref _self22821_ __macro37084 __t37083 '#f)) + _stx22823_))))) (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..fc6076ccd3 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]#_g42988_| (##structure gx#syntax-quote::t 'runtime-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42916_| + (define |gerbil/core$$[2]#_g42990_| (##structure gx#syntax-quote::t 'runtime-struct-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42918_| + (define |gerbil/core$$[2]#_g42992_| (##structure gx#syntax-quote::t 'runtime-class-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42920_| + (define |gerbil/core$$[2]#_g42994_| (##structure gx#syntax-quote::t 'expander-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42922_| + (define |gerbil/core$$[2]#_g42996_| (##structure gx#syntax-quote::t 'extended-runtime-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42924_| + (define |gerbil/core$$[2]#_g42998_| (##structure gx#syntax-quote::t 'extended-struct-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42926_| + (define |gerbil/core$$[2]#_g43000_| (##structure gx#syntax-quote::t 'extended-class-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42928_| + (define |gerbil/core$$[2]#_g43002_| (##structure gx#syntax-quote::t 'runtime-rtd-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42930_| + (define |gerbil/core$$[2]#_g43004_| (##structure gx#syntax-quote::t 'runtime-struct-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42932_| + (define |gerbil/core$$[2]#_g43006_| (##structure gx#syntax-quote::t 'runtime-class-exhibitor::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42936_| + (define |gerbil/core$$[2]#_g43010_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42937_| + (define |gerbil/core$$[2]#_g43011_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42938_| + (define |gerbil/core$$[2]#_g43012_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42939_| + (define |gerbil/core$$[2]#_g43013_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$$[2]#_g42940_| + (define |gerbil/core$$[2]#_g43014_| (##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 ((__tmp42987 |gerbil/core$$[2]#_g42988_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42913))) + __tmp42987))) (define |gerbil/core$$[:1:]#runtime-struct-info| - (let ((__tmp42915 |gerbil/core$$[2]#_g42916_|)) + (let ((__tmp42989 |gerbil/core$$[2]#_g42990_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42915))) + __tmp42989))) (define |gerbil/core$$[:1:]#runtime-class-info| - (let ((__tmp42917 |gerbil/core$$[2]#_g42918_|)) + (let ((__tmp42991 |gerbil/core$$[2]#_g42992_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42917))) + __tmp42991))) (define |gerbil/core$$[:1:]#expander-type-info| - (let ((__tmp42919 |gerbil/core$$[2]#_g42920_|)) + (let ((__tmp42993 |gerbil/core$$[2]#_g42994_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42919))) + __tmp42993))) (define |gerbil/core$$[:1:]#extended-runtime-type-info| - (let ((__tmp42921 |gerbil/core$$[2]#_g42922_|)) + (let ((__tmp42995 |gerbil/core$$[2]#_g42996_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42921))) + __tmp42995))) (define |gerbil/core$$[:1:]#extended-struct-info| - (let ((__tmp42923 |gerbil/core$$[2]#_g42924_|)) + (let ((__tmp42997 |gerbil/core$$[2]#_g42998_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42923))) + __tmp42997))) (define |gerbil/core$$[:1:]#extended-class-info| - (let ((__tmp42925 |gerbil/core$$[2]#_g42926_|)) + (let ((__tmp42999 |gerbil/core$$[2]#_g43000_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42925))) + __tmp42999))) (define |gerbil/core$$[:1:]#runtime-rtd-exhibitor| - (let ((__tmp42927 |gerbil/core$$[2]#_g42928_|)) + (let ((__tmp43001 |gerbil/core$$[2]#_g43002_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42927))) + __tmp43001))) (define |gerbil/core$$[:1:]#runtime-struct-exhibitor| - (let ((__tmp42929 |gerbil/core$$[2]#_g42930_|)) + (let ((__tmp43003 |gerbil/core$$[2]#_g43004_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42929))) + __tmp43003))) (define |gerbil/core$$[:1:]#runtime-class-exhibitor| - (let ((__tmp42931 |gerbil/core$$[2]#_g42932_|)) + (let ((__tmp43005 |gerbil/core$$[2]#_g43006_|)) (declare (not safe)) (make-class-instance |gerbil/core$$[1]#runtime-class-info::t| 'runtime-identifier: - __tmp42931))) + __tmp43005))) (define |gerbil/core$$[:1:]#macro-object| - (let ((__tmp42941 |gerbil/core$$[2]#_g42936_|) - (__tmp42935 + (let ((__tmp43015 |gerbil/core$$[2]#_g43010_|) + (__tmp43009 (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]#_g43010_| + (cons |gerbil/core$$[2]#_g43011_| + (cons |gerbil/core$$[2]#_g43012_| + (cons (cons |gerbil/core$$[2]#_g43013_| '()) - (cons (cons |gerbil/core$$[2]#_g42940_| + (cons (cons |gerbil/core$$[2]#_g43014_| '()) '()))))))) - (__tmp42933 - (let ((__tmp42934 (list))) + (__tmp43007 + (let ((__tmp43008 (list))) (declare (not safe)) (##structure |gerbil/core$$[1]#runtime-class-exhibitor::t| 'gerbil.core#macro-object::t - __tmp42934 + __tmp43008 'macro-object '#f '() @@ -203,8 +203,8 @@ (make-class-instance |gerbil/core$$[1]#extended-class-info::t| 'runtime-identifier: - __tmp42941 + __tmp43015 'expander-identifiers: - __tmp42935 + __tmp43009 'type-exhibitor: - __tmp42933))))) + __tmp43007))))) diff --git a/src/bootstrap/gerbil/runtime/control__0.scm b/src/bootstrap/gerbil/runtime/control__0.scm index 04a7a7510d..da395d07c6 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 1698333192) (begin (define make-promise - (lambda (_thunk9160_) - (let () (declare (not safe)) (##make-delay-promise _thunk9160_)))) + (lambda (_thunk9337_) + (let () (declare (not safe)) (##make-delay-promise _thunk9337_)))) (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 (_thunk9285_ . _rest9286_) + (let* ((_rest92879298_ _rest9286_) + (_E92909302_ + (lambda () (error '"No clause matching" _rest92879298_)))) + (let ((_K92929318_ + (lambda (_rest9313_ _val9314_ _param9315_) + (let ((__tmp9349 + (if (let () (declare (not safe)) (null? _rest9313_)) + _thunk9285_ (lambda () (apply call-with-parameters - _thunk9108_ - _rest9136_))))) + _thunk9285_ + _rest9313_))))) (declare (not safe)) - (##parameterize1 _param9138_ _val9137_ __tmp9172)))) - (_K91149130_ (lambda () (_thunk9108_)))) - (let ((_try-match91129133_ + (##parameterize1 _param9315_ _val9314_ __tmp9349)))) + (_K92919307_ (lambda () (_thunk9285_)))) + (let ((_try-match92899310_ (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? _rest92879298_)) + (let () (declare (not safe)) (_thunk9285_)) + (let () (declare (not safe)) (_E92909302_)))))) + (if (let () (declare (not safe)) (##pair? _rest92879298_)) + (let ((_tl92949323_ + (let () (declare (not safe)) (##cdr _rest92879298_))) + (_hd92939321_ + (let () (declare (not safe)) (##car _rest92879298_)))) + (if (let () (declare (not safe)) (##pair? _tl92949323_)) + (let ((_tl92969330_ (let () (declare (not safe)) - (##cdr _tl91179146_))) - (_hd91189151_ + (##cdr _tl92949323_))) + (_hd92959328_ (let () (declare (not safe)) - (##car _tl91179146_)))) - (let ((_param9149_ _hd91169144_) - (_val9156_ _hd91189151_) - (_rest9158_ _tl91199153_)) + (##car _tl92949323_)))) + (let ((_param9326_ _hd92939321_) + (_val9333_ _hd92959328_) + (_rest9335_ _tl92969330_)) (let () (declare (not safe)) - (_K91159141_ _rest9158_ _val9156_ _param9149_)))) - (let () (declare (not safe)) (_E91139125_)))) - (let () (declare (not safe)) (_try-match91129133_)))))))) + (_K92929318_ _rest9335_ _val9333_ _param9326_)))) + (let () (declare (not safe)) (_E92909302_)))) + (let () (declare (not safe)) (_try-match92899310_)))))))) (define with-unwind-protect - (lambda (_K9101_ _fini9102_) - (let ((_once9104_ '#f)) + (lambda (_K9278_ _fini9279_) + (let ((_once9281_ '#f)) (dynamic-wind (lambda () (declare (not interrupts-enabled)) - (if _once9104_ + (if _once9281_ (error '"Cannot re-enter unwind protected block") - (set! _once9104_ '#t))) - _K9101_ - _fini9102_)))) + (set! _once9281_ '#t))) + _K9278_ + _fini9279_)))) (define keyword-dispatch - (lambda (_kwt8998_ _K8999_ . _all-args9000_) - (if _kwt8998_ - (if (let () (declare (not safe)) (vector? _kwt8998_)) + (lambda (_kwt9175_ _K9176_ . _all-args9177_) + (if _kwt9175_ + (if (let () (declare (not safe)) (vector? _kwt9175_)) '#!void - (error '"expected vector" _kwt8998_)) + (error '"expected vector" _kwt9175_)) '#!void) - (if (let () (declare (not safe)) (procedure? _K8999_)) + (if (let () (declare (not safe)) (procedure? _K9176_)) '#!void - (error '"expected procedure" _K8999_)) - (let ((_keys9002_ + (error '"expected procedure" _K9176_)) + (let ((_keys9179_ (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 _lp9181_ ((_rest9183_ _all-args9177_) + (_args9184_ '#f) + (_tail9185_ '#f)) + (let* ((_rest91869194_ _rest9183_) + (_else91889202_ (lambda () - (if _args9007_ + (if _args9184_ (begin (let () (declare (not safe)) - (##set-cdr! _tail9008_ '())) - (let ((__tmp9173 + (##set-cdr! _tail9185_ '())) + (let ((__tmp9350 (let () (declare (not safe)) - (cons _keys9002_ _args9007_)))) + (cons _keys9179_ _args9184_)))) (declare (not safe)) - (##apply _K8999_ __tmp9173))) - (_K8999_ _keys9002_)))) - (_K90139089_ - (lambda (_hd-rest9028_ _hd9029_) - (if (keyword? _hd9029_) - (let* ((_hd-rest90309037_ _hd-rest9028_) - (_E90329041_ + (##apply _K9176_ __tmp9350))) + (_K9176_ _keys9179_)))) + (_K91909266_ + (lambda (_hd-rest9205_ _hd9206_) + (if (keyword? _hd9206_) + (let* ((_hd-rest92079214_ _hd-rest9205_) + (_E92099218_ (lambda () (error '"No clause matching" - _hd-rest90309037_))) - (_K90339049_ - (lambda (_rest9044_ _val9045_) - (if _kwt8998_ - (let ((_pos9047_ - (let ((__tmp9177 - (keyword-hash _hd9029_)) - (__tmp9176 + _hd-rest92079214_))) + (_K92109226_ + (lambda (_rest9221_ _val9222_) + (if _kwt9175_ + (let ((_pos9224_ + (let ((__tmp9354 + (keyword-hash _hd9206_)) + (__tmp9353 (let () (declare (not safe)) (##vector-length - _kwt8998_)))) + _kwt9175_)))) (declare (not safe)) (##fxmodulo - __tmp9177 - __tmp9176)))) - (if (let ((__tmp9178 + __tmp9354 + __tmp9353)))) + (if (let ((__tmp9355 (let () (declare (not safe)) (##vector-ref - _kwt8998_ - _pos9047_)))) + _kwt9175_ + _pos9224_)))) (declare (not safe)) - (eq? _hd9029_ __tmp9178)) + (eq? _hd9206_ __tmp9355)) '#!void (error '"Unexpected keyword argument" - _K8999_ - _hd9029_))) + _K9176_ + _hd9206_))) '#!void) (if (let () (declare (not safe)) - (hash-key? _keys9002_ _hd9029_)) + (hash-key? _keys9179_ _hd9206_)) (error '"Duplicate keyword argument" - _K8999_ - _hd9029_) + _K9176_ + _hd9206_) '#!void) (let () (declare (not safe)) (table-set! - _keys9002_ - _hd9029_ - _val9045_)) + _keys9179_ + _hd9206_ + _val9222_)) (let () (declare (not safe)) - (_lp9004_ - _rest9044_ - _args9007_ - _tail9008_))))) + (_lp9181_ + _rest9221_ + _args9184_ + _tail9185_))))) (if (let () (declare (not safe)) - (##pair? _hd-rest90309037_)) - (let ((_hd90349052_ + (##pair? _hd-rest92079214_)) + (let ((_hd92119229_ (let () (declare (not safe)) - (##car _hd-rest90309037_))) - (_tl90359054_ + (##car _hd-rest92079214_))) + (_tl92129231_ (let () (declare (not safe)) - (##cdr _hd-rest90309037_)))) - (let* ((_val9057_ _hd90349052_) - (_rest9059_ _tl90359054_)) + (##cdr _hd-rest92079214_)))) + (let* ((_val9234_ _hd92119229_) + (_rest9236_ _tl92129231_)) (declare (not safe)) - (_K90339049_ _rest9059_ _val9057_))) - (let () (declare (not safe)) (_E90329041_)))) + (_K92109226_ _rest9236_ _val9234_))) + (let () (declare (not safe)) (_E92099218_)))) (if (let () (declare (not safe)) - (eq? _hd9029_ '#!key)) - (let* ((_hd-rest90609067_ _hd-rest9028_) - (_E90629071_ + (eq? _hd9206_ '#!key)) + (let* ((_hd-rest92379244_ _hd-rest9205_) + (_E92399248_ (lambda () (error '"No clause matching" - _hd-rest90609067_))) - (_K90639077_ - (lambda (_rest9074_ _val9075_) - (if _args9007_ + _hd-rest92379244_))) + (_K92409254_ + (lambda (_rest9251_ _val9252_) + (if _args9184_ (begin (let () (declare (not safe)) (##set-cdr! - _tail9008_ - _hd-rest9028_)) + _tail9185_ + _hd-rest9205_)) (let () (declare (not safe)) - (_lp9004_ - _rest9074_ - _args9007_ - _hd-rest9028_))) + (_lp9181_ + _rest9251_ + _args9184_ + _hd-rest9205_))) (let () (declare (not safe)) - (_lp9004_ - _rest9074_ - _hd-rest9028_ - _hd-rest9028_)))))) + (_lp9181_ + _rest9251_ + _hd-rest9205_ + _hd-rest9205_)))))) (if (let () (declare (not safe)) - (##pair? _hd-rest90609067_)) - (let ((_hd90649080_ + (##pair? _hd-rest92379244_)) + (let ((_hd92419257_ (let () (declare (not safe)) - (##car _hd-rest90609067_))) - (_tl90659082_ + (##car _hd-rest92379244_))) + (_tl92429259_ (let () (declare (not safe)) - (##cdr _hd-rest90609067_)))) - (let* ((_val9085_ _hd90649080_) - (_rest9087_ _tl90659082_)) + (##cdr _hd-rest92379244_)))) + (let* ((_val9262_ _hd92419257_) + (_rest9264_ _tl92429259_)) (declare (not safe)) - (_K90639077_ _rest9087_ _val9085_))) + (_K92409254_ _rest9264_ _val9262_))) (let () (declare (not safe)) - (_E90629071_)))) + (_E92399248_)))) (if (let () (declare (not safe)) - (eq? _hd9029_ '#!rest)) - (if _args9007_ + (eq? _hd9206_ '#!rest)) + (if _args9184_ (begin (let () (declare (not safe)) (##set-cdr! - _tail9008_ - _hd-rest9028_)) - (let ((__tmp9175 + _tail9185_ + _hd-rest9205_)) + (let ((__tmp9352 (let () (declare (not safe)) - (cons _keys9002_ - _args9007_)))) + (cons _keys9179_ + _args9184_)))) (declare (not safe)) - (##apply _K8999_ __tmp9175))) - (let ((__tmp9174 + (##apply _K9176_ __tmp9352))) + (let ((__tmp9351 (let () (declare (not safe)) - (cons _keys9002_ - _hd-rest9028_)))) + (cons _keys9179_ + _hd-rest9205_)))) (declare (not safe)) - (##apply _K8999_ __tmp9174))) - (if _args9007_ + (##apply _K9176_ __tmp9351))) + (if _args9184_ (begin (let () (declare (not safe)) - (##set-cdr! _tail9008_ _rest9006_)) + (##set-cdr! _tail9185_ _rest9183_)) (let () (declare (not safe)) - (_lp9004_ - _hd-rest9028_ - _args9007_ - _rest9006_))) + (_lp9181_ + _hd-rest9205_ + _args9184_ + _rest9183_))) (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_)) + (_lp9181_ + _hd-rest9205_ + _rest9183_ + _rest9183_))))))))) + (if (let () (declare (not safe)) (##pair? _rest91869194_)) + (let ((_hd91919269_ + (let () (declare (not safe)) (##car _rest91869194_))) + (_tl91929271_ + (let () (declare (not safe)) (##cdr _rest91869194_)))) + (let* ((_hd9274_ _hd91919269_) + (_hd-rest9276_ _tl91929271_)) (declare (not safe)) - (_K90139089_ _hd-rest9099_ _hd9097_))) - (let () (declare (not safe)) (_else90119025_)))))))) + (_K91909266_ _hd-rest9276_ _hd9274_))) + (let () (declare (not safe)) (_else91889202_)))))))) (define keyword-rest - (lambda (_kwt8989_ . _drop8990_) + (lambda (_kwt9166_ . _drop9167_) (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 (_kw9169_) + (let () (declare (not safe)) (table-set! _kwt9166_ _kw9169_))) + _drop9167_) + (let ((__tmp9356 + (lambda (_k9171_ _v9172_ _r9173_) + (let ((__tmp9357 + (let () (declare (not safe)) (cons _v9172_ _r9173_)))) (declare (not safe)) - (cons _k8994_ __tmp9180))))) + (cons _k9171_ __tmp9357))))) (declare (not safe)) - (hash-fold __tmp9179 '() _kwt8989_)))))) + (hash-fold __tmp9356 '() _kwt9166_)))))) 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..bcc0eb8a24 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 1698333192) (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 _$args12710_ + (apply make-class-instance Exception::t _$args12710_))) (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 _$args12707_ + (apply make-class-instance StackTrace::t _$args12707_))) (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 ((__tmp12730 + (let ((__tmp12731 (let () (declare (not safe)) (cons Exception::t '())))) (declare (not safe)) - (cons StackTrace::t __tmp12554)))) + (cons StackTrace::t __tmp12731)))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Error::t - __tmp12553 + __tmp12730 '(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 _$args12704_ (apply make-class-instance Error::t _$args12704_))) (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 ((__tmp12732 + (let ((__tmp12733 (let () (declare (not safe)) (cons Exception::t '())))) (declare (not safe)) - (cons StackTrace::t __tmp12556)))) + (cons StackTrace::t __tmp12733)))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#RuntimeException::t - __tmp12555 + __tmp12732 '(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 _$args12701_ + (apply make-class-instance RuntimeException::t _$args12701_))) (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 (_exn12696_ _continue12697_) + (let ((_exn12699_ (let () (declare (not safe)) - (wrap-runtime-exception _exn12519_)))) + (wrap-runtime-exception _exn12696_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn12522_ _continue12520_)))) + (##repl-exception-handler-hook _exn12699_ _continue12697_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn12515_) + (lambda (_exn12692_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn12515_)) + (class-instance? StackTrace::t _exn12692_)) (if (let () (declare (not safe)) - (slot-ref _exn12515_ 'continuation)) + (slot-ref _exn12692_ 'continuation)) '#!void - (let ((__tmp12557 - (lambda (_cont12517_) + (let ((__tmp12734 + (lambda (_cont12694_) (let () (declare (not safe)) (unchecked-slot-set! - _exn12515_ + _exn12692_ 'continuation - _cont12517_))))) + _cont12694_))))) (declare (not safe)) - (##continuation-capture __tmp12557))) + (##continuation-capture __tmp12734))) '#!void) - (let () (declare (not safe)) (##raise _exn12515_)))) + (let () (declare (not safe)) (##raise _exn12692_)))) (define error - (lambda (_message12512_ . _irritants12513_) + (lambda (_message12689_ . _irritants12690_) (raise (let () (declare (not safe)) (make-class-instance Error::t - _message12512_ + _message12689_ 'irritants: - _irritants12513_))))) + _irritants12690_))))) (define with-exception-handler - (lambda (_handler12505_ _thunk12506_) - (if (let () (declare (not safe)) (procedure? _handler12505_)) + (lambda (_handler12682_ _thunk12683_) + (if (let () (declare (not safe)) (procedure? _handler12682_)) '#!void - (raise (let ((__tmp12558 + (raise (let ((__tmp12735 (let () (declare (not safe)) - (cons _handler12505_ '())))) + (cons _handler12682_ '())))) (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_)) + __tmp12735)))) + (if (let () (declare (not safe)) (procedure? _thunk12683_)) '#!void - (raise (let ((__tmp12559 + (raise (let ((__tmp12736 (let () (declare (not safe)) - (cons _thunk12506_ '())))) + (cons _thunk12683_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -215,24 +215,24 @@ 'where: 'with-exception-hander 'irritants: - __tmp12559)))) - (let ((__tmp12560 - (lambda (_exn12508_) - (let ((_exn12510_ + __tmp12736)))) + (let ((__tmp12737 + (lambda (_exn12685_) + (let ((_exn12687_ (let () (declare (not safe)) - (wrap-runtime-exception _exn12508_)))) - (_handler12505_ _exn12510_))))) + (wrap-runtime-exception _exn12685_)))) + (_handler12682_ _exn12687_))))) (declare (not safe)) - (##with-exception-handler __tmp12560 _thunk12506_)))) + (##with-exception-handler __tmp12737 _thunk12683_)))) (define with-catch - (lambda (_handler12498_ _thunk12499_) - (if (let () (declare (not safe)) (procedure? _handler12498_)) + (lambda (_handler12675_ _thunk12676_) + (if (let () (declare (not safe)) (procedure? _handler12675_)) '#!void - (raise (let ((__tmp12561 + (raise (let ((__tmp12738 (let () (declare (not safe)) - (cons _handler12498_ '())))) + (cons _handler12675_ '())))) (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_)) + __tmp12738)))) + (if (let () (declare (not safe)) (procedure? _thunk12676_)) '#!void - (raise (let ((__tmp12562 + (raise (let ((__tmp12739 (let () (declare (not safe)) - (cons _thunk12499_ '())))) + (cons _thunk12676_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -254,354 +254,356 @@ 'where: 'with-exception-hander 'irritants: - __tmp12562)))) - (let ((__tmp12563 - (lambda (_cont12501_) + __tmp12739)))) + (let ((__tmp12740 + (lambda (_cont12678_) (with-exception-handler - (lambda (_exn12503_) + (lambda (_exn12680_) (let () (declare (not safe)) (##continuation-graft - _cont12501_ - _handler12498_ - _exn12503_))) - _thunk12499_)))) + _cont12678_ + _handler12675_ + _exn12680_))) + _thunk12676_)))) (declare (not safe)) - (##continuation-capture __tmp12563)))) + (##continuation-capture __tmp12740)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_exn12489_) - (if (or (heap-overflow-exception? _exn12489_) - (stack-overflow-exception? _exn12489_)) - _exn12489_ + (lambda (_exn12666_) + (if (or (heap-overflow-exception? _exn12666_) + (stack-overflow-exception? _exn12666_)) + _exn12666_ (if (let () (declare (not safe)) - (class-instance? Exception::t _exn12489_)) - _exn12489_ - (if (macro-exception? _exn12489_) - (let ((_rte12494_ + (class-instance? Exception::t _exn12666_)) + _exn12666_ + (if (macro-exception? _exn12666_) + (let ((_rte12671_ (let () (declare (not safe)) (make-class-instance RuntimeException::t 'exception: - _exn12489_)))) - (let ((__tmp12564 - (lambda (_cont12496_) - (let ((__tmp12565 + _exn12666_)))) + (let ((__tmp12741 + (lambda (_cont12673_) + (let ((__tmp12742 (let () (declare (not safe)) - (##continuation-next _cont12496_)))) + (##continuation-next _cont12673_)))) (declare (not safe)) (unchecked-slot-set! - _rte12494_ + _rte12671_ 'continuation - __tmp12565))))) + __tmp12742))))) (declare (not safe)) - (##continuation-capture __tmp12564)) - _rte12494_) - _exn12489_))))) + (##continuation-capture __tmp12741)) + _rte12671_) + _exn12666_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj12484_) - (let ((_$e12486_ + (lambda (_obj12661_) + (let ((_$e12663_ (let () (declare (not safe)) - (class-instance? Error::t _obj12484_)))) - (if _$e12486_ _$e12486_ (error-exception? _obj12484_))))) + (class-instance? Error::t _obj12661_)))) + (if _$e12663_ _$e12663_ (error-exception? _obj12661_))))) (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 (_obj12659_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12659_)) + (let () (declare (not safe)) (slot-ref _obj12659_ 'message)) + (if (error-exception? _obj12659_) + (error-exception-message _obj12659_) '#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 (_obj12657_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12657_)) + (let () (declare (not safe)) (slot-ref _obj12657_ 'irritants)) + (if (error-exception? _obj12657_) + (error-exception-parameters _obj12657_) '#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 (_obj12655_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj12655_)) + (let () (declare (not safe)) (slot-ref _obj12655_ 'where)) '#f))) (define display-exception__% - (lambda (_e12460_ _port12461_) - (let ((_$e12463_ + (lambda (_e12637_ _port12638_) + (let ((_$e12640_ (let () (declare (not safe)) - (method-ref _e12460_ 'display-exception)))) - (if _$e12463_ - ((lambda (_f12466_) (_f12466_ _e12460_ _port12461_)) _$e12463_) + (method-ref _e12637_ 'display-exception)))) + (if _$e12640_ + ((lambda (_f12643_) (_f12643_ _e12637_ _port12638_)) _$e12640_) (let () (declare (not safe)) - (##default-display-exception _e12460_ _port12461_)))))) + (##default-display-exception _e12637_ _port12638_)))))) (define display-exception__0 - (lambda (_e12471_) - (let ((_port12473_ (current-error-port))) + (lambda (_e12648_) + (let ((_port12650_ (current-error-port))) (declare (not safe)) - (display-exception__% _e12471_ _port12473_)))) + (display-exception__% _e12648_ _port12650_)))) (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 _g12744_ + (let ((_g12743_ (let () (declare (not safe)) (##length _g12744_)))) + (cond ((let () (declare (not safe)) (##fx= _g12743_ 1)) + (apply (lambda (_e12648_) (let () (declare (not safe)) - (display-exception__0 _e12471_))) - _g12567_)) - ((let () (declare (not safe)) (##fx= _g12566_ 2)) - (apply (lambda (_e12475_ _port12476_) + (display-exception__0 _e12648_))) + _g12744_)) + ((let () (declare (not safe)) (##fx= _g12743_ 2)) + (apply (lambda (_e12652_ _port12653_) (let () (declare (not safe)) - (display-exception__% _e12475_ _port12476_))) - _g12567_)) + (display-exception__% _e12652_ _port12653_))) + _g12744_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g12567_)))))) + _g12744_)))))) (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 (_self12626_ _message12627_ . _rest12628_) + (let ((_message12634_ + (if (let () (declare (not safe)) (string? _message12627_)) + _message12627_ (call-with-output-string '"" - (lambda (_g1245212454_) - (display _message12450_ _g1245212454_)))))) + (lambda (_g1262912631_) + (display _message12627_ _g1262912631_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _self12449_ 'message _message12457_)) - (apply class-instance-init! _self12449_ _rest12451_)))) + (unchecked-slot-set! _self12626_ 'message _message12634_)) + (apply class-instance-init! _self12626_ _rest12628_)))) (define Error:::init!::specialize - (lambda (__t12535) - (let ((__message12536 - (let ((__tmp12537 + (lambda (__t12712) + (let ((__message12713 + (let ((__tmp12714 (let () (declare (not safe)) - (class-slot-offset __t12535 'message)))) - (if __tmp12537 - (let () (declare (not safe)) (##fx+ __tmp12537 '1)) + (class-slot-offset __t12712 'message)))) + (if __tmp12714 + (let () (declare (not safe)) (##fx+ __tmp12714 '1)) (error '"Unknown slot" 'message))))) - (lambda (_self12449_ _message12450_ . _rest12451_) - (let ((_message12457_ - (if (let () (declare (not safe)) (string? _message12450_)) - _message12450_ + (lambda (_self12626_ _message12627_ . _rest12628_) + (let ((_message12634_ + (if (let () (declare (not safe)) (string? _message12627_)) + _message12627_ (call-with-output-string '"" - (lambda (_g1245212454_) - (display _message12450_ _g1245212454_)))))) + (lambda (_g1262912631_) + (display _message12627_ _g1262912631_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _self12449_ - _message12457_ - __message12536 - __t12535 + _self12626_ + _message12634_ + __message12713 + __t12712 '#f)) - (apply class-instance-init! _self12449_ _rest12451_)))))) + (apply class-instance-init! _self12626_ _rest12628_)))))) (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 (_self12484_ _port12485_) + (let ((_tmp-port12487_ (open-output-string)) + (_display-error-newline12488_ + (> (output-port-column _port12485_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12487_)) + (let ((__tmp12745 (lambda () - (if _display-error-newline12311_ (newline) '#!void) + (if _display-error-newline12488_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e12314_ + (let ((_$e12491_ (let () (declare (not safe)) - (slot-ref _self12307_ 'where)))) - (if _$e12314_ (display _$e12314_) (display '"?"))) - (let ((__tmp12569 - (let ((__tmp12570 + (slot-ref _self12484_ 'where)))) + (if _$e12491_ (display _$e12491_) (display '"?"))) + (let ((__tmp12746 + (let ((__tmp12747 (let () (declare (not safe)) - (object-type _self12307_)))) + (object-type _self12484_)))) (declare (not safe)) - (##type-name __tmp12570)))) + (##type-name __tmp12747)))) (declare (not safe)) - (display* '" [" __tmp12569 '"]: ")) - (let ((__tmp12571 + (display* '" [" __tmp12746 '"]: ")) + (let ((__tmp12748 (let () (declare (not safe)) - (slot-ref _self12307_ 'message)))) + (slot-ref _self12484_ 'message)))) (declare (not safe)) - (displayln __tmp12571)) - (let ((_irritants12317_ + (displayln __tmp12748)) + (let ((_irritants12494_ (let () (declare (not safe)) - (slot-ref _self12307_ 'irritants)))) - (if (let () (declare (not safe)) (null? _irritants12317_)) + (slot-ref _self12484_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants12494_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj12319_) - (write _obj12319_) + (lambda (_obj12496_) + (write _obj12496_) (write-char '#\space)) - _irritants12317_) + _irritants12494_) (newline)))) - (if (let () - (declare (not safe)) - (class-instance? StackTrace::t _self12307_)) - (let ((_cont1232012322_ + (if (and (let () + (declare (not safe)) + (class-instance? StackTrace::t _self12484_)) + (dump-stack-trace?)) + (let ((_cont1249712499_ (let () (declare (not safe)) - (slot-ref _self12307_ 'continuation)))) - (if _cont1232012322_ - (let ((_cont12325_ _cont1232012322_)) + (slot-ref _self12484_ 'continuation)))) + (if _cont1249712499_ + (let ((_cont12502_ _cont1249712499_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) - (display-continuation-backtrace _cont12325_)) + (display-continuation-backtrace _cont12502_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp12568 + __tmp12745 current-output-port - _tmp-port12310_)) - (let ((__tmp12572 (get-output-string _tmp-port12310_))) + _tmp-port12487_)) + (let ((__tmp12749 (get-output-string _tmp-port12487_))) (declare (not safe)) - (##write-string __tmp12572 _port12308_))))) + (##write-string __tmp12749 _port12485_))))) (define Error::display-exception::specialize - (lambda (__t12538) - (let ((__irritants12539 - (let ((__tmp12543 + (lambda (__t12715) + (let ((__continuation12716 + (let ((__tmp12720 (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 __t12715 'continuation)))) + (if __tmp12720 + (let () (declare (not safe)) (##fx+ __tmp12720 '1)) + (error '"Unknown slot" 'continuation)))) + (__message12717 + (let ((__tmp12721 (let () (declare (not safe)) - (class-slot-offset __t12538 'message)))) - (if __tmp12544 - (let () (declare (not safe)) (##fx+ __tmp12544 '1)) + (class-slot-offset __t12715 'message)))) + (if __tmp12721 + (let () (declare (not safe)) (##fx+ __tmp12721 '1)) (error '"Unknown slot" 'message)))) - (__where12541 - (let ((__tmp12545 + (__irritants12718 + (let ((__tmp12722 (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 __t12715 'irritants)))) + (if __tmp12722 + (let () (declare (not safe)) (##fx+ __tmp12722 '1)) + (error '"Unknown slot" 'irritants)))) + (__where12719 + (let ((__tmp12723 (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 __t12715 'where)))) + (if __tmp12723 + (let () (declare (not safe)) (##fx+ __tmp12723 '1)) + (error '"Unknown slot" 'where)))) + (__class12724 (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 __t12715)))) + (lambda (_self12484_ _port12485_) + (let ((_tmp-port12487_ (open-output-string)) + (_display-error-newline12488_ + (> (output-port-column _port12485_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12487_)) + (let ((__tmp12750 (lambda () - (if _display-error-newline12311_ (newline) '#!void) + (if _display-error-newline12488_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e12314_ + (let ((_$e12491_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12307_ - __where12541 - __t12538 + _self12484_ + __where12719 + __t12715 '#f)))) - (if _$e12314_ (display _$e12314_) (display '"?"))) - (let ((__tmp12574 - (let ((__tmp12575 + (if _$e12491_ (display _$e12491_) (display '"?"))) + (let ((__tmp12751 + (let ((__tmp12752 (let () (declare (not safe)) - (object-type _self12307_)))) + (object-type _self12484_)))) (declare (not safe)) - (##type-name __tmp12575)))) + (##type-name __tmp12752)))) (declare (not safe)) - (display* '" [" __tmp12574 '"]: ")) - (let ((__tmp12576 + (display* '" [" __tmp12751 '"]: ")) + (let ((__tmp12753 (let () (declare (not safe)) (##unchecked-structure-ref - _self12307_ - __message12540 - __t12538 + _self12484_ + __message12717 + __t12715 '#f)))) (declare (not safe)) - (displayln __tmp12576)) - (let ((_irritants12317_ + (displayln __tmp12753)) + (let ((_irritants12494_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12307_ - __irritants12539 - __t12538 + _self12484_ + __irritants12718 + __t12715 '#f)))) (if (let () (declare (not safe)) - (null? _irritants12317_)) + (null? _irritants12494_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj12319_) - (write _obj12319_) + (lambda (_obj12496_) + (write _obj12496_) (write-char '#\space)) - _irritants12317_) + _irritants12494_) (newline)))) - (if __class12547 - (let ((_cont1232012322_ + (if (and __class12724 (dump-stack-trace?)) + (let ((_cont1249712499_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12307_ - __continuation12542 - __t12538 + _self12484_ + __continuation12716 + __t12715 '#f)))) - (if _cont1232012322_ - (let ((_cont12325_ _cont1232012322_)) + (if _cont1249712499_ + (let ((_cont12502_ _cont1249712499_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _cont12325_)) + _cont12502_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp12573 + __tmp12750 current-output-port - _tmp-port12310_)) - (let ((__tmp12577 (get-output-string _tmp-port12310_))) + _tmp-port12487_)) + (let ((__tmp12754 (get-output-string _tmp-port12487_))) (declare (not safe)) - (##write-string __tmp12577 _port12308_))))))) + (##write-string __tmp12754 _port12485_))))))) (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 (_self12351_ _port12352_) + (let ((_tmp-port12354_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12354_)) + (let ((__tmp12755 (let () (declare (not safe)) - (slot-ref _self12174_ 'exception)))) + (slot-ref _self12351_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp12578 _tmp-port12177_)) - (let ((_cont1217812180_ + (##default-display-exception __tmp12755 _tmp-port12354_)) + (let ((_cont1235512357_ (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 _self12351_ 'continuation)))) + (if _cont1235512357_ + (let ((_cont12360_ _cont1235512357_)) + (display '"--- continuation backtrace:" _tmp-port12354_) + (newline _tmp-port12354_) + (display-continuation-backtrace _cont12360_ _tmp-port12354_)) '#f)) - (let ((__tmp12579 (get-output-string _tmp-port12177_))) + (let ((__tmp12756 (get-output-string _tmp-port12354_))) (declare (not safe)) - (##write-string __tmp12579 _port12175_))))) + (##write-string __tmp12756 _port12352_))))) (define RuntimeException::display-exception::specialize - (lambda (__t12548) - (let ((__exception12549 - (let ((__tmp12551 + (lambda (__t12725) + (let ((__continuation12726 + (let ((__tmp12728 (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 __t12725 'continuation)))) + (if __tmp12728 + (let () (declare (not safe)) (##fx+ __tmp12728 '1)) + (error '"Unknown slot" 'continuation)))) + (__exception12727 + (let ((__tmp12729 (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 __t12725 'exception)))) + (if __tmp12729 + (let () (declare (not safe)) (##fx+ __tmp12729 '1)) + (error '"Unknown slot" 'exception))))) + (lambda (_self12351_ _port12352_) + (let ((_tmp-port12354_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port12354_)) + (let ((__tmp12757 (let () (declare (not safe)) (##unchecked-structure-ref - _self12174_ - __exception12549 - __t12548 + _self12351_ + __exception12727 + __t12725 '#f)))) (declare (not safe)) - (##default-display-exception __tmp12580 _tmp-port12177_)) - (let ((_cont1217812180_ + (##default-display-exception __tmp12757 _tmp-port12354_)) + (let ((_cont1235512357_ (let () (declare (not safe)) (##unchecked-structure-ref - _self12174_ - __continuation12550 - __t12548 + _self12351_ + __continuation12726 + __t12725 '#f)))) - (if _cont1217812180_ - (let ((_cont12183_ _cont1217812180_)) - (display '"--- continuation backtrace:" _tmp-port12177_) - (newline _tmp-port12177_) + (if _cont1235512357_ + (let ((_cont12360_ _cont1235512357_)) + (display '"--- continuation backtrace:" _tmp-port12354_) + (newline _tmp-port12354_) (display-continuation-backtrace - _cont12183_ - _tmp-port12177_)) + _cont12360_ + _tmp-port12354_)) '#f)) - (let ((__tmp12581 (get-output-string _tmp-port12177_))) + (let ((__tmp12758 (get-output-string _tmp-port12354_))) (declare (not safe)) - (##write-string __tmp12581 _port12175_))))))) + (##write-string __tmp12758 _port12352_))))))) (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 (_port12223_) + (if (macro-character-port? _port12223_) + (let ((_old-width12225_ + (macro-character-port-output-width _port12223_))) (macro-character-port-output-width-set! - _port12046_ - (lambda (_port12050_) '256)) - _old-width12048_) + _port12223_ + (lambda (_port12227_) '256)) + _old-width12225_) '#!void))) (define reset-port-width! - (lambda (_port12043_ _old-width12044_) - (if (macro-character-port? _port12043_) + (lambda (_port12220_ _old-width12221_) + (if (macro-character-port? _port12220_) (macro-character-port-output-width-set! - _port12043_ - _old-width12044_) + _port12220_ + _old-width12221_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e12041_) - (macro-readenv-filepos (datum-parsing-exception-readenv _e12041_)))) + (lambda (_e12218_) + (macro-readenv-filepos (datum-parsing-exception-readenv _e12218_)))) (define abandoned-mutex-exception? - (lambda (_exn12035_) + (lambda (_exn12212_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12035_)) - (let ((_e12038_ + (class-instance? RuntimeException::t _exn12212_)) + (let ((_e12215_ (let () (declare (not safe)) - (slot-ref _exn12035_ 'exception)))) - (macro-abandoned-mutex-exception? _e12038_)) - (macro-abandoned-mutex-exception? _exn12035_)))) + (slot-ref _exn12212_ 'exception)))) + (macro-abandoned-mutex-exception? _e12215_)) + (macro-abandoned-mutex-exception? _exn12212_)))) (define cfun-conversion-exception? - (lambda (_exn12031_) + (lambda (_exn12208_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12031_)) - (let ((_e12033_ + (class-instance? RuntimeException::t _exn12208_)) + (let ((_e12210_ (let () (declare (not safe)) - (slot-ref _exn12031_ 'exception)))) - (macro-cfun-conversion-exception? _e12033_)) - (macro-cfun-conversion-exception? _exn12031_)))) + (slot-ref _exn12208_ 'exception)))) + (macro-cfun-conversion-exception? _e12210_)) + (macro-cfun-conversion-exception? _exn12208_)))) (define cfun-conversion-exception-arguments - (lambda (_exn12027_) + (lambda (_exn12204_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12027_)) - (let ((_e12029_ + (class-instance? RuntimeException::t _exn12204_)) + (let ((_e12206_ (let () (declare (not safe)) - (slot-ref _exn12027_ 'exception)))) - (if (macro-cfun-conversion-exception? _e12029_) - (macro-cfun-conversion-exception-arguments _e12029_) + (slot-ref _exn12204_ 'exception)))) + (if (macro-cfun-conversion-exception? _e12206_) + (macro-cfun-conversion-exception-arguments _e12206_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12583 + (let ((__tmp12760 (let () (declare (not safe)) - (cons _e12029_ '())))) + (cons _e12206_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp12583))))) - (if (macro-cfun-conversion-exception? _exn12027_) - (macro-cfun-conversion-exception-arguments _exn12027_) + __tmp12760))))) + (if (macro-cfun-conversion-exception? _exn12204_) + (macro-cfun-conversion-exception-arguments _exn12204_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12582 + (let ((__tmp12759 (let () (declare (not safe)) - (cons _exn12027_ '())))) + (cons _exn12204_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp12582))))))) + __tmp12759))))))) (define cfun-conversion-exception-code - (lambda (_exn12023_) + (lambda (_exn12200_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12023_)) - (let ((_e12025_ + (class-instance? RuntimeException::t _exn12200_)) + (let ((_e12202_ (let () (declare (not safe)) - (slot-ref _exn12023_ 'exception)))) - (if (macro-cfun-conversion-exception? _e12025_) - (macro-cfun-conversion-exception-code _e12025_) + (slot-ref _exn12200_ 'exception)))) + (if (macro-cfun-conversion-exception? _e12202_) + (macro-cfun-conversion-exception-code _e12202_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12585 + (let ((__tmp12762 (let () (declare (not safe)) - (cons _e12025_ '())))) + (cons _e12202_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp12585))))) - (if (macro-cfun-conversion-exception? _exn12023_) - (macro-cfun-conversion-exception-code _exn12023_) + __tmp12762))))) + (if (macro-cfun-conversion-exception? _exn12200_) + (macro-cfun-conversion-exception-code _exn12200_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12584 + (let ((__tmp12761 (let () (declare (not safe)) - (cons _exn12023_ '())))) + (cons _exn12200_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp12584))))))) + __tmp12761))))))) (define cfun-conversion-exception-message - (lambda (_exn12019_) + (lambda (_exn12196_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12019_)) - (let ((_e12021_ + (class-instance? RuntimeException::t _exn12196_)) + (let ((_e12198_ (let () (declare (not safe)) - (slot-ref _exn12019_ 'exception)))) - (if (macro-cfun-conversion-exception? _e12021_) - (macro-cfun-conversion-exception-message _e12021_) + (slot-ref _exn12196_ 'exception)))) + (if (macro-cfun-conversion-exception? _e12198_) + (macro-cfun-conversion-exception-message _e12198_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12587 + (let ((__tmp12764 (let () (declare (not safe)) - (cons _e12021_ '())))) + (cons _e12198_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp12587))))) - (if (macro-cfun-conversion-exception? _exn12019_) - (macro-cfun-conversion-exception-message _exn12019_) + __tmp12764))))) + (if (macro-cfun-conversion-exception? _exn12196_) + (macro-cfun-conversion-exception-message _exn12196_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12586 + (let ((__tmp12763 (let () (declare (not safe)) - (cons _exn12019_ '())))) + (cons _exn12196_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp12586))))))) + __tmp12763))))))) (define cfun-conversion-exception-procedure - (lambda (_exn12013_) + (lambda (_exn12190_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12013_)) - (let ((_e12016_ + (class-instance? RuntimeException::t _exn12190_)) + (let ((_e12193_ (let () (declare (not safe)) - (slot-ref _exn12013_ 'exception)))) - (if (macro-cfun-conversion-exception? _e12016_) - (macro-cfun-conversion-exception-procedure _e12016_) + (slot-ref _exn12190_ 'exception)))) + (if (macro-cfun-conversion-exception? _e12193_) + (macro-cfun-conversion-exception-procedure _e12193_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12589 + (let ((__tmp12766 (let () (declare (not safe)) - (cons _e12016_ '())))) + (cons _e12193_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp12589))))) - (if (macro-cfun-conversion-exception? _exn12013_) - (macro-cfun-conversion-exception-procedure _exn12013_) + __tmp12766))))) + (if (macro-cfun-conversion-exception? _exn12190_) + (macro-cfun-conversion-exception-procedure _exn12190_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp12588 + (let ((__tmp12765 (let () (declare (not safe)) - (cons _exn12013_ '())))) + (cons _exn12190_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp12588))))))) + __tmp12765))))))) (define datum-parsing-exception? - (lambda (_exn12009_) + (lambda (_exn12186_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12009_)) - (let ((_e12011_ + (class-instance? RuntimeException::t _exn12186_)) + (let ((_e12188_ (let () (declare (not safe)) - (slot-ref _exn12009_ 'exception)))) - (macro-datum-parsing-exception? _e12011_)) - (macro-datum-parsing-exception? _exn12009_)))) + (slot-ref _exn12186_ 'exception)))) + (macro-datum-parsing-exception? _e12188_)) + (macro-datum-parsing-exception? _exn12186_)))) (define datum-parsing-exception-kind - (lambda (_exn12005_) + (lambda (_exn12182_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12005_)) - (let ((_e12007_ + (class-instance? RuntimeException::t _exn12182_)) + (let ((_e12184_ (let () (declare (not safe)) - (slot-ref _exn12005_ 'exception)))) - (if (macro-datum-parsing-exception? _e12007_) - (macro-datum-parsing-exception-kind _e12007_) + (slot-ref _exn12182_ 'exception)))) + (if (macro-datum-parsing-exception? _e12184_) + (macro-datum-parsing-exception-kind _e12184_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12591 + (let ((__tmp12768 (let () (declare (not safe)) - (cons _e12007_ '())))) + (cons _e12184_ '())))) (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 __tmp12768))))) + (if (macro-datum-parsing-exception? _exn12182_) + (macro-datum-parsing-exception-kind _exn12182_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12590 + (let ((__tmp12767 (let () (declare (not safe)) - (cons _exn12005_ '())))) + (cons _exn12182_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp12590))))))) + (cons 'datum-parsing-exception-kind __tmp12767))))))) (define datum-parsing-exception-parameters - (lambda (_exn12001_) + (lambda (_exn12178_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn12001_)) - (let ((_e12003_ + (class-instance? RuntimeException::t _exn12178_)) + (let ((_e12180_ (let () (declare (not safe)) - (slot-ref _exn12001_ 'exception)))) - (if (macro-datum-parsing-exception? _e12003_) - (macro-datum-parsing-exception-parameters _e12003_) + (slot-ref _exn12178_ 'exception)))) + (if (macro-datum-parsing-exception? _e12180_) + (macro-datum-parsing-exception-parameters _e12180_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12593 + (let ((__tmp12770 (let () (declare (not safe)) - (cons _e12003_ '())))) + (cons _e12180_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp12593))))) - (if (macro-datum-parsing-exception? _exn12001_) - (macro-datum-parsing-exception-parameters _exn12001_) + __tmp12770))))) + (if (macro-datum-parsing-exception? _exn12178_) + (macro-datum-parsing-exception-parameters _exn12178_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12592 + (let ((__tmp12769 (let () (declare (not safe)) - (cons _exn12001_ '())))) + (cons _exn12178_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp12592))))))) + __tmp12769))))))) (define datum-parsing-exception-readenv - (lambda (_exn11995_) + (lambda (_exn12172_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11995_)) - (let ((_e11998_ + (class-instance? RuntimeException::t _exn12172_)) + (let ((_e12175_ (let () (declare (not safe)) - (slot-ref _exn11995_ 'exception)))) - (if (macro-datum-parsing-exception? _e11998_) - (macro-datum-parsing-exception-readenv _e11998_) + (slot-ref _exn12172_ 'exception)))) + (if (macro-datum-parsing-exception? _e12175_) + (macro-datum-parsing-exception-readenv _e12175_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12595 + (let ((__tmp12772 (let () (declare (not safe)) - (cons _e11998_ '())))) + (cons _e12175_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp12595))))) - (if (macro-datum-parsing-exception? _exn11995_) - (macro-datum-parsing-exception-readenv _exn11995_) + __tmp12772))))) + (if (macro-datum-parsing-exception? _exn12172_) + (macro-datum-parsing-exception-readenv _exn12172_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp12594 + (let ((__tmp12771 (let () (declare (not safe)) - (cons _exn11995_ '())))) + (cons _exn12172_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp12594))))))) + __tmp12771))))))) (define deadlock-exception? - (lambda (_exn11989_) + (lambda (_exn12166_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11989_)) - (let ((_e11992_ + (class-instance? RuntimeException::t _exn12166_)) + (let ((_e12169_ (let () (declare (not safe)) - (slot-ref _exn11989_ 'exception)))) - (macro-deadlock-exception? _e11992_)) - (macro-deadlock-exception? _exn11989_)))) + (slot-ref _exn12166_ 'exception)))) + (macro-deadlock-exception? _e12169_)) + (macro-deadlock-exception? _exn12166_)))) (define divide-by-zero-exception? - (lambda (_exn11985_) + (lambda (_exn12162_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11985_)) - (let ((_e11987_ + (class-instance? RuntimeException::t _exn12162_)) + (let ((_e12164_ (let () (declare (not safe)) - (slot-ref _exn11985_ 'exception)))) - (macro-divide-by-zero-exception? _e11987_)) - (macro-divide-by-zero-exception? _exn11985_)))) + (slot-ref _exn12162_ 'exception)))) + (macro-divide-by-zero-exception? _e12164_)) + (macro-divide-by-zero-exception? _exn12162_)))) (define divide-by-zero-exception-arguments - (lambda (_exn11981_) + (lambda (_exn12158_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11981_)) - (let ((_e11983_ + (class-instance? RuntimeException::t _exn12158_)) + (let ((_e12160_ (let () (declare (not safe)) - (slot-ref _exn11981_ 'exception)))) - (if (macro-divide-by-zero-exception? _e11983_) - (macro-divide-by-zero-exception-arguments _e11983_) + (slot-ref _exn12158_ 'exception)))) + (if (macro-divide-by-zero-exception? _e12160_) + (macro-divide-by-zero-exception-arguments _e12160_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12597 + (let ((__tmp12774 (let () (declare (not safe)) - (cons _e11983_ '())))) + (cons _e12160_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp12597))))) - (if (macro-divide-by-zero-exception? _exn11981_) - (macro-divide-by-zero-exception-arguments _exn11981_) + __tmp12774))))) + (if (macro-divide-by-zero-exception? _exn12158_) + (macro-divide-by-zero-exception-arguments _exn12158_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12596 + (let ((__tmp12773 (let () (declare (not safe)) - (cons _exn11981_ '())))) + (cons _exn12158_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp12596))))))) + __tmp12773))))))) (define divide-by-zero-exception-procedure - (lambda (_exn11975_) + (lambda (_exn12152_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11975_)) - (let ((_e11978_ + (class-instance? RuntimeException::t _exn12152_)) + (let ((_e12155_ (let () (declare (not safe)) - (slot-ref _exn11975_ 'exception)))) - (if (macro-divide-by-zero-exception? _e11978_) - (macro-divide-by-zero-exception-procedure _e11978_) + (slot-ref _exn12152_ 'exception)))) + (if (macro-divide-by-zero-exception? _e12155_) + (macro-divide-by-zero-exception-procedure _e12155_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12599 + (let ((__tmp12776 (let () (declare (not safe)) - (cons _e11978_ '())))) + (cons _e12155_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp12599))))) - (if (macro-divide-by-zero-exception? _exn11975_) - (macro-divide-by-zero-exception-procedure _exn11975_) + __tmp12776))))) + (if (macro-divide-by-zero-exception? _exn12152_) + (macro-divide-by-zero-exception-procedure _exn12152_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp12598 + (let ((__tmp12775 (let () (declare (not safe)) - (cons _exn11975_ '())))) + (cons _exn12152_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp12598))))))) + __tmp12775))))))) (define error-exception? - (lambda (_exn11971_) + (lambda (_exn12148_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11971_)) - (let ((_e11973_ + (class-instance? RuntimeException::t _exn12148_)) + (let ((_e12150_ (let () (declare (not safe)) - (slot-ref _exn11971_ 'exception)))) - (macro-error-exception? _e11973_)) - (macro-error-exception? _exn11971_)))) + (slot-ref _exn12148_ 'exception)))) + (macro-error-exception? _e12150_)) + (macro-error-exception? _exn12148_)))) (define error-exception-message - (lambda (_exn11967_) + (lambda (_exn12144_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11967_)) - (let ((_e11969_ + (class-instance? RuntimeException::t _exn12144_)) + (let ((_e12146_ (let () (declare (not safe)) - (slot-ref _exn11967_ 'exception)))) - (if (macro-error-exception? _e11969_) - (macro-error-exception-message _e11969_) + (slot-ref _exn12144_ 'exception)))) + (if (macro-error-exception? _e12146_) + (macro-error-exception-message _e12146_) (error '"not an instance" 'error-exception? - (let ((__tmp12601 + (let ((__tmp12778 (let () (declare (not safe)) - (cons _e11969_ '())))) + (cons _e12146_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp12601))))) - (if (macro-error-exception? _exn11967_) - (macro-error-exception-message _exn11967_) + (cons 'error-exception-message __tmp12778))))) + (if (macro-error-exception? _exn12144_) + (macro-error-exception-message _exn12144_) (error '"not an instance" 'error-exception? - (let ((__tmp12600 + (let ((__tmp12777 (let () (declare (not safe)) - (cons _exn11967_ '())))) + (cons _exn12144_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp12600))))))) + (cons 'error-exception-message __tmp12777))))))) (define error-exception-parameters - (lambda (_exn11961_) + (lambda (_exn12138_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11961_)) - (let ((_e11964_ + (class-instance? RuntimeException::t _exn12138_)) + (let ((_e12141_ (let () (declare (not safe)) - (slot-ref _exn11961_ 'exception)))) - (if (macro-error-exception? _e11964_) - (macro-error-exception-parameters _e11964_) + (slot-ref _exn12138_ 'exception)))) + (if (macro-error-exception? _e12141_) + (macro-error-exception-parameters _e12141_) (error '"not an instance" 'error-exception? - (let ((__tmp12603 + (let ((__tmp12780 (let () (declare (not safe)) - (cons _e11964_ '())))) + (cons _e12141_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp12603))))) - (if (macro-error-exception? _exn11961_) - (macro-error-exception-parameters _exn11961_) + (cons 'error-exception-parameters __tmp12780))))) + (if (macro-error-exception? _exn12138_) + (macro-error-exception-parameters _exn12138_) (error '"not an instance" 'error-exception? - (let ((__tmp12602 + (let ((__tmp12779 (let () (declare (not safe)) - (cons _exn11961_ '())))) + (cons _exn12138_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp12602))))))) + (cons 'error-exception-parameters __tmp12779))))))) (define expression-parsing-exception? - (lambda (_exn11957_) + (lambda (_exn12134_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11957_)) - (let ((_e11959_ + (class-instance? RuntimeException::t _exn12134_)) + (let ((_e12136_ (let () (declare (not safe)) - (slot-ref _exn11957_ 'exception)))) - (macro-expression-parsing-exception? _e11959_)) - (macro-expression-parsing-exception? _exn11957_)))) + (slot-ref _exn12134_ 'exception)))) + (macro-expression-parsing-exception? _e12136_)) + (macro-expression-parsing-exception? _exn12134_)))) (define expression-parsing-exception-kind - (lambda (_exn11953_) + (lambda (_exn12130_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11953_)) - (let ((_e11955_ + (class-instance? RuntimeException::t _exn12130_)) + (let ((_e12132_ (let () (declare (not safe)) - (slot-ref _exn11953_ 'exception)))) - (if (macro-expression-parsing-exception? _e11955_) - (macro-expression-parsing-exception-kind _e11955_) + (slot-ref _exn12130_ 'exception)))) + (if (macro-expression-parsing-exception? _e12132_) + (macro-expression-parsing-exception-kind _e12132_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12605 + (let ((__tmp12782 (let () (declare (not safe)) - (cons _e11955_ '())))) + (cons _e12132_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp12605))))) - (if (macro-expression-parsing-exception? _exn11953_) - (macro-expression-parsing-exception-kind _exn11953_) + __tmp12782))))) + (if (macro-expression-parsing-exception? _exn12130_) + (macro-expression-parsing-exception-kind _exn12130_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12604 + (let ((__tmp12781 (let () (declare (not safe)) - (cons _exn11953_ '())))) + (cons _exn12130_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp12604))))))) + __tmp12781))))))) (define expression-parsing-exception-parameters - (lambda (_exn11949_) + (lambda (_exn12126_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11949_)) - (let ((_e11951_ + (class-instance? RuntimeException::t _exn12126_)) + (let ((_e12128_ (let () (declare (not safe)) - (slot-ref _exn11949_ 'exception)))) - (if (macro-expression-parsing-exception? _e11951_) - (macro-expression-parsing-exception-parameters _e11951_) + (slot-ref _exn12126_ 'exception)))) + (if (macro-expression-parsing-exception? _e12128_) + (macro-expression-parsing-exception-parameters _e12128_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12607 + (let ((__tmp12784 (let () (declare (not safe)) - (cons _e11951_ '())))) + (cons _e12128_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp12607))))) - (if (macro-expression-parsing-exception? _exn11949_) - (macro-expression-parsing-exception-parameters _exn11949_) + __tmp12784))))) + (if (macro-expression-parsing-exception? _exn12126_) + (macro-expression-parsing-exception-parameters _exn12126_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12606 + (let ((__tmp12783 (let () (declare (not safe)) - (cons _exn11949_ '())))) + (cons _exn12126_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp12606))))))) + __tmp12783))))))) (define expression-parsing-exception-source - (lambda (_exn11943_) + (lambda (_exn12120_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11943_)) - (let ((_e11946_ + (class-instance? RuntimeException::t _exn12120_)) + (let ((_e12123_ (let () (declare (not safe)) - (slot-ref _exn11943_ 'exception)))) - (if (macro-expression-parsing-exception? _e11946_) - (macro-expression-parsing-exception-source _e11946_) + (slot-ref _exn12120_ 'exception)))) + (if (macro-expression-parsing-exception? _e12123_) + (macro-expression-parsing-exception-source _e12123_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12609 + (let ((__tmp12786 (let () (declare (not safe)) - (cons _e11946_ '())))) + (cons _e12123_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp12609))))) - (if (macro-expression-parsing-exception? _exn11943_) - (macro-expression-parsing-exception-source _exn11943_) + __tmp12786))))) + (if (macro-expression-parsing-exception? _exn12120_) + (macro-expression-parsing-exception-source _exn12120_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp12608 + (let ((__tmp12785 (let () (declare (not safe)) - (cons _exn11943_ '())))) + (cons _exn12120_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp12608))))))) + __tmp12785))))))) (define file-exists-exception? - (lambda (_exn11939_) + (lambda (_exn12116_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11939_)) - (let ((_e11941_ + (class-instance? RuntimeException::t _exn12116_)) + (let ((_e12118_ (let () (declare (not safe)) - (slot-ref _exn11939_ 'exception)))) - (macro-file-exists-exception? _e11941_)) - (macro-file-exists-exception? _exn11939_)))) + (slot-ref _exn12116_ 'exception)))) + (macro-file-exists-exception? _e12118_)) + (macro-file-exists-exception? _exn12116_)))) (define file-exists-exception-arguments - (lambda (_exn11935_) + (lambda (_exn12112_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11935_)) - (let ((_e11937_ + (class-instance? RuntimeException::t _exn12112_)) + (let ((_e12114_ (let () (declare (not safe)) - (slot-ref _exn11935_ 'exception)))) - (if (macro-file-exists-exception? _e11937_) - (macro-file-exists-exception-arguments _e11937_) + (slot-ref _exn12112_ 'exception)))) + (if (macro-file-exists-exception? _e12114_) + (macro-file-exists-exception-arguments _e12114_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12611 + (let ((__tmp12788 (let () (declare (not safe)) - (cons _e11937_ '())))) + (cons _e12114_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp12611))))) - (if (macro-file-exists-exception? _exn11935_) - (macro-file-exists-exception-arguments _exn11935_) + __tmp12788))))) + (if (macro-file-exists-exception? _exn12112_) + (macro-file-exists-exception-arguments _exn12112_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12610 + (let ((__tmp12787 (let () (declare (not safe)) - (cons _exn11935_ '())))) + (cons _exn12112_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp12610))))))) + __tmp12787))))))) (define file-exists-exception-procedure - (lambda (_exn11929_) + (lambda (_exn12106_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11929_)) - (let ((_e11932_ + (class-instance? RuntimeException::t _exn12106_)) + (let ((_e12109_ (let () (declare (not safe)) - (slot-ref _exn11929_ 'exception)))) - (if (macro-file-exists-exception? _e11932_) - (macro-file-exists-exception-procedure _e11932_) + (slot-ref _exn12106_ 'exception)))) + (if (macro-file-exists-exception? _e12109_) + (macro-file-exists-exception-procedure _e12109_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12613 + (let ((__tmp12790 (let () (declare (not safe)) - (cons _e11932_ '())))) + (cons _e12109_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp12613))))) - (if (macro-file-exists-exception? _exn11929_) - (macro-file-exists-exception-procedure _exn11929_) + __tmp12790))))) + (if (macro-file-exists-exception? _exn12106_) + (macro-file-exists-exception-procedure _exn12106_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp12612 + (let ((__tmp12789 (let () (declare (not safe)) - (cons _exn11929_ '())))) + (cons _exn12106_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp12612))))))) + __tmp12789))))))) (define fixnum-overflow-exception? - (lambda (_exn11925_) + (lambda (_exn12102_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11925_)) - (let ((_e11927_ + (class-instance? RuntimeException::t _exn12102_)) + (let ((_e12104_ (let () (declare (not safe)) - (slot-ref _exn11925_ 'exception)))) - (macro-fixnum-overflow-exception? _e11927_)) - (macro-fixnum-overflow-exception? _exn11925_)))) + (slot-ref _exn12102_ 'exception)))) + (macro-fixnum-overflow-exception? _e12104_)) + (macro-fixnum-overflow-exception? _exn12102_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn11921_) + (lambda (_exn12098_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11921_)) - (let ((_e11923_ + (class-instance? RuntimeException::t _exn12098_)) + (let ((_e12100_ (let () (declare (not safe)) - (slot-ref _exn11921_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e11923_) - (macro-fixnum-overflow-exception-arguments _e11923_) + (slot-ref _exn12098_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e12100_) + (macro-fixnum-overflow-exception-arguments _e12100_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12615 + (let ((__tmp12792 (let () (declare (not safe)) - (cons _e11923_ '())))) + (cons _e12100_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp12615))))) - (if (macro-fixnum-overflow-exception? _exn11921_) - (macro-fixnum-overflow-exception-arguments _exn11921_) + __tmp12792))))) + (if (macro-fixnum-overflow-exception? _exn12098_) + (macro-fixnum-overflow-exception-arguments _exn12098_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12614 + (let ((__tmp12791 (let () (declare (not safe)) - (cons _exn11921_ '())))) + (cons _exn12098_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp12614))))))) + __tmp12791))))))) (define fixnum-overflow-exception-procedure - (lambda (_exn11915_) + (lambda (_exn12092_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11915_)) - (let ((_e11918_ + (class-instance? RuntimeException::t _exn12092_)) + (let ((_e12095_ (let () (declare (not safe)) - (slot-ref _exn11915_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e11918_) - (macro-fixnum-overflow-exception-procedure _e11918_) + (slot-ref _exn12092_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e12095_) + (macro-fixnum-overflow-exception-procedure _e12095_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12617 + (let ((__tmp12794 (let () (declare (not safe)) - (cons _e11918_ '())))) + (cons _e12095_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp12617))))) - (if (macro-fixnum-overflow-exception? _exn11915_) - (macro-fixnum-overflow-exception-procedure _exn11915_) + __tmp12794))))) + (if (macro-fixnum-overflow-exception? _exn12092_) + (macro-fixnum-overflow-exception-procedure _exn12092_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp12616 + (let ((__tmp12793 (let () (declare (not safe)) - (cons _exn11915_ '())))) + (cons _exn12092_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp12616))))))) + __tmp12793))))))) (define heap-overflow-exception? - (lambda (_exn11909_) + (lambda (_exn12086_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11909_)) - (let ((_e11912_ + (class-instance? RuntimeException::t _exn12086_)) + (let ((_e12089_ (let () (declare (not safe)) - (slot-ref _exn11909_ 'exception)))) - (macro-heap-overflow-exception? _e11912_)) - (macro-heap-overflow-exception? _exn11909_)))) + (slot-ref _exn12086_ 'exception)))) + (macro-heap-overflow-exception? _e12089_)) + (macro-heap-overflow-exception? _exn12086_)))) (define inactive-thread-exception? - (lambda (_exn11905_) + (lambda (_exn12082_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11905_)) - (let ((_e11907_ + (class-instance? RuntimeException::t _exn12082_)) + (let ((_e12084_ (let () (declare (not safe)) - (slot-ref _exn11905_ 'exception)))) - (macro-inactive-thread-exception? _e11907_)) - (macro-inactive-thread-exception? _exn11905_)))) + (slot-ref _exn12082_ 'exception)))) + (macro-inactive-thread-exception? _e12084_)) + (macro-inactive-thread-exception? _exn12082_)))) (define inactive-thread-exception-arguments - (lambda (_exn11901_) + (lambda (_exn12078_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11901_)) - (let ((_e11903_ + (class-instance? RuntimeException::t _exn12078_)) + (let ((_e12080_ (let () (declare (not safe)) - (slot-ref _exn11901_ 'exception)))) - (if (macro-inactive-thread-exception? _e11903_) - (macro-inactive-thread-exception-arguments _e11903_) + (slot-ref _exn12078_ 'exception)))) + (if (macro-inactive-thread-exception? _e12080_) + (macro-inactive-thread-exception-arguments _e12080_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12619 + (let ((__tmp12796 (let () (declare (not safe)) - (cons _e11903_ '())))) + (cons _e12080_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp12619))))) - (if (macro-inactive-thread-exception? _exn11901_) - (macro-inactive-thread-exception-arguments _exn11901_) + __tmp12796))))) + (if (macro-inactive-thread-exception? _exn12078_) + (macro-inactive-thread-exception-arguments _exn12078_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12618 + (let ((__tmp12795 (let () (declare (not safe)) - (cons _exn11901_ '())))) + (cons _exn12078_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp12618))))))) + __tmp12795))))))) (define inactive-thread-exception-procedure - (lambda (_exn11895_) + (lambda (_exn12072_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11895_)) - (let ((_e11898_ + (class-instance? RuntimeException::t _exn12072_)) + (let ((_e12075_ (let () (declare (not safe)) - (slot-ref _exn11895_ 'exception)))) - (if (macro-inactive-thread-exception? _e11898_) - (macro-inactive-thread-exception-procedure _e11898_) + (slot-ref _exn12072_ 'exception)))) + (if (macro-inactive-thread-exception? _e12075_) + (macro-inactive-thread-exception-procedure _e12075_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12621 + (let ((__tmp12798 (let () (declare (not safe)) - (cons _e11898_ '())))) + (cons _e12075_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp12621))))) - (if (macro-inactive-thread-exception? _exn11895_) - (macro-inactive-thread-exception-procedure _exn11895_) + __tmp12798))))) + (if (macro-inactive-thread-exception? _exn12072_) + (macro-inactive-thread-exception-procedure _exn12072_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp12620 + (let ((__tmp12797 (let () (declare (not safe)) - (cons _exn11895_ '())))) + (cons _exn12072_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp12620))))))) + __tmp12797))))))) (define initialized-thread-exception? - (lambda (_exn11891_) + (lambda (_exn12068_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11891_)) - (let ((_e11893_ + (class-instance? RuntimeException::t _exn12068_)) + (let ((_e12070_ (let () (declare (not safe)) - (slot-ref _exn11891_ 'exception)))) - (macro-initialized-thread-exception? _e11893_)) - (macro-initialized-thread-exception? _exn11891_)))) + (slot-ref _exn12068_ 'exception)))) + (macro-initialized-thread-exception? _e12070_)) + (macro-initialized-thread-exception? _exn12068_)))) (define initialized-thread-exception-arguments - (lambda (_exn11887_) + (lambda (_exn12064_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11887_)) - (let ((_e11889_ + (class-instance? RuntimeException::t _exn12064_)) + (let ((_e12066_ (let () (declare (not safe)) - (slot-ref _exn11887_ 'exception)))) - (if (macro-initialized-thread-exception? _e11889_) - (macro-initialized-thread-exception-arguments _e11889_) + (slot-ref _exn12064_ 'exception)))) + (if (macro-initialized-thread-exception? _e12066_) + (macro-initialized-thread-exception-arguments _e12066_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12623 + (let ((__tmp12800 (let () (declare (not safe)) - (cons _e11889_ '())))) + (cons _e12066_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp12623))))) - (if (macro-initialized-thread-exception? _exn11887_) - (macro-initialized-thread-exception-arguments _exn11887_) + __tmp12800))))) + (if (macro-initialized-thread-exception? _exn12064_) + (macro-initialized-thread-exception-arguments _exn12064_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12622 + (let ((__tmp12799 (let () (declare (not safe)) - (cons _exn11887_ '())))) + (cons _exn12064_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp12622))))))) + __tmp12799))))))) (define initialized-thread-exception-procedure - (lambda (_exn11881_) + (lambda (_exn12058_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11881_)) - (let ((_e11884_ + (class-instance? RuntimeException::t _exn12058_)) + (let ((_e12061_ (let () (declare (not safe)) - (slot-ref _exn11881_ 'exception)))) - (if (macro-initialized-thread-exception? _e11884_) - (macro-initialized-thread-exception-procedure _e11884_) + (slot-ref _exn12058_ 'exception)))) + (if (macro-initialized-thread-exception? _e12061_) + (macro-initialized-thread-exception-procedure _e12061_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12625 + (let ((__tmp12802 (let () (declare (not safe)) - (cons _e11884_ '())))) + (cons _e12061_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp12625))))) - (if (macro-initialized-thread-exception? _exn11881_) - (macro-initialized-thread-exception-procedure _exn11881_) + __tmp12802))))) + (if (macro-initialized-thread-exception? _exn12058_) + (macro-initialized-thread-exception-procedure _exn12058_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp12624 + (let ((__tmp12801 (let () (declare (not safe)) - (cons _exn11881_ '())))) + (cons _exn12058_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp12624))))))) + __tmp12801))))))) (define invalid-hash-number-exception? - (lambda (_exn11877_) + (lambda (_exn12054_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11877_)) - (let ((_e11879_ + (class-instance? RuntimeException::t _exn12054_)) + (let ((_e12056_ (let () (declare (not safe)) - (slot-ref _exn11877_ 'exception)))) - (macro-invalid-hash-number-exception? _e11879_)) - (macro-invalid-hash-number-exception? _exn11877_)))) + (slot-ref _exn12054_ 'exception)))) + (macro-invalid-hash-number-exception? _e12056_)) + (macro-invalid-hash-number-exception? _exn12054_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn11873_) + (lambda (_exn12050_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11873_)) - (let ((_e11875_ + (class-instance? RuntimeException::t _exn12050_)) + (let ((_e12052_ (let () (declare (not safe)) - (slot-ref _exn11873_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e11875_) - (macro-invalid-hash-number-exception-arguments _e11875_) + (slot-ref _exn12050_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e12052_) + (macro-invalid-hash-number-exception-arguments _e12052_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12627 + (let ((__tmp12804 (let () (declare (not safe)) - (cons _e11875_ '())))) + (cons _e12052_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp12627))))) - (if (macro-invalid-hash-number-exception? _exn11873_) - (macro-invalid-hash-number-exception-arguments _exn11873_) + __tmp12804))))) + (if (macro-invalid-hash-number-exception? _exn12050_) + (macro-invalid-hash-number-exception-arguments _exn12050_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12626 + (let ((__tmp12803 (let () (declare (not safe)) - (cons _exn11873_ '())))) + (cons _exn12050_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp12626))))))) + __tmp12803))))))) (define invalid-hash-number-exception-procedure - (lambda (_exn11867_) + (lambda (_exn12044_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11867_)) - (let ((_e11870_ + (class-instance? RuntimeException::t _exn12044_)) + (let ((_e12047_ (let () (declare (not safe)) - (slot-ref _exn11867_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e11870_) - (macro-invalid-hash-number-exception-procedure _e11870_) + (slot-ref _exn12044_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e12047_) + (macro-invalid-hash-number-exception-procedure _e12047_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12629 + (let ((__tmp12806 (let () (declare (not safe)) - (cons _e11870_ '())))) + (cons _e12047_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp12629))))) - (if (macro-invalid-hash-number-exception? _exn11867_) - (macro-invalid-hash-number-exception-procedure _exn11867_) + __tmp12806))))) + (if (macro-invalid-hash-number-exception? _exn12044_) + (macro-invalid-hash-number-exception-procedure _exn12044_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp12628 + (let ((__tmp12805 (let () (declare (not safe)) - (cons _exn11867_ '())))) + (cons _exn12044_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp12628))))))) + __tmp12805))))))) (define invalid-utf8-encoding-exception? - (lambda (_exn11863_) + (lambda (_exn12040_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11863_)) - (let ((_e11865_ + (class-instance? RuntimeException::t _exn12040_)) + (let ((_e12042_ (let () (declare (not safe)) - (slot-ref _exn11863_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _e11865_)) - (macro-invalid-utf8-encoding-exception? _exn11863_)))) + (slot-ref _exn12040_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e12042_)) + (macro-invalid-utf8-encoding-exception? _exn12040_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn11859_) + (lambda (_exn12036_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11859_)) - (let ((_e11861_ + (class-instance? RuntimeException::t _exn12036_)) + (let ((_e12038_ (let () (declare (not safe)) - (slot-ref _exn11859_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e11861_) - (macro-invalid-utf8-encoding-exception-arguments _e11861_) + (slot-ref _exn12036_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e12038_) + (macro-invalid-utf8-encoding-exception-arguments _e12038_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12631 + (let ((__tmp12808 (let () (declare (not safe)) - (cons _e11861_ '())))) + (cons _e12038_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp12631))))) - (if (macro-invalid-utf8-encoding-exception? _exn11859_) - (macro-invalid-utf8-encoding-exception-arguments _exn11859_) + __tmp12808))))) + (if (macro-invalid-utf8-encoding-exception? _exn12036_) + (macro-invalid-utf8-encoding-exception-arguments _exn12036_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12630 + (let ((__tmp12807 (let () (declare (not safe)) - (cons _exn11859_ '())))) + (cons _exn12036_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp12630))))))) + __tmp12807))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn11853_) + (lambda (_exn12030_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11853_)) - (let ((_e11856_ + (class-instance? RuntimeException::t _exn12030_)) + (let ((_e12033_ (let () (declare (not safe)) - (slot-ref _exn11853_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e11856_) - (macro-invalid-utf8-encoding-exception-procedure _e11856_) + (slot-ref _exn12030_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e12033_) + (macro-invalid-utf8-encoding-exception-procedure _e12033_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12633 + (let ((__tmp12810 (let () (declare (not safe)) - (cons _e11856_ '())))) + (cons _e12033_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp12633))))) - (if (macro-invalid-utf8-encoding-exception? _exn11853_) - (macro-invalid-utf8-encoding-exception-procedure _exn11853_) + __tmp12810))))) + (if (macro-invalid-utf8-encoding-exception? _exn12030_) + (macro-invalid-utf8-encoding-exception-procedure _exn12030_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp12632 + (let ((__tmp12809 (let () (declare (not safe)) - (cons _exn11853_ '())))) + (cons _exn12030_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp12632))))))) + __tmp12809))))))) (define join-timeout-exception? - (lambda (_exn11849_) + (lambda (_exn12026_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11849_)) - (let ((_e11851_ + (class-instance? RuntimeException::t _exn12026_)) + (let ((_e12028_ (let () (declare (not safe)) - (slot-ref _exn11849_ 'exception)))) - (macro-join-timeout-exception? _e11851_)) - (macro-join-timeout-exception? _exn11849_)))) + (slot-ref _exn12026_ 'exception)))) + (macro-join-timeout-exception? _e12028_)) + (macro-join-timeout-exception? _exn12026_)))) (define join-timeout-exception-arguments - (lambda (_exn11845_) + (lambda (_exn12022_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11845_)) - (let ((_e11847_ + (class-instance? RuntimeException::t _exn12022_)) + (let ((_e12024_ (let () (declare (not safe)) - (slot-ref _exn11845_ 'exception)))) - (if (macro-join-timeout-exception? _e11847_) - (macro-join-timeout-exception-arguments _e11847_) + (slot-ref _exn12022_ 'exception)))) + (if (macro-join-timeout-exception? _e12024_) + (macro-join-timeout-exception-arguments _e12024_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12635 + (let ((__tmp12812 (let () (declare (not safe)) - (cons _e11847_ '())))) + (cons _e12024_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp12635))))) - (if (macro-join-timeout-exception? _exn11845_) - (macro-join-timeout-exception-arguments _exn11845_) + __tmp12812))))) + (if (macro-join-timeout-exception? _exn12022_) + (macro-join-timeout-exception-arguments _exn12022_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12634 + (let ((__tmp12811 (let () (declare (not safe)) - (cons _exn11845_ '())))) + (cons _exn12022_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp12634))))))) + __tmp12811))))))) (define join-timeout-exception-procedure - (lambda (_exn11839_) + (lambda (_exn12016_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11839_)) - (let ((_e11842_ + (class-instance? RuntimeException::t _exn12016_)) + (let ((_e12019_ (let () (declare (not safe)) - (slot-ref _exn11839_ 'exception)))) - (if (macro-join-timeout-exception? _e11842_) - (macro-join-timeout-exception-procedure _e11842_) + (slot-ref _exn12016_ 'exception)))) + (if (macro-join-timeout-exception? _e12019_) + (macro-join-timeout-exception-procedure _e12019_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12637 + (let ((__tmp12814 (let () (declare (not safe)) - (cons _e11842_ '())))) + (cons _e12019_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp12637))))) - (if (macro-join-timeout-exception? _exn11839_) - (macro-join-timeout-exception-procedure _exn11839_) + __tmp12814))))) + (if (macro-join-timeout-exception? _exn12016_) + (macro-join-timeout-exception-procedure _exn12016_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp12636 + (let ((__tmp12813 (let () (declare (not safe)) - (cons _exn11839_ '())))) + (cons _exn12016_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp12636))))))) + __tmp12813))))))) (define keyword-expected-exception? - (lambda (_exn11835_) + (lambda (_exn12012_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11835_)) - (let ((_e11837_ + (class-instance? RuntimeException::t _exn12012_)) + (let ((_e12014_ (let () (declare (not safe)) - (slot-ref _exn11835_ 'exception)))) - (macro-keyword-expected-exception? _e11837_)) - (macro-keyword-expected-exception? _exn11835_)))) + (slot-ref _exn12012_ 'exception)))) + (macro-keyword-expected-exception? _e12014_)) + (macro-keyword-expected-exception? _exn12012_)))) (define keyword-expected-exception-arguments - (lambda (_exn11831_) + (lambda (_exn12008_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11831_)) - (let ((_e11833_ + (class-instance? RuntimeException::t _exn12008_)) + (let ((_e12010_ (let () (declare (not safe)) - (slot-ref _exn11831_ 'exception)))) - (if (macro-keyword-expected-exception? _e11833_) - (macro-keyword-expected-exception-arguments _e11833_) + (slot-ref _exn12008_ 'exception)))) + (if (macro-keyword-expected-exception? _e12010_) + (macro-keyword-expected-exception-arguments _e12010_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12639 + (let ((__tmp12816 (let () (declare (not safe)) - (cons _e11833_ '())))) + (cons _e12010_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp12639))))) - (if (macro-keyword-expected-exception? _exn11831_) - (macro-keyword-expected-exception-arguments _exn11831_) + __tmp12816))))) + (if (macro-keyword-expected-exception? _exn12008_) + (macro-keyword-expected-exception-arguments _exn12008_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12638 + (let ((__tmp12815 (let () (declare (not safe)) - (cons _exn11831_ '())))) + (cons _exn12008_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp12638))))))) + __tmp12815))))))) (define keyword-expected-exception-procedure - (lambda (_exn11825_) + (lambda (_exn12002_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11825_)) - (let ((_e11828_ + (class-instance? RuntimeException::t _exn12002_)) + (let ((_e12005_ (let () (declare (not safe)) - (slot-ref _exn11825_ 'exception)))) - (if (macro-keyword-expected-exception? _e11828_) - (macro-keyword-expected-exception-procedure _e11828_) + (slot-ref _exn12002_ 'exception)))) + (if (macro-keyword-expected-exception? _e12005_) + (macro-keyword-expected-exception-procedure _e12005_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12641 + (let ((__tmp12818 (let () (declare (not safe)) - (cons _e11828_ '())))) + (cons _e12005_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp12641))))) - (if (macro-keyword-expected-exception? _exn11825_) - (macro-keyword-expected-exception-procedure _exn11825_) + __tmp12818))))) + (if (macro-keyword-expected-exception? _exn12002_) + (macro-keyword-expected-exception-procedure _exn12002_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp12640 + (let ((__tmp12817 (let () (declare (not safe)) - (cons _exn11825_ '())))) + (cons _exn12002_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp12640))))))) + __tmp12817))))))) (define length-mismatch-exception? - (lambda (_exn11821_) + (lambda (_exn11998_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11821_)) - (let ((_e11823_ + (class-instance? RuntimeException::t _exn11998_)) + (let ((_e12000_ (let () (declare (not safe)) - (slot-ref _exn11821_ 'exception)))) - (macro-length-mismatch-exception? _e11823_)) - (macro-length-mismatch-exception? _exn11821_)))) + (slot-ref _exn11998_ 'exception)))) + (macro-length-mismatch-exception? _e12000_)) + (macro-length-mismatch-exception? _exn11998_)))) (define length-mismatch-exception-arg-id - (lambda (_exn11817_) + (lambda (_exn11994_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11817_)) - (let ((_e11819_ + (class-instance? RuntimeException::t _exn11994_)) + (let ((_e11996_ (let () (declare (not safe)) - (slot-ref _exn11817_ 'exception)))) - (if (macro-length-mismatch-exception? _e11819_) - (macro-length-mismatch-exception-arg-id _e11819_) + (slot-ref _exn11994_ 'exception)))) + (if (macro-length-mismatch-exception? _e11996_) + (macro-length-mismatch-exception-arg-id _e11996_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12643 + (let ((__tmp12820 (let () (declare (not safe)) - (cons _e11819_ '())))) + (cons _e11996_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp12643))))) - (if (macro-length-mismatch-exception? _exn11817_) - (macro-length-mismatch-exception-arg-id _exn11817_) + __tmp12820))))) + (if (macro-length-mismatch-exception? _exn11994_) + (macro-length-mismatch-exception-arg-id _exn11994_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12642 + (let ((__tmp12819 (let () (declare (not safe)) - (cons _exn11817_ '())))) + (cons _exn11994_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp12642))))))) + __tmp12819))))))) (define length-mismatch-exception-arguments - (lambda (_exn11813_) + (lambda (_exn11990_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11813_)) - (let ((_e11815_ + (class-instance? RuntimeException::t _exn11990_)) + (let ((_e11992_ (let () (declare (not safe)) - (slot-ref _exn11813_ 'exception)))) - (if (macro-length-mismatch-exception? _e11815_) - (macro-length-mismatch-exception-arguments _e11815_) + (slot-ref _exn11990_ 'exception)))) + (if (macro-length-mismatch-exception? _e11992_) + (macro-length-mismatch-exception-arguments _e11992_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12645 + (let ((__tmp12822 (let () (declare (not safe)) - (cons _e11815_ '())))) + (cons _e11992_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp12645))))) - (if (macro-length-mismatch-exception? _exn11813_) - (macro-length-mismatch-exception-arguments _exn11813_) + __tmp12822))))) + (if (macro-length-mismatch-exception? _exn11990_) + (macro-length-mismatch-exception-arguments _exn11990_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12644 + (let ((__tmp12821 (let () (declare (not safe)) - (cons _exn11813_ '())))) + (cons _exn11990_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp12644))))))) + __tmp12821))))))) (define length-mismatch-exception-procedure - (lambda (_exn11807_) + (lambda (_exn11984_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11807_)) - (let ((_e11810_ + (class-instance? RuntimeException::t _exn11984_)) + (let ((_e11987_ (let () (declare (not safe)) - (slot-ref _exn11807_ 'exception)))) - (if (macro-length-mismatch-exception? _e11810_) - (macro-length-mismatch-exception-procedure _e11810_) + (slot-ref _exn11984_ 'exception)))) + (if (macro-length-mismatch-exception? _e11987_) + (macro-length-mismatch-exception-procedure _e11987_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12647 + (let ((__tmp12824 (let () (declare (not safe)) - (cons _e11810_ '())))) + (cons _e11987_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp12647))))) - (if (macro-length-mismatch-exception? _exn11807_) - (macro-length-mismatch-exception-procedure _exn11807_) + __tmp12824))))) + (if (macro-length-mismatch-exception? _exn11984_) + (macro-length-mismatch-exception-procedure _exn11984_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp12646 + (let ((__tmp12823 (let () (declare (not safe)) - (cons _exn11807_ '())))) + (cons _exn11984_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp12646))))))) + __tmp12823))))))) (define mailbox-receive-timeout-exception? - (lambda (_exn11803_) + (lambda (_exn11980_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11803_)) - (let ((_e11805_ + (class-instance? RuntimeException::t _exn11980_)) + (let ((_e11982_ (let () (declare (not safe)) - (slot-ref _exn11803_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _e11805_)) - (macro-mailbox-receive-timeout-exception? _exn11803_)))) + (slot-ref _exn11980_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e11982_)) + (macro-mailbox-receive-timeout-exception? _exn11980_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn11799_) + (lambda (_exn11976_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11799_)) - (let ((_e11801_ + (class-instance? RuntimeException::t _exn11976_)) + (let ((_e11978_ (let () (declare (not safe)) - (slot-ref _exn11799_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e11801_) - (macro-mailbox-receive-timeout-exception-arguments _e11801_) + (slot-ref _exn11976_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e11978_) + (macro-mailbox-receive-timeout-exception-arguments _e11978_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12649 + (let ((__tmp12826 (let () (declare (not safe)) - (cons _e11801_ '())))) + (cons _e11978_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp12649))))) - (if (macro-mailbox-receive-timeout-exception? _exn11799_) - (macro-mailbox-receive-timeout-exception-arguments _exn11799_) + __tmp12826))))) + (if (macro-mailbox-receive-timeout-exception? _exn11976_) + (macro-mailbox-receive-timeout-exception-arguments _exn11976_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12648 + (let ((__tmp12825 (let () (declare (not safe)) - (cons _exn11799_ '())))) + (cons _exn11976_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp12648))))))) + __tmp12825))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn11793_) + (lambda (_exn11970_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11793_)) - (let ((_e11796_ + (class-instance? RuntimeException::t _exn11970_)) + (let ((_e11973_ (let () (declare (not safe)) - (slot-ref _exn11793_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e11796_) - (macro-mailbox-receive-timeout-exception-procedure _e11796_) + (slot-ref _exn11970_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e11973_) + (macro-mailbox-receive-timeout-exception-procedure _e11973_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12651 + (let ((__tmp12828 (let () (declare (not safe)) - (cons _e11796_ '())))) + (cons _e11973_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp12651))))) - (if (macro-mailbox-receive-timeout-exception? _exn11793_) - (macro-mailbox-receive-timeout-exception-procedure _exn11793_) + __tmp12828))))) + (if (macro-mailbox-receive-timeout-exception? _exn11970_) + (macro-mailbox-receive-timeout-exception-procedure _exn11970_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp12650 + (let ((__tmp12827 (let () (declare (not safe)) - (cons _exn11793_ '())))) + (cons _exn11970_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp12650))))))) + __tmp12827))))))) (define module-not-found-exception? - (lambda (_exn11789_) + (lambda (_exn11966_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11789_)) - (let ((_e11791_ + (class-instance? RuntimeException::t _exn11966_)) + (let ((_e11968_ (let () (declare (not safe)) - (slot-ref _exn11789_ 'exception)))) - (macro-module-not-found-exception? _e11791_)) - (macro-module-not-found-exception? _exn11789_)))) + (slot-ref _exn11966_ 'exception)))) + (macro-module-not-found-exception? _e11968_)) + (macro-module-not-found-exception? _exn11966_)))) (define module-not-found-exception-arguments - (lambda (_exn11785_) + (lambda (_exn11962_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11785_)) - (let ((_e11787_ + (class-instance? RuntimeException::t _exn11962_)) + (let ((_e11964_ (let () (declare (not safe)) - (slot-ref _exn11785_ 'exception)))) - (if (macro-module-not-found-exception? _e11787_) - (macro-module-not-found-exception-arguments _e11787_) + (slot-ref _exn11962_ 'exception)))) + (if (macro-module-not-found-exception? _e11964_) + (macro-module-not-found-exception-arguments _e11964_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12653 + (let ((__tmp12830 (let () (declare (not safe)) - (cons _e11787_ '())))) + (cons _e11964_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp12653))))) - (if (macro-module-not-found-exception? _exn11785_) - (macro-module-not-found-exception-arguments _exn11785_) + __tmp12830))))) + (if (macro-module-not-found-exception? _exn11962_) + (macro-module-not-found-exception-arguments _exn11962_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12652 + (let ((__tmp12829 (let () (declare (not safe)) - (cons _exn11785_ '())))) + (cons _exn11962_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp12652))))))) + __tmp12829))))))) (define module-not-found-exception-procedure - (lambda (_exn11779_) + (lambda (_exn11956_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11779_)) - (let ((_e11782_ + (class-instance? RuntimeException::t _exn11956_)) + (let ((_e11959_ (let () (declare (not safe)) - (slot-ref _exn11779_ 'exception)))) - (if (macro-module-not-found-exception? _e11782_) - (macro-module-not-found-exception-procedure _e11782_) + (slot-ref _exn11956_ 'exception)))) + (if (macro-module-not-found-exception? _e11959_) + (macro-module-not-found-exception-procedure _e11959_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12655 + (let ((__tmp12832 (let () (declare (not safe)) - (cons _e11782_ '())))) + (cons _e11959_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp12655))))) - (if (macro-module-not-found-exception? _exn11779_) - (macro-module-not-found-exception-procedure _exn11779_) + __tmp12832))))) + (if (macro-module-not-found-exception? _exn11956_) + (macro-module-not-found-exception-procedure _exn11956_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp12654 + (let ((__tmp12831 (let () (declare (not safe)) - (cons _exn11779_ '())))) + (cons _exn11956_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp12654))))))) + __tmp12831))))))) (define multiple-c-return-exception? - (lambda (_exn11773_) + (lambda (_exn11950_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11773_)) - (let ((_e11776_ + (class-instance? RuntimeException::t _exn11950_)) + (let ((_e11953_ (let () (declare (not safe)) - (slot-ref _exn11773_ 'exception)))) - (macro-multiple-c-return-exception? _e11776_)) - (macro-multiple-c-return-exception? _exn11773_)))) + (slot-ref _exn11950_ 'exception)))) + (macro-multiple-c-return-exception? _e11953_)) + (macro-multiple-c-return-exception? _exn11950_)))) (define no-such-file-or-directory-exception? - (lambda (_exn11769_) + (lambda (_exn11946_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11769_)) - (let ((_e11771_ + (class-instance? RuntimeException::t _exn11946_)) + (let ((_e11948_ (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 _exn11946_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e11948_)) + (macro-no-such-file-or-directory-exception? _exn11946_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn11765_) + (lambda (_exn11942_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11765_)) - (let ((_e11767_ + (class-instance? RuntimeException::t _exn11942_)) + (let ((_e11944_ (let () (declare (not safe)) - (slot-ref _exn11765_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e11767_) + (slot-ref _exn11942_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e11944_) (macro-no-such-file-or-directory-exception-arguments - _e11767_) + _e11944_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12657 + (let ((__tmp12834 (let () (declare (not safe)) - (cons _e11767_ '())))) + (cons _e11944_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp12657))))) - (if (macro-no-such-file-or-directory-exception? _exn11765_) + __tmp12834))))) + (if (macro-no-such-file-or-directory-exception? _exn11942_) (macro-no-such-file-or-directory-exception-arguments - _exn11765_) + _exn11942_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12656 + (let ((__tmp12833 (let () (declare (not safe)) - (cons _exn11765_ '())))) + (cons _exn11942_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp12656))))))) + __tmp12833))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn11759_) + (lambda (_exn11936_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11759_)) - (let ((_e11762_ + (class-instance? RuntimeException::t _exn11936_)) + (let ((_e11939_ (let () (declare (not safe)) - (slot-ref _exn11759_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e11762_) + (slot-ref _exn11936_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e11939_) (macro-no-such-file-or-directory-exception-procedure - _e11762_) + _e11939_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12659 + (let ((__tmp12836 (let () (declare (not safe)) - (cons _e11762_ '())))) + (cons _e11939_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp12659))))) - (if (macro-no-such-file-or-directory-exception? _exn11759_) + __tmp12836))))) + (if (macro-no-such-file-or-directory-exception? _exn11936_) (macro-no-such-file-or-directory-exception-procedure - _exn11759_) + _exn11936_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp12658 + (let ((__tmp12835 (let () (declare (not safe)) - (cons _exn11759_ '())))) + (cons _exn11936_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp12658))))))) + __tmp12835))))))) (define noncontinuable-exception? - (lambda (_exn11755_) + (lambda (_exn11932_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11755_)) - (let ((_e11757_ + (class-instance? RuntimeException::t _exn11932_)) + (let ((_e11934_ (let () (declare (not safe)) - (slot-ref _exn11755_ 'exception)))) - (macro-noncontinuable-exception? _e11757_)) - (macro-noncontinuable-exception? _exn11755_)))) + (slot-ref _exn11932_ 'exception)))) + (macro-noncontinuable-exception? _e11934_)) + (macro-noncontinuable-exception? _exn11932_)))) (define noncontinuable-exception-reason - (lambda (_exn11749_) + (lambda (_exn11926_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11749_)) - (let ((_e11752_ + (class-instance? RuntimeException::t _exn11926_)) + (let ((_e11929_ (let () (declare (not safe)) - (slot-ref _exn11749_ 'exception)))) - (if (macro-noncontinuable-exception? _e11752_) - (macro-noncontinuable-exception-reason _e11752_) + (slot-ref _exn11926_ 'exception)))) + (if (macro-noncontinuable-exception? _e11929_) + (macro-noncontinuable-exception-reason _e11929_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp12661 + (let ((__tmp12838 (let () (declare (not safe)) - (cons _e11752_ '())))) + (cons _e11929_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp12661))))) - (if (macro-noncontinuable-exception? _exn11749_) - (macro-noncontinuable-exception-reason _exn11749_) + __tmp12838))))) + (if (macro-noncontinuable-exception? _exn11926_) + (macro-noncontinuable-exception-reason _exn11926_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp12660 + (let ((__tmp12837 (let () (declare (not safe)) - (cons _exn11749_ '())))) + (cons _exn11926_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp12660))))))) + __tmp12837))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn11745_) + (lambda (_exn11922_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11745_)) - (let ((_e11747_ + (class-instance? RuntimeException::t _exn11922_)) + (let ((_e11924_ (let () (declare (not safe)) - (slot-ref _exn11745_ 'exception)))) - (macro-nonempty-input-port-character-buffer-exception? _e11747_)) + (slot-ref _exn11922_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e11924_)) (macro-nonempty-input-port-character-buffer-exception? - _exn11745_)))) + _exn11922_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn11741_) + (lambda (_exn11918_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11741_)) - (let ((_e11743_ + (class-instance? RuntimeException::t _exn11918_)) + (let ((_e11920_ (let () (declare (not safe)) - (slot-ref _exn11741_ 'exception)))) + (slot-ref _exn11918_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e11743_) + _e11920_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e11743_) + _e11920_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12663 + (let ((__tmp12840 (let () (declare (not safe)) - (cons _e11743_ '())))) + (cons _e11920_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp12663))))) + __tmp12840))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn11741_) + _exn11918_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn11741_) + _exn11918_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12662 + (let ((__tmp12839 (let () (declare (not safe)) - (cons _exn11741_ '())))) + (cons _exn11918_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp12662))))))) + __tmp12839))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn11735_) + (lambda (_exn11912_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11735_)) - (let ((_e11738_ + (class-instance? RuntimeException::t _exn11912_)) + (let ((_e11915_ (let () (declare (not safe)) - (slot-ref _exn11735_ 'exception)))) + (slot-ref _exn11912_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e11738_) + _e11915_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e11738_) + _e11915_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12665 + (let ((__tmp12842 (let () (declare (not safe)) - (cons _e11738_ '())))) + (cons _e11915_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp12665))))) + __tmp12842))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn11735_) + _exn11912_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn11735_) + _exn11912_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp12664 + (let ((__tmp12841 (let () (declare (not safe)) - (cons _exn11735_ '())))) + (cons _exn11912_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp12664))))))) + __tmp12841))))))) (define nonprocedure-operator-exception? - (lambda (_exn11731_) + (lambda (_exn11908_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11731_)) - (let ((_e11733_ + (class-instance? RuntimeException::t _exn11908_)) + (let ((_e11910_ (let () (declare (not safe)) - (slot-ref _exn11731_ 'exception)))) - (macro-nonprocedure-operator-exception? _e11733_)) - (macro-nonprocedure-operator-exception? _exn11731_)))) + (slot-ref _exn11908_ 'exception)))) + (macro-nonprocedure-operator-exception? _e11910_)) + (macro-nonprocedure-operator-exception? _exn11908_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn11727_) + (lambda (_exn11904_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11727_)) - (let ((_e11729_ + (class-instance? RuntimeException::t _exn11904_)) + (let ((_e11906_ (let () (declare (not safe)) - (slot-ref _exn11727_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11729_) - (macro-nonprocedure-operator-exception-arguments _e11729_) + (slot-ref _exn11904_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11906_) + (macro-nonprocedure-operator-exception-arguments _e11906_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12667 + (let ((__tmp12844 (let () (declare (not safe)) - (cons _e11729_ '())))) + (cons _e11906_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp12667))))) - (if (macro-nonprocedure-operator-exception? _exn11727_) - (macro-nonprocedure-operator-exception-arguments _exn11727_) + __tmp12844))))) + (if (macro-nonprocedure-operator-exception? _exn11904_) + (macro-nonprocedure-operator-exception-arguments _exn11904_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12666 + (let ((__tmp12843 (let () (declare (not safe)) - (cons _exn11727_ '())))) + (cons _exn11904_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp12666))))))) + __tmp12843))))))) (define nonprocedure-operator-exception-code - (lambda (_exn11723_) + (lambda (_exn11900_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11723_)) - (let ((_e11725_ + (class-instance? RuntimeException::t _exn11900_)) + (let ((_e11902_ (let () (declare (not safe)) - (slot-ref _exn11723_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11725_) - (macro-nonprocedure-operator-exception-code _e11725_) + (slot-ref _exn11900_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11902_) + (macro-nonprocedure-operator-exception-code _e11902_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12669 + (let ((__tmp12846 (let () (declare (not safe)) - (cons _e11725_ '())))) + (cons _e11902_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp12669))))) - (if (macro-nonprocedure-operator-exception? _exn11723_) - (macro-nonprocedure-operator-exception-code _exn11723_) + __tmp12846))))) + (if (macro-nonprocedure-operator-exception? _exn11900_) + (macro-nonprocedure-operator-exception-code _exn11900_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12668 + (let ((__tmp12845 (let () (declare (not safe)) - (cons _exn11723_ '())))) + (cons _exn11900_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp12668))))))) + __tmp12845))))))) (define nonprocedure-operator-exception-operator - (lambda (_exn11719_) + (lambda (_exn11896_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11719_)) - (let ((_e11721_ + (class-instance? RuntimeException::t _exn11896_)) + (let ((_e11898_ (let () (declare (not safe)) - (slot-ref _exn11719_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11721_) - (macro-nonprocedure-operator-exception-operator _e11721_) + (slot-ref _exn11896_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11898_) + (macro-nonprocedure-operator-exception-operator _e11898_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12671 + (let ((__tmp12848 (let () (declare (not safe)) - (cons _e11721_ '())))) + (cons _e11898_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp12671))))) - (if (macro-nonprocedure-operator-exception? _exn11719_) - (macro-nonprocedure-operator-exception-operator _exn11719_) + __tmp12848))))) + (if (macro-nonprocedure-operator-exception? _exn11896_) + (macro-nonprocedure-operator-exception-operator _exn11896_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12670 + (let ((__tmp12847 (let () (declare (not safe)) - (cons _exn11719_ '())))) + (cons _exn11896_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp12670))))))) + __tmp12847))))))) (define nonprocedure-operator-exception-rte - (lambda (_exn11713_) + (lambda (_exn11890_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11713_)) - (let ((_e11716_ + (class-instance? RuntimeException::t _exn11890_)) + (let ((_e11893_ (let () (declare (not safe)) - (slot-ref _exn11713_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e11716_) - (macro-nonprocedure-operator-exception-rte _e11716_) + (slot-ref _exn11890_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e11893_) + (macro-nonprocedure-operator-exception-rte _e11893_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12673 + (let ((__tmp12850 (let () (declare (not safe)) - (cons _e11716_ '())))) + (cons _e11893_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp12673))))) - (if (macro-nonprocedure-operator-exception? _exn11713_) - (macro-nonprocedure-operator-exception-rte _exn11713_) + __tmp12850))))) + (if (macro-nonprocedure-operator-exception? _exn11890_) + (macro-nonprocedure-operator-exception-rte _exn11890_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp12672 + (let ((__tmp12849 (let () (declare (not safe)) - (cons _exn11713_ '())))) + (cons _exn11890_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp12672))))))) + __tmp12849))))))) (define not-in-compilation-context-exception? - (lambda (_exn11709_) + (lambda (_exn11886_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11709_)) - (let ((_e11711_ + (class-instance? RuntimeException::t _exn11886_)) + (let ((_e11888_ (let () (declare (not safe)) - (slot-ref _exn11709_ 'exception)))) - (macro-not-in-compilation-context-exception? _e11711_)) - (macro-not-in-compilation-context-exception? _exn11709_)))) + (slot-ref _exn11886_ 'exception)))) + (macro-not-in-compilation-context-exception? _e11888_)) + (macro-not-in-compilation-context-exception? _exn11886_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn11705_) + (lambda (_exn11882_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11705_)) - (let ((_e11707_ + (class-instance? RuntimeException::t _exn11882_)) + (let ((_e11884_ (let () (declare (not safe)) - (slot-ref _exn11705_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e11707_) + (slot-ref _exn11882_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e11884_) (macro-not-in-compilation-context-exception-arguments - _e11707_) + _e11884_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12675 + (let ((__tmp12852 (let () (declare (not safe)) - (cons _e11707_ '())))) + (cons _e11884_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp12675))))) - (if (macro-not-in-compilation-context-exception? _exn11705_) + __tmp12852))))) + (if (macro-not-in-compilation-context-exception? _exn11882_) (macro-not-in-compilation-context-exception-arguments - _exn11705_) + _exn11882_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12674 + (let ((__tmp12851 (let () (declare (not safe)) - (cons _exn11705_ '())))) + (cons _exn11882_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp12674))))))) + __tmp12851))))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn11699_) + (lambda (_exn11876_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11699_)) - (let ((_e11702_ + (class-instance? RuntimeException::t _exn11876_)) + (let ((_e11879_ (let () (declare (not safe)) - (slot-ref _exn11699_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e11702_) + (slot-ref _exn11876_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e11879_) (macro-not-in-compilation-context-exception-procedure - _e11702_) + _e11879_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12677 + (let ((__tmp12854 (let () (declare (not safe)) - (cons _e11702_ '())))) + (cons _e11879_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp12677))))) - (if (macro-not-in-compilation-context-exception? _exn11699_) + __tmp12854))))) + (if (macro-not-in-compilation-context-exception? _exn11876_) (macro-not-in-compilation-context-exception-procedure - _exn11699_) + _exn11876_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp12676 + (let ((__tmp12853 (let () (declare (not safe)) - (cons _exn11699_ '())))) + (cons _exn11876_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp12676))))))) + __tmp12853))))))) (define number-of-arguments-limit-exception? - (lambda (_exn11695_) + (lambda (_exn11872_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11695_)) - (let ((_e11697_ + (class-instance? RuntimeException::t _exn11872_)) + (let ((_e11874_ (let () (declare (not safe)) - (slot-ref _exn11695_ 'exception)))) - (macro-number-of-arguments-limit-exception? _e11697_)) - (macro-number-of-arguments-limit-exception? _exn11695_)))) + (slot-ref _exn11872_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e11874_)) + (macro-number-of-arguments-limit-exception? _exn11872_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn11691_) + (lambda (_exn11868_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11691_)) - (let ((_e11693_ + (class-instance? RuntimeException::t _exn11868_)) + (let ((_e11870_ (let () (declare (not safe)) - (slot-ref _exn11691_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e11693_) + (slot-ref _exn11868_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e11870_) (macro-number-of-arguments-limit-exception-arguments - _e11693_) + _e11870_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12679 + (let ((__tmp12856 (let () (declare (not safe)) - (cons _e11693_ '())))) + (cons _e11870_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp12679))))) - (if (macro-number-of-arguments-limit-exception? _exn11691_) + __tmp12856))))) + (if (macro-number-of-arguments-limit-exception? _exn11868_) (macro-number-of-arguments-limit-exception-arguments - _exn11691_) + _exn11868_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12678 + (let ((__tmp12855 (let () (declare (not safe)) - (cons _exn11691_ '())))) + (cons _exn11868_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp12678))))))) + __tmp12855))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn11685_) + (lambda (_exn11862_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11685_)) - (let ((_e11688_ + (class-instance? RuntimeException::t _exn11862_)) + (let ((_e11865_ (let () (declare (not safe)) - (slot-ref _exn11685_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e11688_) + (slot-ref _exn11862_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e11865_) (macro-number-of-arguments-limit-exception-procedure - _e11688_) + _e11865_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12681 + (let ((__tmp12858 (let () (declare (not safe)) - (cons _e11688_ '())))) + (cons _e11865_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp12681))))) - (if (macro-number-of-arguments-limit-exception? _exn11685_) + __tmp12858))))) + (if (macro-number-of-arguments-limit-exception? _exn11862_) (macro-number-of-arguments-limit-exception-procedure - _exn11685_) + _exn11862_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp12680 + (let ((__tmp12857 (let () (declare (not safe)) - (cons _exn11685_ '())))) + (cons _exn11862_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp12680))))))) + __tmp12857))))))) (define os-exception? - (lambda (_exn11681_) + (lambda (_exn11858_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11681_)) - (let ((_e11683_ + (class-instance? RuntimeException::t _exn11858_)) + (let ((_e11860_ (let () (declare (not safe)) - (slot-ref _exn11681_ 'exception)))) - (macro-os-exception? _e11683_)) - (macro-os-exception? _exn11681_)))) + (slot-ref _exn11858_ 'exception)))) + (macro-os-exception? _e11860_)) + (macro-os-exception? _exn11858_)))) (define os-exception-arguments - (lambda (_exn11677_) + (lambda (_exn11854_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11677_)) - (let ((_e11679_ + (class-instance? RuntimeException::t _exn11854_)) + (let ((_e11856_ (let () (declare (not safe)) - (slot-ref _exn11677_ 'exception)))) - (if (macro-os-exception? _e11679_) - (macro-os-exception-arguments _e11679_) + (slot-ref _exn11854_ 'exception)))) + (if (macro-os-exception? _e11856_) + (macro-os-exception-arguments _e11856_) (error '"not an instance" 'os-exception? - (let ((__tmp12683 + (let ((__tmp12860 (let () (declare (not safe)) - (cons _e11679_ '())))) + (cons _e11856_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp12683))))) - (if (macro-os-exception? _exn11677_) - (macro-os-exception-arguments _exn11677_) + (cons 'os-exception-arguments __tmp12860))))) + (if (macro-os-exception? _exn11854_) + (macro-os-exception-arguments _exn11854_) (error '"not an instance" 'os-exception? - (let ((__tmp12682 + (let ((__tmp12859 (let () (declare (not safe)) - (cons _exn11677_ '())))) + (cons _exn11854_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp12682))))))) + (cons 'os-exception-arguments __tmp12859))))))) (define os-exception-code - (lambda (_exn11673_) + (lambda (_exn11850_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11673_)) - (let ((_e11675_ + (class-instance? RuntimeException::t _exn11850_)) + (let ((_e11852_ (let () (declare (not safe)) - (slot-ref _exn11673_ 'exception)))) - (if (macro-os-exception? _e11675_) - (macro-os-exception-code _e11675_) + (slot-ref _exn11850_ 'exception)))) + (if (macro-os-exception? _e11852_) + (macro-os-exception-code _e11852_) (error '"not an instance" 'os-exception? - (let ((__tmp12685 + (let ((__tmp12862 (let () (declare (not safe)) - (cons _e11675_ '())))) + (cons _e11852_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp12685))))) - (if (macro-os-exception? _exn11673_) - (macro-os-exception-code _exn11673_) + (cons 'os-exception-code __tmp12862))))) + (if (macro-os-exception? _exn11850_) + (macro-os-exception-code _exn11850_) (error '"not an instance" 'os-exception? - (let ((__tmp12684 + (let ((__tmp12861 (let () (declare (not safe)) - (cons _exn11673_ '())))) + (cons _exn11850_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp12684))))))) + (cons 'os-exception-code __tmp12861))))))) (define os-exception-message - (lambda (_exn11669_) + (lambda (_exn11846_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11669_)) - (let ((_e11671_ + (class-instance? RuntimeException::t _exn11846_)) + (let ((_e11848_ (let () (declare (not safe)) - (slot-ref _exn11669_ 'exception)))) - (if (macro-os-exception? _e11671_) - (macro-os-exception-message _e11671_) + (slot-ref _exn11846_ 'exception)))) + (if (macro-os-exception? _e11848_) + (macro-os-exception-message _e11848_) (error '"not an instance" 'os-exception? - (let ((__tmp12687 + (let ((__tmp12864 (let () (declare (not safe)) - (cons _e11671_ '())))) + (cons _e11848_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp12687))))) - (if (macro-os-exception? _exn11669_) - (macro-os-exception-message _exn11669_) + (cons 'os-exception-message __tmp12864))))) + (if (macro-os-exception? _exn11846_) + (macro-os-exception-message _exn11846_) (error '"not an instance" 'os-exception? - (let ((__tmp12686 + (let ((__tmp12863 (let () (declare (not safe)) - (cons _exn11669_ '())))) + (cons _exn11846_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp12686))))))) + (cons 'os-exception-message __tmp12863))))))) (define os-exception-procedure - (lambda (_exn11663_) + (lambda (_exn11840_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11663_)) - (let ((_e11666_ + (class-instance? RuntimeException::t _exn11840_)) + (let ((_e11843_ (let () (declare (not safe)) - (slot-ref _exn11663_ 'exception)))) - (if (macro-os-exception? _e11666_) - (macro-os-exception-procedure _e11666_) + (slot-ref _exn11840_ 'exception)))) + (if (macro-os-exception? _e11843_) + (macro-os-exception-procedure _e11843_) (error '"not an instance" 'os-exception? - (let ((__tmp12689 + (let ((__tmp12866 (let () (declare (not safe)) - (cons _e11666_ '())))) + (cons _e11843_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp12689))))) - (if (macro-os-exception? _exn11663_) - (macro-os-exception-procedure _exn11663_) + (cons 'os-exception-procedure __tmp12866))))) + (if (macro-os-exception? _exn11840_) + (macro-os-exception-procedure _exn11840_) (error '"not an instance" 'os-exception? - (let ((__tmp12688 + (let ((__tmp12865 (let () (declare (not safe)) - (cons _exn11663_ '())))) + (cons _exn11840_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp12688))))))) + (cons 'os-exception-procedure __tmp12865))))))) (define permission-denied-exception? - (lambda (_exn11659_) + (lambda (_exn11836_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11659_)) - (let ((_e11661_ + (class-instance? RuntimeException::t _exn11836_)) + (let ((_e11838_ (let () (declare (not safe)) - (slot-ref _exn11659_ 'exception)))) - (macro-permission-denied-exception? _e11661_)) - (macro-permission-denied-exception? _exn11659_)))) + (slot-ref _exn11836_ 'exception)))) + (macro-permission-denied-exception? _e11838_)) + (macro-permission-denied-exception? _exn11836_)))) (define permission-denied-exception-arguments - (lambda (_exn11655_) + (lambda (_exn11832_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11655_)) - (let ((_e11657_ + (class-instance? RuntimeException::t _exn11832_)) + (let ((_e11834_ (let () (declare (not safe)) - (slot-ref _exn11655_ 'exception)))) - (if (macro-permission-denied-exception? _e11657_) - (macro-permission-denied-exception-arguments _e11657_) + (slot-ref _exn11832_ 'exception)))) + (if (macro-permission-denied-exception? _e11834_) + (macro-permission-denied-exception-arguments _e11834_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12691 + (let ((__tmp12868 (let () (declare (not safe)) - (cons _e11657_ '())))) + (cons _e11834_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp12691))))) - (if (macro-permission-denied-exception? _exn11655_) - (macro-permission-denied-exception-arguments _exn11655_) + __tmp12868))))) + (if (macro-permission-denied-exception? _exn11832_) + (macro-permission-denied-exception-arguments _exn11832_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12690 + (let ((__tmp12867 (let () (declare (not safe)) - (cons _exn11655_ '())))) + (cons _exn11832_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp12690))))))) + __tmp12867))))))) (define permission-denied-exception-procedure - (lambda (_exn11649_) + (lambda (_exn11826_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11649_)) - (let ((_e11652_ + (class-instance? RuntimeException::t _exn11826_)) + (let ((_e11829_ (let () (declare (not safe)) - (slot-ref _exn11649_ 'exception)))) - (if (macro-permission-denied-exception? _e11652_) - (macro-permission-denied-exception-procedure _e11652_) + (slot-ref _exn11826_ 'exception)))) + (if (macro-permission-denied-exception? _e11829_) + (macro-permission-denied-exception-procedure _e11829_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12693 + (let ((__tmp12870 (let () (declare (not safe)) - (cons _e11652_ '())))) + (cons _e11829_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp12693))))) - (if (macro-permission-denied-exception? _exn11649_) - (macro-permission-denied-exception-procedure _exn11649_) + __tmp12870))))) + (if (macro-permission-denied-exception? _exn11826_) + (macro-permission-denied-exception-procedure _exn11826_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp12692 + (let ((__tmp12869 (let () (declare (not safe)) - (cons _exn11649_ '())))) + (cons _exn11826_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp12692))))))) + __tmp12869))))))) (define range-exception? - (lambda (_exn11645_) + (lambda (_exn11822_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11645_)) - (let ((_e11647_ + (class-instance? RuntimeException::t _exn11822_)) + (let ((_e11824_ (let () (declare (not safe)) - (slot-ref _exn11645_ 'exception)))) - (macro-range-exception? _e11647_)) - (macro-range-exception? _exn11645_)))) + (slot-ref _exn11822_ 'exception)))) + (macro-range-exception? _e11824_)) + (macro-range-exception? _exn11822_)))) (define range-exception-arg-id - (lambda (_exn11641_) + (lambda (_exn11818_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11641_)) - (let ((_e11643_ + (class-instance? RuntimeException::t _exn11818_)) + (let ((_e11820_ (let () (declare (not safe)) - (slot-ref _exn11641_ 'exception)))) - (if (macro-range-exception? _e11643_) - (macro-range-exception-arg-id _e11643_) + (slot-ref _exn11818_ 'exception)))) + (if (macro-range-exception? _e11820_) + (macro-range-exception-arg-id _e11820_) (error '"not an instance" 'range-exception? - (let ((__tmp12695 + (let ((__tmp12872 (let () (declare (not safe)) - (cons _e11643_ '())))) + (cons _e11820_ '())))) (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 __tmp12872))))) + (if (macro-range-exception? _exn11818_) + (macro-range-exception-arg-id _exn11818_) (error '"not an instance" 'range-exception? - (let ((__tmp12694 + (let ((__tmp12871 (let () (declare (not safe)) - (cons _exn11641_ '())))) + (cons _exn11818_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp12694))))))) + (cons 'range-exception-arg-id __tmp12871))))))) (define range-exception-arguments - (lambda (_exn11637_) + (lambda (_exn11814_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11637_)) - (let ((_e11639_ + (class-instance? RuntimeException::t _exn11814_)) + (let ((_e11816_ (let () (declare (not safe)) - (slot-ref _exn11637_ 'exception)))) - (if (macro-range-exception? _e11639_) - (macro-range-exception-arguments _e11639_) + (slot-ref _exn11814_ 'exception)))) + (if (macro-range-exception? _e11816_) + (macro-range-exception-arguments _e11816_) (error '"not an instance" 'range-exception? - (let ((__tmp12697 + (let ((__tmp12874 (let () (declare (not safe)) - (cons _e11639_ '())))) + (cons _e11816_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp12697))))) - (if (macro-range-exception? _exn11637_) - (macro-range-exception-arguments _exn11637_) + (cons 'range-exception-arguments __tmp12874))))) + (if (macro-range-exception? _exn11814_) + (macro-range-exception-arguments _exn11814_) (error '"not an instance" 'range-exception? - (let ((__tmp12696 + (let ((__tmp12873 (let () (declare (not safe)) - (cons _exn11637_ '())))) + (cons _exn11814_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp12696))))))) + (cons 'range-exception-arguments __tmp12873))))))) (define range-exception-procedure - (lambda (_exn11631_) + (lambda (_exn11808_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11631_)) - (let ((_e11634_ + (class-instance? RuntimeException::t _exn11808_)) + (let ((_e11811_ (let () (declare (not safe)) - (slot-ref _exn11631_ 'exception)))) - (if (macro-range-exception? _e11634_) - (macro-range-exception-procedure _e11634_) + (slot-ref _exn11808_ 'exception)))) + (if (macro-range-exception? _e11811_) + (macro-range-exception-procedure _e11811_) (error '"not an instance" 'range-exception? - (let ((__tmp12699 + (let ((__tmp12876 (let () (declare (not safe)) - (cons _e11634_ '())))) + (cons _e11811_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp12699))))) - (if (macro-range-exception? _exn11631_) - (macro-range-exception-procedure _exn11631_) + (cons 'range-exception-procedure __tmp12876))))) + (if (macro-range-exception? _exn11808_) + (macro-range-exception-procedure _exn11808_) (error '"not an instance" 'range-exception? - (let ((__tmp12698 + (let ((__tmp12875 (let () (declare (not safe)) - (cons _exn11631_ '())))) + (cons _exn11808_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp12698))))))) + (cons 'range-exception-procedure __tmp12875))))))) (define rpc-remote-error-exception? - (lambda (_exn11627_) + (lambda (_exn11804_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11627_)) - (let ((_e11629_ + (class-instance? RuntimeException::t _exn11804_)) + (let ((_e11806_ (let () (declare (not safe)) - (slot-ref _exn11627_ 'exception)))) - (macro-rpc-remote-error-exception? _e11629_)) - (macro-rpc-remote-error-exception? _exn11627_)))) + (slot-ref _exn11804_ 'exception)))) + (macro-rpc-remote-error-exception? _e11806_)) + (macro-rpc-remote-error-exception? _exn11804_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn11623_) + (lambda (_exn11800_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11623_)) - (let ((_e11625_ + (class-instance? RuntimeException::t _exn11800_)) + (let ((_e11802_ (let () (declare (not safe)) - (slot-ref _exn11623_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e11625_) - (macro-rpc-remote-error-exception-arguments _e11625_) + (slot-ref _exn11800_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11802_) + (macro-rpc-remote-error-exception-arguments _e11802_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12701 + (let ((__tmp12878 (let () (declare (not safe)) - (cons _e11625_ '())))) + (cons _e11802_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp12701))))) - (if (macro-rpc-remote-error-exception? _exn11623_) - (macro-rpc-remote-error-exception-arguments _exn11623_) + __tmp12878))))) + (if (macro-rpc-remote-error-exception? _exn11800_) + (macro-rpc-remote-error-exception-arguments _exn11800_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12700 + (let ((__tmp12877 (let () (declare (not safe)) - (cons _exn11623_ '())))) + (cons _exn11800_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp12700))))))) + __tmp12877))))))) (define rpc-remote-error-exception-message - (lambda (_exn11619_) + (lambda (_exn11796_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11619_)) - (let ((_e11621_ + (class-instance? RuntimeException::t _exn11796_)) + (let ((_e11798_ (let () (declare (not safe)) - (slot-ref _exn11619_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e11621_) - (macro-rpc-remote-error-exception-message _e11621_) + (slot-ref _exn11796_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11798_) + (macro-rpc-remote-error-exception-message _e11798_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12703 + (let ((__tmp12880 (let () (declare (not safe)) - (cons _e11621_ '())))) + (cons _e11798_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp12703))))) - (if (macro-rpc-remote-error-exception? _exn11619_) - (macro-rpc-remote-error-exception-message _exn11619_) + __tmp12880))))) + (if (macro-rpc-remote-error-exception? _exn11796_) + (macro-rpc-remote-error-exception-message _exn11796_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12702 + (let ((__tmp12879 (let () (declare (not safe)) - (cons _exn11619_ '())))) + (cons _exn11796_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp12702))))))) + __tmp12879))))))) (define rpc-remote-error-exception-procedure - (lambda (_exn11613_) + (lambda (_exn11790_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11613_)) - (let ((_e11616_ + (class-instance? RuntimeException::t _exn11790_)) + (let ((_e11793_ (let () (declare (not safe)) - (slot-ref _exn11613_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e11616_) - (macro-rpc-remote-error-exception-procedure _e11616_) + (slot-ref _exn11790_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e11793_) + (macro-rpc-remote-error-exception-procedure _e11793_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12705 + (let ((__tmp12882 (let () (declare (not safe)) - (cons _e11616_ '())))) + (cons _e11793_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp12705))))) - (if (macro-rpc-remote-error-exception? _exn11613_) - (macro-rpc-remote-error-exception-procedure _exn11613_) + __tmp12882))))) + (if (macro-rpc-remote-error-exception? _exn11790_) + (macro-rpc-remote-error-exception-procedure _exn11790_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp12704 + (let ((__tmp12881 (let () (declare (not safe)) - (cons _exn11613_ '())))) + (cons _exn11790_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp12704))))))) + __tmp12881))))))) (define scheduler-exception? - (lambda (_exn11609_) + (lambda (_exn11786_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11609_)) - (let ((_e11611_ + (class-instance? RuntimeException::t _exn11786_)) + (let ((_e11788_ (let () (declare (not safe)) - (slot-ref _exn11609_ 'exception)))) - (macro-scheduler-exception? _e11611_)) - (macro-scheduler-exception? _exn11609_)))) + (slot-ref _exn11786_ 'exception)))) + (macro-scheduler-exception? _e11788_)) + (macro-scheduler-exception? _exn11786_)))) (define scheduler-exception-reason - (lambda (_exn11603_) + (lambda (_exn11780_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11603_)) - (let ((_e11606_ + (class-instance? RuntimeException::t _exn11780_)) + (let ((_e11783_ (let () (declare (not safe)) - (slot-ref _exn11603_ 'exception)))) - (if (macro-scheduler-exception? _e11606_) - (macro-scheduler-exception-reason _e11606_) + (slot-ref _exn11780_ 'exception)))) + (if (macro-scheduler-exception? _e11783_) + (macro-scheduler-exception-reason _e11783_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp12707 + (let ((__tmp12884 (let () (declare (not safe)) - (cons _e11606_ '())))) + (cons _e11783_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp12707))))) - (if (macro-scheduler-exception? _exn11603_) - (macro-scheduler-exception-reason _exn11603_) + (cons 'scheduler-exception-reason __tmp12884))))) + (if (macro-scheduler-exception? _exn11780_) + (macro-scheduler-exception-reason _exn11780_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp12706 + (let ((__tmp12883 (let () (declare (not safe)) - (cons _exn11603_ '())))) + (cons _exn11780_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp12706))))))) + (cons 'scheduler-exception-reason __tmp12883))))))) (define sfun-conversion-exception? - (lambda (_exn11599_) + (lambda (_exn11776_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11599_)) - (let ((_e11601_ + (class-instance? RuntimeException::t _exn11776_)) + (let ((_e11778_ (let () (declare (not safe)) - (slot-ref _exn11599_ 'exception)))) - (macro-sfun-conversion-exception? _e11601_)) - (macro-sfun-conversion-exception? _exn11599_)))) + (slot-ref _exn11776_ 'exception)))) + (macro-sfun-conversion-exception? _e11778_)) + (macro-sfun-conversion-exception? _exn11776_)))) (define sfun-conversion-exception-arguments - (lambda (_exn11595_) + (lambda (_exn11772_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11595_)) - (let ((_e11597_ + (class-instance? RuntimeException::t _exn11772_)) + (let ((_e11774_ (let () (declare (not safe)) - (slot-ref _exn11595_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11597_) - (macro-sfun-conversion-exception-arguments _e11597_) + (slot-ref _exn11772_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11774_) + (macro-sfun-conversion-exception-arguments _e11774_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12709 + (let ((__tmp12886 (let () (declare (not safe)) - (cons _e11597_ '())))) + (cons _e11774_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp12709))))) - (if (macro-sfun-conversion-exception? _exn11595_) - (macro-sfun-conversion-exception-arguments _exn11595_) + __tmp12886))))) + (if (macro-sfun-conversion-exception? _exn11772_) + (macro-sfun-conversion-exception-arguments _exn11772_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12708 + (let ((__tmp12885 (let () (declare (not safe)) - (cons _exn11595_ '())))) + (cons _exn11772_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp12708))))))) + __tmp12885))))))) (define sfun-conversion-exception-code - (lambda (_exn11591_) + (lambda (_exn11768_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11591_)) - (let ((_e11593_ + (class-instance? RuntimeException::t _exn11768_)) + (let ((_e11770_ (let () (declare (not safe)) - (slot-ref _exn11591_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11593_) - (macro-sfun-conversion-exception-code _e11593_) + (slot-ref _exn11768_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11770_) + (macro-sfun-conversion-exception-code _e11770_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12711 + (let ((__tmp12888 (let () (declare (not safe)) - (cons _e11593_ '())))) + (cons _e11770_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp12711))))) - (if (macro-sfun-conversion-exception? _exn11591_) - (macro-sfun-conversion-exception-code _exn11591_) + __tmp12888))))) + (if (macro-sfun-conversion-exception? _exn11768_) + (macro-sfun-conversion-exception-code _exn11768_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12710 + (let ((__tmp12887 (let () (declare (not safe)) - (cons _exn11591_ '())))) + (cons _exn11768_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp12710))))))) + __tmp12887))))))) (define sfun-conversion-exception-message - (lambda (_exn11587_) + (lambda (_exn11764_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11587_)) - (let ((_e11589_ + (class-instance? RuntimeException::t _exn11764_)) + (let ((_e11766_ (let () (declare (not safe)) - (slot-ref _exn11587_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11589_) - (macro-sfun-conversion-exception-message _e11589_) + (slot-ref _exn11764_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11766_) + (macro-sfun-conversion-exception-message _e11766_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12713 + (let ((__tmp12890 (let () (declare (not safe)) - (cons _e11589_ '())))) + (cons _e11766_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp12713))))) - (if (macro-sfun-conversion-exception? _exn11587_) - (macro-sfun-conversion-exception-message _exn11587_) + __tmp12890))))) + (if (macro-sfun-conversion-exception? _exn11764_) + (macro-sfun-conversion-exception-message _exn11764_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12712 + (let ((__tmp12889 (let () (declare (not safe)) - (cons _exn11587_ '())))) + (cons _exn11764_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp12712))))))) + __tmp12889))))))) (define sfun-conversion-exception-procedure - (lambda (_exn11581_) + (lambda (_exn11758_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11581_)) - (let ((_e11584_ + (class-instance? RuntimeException::t _exn11758_)) + (let ((_e11761_ (let () (declare (not safe)) - (slot-ref _exn11581_ 'exception)))) - (if (macro-sfun-conversion-exception? _e11584_) - (macro-sfun-conversion-exception-procedure _e11584_) + (slot-ref _exn11758_ 'exception)))) + (if (macro-sfun-conversion-exception? _e11761_) + (macro-sfun-conversion-exception-procedure _e11761_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12715 + (let ((__tmp12892 (let () (declare (not safe)) - (cons _e11584_ '())))) + (cons _e11761_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp12715))))) - (if (macro-sfun-conversion-exception? _exn11581_) - (macro-sfun-conversion-exception-procedure _exn11581_) + __tmp12892))))) + (if (macro-sfun-conversion-exception? _exn11758_) + (macro-sfun-conversion-exception-procedure _exn11758_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp12714 + (let ((__tmp12891 (let () (declare (not safe)) - (cons _exn11581_ '())))) + (cons _exn11758_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp12714))))))) + __tmp12891))))))) (define stack-overflow-exception? - (lambda (_exn11575_) + (lambda (_exn11752_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11575_)) - (let ((_e11578_ + (class-instance? RuntimeException::t _exn11752_)) + (let ((_e11755_ (let () (declare (not safe)) - (slot-ref _exn11575_ 'exception)))) - (macro-stack-overflow-exception? _e11578_)) - (macro-stack-overflow-exception? _exn11575_)))) + (slot-ref _exn11752_ 'exception)))) + (macro-stack-overflow-exception? _e11755_)) + (macro-stack-overflow-exception? _exn11752_)))) (define started-thread-exception? - (lambda (_exn11571_) + (lambda (_exn11748_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11571_)) - (let ((_e11573_ + (class-instance? RuntimeException::t _exn11748_)) + (let ((_e11750_ (let () (declare (not safe)) - (slot-ref _exn11571_ 'exception)))) - (macro-started-thread-exception? _e11573_)) - (macro-started-thread-exception? _exn11571_)))) + (slot-ref _exn11748_ 'exception)))) + (macro-started-thread-exception? _e11750_)) + (macro-started-thread-exception? _exn11748_)))) (define started-thread-exception-arguments - (lambda (_exn11567_) + (lambda (_exn11744_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11567_)) - (let ((_e11569_ + (class-instance? RuntimeException::t _exn11744_)) + (let ((_e11746_ (let () (declare (not safe)) - (slot-ref _exn11567_ 'exception)))) - (if (macro-started-thread-exception? _e11569_) - (macro-started-thread-exception-arguments _e11569_) + (slot-ref _exn11744_ 'exception)))) + (if (macro-started-thread-exception? _e11746_) + (macro-started-thread-exception-arguments _e11746_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12717 + (let ((__tmp12894 (let () (declare (not safe)) - (cons _e11569_ '())))) + (cons _e11746_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp12717))))) - (if (macro-started-thread-exception? _exn11567_) - (macro-started-thread-exception-arguments _exn11567_) + __tmp12894))))) + (if (macro-started-thread-exception? _exn11744_) + (macro-started-thread-exception-arguments _exn11744_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12716 + (let ((__tmp12893 (let () (declare (not safe)) - (cons _exn11567_ '())))) + (cons _exn11744_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp12716))))))) + __tmp12893))))))) (define started-thread-exception-procedure - (lambda (_exn11561_) + (lambda (_exn11738_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11561_)) - (let ((_e11564_ + (class-instance? RuntimeException::t _exn11738_)) + (let ((_e11741_ (let () (declare (not safe)) - (slot-ref _exn11561_ 'exception)))) - (if (macro-started-thread-exception? _e11564_) - (macro-started-thread-exception-procedure _e11564_) + (slot-ref _exn11738_ 'exception)))) + (if (macro-started-thread-exception? _e11741_) + (macro-started-thread-exception-procedure _e11741_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12719 + (let ((__tmp12896 (let () (declare (not safe)) - (cons _e11564_ '())))) + (cons _e11741_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp12719))))) - (if (macro-started-thread-exception? _exn11561_) - (macro-started-thread-exception-procedure _exn11561_) + __tmp12896))))) + (if (macro-started-thread-exception? _exn11738_) + (macro-started-thread-exception-procedure _exn11738_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp12718 + (let ((__tmp12895 (let () (declare (not safe)) - (cons _exn11561_ '())))) + (cons _exn11738_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp12718))))))) + __tmp12895))))))) (define terminated-thread-exception? - (lambda (_exn11557_) + (lambda (_exn11734_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11557_)) - (let ((_e11559_ + (class-instance? RuntimeException::t _exn11734_)) + (let ((_e11736_ (let () (declare (not safe)) - (slot-ref _exn11557_ 'exception)))) - (macro-terminated-thread-exception? _e11559_)) - (macro-terminated-thread-exception? _exn11557_)))) + (slot-ref _exn11734_ 'exception)))) + (macro-terminated-thread-exception? _e11736_)) + (macro-terminated-thread-exception? _exn11734_)))) (define terminated-thread-exception-arguments - (lambda (_exn11553_) + (lambda (_exn11730_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11553_)) - (let ((_e11555_ + (class-instance? RuntimeException::t _exn11730_)) + (let ((_e11732_ (let () (declare (not safe)) - (slot-ref _exn11553_ 'exception)))) - (if (macro-terminated-thread-exception? _e11555_) - (macro-terminated-thread-exception-arguments _e11555_) + (slot-ref _exn11730_ 'exception)))) + (if (macro-terminated-thread-exception? _e11732_) + (macro-terminated-thread-exception-arguments _e11732_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12721 + (let ((__tmp12898 (let () (declare (not safe)) - (cons _e11555_ '())))) + (cons _e11732_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp12721))))) - (if (macro-terminated-thread-exception? _exn11553_) - (macro-terminated-thread-exception-arguments _exn11553_) + __tmp12898))))) + (if (macro-terminated-thread-exception? _exn11730_) + (macro-terminated-thread-exception-arguments _exn11730_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12720 + (let ((__tmp12897 (let () (declare (not safe)) - (cons _exn11553_ '())))) + (cons _exn11730_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp12720))))))) + __tmp12897))))))) (define terminated-thread-exception-procedure - (lambda (_exn11547_) + (lambda (_exn11724_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11547_)) - (let ((_e11550_ + (class-instance? RuntimeException::t _exn11724_)) + (let ((_e11727_ (let () (declare (not safe)) - (slot-ref _exn11547_ 'exception)))) - (if (macro-terminated-thread-exception? _e11550_) - (macro-terminated-thread-exception-procedure _e11550_) + (slot-ref _exn11724_ 'exception)))) + (if (macro-terminated-thread-exception? _e11727_) + (macro-terminated-thread-exception-procedure _e11727_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12723 + (let ((__tmp12900 (let () (declare (not safe)) - (cons _e11550_ '())))) + (cons _e11727_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp12723))))) - (if (macro-terminated-thread-exception? _exn11547_) - (macro-terminated-thread-exception-procedure _exn11547_) + __tmp12900))))) + (if (macro-terminated-thread-exception? _exn11724_) + (macro-terminated-thread-exception-procedure _exn11724_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp12722 + (let ((__tmp12899 (let () (declare (not safe)) - (cons _exn11547_ '())))) + (cons _exn11724_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp12722))))))) + __tmp12899))))))) (define type-exception? - (lambda (_exn11543_) + (lambda (_exn11720_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11543_)) - (let ((_e11545_ + (class-instance? RuntimeException::t _exn11720_)) + (let ((_e11722_ (let () (declare (not safe)) - (slot-ref _exn11543_ 'exception)))) - (macro-type-exception? _e11545_)) - (macro-type-exception? _exn11543_)))) + (slot-ref _exn11720_ 'exception)))) + (macro-type-exception? _e11722_)) + (macro-type-exception? _exn11720_)))) (define type-exception-arg-id - (lambda (_exn11539_) + (lambda (_exn11716_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11539_)) - (let ((_e11541_ + (class-instance? RuntimeException::t _exn11716_)) + (let ((_e11718_ (let () (declare (not safe)) - (slot-ref _exn11539_ 'exception)))) - (if (macro-type-exception? _e11541_) - (macro-type-exception-arg-id _e11541_) + (slot-ref _exn11716_ 'exception)))) + (if (macro-type-exception? _e11718_) + (macro-type-exception-arg-id _e11718_) (error '"not an instance" 'type-exception? - (let ((__tmp12725 + (let ((__tmp12902 (let () (declare (not safe)) - (cons _e11541_ '())))) + (cons _e11718_ '())))) (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 __tmp12902))))) + (if (macro-type-exception? _exn11716_) + (macro-type-exception-arg-id _exn11716_) (error '"not an instance" 'type-exception? - (let ((__tmp12724 + (let ((__tmp12901 (let () (declare (not safe)) - (cons _exn11539_ '())))) + (cons _exn11716_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp12724))))))) + (cons 'type-exception-arg-id __tmp12901))))))) (define type-exception-arguments - (lambda (_exn11535_) + (lambda (_exn11712_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11535_)) - (let ((_e11537_ + (class-instance? RuntimeException::t _exn11712_)) + (let ((_e11714_ (let () (declare (not safe)) - (slot-ref _exn11535_ 'exception)))) - (if (macro-type-exception? _e11537_) - (macro-type-exception-arguments _e11537_) + (slot-ref _exn11712_ 'exception)))) + (if (macro-type-exception? _e11714_) + (macro-type-exception-arguments _e11714_) (error '"not an instance" 'type-exception? - (let ((__tmp12727 + (let ((__tmp12904 (let () (declare (not safe)) - (cons _e11537_ '())))) + (cons _e11714_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp12727))))) - (if (macro-type-exception? _exn11535_) - (macro-type-exception-arguments _exn11535_) + (cons 'type-exception-arguments __tmp12904))))) + (if (macro-type-exception? _exn11712_) + (macro-type-exception-arguments _exn11712_) (error '"not an instance" 'type-exception? - (let ((__tmp12726 + (let ((__tmp12903 (let () (declare (not safe)) - (cons _exn11535_ '())))) + (cons _exn11712_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp12726))))))) + (cons 'type-exception-arguments __tmp12903))))))) (define type-exception-procedure - (lambda (_exn11531_) + (lambda (_exn11708_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11531_)) - (let ((_e11533_ + (class-instance? RuntimeException::t _exn11708_)) + (let ((_e11710_ (let () (declare (not safe)) - (slot-ref _exn11531_ 'exception)))) - (if (macro-type-exception? _e11533_) - (macro-type-exception-procedure _e11533_) + (slot-ref _exn11708_ 'exception)))) + (if (macro-type-exception? _e11710_) + (macro-type-exception-procedure _e11710_) (error '"not an instance" 'type-exception? - (let ((__tmp12729 + (let ((__tmp12906 (let () (declare (not safe)) - (cons _e11533_ '())))) + (cons _e11710_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp12729))))) - (if (macro-type-exception? _exn11531_) - (macro-type-exception-procedure _exn11531_) + (cons 'type-exception-procedure __tmp12906))))) + (if (macro-type-exception? _exn11708_) + (macro-type-exception-procedure _exn11708_) (error '"not an instance" 'type-exception? - (let ((__tmp12728 + (let ((__tmp12905 (let () (declare (not safe)) - (cons _exn11531_ '())))) + (cons _exn11708_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp12728))))))) + (cons 'type-exception-procedure __tmp12905))))))) (define type-exception-type-id - (lambda (_exn11525_) + (lambda (_exn11702_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11525_)) - (let ((_e11528_ + (class-instance? RuntimeException::t _exn11702_)) + (let ((_e11705_ (let () (declare (not safe)) - (slot-ref _exn11525_ 'exception)))) - (if (macro-type-exception? _e11528_) - (macro-type-exception-type-id _e11528_) + (slot-ref _exn11702_ 'exception)))) + (if (macro-type-exception? _e11705_) + (macro-type-exception-type-id _e11705_) (error '"not an instance" 'type-exception? - (let ((__tmp12731 + (let ((__tmp12908 (let () (declare (not safe)) - (cons _e11528_ '())))) + (cons _e11705_ '())))) (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 __tmp12908))))) + (if (macro-type-exception? _exn11702_) + (macro-type-exception-type-id _exn11702_) (error '"not an instance" 'type-exception? - (let ((__tmp12730 + (let ((__tmp12907 (let () (declare (not safe)) - (cons _exn11525_ '())))) + (cons _exn11702_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp12730))))))) + (cons 'type-exception-type-id __tmp12907))))))) (define unbound-global-exception? - (lambda (_exn11521_) + (lambda (_exn11698_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11521_)) - (let ((_e11523_ + (class-instance? RuntimeException::t _exn11698_)) + (let ((_e11700_ (let () (declare (not safe)) - (slot-ref _exn11521_ 'exception)))) - (macro-unbound-global-exception? _e11523_)) - (macro-unbound-global-exception? _exn11521_)))) + (slot-ref _exn11698_ 'exception)))) + (macro-unbound-global-exception? _e11700_)) + (macro-unbound-global-exception? _exn11698_)))) (define unbound-global-exception-code - (lambda (_exn11517_) + (lambda (_exn11694_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11517_)) - (let ((_e11519_ + (class-instance? RuntimeException::t _exn11694_)) + (let ((_e11696_ (let () (declare (not safe)) - (slot-ref _exn11517_ 'exception)))) - (if (macro-unbound-global-exception? _e11519_) - (macro-unbound-global-exception-code _e11519_) + (slot-ref _exn11694_ 'exception)))) + (if (macro-unbound-global-exception? _e11696_) + (macro-unbound-global-exception-code _e11696_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12733 + (let ((__tmp12910 (let () (declare (not safe)) - (cons _e11519_ '())))) + (cons _e11696_ '())))) (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 __tmp12910))))) + (if (macro-unbound-global-exception? _exn11694_) + (macro-unbound-global-exception-code _exn11694_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12732 + (let ((__tmp12909 (let () (declare (not safe)) - (cons _exn11517_ '())))) + (cons _exn11694_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp12732))))))) + (cons 'unbound-global-exception-code __tmp12909))))))) (define unbound-global-exception-rte - (lambda (_exn11513_) + (lambda (_exn11690_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11513_)) - (let ((_e11515_ + (class-instance? RuntimeException::t _exn11690_)) + (let ((_e11692_ (let () (declare (not safe)) - (slot-ref _exn11513_ 'exception)))) - (if (macro-unbound-global-exception? _e11515_) - (macro-unbound-global-exception-rte _e11515_) + (slot-ref _exn11690_ 'exception)))) + (if (macro-unbound-global-exception? _e11692_) + (macro-unbound-global-exception-rte _e11692_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12735 + (let ((__tmp12912 (let () (declare (not safe)) - (cons _e11515_ '())))) + (cons _e11692_ '())))) (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 __tmp12912))))) + (if (macro-unbound-global-exception? _exn11690_) + (macro-unbound-global-exception-rte _exn11690_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12734 + (let ((__tmp12911 (let () (declare (not safe)) - (cons _exn11513_ '())))) + (cons _exn11690_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp12734))))))) + (cons 'unbound-global-exception-rte __tmp12911))))))) (define unbound-global-exception-variable - (lambda (_exn11507_) + (lambda (_exn11684_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11507_)) - (let ((_e11510_ + (class-instance? RuntimeException::t _exn11684_)) + (let ((_e11687_ (let () (declare (not safe)) - (slot-ref _exn11507_ 'exception)))) - (if (macro-unbound-global-exception? _e11510_) - (macro-unbound-global-exception-variable _e11510_) + (slot-ref _exn11684_ 'exception)))) + (if (macro-unbound-global-exception? _e11687_) + (macro-unbound-global-exception-variable _e11687_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12737 + (let ((__tmp12914 (let () (declare (not safe)) - (cons _e11510_ '())))) + (cons _e11687_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp12737))))) - (if (macro-unbound-global-exception? _exn11507_) - (macro-unbound-global-exception-variable _exn11507_) + __tmp12914))))) + (if (macro-unbound-global-exception? _exn11684_) + (macro-unbound-global-exception-variable _exn11684_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp12736 + (let ((__tmp12913 (let () (declare (not safe)) - (cons _exn11507_ '())))) + (cons _exn11684_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp12736))))))) + __tmp12913))))))) (define unbound-key-exception? - (lambda (_exn11503_) + (lambda (_exn11680_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11503_)) - (let ((_e11505_ + (class-instance? RuntimeException::t _exn11680_)) + (let ((_e11682_ (let () (declare (not safe)) - (slot-ref _exn11503_ 'exception)))) - (macro-unbound-key-exception? _e11505_)) - (macro-unbound-key-exception? _exn11503_)))) + (slot-ref _exn11680_ 'exception)))) + (macro-unbound-key-exception? _e11682_)) + (macro-unbound-key-exception? _exn11680_)))) (define unbound-key-exception-arguments - (lambda (_exn11499_) + (lambda (_exn11676_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11499_)) - (let ((_e11501_ + (class-instance? RuntimeException::t _exn11676_)) + (let ((_e11678_ (let () (declare (not safe)) - (slot-ref _exn11499_ 'exception)))) - (if (macro-unbound-key-exception? _e11501_) - (macro-unbound-key-exception-arguments _e11501_) + (slot-ref _exn11676_ 'exception)))) + (if (macro-unbound-key-exception? _e11678_) + (macro-unbound-key-exception-arguments _e11678_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12739 + (let ((__tmp12916 (let () (declare (not safe)) - (cons _e11501_ '())))) + (cons _e11678_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp12739))))) - (if (macro-unbound-key-exception? _exn11499_) - (macro-unbound-key-exception-arguments _exn11499_) + __tmp12916))))) + (if (macro-unbound-key-exception? _exn11676_) + (macro-unbound-key-exception-arguments _exn11676_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12738 + (let ((__tmp12915 (let () (declare (not safe)) - (cons _exn11499_ '())))) + (cons _exn11676_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp12738))))))) + __tmp12915))))))) (define unbound-key-exception-procedure - (lambda (_exn11493_) + (lambda (_exn11670_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11493_)) - (let ((_e11496_ + (class-instance? RuntimeException::t _exn11670_)) + (let ((_e11673_ (let () (declare (not safe)) - (slot-ref _exn11493_ 'exception)))) - (if (macro-unbound-key-exception? _e11496_) - (macro-unbound-key-exception-procedure _e11496_) + (slot-ref _exn11670_ 'exception)))) + (if (macro-unbound-key-exception? _e11673_) + (macro-unbound-key-exception-procedure _e11673_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12741 + (let ((__tmp12918 (let () (declare (not safe)) - (cons _e11496_ '())))) + (cons _e11673_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp12741))))) - (if (macro-unbound-key-exception? _exn11493_) - (macro-unbound-key-exception-procedure _exn11493_) + __tmp12918))))) + (if (macro-unbound-key-exception? _exn11670_) + (macro-unbound-key-exception-procedure _exn11670_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp12740 + (let ((__tmp12917 (let () (declare (not safe)) - (cons _exn11493_ '())))) + (cons _exn11670_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp12740))))))) + __tmp12917))))))) (define unbound-os-environment-variable-exception? - (lambda (_exn11489_) + (lambda (_exn11666_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11489_)) - (let ((_e11491_ + (class-instance? RuntimeException::t _exn11666_)) + (let ((_e11668_ (let () (declare (not safe)) - (slot-ref _exn11489_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _e11491_)) - (macro-unbound-os-environment-variable-exception? _exn11489_)))) + (slot-ref _exn11666_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e11668_)) + (macro-unbound-os-environment-variable-exception? _exn11666_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn11485_) + (lambda (_exn11662_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11485_)) - (let ((_e11487_ + (class-instance? RuntimeException::t _exn11662_)) + (let ((_e11664_ (let () (declare (not safe)) - (slot-ref _exn11485_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e11487_) + (slot-ref _exn11662_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e11664_) (macro-unbound-os-environment-variable-exception-arguments - _e11487_) + _e11664_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12743 + (let ((__tmp12920 (let () (declare (not safe)) - (cons _e11487_ '())))) + (cons _e11664_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp12743))))) - (if (macro-unbound-os-environment-variable-exception? _exn11485_) + __tmp12920))))) + (if (macro-unbound-os-environment-variable-exception? _exn11662_) (macro-unbound-os-environment-variable-exception-arguments - _exn11485_) + _exn11662_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12742 + (let ((__tmp12919 (let () (declare (not safe)) - (cons _exn11485_ '())))) + (cons _exn11662_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp12742))))))) + __tmp12919))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn11479_) + (lambda (_exn11656_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11479_)) - (let ((_e11482_ + (class-instance? RuntimeException::t _exn11656_)) + (let ((_e11659_ (let () (declare (not safe)) - (slot-ref _exn11479_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e11482_) + (slot-ref _exn11656_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e11659_) (macro-unbound-os-environment-variable-exception-procedure - _e11482_) + _e11659_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12745 + (let ((__tmp12922 (let () (declare (not safe)) - (cons _e11482_ '())))) + (cons _e11659_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp12745))))) - (if (macro-unbound-os-environment-variable-exception? _exn11479_) + __tmp12922))))) + (if (macro-unbound-os-environment-variable-exception? _exn11656_) (macro-unbound-os-environment-variable-exception-procedure - _exn11479_) + _exn11656_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp12744 + (let ((__tmp12921 (let () (declare (not safe)) - (cons _exn11479_ '())))) + (cons _exn11656_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp12744))))))) + __tmp12921))))))) (define unbound-serial-number-exception? - (lambda (_exn11475_) + (lambda (_exn11652_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11475_)) - (let ((_e11477_ + (class-instance? RuntimeException::t _exn11652_)) + (let ((_e11654_ (let () (declare (not safe)) - (slot-ref _exn11475_ 'exception)))) - (macro-unbound-serial-number-exception? _e11477_)) - (macro-unbound-serial-number-exception? _exn11475_)))) + (slot-ref _exn11652_ 'exception)))) + (macro-unbound-serial-number-exception? _e11654_)) + (macro-unbound-serial-number-exception? _exn11652_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn11471_) + (lambda (_exn11648_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11471_)) - (let ((_e11473_ + (class-instance? RuntimeException::t _exn11648_)) + (let ((_e11650_ (let () (declare (not safe)) - (slot-ref _exn11471_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e11473_) - (macro-unbound-serial-number-exception-arguments _e11473_) + (slot-ref _exn11648_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e11650_) + (macro-unbound-serial-number-exception-arguments _e11650_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12747 + (let ((__tmp12924 (let () (declare (not safe)) - (cons _e11473_ '())))) + (cons _e11650_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp12747))))) - (if (macro-unbound-serial-number-exception? _exn11471_) - (macro-unbound-serial-number-exception-arguments _exn11471_) + __tmp12924))))) + (if (macro-unbound-serial-number-exception? _exn11648_) + (macro-unbound-serial-number-exception-arguments _exn11648_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12746 + (let ((__tmp12923 (let () (declare (not safe)) - (cons _exn11471_ '())))) + (cons _exn11648_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp12746))))))) + __tmp12923))))))) (define unbound-serial-number-exception-procedure - (lambda (_exn11465_) + (lambda (_exn11642_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11465_)) - (let ((_e11468_ + (class-instance? RuntimeException::t _exn11642_)) + (let ((_e11645_ (let () (declare (not safe)) - (slot-ref _exn11465_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e11468_) - (macro-unbound-serial-number-exception-procedure _e11468_) + (slot-ref _exn11642_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e11645_) + (macro-unbound-serial-number-exception-procedure _e11645_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12749 + (let ((__tmp12926 (let () (declare (not safe)) - (cons _e11468_ '())))) + (cons _e11645_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp12749))))) - (if (macro-unbound-serial-number-exception? _exn11465_) - (macro-unbound-serial-number-exception-procedure _exn11465_) + __tmp12926))))) + (if (macro-unbound-serial-number-exception? _exn11642_) + (macro-unbound-serial-number-exception-procedure _exn11642_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp12748 + (let ((__tmp12925 (let () (declare (not safe)) - (cons _exn11465_ '())))) + (cons _exn11642_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp12748))))))) + __tmp12925))))))) (define uncaught-exception? - (lambda (_exn11461_) + (lambda (_exn11638_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11461_)) - (let ((_e11463_ + (class-instance? RuntimeException::t _exn11638_)) + (let ((_e11640_ (let () (declare (not safe)) - (slot-ref _exn11461_ 'exception)))) - (macro-uncaught-exception? _e11463_)) - (macro-uncaught-exception? _exn11461_)))) + (slot-ref _exn11638_ 'exception)))) + (macro-uncaught-exception? _e11640_)) + (macro-uncaught-exception? _exn11638_)))) (define uncaught-exception-arguments - (lambda (_exn11457_) + (lambda (_exn11634_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11457_)) - (let ((_e11459_ + (class-instance? RuntimeException::t _exn11634_)) + (let ((_e11636_ (let () (declare (not safe)) - (slot-ref _exn11457_ 'exception)))) - (if (macro-uncaught-exception? _e11459_) - (macro-uncaught-exception-arguments _e11459_) + (slot-ref _exn11634_ 'exception)))) + (if (macro-uncaught-exception? _e11636_) + (macro-uncaught-exception-arguments _e11636_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12751 + (let ((__tmp12928 (let () (declare (not safe)) - (cons _e11459_ '())))) + (cons _e11636_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp12751))))) - (if (macro-uncaught-exception? _exn11457_) - (macro-uncaught-exception-arguments _exn11457_) + (cons 'uncaught-exception-arguments __tmp12928))))) + (if (macro-uncaught-exception? _exn11634_) + (macro-uncaught-exception-arguments _exn11634_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12750 + (let ((__tmp12927 (let () (declare (not safe)) - (cons _exn11457_ '())))) + (cons _exn11634_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp12750))))))) + (cons 'uncaught-exception-arguments __tmp12927))))))) (define uncaught-exception-procedure - (lambda (_exn11453_) + (lambda (_exn11630_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11453_)) - (let ((_e11455_ + (class-instance? RuntimeException::t _exn11630_)) + (let ((_e11632_ (let () (declare (not safe)) - (slot-ref _exn11453_ 'exception)))) - (if (macro-uncaught-exception? _e11455_) - (macro-uncaught-exception-procedure _e11455_) + (slot-ref _exn11630_ 'exception)))) + (if (macro-uncaught-exception? _e11632_) + (macro-uncaught-exception-procedure _e11632_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12753 + (let ((__tmp12930 (let () (declare (not safe)) - (cons _e11455_ '())))) + (cons _e11632_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp12753))))) - (if (macro-uncaught-exception? _exn11453_) - (macro-uncaught-exception-procedure _exn11453_) + (cons 'uncaught-exception-procedure __tmp12930))))) + (if (macro-uncaught-exception? _exn11630_) + (macro-uncaught-exception-procedure _exn11630_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12752 + (let ((__tmp12929 (let () (declare (not safe)) - (cons _exn11453_ '())))) + (cons _exn11630_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp12752))))))) + (cons 'uncaught-exception-procedure __tmp12929))))))) (define uncaught-exception-reason - (lambda (_exn11447_) + (lambda (_exn11624_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11447_)) - (let ((_e11450_ + (class-instance? RuntimeException::t _exn11624_)) + (let ((_e11627_ (let () (declare (not safe)) - (slot-ref _exn11447_ 'exception)))) - (if (macro-uncaught-exception? _e11450_) - (macro-uncaught-exception-reason _e11450_) + (slot-ref _exn11624_ 'exception)))) + (if (macro-uncaught-exception? _e11627_) + (macro-uncaught-exception-reason _e11627_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12755 + (let ((__tmp12932 (let () (declare (not safe)) - (cons _e11450_ '())))) + (cons _e11627_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp12755))))) - (if (macro-uncaught-exception? _exn11447_) - (macro-uncaught-exception-reason _exn11447_) + (cons 'uncaught-exception-reason __tmp12932))))) + (if (macro-uncaught-exception? _exn11624_) + (macro-uncaught-exception-reason _exn11624_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp12754 + (let ((__tmp12931 (let () (declare (not safe)) - (cons _exn11447_ '())))) + (cons _exn11624_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp12754))))))) + (cons 'uncaught-exception-reason __tmp12931))))))) (define uninitialized-thread-exception? - (lambda (_exn11443_) + (lambda (_exn11620_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11443_)) - (let ((_e11445_ + (class-instance? RuntimeException::t _exn11620_)) + (let ((_e11622_ (let () (declare (not safe)) - (slot-ref _exn11443_ 'exception)))) - (macro-uninitialized-thread-exception? _e11445_)) - (macro-uninitialized-thread-exception? _exn11443_)))) + (slot-ref _exn11620_ 'exception)))) + (macro-uninitialized-thread-exception? _e11622_)) + (macro-uninitialized-thread-exception? _exn11620_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn11439_) + (lambda (_exn11616_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11439_)) - (let ((_e11441_ + (class-instance? RuntimeException::t _exn11616_)) + (let ((_e11618_ (let () (declare (not safe)) - (slot-ref _exn11439_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e11441_) - (macro-uninitialized-thread-exception-arguments _e11441_) + (slot-ref _exn11616_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e11618_) + (macro-uninitialized-thread-exception-arguments _e11618_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12757 + (let ((__tmp12934 (let () (declare (not safe)) - (cons _e11441_ '())))) + (cons _e11618_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp12757))))) - (if (macro-uninitialized-thread-exception? _exn11439_) - (macro-uninitialized-thread-exception-arguments _exn11439_) + __tmp12934))))) + (if (macro-uninitialized-thread-exception? _exn11616_) + (macro-uninitialized-thread-exception-arguments _exn11616_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12756 + (let ((__tmp12933 (let () (declare (not safe)) - (cons _exn11439_ '())))) + (cons _exn11616_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp12756))))))) + __tmp12933))))))) (define uninitialized-thread-exception-procedure - (lambda (_exn11433_) + (lambda (_exn11610_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11433_)) - (let ((_e11436_ + (class-instance? RuntimeException::t _exn11610_)) + (let ((_e11613_ (let () (declare (not safe)) - (slot-ref _exn11433_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e11436_) - (macro-uninitialized-thread-exception-procedure _e11436_) + (slot-ref _exn11610_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e11613_) + (macro-uninitialized-thread-exception-procedure _e11613_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12759 + (let ((__tmp12936 (let () (declare (not safe)) - (cons _e11436_ '())))) + (cons _e11613_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp12759))))) - (if (macro-uninitialized-thread-exception? _exn11433_) - (macro-uninitialized-thread-exception-procedure _exn11433_) + __tmp12936))))) + (if (macro-uninitialized-thread-exception? _exn11610_) + (macro-uninitialized-thread-exception-procedure _exn11610_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp12758 + (let ((__tmp12935 (let () (declare (not safe)) - (cons _exn11433_ '())))) + (cons _exn11610_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp12758))))))) + __tmp12935))))))) (define unknown-keyword-argument-exception? - (lambda (_exn11429_) + (lambda (_exn11606_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11429_)) - (let ((_e11431_ + (class-instance? RuntimeException::t _exn11606_)) + (let ((_e11608_ (let () (declare (not safe)) - (slot-ref _exn11429_ 'exception)))) - (macro-unknown-keyword-argument-exception? _e11431_)) - (macro-unknown-keyword-argument-exception? _exn11429_)))) + (slot-ref _exn11606_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e11608_)) + (macro-unknown-keyword-argument-exception? _exn11606_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn11425_) + (lambda (_exn11602_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11425_)) - (let ((_e11427_ + (class-instance? RuntimeException::t _exn11602_)) + (let ((_e11604_ (let () (declare (not safe)) - (slot-ref _exn11425_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e11427_) - (macro-unknown-keyword-argument-exception-arguments _e11427_) + (slot-ref _exn11602_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e11604_) + (macro-unknown-keyword-argument-exception-arguments _e11604_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12761 + (let ((__tmp12938 (let () (declare (not safe)) - (cons _e11427_ '())))) + (cons _e11604_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp12761))))) - (if (macro-unknown-keyword-argument-exception? _exn11425_) - (macro-unknown-keyword-argument-exception-arguments _exn11425_) + __tmp12938))))) + (if (macro-unknown-keyword-argument-exception? _exn11602_) + (macro-unknown-keyword-argument-exception-arguments _exn11602_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12760 + (let ((__tmp12937 (let () (declare (not safe)) - (cons _exn11425_ '())))) + (cons _exn11602_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp12760))))))) + __tmp12937))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn11419_) + (lambda (_exn11596_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11419_)) - (let ((_e11422_ + (class-instance? RuntimeException::t _exn11596_)) + (let ((_e11599_ (let () (declare (not safe)) - (slot-ref _exn11419_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e11422_) - (macro-unknown-keyword-argument-exception-procedure _e11422_) + (slot-ref _exn11596_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e11599_) + (macro-unknown-keyword-argument-exception-procedure _e11599_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12763 + (let ((__tmp12940 (let () (declare (not safe)) - (cons _e11422_ '())))) + (cons _e11599_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp12763))))) - (if (macro-unknown-keyword-argument-exception? _exn11419_) - (macro-unknown-keyword-argument-exception-procedure _exn11419_) + __tmp12940))))) + (if (macro-unknown-keyword-argument-exception? _exn11596_) + (macro-unknown-keyword-argument-exception-procedure _exn11596_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp12762 + (let ((__tmp12939 (let () (declare (not safe)) - (cons _exn11419_ '())))) + (cons _exn11596_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp12762))))))) + __tmp12939))))))) (define unterminated-process-exception? - (lambda (_exn11415_) + (lambda (_exn11592_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11415_)) - (let ((_e11417_ + (class-instance? RuntimeException::t _exn11592_)) + (let ((_e11594_ (let () (declare (not safe)) - (slot-ref _exn11415_ 'exception)))) - (macro-unterminated-process-exception? _e11417_)) - (macro-unterminated-process-exception? _exn11415_)))) + (slot-ref _exn11592_ 'exception)))) + (macro-unterminated-process-exception? _e11594_)) + (macro-unterminated-process-exception? _exn11592_)))) (define unterminated-process-exception-arguments - (lambda (_exn11411_) + (lambda (_exn11588_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11411_)) - (let ((_e11413_ + (class-instance? RuntimeException::t _exn11588_)) + (let ((_e11590_ (let () (declare (not safe)) - (slot-ref _exn11411_ 'exception)))) - (if (macro-unterminated-process-exception? _e11413_) - (macro-unterminated-process-exception-arguments _e11413_) + (slot-ref _exn11588_ 'exception)))) + (if (macro-unterminated-process-exception? _e11590_) + (macro-unterminated-process-exception-arguments _e11590_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12765 + (let ((__tmp12942 (let () (declare (not safe)) - (cons _e11413_ '())))) + (cons _e11590_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp12765))))) - (if (macro-unterminated-process-exception? _exn11411_) - (macro-unterminated-process-exception-arguments _exn11411_) + __tmp12942))))) + (if (macro-unterminated-process-exception? _exn11588_) + (macro-unterminated-process-exception-arguments _exn11588_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12764 + (let ((__tmp12941 (let () (declare (not safe)) - (cons _exn11411_ '())))) + (cons _exn11588_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp12764))))))) + __tmp12941))))))) (define unterminated-process-exception-procedure - (lambda (_exn11405_) + (lambda (_exn11582_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11405_)) - (let ((_e11408_ + (class-instance? RuntimeException::t _exn11582_)) + (let ((_e11585_ (let () (declare (not safe)) - (slot-ref _exn11405_ 'exception)))) - (if (macro-unterminated-process-exception? _e11408_) - (macro-unterminated-process-exception-procedure _e11408_) + (slot-ref _exn11582_ 'exception)))) + (if (macro-unterminated-process-exception? _e11585_) + (macro-unterminated-process-exception-procedure _e11585_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12767 + (let ((__tmp12944 (let () (declare (not safe)) - (cons _e11408_ '())))) + (cons _e11585_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp12767))))) - (if (macro-unterminated-process-exception? _exn11405_) - (macro-unterminated-process-exception-procedure _exn11405_) + __tmp12944))))) + (if (macro-unterminated-process-exception? _exn11582_) + (macro-unterminated-process-exception-procedure _exn11582_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp12766 + (let ((__tmp12943 (let () (declare (not safe)) - (cons _exn11405_ '())))) + (cons _exn11582_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp12766))))))) + __tmp12943))))))) (define wrong-number-of-arguments-exception? - (lambda (_exn11401_) + (lambda (_exn11578_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11401_)) - (let ((_e11403_ + (class-instance? RuntimeException::t _exn11578_)) + (let ((_e11580_ (let () (declare (not safe)) - (slot-ref _exn11401_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _e11403_)) - (macro-wrong-number-of-arguments-exception? _exn11401_)))) + (slot-ref _exn11578_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e11580_)) + (macro-wrong-number-of-arguments-exception? _exn11578_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn11397_) + (lambda (_exn11574_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11397_)) - (let ((_e11399_ + (class-instance? RuntimeException::t _exn11574_)) + (let ((_e11576_ (let () (declare (not safe)) - (slot-ref _exn11397_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e11399_) + (slot-ref _exn11574_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e11576_) (macro-wrong-number-of-arguments-exception-arguments - _e11399_) + _e11576_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12769 + (let ((__tmp12946 (let () (declare (not safe)) - (cons _e11399_ '())))) + (cons _e11576_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp12769))))) - (if (macro-wrong-number-of-arguments-exception? _exn11397_) + __tmp12946))))) + (if (macro-wrong-number-of-arguments-exception? _exn11574_) (macro-wrong-number-of-arguments-exception-arguments - _exn11397_) + _exn11574_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12768 + (let ((__tmp12945 (let () (declare (not safe)) - (cons _exn11397_ '())))) + (cons _exn11574_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp12768))))))) + __tmp12945))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn11391_) + (lambda (_exn11568_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11391_)) - (let ((_e11394_ + (class-instance? RuntimeException::t _exn11568_)) + (let ((_e11571_ (let () (declare (not safe)) - (slot-ref _exn11391_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e11394_) + (slot-ref _exn11568_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e11571_) (macro-wrong-number-of-arguments-exception-procedure - _e11394_) + _e11571_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12771 + (let ((__tmp12948 (let () (declare (not safe)) - (cons _e11394_ '())))) + (cons _e11571_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp12771))))) - (if (macro-wrong-number-of-arguments-exception? _exn11391_) + __tmp12948))))) + (if (macro-wrong-number-of-arguments-exception? _exn11568_) (macro-wrong-number-of-arguments-exception-procedure - _exn11391_) + _exn11568_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp12770 + (let ((__tmp12947 (let () (declare (not safe)) - (cons _exn11391_ '())))) + (cons _exn11568_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp12770))))))) + __tmp12947))))))) (define wrong-number-of-values-exception? - (lambda (_exn11387_) + (lambda (_exn11564_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11387_)) - (let ((_e11389_ + (class-instance? RuntimeException::t _exn11564_)) + (let ((_e11566_ (let () (declare (not safe)) - (slot-ref _exn11387_ 'exception)))) - (macro-wrong-number-of-values-exception? _e11389_)) - (macro-wrong-number-of-values-exception? _exn11387_)))) + (slot-ref _exn11564_ 'exception)))) + (macro-wrong-number-of-values-exception? _e11566_)) + (macro-wrong-number-of-values-exception? _exn11564_)))) (define wrong-number-of-values-exception-code - (lambda (_exn11383_) + (lambda (_exn11560_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11383_)) - (let ((_e11385_ + (class-instance? RuntimeException::t _exn11560_)) + (let ((_e11562_ (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 _exn11560_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11562_) + (macro-wrong-number-of-values-exception-code _e11562_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12773 + (let ((__tmp12950 (let () (declare (not safe)) - (cons _e11385_ '())))) + (cons _e11562_ '())))) (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_) + __tmp12950))))) + (if (macro-wrong-number-of-values-exception? _exn11560_) + (macro-wrong-number-of-values-exception-code _exn11560_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12772 + (let ((__tmp12949 (let () (declare (not safe)) - (cons _exn11383_ '())))) + (cons _exn11560_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp12772))))))) + __tmp12949))))))) (define wrong-number-of-values-exception-rte - (lambda (_exn11379_) + (lambda (_exn11556_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11379_)) - (let ((_e11381_ + (class-instance? RuntimeException::t _exn11556_)) + (let ((_e11558_ (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 _exn11556_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11558_) + (macro-wrong-number-of-values-exception-rte _e11558_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12775 + (let ((__tmp12952 (let () (declare (not safe)) - (cons _e11381_ '())))) + (cons _e11558_ '())))) (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_) + __tmp12952))))) + (if (macro-wrong-number-of-values-exception? _exn11556_) + (macro-wrong-number-of-values-exception-rte _exn11556_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12774 + (let ((__tmp12951 (let () (declare (not safe)) - (cons _exn11379_ '())))) + (cons _exn11556_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp12774))))))) + __tmp12951))))))) (define wrong-number-of-values-exception-vals - (lambda (_exn11373_) + (lambda (_exn11550_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11373_)) - (let ((_e11376_ + (class-instance? RuntimeException::t _exn11550_)) + (let ((_e11553_ (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 _exn11550_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e11553_) + (macro-wrong-number-of-values-exception-vals _e11553_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12777 + (let ((__tmp12954 (let () (declare (not safe)) - (cons _e11376_ '())))) + (cons _e11553_ '())))) (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_) + __tmp12954))))) + (if (macro-wrong-number-of-values-exception? _exn11550_) + (macro-wrong-number-of-values-exception-vals _exn11550_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp12776 + (let ((__tmp12953 (let () (declare (not safe)) - (cons _exn11373_ '())))) + (cons _exn11550_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp12776))))))) + __tmp12953))))))) (define wrong-processor-c-return-exception? - (lambda (_exn11367_) + (lambda (_exn11544_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn11367_)) - (let ((_e11370_ + (class-instance? RuntimeException::t _exn11544_)) + (let ((_e11547_ (let () (declare (not safe)) - (slot-ref _exn11367_ 'exception)))) - (macro-wrong-processor-c-return-exception? _e11370_)) - (macro-wrong-processor-c-return-exception? _exn11367_)))))) + (slot-ref _exn11544_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e11547_)) + (macro-wrong-processor-c-return-exception? _exn11544_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__1.scm b/src/bootstrap/gerbil/runtime/error__1.scm index 1124f04d4c..09cb52b007 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]#_g12955_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g12785_| + (define |[1]#_g12962_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g12787_| + (define |[1]#_g12964_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g12789_| + (define |[1]#_g12966_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g12797_| + (define |[1]#_g12974_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12800_| + (define |[1]#_g12977_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g12802_| + (define |[1]#_g12979_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g12804_| + (define |[1]#_g12981_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g12806_| + (define |[1]#_g12983_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g12816_| + (define |[1]#_g12993_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12818_| + (define |[1]#_g12995_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12820_| + (define |[1]#_g12997_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12825_| + (define |[1]#_g13002_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g12827_| + (define |[1]#_g13004_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g12829_| + (define |[1]#_g13006_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g12831_| + (define |[1]#_g13008_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g12833_| + (define |[1]#_g13010_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g12839_| + (define |[1]#_g13016_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g12840_| + (define |[1]#_g13017_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g12841_| + (define |[1]#_g13018_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g12849_| + (define |[1]#_g13026_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g12852_| + (define |[1]#_g13029_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g12854_| + (define |[1]#_g13031_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g12856_| + (define |[1]#_g13033_| (##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]#_g12955_| 'expander-identifiers: - (let ((__tmp12779 - (let ((__tmp12788 |[1]#_g12778_|) - (__tmp12780 - (let ((__tmp12786 |[1]#_g12787_|) - (__tmp12781 - (let ((__tmp12784 |[1]#_g12785_|) - (__tmp12782 - (let ((__tmp12783 + (let ((__tmp12956 + (let ((__tmp12965 |[1]#_g12955_|) + (__tmp12957 + (let ((__tmp12963 |[1]#_g12964_|) + (__tmp12958 + (let ((__tmp12961 |[1]#_g12962_|) + (__tmp12959 + (let ((__tmp12960 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp12783)))) + (cons '() __tmp12960)))) (declare (not safe)) - (cons __tmp12784 __tmp12782)))) + (cons __tmp12961 __tmp12959)))) (declare (not safe)) - (cons __tmp12786 __tmp12781)))) + (cons __tmp12963 __tmp12958)))) (declare (not safe)) - (cons __tmp12788 __tmp12780)))) + (cons __tmp12965 __tmp12957)))) (declare (not safe)) - (cons '() __tmp12779)) + (cons '() __tmp12956)) '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]#_g12966_| '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 ((__tmp12967 + (let ((__tmp12982 |[1]#_g12966_|) + (__tmp12968 + (let ((__tmp12980 |[1]#_g12981_|) + (__tmp12969 + (let ((__tmp12978 |[1]#_g12979_|) + (__tmp12970 + (let ((__tmp12975 + (let ((__tmp12976 |[1]#_g12977_|)) (declare (not safe)) - (cons __tmp12799 '()))) - (__tmp12794 - (let ((__tmp12795 - (let ((__tmp12796 - |[1]#_g12797_|)) + (cons __tmp12976 '()))) + (__tmp12971 + (let ((__tmp12972 + (let ((__tmp12973 + |[1]#_g12974_|)) (declare (not safe)) - (cons __tmp12796 '())))) + (cons __tmp12973 '())))) (declare (not safe)) - (cons __tmp12795 '())))) + (cons __tmp12972 '())))) (declare (not safe)) - (cons __tmp12798 __tmp12794)))) + (cons __tmp12975 __tmp12971)))) (declare (not safe)) - (cons __tmp12801 __tmp12793)))) + (cons __tmp12978 __tmp12970)))) (declare (not safe)) - (cons __tmp12803 __tmp12792)))) + (cons __tmp12980 __tmp12969)))) (declare (not safe)) - (cons __tmp12805 __tmp12791)))) + (cons __tmp12982 __tmp12968)))) (declare (not safe)) - (cons '() __tmp12790)) + (cons '() __tmp12967)) '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]#_g12983_| 'expander-identifiers: - (let ((__tmp12835 - (let ((__tmp12838 |[1]#_g12789_|) - (__tmp12836 - (let ((__tmp12837 |[1]#_g12778_|)) + (let ((__tmp13012 + (let ((__tmp13015 |[1]#_g12966_|) + (__tmp13013 + (let ((__tmp13014 |[1]#_g12955_|)) (declare (not safe)) - (cons __tmp12837 '())))) + (cons __tmp13014 '())))) (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 __tmp13015 __tmp13013))) + (__tmp12984 + (let ((__tmp13011 |[1]#_g12983_|) + (__tmp12985 + (let ((__tmp13009 |[1]#_g13010_|) + (__tmp12986 + (let ((__tmp13007 |[1]#_g13008_|) + (__tmp12987 + (let ((__tmp12998 + (let ((__tmp13005 |[1]#_g13006_|) + (__tmp12999 + (let ((__tmp13003 + |[1]#_g13004_|) + (__tmp13000 + (let ((__tmp13001 + |[1]#_g13002_|)) (declare (not safe)) - (cons __tmp12824 + (cons __tmp13001 '())))) (declare (not safe)) - (cons __tmp12826 - __tmp12823)))) + (cons __tmp13003 + __tmp13000)))) (declare (not safe)) - (cons __tmp12828 __tmp12822))) - (__tmp12811 - (let ((__tmp12812 - (let ((__tmp12819 - |[1]#_g12820_|) - (__tmp12813 - (let ((__tmp12817 - |[1]#_g12818_|) - (__tmp12814 - (let ((__tmp12815 + (cons __tmp13005 __tmp12999))) + (__tmp12988 + (let ((__tmp12989 + (let ((__tmp12996 + |[1]#_g12997_|) + (__tmp12990 + (let ((__tmp12994 + |[1]#_g12995_|) + (__tmp12991 + (let ((__tmp12992 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g12816_|)) + |[1]#_g12993_|)) (declare (not safe)) - (cons __tmp12815 '())))) + (cons __tmp12992 '())))) (declare (not safe)) - (cons __tmp12817 __tmp12814)))) + (cons __tmp12994 __tmp12991)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12819 - __tmp12813)))) + (cons __tmp12996 + __tmp12990)))) (declare (not safe)) - (cons __tmp12812 '())))) + (cons __tmp12989 '())))) (declare (not safe)) - (cons __tmp12821 __tmp12811)))) + (cons __tmp12998 __tmp12988)))) (declare (not safe)) - (cons __tmp12830 __tmp12810)))) + (cons __tmp13007 __tmp12987)))) (declare (not safe)) - (cons __tmp12832 __tmp12809)))) + (cons __tmp13009 __tmp12986)))) (declare (not safe)) - (cons __tmp12834 __tmp12808)))) + (cons __tmp13011 __tmp12985)))) (declare (not safe)) - (cons __tmp12835 __tmp12807)) + (cons __tmp13012 __tmp12984)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g12839_| |[1]#_g12840_|) + (list |[1]#_g13016_| |[1]#_g13017_|) 'Error ':init! '((transparent: . #t)) @@ -323,895 +323,895 @@ (define |[:0:]#RuntimeException| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g12841_| + |[1]#_g13018_| 'expander-identifiers: - (let ((__tmp12858 - (let ((__tmp12861 |[1]#_g12789_|) - (__tmp12859 - (let ((__tmp12860 |[1]#_g12778_|)) + (let ((__tmp13035 + (let ((__tmp13038 |[1]#_g12966_|) + (__tmp13036 + (let ((__tmp13037 |[1]#_g12955_|)) (declare (not safe)) - (cons __tmp12860 '())))) + (cons __tmp13037 '())))) (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 __tmp13038 __tmp13036))) + (__tmp13019 + (let ((__tmp13034 |[1]#_g13018_|) + (__tmp13020 + (let ((__tmp13032 |[1]#_g13033_|) + (__tmp13021 + (let ((__tmp13030 |[1]#_g13031_|) + (__tmp13022 + (let ((__tmp13027 + (let ((__tmp13028 |[1]#_g13029_|)) (declare (not safe)) - (cons __tmp12851 '()))) - (__tmp12846 - (let ((__tmp12847 - (let ((__tmp12848 - |[1]#_g12849_|)) + (cons __tmp13028 '()))) + (__tmp13023 + (let ((__tmp13024 + (let ((__tmp13025 + |[1]#_g13026_|)) (declare (not safe)) - (cons __tmp12848 '())))) + (cons __tmp13025 '())))) (declare (not safe)) - (cons __tmp12847 '())))) + (cons __tmp13024 '())))) (declare (not safe)) - (cons __tmp12850 __tmp12846)))) + (cons __tmp13027 __tmp13023)))) (declare (not safe)) - (cons __tmp12853 __tmp12845)))) + (cons __tmp13030 __tmp13022)))) (declare (not safe)) - (cons __tmp12855 __tmp12844)))) + (cons __tmp13032 __tmp13021)))) (declare (not safe)) - (cons __tmp12857 __tmp12843)))) + (cons __tmp13034 __tmp13020)))) (declare (not safe)) - (cons __tmp12858 __tmp12842)) + (cons __tmp13035 __tmp13019)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g12839_| |[1]#_g12840_|) + (list |[1]#_g13016_| |[1]#_g13017_|) '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 (_$stx11091_) + (let* ((_g1109511113_ + (lambda (_g1109611109_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1109611109_))) + (_g1109411169_ + (lambda (_g1109611117_) + (if (gx#stx-pair? _g1109611117_) + (let ((_e1110111120_ (gx#syntax-e _g1109611117_))) + (let ((_hd1110011124_ (let () (declare (not safe)) - (##car _e1092410943_))) - (_tl1092210950_ + (##car _e1110111120_))) + (_tl1109911127_ (let () (declare (not safe)) - (##cdr _e1092410943_)))) - (if (gx#stx-pair? _tl1092210950_) - (let ((_e1092710953_ - (gx#syntax-e _tl1092210950_))) - (let ((_hd1092610957_ + (##cdr _e1110111120_)))) + (if (gx#stx-pair? _tl1109911127_) + (let ((_e1110411130_ + (gx#syntax-e _tl1109911127_))) + (let ((_hd1110311134_ (let () (declare (not safe)) - (##car _e1092710953_))) - (_tl1092510960_ + (##car _e1110411130_))) + (_tl1110211137_ (let () (declare (not safe)) - (##cdr _e1092710953_)))) - (if (gx#stx-pair? _tl1092510960_) - (let ((_e1093010963_ - (gx#syntax-e _tl1092510960_))) - (let ((_hd1092910967_ + (##cdr _e1110411130_)))) + (if (gx#stx-pair? _tl1110211137_) + (let ((_e1110711140_ + (gx#syntax-e _tl1110211137_))) + (let ((_hd1110611144_ (let () (declare (not safe)) - (##car _e1093010963_))) - (_tl1092810970_ + (##car _e1110711140_))) + (_tl1110511147_ (let () (declare (not safe)) - (##cdr _e1093010963_)))) - (if (gx#stx-null? _tl1092810970_) - ((lambda (_L10973_ _L10975_) - (let ((__tmp12883 + (##cdr _e1110711140_)))) + (if (gx#stx-null? _tl1110511147_) + ((lambda (_L11150_ _L11152_) + (let ((__tmp13060 (gx#datum->syntax '#f 'unless)) - (__tmp12862 - (let ((__tmp12880 - (let ((__tmp12882 + (__tmp13039 + (let ((__tmp13057 + (let ((__tmp13059 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp12881 + (__tmp13058 (let () (declare (not safe)) - (cons _L10975_ '())))) + (cons _L11152_ '())))) (declare (not safe)) - (cons __tmp12882 __tmp12881))) - (__tmp12863 - (let ((__tmp12864 - (let ((__tmp12879 (gx#datum->syntax '#f 'raise)) - (__tmp12865 - (let ((__tmp12866 - (let ((__tmp12878 + (cons __tmp13059 __tmp13058))) + (__tmp13040 + (let ((__tmp13041 + (let ((__tmp13056 (gx#datum->syntax '#f 'raise)) + (__tmp13042 + (let ((__tmp13043 + (let ((__tmp13055 (gx#datum->syntax '#f 'Error)) - (__tmp12867 - (let ((__tmp12868 - (let ((__tmp12869 + (__tmp13044 + (let ((__tmp13045 + (let ((__tmp13046 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12875 - (let ((__tmp12877 + (let ((__tmp13052 + (let ((__tmp13054 (gx#datum->syntax '#f 'quote)) - (__tmp12876 + (__tmp13053 (let () (declare (not safe)) - (cons _L10973_ '())))) + (cons _L11150_ '())))) (declare (not safe)) - (cons __tmp12877 __tmp12876))) - (__tmp12870 - (let ((__tmp12871 - (let ((__tmp12872 - (let ((__tmp12874 + (cons __tmp13054 __tmp13053))) + (__tmp13047 + (let ((__tmp13048 + (let ((__tmp13049 + (let ((__tmp13051 (gx#datum->syntax '#f '@list)) - (__tmp12873 + (__tmp13050 (let () (declare (not safe)) - (cons _L10975_ '())))) + (cons _L11152_ '())))) (declare (not safe)) - (cons __tmp12874 __tmp12873)))) + (cons __tmp13051 __tmp13050)))) (declare (not safe)) - (cons __tmp12872 '())))) + (cons __tmp13049 '())))) (declare (not safe)) - (cons 'irritants: __tmp12871)))) + (cons 'irritants: __tmp13048)))) (declare (not safe)) - (cons __tmp12875 __tmp12870)))) + (cons __tmp13052 __tmp13047)))) (declare (not safe)) - (cons 'where: __tmp12869)))) + (cons 'where: __tmp13046)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"expected procedure" - __tmp12868)))) + __tmp13045)))) (declare (not safe)) - (cons __tmp12878 __tmp12867)))) + (cons __tmp13055 __tmp13044)))) (declare (not safe)) - (cons __tmp12866 '())))) + (cons __tmp13043 '())))) (declare (not safe)) - (cons __tmp12879 __tmp12865)))) + (cons __tmp13056 __tmp13042)))) (declare (not safe)) - (cons __tmp12864 '())))) + (cons __tmp13041 '())))) (declare (not safe)) - (cons __tmp12880 __tmp12863)))) + (cons __tmp13057 __tmp13040)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12883 - __tmp12862))) - _hd1092910967_ - _hd1092610957_) - (_g1091810936_ _g1091910940_)))) - (_g1091810936_ _g1091910940_)))) - (_g1091810936_ _g1091910940_)))) - (_g1091810936_ _g1091910940_))))) - (_g1091710992_ _$stx10914_)))) + (cons __tmp13060 + __tmp13039))) + _hd1110611144_ + _hd1110311134_) + (_g1109511113_ _g1109611117_)))) + (_g1109511113_ _g1109611117_)))) + (_g1109511113_ _g1109611117_)))) + (_g1109511113_ _g1109611117_))))) + (_g1109411169_ _$stx11091_)))) (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 (_stx11173_) + (let* ((_g1117611203_ + (lambda (_g1117711199_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1117711199_))) + (_g1117511438_ + (lambda (_g1117711207_) + (if (gx#stx-pair? _g1117711207_) + (let ((_e1118211210_ (gx#syntax-e _g1117711207_))) + (let ((_hd1118111214_ (let () (declare (not safe)) - (##car _e1100511033_))) - (_tl1100311040_ + (##car _e1118211210_))) + (_tl1118011217_ (let () (declare (not safe)) - (##cdr _e1100511033_)))) - (if (gx#stx-pair? _tl1100311040_) - (let ((_e1100811043_ - (gx#syntax-e _tl1100311040_))) - (let ((_hd1100711047_ + (##cdr _e1118211210_)))) + (if (gx#stx-pair? _tl1118011217_) + (let ((_e1118511220_ + (gx#syntax-e _tl1118011217_))) + (let ((_hd1118411224_ (let () (declare (not safe)) - (##car _e1100811043_))) - (_tl1100611050_ + (##car _e1118511220_))) + (_tl1118311227_ (let () (declare (not safe)) - (##cdr _e1100811043_)))) - (if (gx#stx-pair? _hd1100711047_) - (let ((_e1101111053_ - (gx#syntax-e _hd1100711047_))) - (let ((_hd1101011057_ + (##cdr _e1118511220_)))) + (if (gx#stx-pair? _hd1118411224_) + (let ((_e1118811230_ + (gx#syntax-e _hd1118411224_))) + (let ((_hd1118711234_ (let () (declare (not safe)) - (##car _e1101111053_))) - (_tl1100911060_ + (##car _e1118811230_))) + (_tl1118611237_ (let () (declare (not safe)) - (##cdr _e1101111053_)))) + (##cdr _e1118811230_)))) (if (gx#stx-pair/null? - _tl1100911060_) - (let ((_g12884_ + _tl1118611237_) + (let ((_g13061_ (gx#syntax-split-splice - _tl1100911060_ + _tl1118611237_ '0))) (begin - (let ((_g12885_ + (let ((_g13062_ (let () (declare (not safe)) (if (##values? - _g12884_) + _g13061_) (##vector-length - _g12884_) + _g13061_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g12885_ 2))) - (error "Context expects 2 values" _g12885_))) + (##fx= _g13062_ 2))) + (error "Context expects 2 values" _g13062_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1101211063_ + (let ((_target1118911240_ (let () (declare (not safe)) (##vector-ref - _g12884_ + _g13061_ 0))) - (_tl1101411066_ + (_tl1119111243_ (let () (declare (not safe)) (##vector-ref - _g12884_ + _g13061_ 1)))) (if (gx#stx-null? - _tl1101411066_) - (letrec ((_loop1101511069_ + _tl1119111243_) + (letrec ((_loop1119211246_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1101311073_ _getf1101911076_) - (if (gx#stx-pair? _hd1101311073_) - (let ((_e1101611079_ - (gx#syntax-e _hd1101311073_))) - (let ((_lp-hd1101711083_ + (lambda (_hd1119011250_ _getf1119611253_) + (if (gx#stx-pair? _hd1119011250_) + (let ((_e1119311256_ + (gx#syntax-e _hd1119011250_))) + (let ((_lp-hd1119411260_ (let () (declare (not safe)) - (##car _e1101611079_))) - (_lp-tl1101811086_ + (##car _e1119311256_))) + (_lp-tl1119511263_ (let () (declare (not safe)) - (##cdr _e1101611079_)))) - (_loop1101511069_ - _lp-tl1101811086_ + (##cdr _e1119311256_)))) + (_loop1119211246_ + _lp-tl1119511263_ (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-hd1119411260_ + _getf1119611253_))))) + (let ((_getf1119711266_ + (reverse _getf1119611253_))) + (if (gx#stx-null? _tl1118311227_) + ((lambda (_L11270_ _L11272_) + (let* ((_g1129211316_ + (lambda (_g1129311312_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1111611135_))) - (_g1111411246_ - (lambda (_g1111611143_) + _g1129311312_))) + (_g1129111423_ + (lambda (_g1129311320_) (if (gx#stx-pair? - _g1111611143_) - (let ((_e1112111146_ + _g1129311320_) + (let ((_e1129811323_ (gx#syntax-e - _g1111611143_))) - (let ((_hd1112011150_ + _g1129311320_))) + (let ((_hd1129711327_ (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 _e1129811323_))) + (_tl1129611330_ + (let () (declare (not safe)) (##cdr _e1129811323_)))) + (if (gx#stx-pair? _tl1129611330_) + (let ((_e1130111333_ (gx#syntax-e _tl1129611330_))) + (let ((_hd1130011337_ (let () (declare (not safe)) - (##car _e1112411156_))) - (_tl1112211163_ + (##car _e1130111333_))) + (_tl1129911340_ (let () (declare (not safe)) - (##cdr _e1112411156_)))) - (if (gx#stx-pair/null? _hd1112311160_) - (let ((_g12886_ + (##cdr _e1130111333_)))) + (if (gx#stx-pair/null? _hd1130011337_) + (let ((_g13063_ (gx#syntax-split-splice - _hd1112311160_ + _hd1130011337_ '0))) (begin - (let ((_g12887_ + (let ((_g13064_ (let () (declare (not safe)) - (if (##values? _g12886_) - (##vector-length _g12886_) + (if (##values? _g13063_) + (##vector-length _g13063_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g12887_ 2))) + (##fx= _g13064_ 2))) (error "Context expects 2 values" - _g12887_))) - (let ((_target1112511166_ + _g13064_))) + (let ((_target1130211343_ (let () (declare (not safe)) - (##vector-ref _g12886_ 0))) - (_tl1112711169_ + (##vector-ref _g13063_ 0))) + (_tl1130411346_ (let () (declare (not safe)) - (##vector-ref _g12886_ 1)))) - (if (gx#stx-null? _tl1112711169_) - (letrec ((_loop1112811172_ - (lambda (_hd1112611176_ - _macro-getf1113211179_) + (##vector-ref _g13063_ 1)))) + (if (gx#stx-null? _tl1130411346_) + (letrec ((_loop1130511349_ + (lambda (_hd1130311353_ + _macro-getf1130911356_) (if (gx#stx-pair? - _hd1112611176_) - (let ((_e1112911182_ + _hd1130311353_) + (let ((_e1130611359_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1112611176_))) - (let ((_lp-hd1113011186_ - (let () (declare (not safe)) (##car _e1112911182_))) - (_lp-tl1113111189_ - (let () (declare (not safe)) (##cdr _e1112911182_)))) - (_loop1112811172_ - _lp-tl1113111189_ + _hd1130311353_))) + (let ((_lp-hd1130711363_ + (let () (declare (not safe)) (##car _e1130611359_))) + (_lp-tl1130811366_ + (let () (declare (not safe)) (##cdr _e1130611359_)))) + (_loop1130511349_ + _lp-tl1130811366_ (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-hd1130711363_ _macro-getf1130911356_))))) + (let ((_macro-getf1131011369_ + (reverse _macro-getf1130911356_))) + (if (gx#stx-null? _tl1129911340_) + ((lambda (_L11373_ _L11375_) (let () - (let ((__tmp13011 (gx#datum->syntax '#f 'begin)) - (__tmp12888 - (let ((__tmp13006 - (let ((__tmp13010 + (let ((__tmp13188 (gx#datum->syntax '#f 'begin)) + (__tmp13065 + (let ((__tmp13183 + (let ((__tmp13187 (gx#datum->syntax '#f 'extern)) - (__tmp13007 - (let ((__tmp13008 - (let ((__tmp13009 - (lambda (_g1122311226_ + (__tmp13184 + (let ((__tmp13185 + (let ((__tmp13186 + (lambda (_g1140011403_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1122411229_) + _g1140111406_) (let () (declare (not safe)) - (cons _g1122311226_ _g1122411229_))))) + (cons _g1140011403_ _g1140111406_))))) (declare (not safe)) - (foldr1 __tmp13009 '() _L11196_)))) + (foldr1 __tmp13186 '() _L11373_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L11198_ - __tmp13008)))) + (cons _L11375_ + __tmp13185)))) (declare (not safe)) - (cons __tmp13010 __tmp13007))) - (__tmp12889 - (let ((__tmp12973 - (let ((__tmp13005 + (cons __tmp13187 __tmp13184))) + (__tmp13066 + (let ((__tmp13150 + (let ((__tmp13182 (gx#datum->syntax '#f 'def)) - (__tmp12974 - (let ((__tmp13002 - (let ((__tmp13003 + (__tmp13151 + (let ((__tmp13179 + (let ((__tmp13180 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp13004 (gx#datum->syntax '#f 'exn))) + (let ((__tmp13181 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp13004 '())))) + (cons __tmp13181 '())))) (declare (not safe)) - (cons _L11095_ __tmp13003))) - (__tmp12975 - (let ((__tmp12976 - (let ((__tmp13001 (gx#datum->syntax '#f 'if)) - (__tmp12977 - (let ((__tmp12997 - (let ((__tmp13000 + (cons _L11272_ __tmp13180))) + (__tmp13152 + (let ((__tmp13153 + (let ((__tmp13178 (gx#datum->syntax '#f 'if)) + (__tmp13154 + (let ((__tmp13174 + (let ((__tmp13177 (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp12998 - (let ((__tmp12999 + (__tmp13175 + (let ((__tmp13176 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12999 '())))) + (cons __tmp13176 '())))) (declare (not safe)) - (cons __tmp13000 __tmp12998))) - (__tmp12978 - (let ((__tmp12983 - (let ((__tmp12996 + (cons __tmp13177 __tmp13175))) + (__tmp13155 + (let ((__tmp13160 + (let ((__tmp13173 (gx#datum->syntax '#f 'let)) - (__tmp12984 - (let ((__tmp12989 + (__tmp13161 + (let ((__tmp13166 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12995 (gx#datum->syntax '#f 'e)) - (__tmp12990 - (let ((__tmp12991 - (let ((__tmp12994 + (let ((__tmp13172 (gx#datum->syntax '#f 'e)) + (__tmp13167 + (let ((__tmp13168 + (let ((__tmp13171 (gx#datum->syntax '#f '&RuntimeException-exception)) - (__tmp12992 - (let ((__tmp12993 + (__tmp13169 + (let ((__tmp13170 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12993 '())))) + (cons __tmp13170 '())))) (declare (not safe)) - (cons __tmp12994 __tmp12992)))) + (cons __tmp13171 __tmp13169)))) (declare (not safe)) - (cons __tmp12991 '())))) + (cons __tmp13168 '())))) (declare (not safe)) - (cons __tmp12995 __tmp12990))) - (__tmp12985 - (let ((__tmp12986 - (let ((__tmp12987 - (let ((__tmp12988 + (cons __tmp13172 __tmp13167))) + (__tmp13162 + (let ((__tmp13163 + (let ((__tmp13164 + (let ((__tmp13165 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12988 '())))) + (cons __tmp13165 '())))) (declare (not safe)) - (cons _L11198_ __tmp12987)))) + (cons _L11375_ __tmp13164)))) (declare (not safe)) - (cons __tmp12986 '())))) + (cons __tmp13163 '())))) (declare (not safe)) - (cons __tmp12989 __tmp12985)))) + (cons __tmp13166 __tmp13162)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12996 - __tmp12984))) - (__tmp12979 - (let ((__tmp12980 - (let ((__tmp12981 + (cons __tmp13173 + __tmp13161))) + (__tmp13156 + (let ((__tmp13157 + (let ((__tmp13158 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12982 (gx#datum->syntax '#f 'exn))) + (let ((__tmp13159 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12982 '())))) + (cons __tmp13159 '())))) (declare (not safe)) - (cons _L11198_ __tmp12981)))) + (cons _L11375_ __tmp13158)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12980 '())))) + (cons __tmp13157 '())))) (declare (not safe)) - (cons __tmp12983 __tmp12979)))) + (cons __tmp13160 __tmp13156)))) (declare (not safe)) - (cons __tmp12997 __tmp12978)))) + (cons __tmp13174 __tmp13155)))) (declare (not safe)) - (cons __tmp13001 __tmp12977)))) + (cons __tmp13178 __tmp13154)))) (declare (not safe)) - (cons __tmp12976 '())))) + (cons __tmp13153 '())))) (declare (not safe)) - (cons __tmp13002 __tmp12975)))) + (cons __tmp13179 __tmp13152)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp13005 - __tmp12974))) - (__tmp12890 + (cons __tmp13182 + __tmp13151))) + (__tmp13067 (begin (gx#syntax-check-splice-targets - _L11093_ - _L11196_ - _L11093_ - _L11196_ - _L11093_) - (let ((__tmp12891 - (lambda (_g1121711232_ + _L11270_ + _L11373_ + _L11270_ + _L11373_ + _L11270_) + (let ((__tmp13068 + (lambda (_g1139411409_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1121811235_ - _g1121911237_ - _g1122011239_ - _g1122111241_ - _g1122211243_) - (let ((__tmp12892 - (let ((__tmp12972 (gx#datum->syntax '#f 'def)) - (__tmp12893 - (let ((__tmp12969 - (let ((__tmp12970 - (let ((__tmp12971 + _g1139511412_ + _g1139611414_ + _g1139711416_ + _g1139811418_ + _g1139911420_) + (let ((__tmp13069 + (let ((__tmp13149 (gx#datum->syntax '#f 'def)) + (__tmp13070 + (let ((__tmp13146 + (let ((__tmp13147 + (let ((__tmp13148 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12971 '())))) + (cons __tmp13148 '())))) (declare (not safe)) - (cons _g1121711232_ __tmp12970))) - (__tmp12894 - (let ((__tmp12895 - (let ((__tmp12968 + (cons _g1139411409_ __tmp13147))) + (__tmp13071 + (let ((__tmp13072 + (let ((__tmp13145 (gx#datum->syntax '#f 'if)) - (__tmp12896 - (let ((__tmp12964 - (let ((__tmp12967 + (__tmp13073 + (let ((__tmp13141 + (let ((__tmp13144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp12965 - (let ((__tmp12966 (gx#datum->syntax '#f 'exn))) + (__tmp13142 + (let ((__tmp13143 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12966 '())))) + (cons __tmp13143 '())))) (declare (not safe)) - (cons __tmp12967 __tmp12965))) - (__tmp12897 - (let ((__tmp12926 - (let ((__tmp12963 (gx#datum->syntax '#f 'let)) - (__tmp12927 - (let ((__tmp12956 - (let ((__tmp12962 + (cons __tmp13144 __tmp13142))) + (__tmp13074 + (let ((__tmp13103 + (let ((__tmp13140 (gx#datum->syntax '#f 'let)) + (__tmp13104 + (let ((__tmp13133 + (let ((__tmp13139 (gx#datum->syntax '#f 'e)) - (__tmp12957 - (let ((__tmp12958 - (let ((__tmp12961 + (__tmp13134 + (let ((__tmp13135 + (let ((__tmp13138 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&RuntimeException-exception)) - (__tmp12959 - (let ((__tmp12960 (gx#datum->syntax '#f 'exn))) + (__tmp13136 + (let ((__tmp13137 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12960 '())))) + (cons __tmp13137 '())))) (declare (not safe)) - (cons __tmp12961 __tmp12959)))) + (cons __tmp13138 __tmp13136)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12958 '())))) + (cons __tmp13135 '())))) (declare (not safe)) - (cons __tmp12962 __tmp12957))) - (__tmp12928 - (let ((__tmp12929 - (let ((__tmp12955 + (cons __tmp13139 __tmp13134))) + (__tmp13105 + (let ((__tmp13106 + (let ((__tmp13132 (gx#datum->syntax '#f 'if)) - (__tmp12930 - (let ((__tmp12952 - (let ((__tmp12953 + (__tmp13107 + (let ((__tmp13129 + (let ((__tmp13130 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12954 (gx#datum->syntax '#f 'e))) + (let ((__tmp13131 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12954 '())))) + (cons __tmp13131 '())))) (declare (not safe)) - (cons _L11198_ __tmp12953))) - (__tmp12931 - (let ((__tmp12949 - (let ((__tmp12950 - (let ((__tmp12951 + (cons _L11375_ __tmp13130))) + (__tmp13108 + (let ((__tmp13126 + (let ((__tmp13127 + (let ((__tmp13128 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12951 '())))) + (cons __tmp13128 '())))) (declare (not safe)) - (cons _g1121811235_ __tmp12950))) - (__tmp12932 - (let ((__tmp12933 - (let ((__tmp12948 + (cons _g1139511412_ __tmp13127))) + (__tmp13109 + (let ((__tmp13110 + (let ((__tmp13125 (gx#datum->syntax '#f 'error)) - (__tmp12934 - (let ((__tmp12935 - (let ((__tmp12945 - (let ((__tmp12947 + (__tmp13111 + (let ((__tmp13112 + (let ((__tmp13122 + (let ((__tmp13124 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp12946 - (let () (declare (not safe)) (cons _L11095_ '())))) + (__tmp13123 + (let () (declare (not safe)) (cons _L11272_ '())))) (declare (not safe)) - (cons __tmp12947 __tmp12946))) - (__tmp12936 - (let ((__tmp12937 - (let ((__tmp12944 (gx#datum->syntax '#f '@list)) - (__tmp12938 - (let ((__tmp12941 - (let ((__tmp12943 + (cons __tmp13124 __tmp13123))) + (__tmp13113 + (let ((__tmp13114 + (let ((__tmp13121 (gx#datum->syntax '#f '@list)) + (__tmp13115 + (let ((__tmp13118 + (let ((__tmp13120 (gx#datum->syntax '#f 'quote)) - (__tmp12942 + (__tmp13119 (let () (declare (not safe)) - (cons _g1121711232_ '())))) + (cons _g1139411409_ '())))) (declare (not safe)) - (cons __tmp12943 __tmp12942))) - (__tmp12939 - (let ((__tmp12940 + (cons __tmp13120 __tmp13119))) + (__tmp13116 + (let ((__tmp13117 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp12940 '())))) + (cons __tmp13117 '())))) (declare (not safe)) - (cons __tmp12941 __tmp12939)))) + (cons __tmp13118 __tmp13116)))) (declare (not safe)) - (cons __tmp12944 __tmp12938)))) + (cons __tmp13121 __tmp13115)))) (declare (not safe)) - (cons __tmp12937 '())))) + (cons __tmp13114 '())))) (declare (not safe)) - (cons __tmp12945 __tmp12936)))) + (cons __tmp13122 __tmp13113)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"not an instance" - __tmp12935)))) + __tmp13112)))) (declare (not safe)) - (cons __tmp12948 __tmp12934)))) + (cons __tmp13125 __tmp13111)))) (declare (not safe)) - (cons __tmp12933 '())))) + (cons __tmp13110 '())))) (declare (not safe)) - (cons __tmp12949 __tmp12932)))) + (cons __tmp13126 __tmp13109)))) (declare (not safe)) - (cons __tmp12952 __tmp12931)))) + (cons __tmp13129 __tmp13108)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12955 - __tmp12930)))) + (cons __tmp13132 + __tmp13107)))) (declare (not safe)) - (cons __tmp12929 '())))) + (cons __tmp13106 '())))) (declare (not safe)) - (cons __tmp12956 __tmp12928)))) + (cons __tmp13133 __tmp13105)))) (declare (not safe)) - (cons __tmp12963 __tmp12927))) - (__tmp12898 - (let ((__tmp12899 - (let ((__tmp12925 + (cons __tmp13140 __tmp13104))) + (__tmp13075 + (let ((__tmp13076 + (let ((__tmp13102 (gx#datum->syntax '#f 'if)) - (__tmp12900 - (let ((__tmp12922 - (let ((__tmp12923 - (let ((__tmp12924 + (__tmp13077 + (let ((__tmp13099 + (let ((__tmp13100 + (let ((__tmp13101 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'exn))) (declare (not safe)) - (cons __tmp12924 '())))) + (cons __tmp13101 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L11198_ - __tmp12923))) - (__tmp12901 - (let ((__tmp12919 - (let ((__tmp12920 - (let ((__tmp12921 + (cons _L11375_ + __tmp13100))) + (__tmp13078 + (let ((__tmp13096 + (let ((__tmp13097 + (let ((__tmp13098 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12921 '())))) + (cons __tmp13098 '())))) (declare (not safe)) - (cons _g1121811235_ __tmp12920))) - (__tmp12902 - (let ((__tmp12903 - (let ((__tmp12918 (gx#datum->syntax '#f 'error)) - (__tmp12904 - (let ((__tmp12905 - (let ((__tmp12915 - (let ((__tmp12917 + (cons _g1139511412_ __tmp13097))) + (__tmp13079 + (let ((__tmp13080 + (let ((__tmp13095 (gx#datum->syntax '#f 'error)) + (__tmp13081 + (let ((__tmp13082 + (let ((__tmp13092 + (let ((__tmp13094 (gx#datum->syntax '#f 'quote)) - (__tmp12916 + (__tmp13093 (let () (declare (not safe)) - (cons _L11095_ '())))) + (cons _L11272_ '())))) (declare (not safe)) - (cons __tmp12917 __tmp12916))) - (__tmp12906 - (let ((__tmp12907 - (let ((__tmp12914 + (cons __tmp13094 __tmp13093))) + (__tmp13083 + (let ((__tmp13084 + (let ((__tmp13091 (gx#datum->syntax '#f '@list)) - (__tmp12908 - (let ((__tmp12911 + (__tmp13085 + (let ((__tmp13088 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp12913 (gx#datum->syntax '#f 'quote)) - (__tmp12912 + (let ((__tmp13090 (gx#datum->syntax '#f 'quote)) + (__tmp13089 (let () (declare (not safe)) - (cons _g1121711232_ '())))) + (cons _g1139411409_ '())))) (declare (not safe)) - (cons __tmp12913 __tmp12912))) - (__tmp12909 - (let ((__tmp12910 (gx#datum->syntax '#f 'exn))) + (cons __tmp13090 __tmp13089))) + (__tmp13086 + (let ((__tmp13087 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp12910 '())))) + (cons __tmp13087 '())))) (declare (not safe)) - (cons __tmp12911 __tmp12909)))) + (cons __tmp13088 __tmp13086)))) (declare (not safe)) - (cons __tmp12914 __tmp12908)))) + (cons __tmp13091 __tmp13085)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12907 '())))) + (cons __tmp13084 '())))) (declare (not safe)) - (cons __tmp12915 __tmp12906)))) + (cons __tmp13092 __tmp13083)))) (declare (not safe)) - (cons '"not an instance" __tmp12905)))) + (cons '"not an instance" __tmp13082)))) (declare (not safe)) - (cons __tmp12918 __tmp12904)))) + (cons __tmp13095 __tmp13081)))) (declare (not safe)) - (cons __tmp12903 '())))) + (cons __tmp13080 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12919 - __tmp12902)))) + (cons __tmp13096 + __tmp13079)))) (declare (not safe)) - (cons __tmp12922 __tmp12901)))) + (cons __tmp13099 __tmp13078)))) (declare (not safe)) - (cons __tmp12925 __tmp12900)))) + (cons __tmp13102 __tmp13077)))) (declare (not safe)) - (cons __tmp12899 '())))) + (cons __tmp13076 '())))) (declare (not safe)) - (cons __tmp12926 __tmp12898)))) + (cons __tmp13103 __tmp13075)))) (declare (not safe)) - (cons __tmp12964 __tmp12897)))) + (cons __tmp13141 __tmp13074)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp12968 - __tmp12896)))) + (cons __tmp13145 + __tmp13073)))) (declare (not safe)) - (cons __tmp12895 '())))) + (cons __tmp13072 '())))) (declare (not safe)) - (cons __tmp12969 __tmp12894)))) + (cons __tmp13146 __tmp13071)))) (declare (not safe)) - (cons __tmp12972 __tmp12893)))) + (cons __tmp13149 __tmp13070)))) (declare (not safe)) - (cons __tmp12892 _g1122211243_))))) + (cons __tmp13069 _g1139911420_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr* __tmp12891 + (foldr* __tmp13068 '() - _L11093_ - _L11196_ - _L11093_ - _L11196_ - _L11093_))))) + _L11270_ + _L11373_ + _L11270_ + _L11373_ + _L11270_))))) (declare (not safe)) - (cons __tmp12973 __tmp12890)))) + (cons __tmp13150 __tmp13067)))) (declare (not safe)) - (cons __tmp13006 __tmp12889)))) + (cons __tmp13183 __tmp13066)))) (declare (not safe)) - (cons __tmp13011 __tmp12888)))) - _macro-getf1113311192_ - _hd1112011150_) - (_g1111511139_ _g1111611143_))))))) + (cons __tmp13188 __tmp13065)))) + _macro-getf1131011369_ + _hd1129711327_) + (_g1129211316_ _g1129311320_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1112811172_ - _target1112511166_ + (_loop1130511349_ + _target1130211343_ '())) - (_g1111511139_ _g1111611143_))))) - (_g1111511139_ _g1111611143_)))) - (_g1111511139_ _g1111611143_)))) - (_g1111511139_ _g1111611143_))))) + (_g1129211316_ _g1129311320_))))) + (_g1129211316_ _g1129311320_)))) + (_g1129211316_ _g1129311320_)))) + (_g1129211316_ _g1129311320_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1111411246_ + (_g1129111423_ (list (gx#stx-identifier - _L11095_ + _L11272_ '"macro-" - _L11095_) - (map (lambda (_f11250_) + _L11272_) + (map (lambda (_f11427_) (gx#stx-identifier - _f11250_ + _f11427_ '"macro-" - _f11250_)) - (let ((__tmp13012 - (lambda (_g1125211255_ + _f11427_)) + (let ((__tmp13189 + (lambda (_g1142911432_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1125311258_) + _g1143011435_) (let () (declare (not safe)) - (cons _g1125211255_ _g1125311258_))))) + (cons _g1142911432_ _g1143011435_))))) (declare (not safe)) - (foldr1 __tmp13012 '() _L11093_))))))) + (foldr1 __tmp13189 '() _L11270_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf1102011089_ - _hd1101011057_) - (_g1099911026_ _g1100011030_))))))) - (_loop1101511069_ _target1101211063_ '())) - (_g1099911026_ _g1100011030_))))) + _getf1119711266_ + _hd1118711234_) + (_g1117611203_ _g1117711207_))))))) + (_loop1119211246_ _target1118911240_ '())) + (_g1117611203_ _g1117711207_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1099911026_ _g1100011030_)))) - (_g1099911026_ _g1100011030_)))) - (_g1099911026_ _g1100011030_)))) - (_g1099911026_ _g1100011030_))))) - (_g1099811261_ _stx10996_)))) + (_g1117611203_ _g1117711207_)))) + (_g1117611203_ _g1117711207_)))) + (_g1117611203_ _g1117711207_)))) + (_g1117611203_ _g1117711207_))))) + (_g1117511438_ _stx11173_)))) (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 (_$stx11444_) + (let* ((_g1144811468_ + (lambda (_g1144911464_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1144911464_))) + (_g1144711539_ + (lambda (_g1144911472_) + (if (gx#stx-pair? _g1144911472_) + (let ((_e1145311475_ (gx#syntax-e _g1144911472_))) + (let ((_hd1145211479_ (let () (declare (not safe)) - (##car _e1127611298_))) - (_tl1127411305_ + (##car _e1145311475_))) + (_tl1145111482_ (let () (declare (not safe)) - (##cdr _e1127611298_)))) - (if (gx#stx-pair/null? _tl1127411305_) - (let ((_g13013_ + (##cdr _e1145311475_)))) + (if (gx#stx-pair/null? _tl1145111482_) + (let ((_g13190_ (gx#syntax-split-splice - _tl1127411305_ + _tl1145111482_ '0))) (begin - (let ((_g13014_ + (let ((_g13191_ (let () (declare (not safe)) - (if (##values? _g13013_) - (##vector-length _g13013_) + (if (##values? _g13190_) + (##vector-length _g13190_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g13014_ 2))) + (##fx= _g13191_ 2))) (error "Context expects 2 values" - _g13014_))) - (let ((_target1127711308_ + _g13191_))) + (let ((_target1145411485_ (let () (declare (not safe)) - (##vector-ref _g13013_ 0))) - (_tl1127911311_ + (##vector-ref _g13190_ 0))) + (_tl1145611488_ (let () (declare (not safe)) - (##vector-ref _g13013_ 1)))) - (if (gx#stx-null? _tl1127911311_) - (letrec ((_loop1128011314_ - (lambda (_hd1127811318_ - _defexn1128411321_) + (##vector-ref _g13190_ 1)))) + (if (gx#stx-null? _tl1145611488_) + (letrec ((_loop1145711491_ + (lambda (_hd1145511495_ + _defexn1146111498_) (if (gx#stx-pair? - _hd1127811318_) - (let ((_e1128111324_ + _hd1145511495_) + (let ((_e1145811501_ (gx#syntax-e - _hd1127811318_))) - (let ((_lp-hd1128211328_ + _hd1145511495_))) + (let ((_lp-hd1145911505_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1128111324_))) - (_lp-tl1128311331_ - (let () (declare (not safe)) (##cdr _e1128111324_)))) - (_loop1128011314_ - _lp-tl1128311331_ + (let () (declare (not safe)) (##car _e1145811501_))) + (_lp-tl1146011508_ + (let () (declare (not safe)) (##cdr _e1145811501_)))) + (_loop1145711491_ + _lp-tl1146011508_ (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-hd1145911505_ _defexn1146111498_))))) + (let ((_defexn1146211511_ (reverse _defexn1146111498_))) + ((lambda (_L11515_) + (let ((__tmp13197 (gx#datum->syntax '#f 'begin)) + (__tmp13192 + (let ((__tmp13193 + (lambda (_g1153011533_ _g1153111536_) + (let ((__tmp13194 + (let ((__tmp13196 (gx#datum->syntax '#f 'defruntime-exception)) - (__tmp13018 + (__tmp13195 (let () (declare (not safe)) - (cons _g1135311356_ + (cons _g1153011533_ '())))) (declare (not safe)) - (cons __tmp13019 __tmp13018)))) + (cons __tmp13196 __tmp13195)))) (declare (not safe)) - (cons __tmp13017 _g1135411359_))))) + (cons __tmp13194 _g1153111536_))))) (declare (not safe)) - (foldr1 __tmp13016 '() _L11338_)))) + (foldr1 __tmp13193 '() _L11515_)))) (declare (not safe)) - (cons __tmp13020 __tmp13015))) - _defexn1128511334_)))))) + (cons __tmp13197 __tmp13192))) + _defexn1146211511_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1128011314_ - _target1127711308_ + (_loop1145711491_ + _target1145411485_ '())) - (_g1127111291_ _g1127211295_))))) - (_g1127111291_ _g1127211295_)))) - (_g1127111291_ _g1127211295_))))) - (_g1127011362_ _$stx11267_)))))) + (_g1144811468_ _g1144911472_))))) + (_g1144811468_ _g1144911472_)))) + (_g1144811468_ _g1144911472_))))) + (_g1144711539_ _$stx11444_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index 90d3d40f24..182ea241c6 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 1698333193) (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 _$args17629_ + (apply make-struct-instance __context::t _$args17629_))) (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 _$args17626_ + (apply make-struct-instance __runtime::t _$args17626_))) (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 _$args17623_ + (apply make-struct-instance __syntax::t _$args17623_))) (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 _$args17620_ + (apply make-struct-instance __macro::t _$args17620_))) (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 _$args17617_ + (apply make-struct-instance __special-form::t _$args17617_))) (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 _$args17614_ + (apply make-struct-instance __core-form::t _$args17614_))) (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 _$args17611_ + (apply make-struct-instance __core-expression::t _$args17611_))) (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 _$args17608_ + (apply make-struct-instance __core-special-form::t _$args17608_))) (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 _$args17605_ + (apply make-struct-instance __struct-info::t _$args17605_))) (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 _$args17602_ + (apply make-struct-instance __feature::t _$args17602_))) (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 _$args17599_ + (apply make-struct-instance __module::t _$args17599_))) (define __module-id (let () (declare (not safe)) @@ -349,699 +349,699 @@ (define __*modules* (let () (declare (not safe)) (make-table))) (define __*core* (let () (declare (not safe)) (make-table 'test: eq?))) (define __*top* - (let ((__tmp17638 + (let ((__tmp17815 (let () (declare (not safe)) (##structure __context::t 'root '#f '#f __*core*))) - (__tmp17637 (let () (declare (not safe)) (make-table 'test: eq?)))) + (__tmp17814 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'top '#f __tmp17638 __tmp17637))) + (##structure __context::t 'top '#f __tmp17815 __tmp17814))) (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 (_id17574_ _ctx17575_) + (if _ctx17575_ + (let ((_id17577_ + (let () (declare (not safe)) (__AST-e _id17574_)))) + (let _lp17579_ ((_ctx17581_ _ctx17575_)) + (let ((_$e17583_ (table-ref - (##structure-ref _ctx17404_ '4 __context::t '#f) - _id17400_ + (##structure-ref _ctx17581_ '4 __context::t '#f) + _id17577_ '#f))) - (if _$e17406_ - (values _$e17406_) - (let ((_$e17409_ - (##structure-ref _ctx17404_ '3 __context::t '#f))) - (if _$e17409_ - (let () (declare (not safe)) (_lp17402_ _$e17409_)) + (if _$e17583_ + (values _$e17583_) + (let ((_$e17586_ + (##structure-ref _ctx17581_ '3 __context::t '#f))) + (if _$e17586_ + (let () (declare (not safe)) (_lp17579_ _$e17586_)) '#f)))))) '#f))) (define __core-resolve__0 - (lambda (_id17415_) - (let ((_ctx17417_ (__current-context))) + (lambda (_id17592_) + (let ((_ctx17594_ (__current-context))) (declare (not safe)) - (__core-resolve__% _id17415_ _ctx17417_)))) + (__core-resolve__% _id17592_ _ctx17594_)))) (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 _g17817_ + (let ((_g17816_ (let () (declare (not safe)) (##length _g17817_)))) + (cond ((let () (declare (not safe)) (##fx= _g17816_ 1)) + (apply (lambda (_id17592_) (let () (declare (not safe)) - (__core-resolve__0 _id17415_))) - _g17640_)) - ((let () (declare (not safe)) (##fx= _g17639_ 2)) - (apply (lambda (_id17419_ _ctx17420_) + (__core-resolve__0 _id17592_))) + _g17817_)) + ((let () (declare (not safe)) (##fx= _g17816_ 2)) + (apply (lambda (_id17596_ _ctx17597_) (let () (declare (not safe)) - (__core-resolve__% _id17419_ _ctx17420_))) - _g17640_)) + (__core-resolve__% _id17596_ _ctx17597_))) + _g17817_)) (else (##raise-wrong-number-of-arguments-exception __core-resolve - _g17640_)))))) + _g17817_)))))) (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 (_id17557_ _is?17558_) + (let ((_$e17560_ + (let () (declare (not safe)) (__core-resolve__0 _id17557_)))) + (if _$e17560_ (_is?17558_ _$e17560_) '#f)))) (define __core-bound-id?__0 - (lambda (_id17389_) - (let ((_is?17391_ true)) + (lambda (_id17566_) + (let ((_is?17568_ true)) (declare (not safe)) - (__core-bound-id?__% _id17389_ _is?17391_)))) + (__core-bound-id?__% _id17566_ _is?17568_)))) (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 _g17819_ + (let ((_g17818_ (let () (declare (not safe)) (##length _g17819_)))) + (cond ((let () (declare (not safe)) (##fx= _g17818_ 1)) + (apply (lambda (_id17566_) (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 _id17566_))) + _g17819_)) + ((let () (declare (not safe)) (##fx= _g17818_ 2)) + (apply (lambda (_id17570_ _is?17571_) (let () (declare (not safe)) - (__core-bound-id?__% _id17393_ _is?17394_))) - _g17642_)) + (__core-bound-id?__% _id17570_ _is?17571_))) + _g17819_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g17642_)))))) + _g17819_)))))) (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 (_id17540_ _eid17541_ _ctx17542_) + (if _eid17541_ + (let ((__tmp17822 (##structure-ref _ctx17542_ '4 __context::t '#f)) + (__tmp17821 + (let () (declare (not safe)) (__AST-e _id17540_))) + (__tmp17820 (let () (declare (not safe)) - (##structure __runtime::t _eid17364_)))) + (##structure __runtime::t _eid17541_)))) (declare (not safe)) - (table-set! __tmp17645 __tmp17644 __tmp17643)) + (table-set! __tmp17822 __tmp17821 __tmp17820)) '#!void))) (define __core-bind-runtime!__0 - (lambda (_id17370_ _eid17371_) - (let ((_ctx17373_ (__current-context))) + (lambda (_id17547_ _eid17548_) + (let ((_ctx17550_ (__current-context))) (declare (not safe)) - (__core-bind-runtime!__% _id17370_ _eid17371_ _ctx17373_)))) + (__core-bind-runtime!__% _id17547_ _eid17548_ _ctx17550_)))) (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 _g17824_ + (let ((_g17823_ (let () (declare (not safe)) (##length _g17824_)))) + (cond ((let () (declare (not safe)) (##fx= _g17823_ 2)) + (apply (lambda (_id17547_ _eid17548_) (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 _id17547_ _eid17548_))) + _g17824_)) + ((let () (declare (not safe)) (##fx= _g17823_ 3)) + (apply (lambda (_id17552_ _eid17553_ _ctx17554_) (let () (declare (not safe)) (__core-bind-runtime!__% - _id17375_ - _eid17376_ - _ctx17377_))) - _g17647_)) + _id17552_ + _eid17553_ + _ctx17554_))) + _g17824_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-runtime! - _g17647_)))))) + _g17824_)))))) (define __core-bind-syntax!__% - (lambda (_id17346_ _e17347_ _make17348_) - (let ((__tmp17648 + (lambda (_id17523_ _e17524_ _make17525_) + (let ((__tmp17825 (if (let () (declare (not safe)) (##structure-instance-of? - _e17347_ + _e17524_ 'gerbil/runtime/eval#__syntax::t)) - _e17347_ - (_make17348_ _e17347_ _id17346_)))) + _e17524_ + (_make17525_ _e17524_ _id17523_)))) (declare (not safe)) - (table-set! __*core* _id17346_ __tmp17648)))) + (table-set! __*core* _id17523_ __tmp17825)))) (define __core-bind-syntax!__0 - (lambda (_id17353_ _e17354_) - (let ((_make17356_ make-__syntax)) + (lambda (_id17530_ _e17531_) + (let ((_make17533_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id17353_ _e17354_ _make17356_)))) + (__core-bind-syntax!__% _id17530_ _e17531_ _make17533_)))) (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 _g17827_ + (let ((_g17826_ (let () (declare (not safe)) (##length _g17827_)))) + (cond ((let () (declare (not safe)) (##fx= _g17826_ 2)) + (apply (lambda (_id17530_ _e17531_) (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 _id17530_ _e17531_))) + _g17827_)) + ((let () (declare (not safe)) (##fx= _g17826_ 3)) + (apply (lambda (_id17535_ _e17536_ _make17537_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id17358_ - _e17359_ - _make17360_))) - _g17650_)) + _id17535_ + _e17536_ + _make17537_))) + _g17827_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g17650_)))))) + _g17827_)))))) (define __core-bind-macro! - (lambda (_id17342_ _e17343_) + (lambda (_id17519_ _e17520_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id17342_ _e17343_ make-__macro)))) + (__core-bind-syntax!__% _id17519_ _e17520_ make-__macro)))) (define __core-bind-special-form! - (lambda (_id17339_ _e17340_) + (lambda (_id17516_ _e17517_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id17339_ _e17340_ make-__special-form)))) + (__core-bind-syntax!__% _id17516_ _e17517_ 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 (_id17500_ _e17501_ _ctx17502_) + (let ((__tmp17831 (##structure-ref _ctx17502_ '4 __context::t '#f)) + (__tmp17830 (let () (declare (not safe)) (__AST-e _id17500_))) + (__tmp17828 (if (let () (declare (not safe)) (##structure-instance-of? - _e17324_ + _e17501_ 'gerbil/runtime/eval#__syntax::t)) - _e17324_ - (let ((__tmp17652 - (let () (declare (not safe)) (__AST-e _id17323_)))) + _e17501_ + (let ((__tmp17829 + (let () (declare (not safe)) (__AST-e _id17500_)))) (declare (not safe)) - (##structure __syntax::t _e17324_ __tmp17652))))) + (##structure __syntax::t _e17501_ __tmp17829))))) (declare (not safe)) - (table-set! __tmp17654 __tmp17653 __tmp17651)))) + (table-set! __tmp17831 __tmp17830 __tmp17828)))) (define __core-bind-user-syntax!__0 - (lambda (_id17330_ _e17331_) - (let ((_ctx17333_ (__current-context))) + (lambda (_id17507_ _e17508_) + (let ((_ctx17510_ (__current-context))) (declare (not safe)) - (__core-bind-user-syntax!__% _id17330_ _e17331_ _ctx17333_)))) + (__core-bind-user-syntax!__% _id17507_ _e17508_ _ctx17510_)))) (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 _g17833_ + (let ((_g17832_ (let () (declare (not safe)) (##length _g17833_)))) + (cond ((let () (declare (not safe)) (##fx= _g17832_ 2)) + (apply (lambda (_id17507_ _e17508_) (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 _id17507_ _e17508_))) + _g17833_)) + ((let () (declare (not safe)) (##fx= _g17832_ 3)) + (apply (lambda (_id17512_ _e17513_ _ctx17514_) (let () (declare (not safe)) (__core-bind-user-syntax!__% - _id17335_ - _e17336_ - _ctx17337_))) - _g17656_)) + _id17512_ + _e17513_ + _ctx17514_))) + _g17833_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-user-syntax! - _g17656_)))))) + _g17833_)))))) (define make-__runtime-id__% - (lambda (_id17304_ _ctx17305_) - (let ((_id17307_ (let () (declare (not safe)) (__AST-e _id17304_)))) - (if (let () (declare (not safe)) (eq? _id17307_ '_)) + (lambda (_id17481_ _ctx17482_) + (let ((_id17484_ (let () (declare (not safe)) (__AST-e _id17481_)))) + (if (let () (declare (not safe)) (eq? _id17484_ '_)) '#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? _id17484_) + (gensym _id17484_) + (if (let () (declare (not safe)) (symbol? _id17484_)) + (let ((_$e17486_ + (##structure-ref _ctx17482_ '1 __context::t '#f))) (if (let () (declare (not safe)) - (eq? 'local _$e17309_)) - (gensym _id17307_) + (eq? 'local _$e17486_)) + (gensym _id17484_) (if (let () (declare (not safe)) - (eq? 'module _$e17309_)) - (let ((__tmp17657 + (eq? 'module _$e17486_)) + (let ((__tmp17834 (##structure-ref - _ctx17305_ + _ctx17482_ '2 __context::t '#f))) (declare (not safe)) - (make-symbol__1 __tmp17657 '"#" _id17307_)) - _id17307_))) - (error '"Illegal runtime identifier" _id17307_))))))) + (make-symbol__1 __tmp17834 '"#" _id17484_)) + _id17484_))) + (error '"Illegal runtime identifier" _id17484_))))))) (define make-__runtime-id__0 - (lambda (_id17315_) - (let ((_ctx17317_ (__current-context))) + (lambda (_id17492_) + (let ((_ctx17494_ (__current-context))) (declare (not safe)) - (make-__runtime-id__% _id17315_ _ctx17317_)))) + (make-__runtime-id__% _id17492_ _ctx17494_)))) (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 _g17836_ + (let ((_g17835_ (let () (declare (not safe)) (##length _g17836_)))) + (cond ((let () (declare (not safe)) (##fx= _g17835_ 1)) + (apply (lambda (_id17492_) (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 _id17492_))) + _g17836_)) + ((let () (declare (not safe)) (##fx= _g17835_ 2)) + (apply (lambda (_id17496_ _ctx17497_) (let () (declare (not safe)) - (make-__runtime-id__% _id17319_ _ctx17320_))) - _g17659_)) + (make-__runtime-id__% _id17496_ _ctx17497_))) + _g17836_)) (else (##raise-wrong-number-of-arguments-exception make-__runtime-id - _g17659_)))))) + _g17836_)))))) (define make-__context-local__% - (lambda (_super17293_) - (let ((__tmp17660 + (lambda (_super17470_) + (let ((__tmp17837 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'local '#f _super17293_ __tmp17660)))) + (##structure __context::t 'local '#f _super17470_ __tmp17837)))) (define make-__context-local__0 (lambda () - (let ((_super17299_ (__current-context))) + (let ((_super17476_ (__current-context))) (declare (not safe)) - (make-__context-local__% _super17299_)))) + (make-__context-local__% _super17476_)))) (define make-__context-local - (lambda _g17662_ - (let ((_g17661_ (let () (declare (not safe)) (##length _g17662_)))) - (cond ((let () (declare (not safe)) (##fx= _g17661_ 0)) + (lambda _g17839_ + (let ((_g17838_ (let () (declare (not safe)) (##length _g17839_)))) + (cond ((let () (declare (not safe)) (##fx= _g17838_ 0)) (apply (lambda () (let () (declare (not safe)) (make-__context-local__0))) - _g17662_)) - ((let () (declare (not safe)) (##fx= _g17661_ 1)) - (apply (lambda (_super17301_) + _g17839_)) + ((let () (declare (not safe)) (##fx= _g17838_ 1)) + (apply (lambda (_super17478_) (let () (declare (not safe)) - (make-__context-local__% _super17301_))) - _g17662_)) + (make-__context-local__% _super17478_))) + _g17839_)) (else (##raise-wrong-number-of-arguments-exception make-__context-local - _g17662_)))))) + _g17839_)))))) (define make-__context-module__% - (lambda (_id17273_ _ns17274_ _path17275_ _super17276_) - (let ((__tmp17663 + (lambda (_id17450_ _ns17451_ _path17452_ _super17453_) + (let ((__tmp17840 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) (##structure __module::t 'module - _ns17274_ - _super17276_ - __tmp17663 - _id17273_ - _path17275_ + _ns17451_ + _super17453_ + __tmp17840 + _id17450_ + _path17452_ '#f '#f)))) (define make-__context-module__0 - (lambda (_id17281_ _ns17282_ _path17283_) - (let ((_super17285_ (__current-context))) + (lambda (_id17458_ _ns17459_ _path17460_) + (let ((_super17462_ (__current-context))) (declare (not safe)) (make-__context-module__% - _id17281_ - _ns17282_ - _path17283_ - _super17285_)))) + _id17458_ + _ns17459_ + _path17460_ + _super17462_)))) (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 _g17842_ + (let ((_g17841_ (let () (declare (not safe)) (##length _g17842_)))) + (cond ((let () (declare (not safe)) (##fx= _g17841_ 3)) + (apply (lambda (_id17458_ _ns17459_ _path17460_) (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_) + _id17458_ + _ns17459_ + _path17460_))) + _g17842_)) + ((let () (declare (not safe)) (##fx= _g17841_ 4)) + (apply (lambda (_id17464_ _ns17465_ _path17466_ _super17467_) (let () (declare (not safe)) (make-__context-module__% - _id17287_ - _ns17288_ - _path17289_ - _super17290_))) - _g17665_)) + _id17464_ + _ns17465_ + _path17466_ + _super17467_))) + _g17842_)) (else (##raise-wrong-number-of-arguments-exception make-__context-module - _g17665_)))))) + _g17842_)))))) (define __SRC__% - (lambda (_e17256_ _src-stx17257_) - (if (or (let () (declare (not safe)) (pair? _e17256_)) - (let () (declare (not safe)) (symbol? _e17256_))) - (let ((__tmp17669 + (lambda (_e17433_ _src-stx17434_) + (if (or (let () (declare (not safe)) (pair? _e17433_)) + (let () (declare (not safe)) (symbol? _e17433_))) + (let ((__tmp17846 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx17257_ + _src-stx17434_ 'gerbil#AST::t)) - (let ((__tmp17670 + (let ((__tmp17847 (let () (declare (not safe)) - (__AST-source _src-stx17257_)))) + (__AST-source _src-stx17434_)))) (declare (not safe)) - (__locat __tmp17670)) + (__locat __tmp17847)) '#f))) (declare (not safe)) - (##make-source _e17256_ __tmp17669)) + (##make-source _e17433_ __tmp17846)) (if (let () (declare (not safe)) - (##structure-instance-of? _e17256_ 'gerbil#AST::t)) - (let ((__tmp17668 + (##structure-instance-of? _e17433_ 'gerbil#AST::t)) + (let ((__tmp17845 (let () (declare (not safe)) - (##unchecked-structure-ref _e17256_ '1 AST::t '#f))) - (__tmp17666 - (let ((__tmp17667 + (##unchecked-structure-ref _e17433_ '1 AST::t '#f))) + (__tmp17843 + (let ((__tmp17844 (let () (declare (not safe)) - (__AST-source _e17256_)))) + (__AST-source _e17433_)))) (declare (not safe)) - (__locat __tmp17667)))) + (__locat __tmp17844)))) (declare (not safe)) - (##make-source __tmp17668 __tmp17666)) - (error '"BUG! Cannot sourcify object" _e17256_))))) + (##make-source __tmp17845 __tmp17843)) + (error '"BUG! Cannot sourcify object" _e17433_))))) (define __SRC__0 - (lambda (_e17265_) - (let ((_src-stx17267_ '#f)) + (lambda (_e17442_) + (let ((_src-stx17444_ '#f)) (declare (not safe)) - (__SRC__% _e17265_ _src-stx17267_)))) + (__SRC__% _e17442_ _src-stx17444_)))) (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 _g17849_ + (let ((_g17848_ (let () (declare (not safe)) (##length _g17849_)))) + (cond ((let () (declare (not safe)) (##fx= _g17848_ 1)) + (apply (lambda (_e17442_) + (let () (declare (not safe)) (__SRC__0 _e17442_))) + _g17849_)) + ((let () (declare (not safe)) (##fx= _g17848_ 2)) + (apply (lambda (_e17446_ _src-stx17447_) (let () (declare (not safe)) - (__SRC__% _e17269_ _src-stx17270_))) - _g17672_)) + (__SRC__% _e17446_ _src-stx17447_))) + _g17849_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g17672_)))))) + _g17849_)))))) (define __locat - (lambda (_loc17253_) - (if (let () (declare (not safe)) (##locat? _loc17253_)) - _loc17253_ + (lambda (_loc17430_) + (if (let () (declare (not safe)) (##locat? _loc17430_)) + _loc17430_ '#f))) (define __check-values - (lambda (_obj17248_ _k17249_) - (let ((_count17251_ - (if (let () (declare (not safe)) (##values? _obj17248_)) - (let () (declare (not safe)) (##vector-length _obj17248_)) + (lambda (_obj17425_ _k17426_) + (let ((_count17428_ + (if (let () (declare (not safe)) (##values? _obj17425_)) + (let () (declare (not safe)) (##vector-length _obj17425_)) '1))) - (if (fx= _count17251_ _k17249_) + (if (fx= _count17428_ _k17426_) '#!void - (error (if (fx< _count17251_ _k17249_) + (error (if (fx< _count17428_ _k17426_) '"Too few values for context" '"Too many values for context") - (if (let () (declare (not safe)) (##values? _obj17248_)) + (if (let () (declare (not safe)) (##values? _obj17425_)) (let () (declare (not safe)) - (##vector->list _obj17248_)) - _obj17248_) - _k17249_))))) + (##vector->list _obj17425_)) + _obj17425_) + _k17426_))))) (define __compile - (lambda (_stx17218_) - (let* ((_$e17220_ _stx17218_) - (_$E1722217228_ + (lambda (_stx17395_) + (let* ((_$e17397_ _stx17395_) + (_$E1739917405_ (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" _$e17397_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17397_)) + (let* ((_$tgt1740017408_ + (let () (declare (not safe)) (__AST-e _$e17397_))) + (_$hd1740117411_ + (let () (declare (not safe)) (##car _$tgt1740017408_))) + (_$tl1740217414_ + (let () (declare (not safe)) (##cdr _$tgt1740017408_)))) + (let* ((_form17418_ _$hd1740117411_) + (_$e17420_ (let () (declare (not safe)) - (__core-resolve__0 _form17241_)))) - (if _$e17243_ - ((lambda (_bind17246_) - ((##structure-ref _bind17246_ '1 __syntax::t '#f) - _stx17218_)) - _$e17243_) + (__core-resolve__0 _form17418_)))) + (if _$e17420_ + ((lambda (_bind17423_) + ((##structure-ref _bind17423_ '1 __syntax::t '#f) + _stx17395_)) + _$e17420_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax" - _stx17218_ - _form17241_))))) - (let () (declare (not safe)) (_$E1722217228_)))))) + _stx17395_ + _form17418_))))) + (let () (declare (not safe)) (_$E1739917405_)))))) (define __compile-error__% - (lambda (_stx17205_ _detail17206_) + (lambda (_stx17382_ _detail17383_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx17205_ - _detail17206_)))) + _stx17382_ + _detail17383_)))) (define __compile-error__0 - (lambda (_stx17211_) - (let ((_detail17213_ '#f)) + (lambda (_stx17388_) + (let ((_detail17390_ '#f)) (declare (not safe)) - (__compile-error__% _stx17211_ _detail17213_)))) + (__compile-error__% _stx17388_ _detail17390_)))) (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 _g17851_ + (let ((_g17850_ (let () (declare (not safe)) (##length _g17851_)))) + (cond ((let () (declare (not safe)) (##fx= _g17850_ 1)) + (apply (lambda (_stx17388_) (let () (declare (not safe)) - (__compile-error__0 _stx17211_))) - _g17674_)) - ((let () (declare (not safe)) (##fx= _g17673_ 2)) - (apply (lambda (_stx17215_ _detail17216_) + (__compile-error__0 _stx17388_))) + _g17851_)) + ((let () (declare (not safe)) (##fx= _g17850_ 2)) + (apply (lambda (_stx17392_ _detail17393_) (let () (declare (not safe)) - (__compile-error__% _stx17215_ _detail17216_))) - _g17674_)) + (__compile-error__% _stx17392_ _detail17393_))) + _g17851_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g17674_)))))) + _g17851_)))))) (define __compile-ignore% - (lambda (_stx17202_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx17202_)))) + (lambda (_stx17379_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx17379_)))) (define __compile-begin% - (lambda (_stx17177_) - (let* ((_$e17179_ _stx17177_) - (_$E1718117187_ + (lambda (_stx17354_) + (let* ((_$e17356_ _stx17354_) + (_$E1735817364_ (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" _$e17356_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17356_)) + (let* ((_$tgt1735917367_ + (let () (declare (not safe)) (__AST-e _$e17356_))) + (_$hd1736017370_ + (let () (declare (not safe)) (##car _$tgt1735917367_))) + (_$tl1736117373_ + (let () (declare (not safe)) (##cdr _$tgt1735917367_)))) + (let* ((_body17377_ _$tl1736117373_) + (__tmp17852 + (let ((__tmp17853 (map __compile _body17377_))) (declare (not safe)) - (cons 'begin __tmp17676)))) + (cons 'begin __tmp17853)))) (declare (not safe)) - (__SRC__% __tmp17675 _stx17177_))) - (let () (declare (not safe)) (_$E1718117187_)))))) + (__SRC__% __tmp17852 _stx17354_))) + (let () (declare (not safe)) (_$E1735817364_)))))) (define __compile-begin-foreign% - (lambda (_stx17152_) - (let* ((_$e17154_ _stx17152_) - (_$E1715617162_ + (lambda (_stx17329_) + (let* ((_$e17331_ _stx17329_) + (_$E1733317339_ (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" _$e17331_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17331_)) + (let* ((_$tgt1733417342_ + (let () (declare (not safe)) (__AST-e _$e17331_))) + (_$hd1733517345_ + (let () (declare (not safe)) (##car _$tgt1733417342_))) + (_$tl1733617348_ + (let () (declare (not safe)) (##cdr _$tgt1733417342_)))) + (let* ((_body17352_ _$tl1733617348_) + (__tmp17854 + (let ((__tmp17855 (let () (declare (not safe)) - (__AST->datum _body17175_)))) + (__AST->datum _body17352_)))) (declare (not safe)) - (cons 'begin __tmp17678)))) + (cons 'begin __tmp17855)))) (declare (not safe)) - (__SRC__% __tmp17677 _stx17152_))) - (let () (declare (not safe)) (_$E1715617162_)))))) + (__SRC__% __tmp17854 _stx17329_))) + (let () (declare (not safe)) (_$E1733317339_)))))) (define __compile-import% - (lambda (_stx17127_) - (let* ((_$e17129_ _stx17127_) - (_$E1713117137_ + (lambda (_stx17304_) + (let* ((_$e17306_ _stx17304_) + (_$E1730817314_ (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" _$e17306_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17306_)) + (let* ((_$tgt1730917317_ + (let () (declare (not safe)) (__AST-e _$e17306_))) + (_$hd1731017320_ + (let () (declare (not safe)) (##car _$tgt1730917317_))) + (_$tl1731117323_ + (let () (declare (not safe)) (##cdr _$tgt1730917317_)))) + (let* ((_body17327_ _$tl1731117323_) + (__tmp17856 + (let ((__tmp17857 + (let ((__tmp17858 + (let ((__tmp17859 (let () (declare (not safe)) - (cons _body17150_ '())))) + (cons _body17327_ '())))) (declare (not safe)) - (cons 'quote __tmp17682)))) + (cons 'quote __tmp17859)))) (declare (not safe)) - (cons __tmp17681 '())))) + (cons __tmp17858 '())))) (declare (not safe)) - (cons '__eval-import __tmp17680)))) + (cons '__eval-import __tmp17857)))) (declare (not safe)) - (__SRC__% __tmp17679 _stx17127_))) - (let () (declare (not safe)) (_$E1713117137_)))))) + (__SRC__% __tmp17856 _stx17304_))) + (let () (declare (not safe)) (_$E1730817314_)))))) (define __compile-begin-annotation% - (lambda (_stx17074_) - (let* ((_$e17076_ _stx17074_) - (_$E1707817090_ + (lambda (_stx17251_) + (let* ((_$e17253_ _stx17251_) + (_$E1725517267_ (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" _$e17253_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17253_)) + (let* ((_$tgt1725617270_ + (let () (declare (not safe)) (__AST-e _$e17253_))) + (_$hd1725717273_ + (let () (declare (not safe)) (##car _$tgt1725617270_))) + (_$tl1725817276_ + (let () (declare (not safe)) (##cdr _$tgt1725617270_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1725817276_)) + (let* ((_$tgt1725917280_ (let () (declare (not safe)) - (__AST-e _$tl1708117099_))) - (_$hd1708317106_ + (__AST-e _$tl1725817276_))) + (_$hd1726017283_ (let () (declare (not safe)) - (##car _$tgt1708217103_))) - (_$tl1708417109_ + (##car _$tgt1725917280_))) + (_$tl1726117286_ (let () (declare (not safe)) - (##cdr _$tgt1708217103_)))) - (let ((_ann17113_ _$hd1708317106_)) + (##cdr _$tgt1725917280_)))) + (let ((_ann17290_ _$hd1726017283_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1708417109_)) - (let* ((_$tgt1708517115_ + (__AST-pair? _$tl1726117286_)) + (let* ((_$tgt1726217292_ (let () (declare (not safe)) - (__AST-e _$tl1708417109_))) - (_$hd1708617118_ + (__AST-e _$tl1726117286_))) + (_$hd1726317295_ (let () (declare (not safe)) - (##car _$tgt1708517115_))) - (_$tl1708717121_ + (##car _$tgt1726217292_))) + (_$tl1726417298_ (let () (declare (not safe)) - (##cdr _$tgt1708517115_)))) - (let ((_expr17125_ _$hd1708617118_)) - (if (let ((__tmp17683 + (##cdr _$tgt1726217292_)))) + (let ((_expr17302_ _$hd1726317295_)) + (if (let ((__tmp17860 (let () (declare (not safe)) - (__AST-e _$tl1708717121_)))) + (__AST-e _$tl1726417298_)))) (declare (not safe)) - (equal? __tmp17683 '())) + (equal? __tmp17860 '())) (let () (declare (not safe)) - (__compile _expr17125_)) + (__compile _expr17302_)) (let () (declare (not safe)) - (_$E1707817090_))))) - (let () (declare (not safe)) (_$E1707817090_))))) - (let () (declare (not safe)) (_$E1707817090_)))) - (let () (declare (not safe)) (_$E1707817090_)))))) + (_$E1725517267_))))) + (let () (declare (not safe)) (_$E1725517267_))))) + (let () (declare (not safe)) (_$E1725517267_)))) + (let () (declare (not safe)) (_$E1725517267_)))))) (define __compile-define-values% - (lambda (_stx16965_) - (let* ((_$e16967_ _stx16965_) - (_$E1696916981_ + (lambda (_stx17142_) + (let* ((_$e17144_ _stx17142_) + (_$E1714617158_ (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" _$e17144_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17144_)) + (let* ((_$tgt1714717161_ + (let () (declare (not safe)) (__AST-e _$e17144_))) + (_$hd1714817164_ + (let () (declare (not safe)) (##car _$tgt1714717161_))) + (_$tl1714917167_ + (let () (declare (not safe)) (##cdr _$tgt1714717161_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1714917167_)) + (let* ((_$tgt1715017171_ (let () (declare (not safe)) - (__AST-e _$tl1697216990_))) - (_$hd1697416997_ + (__AST-e _$tl1714917167_))) + (_$hd1715117174_ (let () (declare (not safe)) - (##car _$tgt1697316994_))) - (_$tl1697517000_ + (##car _$tgt1715017171_))) + (_$tl1715217177_ (let () (declare (not safe)) - (##cdr _$tgt1697316994_)))) - (let ((_hd17004_ _$hd1697416997_)) + (##cdr _$tgt1715017171_)))) + (let ((_hd17181_ _$hd1715117174_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1697517000_)) - (let* ((_$tgt1697617006_ + (__AST-pair? _$tl1715217177_)) + (let* ((_$tgt1715317183_ (let () (declare (not safe)) - (__AST-e _$tl1697517000_))) - (_$hd1697717009_ + (__AST-e _$tl1715217177_))) + (_$hd1715417186_ (let () (declare (not safe)) - (##car _$tgt1697617006_))) - (_$tl1697817012_ + (##car _$tgt1715317183_))) + (_$tl1715517189_ (let () (declare (not safe)) - (##cdr _$tgt1697617006_)))) - (let ((_expr17016_ _$hd1697717009_)) - (if (let ((__tmp17716 + (##cdr _$tgt1715317183_)))) + (let ((_expr17193_ _$hd1715417186_)) + (if (let ((__tmp17893 (let () (declare (not safe)) - (__AST-e _$tl1697817012_)))) + (__AST-e _$tl1715517189_)))) (declare (not safe)) - (equal? __tmp17716 '())) - (let* ((_$e17018_ _hd17004_) - (_$E1702017061_ + (equal? __tmp17893 '())) + (let* ((_$e17195_ _hd17181_) + (_$E1719717238_ (lambda () - (let ((_$E1702117046_ + (let ((_$E1719817223_ (lambda () - (let* ((_$E1702217033_ + (let* ((_$E1719917210_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () @@ -1049,2868 +1049,2868 @@ (__raise-syntax-error '#f '"Bad syntax" - _$e17018_)))) - (_ids17036_ _hd17004_) - (_len17038_ (length _ids17036_)) - (_tmp17040_ - (let ((__tmp17684 (gensym))) + _$e17195_)))) + (_ids17213_ _hd17181_) + (_len17215_ (length _ids17213_)) + (_tmp17217_ + (let ((__tmp17861 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17684)))) - (let ((__tmp17685 - (let ((__tmp17686 - (let ((__tmp17703 - (let ((__tmp17704 - (let ((__tmp17705 - (let ((__tmp17706 - (let ((__tmp17707 + (__SRC__0 __tmp17861)))) + (let ((__tmp17862 + (let ((__tmp17863 + (let ((__tmp17880 + (let ((__tmp17881 + (let ((__tmp17882 + (let ((__tmp17883 + (let ((__tmp17884 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr17016_)))) + (__compile _expr17193_)))) (declare (not safe)) - (cons __tmp17707 '())))) + (cons __tmp17884 '())))) (declare (not safe)) - (cons _tmp17040_ __tmp17706)))) + (cons _tmp17217_ __tmp17883)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp17705)))) + (cons 'define __tmp17882)))) (declare (not safe)) - (__SRC__% __tmp17704 _stx16965_))) - (__tmp17687 - (let ((__tmp17699 - (let ((__tmp17700 - (let ((__tmp17701 - (let ((__tmp17702 + (__SRC__% __tmp17881 _stx17142_))) + (__tmp17864 + (let ((__tmp17876 + (let ((__tmp17877 + (let ((__tmp17878 + (let ((__tmp17879 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _len17038_ '())))) + (let () (declare (not safe)) (cons _len17215_ '())))) (declare (not safe)) - (cons _tmp17040_ __tmp17702)))) + (cons _tmp17217_ __tmp17879)))) (declare (not safe)) - (cons '__check-values __tmp17701)))) + (cons '__check-values __tmp17878)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17700 - _stx16965_))) - (__tmp17688 - (let ((__tmp17689 - (let ((__tmp17691 - (lambda (_id17043_ + __tmp17877 + _stx17142_))) + (__tmp17865 + (let ((__tmp17866 + (let ((__tmp17868 + (lambda (_id17220_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k17044_) - (if (let () (declare (not safe)) (__AST-e _id17043_)) - (let ((__tmp17692 - (let ((__tmp17693 - (let ((__tmp17698 + _k17221_) + (if (let () (declare (not safe)) (__AST-e _id17220_)) + (let ((__tmp17869 + (let ((__tmp17870 + (let ((__tmp17875 (let () (declare (not safe)) - (__SRC__0 _id17043_))) - (__tmp17694 - (let ((__tmp17695 - (let ((__tmp17696 - (let ((__tmp17697 + (__SRC__0 _id17220_))) + (__tmp17871 + (let ((__tmp17872 + (let ((__tmp17873 + (let ((__tmp17874 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k17044_ '())))) + (let () (declare (not safe)) (cons _k17221_ '())))) (declare (not safe)) - (cons _tmp17040_ __tmp17697)))) + (cons _tmp17217_ __tmp17874)))) (declare (not safe)) - (cons '##vector-ref __tmp17696)))) + (cons '##vector-ref __tmp17873)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17695 '())))) + (cons __tmp17872 '())))) (declare (not safe)) - (cons __tmp17698 __tmp17694)))) + (cons __tmp17875 __tmp17871)))) (declare (not safe)) - (cons 'define __tmp17693)))) + (cons 'define __tmp17870)))) (declare (not safe)) - (__SRC__% __tmp17692 _stx16965_)) + (__SRC__% __tmp17869 _stx17142_)) '#f))) - (__tmp17690 (let () (declare (not safe)) (iota _len17038_)))) + (__tmp17867 (let () (declare (not safe)) (iota _len17215_)))) (declare (not safe)) - (filter-map2 __tmp17691 _ids17036_ __tmp17690)))) + (filter-map2 __tmp17868 _ids17213_ __tmp17867)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp17689)))) + (foldr1 cons '() __tmp17866)))) (declare (not safe)) - (cons __tmp17699 __tmp17688)))) + (cons __tmp17876 __tmp17865)))) (declare (not safe)) - (cons __tmp17703 __tmp17687)))) + (cons __tmp17880 __tmp17864)))) (declare (not safe)) - (cons 'begin __tmp17686)))) + (cons 'begin __tmp17863)))) (declare (not safe)) - (__SRC__% __tmp17685 _stx16965_)))))) + (__SRC__% __tmp17862 _stx17142_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e17018_)) - (let* ((_$tgt1702317049_ + (__AST-pair? _$e17195_)) + (let* ((_$tgt1720017226_ (let () (declare (not safe)) - (__AST-e _$e17018_))) - (_$hd1702417052_ + (__AST-e _$e17195_))) + (_$hd1720117229_ (let () (declare (not safe)) - (##car _$tgt1702317049_))) - (_$tl1702517055_ + (##car _$tgt1720017226_))) + (_$tl1720217232_ (let () (declare (not safe)) - (##cdr _$tgt1702317049_)))) - (let ((_id17059_ - _$hd1702417052_)) - (if (let ((__tmp17713 + (##cdr _$tgt1720017226_)))) + (let ((_id17236_ + _$hd1720117229_)) + (if (let ((__tmp17890 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl1702517055_)))) + (__AST-e _$tl1720217232_)))) (declare (not safe)) - (equal? __tmp17713 '())) - (let ((__tmp17708 - (let ((__tmp17709 - (let ((__tmp17712 + (equal? __tmp17890 '())) + (let ((__tmp17885 + (let ((__tmp17886 + (let ((__tmp17889 (let () (declare (not safe)) - (__SRC__0 _id17059_))) - (__tmp17710 - (let ((__tmp17711 + (__SRC__0 _id17236_))) + (__tmp17887 + (let ((__tmp17888 (let () (declare (not safe)) - (__compile _expr17016_)))) + (__compile _expr17193_)))) (declare (not safe)) - (cons __tmp17711 '())))) + (cons __tmp17888 '())))) (declare (not safe)) - (cons __tmp17712 __tmp17710)))) + (cons __tmp17889 __tmp17887)))) (declare (not safe)) - (cons 'define __tmp17709)))) + (cons 'define __tmp17886)))) (declare (not safe)) - (__SRC__% __tmp17708 _stx16965_)) - (let () (declare (not safe)) (_$E1702117046_))))) + (__SRC__% __tmp17885 _stx17142_)) + (let () (declare (not safe)) (_$E1719817223_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E1702117046_))))))) + (_$E1719817223_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e17018_)) - (let* ((_$tgt1702617064_ + (__AST-pair? _$e17195_)) + (let* ((_$tgt1720317241_ (let () (declare (not safe)) - (__AST-e _$e17018_))) - (_$hd1702717067_ + (__AST-e _$e17195_))) + (_$hd1720417244_ (let () (declare (not safe)) - (##car _$tgt1702617064_))) - (_$tl1702817070_ + (##car _$tgt1720317241_))) + (_$tl1720517247_ (let () (declare (not safe)) - (##cdr _$tgt1702617064_)))) - (if (let ((__tmp17715 + (##cdr _$tgt1720317241_)))) + (if (let ((__tmp17892 (let () (declare (not safe)) - (__AST-e _$hd1702717067_)))) + (__AST-e _$hd1720417244_)))) (declare (not safe)) - (equal? __tmp17715 '#f)) - (if (let ((__tmp17714 + (equal? __tmp17892 '#f)) + (if (let ((__tmp17891 (let () (declare (not safe)) - (__AST-e _$tl1702817070_)))) + (__AST-e _$tl1720517247_)))) (declare (not safe)) - (equal? __tmp17714 '())) + (equal? __tmp17891 '())) (let () (declare (not safe)) - (__compile _expr17016_)) + (__compile _expr17193_)) (let () (declare (not safe)) - (_$E1702017061_))) + (_$E1719717238_))) (let () (declare (not safe)) - (_$E1702017061_)))) + (_$E1719717238_)))) (let () (declare (not safe)) - (_$E1702017061_)))) + (_$E1719717238_)))) (let () (declare (not safe)) - (_$E1696916981_))))) - (let () (declare (not safe)) (_$E1696916981_))))) - (let () (declare (not safe)) (_$E1696916981_)))) - (let () (declare (not safe)) (_$E1696916981_)))))) + (_$E1714617158_))))) + (let () (declare (not safe)) (_$E1714617158_))))) + (let () (declare (not safe)) (_$E1714617158_)))) + (let () (declare (not safe)) (_$E1714617158_)))))) (define __compile-head-id - (lambda (_e16963_) - (let ((__tmp17717 - (if (let () (declare (not safe)) (__AST-e _e16963_)) - _e16963_ + (lambda (_e17140_) + (let ((__tmp17894 + (if (let () (declare (not safe)) (__AST-e _e17140_)) + _e17140_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp17717)))) + (__SRC__0 __tmp17894)))) (define __compile-lambda-head - (lambda (_hd16920_) - (let _recur16922_ ((_rest16924_ _hd16920_)) - (let* ((_$e16926_ _rest16924_) - (_$E1692816946_ + (lambda (_hd17097_) + (let _recur17099_ ((_rest17101_ _hd17097_)) + (let* ((_$e17103_ _rest17101_) + (_$E1710517123_ (lambda () - (let ((_$E1692916943_ + (let ((_$E1710617120_ (lambda () - (let* ((_$E1693016938_ + (let* ((_$E1710717115_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax" - _$e16926_)))) - (_tail16941_ _$e16926_)) + _$e17103_)))) + (_tail17118_ _$e17103_)) (declare (not safe)) - (__compile-head-id _tail16941_))))) - (if (let ((__tmp17718 + (__compile-head-id _tail17118_))))) + (if (let ((__tmp17895 (let () (declare (not safe)) - (__AST-e _$e16926_)))) + (__AST-e _$e17103_)))) (declare (not safe)) - (equal? __tmp17718 '())) + (equal? __tmp17895 '())) '() - (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)) (_$E1710617120_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17103_)) + (let* ((_$tgt1710817126_ + (let () (declare (not safe)) (__AST-e _$e17103_))) + (_$hd1710917129_ + (let () (declare (not safe)) (##car _$tgt1710817126_))) + (_$tl1711017132_ (let () (declare (not safe)) - (##cdr _$tgt1693116949_)))) - (let* ((_hd16959_ _$hd1693216952_) - (_rest16961_ _$tl1693316955_)) - (let ((__tmp17720 + (##cdr _$tgt1710817126_)))) + (let* ((_hd17136_ _$hd1710917129_) + (_rest17138_ _$tl1711017132_)) + (let ((__tmp17897 (let () (declare (not safe)) - (__compile-head-id _hd16959_))) - (__tmp17719 + (__compile-head-id _hd17136_))) + (__tmp17896 (let () (declare (not safe)) - (_recur16922_ _rest16961_)))) + (_recur17099_ _rest17138_)))) (declare (not safe)) - (cons __tmp17720 __tmp17719)))) - (let () (declare (not safe)) (_$E1692816946_))))))) + (cons __tmp17897 __tmp17896)))) + (let () (declare (not safe)) (_$E1710517123_))))))) (define __compile-lambda% - (lambda (_stx16867_) - (let* ((_$e16869_ _stx16867_) - (_$E1687116883_ + (lambda (_stx17044_) + (let* ((_$e17046_ _stx17044_) + (_$E1704817060_ (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" _$e17046_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17046_)) + (let* ((_$tgt1704917063_ + (let () (declare (not safe)) (__AST-e _$e17046_))) + (_$hd1705017066_ + (let () (declare (not safe)) (##car _$tgt1704917063_))) + (_$tl1705117069_ + (let () (declare (not safe)) (##cdr _$tgt1704917063_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1705117069_)) + (let* ((_$tgt1705217073_ (let () (declare (not safe)) - (__AST-e _$tl1687416892_))) - (_$hd1687616899_ + (__AST-e _$tl1705117069_))) + (_$hd1705317076_ (let () (declare (not safe)) - (##car _$tgt1687516896_))) - (_$tl1687716902_ + (##car _$tgt1705217073_))) + (_$tl1705417079_ (let () (declare (not safe)) - (##cdr _$tgt1687516896_)))) - (let ((_hd16906_ _$hd1687616899_)) + (##cdr _$tgt1705217073_)))) + (let ((_hd17083_ _$hd1705317076_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1687716902_)) - (let* ((_$tgt1687816908_ + (__AST-pair? _$tl1705417079_)) + (let* ((_$tgt1705517085_ (let () (declare (not safe)) - (__AST-e _$tl1687716902_))) - (_$hd1687916911_ + (__AST-e _$tl1705417079_))) + (_$hd1705617088_ (let () (declare (not safe)) - (##car _$tgt1687816908_))) - (_$tl1688016914_ + (##car _$tgt1705517085_))) + (_$tl1705717091_ (let () (declare (not safe)) - (##cdr _$tgt1687816908_)))) - (let ((_body16918_ _$hd1687916911_)) - (if (let ((__tmp17726 + (##cdr _$tgt1705517085_)))) + (let ((_body17095_ _$hd1705617088_)) + (if (let ((__tmp17903 (let () (declare (not safe)) - (__AST-e _$tl1688016914_)))) + (__AST-e _$tl1705717091_)))) (declare (not safe)) - (equal? __tmp17726 '())) - (let ((__tmp17721 - (let ((__tmp17722 - (let ((__tmp17725 + (equal? __tmp17903 '())) + (let ((__tmp17898 + (let ((__tmp17899 + (let ((__tmp17902 (let () (declare (not safe)) (__compile-lambda-head - _hd16906_))) - (__tmp17723 - (let ((__tmp17724 + _hd17083_))) + (__tmp17900 + (let ((__tmp17901 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body16918_)))) + (__compile _body17095_)))) (declare (not safe)) - (cons __tmp17724 '())))) + (cons __tmp17901 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17725 - __tmp17723)))) + (cons __tmp17902 + __tmp17900)))) (declare (not safe)) - (cons 'lambda __tmp17722)))) + (cons 'lambda __tmp17899)))) (declare (not safe)) - (__SRC__% __tmp17721 _stx16867_)) + (__SRC__% __tmp17898 _stx17044_)) (let () (declare (not safe)) - (_$E1687116883_))))) - (let () (declare (not safe)) (_$E1687116883_))))) - (let () (declare (not safe)) (_$E1687116883_)))) - (let () (declare (not safe)) (_$E1687116883_)))))) + (_$E1704817060_))))) + (let () (declare (not safe)) (_$E1704817060_))))) + (let () (declare (not safe)) (_$E1704817060_)))) + (let () (declare (not safe)) (_$E1704817060_)))))) (define __compile-case-lambda% - (lambda (_stx16659_) - (letrec ((_variadic?16661_ - (lambda (_hd16832_) - (let* ((_$e16834_ _hd16832_) - (_$E1683616852_ + (lambda (_stx16836_) + (letrec ((_variadic?16838_ + (lambda (_hd17009_) + (let* ((_$e17011_ _hd17009_) + (_$E1701317029_ (lambda () - (let ((_$E1683716849_ + (let ((_$E1701417026_ (lambda () - (let ((_$E1683816846_ + (let ((_$E1701517023_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax" - _$e16834_))))) + _$e17011_))))) '#t)))) - (if (let ((__tmp17727 + (if (let ((__tmp17904 (let () (declare (not safe)) - (__AST-e _$e16834_)))) + (__AST-e _$e17011_)))) (declare (not safe)) - (equal? __tmp17727 '())) + (equal? __tmp17904 '())) '#f (let () (declare (not safe)) - (_$E1683716849_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16834_)) - (let* ((_$tgt1683916855_ + (_$E1701417026_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e17011_)) + (let* ((_$tgt1701617032_ (let () (declare (not safe)) - (__AST-e _$e16834_))) - (_$hd1684016858_ + (__AST-e _$e17011_))) + (_$hd1701717035_ (let () (declare (not safe)) - (##car _$tgt1683916855_))) - (_$tl1684116861_ + (##car _$tgt1701617032_))) + (_$tl1701817038_ (let () (declare (not safe)) - (##cdr _$tgt1683916855_)))) - (let ((_rest16865_ _$tl1684116861_)) + (##cdr _$tgt1701617032_)))) + (let ((_rest17042_ _$tl1701817038_)) (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?16838_ _rest17042_))) + (let () (declare (not safe)) (_$E1701317029_)))))) + (_arity16839_ + (lambda (_hd16974_) + (let _lp16976_ ((_rest16978_ _hd16974_) (_k16979_ '0)) + (let* ((_$e16981_ _rest16978_) + (_$E1698316994_ (lambda () - (let ((_$E1680716814_ + (let ((_$E1698416991_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax" - _$e16804_))))) - _k16802_)))) + _$e16981_))))) + _k16979_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e16804_)) - (let* ((_$tgt1680816820_ + (__AST-pair? _$e16981_)) + (let* ((_$tgt1698516997_ (let () (declare (not safe)) - (__AST-e _$e16804_))) - (_$hd1680916823_ + (__AST-e _$e16981_))) + (_$hd1698617000_ (let () (declare (not safe)) - (##car _$tgt1680816820_))) - (_$tl1681016826_ + (##car _$tgt1698516997_))) + (_$tl1698717003_ (let () (declare (not safe)) - (##cdr _$tgt1680816820_)))) - (let* ((_rest16830_ _$tl1681016826_) - (__tmp17728 + (##cdr _$tgt1698516997_)))) + (let* ((_rest17007_ _$tl1698717003_) + (__tmp17905 (let () (declare (not safe)) - (fx+ _k16802_ '1)))) + (fx+ _k16979_ '1)))) (declare (not safe)) - (_lp16799_ _rest16830_ __tmp17728))) - (let () (declare (not safe)) (_$E1680616817_))))))) - (_generate16663_ - (lambda (_rest16724_ _args16725_ _len16726_) - (let* ((_$e16728_ _rest16724_) - (_$E1673016741_ + (_lp16976_ _rest17007_ __tmp17905))) + (let () (declare (not safe)) (_$E1698316994_))))))) + (_generate16840_ + (lambda (_rest16901_ _args16902_ _len16903_) + (let* ((_$e16905_ _rest16901_) + (_$E1690716918_ (lambda () - (let* ((_$E1673116738_ + (let* ((_$E1690816915_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax" - _$e16728_)))) - (__tmp17729 - (let ((__tmp17730 - (let ((__tmp17731 + _$e16905_)))) + (__tmp17906 + (let ((__tmp17907 + (let ((__tmp17908 (let () (declare (not safe)) - (cons _args16725_ '())))) + (cons _args16902_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp17731)))) + __tmp17908)))) (declare (not safe)) - (cons 'error __tmp17730)))) + (cons 'error __tmp17907)))) (declare (not safe)) - (__SRC__% __tmp17729 _stx16659_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16728_)) - (let* ((_$tgt1673216744_ + (__SRC__% __tmp17906 _stx16836_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16905_)) + (let* ((_$tgt1690916921_ (let () (declare (not safe)) - (__AST-e _$e16728_))) - (_$hd1673316747_ + (__AST-e _$e16905_))) + (_$hd1691016924_ (let () (declare (not safe)) - (##car _$tgt1673216744_))) - (_$tl1673416750_ + (##car _$tgt1690916921_))) + (_$tl1691116927_ (let () (declare (not safe)) - (##cdr _$tgt1673216744_)))) - (let* ((_clause16754_ _$hd1673316747_) - (_rest16756_ _$tl1673416750_) - (_$e16758_ _clause16754_) - (_$E1676016769_ + (##cdr _$tgt1690916921_)))) + (let* ((_clause16931_ _$hd1691016924_) + (_rest16933_ _$tl1691116927_) + (_$e16935_ _clause16931_) + (_$E1693716946_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax" - _$e16758_))))) + _$e16935_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e16758_)) - (let* ((_$tgt1676116772_ + (__AST-pair? _$e16935_)) + (let* ((_$tgt1693816949_ (let () (declare (not safe)) - (__AST-e _$e16758_))) - (_$hd1676216775_ + (__AST-e _$e16935_))) + (_$hd1693916952_ (let () (declare (not safe)) - (##car _$tgt1676116772_))) - (_$tl1676316778_ + (##car _$tgt1693816949_))) + (_$tl1694016955_ (let () (declare (not safe)) - (##cdr _$tgt1676116772_)))) - (let ((_hd16782_ _$hd1676216775_)) + (##cdr _$tgt1693816949_)))) + (let ((_hd16959_ _$hd1693916952_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1676316778_)) - (let* ((_$tgt1676416784_ + (__AST-pair? _$tl1694016955_)) + (let* ((_$tgt1694116961_ (let () (declare (not safe)) - (__AST-e _$tl1676316778_))) - (_$hd1676516787_ + (__AST-e _$tl1694016955_))) + (_$hd1694216964_ (let () (declare (not safe)) - (##car _$tgt1676416784_))) - (_$tl1676616790_ + (##car _$tgt1694116961_))) + (_$tl1694316967_ (let () (declare (not safe)) - (##cdr _$tgt1676416784_)))) - (if (let ((__tmp17746 + (##cdr _$tgt1694116961_)))) + (if (let ((__tmp17923 (let () (declare (not safe)) - (__AST-e _$tl1676616790_)))) + (__AST-e _$tl1694316967_)))) (declare (not safe)) - (equal? __tmp17746 '())) - (let ((_clen16794_ + (equal? __tmp17923 '())) + (let ((_clen16971_ (let () (declare (not safe)) - (_arity16662_ - _hd16782_))) - (_cmp16795_ + (_arity16839_ + _hd16959_))) + (_cmp16972_ (if (let () (declare (not safe)) - (_variadic?16661_ - _hd16782_)) + (_variadic?16838_ + _hd16959_)) 'fx>= 'fx=))) - (let ((__tmp17732 - (let ((__tmp17733 - (let ((__tmp17743 + (let ((__tmp17909 + (let ((__tmp17910 + (let ((__tmp17920 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17744 - (let ((__tmp17745 + (let ((__tmp17921 + (let ((__tmp17922 (let () (declare (not safe)) - (cons _clen16794_ '())))) + (cons _clen16971_ '())))) (declare (not safe)) - (cons _len16726_ __tmp17745)))) + (cons _len16903_ __tmp17922)))) (declare (not safe)) - (cons _cmp16795_ __tmp17744))) - (__tmp17734 - (let ((__tmp17737 - (let ((__tmp17738 - (let ((__tmp17739 - (let ((__tmp17741 - (let ((__tmp17742 + (cons _cmp16972_ __tmp17921))) + (__tmp17911 + (let ((__tmp17914 + (let ((__tmp17915 + (let ((__tmp17916 + (let ((__tmp17918 + (let ((__tmp17919 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause16754_)))) + (cons '%#lambda _clause16931_)))) (declare (not safe)) - (__compile-lambda% __tmp17742))) - (__tmp17740 - (let () (declare (not safe)) (cons _args16725_ '())))) + (__compile-lambda% __tmp17919))) + (__tmp17917 + (let () (declare (not safe)) (cons _args16902_ '())))) (declare (not safe)) - (cons __tmp17741 __tmp17740)))) + (cons __tmp17918 __tmp17917)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp17739)))) + (cons '##apply __tmp17916)))) (declare (not safe)) - (__SRC__% __tmp17738 _stx16659_))) - (__tmp17735 - (let ((__tmp17736 + (__SRC__% __tmp17915 _stx16836_))) + (__tmp17912 + (let ((__tmp17913 (let () (declare (not safe)) - (_generate16663_ - _rest16756_ - _args16725_ - _len16726_)))) + (_generate16840_ + _rest16933_ + _args16902_ + _len16903_)))) (declare (not safe)) - (cons __tmp17736 '())))) + (cons __tmp17913 '())))) (declare (not safe)) - (cons __tmp17737 __tmp17735)))) + (cons __tmp17914 __tmp17912)))) (declare (not safe)) - (cons __tmp17743 __tmp17734)))) + (cons __tmp17920 __tmp17911)))) (declare (not safe)) - (cons 'if __tmp17733)))) + (cons 'if __tmp17910)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17732 - _stx16659_))) + __tmp17909 + _stx16836_))) (let () (declare (not safe)) - (_$E1676016769_)))) + (_$E1693716946_)))) (let () (declare (not safe)) - (_$E1676016769_))))) + (_$E1693716946_))))) (let () (declare (not safe)) - (_$E1676016769_))))) - (let () (declare (not safe)) (_$E1673016741_))))))) - (let* ((_$e16665_ _stx16659_) - (_$E1666716699_ + (_$E1693716946_))))) + (let () (declare (not safe)) (_$E1690716918_))))))) + (let* ((_$e16842_ _stx16836_) + (_$E1684416876_ (lambda () - (let ((_$E1666816681_ + (let ((_$E1684516858_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax" - _$e16665_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16665_)) - (let* ((_$tgt1666916684_ + _$e16842_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16842_)) + (let* ((_$tgt1684616861_ (let () (declare (not safe)) - (__AST-e _$e16665_))) - (_$hd1667016687_ + (__AST-e _$e16842_))) + (_$hd1684716864_ (let () (declare (not safe)) - (##car _$tgt1666916684_))) - (_$tl1667116690_ + (##car _$tgt1684616861_))) + (_$tl1684816867_ (let () (declare (not safe)) - (##cdr _$tgt1666916684_)))) - (let ((_clauses16694_ _$tl1667116690_)) - (let ((_args16696_ - (let ((__tmp17747 (gensym))) + (##cdr _$tgt1684616861_)))) + (let ((_clauses16871_ _$tl1684816867_)) + (let ((_args16873_ + (let ((__tmp17924 (gensym))) (declare (not safe)) - (__SRC__% __tmp17747 _stx16659_))) - (_len16697_ - (let ((__tmp17748 (gensym))) + (__SRC__% __tmp17924 _stx16836_))) + (_len16874_ + (let ((__tmp17925 (gensym))) (declare (not safe)) - (__SRC__% __tmp17748 _stx16659_)))) - (let ((__tmp17749 - (let ((__tmp17750 - (let ((__tmp17751 - (let ((__tmp17752 - (let ((__tmp17753 + (__SRC__% __tmp17925 _stx16836_)))) + (let ((__tmp17926 + (let ((__tmp17927 + (let ((__tmp17928 + (let ((__tmp17929 + (let ((__tmp17930 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17754 - (let ((__tmp17757 - (let ((__tmp17758 - (let ((__tmp17759 - (let ((__tmp17760 - (let ((__tmp17761 + (let ((__tmp17931 + (let ((__tmp17934 + (let ((__tmp17935 + (let ((__tmp17936 + (let ((__tmp17937 + (let ((__tmp17938 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17762 + (let ((__tmp17939 (let () (declare (not safe)) - (cons _args16696_ '())))) + (cons _args16873_ '())))) (declare (not safe)) - (cons '##length __tmp17762)))) + (cons '##length __tmp17939)))) (declare (not safe)) - (__SRC__% __tmp17761 _stx16659_)))) + (__SRC__% __tmp17938 _stx16836_)))) (declare (not safe)) - (cons __tmp17760 '())))) + (cons __tmp17937 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len16697_ - __tmp17759)))) + (cons _len16874_ + __tmp17936)))) (declare (not safe)) - (cons __tmp17758 '()))) - (__tmp17755 - (let ((__tmp17756 + (cons __tmp17935 '()))) + (__tmp17932 + (let ((__tmp17933 (let () (declare (not safe)) - (_generate16663_ - _clauses16694_ - _args16696_ - _len16697_)))) + (_generate16840_ + _clauses16871_ + _args16873_ + _len16874_)))) (declare (not safe)) - (cons __tmp17756 '())))) + (cons __tmp17933 '())))) (declare (not safe)) - (cons __tmp17757 __tmp17755)))) + (cons __tmp17934 __tmp17932)))) (declare (not safe)) - (cons 'let __tmp17754)))) + (cons 'let __tmp17931)))) (declare (not safe)) - (__SRC__% __tmp17753 _stx16659_)))) + (__SRC__% __tmp17930 _stx16836_)))) (declare (not safe)) - (cons __tmp17752 '())))) + (cons __tmp17929 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args16696_ - __tmp17751)))) + (cons _args16873_ + __tmp17928)))) (declare (not safe)) - (cons 'lambda __tmp17750)))) + (cons 'lambda __tmp17927)))) (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__% __tmp17926 _stx16836_))))) + (let () (declare (not safe)) (_$E1684516858_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16842_)) + (let* ((_$tgt1684916879_ + (let () (declare (not safe)) (__AST-e _$e16842_))) + (_$hd1685016882_ + (let () (declare (not safe)) (##car _$tgt1684916879_))) + (_$tl1685116885_ (let () (declare (not safe)) - (##cdr _$tgt1667216702_)))) + (##cdr _$tgt1684916879_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1667416708_)) - (let* ((_$tgt1667516712_ + (__AST-pair? _$tl1685116885_)) + (let* ((_$tgt1685216889_ (let () (declare (not safe)) - (__AST-e _$tl1667416708_))) - (_$hd1667616715_ + (__AST-e _$tl1685116885_))) + (_$hd1685316892_ (let () (declare (not safe)) - (##car _$tgt1667516712_))) - (_$tl1667716718_ + (##car _$tgt1685216889_))) + (_$tl1685416895_ (let () (declare (not safe)) - (##cdr _$tgt1667516712_)))) - (let ((_clause16722_ _$hd1667616715_)) - (if (let ((__tmp17764 + (##cdr _$tgt1685216889_)))) + (let ((_clause16899_ _$hd1685316892_)) + (if (let ((__tmp17941 (let () (declare (not safe)) - (__AST-e _$tl1667716718_)))) + (__AST-e _$tl1685416895_)))) (declare (not safe)) - (equal? __tmp17764 '())) - (let ((__tmp17763 + (equal? __tmp17941 '())) + (let ((__tmp17940 (let () (declare (not safe)) - (cons '%#lambda _clause16722_)))) + (cons '%#lambda _clause16899_)))) (declare (not safe)) - (__compile-lambda% __tmp17763)) - (let () (declare (not safe)) (_$E1666716699_))))) - (let () (declare (not safe)) (_$E1666716699_)))) - (let () (declare (not safe)) (_$E1666716699_))))))) + (__compile-lambda% __tmp17940)) + (let () (declare (not safe)) (_$E1684416876_))))) + (let () (declare (not safe)) (_$E1684416876_)))) + (let () (declare (not safe)) (_$E1684416876_))))))) (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 (_stx16605_ _compile-simple16606_ _compile-values16607_) + (letrec ((_simple-bind?16609_ + (lambda (_hd16794_) + (let* ((_hd1679516805_ _hd16794_) + (_else1679816813_ (lambda () '#f))) + (let ((_K1680116826_ (lambda (_id16824_) '#t)) + (_K1680016818_ (lambda () '#t))) + (let ((_try-match1679716821_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd1661816628_ '#f)) + (##eq? _hd1679516805_ '#f)) (let () (declare (not safe)) - (_K1662316641_)) + (_K1680016818_)) (let () (declare (not safe)) - (_else1662116636_)))))) + (_else1679816813_)))))) (if (let () (declare (not safe)) - (##pair? _hd1661816628_)) - (let ((_tl1662616654_ + (##pair? _hd1679516805_)) + (let ((_tl1680316831_ (let () (declare (not safe)) - (##cdr _hd1661816628_))) - (_hd1662516652_ + (##cdr _hd1679516805_))) + (_hd1680216829_ (let () (declare (not safe)) - (##car _hd1661816628_)))) + (##car _hd1679516805_)))) (if (let () (declare (not safe)) - (##null? _tl1662616654_)) - (let ((_id16657_ _hd1662516652_)) + (##null? _tl1680316831_)) + (let ((_id16834_ _hd1680216829_)) (declare (not safe)) - (_K1662416649_ _id16657_)) + (_K1680116826_ _id16834_)) (let () (declare (not safe)) - (_try-match1662016644_)))) + (_try-match1679716821_)))) (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-match1679716821_)))))))) + (_car-e16610_ + (lambda (_hd16792_) + (if (let () (declare (not safe)) (pair? _hd16792_)) + (car _hd16792_) + _hd16792_)))) + (let* ((_$e16612_ _stx16605_) + (_$E1661416757_ (lambda () - (let ((_$E1643816460_ + (let ((_$E1661516637_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax" - _$e16435_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e16435_)) - (let* ((_$tgt1643916463_ + _$e16612_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16612_)) + (let* ((_$tgt1661616640_ (let () (declare (not safe)) - (__AST-e _$e16435_))) - (_$hd1644016466_ + (__AST-e _$e16612_))) + (_$hd1661716643_ (let () (declare (not safe)) - (##car _$tgt1643916463_))) - (_$tl1644116469_ + (##car _$tgt1661616640_))) + (_$tl1661816646_ (let () (declare (not safe)) - (##cdr _$tgt1643916463_)))) + (##cdr _$tgt1661616640_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1644116469_)) - (let* ((_$tgt1644216473_ + (__AST-pair? _$tl1661816646_)) + (let* ((_$tgt1661916650_ (let () (declare (not safe)) - (__AST-e _$tl1644116469_))) - (_$hd1644316476_ + (__AST-e _$tl1661816646_))) + (_$hd1662016653_ (let () (declare (not safe)) - (##car _$tgt1644216473_))) - (_$tl1644416479_ + (##car _$tgt1661916650_))) + (_$tl1662116656_ (let () (declare (not safe)) - (##cdr _$tgt1644216473_)))) - (let ((_hd16483_ _$hd1644316476_)) + (##cdr _$tgt1661916650_)))) + (let ((_hd16660_ _$hd1662016653_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1644416479_)) - (let* ((_$tgt1644516485_ + (__AST-pair? _$tl1662116656_)) + (let* ((_$tgt1662216662_ (let () (declare (not safe)) - (__AST-e _$tl1644416479_))) - (_$hd1644616488_ + (__AST-e _$tl1662116656_))) + (_$hd1662316665_ (let () (declare (not safe)) - (##car _$tgt1644516485_))) - (_$tl1644716491_ + (##car _$tgt1662216662_))) + (_$tl1662416668_ (let () (declare (not safe)) - (##cdr _$tgt1644516485_)))) - (let ((_body16495_ _$hd1644616488_)) - (if (let ((__tmp17767 + (##cdr _$tgt1662216662_)))) + (let ((_body16672_ _$hd1662316665_)) + (if (let ((__tmp17944 (let () (declare (not safe)) - (__AST-e _$tl1644716491_)))) + (__AST-e _$tl1662416668_)))) (declare (not safe)) - (equal? __tmp17767 '())) - (let* ((_hd-ids16535_ - (map (lambda (_bind16497_) - (let* ((_$e16499_ + (equal? __tmp17944 '())) + (let* ((_hd-ids16712_ + (map (lambda (_bind16674_) + (let* ((_$e16676_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind16497_) - (_$E1650116510_ + _bind16674_) + (_$E1667816687_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax" - _$e16499_))))) + _$e16676_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e16499_)) - (let* ((_$tgt1650216513_ + (__AST-pair? _$e16676_)) + (let* ((_$tgt1667916690_ (let () (declare (not safe)) - (__AST-e _$e16499_))) - (_$hd1650316516_ + (__AST-e _$e16676_))) + (_$hd1668016693_ (let () (declare (not safe)) - (##car _$tgt1650216513_))) - (_$tl1650416519_ + (##car _$tgt1667916690_))) + (_$tl1668116696_ (let () (declare (not safe)) - (##cdr _$tgt1650216513_)))) - (let ((_ids16523_ _$hd1650316516_)) + (##cdr _$tgt1667916690_)))) + (let ((_ids16700_ _$hd1668016693_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1650416519_)) - (let* ((_$tgt1650516525_ + (__AST-pair? _$tl1668116696_)) + (let* ((_$tgt1668216702_ (let () (declare (not safe)) - (__AST-e _$tl1650416519_))) - (_$hd1650616528_ + (__AST-e _$tl1668116696_))) + (_$hd1668316705_ (let () (declare (not safe)) - (##car _$tgt1650516525_))) - (_$tl1650716531_ + (##car _$tgt1668216702_))) + (_$tl1668416708_ (let () (declare (not safe)) - (##cdr _$tgt1650516525_)))) - (if (let ((__tmp17765 + (##cdr _$tgt1668216702_)))) + (if (let ((__tmp17942 (let () (declare (not safe)) - (__AST-e _$tl1650716531_)))) + (__AST-e _$tl1668416708_)))) (declare (not safe)) - (equal? __tmp17765 '())) - _ids16523_ + (equal? __tmp17942 '())) + _ids16700_ (let () (declare (not safe)) - (_$E1650116510_)))) + (_$E1667816687_)))) (let () (declare (not safe)) - (_$E1650116510_))))) - (let () (declare (not safe)) (_$E1650116510_))))) - _hd16483_)) - (_exprs16575_ - (map (lambda (_bind16537_) - (let* ((_$e16539_ _bind16537_) - (_$E1654116550_ + (_$E1667816687_))))) + (let () (declare (not safe)) (_$E1667816687_))))) + _hd16660_)) + (_exprs16752_ + (map (lambda (_bind16714_) + (let* ((_$e16716_ _bind16714_) + (_$E1671816727_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax" - _$e16539_))))) + _$e16716_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e16539_)) - (let* ((_$tgt1654216553_ + (__AST-pair? _$e16716_)) + (let* ((_$tgt1671916730_ (let () (declare (not safe)) - (__AST-e _$e16539_))) - (_$hd1654316556_ + (__AST-e _$e16716_))) + (_$hd1672016733_ (let () (declare (not safe)) - (##car _$tgt1654216553_))) - (_$tl1654416559_ + (##car _$tgt1671916730_))) + (_$tl1672116736_ (let () (declare (not safe)) - (##cdr _$tgt1654216553_)))) + (##cdr _$tgt1671916730_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1654416559_)) - (let* ((_$tgt1654516563_ + (__AST-pair? _$tl1672116736_)) + (let* ((_$tgt1672216740_ (let () (declare (not safe)) - (__AST-e _$tl1654416559_))) - (_$hd1654616566_ + (__AST-e _$tl1672116736_))) + (_$hd1672316743_ (let () (declare (not safe)) - (##car _$tgt1654516563_))) - (_$tl1654716569_ + (##car _$tgt1672216740_))) + (_$tl1672416746_ (let () (declare (not safe)) - (##cdr _$tgt1654516563_)))) - (let ((_expr16573_ _$hd1654616566_)) - (if (let ((__tmp17766 + (##cdr _$tgt1672216740_)))) + (let ((_expr16750_ _$hd1672316743_)) + (if (let ((__tmp17943 (let () (declare (not safe)) - (__AST-e _$tl1654716569_)))) + (__AST-e _$tl1672416746_)))) (declare (not safe)) - (equal? __tmp17766 '())) + (equal? __tmp17943 '())) (let () (declare (not safe)) - (__compile _expr16573_)) + (__compile _expr16750_)) (let () (declare (not safe)) - (_$E1654116550_))))) + (_$E1671816727_))))) (let () (declare (not safe)) - (_$E1654116550_)))) - (let () (declare (not safe)) (_$E1654116550_))))) - _hd16483_)) - (_body16577_ - (let () (declare (not safe)) (__compile _body16495_)))) + (_$E1671816727_)))) + (let () (declare (not safe)) (_$E1671816727_))))) + _hd16660_)) + (_body16754_ + (let () (declare (not safe)) (__compile _body16672_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?16432_ + (andmap1 _simple-bind?16609_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids16535_)) - (_compile-simple16429_ - (map _car-e16433_ _hd-ids16535_) - _exprs16575_ - _body16577_) - (_compile-values16430_ _hd-ids16535_ _exprs16575_ _body16577_))) + _hd-ids16712_)) + (_compile-simple16606_ + (map _car-e16610_ _hd-ids16712_) + _exprs16752_ + _body16754_) + (_compile-values16607_ _hd-ids16712_ _exprs16752_ _body16754_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E1643816460_))))) + (_$E1661516637_))))) (let () (declare (not safe)) - (_$E1643816460_))))) + (_$E1661516637_))))) (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_ + (_$E1661516637_)))) + (let () (declare (not safe)) (_$E1661516637_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e16612_)) + (let* ((_$tgt1662516760_ + (let () (declare (not safe)) (__AST-e _$e16612_))) + (_$hd1662616763_ + (let () (declare (not safe)) (##car _$tgt1662516760_))) + (_$tl1662716766_ (let () (declare (not safe)) - (##cdr _$tgt1644816583_)))) + (##cdr _$tgt1662516760_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl1645016589_)) - (let* ((_$tgt1645116593_ + (__AST-pair? _$tl1662716766_)) + (let* ((_$tgt1662816770_ (let () (declare (not safe)) - (__AST-e _$tl1645016589_))) - (_$hd1645216596_ + (__AST-e _$tl1662716766_))) + (_$hd1662916773_ (let () (declare (not safe)) - (##car _$tgt1645116593_))) - (_$tl1645316599_ + (##car _$tgt1662816770_))) + (_$tl1663016776_ (let () (declare (not safe)) - (##cdr _$tgt1645116593_)))) - (if (let ((__tmp17769 + (##cdr _$tgt1662816770_)))) + (if (let ((__tmp17946 (let () (declare (not safe)) - (__AST-e _$hd1645216596_)))) + (__AST-e _$hd1662916773_)))) (declare (not safe)) - (equal? __tmp17769 '())) + (equal? __tmp17946 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl1645316599_)) - (let* ((_$tgt1645416603_ + (__AST-pair? _$tl1663016776_)) + (let* ((_$tgt1663116780_ (let () (declare (not safe)) - (__AST-e _$tl1645316599_))) - (_$hd1645516606_ + (__AST-e _$tl1663016776_))) + (_$hd1663216783_ (let () (declare (not safe)) - (##car _$tgt1645416603_))) - (_$tl1645616609_ + (##car _$tgt1663116780_))) + (_$tl1663316786_ (let () (declare (not safe)) - (##cdr _$tgt1645416603_)))) - (let ((_body16613_ _$hd1645516606_)) - (if (let ((__tmp17768 + (##cdr _$tgt1663116780_)))) + (let ((_body16790_ _$hd1663216783_)) + (if (let ((__tmp17945 (let () (declare (not safe)) - (__AST-e _$tl1645616609_)))) + (__AST-e _$tl1663316786_)))) (declare (not safe)) - (equal? __tmp17768 '())) + (equal? __tmp17945 '())) (let () (declare (not safe)) - (__compile _body16613_)) + (__compile _body16790_)) (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_))))))) + (_$E1661416757_))))) + (let () (declare (not safe)) (_$E1661416757_))) + (let () (declare (not safe)) (_$E1661416757_)))) + (let () (declare (not safe)) (_$E1661416757_)))) + (let () (declare (not safe)) (_$E1661416757_))))))) (define __compile-let-values% - (lambda (_stx16243_) - (letrec ((_compile-simple16245_ - (lambda (_hd-ids16424_ _exprs16425_ _body16426_) - (let ((__tmp17770 - (let ((__tmp17771 - (let ((__tmp17773 + (lambda (_stx16420_) + (letrec ((_compile-simple16422_ + (lambda (_hd-ids16601_ _exprs16602_ _body16603_) + (let ((__tmp17947 + (let ((__tmp17948 + (let ((__tmp17950 (map list (map __compile-head-id - _hd-ids16424_) - _exprs16425_)) - (__tmp17772 + _hd-ids16601_) + _exprs16602_)) + (__tmp17949 (let () (declare (not safe)) - (cons _body16426_ '())))) + (cons _body16603_ '())))) (declare (not safe)) - (cons __tmp17773 __tmp17772)))) + (cons __tmp17950 __tmp17949)))) (declare (not safe)) - (cons 'let __tmp17771)))) + (cons 'let __tmp17948)))) (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__% __tmp17947 _stx16420_)))) + (_compile-values16423_ + (lambda (_hd-ids16519_ _exprs16520_ _body16521_) + (let _lp16523_ ((_rest16525_ _hd-ids16519_) + (_exprs16526_ _exprs16520_) + (_bind16527_ '()) + (_post16528_ '())) + (let* ((_rest1652916543_ _rest16525_) + (_else1653216551_ (lambda () - (let ((__tmp17774 - (let ((__tmp17775 - (let ((__tmp17778 - (reverse _bind16350_)) - (__tmp17776 - (let ((__tmp17777 + (let ((__tmp17951 + (let ((__tmp17952 + (let ((__tmp17955 + (reverse _bind16527_)) + (__tmp17953 + (let ((__tmp17954 (let () (declare (not safe)) - (_compile-post16247_ - _post16351_ - _body16344_)))) + (_compile-post16424_ + _post16528_ + _body16521_)))) (declare (not safe)) - (cons __tmp17777 '())))) + (cons __tmp17954 '())))) (declare (not safe)) - (cons __tmp17778 __tmp17776)))) + (cons __tmp17955 __tmp17953)))) (declare (not safe)) - (cons 'let __tmp17775)))) + (cons 'let __tmp17952)))) (declare (not safe)) - (__SRC__% __tmp17774 _stx16243_))))) - (let ((_K1636016407_ - (lambda (_rest16404_ _id16405_) - (let ((__tmp17784 (cdr _exprs16349_)) - (__tmp17779 - (let ((__tmp17780 - (let ((__tmp17783 + (__SRC__% __tmp17951 _stx16420_))))) + (let ((_K1653716584_ + (lambda (_rest16581_ _id16582_) + (let ((__tmp17961 (cdr _exprs16526_)) + (__tmp17956 + (let ((__tmp17957 + (let ((__tmp17960 (let () (declare (not safe)) (__compile-head-id - _id16405_))) - (__tmp17781 - (let ((__tmp17782 - (car _exprs16349_))) + _id16582_))) + (__tmp17958 + (let ((__tmp17959 + (car _exprs16526_))) (declare (not safe)) - (cons __tmp17782 + (cons __tmp17959 '())))) (declare (not safe)) - (cons __tmp17783 - __tmp17781)))) + (cons __tmp17960 + __tmp17958)))) (declare (not safe)) - (cons __tmp17780 _bind16350_)))) + (cons __tmp17957 _bind16527_)))) (declare (not safe)) - (_lp16346_ - _rest16404_ - __tmp17784 - __tmp17779 - _post16351_)))) - (_K1635716389_ - (lambda (_rest16378_ _hd16379_) + (_lp16523_ + _rest16581_ + __tmp17961 + __tmp17956 + _post16528_)))) + (_K1653416566_ + (lambda (_rest16555_ _hd16556_) (if (let () (declare (not safe)) - (__AST-id? _hd16379_)) - (let ((__tmp17805 (cdr _exprs16349_)) - (__tmp17798 - (let ((__tmp17799 - (let ((__tmp17804 + (__AST-id? _hd16556_)) + (let ((__tmp17982 (cdr _exprs16526_)) + (__tmp17975 + (let ((__tmp17976 + (let ((__tmp17981 (let () (declare (not safe)) (__compile-head-id - _hd16379_))) - (__tmp17800 - (let ((__tmp17801 + _hd16556_))) + (__tmp17977 + (let ((__tmp17978 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17802 - (let ((__tmp17803 (car _exprs16349_))) + (let ((__tmp17979 + (let ((__tmp17980 (car _exprs16526_))) (declare (not safe)) - (cons __tmp17803 '())))) + (cons __tmp17980 '())))) (declare (not safe)) - (cons 'values->list __tmp17802)))) + (cons 'values->list __tmp17979)))) (declare (not safe)) - (cons __tmp17801 '())))) + (cons __tmp17978 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17804 - __tmp17800)))) + (cons __tmp17981 + __tmp17977)))) (declare (not safe)) - (cons __tmp17799 _bind16350_)))) + (cons __tmp17976 _bind16527_)))) (declare (not safe)) - (_lp16346_ - _rest16378_ - __tmp17805 - __tmp17798 - _post16351_)) + (_lp16523_ + _rest16555_ + __tmp17982 + __tmp17975 + _post16528_)) (if (let () (declare (not safe)) - (list? _hd16379_)) - (let* ((_len16381_ (length _hd16379_)) - (_tmp16383_ - (let ((__tmp17785 (gensym))) + (list? _hd16556_)) + (let* ((_len16558_ (length _hd16556_)) + (_tmp16560_ + (let ((__tmp17962 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17785)))) - (let ((__tmp17797 - (cdr _exprs16349_)) - (__tmp17793 - (let ((__tmp17794 - (let ((__tmp17795 - (let ((__tmp17796 + (__SRC__0 __tmp17962)))) + (let ((__tmp17974 + (cdr _exprs16526_)) + (__tmp17970 + (let ((__tmp17971 + (let ((__tmp17972 + (let ((__tmp17973 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs16349_))) + (car _exprs16526_))) (declare (not safe)) - (cons __tmp17796 '())))) + (cons __tmp17973 '())))) (declare (not safe)) - (cons _tmp16383_ __tmp17795)))) + (cons _tmp16560_ __tmp17972)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17794 - _bind16350_))) - (__tmp17786 - (let ((__tmp17787 - (let ((__tmp17788 - (let ((__tmp17789 + (cons __tmp17971 + _bind16527_))) + (__tmp17963 + (let ((__tmp17964 + (let ((__tmp17965 + (let ((__tmp17966 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17791 - (lambda (_id16386_ _k16387_) + (let ((__tmp17968 + (lambda (_id16563_ _k16564_) (if (let () (declare (not safe)) - (__AST-e _id16386_)) - (let ((__tmp17792 + (__AST-e _id16563_)) + (let ((__tmp17969 (let () (declare (not safe)) - (__SRC__0 _id16386_)))) + (__SRC__0 _id16563_)))) (declare (not safe)) - (cons __tmp17792 _k16387_)) + (cons __tmp17969 _k16564_)) '#f))) - (__tmp17790 + (__tmp17967 (let () (declare (not safe)) - (iota _len16381_)))) + (iota _len16558_)))) (declare (not safe)) (filter-map2 - __tmp17791 - _hd16379_ - __tmp17790)))) + __tmp17968 + _hd16556_ + __tmp17967)))) (declare (not safe)) - (cons _len16381_ __tmp17789)))) + (cons _len16558_ __tmp17966)))) (declare (not safe)) - (cons _tmp16383_ __tmp17788)))) + (cons _tmp16560_ __tmp17965)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17787 - _post16351_)))) + (cons __tmp17964 + _post16528_)))) (declare (not safe)) - (_lp16346_ - _rest16378_ - __tmp17797 - __tmp17793 - __tmp17786))) + (_lp16523_ + _rest16555_ + __tmp17974 + __tmp17970 + __tmp17963))) (let () (declare (not safe)) (__compile-error__% - _stx16243_ - _hd16379_))))))) + _stx16420_ + _hd16556_))))))) (if (let () (declare (not safe)) - (##pair? _rest1635216366_)) - (let ((_tl1636216412_ + (##pair? _rest1652916543_)) + (let ((_tl1653916589_ (let () (declare (not safe)) - (##cdr _rest1635216366_))) - (_hd1636116410_ + (##cdr _rest1652916543_))) + (_hd1653816587_ (let () (declare (not safe)) - (##car _rest1635216366_)))) + (##car _rest1652916543_)))) (if (let () (declare (not safe)) - (##pair? _hd1636116410_)) - (let ((_tl1636416417_ + (##pair? _hd1653816587_)) + (let ((_tl1654116594_ (let () (declare (not safe)) - (##cdr _hd1636116410_))) - (_hd1636316415_ + (##cdr _hd1653816587_))) + (_hd1654016592_ (let () (declare (not safe)) - (##car _hd1636116410_)))) + (##car _hd1653816587_)))) (if (let () (declare (not safe)) - (##null? _tl1636416417_)) - (let ((_id16420_ _hd1636316415_) - (_rest16422_ _tl1636216412_)) + (##null? _tl1654116594_)) + (let ((_id16597_ _hd1654016592_) + (_rest16599_ _tl1653916589_)) (let () (declare (not safe)) - (_K1636016407_ - _rest16422_ - _id16420_))) - (let ((_hd16397_ _hd1636116410_) - (_rest16399_ _tl1636216412_)) + (_K1653716584_ + _rest16599_ + _id16597_))) + (let ((_hd16574_ _hd1653816587_) + (_rest16576_ _tl1653916589_)) (let () (declare (not safe)) - (_K1635716389_ - _rest16399_ - _hd16397_))))) - (let ((_hd16397_ _hd1636116410_) - (_rest16399_ _tl1636216412_)) + (_K1653416566_ + _rest16576_ + _hd16574_))))) + (let ((_hd16574_ _hd1653816587_) + (_rest16576_ _tl1653916589_)) (let () (declare (not safe)) - (_K1635716389_ - _rest16399_ - _hd16397_))))) + (_K1653416566_ + _rest16576_ + _hd16574_))))) (let () (declare (not safe)) - (_else1635516374_)))))))) - (_compile-post16247_ - (lambda (_post16249_ _body16250_) - (let _lp16252_ ((_rest16254_ _post16249_) - (_check16255_ '()) - (_bind16256_ '())) - (let* ((_rest1625716269_ _rest16254_) - (_else1625916277_ + (_else1653216551_)))))))) + (_compile-post16424_ + (lambda (_post16426_ _body16427_) + (let _lp16429_ ((_rest16431_ _post16426_) + (_check16432_ '()) + (_bind16433_ '())) + (let* ((_rest1643416446_ _rest16431_) + (_else1643616454_ (lambda () - (let ((__tmp17806 - (let ((__tmp17807 - (let ((__tmp17808 - (let ((__tmp17809 - (let ((__tmp17810 + (let ((__tmp17983 + (let ((__tmp17984 + (let ((__tmp17985 + (let ((__tmp17986 + (let ((__tmp17987 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17811 - (let ((__tmp17812 + (let ((__tmp17988 + (let ((__tmp17989 (let () (declare (not safe)) - (cons _body16250_ '())))) + (cons _body16427_ '())))) (declare (not safe)) - (cons _bind16256_ __tmp17812)))) + (cons _bind16433_ __tmp17989)))) (declare (not safe)) - (cons 'let __tmp17811)))) + (cons 'let __tmp17988)))) (declare (not safe)) - (__SRC__% __tmp17810 _stx16243_)))) + (__SRC__% __tmp17987 _stx16420_)))) (declare (not safe)) - (cons __tmp17809 '())))) + (cons __tmp17986 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp17808 - _check16255_)))) + __tmp17985 + _check16432_)))) (declare (not safe)) - (cons 'begin __tmp17807)))) + (cons 'begin __tmp17984)))) (declare (not safe)) - (__SRC__% __tmp17806 _stx16243_)))) - (_K1626116316_ - (lambda (_rest16280_ - _init16281_ - _len16282_ - _tmp16283_) - (let ((__tmp17820 - (let ((__tmp17821 - (let ((__tmp17822 - (let ((__tmp17823 - (let ((__tmp17824 + (__SRC__% __tmp17983 _stx16420_)))) + (_K1643816493_ + (lambda (_rest16457_ + _init16458_ + _len16459_ + _tmp16460_) + (let ((__tmp17997 + (let ((__tmp17998 + (let ((__tmp17999 + (let ((__tmp18000 + (let ((__tmp18001 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len16282_ '())))) + (cons _len16459_ '())))) (declare (not safe)) - (cons _tmp16283_ __tmp17824)))) + (cons _tmp16460_ __tmp18001)))) (declare (not safe)) - (cons '__check-values __tmp17823)))) + (cons '__check-values __tmp18000)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17822 - _stx16243_)))) + __tmp17999 + _stx16420_)))) (declare (not safe)) - (cons __tmp17821 _check16255_))) - (__tmp17813 - (let ((__tmp17814 - (lambda (_hd16285_ _r16286_) - (let* ((_hd1628716294_ - _hd16285_) - (_E1628916298_ + (cons __tmp17998 _check16432_))) + (__tmp17990 + (let ((__tmp17991 + (lambda (_hd16462_ _r16463_) + (let* ((_hd1646416471_ + _hd16462_) + (_E1646616475_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1628716294_))) - (_K1629016304_ - (lambda (_k16301_ _id16302_) - (let ((__tmp17815 - (let ((__tmp17816 - (let ((__tmp17817 - (let ((__tmp17818 - (let ((__tmp17819 + _hd1646416471_))) + (_K1646716481_ + (lambda (_k16478_ _id16479_) + (let ((__tmp17992 + (let ((__tmp17993 + (let ((__tmp17994 + (let ((__tmp17995 + (let ((__tmp17996 (let () (declare (not safe)) - (cons _k16301_ '())))) + (cons _k16478_ '())))) (declare (not safe)) - (cons _tmp16283_ __tmp17819)))) + (cons _tmp16460_ __tmp17996)))) (declare (not safe)) - (cons '##vector-ref __tmp17818)))) + (cons '##vector-ref __tmp17995)))) (declare (not safe)) - (cons __tmp17817 '())))) + (cons __tmp17994 '())))) (declare (not safe)) - (cons _id16302_ __tmp17816)))) + (cons _id16479_ __tmp17993)))) (declare (not safe)) - (cons __tmp17815 _r16286_))))) + (cons __tmp17992 _r16463_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd1628716294_)) - (let ((_hd1629116307_ + (##pair? _hd1646416471_)) + (let ((_hd1646816484_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd1628716294_))) - (_tl1629216309_ - (let () (declare (not safe)) (##cdr _hd1628716294_)))) - (let* ((_id16312_ _hd1629116307_) (_k16314_ _tl1629216309_)) + (##car _hd1646416471_))) + (_tl1646916486_ + (let () (declare (not safe)) (##cdr _hd1646416471_)))) + (let* ((_id16489_ _hd1646816484_) (_k16491_ _tl1646916486_)) (declare (not safe)) - (_K1629016304_ _k16314_ _id16312_))) - (let () (declare (not safe)) (_E1628916298_))))))) + (_K1646716481_ _k16491_ _id16489_))) + (let () (declare (not safe)) (_E1646616475_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp17814 - _bind16256_ - _init16281_)))) + (foldr1 __tmp17991 + _bind16433_ + _init16458_)))) (declare (not safe)) - (_lp16252_ - _rest16280_ - __tmp17820 - __tmp17813))))) + (_lp16429_ + _rest16457_ + __tmp17997 + __tmp17990))))) (if (let () (declare (not safe)) - (##pair? _rest1625716269_)) - (let ((_hd1626216319_ + (##pair? _rest1643416446_)) + (let ((_hd1643916496_ (let () (declare (not safe)) - (##car _rest1625716269_))) - (_tl1626316321_ + (##car _rest1643416446_))) + (_tl1644016498_ (let () (declare (not safe)) - (##cdr _rest1625716269_)))) + (##cdr _rest1643416446_)))) (if (let () (declare (not safe)) - (##pair? _hd1626216319_)) - (let ((_hd1626416324_ + (##pair? _hd1643916496_)) + (let ((_hd1644116501_ (let () (declare (not safe)) - (##car _hd1626216319_))) - (_tl1626516326_ + (##car _hd1643916496_))) + (_tl1644216503_ (let () (declare (not safe)) - (##cdr _hd1626216319_)))) - (let ((_tmp16329_ _hd1626416324_)) + (##cdr _hd1643916496_)))) + (let ((_tmp16506_ _hd1644116501_)) (if (let () (declare (not safe)) - (##pair? _tl1626516326_)) - (let ((_hd1626616331_ + (##pair? _tl1644216503_)) + (let ((_hd1644316508_ (let () (declare (not safe)) - (##car _tl1626516326_))) - (_tl1626716333_ + (##car _tl1644216503_))) + (_tl1644416510_ (let () (declare (not safe)) - (##cdr _tl1626516326_)))) - (let* ((_len16336_ _hd1626616331_) - (_init16338_ _tl1626716333_) - (_rest16340_ - _tl1626316321_)) + (##cdr _tl1644216503_)))) + (let* ((_len16513_ _hd1644316508_) + (_init16515_ _tl1644416510_) + (_rest16517_ + _tl1644016498_)) (declare (not safe)) - (_K1626116316_ - _rest16340_ - _init16338_ - _len16336_ - _tmp16329_))) + (_K1643816493_ + _rest16517_ + _init16515_ + _len16513_ + _tmp16506_))) (let () (declare (not safe)) - (_else1625916277_))))) + (_else1643616454_))))) (let () (declare (not safe)) - (_else1625916277_)))) + (_else1643616454_)))) (let () (declare (not safe)) - (_else1625916277_)))))))) + (_else1643616454_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx16243_ - _compile-simple16245_ - _compile-values16246_))))) + _stx16420_ + _compile-simple16422_ + _compile-values16423_))))) (define __compile-letrec-values% - (lambda (_stx16043_) - (letrec ((_compile-simple16045_ - (lambda (_hd-ids16239_ _exprs16240_ _body16241_) - (let ((__tmp17825 - (let ((__tmp17826 - (let ((__tmp17828 + (lambda (_stx16220_) + (letrec ((_compile-simple16222_ + (lambda (_hd-ids16416_ _exprs16417_ _body16418_) + (let ((__tmp18002 + (let ((__tmp18003 + (let ((__tmp18005 (map list (map __compile-head-id - _hd-ids16239_) - _exprs16240_)) - (__tmp17827 + _hd-ids16416_) + _exprs16417_)) + (__tmp18004 (let () (declare (not safe)) - (cons _body16241_ '())))) + (cons _body16418_ '())))) (declare (not safe)) - (cons __tmp17828 __tmp17827)))) + (cons __tmp18005 __tmp18004)))) (declare (not safe)) - (cons 'letrec __tmp17826)))) + (cons 'letrec __tmp18003)))) (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__% __tmp18002 _stx16220_)))) + (_compile-values16223_ + (lambda (_hd-ids16330_ _exprs16331_ _body16332_) + (let _lp16334_ ((_rest16336_ _hd-ids16330_) + (_exprs16337_ _exprs16331_) + (_pre16338_ '()) + (_bind16339_ '()) + (_post16340_ '())) + (let* ((_rest1634116355_ _rest16336_) + (_else1634416363_ (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-inner16224_ + _pre16338_ + _bind16339_ + _post16340_ + _body16332_))))) + (let ((_K1634916399_ + (lambda (_rest16396_ _id16397_) + (let ((__tmp18011 (cdr _exprs16337_)) + (__tmp18006 + (let ((__tmp18007 + (let ((__tmp18010 (let () (declare (not safe)) (__compile-head-id - _id16220_))) - (__tmp17831 - (let ((__tmp17832 - (car _exprs16160_))) + _id16397_))) + (__tmp18008 + (let ((__tmp18009 + (car _exprs16337_))) (declare (not safe)) - (cons __tmp17832 + (cons __tmp18009 '())))) (declare (not safe)) - (cons __tmp17833 - __tmp17831)))) + (cons __tmp18010 + __tmp18008)))) (declare (not safe)) - (cons __tmp17830 _bind16162_)))) + (cons __tmp18007 _bind16339_)))) (declare (not safe)) - (_lp16157_ - _rest16219_ - __tmp17834 - _pre16161_ - __tmp17829 - _post16163_)))) - (_K1616916204_ - (lambda (_rest16190_ _hd16191_) + (_lp16334_ + _rest16396_ + __tmp18011 + _pre16338_ + __tmp18006 + _post16340_)))) + (_K1634616381_ + (lambda (_rest16367_ _hd16368_) (if (let () (declare (not safe)) - (__AST-id? _hd16191_)) - (let ((__tmp17862 (cdr _exprs16160_)) - (__tmp17855 - (let ((__tmp17856 - (let ((__tmp17861 + (__AST-id? _hd16368_)) + (let ((__tmp18039 (cdr _exprs16337_)) + (__tmp18032 + (let ((__tmp18033 + (let ((__tmp18038 (let () (declare (not safe)) (__compile-head-id - _hd16191_))) - (__tmp17857 - (let ((__tmp17858 + _hd16368_))) + (__tmp18034 + (let ((__tmp18035 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17859 - (let ((__tmp17860 (car _exprs16160_))) + (let ((__tmp18036 + (let ((__tmp18037 (car _exprs16337_))) (declare (not safe)) - (cons __tmp17860 '())))) + (cons __tmp18037 '())))) (declare (not safe)) - (cons 'values->list __tmp17859)))) + (cons 'values->list __tmp18036)))) (declare (not safe)) - (cons __tmp17858 '())))) + (cons __tmp18035 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17861 - __tmp17857)))) + (cons __tmp18038 + __tmp18034)))) (declare (not safe)) - (cons __tmp17856 _bind16162_)))) + (cons __tmp18033 _bind16339_)))) (declare (not safe)) - (_lp16157_ - _rest16190_ - __tmp17862 - _pre16161_ - __tmp17855 - _post16163_)) + (_lp16334_ + _rest16367_ + __tmp18039 + _pre16338_ + __tmp18032 + _post16340_)) (if (let () (declare (not safe)) - (list? _hd16191_)) - (let* ((_len16193_ (length _hd16191_)) - (_tmp16195_ - (let ((__tmp17835 (gensym))) + (list? _hd16368_)) + (let* ((_len16370_ (length _hd16368_)) + (_tmp16372_ + (let ((__tmp18012 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17835)))) - (let ((__tmp17854 - (cdr _exprs16160_)) - (__tmp17847 - (let ((__tmp17848 - (lambda (_id16198_ + (__SRC__0 __tmp18012)))) + (let ((__tmp18031 + (cdr _exprs16337_)) + (__tmp18024 + (let ((__tmp18025 + (lambda (_id16375_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r16199_) - (if (let () (declare (not safe)) (__AST-e _id16198_)) - (let ((__tmp17849 - (let ((__tmp17853 + _r16376_) + (if (let () (declare (not safe)) (__AST-e _id16375_)) + (let ((__tmp18026 + (let ((__tmp18030 (let () (declare (not safe)) - (__SRC__0 _id16198_))) - (__tmp17850 - (let ((__tmp17851 - (let ((__tmp17852 + (__SRC__0 _id16375_))) + (__tmp18027 + (let ((__tmp18028 + (let ((__tmp18029 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17852)))) + (cons 'quote __tmp18029)))) (declare (not safe)) - (cons __tmp17851 '())))) + (cons __tmp18028 '())))) (declare (not safe)) - (cons __tmp17853 __tmp17850)))) + (cons __tmp18030 __tmp18027)))) (declare (not safe)) - (cons __tmp17849 _r16199_)) - _r16199_)))) + (cons __tmp18026 _r16376_)) + _r16376_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp17848 - _pre16161_ - _hd16191_))) - (__tmp17843 - (let ((__tmp17844 - (let ((__tmp17845 - (let ((__tmp17846 + (foldl1 __tmp18025 + _pre16338_ + _hd16368_))) + (__tmp18020 + (let ((__tmp18021 + (let ((__tmp18022 + (let ((__tmp18023 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs16160_))) + (car _exprs16337_))) (declare (not safe)) - (cons __tmp17846 '())))) + (cons __tmp18023 '())))) (declare (not safe)) - (cons _tmp16195_ __tmp17845)))) + (cons _tmp16372_ __tmp18022)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17844 - _bind16162_))) - (__tmp17836 - (let ((__tmp17837 - (let ((__tmp17838 - (let ((__tmp17839 + (cons __tmp18021 + _bind16339_))) + (__tmp18013 + (let ((__tmp18014 + (let ((__tmp18015 + (let ((__tmp18016 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17841 - (lambda (_id16201_ _k16202_) + (let ((__tmp18018 + (lambda (_id16378_ _k16379_) (if (let () (declare (not safe)) - (__AST-e _id16201_)) - (let ((__tmp17842 + (__AST-e _id16378_)) + (let ((__tmp18019 (let () (declare (not safe)) - (__SRC__0 _id16201_)))) + (__SRC__0 _id16378_)))) (declare (not safe)) - (cons __tmp17842 _k16202_)) + (cons __tmp18019 _k16379_)) '#f))) - (__tmp17840 + (__tmp18017 (let () (declare (not safe)) - (iota _len16193_)))) + (iota _len16370_)))) (declare (not safe)) (filter-map2 - __tmp17841 - _hd16191_ - __tmp17840)))) + __tmp18018 + _hd16368_ + __tmp18017)))) (declare (not safe)) - (cons _len16193_ __tmp17839)))) + (cons _len16370_ __tmp18016)))) (declare (not safe)) - (cons _tmp16195_ __tmp17838)))) + (cons _tmp16372_ __tmp18015)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17837 - _post16163_)))) + (cons __tmp18014 + _post16340_)))) (declare (not safe)) - (_lp16157_ - _rest16190_ - __tmp17854 - __tmp17847 - __tmp17843 - __tmp17836))) + (_lp16334_ + _rest16367_ + __tmp18031 + __tmp18024 + __tmp18020 + __tmp18013))) (let () (declare (not safe)) (__compile-error__% - _stx16043_ - _hd16191_))))))) + _stx16220_ + _hd16368_))))))) (if (let () (declare (not safe)) - (##pair? _rest1616416178_)) - (let ((_tl1617416227_ + (##pair? _rest1634116355_)) + (let ((_tl1635116404_ (let () (declare (not safe)) - (##cdr _rest1616416178_))) - (_hd1617316225_ + (##cdr _rest1634116355_))) + (_hd1635016402_ (let () (declare (not safe)) - (##car _rest1616416178_)))) + (##car _rest1634116355_)))) (if (let () (declare (not safe)) - (##pair? _hd1617316225_)) - (let ((_tl1617616232_ + (##pair? _hd1635016402_)) + (let ((_tl1635316409_ (let () (declare (not safe)) - (##cdr _hd1617316225_))) - (_hd1617516230_ + (##cdr _hd1635016402_))) + (_hd1635216407_ (let () (declare (not safe)) - (##car _hd1617316225_)))) + (##car _hd1635016402_)))) (if (let () (declare (not safe)) - (##null? _tl1617616232_)) - (let ((_id16235_ _hd1617516230_) - (_rest16237_ _tl1617416227_)) + (##null? _tl1635316409_)) + (let ((_id16412_ _hd1635216407_) + (_rest16414_ _tl1635116404_)) (let () (declare (not safe)) - (_K1617216222_ - _rest16237_ - _id16235_))) - (let ((_hd16212_ _hd1617316225_) - (_rest16214_ _tl1617416227_)) + (_K1634916399_ + _rest16414_ + _id16412_))) + (let ((_hd16389_ _hd1635016402_) + (_rest16391_ _tl1635116404_)) (let () (declare (not safe)) - (_K1616916204_ - _rest16214_ - _hd16212_))))) - (let ((_hd16212_ _hd1617316225_) - (_rest16214_ _tl1617416227_)) + (_K1634616381_ + _rest16391_ + _hd16389_))))) + (let ((_hd16389_ _hd1635016402_) + (_rest16391_ _tl1635116404_)) (let () (declare (not safe)) - (_K1616916204_ - _rest16214_ - _hd16212_))))) + (_K1634616381_ + _rest16391_ + _hd16389_))))) (let () (declare (not safe)) - (_else1616716186_)))))))) - (_compile-inner16047_ - (lambda (_pre16148_ _bind16149_ _post16150_ _body16151_) - (if (let () (declare (not safe)) (null? _pre16148_)) + (_else1634416363_)))))))) + (_compile-inner16224_ + (lambda (_pre16325_ _bind16326_ _post16327_ _body16328_) + (if (let () (declare (not safe)) (null? _pre16325_)) (let () (declare (not safe)) - (_compile-bind16048_ - _bind16149_ - _post16150_ - _body16151_)) - (let ((__tmp17863 - (let ((__tmp17864 - (let ((__tmp17867 (reverse _pre16148_)) - (__tmp17865 - (let ((__tmp17866 + (_compile-bind16225_ + _bind16326_ + _post16327_ + _body16328_)) + (let ((__tmp18040 + (let ((__tmp18041 + (let ((__tmp18044 (reverse _pre16325_)) + (__tmp18042 + (let ((__tmp18043 (let () (declare (not safe)) - (_compile-bind16048_ - _bind16149_ - _post16150_ - _body16151_)))) + (_compile-bind16225_ + _bind16326_ + _post16327_ + _body16328_)))) (declare (not safe)) - (cons __tmp17866 '())))) + (cons __tmp18043 '())))) (declare (not safe)) - (cons __tmp17867 __tmp17865)))) + (cons __tmp18044 __tmp18042)))) (declare (not safe)) - (cons 'let __tmp17864)))) + (cons 'let __tmp18041)))) (declare (not safe)) - (__SRC__% __tmp17863 _stx16043_))))) - (_compile-bind16048_ - (lambda (_bind16144_ _post16145_ _body16146_) - (let ((__tmp17868 - (let ((__tmp17869 - (let ((__tmp17872 (reverse _bind16144_)) - (__tmp17870 - (let ((__tmp17871 + (__SRC__% __tmp18040 _stx16220_))))) + (_compile-bind16225_ + (lambda (_bind16321_ _post16322_ _body16323_) + (let ((__tmp18045 + (let ((__tmp18046 + (let ((__tmp18049 (reverse _bind16321_)) + (__tmp18047 + (let ((__tmp18048 (let () (declare (not safe)) - (_compile-post16049_ - _post16145_ - _body16146_)))) + (_compile-post16226_ + _post16322_ + _body16323_)))) (declare (not safe)) - (cons __tmp17871 '())))) + (cons __tmp18048 '())))) (declare (not safe)) - (cons __tmp17872 __tmp17870)))) + (cons __tmp18049 __tmp18047)))) (declare (not safe)) - (cons 'letrec __tmp17869)))) + (cons 'letrec __tmp18046)))) (declare (not safe)) - (__SRC__% __tmp17868 _stx16043_)))) - (_compile-post16049_ - (lambda (_post16051_ _body16052_) - (let _lp16054_ ((_rest16056_ _post16051_) - (_check16057_ '()) - (_bind16058_ '())) - (let* ((_rest1605916071_ _rest16056_) - (_else1606116079_ + (__SRC__% __tmp18045 _stx16220_)))) + (_compile-post16226_ + (lambda (_post16228_ _body16229_) + (let _lp16231_ ((_rest16233_ _post16228_) + (_check16234_ '()) + (_bind16235_ '())) + (let* ((_rest1623616248_ _rest16233_) + (_else1623816256_ (lambda () - (let ((__tmp17873 - (let ((__tmp17874 - (let ((__tmp17875 - (let ((__tmp17876 + (let ((__tmp18050 + (let ((__tmp18051 + (let ((__tmp18052 + (let ((__tmp18053 (let () (declare (not safe)) - (cons _body16052_ + (cons _body16229_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp17876 _bind16058_)))) + (foldr1 cons __tmp18053 _bind16235_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp17875 - _check16057_)))) + __tmp18052 + _check16234_)))) (declare (not safe)) - (cons 'begin __tmp17874)))) + (cons 'begin __tmp18051)))) (declare (not safe)) - (__SRC__% __tmp17873 _stx16043_)))) - (_K1606316118_ - (lambda (_rest16082_ - _init16083_ - _len16084_ - _tmp16085_) - (let ((__tmp17885 - (let ((__tmp17886 - (let ((__tmp17887 - (let ((__tmp17888 - (let ((__tmp17889 + (__SRC__% __tmp18050 _stx16220_)))) + (_K1624016295_ + (lambda (_rest16259_ + _init16260_ + _len16261_ + _tmp16262_) + (let ((__tmp18062 + (let ((__tmp18063 + (let ((__tmp18064 + (let ((__tmp18065 + (let ((__tmp18066 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len16084_ '())))) + (cons _len16261_ '())))) (declare (not safe)) - (cons _tmp16085_ __tmp17889)))) + (cons _tmp16262_ __tmp18066)))) (declare (not safe)) - (cons '__check-values __tmp17888)))) + (cons '__check-values __tmp18065)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp17887 - _stx16043_)))) + __tmp18064 + _stx16220_)))) (declare (not safe)) - (cons __tmp17886 _check16057_))) - (__tmp17877 - (let ((__tmp17878 - (lambda (_hd16087_ _r16088_) - (let* ((_hd1608916096_ - _hd16087_) - (_E1609116100_ + (cons __tmp18063 _check16234_))) + (__tmp18054 + (let ((__tmp18055 + (lambda (_hd16264_ _r16265_) + (let* ((_hd1626616273_ + _hd16264_) + (_E1626816277_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1608916096_))) - (_K1609216106_ - (lambda (_k16103_ _id16104_) - (let ((__tmp17879 - (let ((__tmp17880 - (let ((__tmp17881 - (let ((__tmp17882 - (let ((__tmp17883 - (let ((__tmp17884 + _hd1626616273_))) + (_K1626916283_ + (lambda (_k16280_ _id16281_) + (let ((__tmp18056 + (let ((__tmp18057 + (let ((__tmp18058 + (let ((__tmp18059 + (let ((__tmp18060 + (let ((__tmp18061 (let () (declare (not safe)) - (cons _k16103_ + (cons _k16280_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp16085_ __tmp17884)))) + (cons _tmp16262_ __tmp18061)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp17883)))) + __tmp18060)))) (declare (not safe)) - (cons __tmp17882 '())))) + (cons __tmp18059 '())))) (declare (not safe)) - (cons _id16104_ __tmp17881)))) + (cons _id16281_ __tmp18058)))) (declare (not safe)) - (cons 'set! __tmp17880)))) + (cons 'set! __tmp18057)))) (declare (not safe)) - (cons __tmp17879 _r16088_))))) + (cons __tmp18056 _r16265_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd1608916096_)) - (let ((_hd1609316109_ + (##pair? _hd1626616273_)) + (let ((_hd1627016286_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd1608916096_))) - (_tl1609416111_ - (let () (declare (not safe)) (##cdr _hd1608916096_)))) - (let* ((_id16114_ _hd1609316109_) (_k16116_ _tl1609416111_)) + (##car _hd1626616273_))) + (_tl1627116288_ + (let () (declare (not safe)) (##cdr _hd1626616273_)))) + (let* ((_id16291_ _hd1627016286_) (_k16293_ _tl1627116288_)) (declare (not safe)) - (_K1609216106_ _k16116_ _id16114_))) - (let () (declare (not safe)) (_E1609116100_))))))) + (_K1626916283_ _k16293_ _id16291_))) + (let () (declare (not safe)) (_E1626816277_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp17878 - _bind16058_ - _init16083_)))) + (foldr1 __tmp18055 + _bind16235_ + _init16260_)))) (declare (not safe)) - (_lp16054_ - _rest16082_ - __tmp17885 - __tmp17877))))) + (_lp16231_ + _rest16259_ + __tmp18062 + __tmp18054))))) (if (let () (declare (not safe)) - (##pair? _rest1605916071_)) - (let ((_hd1606416121_ + (##pair? _rest1623616248_)) + (let ((_hd1624116298_ (let () (declare (not safe)) - (##car _rest1605916071_))) - (_tl1606516123_ + (##car _rest1623616248_))) + (_tl1624216300_ (let () (declare (not safe)) - (##cdr _rest1605916071_)))) + (##cdr _rest1623616248_)))) (if (let () (declare (not safe)) - (##pair? _hd1606416121_)) - (let ((_hd1606616126_ + (##pair? _hd1624116298_)) + (let ((_hd1624316303_ (let () (declare (not safe)) - (##car _hd1606416121_))) - (_tl1606716128_ + (##car _hd1624116298_))) + (_tl1624416305_ (let () (declare (not safe)) - (##cdr _hd1606416121_)))) - (let ((_tmp16131_ _hd1606616126_)) + (##cdr _hd1624116298_)))) + (let ((_tmp16308_ _hd1624316303_)) (if (let () (declare (not safe)) - (##pair? _tl1606716128_)) - (let ((_hd1606816133_ + (##pair? _tl1624416305_)) + (let ((_hd1624516310_ (let () (declare (not safe)) - (##car _tl1606716128_))) - (_tl1606916135_ + (##car _tl1624416305_))) + (_tl1624616312_ (let () (declare (not safe)) - (##cdr _tl1606716128_)))) - (let* ((_len16138_ _hd1606816133_) - (_init16140_ _tl1606916135_) - (_rest16142_ - _tl1606516123_)) + (##cdr _tl1624416305_)))) + (let* ((_len16315_ _hd1624516310_) + (_init16317_ _tl1624616312_) + (_rest16319_ + _tl1624216300_)) (declare (not safe)) - (_K1606316118_ - _rest16142_ - _init16140_ - _len16138_ - _tmp16131_))) + (_K1624016295_ + _rest16319_ + _init16317_ + _len16315_ + _tmp16308_))) (let () (declare (not safe)) - (_else1606116079_))))) + (_else1623816256_))))) (let () (declare (not safe)) - (_else1606116079_)))) + (_else1623816256_)))) (let () (declare (not safe)) - (_else1606116079_)))))))) + (_else1623816256_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx16043_ - _compile-simple16045_ - _compile-values16046_))))) + _stx16220_ + _compile-simple16222_ + _compile-values16223_))))) (define __compile-letrec*-values% - (lambda (_stx15798_) - (letrec ((_compile-simple15800_ - (lambda (_hd-ids16039_ _exprs16040_ _body16041_) - (let ((__tmp17890 - (let ((__tmp17891 - (let ((__tmp17893 + (lambda (_stx15975_) + (letrec ((_compile-simple15977_ + (lambda (_hd-ids16216_ _exprs16217_ _body16218_) + (let ((__tmp18067 + (let ((__tmp18068 + (let ((__tmp18070 (map list (map __compile-head-id - _hd-ids16039_) - _exprs16040_)) - (__tmp17892 + _hd-ids16216_) + _exprs16217_)) + (__tmp18069 (let () (declare (not safe)) - (cons _body16041_ '())))) + (cons _body16218_ '())))) (declare (not safe)) - (cons __tmp17893 __tmp17892)))) + (cons __tmp18070 __tmp18069)))) (declare (not safe)) - (cons 'letrec* __tmp17891)))) + (cons 'letrec* __tmp18068)))) (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__% __tmp18067 _stx15975_)))) + (_compile-values15978_ + (lambda (_hd-ids16127_ _exprs16128_ _body16129_) + (let _lp16131_ ((_rest16133_ _hd-ids16127_) + (_exprs16134_ _exprs16128_) + (_bind16135_ '()) + (_post16136_ '())) + (let* ((_rest1613716151_ _rest16133_) + (_else1614016159_ (lambda () (let () (declare (not safe)) - (_compile-bind15802_ - _bind15958_ - _post15959_ - _body15952_))))) - (let ((_K1596816022_ - (lambda (_rest16017_ _hd16018_) + (_compile-bind15979_ + _bind16135_ + _post16136_ + _body16129_))))) + (let ((_K1614516199_ + (lambda (_rest16194_ _hd16195_) (if (let () (declare (not safe)) - (__AST-id? _hd16018_)) - (let ((_id16020_ + (__AST-id? _hd16195_)) + (let ((_id16197_ (let () (declare (not safe)) - (__SRC__0 _hd16018_)))) - (let ((__tmp17908 (cdr _exprs15957_)) - (__tmp17903 - (let ((__tmp17904 - (let ((__tmp17905 - (let ((__tmp17906 + (__SRC__0 _hd16195_)))) + (let ((__tmp18085 (cdr _exprs16134_)) + (__tmp18080 + (let ((__tmp18081 + (let ((__tmp18082 + (let ((__tmp18083 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17907 + (let ((__tmp18084 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17907)))) + (cons 'quote __tmp18084)))) (declare (not safe)) - (cons __tmp17906 '())))) + (cons __tmp18083 '())))) (declare (not safe)) - (cons _id16020_ __tmp17905)))) + (cons _id16197_ __tmp18082)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17904 _bind15958_))) - (__tmp17899 - (let ((__tmp17900 - (let ((__tmp17901 - (let ((__tmp17902 + (cons __tmp18081 _bind16135_))) + (__tmp18076 + (let ((__tmp18077 + (let ((__tmp18078 + (let ((__tmp18079 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs15957_))) + (car _exprs16134_))) (declare (not safe)) - (cons __tmp17902 '())))) + (cons __tmp18079 '())))) (declare (not safe)) - (cons _id16020_ __tmp17901)))) + (cons _id16197_ __tmp18078)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17900 - _post15959_)))) + (cons __tmp18077 + _post16136_)))) (declare (not safe)) - (_lp15954_ - _rest16017_ - __tmp17908 - __tmp17903 - __tmp17899))) - (let ((__tmp17898 (cdr _exprs15957_)) - (__tmp17894 - (let ((__tmp17895 - (let ((__tmp17896 - (let ((__tmp17897 + (_lp16131_ + _rest16194_ + __tmp18085 + __tmp18080 + __tmp18076))) + (let ((__tmp18075 (cdr _exprs16134_)) + (__tmp18071 + (let ((__tmp18072 + (let ((__tmp18073 + (let ((__tmp18074 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs15957_))) + (car _exprs16134_))) (declare (not safe)) - (cons __tmp17897 '())))) + (cons __tmp18074 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp17896)))) + (cons '#f __tmp18073)))) (declare (not safe)) - (cons __tmp17895 _post15959_)))) + (cons __tmp18072 _post16136_)))) (declare (not safe)) - (_lp15954_ - _rest16017_ - __tmp17898 - _bind15958_ - __tmp17894))))) - (_K1596516002_ - (lambda (_rest15986_ _hd15987_) + (_lp16131_ + _rest16194_ + __tmp18075 + _bind16135_ + __tmp18071))))) + (_K1614216179_ + (lambda (_rest16163_ _hd16164_) (if (let () (declare (not safe)) - (__AST-id? _hd15987_)) - (let ((_id15989_ + (__AST-id? _hd16164_)) + (let ((_id16166_ (let () (declare (not safe)) - (__SRC__0 _hd15987_)))) - (let ((__tmp17944 (cdr _exprs15957_)) - (__tmp17939 - (let ((__tmp17940 - (let ((__tmp17941 - (let ((__tmp17942 + (__SRC__0 _hd16164_)))) + (let ((__tmp18121 (cdr _exprs16134_)) + (__tmp18116 + (let ((__tmp18117 + (let ((__tmp18118 + (let ((__tmp18119 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17943 + (let ((__tmp18120 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17943)))) + (cons 'quote __tmp18120)))) (declare (not safe)) - (cons __tmp17942 '())))) + (cons __tmp18119 '())))) (declare (not safe)) - (cons _id15989_ __tmp17941)))) + (cons _id16166_ __tmp18118)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17940 _bind15958_))) - (__tmp17933 - (let ((__tmp17934 - (let ((__tmp17935 - (let ((__tmp17936 + (cons __tmp18117 _bind16135_))) + (__tmp18110 + (let ((__tmp18111 + (let ((__tmp18112 + (let ((__tmp18113 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17937 - (let ((__tmp17938 (car _exprs15957_))) + (let ((__tmp18114 + (let ((__tmp18115 (car _exprs16134_))) (declare (not safe)) - (cons __tmp17938 '())))) + (cons __tmp18115 '())))) (declare (not safe)) - (cons 'values->list __tmp17937)))) + (cons 'values->list __tmp18114)))) (declare (not safe)) - (cons __tmp17936 '())))) + (cons __tmp18113 '())))) (declare (not safe)) - (cons _id15989_ __tmp17935)))) + (cons _id16166_ __tmp18112)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17934 - _post15959_)))) + (cons __tmp18111 + _post16136_)))) (declare (not safe)) - (_lp15954_ - _rest15986_ - __tmp17944 - __tmp17939 - __tmp17933))) - (if (let ((__tmp17932 + (_lp16131_ + _rest16163_ + __tmp18121 + __tmp18116 + __tmp18110))) + (if (let ((__tmp18109 (let () (declare (not safe)) - (__AST-e _hd15987_)))) + (__AST-e _hd16164_)))) (declare (not safe)) - (not __tmp17932)) - (let ((__tmp17931 (cdr _exprs15957_)) - (__tmp17927 - (let ((__tmp17928 - (let ((__tmp17929 - (let ((__tmp17930 + (not __tmp18109)) + (let ((__tmp18108 (cdr _exprs16134_)) + (__tmp18104 + (let ((__tmp18105 + (let ((__tmp18106 + (let ((__tmp18107 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs15957_))) + (car _exprs16134_))) (declare (not safe)) - (cons __tmp17930 '())))) + (cons __tmp18107 '())))) (declare (not safe)) - (cons '#f __tmp17929)))) + (cons '#f __tmp18106)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17928 - _post15959_)))) + (cons __tmp18105 + _post16136_)))) (declare (not safe)) - (_lp15954_ - _rest15986_ - __tmp17931 - _bind15958_ - __tmp17927)) + (_lp16131_ + _rest16163_ + __tmp18108 + _bind16135_ + __tmp18104)) (if (let () (declare (not safe)) - (list? _hd15987_)) - (let* ((_len15991_ - (length _hd15987_)) - (_tmp15993_ - (let ((__tmp17909 + (list? _hd16164_)) + (let* ((_len16168_ + (length _hd16164_)) + (_tmp16170_ + (let ((__tmp18086 (gensym))) (declare (not safe)) - (__SRC__0 __tmp17909)))) - (let ((__tmp17926 - (cdr _exprs15957_)) - (__tmp17919 - (let ((__tmp17920 - (lambda (_id15996_ + (__SRC__0 __tmp18086)))) + (let ((__tmp18103 + (cdr _exprs16134_)) + (__tmp18096 + (let ((__tmp18097 + (lambda (_id16173_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r15997_) - (if (let () (declare (not safe)) (__AST-e _id15996_)) - (let ((__tmp17921 - (let ((__tmp17925 + _r16174_) + (if (let () (declare (not safe)) (__AST-e _id16173_)) + (let ((__tmp18098 + (let ((__tmp18102 (let () (declare (not safe)) - (__SRC__0 _id15996_))) - (__tmp17922 - (let ((__tmp17923 - (let ((__tmp17924 + (__SRC__0 _id16173_))) + (__tmp18099 + (let ((__tmp18100 + (let ((__tmp18101 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp17924)))) + (cons 'quote __tmp18101)))) (declare (not safe)) - (cons __tmp17923 '())))) + (cons __tmp18100 '())))) (declare (not safe)) - (cons __tmp17925 __tmp17922)))) + (cons __tmp18102 __tmp18099)))) (declare (not safe)) - (cons __tmp17921 _r15997_)) - _r15997_)))) + (cons __tmp18098 _r16174_)) + _r16174_)))) (declare (not safe)) - (foldl1 __tmp17920 _bind15958_ _hd15987_))) + (foldl1 __tmp18097 _bind16135_ _hd16164_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp17910 - (let ((__tmp17911 - (let ((__tmp17912 + (__tmp18087 + (let ((__tmp18088 + (let ((__tmp18089 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17918 (car _exprs15957_)) - (__tmp17913 - (let ((__tmp17914 - (let ((__tmp17916 - (lambda (_id15999_ _k16000_) + (let ((__tmp18095 (car _exprs16134_)) + (__tmp18090 + (let ((__tmp18091 + (let ((__tmp18093 + (lambda (_id16176_ _k16177_) (if (let () (declare (not safe)) - (__AST-e _id15999_)) - (let ((__tmp17917 + (__AST-e _id16176_)) + (let ((__tmp18094 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id15999_)))) + (__SRC__0 _id16176_)))) (declare (not safe)) - (cons __tmp17917 _k16000_)) + (cons __tmp18094 _k16177_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp17915 + (__tmp18092 (let () (declare (not safe)) - (iota _len15991_)))) + (iota _len16168_)))) (declare (not safe)) (filter-map2 - __tmp17916 - _hd15987_ - __tmp17915)))) + __tmp18093 + _hd16164_ + __tmp18092)))) (declare (not safe)) - (cons _len15991_ __tmp17914)))) + (cons _len16168_ __tmp18091)))) (declare (not safe)) - (cons __tmp17918 __tmp17913)))) + (cons __tmp18095 __tmp18090)))) (declare (not safe)) - (cons _tmp15993_ __tmp17912)))) + (cons _tmp16170_ __tmp18089)))) (declare (not safe)) - (cons __tmp17911 _post15959_)))) + (cons __tmp18088 _post16136_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp15954_ - _rest15986_ - __tmp17926 - __tmp17919 - __tmp17910))) + (_lp16131_ + _rest16163_ + __tmp18103 + __tmp18096 + __tmp18087))) (let () (declare (not safe)) (__compile-error__% - _stx15798_ - _hd15987_)))))))) + _stx15975_ + _hd16164_)))))))) (if (let () (declare (not safe)) - (##pair? _rest1596015974_)) - (let ((_tl1597016027_ + (##pair? _rest1613716151_)) + (let ((_tl1614716204_ (let () (declare (not safe)) - (##cdr _rest1596015974_))) - (_hd1596916025_ + (##cdr _rest1613716151_))) + (_hd1614616202_ (let () (declare (not safe)) - (##car _rest1596015974_)))) + (##car _rest1613716151_)))) (if (let () (declare (not safe)) - (##pair? _hd1596916025_)) - (let ((_tl1597216032_ + (##pair? _hd1614616202_)) + (let ((_tl1614916209_ (let () (declare (not safe)) - (##cdr _hd1596916025_))) - (_hd1597116030_ + (##cdr _hd1614616202_))) + (_hd1614816207_ (let () (declare (not safe)) - (##car _hd1596916025_)))) + (##car _hd1614616202_)))) (if (let () (declare (not safe)) - (##null? _tl1597216032_)) - (let ((_hd16035_ _hd1597116030_) - (_rest16037_ _tl1597016027_)) + (##null? _tl1614916209_)) + (let ((_hd16212_ _hd1614816207_) + (_rest16214_ _tl1614716204_)) (let () (declare (not safe)) - (_K1596816022_ - _rest16037_ - _hd16035_))) - (let ((_hd16010_ _hd1596916025_) - (_rest16012_ _tl1597016027_)) + (_K1614516199_ + _rest16214_ + _hd16212_))) + (let ((_hd16187_ _hd1614616202_) + (_rest16189_ _tl1614716204_)) (let () (declare (not safe)) - (_K1596516002_ - _rest16012_ - _hd16010_))))) - (let ((_hd16010_ _hd1596916025_) - (_rest16012_ _tl1597016027_)) + (_K1614216179_ + _rest16189_ + _hd16187_))))) + (let ((_hd16187_ _hd1614616202_) + (_rest16189_ _tl1614716204_)) (let () (declare (not safe)) - (_K1596516002_ - _rest16012_ - _hd16010_))))) + (_K1614216179_ + _rest16189_ + _hd16187_))))) (let () (declare (not safe)) - (_else1596315982_)))))))) - (_compile-bind15802_ - (lambda (_bind15946_ _post15947_ _body15948_) - (let ((__tmp17945 - (let ((__tmp17946 - (let ((__tmp17949 (reverse _bind15946_)) - (__tmp17947 - (let ((__tmp17948 + (_else1614016159_)))))))) + (_compile-bind15979_ + (lambda (_bind16123_ _post16124_ _body16125_) + (let ((__tmp18122 + (let ((__tmp18123 + (let ((__tmp18126 (reverse _bind16123_)) + (__tmp18124 + (let ((__tmp18125 (let () (declare (not safe)) - (_compile-post15803_ - _post15947_ - _body15948_)))) + (_compile-post15980_ + _post16124_ + _body16125_)))) (declare (not safe)) - (cons __tmp17948 '())))) + (cons __tmp18125 '())))) (declare (not safe)) - (cons __tmp17949 __tmp17947)))) + (cons __tmp18126 __tmp18124)))) (declare (not safe)) - (cons 'let __tmp17946)))) + (cons 'let __tmp18123)))) (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__% __tmp18122 _stx15975_)))) + (_compile-post15980_ + (lambda (_post15982_ _body15983_) + (let ((__tmp18127 + (let ((__tmp18128 + (let ((__tmp18129 + (let ((__tmp18131 + (lambda (_hd15985_ _r15986_) + (let* ((_hd1598716010_ + _hd15985_) + (_E1599116014_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1581015833_)))) + _hd1598716010_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K1582715931_ - (lambda (_expr15929_) + (let ((_K1600416108_ + (lambda (_expr16106_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr15929_ _r15809_)))) - (_K1582215909_ - (lambda (_expr15906_ _id15907_) - (let ((__tmp17955 - (let ((__tmp17956 - (let ((__tmp17957 - (let ((__tmp17958 + (cons _expr16106_ _r15986_)))) + (_K1599916086_ + (lambda (_expr16083_ _id16084_) + (let ((__tmp18132 + (let ((__tmp18133 + (let ((__tmp18134 + (let ((__tmp18135 (let () (declare (not safe)) - (cons _expr15906_ '())))) + (cons _expr16083_ '())))) (declare (not safe)) - (cons _id15907_ __tmp17958)))) + (cons _id16084_ __tmp18135)))) (declare (not safe)) - (cons 'set! __tmp17957)))) + (cons 'set! __tmp18134)))) (declare (not safe)) - (__SRC__% __tmp17956 _stx15798_)))) + (__SRC__% __tmp18133 _stx15975_)))) (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 __tmp18132 _r15986_)))) + (_K1599216053_ + (lambda (_init16018_ _len16019_ _expr16020_ _tmp16021_) + (let ((__tmp18136 + (let ((__tmp18137 + (let ((__tmp18138 + (let ((__tmp18152 + (let ((__tmp18153 + (let ((__tmp18154 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr15843_ '())))) + (cons _expr16020_ '())))) (declare (not safe)) - (cons _tmp15844_ __tmp17977)))) + (cons _tmp16021_ __tmp18154)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17976 '()))) - (__tmp17962 - (let ((__tmp17971 - (let ((__tmp17972 - (let ((__tmp17973 + (cons __tmp18153 '()))) + (__tmp18139 + (let ((__tmp18148 + (let ((__tmp18149 + (let ((__tmp18150 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17974 + (let ((__tmp18151 (let () (declare (not safe)) - (cons _len15842_ '())))) + (cons _len16019_ '())))) (declare (not safe)) - (cons _tmp15844_ __tmp17974)))) + (cons _tmp16021_ __tmp18151)))) (declare (not safe)) - (cons '__check-values __tmp17973)))) + (cons '__check-values __tmp18150)))) (declare (not safe)) - (__SRC__% __tmp17972 _stx15798_))) - (__tmp17963 - (let ((__tmp17964 - (map (lambda (_hd15846_) - (let* ((_hd1584715854_ _hd15846_) - (_E1584915858_ + (__SRC__% __tmp18149 _stx15975_))) + (__tmp18140 + (let ((__tmp18141 + (map (lambda (_hd16023_) + (let* ((_hd1602416031_ _hd16023_) + (_E1602616035_ (lambda () (error '"No clause matching" - _hd1584715854_))) - (_K1585015864_ - (lambda (_k15861_ _id15862_) - (let ((__tmp17965 - (let ((__tmp17966 - (let ((__tmp17967 - (let ((__tmp17968 + _hd1602416031_))) + (_K1602716041_ + (lambda (_k16038_ _id16039_) + (let ((__tmp18142 + (let ((__tmp18143 + (let ((__tmp18144 + (let ((__tmp18145 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp17969 - (let ((__tmp17970 + (let ((__tmp18146 + (let ((__tmp18147 (let () (declare (not safe)) - (cons _k15861_ '())))) + (cons _k16038_ '())))) (declare (not safe)) - (cons _tmp15844_ __tmp17970)))) + (cons _tmp16021_ __tmp18147)))) (declare (not safe)) - (cons '##vector-ref __tmp17969)))) + (cons '##vector-ref __tmp18146)))) (declare (not safe)) - (cons __tmp17968 '())))) + (cons __tmp18145 '())))) (declare (not safe)) - (cons _id15862_ __tmp17967)))) + (cons _id16039_ __tmp18144)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp17966)))) + (cons 'set! __tmp18143)))) (declare (not safe)) - (__SRC__% __tmp17965 _stx15798_))))) + (__SRC__% __tmp18142 _stx15975_))))) (if (let () (declare (not safe)) - (##pair? _hd1584715854_)) - (let ((_hd1585115867_ + (##pair? _hd1602416031_)) + (let ((_hd1602816044_ (let () (declare (not safe)) - (##car _hd1584715854_))) - (_tl1585215869_ + (##car _hd1602416031_))) + (_tl1602916046_ (let () (declare (not safe)) - (##cdr _hd1584715854_)))) - (let* ((_id15872_ _hd1585115867_) - (_k15874_ _tl1585215869_)) + (##cdr _hd1602416031_)))) + (let* ((_id16049_ _hd1602816044_) + (_k16051_ _tl1602916046_)) (declare (not safe)) - (_K1585015864_ _k15874_ _id15872_))) + (_K1602716041_ _k16051_ _id16049_))) (let () (declare (not safe)) - (_E1584915858_))))) - _init15841_))) + (_E1602616035_))))) + _init16018_))) (declare (not safe)) - (foldr1 cons '() __tmp17964)))) + (foldr1 cons '() __tmp18141)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17971 - __tmp17963)))) + (cons __tmp18148 + __tmp18140)))) (declare (not safe)) - (cons __tmp17975 __tmp17962)))) + (cons __tmp18152 __tmp18139)))) (declare (not safe)) - (cons 'let __tmp17961)))) + (cons 'let __tmp18138)))) (declare (not safe)) - (__SRC__% __tmp17960 _stx15798_)))) + (__SRC__% __tmp18137 _stx15975_)))) (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 __tmp18136 _r15986_))))) + (if (let () (declare (not safe)) (##pair? _hd1598716010_)) + (let ((_tl1600616113_ + (let () (declare (not safe)) (##cdr _hd1598716010_))) + (_hd1600516111_ + (let () (declare (not safe)) (##car _hd1598716010_)))) (if (let () (declare (not safe)) - (##eq? _hd1582815934_ '#f)) + (##eq? _hd1600516111_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl1582915936_)) - (let ((_tl1583115941_ + (##pair? _tl1600616113_)) + (let ((_tl1600816118_ (let () (declare (not safe)) - (##cdr _tl1582915936_))) - (_hd1583015939_ + (##cdr _tl1600616113_))) + (_hd1600716116_ (let () (declare (not safe)) - (##car _tl1582915936_)))) + (##car _tl1600616113_)))) (if (let () (declare (not safe)) - (##null? _tl1583115941_)) - (let ((_expr15944_ _hd1583015939_)) + (##null? _tl1600816118_)) + (let ((_expr16121_ _hd1600716116_)) (declare (not safe)) - (_K1582715931_ _expr15944_)) + (_K1600416108_ _expr16121_)) (if (let () (declare (not safe)) - (##pair? _tl1583115941_)) - (let ((_tl1582115895_ + (##pair? _tl1600816118_)) + (let ((_tl1599816072_ (let () (declare (not safe)) - (##cdr _tl1583115941_))) - (_hd1582015893_ + (##cdr _tl1600816118_))) + (_hd1599716070_ (let () (declare (not safe)) - (##car _tl1583115941_)))) - (let ((_tmp15884_ _hd1582815934_) - (_expr15891_ _hd1583015939_) - (_len15898_ _hd1582015893_) - (_init15900_ _tl1582115895_)) + (##car _tl1600816118_)))) + (let ((_tmp16061_ _hd1600516111_) + (_expr16068_ _hd1600716116_) + (_len16075_ _hd1599716070_) + (_init16077_ _tl1599816072_)) (let () (declare (not safe)) - (_K1581515876_ - _init15900_ - _len15898_ - _expr15891_ - _tmp15884_)))) + (_K1599216053_ + _init16077_ + _len16075_ + _expr16068_ + _tmp16061_)))) (let () (declare (not safe)) - (_E1581415837_))))) - (let () (declare (not safe)) (_E1581415837_))) + (_E1599116014_))))) + (let () (declare (not safe)) (_E1599116014_))) (if (let () (declare (not safe)) - (##pair? _tl1582915936_)) - (let ((_tl1582615921_ + (##pair? _tl1600616113_)) + (let ((_tl1600316098_ (let () (declare (not safe)) - (##cdr _tl1582915936_))) - (_hd1582515919_ + (##cdr _tl1600616113_))) + (_hd1600216096_ (let () (declare (not safe)) - (##car _tl1582915936_)))) + (##car _tl1600616113_)))) (if (let () (declare (not safe)) - (##null? _tl1582615921_)) - (let ((_id15917_ _hd1582815934_) - (_expr15924_ _hd1582515919_)) + (##null? _tl1600316098_)) + (let ((_id16094_ _hd1600516111_) + (_expr16101_ _hd1600216096_)) (let () (declare (not safe)) - (_K1582215909_ _expr15924_ _id15917_))) + (_K1599916086_ _expr16101_ _id16094_))) (if (let () (declare (not safe)) - (##pair? _tl1582615921_)) - (let ((_tl1582115895_ + (##pair? _tl1600316098_)) + (let ((_tl1599816072_ (let () (declare (not safe)) - (##cdr _tl1582615921_))) - (_hd1582015893_ + (##cdr _tl1600316098_))) + (_hd1599716070_ (let () (declare (not safe)) - (##car _tl1582615921_)))) - (let ((_tmp15884_ _hd1582815934_) - (_expr15891_ _hd1582515919_) - (_len15898_ _hd1582015893_) - (_init15900_ _tl1582115895_)) + (##car _tl1600316098_)))) + (let ((_tmp16061_ _hd1600516111_) + (_expr16068_ _hd1600216096_) + (_len16075_ _hd1599716070_) + (_init16077_ _tl1599816072_)) (let () (declare (not safe)) - (_K1581515876_ - _init15900_ - _len15898_ - _expr15891_ - _tmp15884_)))) + (_K1599216053_ + _init16077_ + _len16075_ + _expr16068_ + _tmp16061_)))) (let () (declare (not safe)) - (_E1581415837_))))) - (let () (declare (not safe)) (_E1581415837_))))) - (let () (declare (not safe)) (_E1581415837_))))))) + (_E1599116014_))))) + (let () (declare (not safe)) (_E1599116014_))))) + (let () (declare (not safe)) (_E1599116014_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp17953 (list _body15806_))) + (__tmp18130 (list _body15983_))) (declare (not safe)) - (foldl1 __tmp17954 - __tmp17953 - _post15805_)))) + (foldl1 __tmp18131 + __tmp18130 + _post15982_)))) (declare (not safe)) - (foldr1 cons '() __tmp17952)))) + (foldr1 cons '() __tmp18129)))) (declare (not safe)) - (cons 'begin __tmp17951)))) + (cons 'begin __tmp18128)))) (declare (not safe)) - (__SRC__% __tmp17950 _stx15798_))))) + (__SRC__% __tmp18127 _stx15975_))))) (let () (declare (not safe)) (__compile-let-form - _stx15798_ - _compile-simple15800_ - _compile-values15801_))))) + _stx15975_ + _compile-simple15977_ + _compile-values15978_))))) (define __compile-call% - (lambda (_stx15758_) - (let* ((_$e15760_ _stx15758_) - (_$E1576215771_ + (lambda (_stx15935_) + (let* ((_$e15937_ _stx15935_) + (_$E1593915948_ (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" _$e15937_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15937_)) + (let* ((_$tgt1594015951_ + (let () (declare (not safe)) (__AST-e _$e15937_))) + (_$hd1594115954_ + (let () (declare (not safe)) (##car _$tgt1594015951_))) + (_$tl1594215957_ + (let () (declare (not safe)) (##cdr _$tgt1594015951_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1594215957_)) + (let* ((_$tgt1594315961_ (let () (declare (not safe)) - (__AST-e _$tl1576515780_))) - (_$hd1576715787_ + (__AST-e _$tl1594215957_))) + (_$hd1594415964_ (let () (declare (not safe)) - (##car _$tgt1576615784_))) - (_$tl1576815790_ + (##car _$tgt1594315961_))) + (_$tl1594515967_ (let () (declare (not safe)) - (##cdr _$tgt1576615784_)))) - (let* ((_rator15794_ _$hd1576715787_) - (_rands15796_ _$tl1576815790_) - (__tmp17978 - (let ((__tmp17980 + (##cdr _$tgt1594315961_)))) + (let* ((_rator15971_ _$hd1594415964_) + (_rands15973_ _$tl1594515967_) + (__tmp18155 + (let ((__tmp18157 (let () (declare (not safe)) - (__compile _rator15794_))) - (__tmp17979 (map __compile _rands15796_))) + (__compile _rator15971_))) + (__tmp18156 (map __compile _rands15973_))) (declare (not safe)) - (cons __tmp17980 __tmp17979)))) + (cons __tmp18157 __tmp18156)))) (declare (not safe)) - (__SRC__% __tmp17978 _stx15758_))) - (let () (declare (not safe)) (_$E1576215771_)))) - (let () (declare (not safe)) (_$E1576215771_)))))) + (__SRC__% __tmp18155 _stx15935_))) + (let () (declare (not safe)) (_$E1593915948_)))) + (let () (declare (not safe)) (_$E1593915948_)))))) (define __compile-ref% - (lambda (_stx15720_) - (let* ((_$e15722_ _stx15720_) - (_$E1572415733_ + (lambda (_stx15897_) + (let* ((_$e15899_ _stx15897_) + (_$E1590115910_ (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" _$e15899_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15899_)) + (let* ((_$tgt1590215913_ + (let () (declare (not safe)) (__AST-e _$e15899_))) + (_$hd1590315916_ + (let () (declare (not safe)) (##car _$tgt1590215913_))) + (_$tl1590415919_ + (let () (declare (not safe)) (##cdr _$tgt1590215913_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1590415919_)) + (let* ((_$tgt1590515923_ (let () (declare (not safe)) - (__AST-e _$tl1572715742_))) - (_$hd1572915749_ + (__AST-e _$tl1590415919_))) + (_$hd1590615926_ (let () (declare (not safe)) - (##car _$tgt1572815746_))) - (_$tl1573015752_ + (##car _$tgt1590515923_))) + (_$tl1590715929_ (let () (declare (not safe)) - (##cdr _$tgt1572815746_)))) - (let ((_id15756_ _$hd1572915749_)) - (if (let ((__tmp17981 + (##cdr _$tgt1590515923_)))) + (let ((_id15933_ _$hd1590615926_)) + (if (let ((__tmp18158 (let () (declare (not safe)) - (__AST-e _$tl1573015752_)))) + (__AST-e _$tl1590715929_)))) (declare (not safe)) - (equal? __tmp17981 '())) + (equal? __tmp18158 '())) (let () (declare (not safe)) - (__SRC__% _id15756_ _stx15720_)) - (let () (declare (not safe)) (_$E1572415733_))))) - (let () (declare (not safe)) (_$E1572415733_)))) - (let () (declare (not safe)) (_$E1572415733_)))))) + (__SRC__% _id15933_ _stx15897_)) + (let () (declare (not safe)) (_$E1590115910_))))) + (let () (declare (not safe)) (_$E1590115910_)))) + (let () (declare (not safe)) (_$E1590115910_)))))) (define __compile-setq% - (lambda (_stx15667_) - (let* ((_$e15669_ _stx15667_) - (_$E1567115683_ + (lambda (_stx15844_) + (let* ((_$e15846_ _stx15844_) + (_$E1584815860_ (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" _$e15846_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15846_)) + (let* ((_$tgt1584915863_ + (let () (declare (not safe)) (__AST-e _$e15846_))) + (_$hd1585015866_ + (let () (declare (not safe)) (##car _$tgt1584915863_))) + (_$tl1585115869_ + (let () (declare (not safe)) (##cdr _$tgt1584915863_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1585115869_)) + (let* ((_$tgt1585215873_ (let () (declare (not safe)) - (__AST-e _$tl1567415692_))) - (_$hd1567615699_ + (__AST-e _$tl1585115869_))) + (_$hd1585315876_ (let () (declare (not safe)) - (##car _$tgt1567515696_))) - (_$tl1567715702_ + (##car _$tgt1585215873_))) + (_$tl1585415879_ (let () (declare (not safe)) - (##cdr _$tgt1567515696_)))) - (let ((_id15706_ _$hd1567615699_)) + (##cdr _$tgt1585215873_)))) + (let ((_id15883_ _$hd1585315876_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1567715702_)) - (let* ((_$tgt1567815708_ + (__AST-pair? _$tl1585415879_)) + (let* ((_$tgt1585515885_ (let () (declare (not safe)) - (__AST-e _$tl1567715702_))) - (_$hd1567915711_ + (__AST-e _$tl1585415879_))) + (_$hd1585615888_ (let () (declare (not safe)) - (##car _$tgt1567815708_))) - (_$tl1568015714_ + (##car _$tgt1585515885_))) + (_$tl1585715891_ (let () (declare (not safe)) - (##cdr _$tgt1567815708_)))) - (let ((_expr15718_ _$hd1567915711_)) - (if (let ((__tmp17987 + (##cdr _$tgt1585515885_)))) + (let ((_expr15895_ _$hd1585615888_)) + (if (let ((__tmp18164 (let () (declare (not safe)) - (__AST-e _$tl1568015714_)))) + (__AST-e _$tl1585715891_)))) (declare (not safe)) - (equal? __tmp17987 '())) - (let ((__tmp17982 - (let ((__tmp17983 - (let ((__tmp17986 + (equal? __tmp18164 '())) + (let ((__tmp18159 + (let ((__tmp18160 + (let ((__tmp18163 (let () (declare (not safe)) (__SRC__% - _id15706_ - _stx15667_))) - (__tmp17984 - (let ((__tmp17985 + _id15883_ + _stx15844_))) + (__tmp18161 + (let ((__tmp18162 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr15718_)))) + (__compile _expr15895_)))) (declare (not safe)) - (cons __tmp17985 '())))) + (cons __tmp18162 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp17986 - __tmp17984)))) + (cons __tmp18163 + __tmp18161)))) (declare (not safe)) - (cons 'set! __tmp17983)))) + (cons 'set! __tmp18160)))) (declare (not safe)) - (__SRC__% __tmp17982 _stx15667_)) + (__SRC__% __tmp18159 _stx15844_)) (let () (declare (not safe)) - (_$E1567115683_))))) - (let () (declare (not safe)) (_$E1567115683_))))) - (let () (declare (not safe)) (_$E1567115683_)))) - (let () (declare (not safe)) (_$E1567115683_)))))) + (_$E1584815860_))))) + (let () (declare (not safe)) (_$E1584815860_))))) + (let () (declare (not safe)) (_$E1584815860_)))) + (let () (declare (not safe)) (_$E1584815860_)))))) (define __compile-if% - (lambda (_stx15599_) - (let* ((_$e15601_ _stx15599_) - (_$E1560315618_ + (lambda (_stx15776_) + (let* ((_$e15778_ _stx15776_) + (_$E1578015795_ (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" _$e15778_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15778_)) + (let* ((_$tgt1578115798_ + (let () (declare (not safe)) (__AST-e _$e15778_))) + (_$hd1578215801_ + (let () (declare (not safe)) (##car _$tgt1578115798_))) + (_$tl1578315804_ + (let () (declare (not safe)) (##cdr _$tgt1578115798_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1578315804_)) + (let* ((_$tgt1578415808_ (let () (declare (not safe)) - (__AST-e _$tl1560615627_))) - (_$hd1560815634_ + (__AST-e _$tl1578315804_))) + (_$hd1578515811_ (let () (declare (not safe)) - (##car _$tgt1560715631_))) - (_$tl1560915637_ + (##car _$tgt1578415808_))) + (_$tl1578615814_ (let () (declare (not safe)) - (##cdr _$tgt1560715631_)))) - (let ((_p15641_ _$hd1560815634_)) + (##cdr _$tgt1578415808_)))) + (let ((_p15818_ _$hd1578515811_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1560915637_)) - (let* ((_$tgt1561015643_ + (__AST-pair? _$tl1578615814_)) + (let* ((_$tgt1578715820_ (let () (declare (not safe)) - (__AST-e _$tl1560915637_))) - (_$hd1561115646_ + (__AST-e _$tl1578615814_))) + (_$hd1578815823_ (let () (declare (not safe)) - (##car _$tgt1561015643_))) - (_$tl1561215649_ + (##car _$tgt1578715820_))) + (_$tl1578915826_ (let () (declare (not safe)) - (##cdr _$tgt1561015643_)))) - (let ((_t15653_ _$hd1561115646_)) + (##cdr _$tgt1578715820_)))) + (let ((_t15830_ _$hd1578815823_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl1561215649_)) - (let* ((_$tgt1561315655_ + (__AST-pair? _$tl1578915826_)) + (let* ((_$tgt1579015832_ (let () (declare (not safe)) - (__AST-e _$tl1561215649_))) - (_$hd1561415658_ + (__AST-e _$tl1578915826_))) + (_$hd1579115835_ (let () (declare (not safe)) - (##car _$tgt1561315655_))) - (_$tl1561515661_ + (##car _$tgt1579015832_))) + (_$tl1579215838_ (let () (declare (not safe)) - (##cdr _$tgt1561315655_)))) - (let ((_f15665_ _$hd1561415658_)) - (if (let ((__tmp17995 + (##cdr _$tgt1579015832_)))) + (let ((_f15842_ _$hd1579115835_)) + (if (let ((__tmp18172 (let () (declare (not safe)) - (__AST-e _$tl1561515661_)))) + (__AST-e _$tl1579215838_)))) (declare (not safe)) - (equal? __tmp17995 '())) - (let ((__tmp17988 - (let ((__tmp17989 - (let ((__tmp17994 + (equal? __tmp18172 '())) + (let ((__tmp18165 + (let ((__tmp18166 + (let ((__tmp18171 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p15641_))) - (__tmp17990 - (let ((__tmp17993 + (let () (declare (not safe)) (__compile _p15818_))) + (__tmp18167 + (let ((__tmp18170 (let () (declare (not safe)) - (__compile _t15653_))) - (__tmp17991 - (let ((__tmp17992 + (__compile _t15830_))) + (__tmp18168 + (let ((__tmp18169 (let () (declare (not safe)) - (__compile _f15665_)))) + (__compile _f15842_)))) (declare (not safe)) - (cons __tmp17992 '())))) + (cons __tmp18169 '())))) (declare (not safe)) - (cons __tmp17993 __tmp17991)))) + (cons __tmp18170 __tmp18168)))) (declare (not safe)) - (cons __tmp17994 __tmp17990)))) + (cons __tmp18171 __tmp18167)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp17989)))) + (cons 'if __tmp18166)))) (declare (not safe)) - (__SRC__% __tmp17988 _stx15599_)) + (__SRC__% __tmp18165 _stx15776_)) (let () (declare (not safe)) - (_$E1560315618_))))) + (_$E1578015795_))))) (let () (declare (not safe)) - (_$E1560315618_))))) - (let () (declare (not safe)) (_$E1560315618_))))) - (let () (declare (not safe)) (_$E1560315618_)))) - (let () (declare (not safe)) (_$E1560315618_)))))) + (_$E1578015795_))))) + (let () (declare (not safe)) (_$E1578015795_))))) + (let () (declare (not safe)) (_$E1578015795_)))) + (let () (declare (not safe)) (_$E1578015795_)))))) (define __compile-quote% - (lambda (_stx15561_) - (let* ((_$e15563_ _stx15561_) - (_$E1556515574_ + (lambda (_stx15738_) + (let* ((_$e15740_ _stx15738_) + (_$E1574215751_ (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" _$e15740_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15740_)) + (let* ((_$tgt1574315754_ + (let () (declare (not safe)) (__AST-e _$e15740_))) + (_$hd1574415757_ + (let () (declare (not safe)) (##car _$tgt1574315754_))) + (_$tl1574515760_ + (let () (declare (not safe)) (##cdr _$tgt1574315754_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1574515760_)) + (let* ((_$tgt1574615764_ (let () (declare (not safe)) - (__AST-e _$tl1556815583_))) - (_$hd1557015590_ + (__AST-e _$tl1574515760_))) + (_$hd1574715767_ (let () (declare (not safe)) - (##car _$tgt1556915587_))) - (_$tl1557115593_ + (##car _$tgt1574615764_))) + (_$tl1574815770_ (let () (declare (not safe)) - (##cdr _$tgt1556915587_)))) - (let ((_e15597_ _$hd1557015590_)) - (if (let ((__tmp17999 + (##cdr _$tgt1574615764_)))) + (let ((_e15774_ _$hd1574715767_)) + (if (let ((__tmp18176 (let () (declare (not safe)) - (__AST-e _$tl1557115593_)))) + (__AST-e _$tl1574815770_)))) (declare (not safe)) - (equal? __tmp17999 '())) - (let ((__tmp17996 - (let ((__tmp17997 - (let ((__tmp17998 + (equal? __tmp18176 '())) + (let ((__tmp18173 + (let ((__tmp18174 + (let ((__tmp18175 (let () (declare (not safe)) - (__AST->datum _e15597_)))) + (__AST->datum _e15774_)))) (declare (not safe)) - (cons __tmp17998 '())))) + (cons __tmp18175 '())))) (declare (not safe)) - (cons 'quote __tmp17997)))) + (cons 'quote __tmp18174)))) (declare (not safe)) - (__SRC__% __tmp17996 _stx15561_)) - (let () (declare (not safe)) (_$E1556515574_))))) - (let () (declare (not safe)) (_$E1556515574_)))) - (let () (declare (not safe)) (_$E1556515574_)))))) + (__SRC__% __tmp18173 _stx15738_)) + (let () (declare (not safe)) (_$E1574215751_))))) + (let () (declare (not safe)) (_$E1574215751_)))) + (let () (declare (not safe)) (_$E1574215751_)))))) (define __compile-quote-syntax% - (lambda (_stx15523_) - (let* ((_$e15525_ _stx15523_) - (_$E1552715536_ + (lambda (_stx15700_) + (let* ((_$e15702_ _stx15700_) + (_$E1570415713_ (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" _$e15702_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e15702_)) + (let* ((_$tgt1570515716_ + (let () (declare (not safe)) (__AST-e _$e15702_))) + (_$hd1570615719_ + (let () (declare (not safe)) (##car _$tgt1570515716_))) + (_$tl1570715722_ + (let () (declare (not safe)) (##cdr _$tgt1570515716_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl1570715722_)) + (let* ((_$tgt1570815726_ (let () (declare (not safe)) - (__AST-e _$tl1553015545_))) - (_$hd1553215552_ + (__AST-e _$tl1570715722_))) + (_$hd1570915729_ (let () (declare (not safe)) - (##car _$tgt1553115549_))) - (_$tl1553315555_ + (##car _$tgt1570815726_))) + (_$tl1571015732_ (let () (declare (not safe)) - (##cdr _$tgt1553115549_)))) - (let ((_e15559_ _$hd1553215552_)) - (if (let ((__tmp18002 + (##cdr _$tgt1570815726_)))) + (let ((_e15736_ _$hd1570915729_)) + (if (let ((__tmp18179 (let () (declare (not safe)) - (__AST-e _$tl1553315555_)))) + (__AST-e _$tl1571015732_)))) (declare (not safe)) - (equal? __tmp18002 '())) - (let ((__tmp18000 - (let ((__tmp18001 + (equal? __tmp18179 '())) + (let ((__tmp18177 + (let ((__tmp18178 (let () (declare (not safe)) - (cons _e15559_ '())))) + (cons _e15736_ '())))) (declare (not safe)) - (cons 'quote __tmp18001)))) + (cons 'quote __tmp18178)))) (declare (not safe)) - (__SRC__% __tmp18000 _stx15523_)) - (let () (declare (not safe)) (_$E1552715536_))))) - (let () (declare (not safe)) (_$E1552715536_)))) - (let () (declare (not safe)) (_$E1552715536_)))))) + (__SRC__% __tmp18177 _stx15700_)) + (let () (declare (not safe)) (_$E1570415713_))))) + (let () (declare (not safe)) (_$E1570415713_)))) + (let () (declare (not safe)) (_$E1570415713_)))))) (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..21ad5c25d1 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]#_g18180_| (##structure gx#syntax-quote::t '__context::t #f (gx#current-expander-context) '())) - (define |[1]#_g18014_| + (define |[1]#_g18191_| (##structure gx#syntax-quote::t '__context-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18016_| + (define |[1]#_g18193_| (##structure gx#syntax-quote::t '__context-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18018_| + (define |[1]#_g18195_| (##structure gx#syntax-quote::t '__context-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18020_| + (define |[1]#_g18197_| (##structure gx#syntax-quote::t '__context-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18026_| + (define |[1]#_g18203_| (##structure gx#syntax-quote::t '__context-table #f (gx#current-expander-context) '())) - (define |[1]#_g18028_| + (define |[1]#_g18205_| (##structure gx#syntax-quote::t '__context-super #f (gx#current-expander-context) '())) - (define |[1]#_g18030_| + (define |[1]#_g18207_| (##structure gx#syntax-quote::t '__context-ns #f (gx#current-expander-context) '())) - (define |[1]#_g18032_| + (define |[1]#_g18209_| (##structure gx#syntax-quote::t '__context-t #f (gx#current-expander-context) '())) - (define |[1]#_g18034_| + (define |[1]#_g18211_| (##structure gx#syntax-quote::t '__context? #f (gx#current-expander-context) '())) - (define |[1]#_g18036_| + (define |[1]#_g18213_| (##structure gx#syntax-quote::t 'make-__context #f (gx#current-expander-context) '())) - (define |[1]#_g18038_| + (define |[1]#_g18215_| (##structure gx#syntax-quote::t '__runtime::t #f (gx#current-expander-context) '())) - (define |[1]#_g18046_| + (define |[1]#_g18223_| (##structure gx#syntax-quote::t '__runtime-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18049_| + (define |[1]#_g18226_| (##structure gx#syntax-quote::t '__runtime-id #f (gx#current-expander-context) '())) - (define |[1]#_g18051_| + (define |[1]#_g18228_| (##structure gx#syntax-quote::t '__runtime? #f (gx#current-expander-context) '())) - (define |[1]#_g18053_| + (define |[1]#_g18230_| (##structure gx#syntax-quote::t 'make-__runtime #f (gx#current-expander-context) '())) - (define |[1]#_g18055_| + (define |[1]#_g18232_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g18064_| + (define |[1]#_g18241_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18066_| + (define |[1]#_g18243_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18070_| + (define |[1]#_g18247_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g18072_| + (define |[1]#_g18249_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g18074_| + (define |[1]#_g18251_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g18076_| + (define |[1]#_g18253_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g18078_| + (define |[1]#_g18255_| (##structure gx#syntax-quote::t '__macro::t #f (gx#current-expander-context) '())) - (define |[1]#_g18085_| + (define |[1]#_g18262_| (##structure gx#syntax-quote::t '__macro? #f (gx#current-expander-context) '())) - (define |[1]#_g18087_| + (define |[1]#_g18264_| (##structure gx#syntax-quote::t 'make-__macro #f (gx#current-expander-context) '())) - (define |[1]#_g18090_| + (define |[1]#_g18267_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g18091_| + (define |[1]#_g18268_| (##structure gx#syntax-quote::t '__special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g18098_| + (define |[1]#_g18275_| (##structure gx#syntax-quote::t '__special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g18100_| + (define |[1]#_g18277_| (##structure gx#syntax-quote::t 'make-__special-form #f (gx#current-expander-context) '())) - (define |[1]#_g18103_| + (define |[1]#_g18280_| (##structure gx#syntax-quote::t '__macro #f (gx#current-expander-context) '())) - (define |[1]#_g18104_| + (define |[1]#_g18281_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g18111_| + (define |[1]#_g18288_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g18113_| + (define |[1]#_g18290_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g18116_| + (define |[1]#_g18293_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g18123_| + (define |[1]#_g18300_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g18125_| + (define |[1]#_g18302_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g18128_| + (define |[1]#_g18305_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g18129_| + (define |[1]#_g18306_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g18136_| + (define |[1]#_g18313_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g18138_| + (define |[1]#_g18315_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g18141_| + (define |[1]#_g18318_| (##structure gx#syntax-quote::t '__struct-info::t #f (gx#current-expander-context) '())) - (define |[1]#_g18148_| + (define |[1]#_g18325_| (##structure gx#syntax-quote::t '__struct-info? #f (gx#current-expander-context) '())) - (define |[1]#_g18150_| + (define |[1]#_g18327_| (##structure gx#syntax-quote::t 'make-__struct-info #f (gx#current-expander-context) '())) - (define |[1]#_g18153_| + (define |[1]#_g18330_| (##structure gx#syntax-quote::t '__feature::t #f (gx#current-expander-context) '())) - (define |[1]#_g18160_| + (define |[1]#_g18337_| (##structure gx#syntax-quote::t '__feature? #f (gx#current-expander-context) '())) - (define |[1]#_g18162_| + (define |[1]#_g18339_| (##structure gx#syntax-quote::t 'make-__feature #f (gx#current-expander-context) '())) - (define |[1]#_g18165_| + (define |[1]#_g18342_| (##structure gx#syntax-quote::t '__module::t #f (gx#current-expander-context) '())) - (define |[1]#_g18176_| + (define |[1]#_g18353_| (##structure gx#syntax-quote::t '__module-export-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18178_| + (define |[1]#_g18355_| (##structure gx#syntax-quote::t '__module-import-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18180_| + (define |[1]#_g18357_| (##structure gx#syntax-quote::t '__module-path-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18182_| + (define |[1]#_g18359_| (##structure gx#syntax-quote::t '__module-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g18188_| + (define |[1]#_g18365_| (##structure gx#syntax-quote::t '__module-export #f (gx#current-expander-context) '())) - (define |[1]#_g18190_| + (define |[1]#_g18367_| (##structure gx#syntax-quote::t '__module-import #f (gx#current-expander-context) '())) - (define |[1]#_g18192_| + (define |[1]#_g18369_| (##structure gx#syntax-quote::t '__module-path #f (gx#current-expander-context) '())) - (define |[1]#_g18194_| + (define |[1]#_g18371_| (##structure gx#syntax-quote::t '__module-id #f (gx#current-expander-context) '())) - (define |[1]#_g18196_| + (define |[1]#_g18373_| (##structure gx#syntax-quote::t '__module? #f (gx#current-expander-context) '())) - (define |[1]#_g18198_| + (define |[1]#_g18375_| (##structure gx#syntax-quote::t 'make-__module #f (gx#current-expander-context) '())) - (define |[1]#_g18201_| + (define |[1]#_g18378_| (##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]#_g18180_| '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 ((__tmp18181 + (let ((__tmp18214 |[1]#_g18180_|) + (__tmp18182 + (let ((__tmp18212 |[1]#_g18213_|) + (__tmp18183 + (let ((__tmp18210 |[1]#_g18211_|) + (__tmp18184 + (let ((__tmp18198 + (let ((__tmp18208 |[1]#_g18209_|) + (__tmp18199 + (let ((__tmp18206 + |[1]#_g18207_|) + (__tmp18200 + (let ((__tmp18204 + |[1]#_g18205_|) + (__tmp18201 + (let ((__tmp18202 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g18026_|)) + |[1]#_g18203_|)) (declare (not safe)) - (cons __tmp18025 '())))) + (cons __tmp18202 '())))) (declare (not safe)) - (cons __tmp18027 __tmp18024)))) + (cons __tmp18204 __tmp18201)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp18029 - __tmp18023)))) + (cons __tmp18206 + __tmp18200)))) (declare (not safe)) - (cons __tmp18031 __tmp18022))) - (__tmp18008 - (let ((__tmp18009 - (let ((__tmp18019 - |[1]#_g18020_|) - (__tmp18010 - (let ((__tmp18017 - |[1]#_g18018_|) - (__tmp18011 - (let ((__tmp18015 + (cons __tmp18208 __tmp18199))) + (__tmp18185 + (let ((__tmp18186 + (let ((__tmp18196 + |[1]#_g18197_|) + (__tmp18187 + (let ((__tmp18194 + |[1]#_g18195_|) + (__tmp18188 + (let ((__tmp18192 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g18016_|) - (__tmp18012 - (let ((__tmp18013 |[1]#_g18014_|)) + |[1]#_g18193_|) + (__tmp18189 + (let ((__tmp18190 |[1]#_g18191_|)) (declare (not safe)) - (cons __tmp18013 '())))) + (cons __tmp18190 '())))) (declare (not safe)) - (cons __tmp18015 __tmp18012)))) + (cons __tmp18192 __tmp18189)))) (declare (not safe)) - (cons __tmp18017 __tmp18011)))) + (cons __tmp18194 __tmp18188)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp18019 - __tmp18010)))) + (cons __tmp18196 + __tmp18187)))) (declare (not safe)) - (cons __tmp18009 '())))) + (cons __tmp18186 '())))) (declare (not safe)) - (cons __tmp18021 __tmp18008)))) + (cons __tmp18198 __tmp18185)))) (declare (not safe)) - (cons __tmp18033 __tmp18007)))) + (cons __tmp18210 __tmp18184)))) (declare (not safe)) - (cons __tmp18035 __tmp18006)))) + (cons __tmp18212 __tmp18183)))) (declare (not safe)) - (cons __tmp18037 __tmp18005)))) + (cons __tmp18214 __tmp18182)))) (declare (not safe)) - (cons '#f __tmp18004)) + (cons '#f __tmp18181)) '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]#_g18215_| '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 ((__tmp18216 + (let ((__tmp18231 |[1]#_g18215_|) + (__tmp18217 + (let ((__tmp18229 |[1]#_g18230_|) + (__tmp18218 + (let ((__tmp18227 |[1]#_g18228_|) + (__tmp18219 + (let ((__tmp18224 + (let ((__tmp18225 |[1]#_g18226_|)) (declare (not safe)) - (cons __tmp18048 '()))) - (__tmp18043 - (let ((__tmp18044 - (let ((__tmp18045 - |[1]#_g18046_|)) + (cons __tmp18225 '()))) + (__tmp18220 + (let ((__tmp18221 + (let ((__tmp18222 + |[1]#_g18223_|)) (declare (not safe)) - (cons __tmp18045 '())))) + (cons __tmp18222 '())))) (declare (not safe)) - (cons __tmp18044 '())))) + (cons __tmp18221 '())))) (declare (not safe)) - (cons __tmp18047 __tmp18043)))) + (cons __tmp18224 __tmp18220)))) (declare (not safe)) - (cons __tmp18050 __tmp18042)))) + (cons __tmp18227 __tmp18219)))) (declare (not safe)) - (cons __tmp18052 __tmp18041)))) + (cons __tmp18229 __tmp18218)))) (declare (not safe)) - (cons __tmp18054 __tmp18040)))) + (cons __tmp18231 __tmp18217)))) (declare (not safe)) - (cons '#f __tmp18039)) + (cons '#f __tmp18216)) '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]#_g18232_| '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 ((__tmp18233 + (let ((__tmp18254 |[1]#_g18232_|) + (__tmp18234 + (let ((__tmp18252 |[1]#_g18253_|) + (__tmp18235 + (let ((__tmp18250 |[1]#_g18251_|) + (__tmp18236 + (let ((__tmp18244 + (let ((__tmp18248 |[1]#_g18249_|) + (__tmp18245 + (let ((__tmp18246 + |[1]#_g18247_|)) (declare (not safe)) - (cons __tmp18069 '())))) + (cons __tmp18246 '())))) (declare (not safe)) - (cons __tmp18071 __tmp18068))) - (__tmp18060 - (let ((__tmp18061 - (let ((__tmp18065 - |[1]#_g18066_|) - (__tmp18062 - (let ((__tmp18063 - |[1]#_g18064_|)) + (cons __tmp18248 __tmp18245))) + (__tmp18237 + (let ((__tmp18238 + (let ((__tmp18242 + |[1]#_g18243_|) + (__tmp18239 + (let ((__tmp18240 + |[1]#_g18241_|)) (declare (not safe)) - (cons __tmp18063 + (cons __tmp18240 '())))) (declare (not safe)) - (cons __tmp18065 - __tmp18062)))) + (cons __tmp18242 + __tmp18239)))) (declare (not safe)) - (cons __tmp18061 '())))) + (cons __tmp18238 '())))) (declare (not safe)) - (cons __tmp18067 __tmp18060)))) + (cons __tmp18244 __tmp18237)))) (declare (not safe)) - (cons __tmp18073 __tmp18059)))) + (cons __tmp18250 __tmp18236)))) (declare (not safe)) - (cons __tmp18075 __tmp18058)))) + (cons __tmp18252 __tmp18235)))) (declare (not safe)) - (cons __tmp18077 __tmp18057)))) + (cons __tmp18254 __tmp18234)))) (declare (not safe)) - (cons '#f __tmp18056)) + (cons '#f __tmp18233)) '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]#_g18255_| '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 ((__tmp18266 |[1]#_g18232_|) + (__tmp18256 + (let ((__tmp18265 |[1]#_g18255_|) + (__tmp18257 + (let ((__tmp18263 |[1]#_g18264_|) + (__tmp18258 + (let ((__tmp18261 |[1]#_g18262_|) + (__tmp18259 + (let ((__tmp18260 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18083)))) + (cons '() __tmp18260)))) (declare (not safe)) - (cons __tmp18084 __tmp18082)))) + (cons __tmp18261 __tmp18259)))) (declare (not safe)) - (cons __tmp18086 __tmp18081)))) + (cons __tmp18263 __tmp18258)))) (declare (not safe)) - (cons __tmp18088 __tmp18080)))) + (cons __tmp18265 __tmp18257)))) (declare (not safe)) - (cons __tmp18089 __tmp18079)) + (cons __tmp18266 __tmp18256)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18090_| + |[1]#_g18267_| '__macro '#f '() @@ -625,34 +625,34 @@ (define |[:0:]#__special-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18091_| + |[1]#_g18268_| '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 ((__tmp18279 |[1]#_g18255_|) + (__tmp18269 + (let ((__tmp18278 |[1]#_g18268_|) + (__tmp18270 + (let ((__tmp18276 |[1]#_g18277_|) + (__tmp18271 + (let ((__tmp18274 |[1]#_g18275_|) + (__tmp18272 + (let ((__tmp18273 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18096)))) + (cons '() __tmp18273)))) (declare (not safe)) - (cons __tmp18097 __tmp18095)))) + (cons __tmp18274 __tmp18272)))) (declare (not safe)) - (cons __tmp18099 __tmp18094)))) + (cons __tmp18276 __tmp18271)))) (declare (not safe)) - (cons __tmp18101 __tmp18093)))) + (cons __tmp18278 __tmp18270)))) (declare (not safe)) - (cons __tmp18102 __tmp18092)) + (cons __tmp18279 __tmp18269)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18103_| + |[1]#_g18280_| '__special-form '#f '() @@ -660,34 +660,34 @@ (define |[:0:]#__core-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18104_| + |[1]#_g18281_| '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 ((__tmp18292 |[1]#_g18232_|) + (__tmp18282 + (let ((__tmp18291 |[1]#_g18281_|) + (__tmp18283 + (let ((__tmp18289 |[1]#_g18290_|) + (__tmp18284 + (let ((__tmp18287 |[1]#_g18288_|) + (__tmp18285 + (let ((__tmp18286 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18109)))) + (cons '() __tmp18286)))) (declare (not safe)) - (cons __tmp18110 __tmp18108)))) + (cons __tmp18287 __tmp18285)))) (declare (not safe)) - (cons __tmp18112 __tmp18107)))) + (cons __tmp18289 __tmp18284)))) (declare (not safe)) - (cons __tmp18114 __tmp18106)))) + (cons __tmp18291 __tmp18283)))) (declare (not safe)) - (cons __tmp18115 __tmp18105)) + (cons __tmp18292 __tmp18282)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18090_| + |[1]#_g18267_| '__core-form '#f '() @@ -695,34 +695,34 @@ (define |[:0:]#__core-expression| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18116_| + |[1]#_g18293_| '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 ((__tmp18304 |[1]#_g18281_|) + (__tmp18294 + (let ((__tmp18303 |[1]#_g18293_|) + (__tmp18295 + (let ((__tmp18301 |[1]#_g18302_|) + (__tmp18296 + (let ((__tmp18299 |[1]#_g18300_|) + (__tmp18297 + (let ((__tmp18298 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18121)))) + (cons '() __tmp18298)))) (declare (not safe)) - (cons __tmp18122 __tmp18120)))) + (cons __tmp18299 __tmp18297)))) (declare (not safe)) - (cons __tmp18124 __tmp18119)))) + (cons __tmp18301 __tmp18296)))) (declare (not safe)) - (cons __tmp18126 __tmp18118)))) + (cons __tmp18303 __tmp18295)))) (declare (not safe)) - (cons __tmp18127 __tmp18117)) + (cons __tmp18304 __tmp18294)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18128_| + |[1]#_g18305_| '__core-expression '#f '() @@ -730,34 +730,34 @@ (define |[:0:]#__core-special-form| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18129_| + |[1]#_g18306_| '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 ((__tmp18317 |[1]#_g18281_|) + (__tmp18307 + (let ((__tmp18316 |[1]#_g18306_|) + (__tmp18308 + (let ((__tmp18314 |[1]#_g18315_|) + (__tmp18309 + (let ((__tmp18312 |[1]#_g18313_|) + (__tmp18310 + (let ((__tmp18311 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18134)))) + (cons '() __tmp18311)))) (declare (not safe)) - (cons __tmp18135 __tmp18133)))) + (cons __tmp18312 __tmp18310)))) (declare (not safe)) - (cons __tmp18137 __tmp18132)))) + (cons __tmp18314 __tmp18309)))) (declare (not safe)) - (cons __tmp18139 __tmp18131)))) + (cons __tmp18316 __tmp18308)))) (declare (not safe)) - (cons __tmp18140 __tmp18130)) + (cons __tmp18317 __tmp18307)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18128_| + |[1]#_g18305_| '__core-special-form '#f '() @@ -765,34 +765,34 @@ (define |[:0:]#__struct-info| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18141_| + |[1]#_g18318_| '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 ((__tmp18329 |[1]#_g18232_|) + (__tmp18319 + (let ((__tmp18328 |[1]#_g18318_|) + (__tmp18320 + (let ((__tmp18326 |[1]#_g18327_|) + (__tmp18321 + (let ((__tmp18324 |[1]#_g18325_|) + (__tmp18322 + (let ((__tmp18323 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18146)))) + (cons '() __tmp18323)))) (declare (not safe)) - (cons __tmp18147 __tmp18145)))) + (cons __tmp18324 __tmp18322)))) (declare (not safe)) - (cons __tmp18149 __tmp18144)))) + (cons __tmp18326 __tmp18321)))) (declare (not safe)) - (cons __tmp18151 __tmp18143)))) + (cons __tmp18328 __tmp18320)))) (declare (not safe)) - (cons __tmp18152 __tmp18142)) + (cons __tmp18329 __tmp18319)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18090_| + |[1]#_g18267_| '__struct-info '#f '() @@ -800,34 +800,34 @@ (define |[:0:]#__feature| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18153_| + |[1]#_g18330_| '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 ((__tmp18341 |[1]#_g18232_|) + (__tmp18331 + (let ((__tmp18340 |[1]#_g18330_|) + (__tmp18332 + (let ((__tmp18338 |[1]#_g18339_|) + (__tmp18333 + (let ((__tmp18336 |[1]#_g18337_|) + (__tmp18334 + (let ((__tmp18335 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons '() __tmp18158)))) + (cons '() __tmp18335)))) (declare (not safe)) - (cons __tmp18159 __tmp18157)))) + (cons __tmp18336 __tmp18334)))) (declare (not safe)) - (cons __tmp18161 __tmp18156)))) + (cons __tmp18338 __tmp18333)))) (declare (not safe)) - (cons __tmp18163 __tmp18155)))) + (cons __tmp18340 __tmp18332)))) (declare (not safe)) - (cons __tmp18164 __tmp18154)) + (cons __tmp18341 __tmp18331)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18090_| + |[1]#_g18267_| '__feature '#f '() @@ -835,285 +835,285 @@ (define |[:0:]#__module| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g18165_| + |[1]#_g18342_| '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 ((__tmp18377 |[1]#_g18180_|) + (__tmp18343 + (let ((__tmp18376 |[1]#_g18342_|) + (__tmp18344 + (let ((__tmp18374 |[1]#_g18375_|) + (__tmp18345 + (let ((__tmp18372 |[1]#_g18373_|) + (__tmp18346 + (let ((__tmp18360 + (let ((__tmp18370 |[1]#_g18371_|) + (__tmp18361 + (let ((__tmp18368 + |[1]#_g18369_|) + (__tmp18362 + (let ((__tmp18366 + |[1]#_g18367_|) + (__tmp18363 + (let ((__tmp18364 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g18188_|)) + |[1]#_g18365_|)) (declare (not safe)) - (cons __tmp18187 '())))) + (cons __tmp18364 '())))) (declare (not safe)) - (cons __tmp18189 __tmp18186)))) + (cons __tmp18366 __tmp18363)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp18191 - __tmp18185)))) + (cons __tmp18368 + __tmp18362)))) (declare (not safe)) - (cons __tmp18193 __tmp18184))) - (__tmp18170 - (let ((__tmp18171 - (let ((__tmp18181 - |[1]#_g18182_|) - (__tmp18172 - (let ((__tmp18179 - |[1]#_g18180_|) - (__tmp18173 - (let ((__tmp18177 + (cons __tmp18370 __tmp18361))) + (__tmp18347 + (let ((__tmp18348 + (let ((__tmp18358 + |[1]#_g18359_|) + (__tmp18349 + (let ((__tmp18356 + |[1]#_g18357_|) + (__tmp18350 + (let ((__tmp18354 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g18178_|) - (__tmp18174 - (let ((__tmp18175 |[1]#_g18176_|)) + |[1]#_g18355_|) + (__tmp18351 + (let ((__tmp18352 |[1]#_g18353_|)) (declare (not safe)) - (cons __tmp18175 '())))) + (cons __tmp18352 '())))) (declare (not safe)) - (cons __tmp18177 __tmp18174)))) + (cons __tmp18354 __tmp18351)))) (declare (not safe)) - (cons __tmp18179 __tmp18173)))) + (cons __tmp18356 __tmp18350)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp18181 - __tmp18172)))) + (cons __tmp18358 + __tmp18349)))) (declare (not safe)) - (cons __tmp18171 '())))) + (cons __tmp18348 '())))) (declare (not safe)) - (cons __tmp18183 __tmp18170)))) + (cons __tmp18360 __tmp18347)))) (declare (not safe)) - (cons __tmp18195 __tmp18169)))) + (cons __tmp18372 __tmp18346)))) (declare (not safe)) - (cons __tmp18197 __tmp18168)))) + (cons __tmp18374 __tmp18345)))) (declare (not safe)) - (cons __tmp18199 __tmp18167)))) + (cons __tmp18376 __tmp18344)))) (declare (not safe)) - (cons __tmp18200 __tmp18166)) + (cons __tmp18377 __tmp18343)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-struct-exhibitor| '#f - |[1]#_g18201_| + |[1]#_g18378_| '__module '#f '() '(id path import export)))) (define |[:0:]#defcore-forms| - (lambda (_stx15068_) - (letrec ((_generate15071_ - (lambda (_id15435_ _compile15437_ _make15438_) - (let* ((_g1544015459_ - (lambda (_g1544115455_) + (lambda (_stx15245_) + (letrec ((_generate15248_ + (lambda (_id15612_ _compile15614_ _make15615_) + (let* ((_g1561715636_ + (lambda (_g1561815632_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1544115455_))) - (_g1543915518_ - (lambda (_g1544115463_) - (if (gx#stx-pair? _g1544115463_) - (let ((_e1544715466_ - (gx#syntax-e _g1544115463_))) - (let ((_hd1544615470_ + _g1561815632_))) + (_g1561615695_ + (lambda (_g1561815640_) + (if (gx#stx-pair? _g1561815640_) + (let ((_e1562415643_ + (gx#syntax-e _g1561815640_))) + (let ((_hd1562315647_ (let () (declare (not safe)) - (##car _e1544715466_))) - (_tl1544515473_ + (##car _e1562415643_))) + (_tl1562215650_ (let () (declare (not safe)) - (##cdr _e1544715466_)))) - (if (gx#stx-pair? _tl1544515473_) - (let ((_e1545015476_ - (gx#syntax-e _tl1544515473_))) - (let ((_hd1544915480_ + (##cdr _e1562415643_)))) + (if (gx#stx-pair? _tl1562215650_) + (let ((_e1562715653_ + (gx#syntax-e _tl1562215650_))) + (let ((_hd1562615657_ (let () (declare (not safe)) - (##car _e1545015476_))) - (_tl1544815483_ + (##car _e1562715653_))) + (_tl1562515660_ (let () (declare (not safe)) - (##cdr _e1545015476_)))) - (if (gx#stx-pair? _tl1544815483_) - (let ((_e1545315486_ + (##cdr _e1562715653_)))) + (if (gx#stx-pair? _tl1562515660_) + (let ((_e1563015663_ (gx#syntax-e - _tl1544815483_))) - (let ((_hd1545215490_ + _tl1562515660_))) + (let ((_hd1562915667_ (let () (declare (not safe)) - (##car _e1545315486_))) - (_tl1545115493_ + (##car _e1563015663_))) + (_tl1562815670_ (let () (declare (not safe)) - (##cdr _e1545315486_)))) + (##cdr _e1563015663_)))) (if (gx#stx-null? - _tl1545115493_) - ((lambda (_L15496_ + _tl1562815670_) + ((lambda (_L15673_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L15498_ - _L15499_) + _L15675_ + _L15676_) (let () - (let ((__tmp18208 + (let ((__tmp18385 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp18202 - (let ((__tmp18205 - (let ((__tmp18207 + (__tmp18379 + (let ((__tmp18382 + (let ((__tmp18384 (gx#datum->syntax '#f 'quote)) - (__tmp18206 + (__tmp18383 (let () (declare (not safe)) - (cons _L15499_ '())))) + (cons _L15676_ '())))) (declare (not safe)) - (cons __tmp18207 __tmp18206))) - (__tmp18203 - (let ((__tmp18204 + (cons __tmp18384 __tmp18383))) + (__tmp18380 + (let ((__tmp18381 (let () (declare (not safe)) - (cons _L15496_ '())))) + (cons _L15673_ '())))) (declare (not safe)) - (cons _L15498_ __tmp18204)))) + (cons _L15675_ __tmp18381)))) (declare (not safe)) - (cons __tmp18205 __tmp18203)))) + (cons __tmp18382 __tmp18380)))) (declare (not safe)) - (cons __tmp18208 __tmp18202)))) - _hd1545215490_ - _hd1544915480_ - _hd1544615470_) - (_g1544015459_ _g1544115463_)))) + (cons __tmp18385 __tmp18379)))) + _hd1562915667_ + _hd1562615657_ + _hd1562315647_) + (_g1561715636_ _g1561815640_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_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_ + (_g1561715636_ + _g1561815640_)))) + (_g1561715636_ _g1561815640_)))) + (_g1561715636_ _g1561815640_))))) + (_g1561615695_ + (list _id15612_ + (gx#stx-identifier _id15612_ '"__" _compile15614_) + _make15615_)))))) + (let* ((_g1525115271_ + (lambda (_g1525215267_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1525215267_))) + (_g1525015608_ + (lambda (_g1525215275_) + (if (gx#stx-pair? _g1525215275_) + (let ((_e1525615278_ (gx#syntax-e _g1525215275_))) + (let ((_hd1525515282_ (let () (declare (not safe)) - (##car _e1507915101_))) - (_tl1507715108_ + (##car _e1525615278_))) + (_tl1525415285_ (let () (declare (not safe)) - (##cdr _e1507915101_)))) - (if (gx#stx-pair/null? _tl1507715108_) - (let ((_g18209_ + (##cdr _e1525615278_)))) + (if (gx#stx-pair/null? _tl1525415285_) + (let ((_g18386_ (gx#syntax-split-splice - _tl1507715108_ + _tl1525415285_ '0))) (begin - (let ((_g18210_ + (let ((_g18387_ (let () (declare (not safe)) - (if (##values? _g18209_) - (##vector-length _g18209_) + (if (##values? _g18386_) + (##vector-length _g18386_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g18210_ 2))) + (##fx= _g18387_ 2))) (error "Context expects 2 values" - _g18210_))) - (let ((_target1508015111_ + _g18387_))) + (let ((_target1525715288_ (let () (declare (not safe)) - (##vector-ref _g18209_ 0))) - (_tl1508215114_ + (##vector-ref _g18386_ 0))) + (_tl1525915291_ (let () (declare (not safe)) - (##vector-ref _g18209_ 1)))) - (if (gx#stx-null? _tl1508215114_) - (letrec ((_loop1508315117_ - (lambda (_hd1508115121_ - _form1508715124_) + (##vector-ref _g18386_ 1)))) + (if (gx#stx-null? _tl1525915291_) + (letrec ((_loop1526015294_ + (lambda (_hd1525815298_ + _form1526415301_) (if (gx#stx-pair? - _hd1508115121_) - (let ((_e1508415127_ + _hd1525815298_) + (let ((_e1526115304_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1508115121_))) - (let ((_lp-hd1508515131_ - (let () (declare (not safe)) (##car _e1508415127_))) - (_lp-tl1508615134_ + (gx#syntax-e _hd1525815298_))) + (let ((_lp-hd1526215308_ + (let () (declare (not safe)) (##car _e1526115304_))) + (_lp-tl1526315311_ (let () (declare (not safe)) - (##cdr _e1508415127_)))) - (_loop1508315117_ - _lp-tl1508615134_ + (##cdr _e1526115304_)))) + (_loop1526015294_ + _lp-tl1526315311_ (let () (declare (not safe)) - (cons _lp-hd1508515131_ _form1508715124_))))) - (let ((_form1508815137_ (reverse _form1508715124_))) - ((lambda (_L15141_) - (let _lp15159_ ((_rest15162_ - (let ((__tmp18215 - (lambda (_g1542215425_ - _g1542315428_) + (cons _lp-hd1526215308_ _form1526415301_))))) + (let ((_form1526515314_ (reverse _form1526415301_))) + ((lambda (_L15318_) + (let _lp15336_ ((_rest15339_ + (let ((__tmp18392 + (lambda (_g1559915602_ + _g1560015605_) (let () (declare (not safe)) - (cons _g1542215425_ - _g1542315428_))))) + (cons _g1559915602_ + _g1560015605_))))) (declare (not safe)) - (foldr1 __tmp18215 '() _L15141_))) - (_body15164_ '())) - (let* ((___stx1754417545_ _rest15162_) - (_g1516915216_ + (foldr1 __tmp18392 '() _L15318_))) + (_body15341_ '())) + (let* ((___stx1772117722_ _rest15339_) + (_g1534615393_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx1754417545_)))) - (let ((___kont1754717548_ - (lambda (_L15397_ _L15399_ _L15400_) - (_lp15159_ - _L15397_ - (let ((__tmp18211 - (_generate15071_ - _L15400_ - _L15399_ + ___stx1772117722_)))) + (let ((___kont1772417725_ + (lambda (_L15574_ _L15576_ _L15577_) + (_lp15336_ + _L15574_ + (let ((__tmp18388 + (_generate15248_ + _L15577_ + _L15576_ (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 __tmp18388 _body15341_))))) + (___kont1772617727_ + (lambda (_L15501_ _L15503_ _L15504_) + (_lp15336_ + _L15501_ + (let ((__tmp18389 + (_generate15248_ + _L15504_ + _L15503_ (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 __tmp18389 _body15341_))))) + (___kont1772817729_ + (lambda (_L15431_ _L15433_) + (_lp15336_ + _L15431_ + (let ((__tmp18390 + (_generate15248_ + _L15433_ (gx#datum->syntax '#f 'compile-error) @@ -1121,131 +1121,131 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp18213 _body15164_))))) - (___kont1755317554_ + (cons __tmp18390 _body15341_))))) + (___kont1773017731_ (lambda () - (let ((__tmp18214 (reverse _body15164_))) + (let ((__tmp18391 (reverse _body15341_))) (declare (not safe)) - (cons 'begin __tmp18214))))) - (let ((_g1516815227_ + (cons 'begin __tmp18391))))) + (let ((_g1534515404_ (lambda () - (if (gx#stx-null? ___stx1754417545_) - (___kont1755317554_) + (if (gx#stx-null? ___stx1772117722_) + (___kont1773017731_) (let () (declare (not safe)) - (_g1516915216_)))))) - (if (gx#stx-pair? ___stx1754417545_) - (let ((_e1517615353_ - (gx#syntax-e ___stx1754417545_))) - (let ((_tl1517415360_ + (_g1534615393_)))))) + (if (gx#stx-pair? ___stx1772117722_) + (let ((_e1535315530_ + (gx#syntax-e ___stx1772117722_))) + (let ((_tl1535115537_ (let () (declare (not safe)) - (##cdr _e1517615353_))) - (_hd1517515357_ + (##cdr _e1535315530_))) + (_hd1535215534_ (let () (declare (not safe)) - (##car _e1517615353_)))) - (if (gx#stx-pair? _hd1517515357_) - (let ((_e1517915363_ + (##car _e1535315530_)))) + (if (gx#stx-pair? _hd1535215534_) + (let ((_e1535615540_ (gx#syntax-e - _hd1517515357_))) - (let ((_tl1517715370_ + _hd1535215534_))) + (let ((_tl1535415547_ (let () (declare (not safe)) - (##cdr _e1517915363_))) - (_hd1517815367_ + (##cdr _e1535615540_))) + (_hd1535515544_ (let () (declare (not safe)) - (##car _e1517915363_)))) + (##car _e1535615540_)))) (if (gx#stx-pair? - _tl1517715370_) - (let ((_e1518215373_ + _tl1535415547_) + (let ((_e1535915550_ (gx#syntax-e - _tl1517715370_))) - (let ((_tl1518015380_ + _tl1535415547_))) + (let ((_tl1535715557_ (let () (declare (not safe)) - (##cdr _e1518215373_))) - (_hd1518115377_ + (##cdr _e1535915550_))) + (_hd1535815554_ (let () (declare (not safe)) - (##car _e1518215373_)))) + (##car _e1535915550_)))) (if (gx#stx-datum? - _hd1518115377_) - (let ((_e1518315383_ + _hd1535815554_) + (let ((_e1536015560_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd1518115377_))) + (gx#stx-e _hd1535815554_))) (if (let () (declare (not safe)) - (equal? _e1518315383_ 'expr:)) - (if (gx#stx-pair? _tl1518015380_) - (let ((_e1518615387_ - (gx#syntax-e _tl1518015380_))) - (let ((_tl1518415394_ + (equal? _e1536015560_ 'expr:)) + (if (gx#stx-pair? _tl1535715557_) + (let ((_e1536315564_ + (gx#syntax-e _tl1535715557_))) + (let ((_tl1536115571_ (let () (declare (not safe)) - (##cdr _e1518615387_))) - (_hd1518515391_ + (##cdr _e1536315564_))) + (_hd1536215568_ (let () (declare (not safe)) - (##car _e1518615387_)))) - (if (gx#stx-null? _tl1518415394_) - (___kont1754717548_ - _tl1517415360_ - _hd1518515391_ - _hd1517815367_) + (##car _e1536315564_)))) + (if (gx#stx-null? _tl1536115571_) + (___kont1772417725_ + _tl1535115537_ + _hd1536215568_ + _hd1535515544_) (let () (declare (not safe)) - (_g1516915216_))))) - (let () (declare (not safe)) (_g1516915216_))) + (_g1534615393_))))) + (let () (declare (not safe)) (_g1534615393_))) (if (let () (declare (not safe)) - (equal? _e1518315383_ 'special:)) - (if (gx#stx-pair? _tl1518015380_) - (let ((_e1520215314_ - (gx#syntax-e _tl1518015380_))) - (let ((_tl1520015321_ + (equal? _e1536015560_ 'special:)) + (if (gx#stx-pair? _tl1535715557_) + (let ((_e1537915491_ + (gx#syntax-e _tl1535715557_))) + (let ((_tl1537715498_ (let () (declare (not safe)) - (##cdr _e1520215314_))) - (_hd1520115318_ + (##cdr _e1537915491_))) + (_hd1537815495_ (let () (declare (not safe)) - (##car _e1520215314_)))) - (if (gx#stx-null? _tl1520015321_) - (___kont1754917550_ - _tl1517415360_ - _hd1520115318_ - _hd1517815367_) + (##car _e1537915491_)))) + (if (gx#stx-null? _tl1537715498_) + (___kont1772617727_ + _tl1535115537_ + _hd1537815495_ + _hd1535515544_) (let () (declare (not safe)) - (_g1516915216_))))) - (let () (declare (not safe)) (_g1516915216_))) - (let () (declare (not safe)) (_g1516915216_))))) - (let () (declare (not safe)) (_g1516915216_))))) + (_g1534615393_))))) + (let () (declare (not safe)) (_g1534615393_))) + (let () (declare (not safe)) (_g1534615393_))))) + (let () (declare (not safe)) (_g1534615393_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl1517715370_) - (___kont1755117552_ - _tl1517415360_ - _hd1517815367_) + _tl1535415547_) + (___kont1772817729_ + _tl1535115537_ + _hd1535515544_) (let () (declare (not safe)) - (_g1516915216_)))))) + (_g1534615393_)))))) (let () (declare (not safe)) - (_g1516915216_))))) + (_g1534615393_))))) (let () (declare (not safe)) - (_g1516815227_)))))))) - _form1508815137_)))))) + (_g1534515404_)))))))) + _form1526515314_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1508315117_ - _target1508015111_ + (_loop1526015294_ + _target1525715288_ '())) - (_g1507415094_ _g1507515098_))))) - (_g1507415094_ _g1507515098_)))) - (_g1507415094_ _g1507515098_))))) - (_g1507315431_ _stx15068_))))))) + (_g1525115271_ _g1525215275_))))) + (_g1525115271_ _g1525215275_)))) + (_g1525115271_ _g1525215275_))))) + (_g1525015608_ _stx15245_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index 4ba1a9bdf9..bd6a5ca6b9 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 1698385204) '#!void) diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index 3190f151f1..3cad570146 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 1698333193) (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+18603_ __*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* ((_core18605_ (gx#import-module ':gerbil/core)) + (_pre18607_ (gx#make-prelude-context _core18605_))) + (gx#current-expander-module-prelude _pre18607_) + (gx#core-bind-root-syntax! ': _pre18607_ '#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 (_port18610_) + (input-port-readtable-set! _port18610_ _+readtable+18603_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port18435_) + (lambda (_port18612_) (output-port-readtable-set! - _port18435_ + _port18612_ (readtable-sharing-allowed?-set - (output-port-readtable _port18435_) + (output-port-readtable _port18612_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline18423_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline18600_) '#!void)) (define load-scheme - (lambda (_path18418_) - (let ((__tmp18437 + (lambda (_path18595_) + (let ((__tmp18614 (lambda () - (let ((__tmp18438 (lambda _args18421_ '#f))) + (let ((__tmp18615 (lambda _args18598_ '#f))) (declare (not safe)) - (##load _path18418_ __tmp18438 '#t '#t '#f))))) + (##load _path18595_ __tmp18615 '#t '#t '#f))))) (declare (not safe)) (call-with-parameters - __tmp18437 + __tmp18614 __loading-scheme-source - _path18418_)))) + _path18595_)))) (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 _paths18590_ + (apply add-library-load-path _paths18590_) + (apply add-expander-load-path _paths18590_))) (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 _paths18579_ + (let* ((_current18581_ (current-module-library-path)) + (_paths18583_ (map path-expand _paths18579_)) + (_paths18587_ + (let ((__tmp18616 + (lambda (_x18585_) + (let ((__tmp18617 (member _x18585_ _current18581_))) (declare (not safe)) - (not __tmp18440))))) + (not __tmp18617))))) (declare (not safe)) - (filter __tmp18439 _paths18406_)))) - (current-module-library-path (append _current18404_ _paths18410_))))) + (filter __tmp18616 _paths18583_)))) + (current-module-library-path (append _current18581_ _paths18587_))))) (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 _paths18568_ + (let* ((_current18570_ (gx#current-expander-module-library-path)) + (_paths18572_ (map path-expand _paths18568_)) + (_paths18576_ + (let ((__tmp18618 + (lambda (_x18574_) + (let ((__tmp18619 (member _x18574_ _current18570_))) (declare (not safe)) - (not __tmp18442))))) + (not __tmp18619))))) (declare (not safe)) - (filter __tmp18441 _paths18395_)))) + (filter __tmp18618 _paths18572_)))) (gx#current-expander-module-library-path - (append _current18393_ _paths18399_))))) + (append _current18570_ _paths18576_))))) (define cons-load-path - (lambda _paths18389_ - (apply cons-library-load-path _paths18389_) - (apply cons-expander-load-path _paths18389_))) + (lambda _paths18566_ + (apply cons-library-load-path _paths18566_) + (apply cons-expander-load-path _paths18566_))) (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 _paths18561_ + (let ((_current18563_ (current-module-library-path)) + (_paths18564_ (map path-expand _paths18561_))) + (current-module-library-path (append _paths18564_ _current18563_))))) (define cons-expander-load-path - (lambda _paths18379_ - (let ((_current18381_ (gx#current-expander-module-library-path)) - (_paths18382_ (map path-expand _paths18379_))) + (lambda _paths18556_ + (let ((_current18558_ (gx#current-expander-module-library-path)) + (_paths18559_ (map path-expand _paths18556_))) (gx#current-expander-module-library-path - (append _paths18382_ _current18381_))))) + (append _paths18559_ _current18558_))))) (define with-cons-load-path - (lambda (_thunk18375_ . _paths18376_) + (lambda (_thunk18552_ . _paths18553_) (apply with-cons-library-load-path (lambda () (apply with-cons-expander-load-path - _thunk18375_ - _paths18376_)) - _paths18376_))) + _thunk18552_ + _paths18553_)) + _paths18553_))) (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 (_thunk18545_ . _paths18546_) + (let ((_current18548_ (current-module-library-path)) + (_paths18549_ (map path-expand _paths18546_))) + (let ((__tmp18621 (lambda () (_thunk18545_))) + (__tmp18620 (append _paths18549_ _current18548_))) (declare (not safe)) (call-with-parameters - __tmp18444 + __tmp18621 current-module-library-path - __tmp18443))))) + __tmp18620))))) (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 (_thunk18538_ . _paths18539_) + (let ((_current18541_ (gx#current-expander-module-library-path)) + (_paths18542_ (map path-expand _paths18539_))) + (let ((__tmp18623 (lambda () (_thunk18538_))) + (__tmp18622 (append _paths18542_ _current18541_))) (declare (not safe)) (call-with-parameters - __tmp18446 + __tmp18623 gx#current-expander-module-library-path - __tmp18445))))) + __tmp18622))))) (define __expand-source - (lambda (_src18347_) - (letrec ((_expand18349_ - (lambda (_src18359_) - (let ((__tmp18447 + (lambda (_src18524_) + (letrec ((_expand18526_ + (lambda (_src18536_) + (let ((__tmp18624 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src18359_))))) + (__source->syntax _src18536_))))) (declare (not safe)) - (__compile-top __tmp18447)))) - (_no-expand18350_ - (lambda (_src18355_) + (__compile-top __tmp18624)))) + (_no-expand18527_ + (lambda (_src18532_) (if (__loading-scheme-source) - _src18355_ + _src18532_ (if (let () (declare (not safe)) - (##source? _src18355_)) - (let ((_code18357_ + (##source? _src18532_)) + (let ((_code18534_ (let () (declare (not safe)) - (##source-code _src18355_)))) + (##source-code _src18532_)))) (if (let () (declare (not safe)) - (pair? _code18357_)) - (if (let ((__tmp18448 + (pair? _code18534_)) + (if (let ((__tmp18625 (let () (declare (not safe)) - (##car _code18357_)))) + (##car _code18534_)))) (declare (not safe)) - (eq? '__noexpand: __tmp18448)) + (eq? '__noexpand: __tmp18625)) (let () (declare (not safe)) - (##cdr _code18357_)) + (##cdr _code18534_)) '#f) '#f)) '#f))))) - (let ((_$e18352_ - (let () (declare (not safe)) (_no-expand18350_ _src18347_)))) - (if _$e18352_ - _$e18352_ - (let () (declare (not safe)) (_expand18349_ _src18347_))))))) + (let ((_$e18529_ + (let () (declare (not safe)) (_no-expand18527_ _src18524_)))) + (if _$e18529_ + _$e18529_ + (let () (declare (not safe)) (_expand18526_ _src18524_))))))) (define __macro-descr - (lambda (_src18333_ _def-syntax?18334_) - (letrec ((_fail!18336_ + (lambda (_src18510_ _def-syntax?18511_) + (letrec ((_fail!18513_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src18333_)))) - (_make-descr18337_ - (lambda (_size18341_) - (let ((_expander18344_ - (let ((__tmp18449 + _src18510_)))) + (_make-descr18514_ + (lambda (_size18518_) + (let ((_expander18521_ + (let ((__tmp18626 (lambda () (let () (declare (not safe)) (##eval-top - _src18333_ + _src18510_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp18449 + __tmp18626 __loading-scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander18344_)) + (procedure? _expander18521_)) (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?18511_ + _size18518_ + _expander18521_ + _src18510_)) + (let () (declare (not safe)) (_fail!18513_))))))) + (if _def-syntax?18511_ + (let () (declare (not safe)) (_make-descr18514_ '-1)) + (let ((_code18516_ + (let () (declare (not safe)) (##source-code _src18510_)))) + (if (and (let () (declare (not safe)) (##pair? _code18516_)) + (let ((__tmp18630 + (let ((__tmp18631 + (let ((__tmp18632 (let () (declare (not safe)) - (##car _code18339_)))) + (##car _code18516_)))) (declare (not safe)) - (##sourcify __tmp18455 _src18333_)))) + (##sourcify __tmp18632 _src18510_)))) (declare (not safe)) - (##source-code __tmp18454)))) + (##source-code __tmp18631)))) (declare (not safe)) - (##memq __tmp18453 '(##lambda lambda)))) + (##memq __tmp18630 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src18333_ _src18333_ '-3)) - (let ((__tmp18450 - (let ((__tmp18451 - (let ((__tmp18452 + (##shape _src18510_ _src18510_ '-3)) + (let ((__tmp18627 + (let ((__tmp18628 + (let ((__tmp18629 (let () (declare (not safe)) - (##cadr _code18339_)))) + (##cadr _code18516_)))) (declare (not safe)) - (##sourcify __tmp18452 _src18333_)))) + (##sourcify __tmp18629 _src18510_)))) (declare (not safe)) - (##form-size __tmp18451)))) + (##form-size __tmp18628)))) (declare (not safe)) - (_make-descr18337_ __tmp18450))) - (let () (declare (not safe)) (_fail!18336_)))))))) + (_make-descr18514_ __tmp18627))) + (let () (declare (not safe)) (_fail!18513_)))))))) (define __source->syntax - (lambda (_src18327_) - (let _recur18329_ ((_e18331_ _src18327_)) - (if (let () (declare (not safe)) (##source? _e18331_)) - (let ((__tmp18463 - (let ((__tmp18464 + (lambda (_src18504_) + (let _recur18506_ ((_e18508_ _src18504_)) + (if (let () (declare (not safe)) (##source? _e18508_)) + (let ((__tmp18640 + (let ((__tmp18641 (let () (declare (not safe)) - (##source-code _e18331_)))) + (##source-code _e18508_)))) (declare (not safe)) - (_recur18329_ __tmp18464))) - (__tmp18462 - (let () (declare (not safe)) (##source-locat _e18331_)))) + (_recur18506_ __tmp18641))) + (__tmp18639 + (let () (declare (not safe)) (##source-locat _e18508_)))) (declare (not safe)) - (##structure AST::t __tmp18463 __tmp18462)) - (if (let () (declare (not safe)) (pair? _e18331_)) - (let ((__tmp18460 - (let ((__tmp18461 + (##structure AST::t __tmp18640 __tmp18639)) + (if (let () (declare (not safe)) (pair? _e18508_)) + (let ((__tmp18637 + (let ((__tmp18638 (let () (declare (not safe)) - (##car _e18331_)))) + (##car _e18508_)))) (declare (not safe)) - (_recur18329_ __tmp18461))) - (__tmp18458 - (let ((__tmp18459 + (_recur18506_ __tmp18638))) + (__tmp18635 + (let ((__tmp18636 (let () (declare (not safe)) - (##cdr _e18331_)))) + (##cdr _e18508_)))) (declare (not safe)) - (_recur18329_ __tmp18459)))) + (_recur18506_ __tmp18636)))) (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 __tmp18637 __tmp18635)) + (if (let () (declare (not safe)) (vector? _e18508_)) + (vector-map _recur18506_ _e18508_) + (if (let () (declare (not safe)) (box? _e18508_)) + (let ((__tmp18633 + (let ((__tmp18634 (unbox _e18508_))) (declare (not safe)) - (_recur18329_ __tmp18457)))) + (_recur18506_ __tmp18634)))) (declare (not safe)) - (box __tmp18456)) - _e18331_))))))) + (box __tmp18633)) + _e18508_))))))) (define __compile-top-source - (lambda (_stx18325_) - (let ((__tmp18465 - (let () (declare (not safe)) (__compile-top _stx18325_)))) + (lambda (_stx18502_) + (let ((__tmp18642 + (let () (declare (not safe)) (__compile-top _stx18502_)))) (declare (not safe)) - (cons '__noexpand: __tmp18465)))) + (cons '__noexpand: __tmp18642)))) (define __compile-top - (lambda (_stx18323_) - (let ((__tmp18466 (gx#core-compile-top-syntax _stx18323_))) + (lambda (_stx18500_) + (let ((__tmp18643 (gx#core-compile-top-syntax _stx18500_))) (declare (not safe)) - (__compile __tmp18466)))) + (__compile __tmp18643)))) (define __eval-import - (lambda (_in18304_) - (letrec* ((_mods18306_ + (lambda (_in18481_) + (letrec* ((_mods18483_ (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_)))) + (_import118484_ + (lambda (_in18491_ _phi18492_) + (if (gx#module-import? _in18491_) + (let ((_iphi18494_ + (fx+ _phi18492_ + (gx#module-import-phi _in18491_)))) (if (let () (declare (not safe)) - (fxzero? _iphi18317_)) - (let ((__tmp18468 + (fxzero? _iphi18494_)) + (let ((__tmp18645 (gx#module-export-context - (gx#module-import-source _in18314_)))) + (gx#module-import-source _in18491_)))) (declare (not safe)) - (_eval118308_ __tmp18468)) + (_eval118485_ __tmp18645)) '#!void)) - (if (gx#module-context? _in18314_) + (if (gx#module-context? _in18491_) (if (let () (declare (not safe)) - (fxzero? _phi18315_)) + (fxzero? _phi18492_)) (let () (declare (not safe)) - (_eval118308_ _in18314_)) + (_eval118485_ _in18491_)) '#!void) - (if (gx#import-set? _in18314_) - (let ((_iphi18319_ - (fx+ _phi18315_ - (gx#import-set-phi _in18314_)))) + (if (gx#import-set? _in18491_) + (let ((_iphi18496_ + (fx+ _phi18492_ + (gx#import-set-phi _in18491_)))) (if (let () (declare (not safe)) - (fxzero? _iphi18319_)) - (let ((__tmp18467 + (fxzero? _iphi18496_)) + (let ((__tmp18644 (gx#import-set-source - _in18314_))) + _in18491_))) (declare (not safe)) - (_eval118308_ __tmp18467)) - (if (fxpositive? _iphi18319_) + (_eval118485_ __tmp18644)) + (if (fxpositive? _iphi18496_) (for-each - (lambda (_in18321_) + (lambda (_in18498_) (let () (declare (not safe)) - (_import118307_ - _in18321_ - _iphi18319_))) + (_import118484_ + _in18498_ + _iphi18496_))) (gx#module-context-import - (gx#import-set-source _in18314_))) + (gx#import-set-source _in18491_))) '#!void))) - (error '"Unexpected import" _in18314_)))))) - (_eval118308_ - (lambda (_ctx18312_) + (error '"Unexpected import" _in18491_)))))) + (_eval118485_ + (lambda (_ctx18489_) (if (let () (declare (not safe)) - (table-ref _mods18306_ _ctx18312_ '#f)) + (table-ref _mods18483_ _ctx18489_ '#f)) '#!void (begin (let () (declare (not safe)) - (table-set! _mods18306_ _ctx18312_ '#t)) - (__eval-module _ctx18312_)))))) - (if (let () (declare (not safe)) (pair? _in18304_)) + (table-set! _mods18483_ _ctx18489_ '#t)) + (__eval-module _ctx18489_)))))) + (if (let () (declare (not safe)) (pair? _in18481_)) (for-each - (lambda (_in18310_) - (let () (declare (not safe)) (_import118307_ _in18310_ '0))) - _in18304_) - (let () (declare (not safe)) (_import118307_ _in18304_ '0)))))) + (lambda (_in18487_) + (let () (declare (not safe)) (_import118484_ _in18487_ '0))) + _in18481_) + (let () (declare (not safe)) (_import118484_ _in18481_ '0)))))) (define __eval-module - (lambda (_obj18297_) - (let* ((_key18299_ - (if (gx#module-context? _obj18297_) - (gx#module-context-path _obj18297_) - _obj18297_)) - (_$e18301_ + (lambda (_obj18474_) + (let* ((_key18476_ + (if (gx#module-context? _obj18474_) + (gx#module-context-path _obj18474_) + _obj18474_)) + (_$e18478_ (let () (declare (not safe)) - (table-ref __*modules* _key18299_ '#f)))) - (if _$e18301_ (values _$e18301_) (gx#core-eval-module _obj18297_))))) + (table-ref __*modules* _key18476_ '#f)))) + (if _$e18478_ (values _$e18478_) (gx#core-eval-module _obj18474_))))) (define gerbil-runtime-init! - (lambda (_builtin-modules18232_) + (lambda (_builtin-modules18409_) (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* ((_home18411_ (let () (declare (not safe)) (gerbil-home))) + (_libdir18413_ (path-expand '"lib" _home18411_)) + (_userpath18415_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath18249_ + (_loadpath18417_ (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 _libdir18413_ '())) + (let ((__tmp18646 + (let () + (declare (not safe)) + (cons _libdir18413_ '())))) + (declare (not safe)) + (cons _userpath18415_ __tmp18646)))) + (_loadpath18426_ + (let ((_$e18419_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e18419_ + ((lambda (_envvar18422_) + (append (let ((__tmp18648 + (lambda (_x18424_) + (let ((__tmp18649 + (let () + (declare (not safe)) + (string-empty? + _x18424_)))) + (declare (not safe)) + (not __tmp18649)))) + (__tmp18647 + (let () + (declare (not safe)) + (string-split + _envvar18422_ + '#\:)))) + (declare (not safe)) + (filter __tmp18648 __tmp18647)) + _loadpath18417_)) + _$e18419_) + _loadpath18417_)))) + (current-module-library-path _loadpath18426_)) + (let* ((_registry-entry18431_ + (lambda (_m18429_) (let () (declare (not safe)) - (cons _m18252_ 'builtin)))) - (_module-registry18294_ - (let _lp18256_ ((_rest18258_ _builtin-modules18232_) - (_registry18259_ '())) - (let* ((_rest1826018268_ _rest18258_) - (_else1826218276_ + (cons _m18429_ 'builtin)))) + (_module-registry18471_ + (let _lp18433_ ((_rest18435_ _builtin-modules18409_) + (_registry18436_ '())) + (let* ((_rest1843718445_ _rest18435_) + (_else1843918453_ (lambda () (let () (declare (not safe)) - (list->table _registry18259_)))) - (_K1826418282_ - (lambda (_rest18279_ _mod18280_) - (let ((__tmp18472 - (let ((__tmp18476 - (let ((__tmp18477 + (list->table _registry18436_)))) + (_K1844118459_ + (lambda (_rest18456_ _mod18457_) + (let ((__tmp18650 + (let ((__tmp18654 + (let ((__tmp18655 (string-append - _mod18280_ + _mod18457_ '"__0"))) (declare (not safe)) - (_registry-entry18254_ - __tmp18477))) - (__tmp18473 - (let ((__tmp18474 - (let ((__tmp18475 + (_registry-entry18431_ + __tmp18655))) + (__tmp18651 + (let ((__tmp18652 + (let ((__tmp18653 (string-append - _mod18280_ + _mod18457_ '"__rt"))) (declare (not safe)) - (_registry-entry18254_ - __tmp18475)))) + (_registry-entry18431_ + __tmp18653)))) (declare (not safe)) - (cons __tmp18474 - _registry18259_)))) + (cons __tmp18652 + _registry18436_)))) (declare (not safe)) - (cons __tmp18476 __tmp18473)))) + (cons __tmp18654 __tmp18651)))) (declare (not safe)) - (_lp18256_ _rest18279_ __tmp18472))))) + (_lp18433_ _rest18456_ __tmp18650))))) (if (let () (declare (not safe)) - (##pair? _rest1826018268_)) - (let ((_hd1826518285_ + (##pair? _rest1843718445_)) + (let ((_hd1844218462_ (let () (declare (not safe)) - (##car _rest1826018268_))) - (_tl1826618287_ + (##car _rest1843718445_))) + (_tl1844318464_ (let () (declare (not safe)) - (##cdr _rest1826018268_)))) - (let* ((_mod18290_ _hd1826518285_) - (_rest18292_ _tl1826618287_)) + (##cdr _rest1843718445_)))) + (let* ((_mod18467_ _hd1844218462_) + (_rest18469_ _tl1844318464_)) (declare (not safe)) - (_K1826418282_ _rest18292_ _mod18290_))) + (_K1844118459_ _rest18469_ _mod18467_))) (let () (declare (not safe)) - (_else1826218276_))))))) - (current-module-registry _module-registry18294_)) + (_else1843918453_))))))) + (current-module-registry _module-registry18471_)) (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..4d9a91e983 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 1698333192) (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 (_modpath9137_ _reload?9138_) + (let ((_$e9140_ + (if (let () (declare (not safe)) (not _reload?9138_)) + (let ((__tmp9159 (current-module-registry))) (declare (not safe)) - (table-ref __tmp8982 _modpath8960_ '#f)) + (table-ref __tmp9159 _modpath9137_ '#f)) '#f))) - (if _$e8963_ - _$e8963_ - (let ((_$e8966_ + (if _$e9140_ + _$e9140_ + (let ((_$e9143_ (let () (declare (not safe)) - (find-library-module _modpath8960_)))) - (if _$e8966_ - ((lambda (_path8969_) - (let ((_lpath8971_ (load _path8969_))) - (let ((__tmp8983 (current-module-registry))) + (find-library-module _modpath9137_)))) + (if _$e9143_ + ((lambda (_path9146_) + (let ((_lpath9148_ (load _path9146_))) + (let ((__tmp9160 (current-module-registry))) (declare (not safe)) - (table-set! __tmp8983 _modpath8960_ _lpath8971_)) - _lpath8971_)) - _$e8966_) - (error '"module not found" _modpath8960_))))))) + (table-set! __tmp9160 _modpath9137_ _lpath9148_)) + _lpath9148_)) + _$e9143_) + (error '"module not found" _modpath9137_))))))) (define load-module__0 - (lambda (_modpath8976_) - (let ((_reload?8978_ (__reload-module))) + (lambda (_modpath9153_) + (let ((_reload?9155_ (__reload-module))) (declare (not safe)) - (load-module__% _modpath8976_ _reload?8978_)))) + (load-module__% _modpath9153_ _reload?9155_)))) (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 _g9162_ + (let ((_g9161_ (let () (declare (not safe)) (##length _g9162_)))) + (cond ((let () (declare (not safe)) (##fx= _g9161_ 1)) + (apply (lambda (_modpath9153_) (let () (declare (not safe)) - (load-module__0 _modpath8976_))) - _g8985_)) - ((let () (declare (not safe)) (##fx= _g8984_ 2)) - (apply (lambda (_modpath8980_ _reload?8981_) + (load-module__0 _modpath9153_))) + _g9162_)) + ((let () (declare (not safe)) (##fx= _g9161_ 2)) + (apply (lambda (_modpath9157_ _reload?9158_) (let () (declare (not safe)) - (load-module__% _modpath8980_ _reload?8981_))) - _g8985_)) + (load-module__% _modpath9157_ _reload?9158_))) + _g9162_)) (else (##raise-wrong-number-of-arguments-exception load-module - _g8985_)))))) + _g9162_)))))) (define find-library-module - (lambda (_modpath8894_) - (letrec ((_find-compiled-file8896_ - (lambda (_npath8948_) - (let ((_basepath8950_ + (lambda (_modpath9071_) + (letrec ((_find-compiled-file9073_ + (lambda (_npath9125_) + (let ((_basepath9127_ (let () (declare (not safe)) - (##string-append _npath8948_ '".o")))) - (let _lp8952_ ((_current8954_ '#f) (_n8955_ '1)) - (let ((_next8957_ - (let ((__tmp8986 (number->string _n8955_))) + (##string-append _npath9125_ '".o")))) + (let _lp9129_ ((_current9131_ '#f) (_n9132_ '1)) + (let ((_next9134_ + (let ((__tmp9163 (number->string _n9132_))) (declare (not safe)) - (##string-append _basepath8950_ __tmp8986)))) + (##string-append _basepath9127_ __tmp9163)))) (if (let () (declare (not safe)) - (##file-exists? _next8957_)) - (let ((__tmp8987 + (##file-exists? _next9134_)) + (let ((__tmp9164 (let () (declare (not safe)) - (##fx+ _n8955_ '1)))) + (##fx+ _n9132_ '1)))) (declare (not safe)) - (_lp8952_ _next8957_ __tmp8987)) - _current8954_)))))) - (_find-source-file8897_ - (lambda (_npath8944_) - (let ((_spath8946_ (string-append _npath8944_ '".scm"))) + (_lp9129_ _next9134_ __tmp9164)) + _current9131_)))))) + (_find-source-file9074_ + (lambda (_npath9121_) + (let ((_spath9123_ (string-append _npath9121_ '".scm"))) (if (let () (declare (not safe)) - (##file-exists? _spath8946_)) - _spath8946_ + (##file-exists? _spath9123_)) + _spath9123_ '#f))))) - (let _lp8899_ ((_rest8901_ (current-module-library-path))) - (let* ((_rest89028910_ _rest8901_) - (_else89048918_ (lambda () '#f)) - (_K89068932_ - (lambda (_rest8921_ _dir8922_) - (let* ((_npath8924_ + (let _lp9076_ ((_rest9078_ (current-module-library-path))) + (let* ((_rest90799087_ _rest9078_) + (_else90819095_ (lambda () '#f)) + (_K90839109_ + (lambda (_rest9098_ _dir9099_) + (let* ((_npath9101_ (path-expand - _modpath8894_ - (path-expand _dir8922_))) - (_$e8926_ + _modpath9071_ + (path-expand _dir9099_))) + (_$e9103_ (let () (declare (not safe)) - (_find-compiled-file8896_ _npath8924_)))) - (if _$e8926_ - (path-normalize _$e8926_) - (let ((_$e8929_ + (_find-compiled-file9073_ _npath9101_)))) + (if _$e9103_ + (path-normalize _$e9103_) + (let ((_$e9106_ (let () (declare (not safe)) - (_find-source-file8897_ _npath8924_)))) - (if _$e8929_ - (path-normalize _$e8929_) + (_find-source-file9074_ _npath9101_)))) + (if _$e9106_ + (path-normalize _$e9106_) (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_)) + (_lp9076_ _rest9098_))))))))) + (if (let () (declare (not safe)) (##pair? _rest90799087_)) + (let ((_hd90849112_ + (let () (declare (not safe)) (##car _rest90799087_))) + (_tl90859114_ + (let () (declare (not safe)) (##cdr _rest90799087_)))) + (let* ((_dir9117_ _hd90849112_) (_rest9119_ _tl90859114_)) (declare (not safe)) - (_K89068932_ _rest8942_ _dir8940_))) - (let () (declare (not safe)) (_else89048918_)))))))))) + (_K90839109_ _rest9119_ _dir9117_))) + (let () (declare (not safe)) (_else90819095_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop__0.scm b/src/bootstrap/gerbil/runtime/mop__0.scm index b50453b89e..40b9420cf3 100644 --- a/src/bootstrap/gerbil/runtime/mop__0.scm +++ b/src/bootstrap/gerbil/runtime/mop__0.scm @@ -1,2506 +1,2518 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1697117311) + (define gerbil/runtime/mop::timestamp 1698333192) (begin (define type-descriptor? - (lambda (_klass10721_) - (if (let () (declare (not safe)) (##type? _klass10721_)) - (let ((__tmp10731 + (lambda (_klass10898_) + (if (let () (declare (not safe)) (##type? _klass10898_)) + (let ((__tmp10908 (let () (declare (not safe)) - (##structure-length _klass10721_)))) + (##structure-length _klass10898_)))) (declare (not safe)) - (eq? __tmp10731 '12)) + (eq? __tmp10908 '12)) '#f))) (define struct-type? - (lambda (_klass10719_) - (if (let () (declare (not safe)) (type-descriptor? _klass10719_)) - (let ((__tmp10732 + (lambda (_klass10896_) + (if (let () (declare (not safe)) (type-descriptor? _klass10896_)) + (let ((__tmp10909 (let () (declare (not safe)) - (type-descriptor-mixin _klass10719_)))) + (type-descriptor-mixin _klass10896_)))) (declare (not safe)) - (not __tmp10732)) + (not __tmp10909)) '#f))) (define class-type? - (lambda (_klass10717_) - (if (let () (declare (not safe)) (type-descriptor? _klass10717_)) + (lambda (_klass10894_) + (if (let () (declare (not safe)) (type-descriptor? _klass10894_)) (if (let () (declare (not safe)) - (type-descriptor-mixin _klass10717_)) + (type-descriptor-mixin _klass10894_)) '#t '#f) '#f))) (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-id10790_ + _type-name10791_ + _type-super10792_ + _rtd-mixin10793_ + _rtd-fields10794_ + _rtd-plist10795_ + _rtd-ctor10796_ + _rtd-slots10797_ + _rtd-methods10798_) + (letrec ((_put-props!10800_ + (lambda (_ht10874_ _key10875_) + (letrec ((_put-plist!10877_ + (lambda (_ht10883_ _key10884_ _plist10885_) + (let ((_$e10887_ (let () (declare (not safe)) - (assgetq _key10707_ _plist10708_)))) - (if _$e10710_ - ((lambda (_lst10713_) + (assgetq _key10884_ _plist10885_)))) + (if _$e10887_ + ((lambda (_lst10890_) (for-each - (lambda (_id10715_) + (lambda (_id10892_) (let () (declare (not safe)) (table-set! - _ht10706_ - _id10715_ + _ht10883_ + _id10892_ '#t))) - _lst10713_)) - _$e10710_) + _lst10890_)) + _$e10887_) '#!void))))) (let () (declare (not safe)) - (_put-plist!10700_ - _ht10697_ - _key10698_ - _rtd-plist10618_)) - (if _rtd-mixin10616_ + (_put-plist!10877_ + _ht10874_ + _key10875_ + _rtd-plist10795_)) + (if _rtd-mixin10793_ (for-each - (lambda (_klass10702_) + (lambda (_klass10879_) (if (let () (declare (not safe)) - (type-descriptor-mixin _klass10702_)) - (let ((_plist10704_ + (type-descriptor-mixin _klass10879_)) + (let ((_plist10881_ (let () (declare (not safe)) (type-descriptor-plist - _klass10702_)))) + _klass10879_)))) (if (let () (declare (not safe)) - (assgetq 'transparent: _plist10704_)) + (assgetq 'transparent: _plist10881_)) (let () (declare (not safe)) - (_put-plist!10700_ - _ht10697_ + (_put-plist!10877_ + _ht10874_ 'slots: - _plist10704_)) + _plist10881_)) (let () (declare (not safe)) - (_put-plist!10700_ - _ht10697_ - _key10698_ - _plist10704_)))) + (_put-plist!10877_ + _ht10874_ + _key10875_ + _plist10881_)))) '#!void)) - _rtd-mixin10616_) + _rtd-mixin10793_) '#!void))))) - (let* ((_transparent?10625_ + (let* ((_transparent?10802_ (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_)) + (assgetq 'transparent: _rtd-plist10795_))) + (_field-names10807_ + (let ((_$e10804_ (assq 'fields: _rtd-plist10795_))) + (if _$e10804_ (cdr _$e10804_) '()))) + (_field-names10814_ + (let ((_$e10809_ (assq 'slots: _rtd-plist10795_))) + (if _$e10809_ + ((lambda (_slots10812_) + (append _field-names10807_ (cdr _slots10812_))) + _$e10809_) + _field-names10807_))) + (_g10910_ + (if (fx= _rtd-fields10794_ (length _field-names10814_)) '#!void (error '"Bad field descriptor; length mismatch" - _type-id10613_ - _rtd-fields10617_ - _field-names10637_))) - (_canonical-fields10640_ - (if _type-super10615_ + _type-id10790_ + _rtd-fields10794_ + _field-names10814_))) + (_canonical-fields10817_ + (if _type-super10792_ (list-tail - _field-names10637_ + _field-names10814_ (let () (declare (not safe)) - (type-descriptor-fields _type-super10615_))) - _field-names10637_)) - (_printable10644_ - (if _transparent?10625_ + (type-descriptor-fields _type-super10792_))) + _field-names10814_)) + (_printable10821_ + (if _transparent?10802_ '#f - (let ((_ht10642_ + (let ((_ht10819_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (_put-props!10623_ _ht10642_ 'print:)) - _ht10642_))) - (_equality10648_ - (if _transparent?10625_ + (_put-props!10800_ _ht10819_ 'print:)) + _ht10819_))) + (_equality10825_ + (if _transparent?10802_ '#f - (let ((_ht10646_ + (let ((_ht10823_ (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_ + (_put-props!10800_ _ht10823_ 'equal:)) + _ht10823_))) + (_field-info10866_ + (let _recur10827_ ((_rest10829_ _canonical-fields10817_)) + (let* ((_rest1083010838_ _rest10829_) + (_else1083210846_ (lambda () '())) + (_K1083410854_ + (lambda (_rest10849_ _id10850_) + (let* ((_flags10852_ + (if _transparent?10802_ '0 - (let ((__tmp10735 + (let ((__tmp10912 (if (let () (declare (not safe)) (table-ref - _printable10644_ - _id10673_ + _printable10821_ + _id10850_ '#f)) '0 '1)) - (__tmp10734 + (__tmp10911 (if (let () (declare (not safe)) (table-ref - _equality10648_ - _id10673_ + _equality10825_ + _id10850_ '#f)) '0 '4))) (declare (not safe)) - (##fxior __tmp10735 __tmp10734)))) - (__tmp10736 - (let ((__tmp10737 - (let ((__tmp10738 + (##fxior __tmp10912 __tmp10911)))) + (__tmp10913 + (let ((__tmp10914 + (let ((__tmp10915 (let () (declare (not safe)) - (_recur10650_ - _rest10672_)))) + (_recur10827_ + _rest10849_)))) (declare (not safe)) - (cons '#f __tmp10738)))) + (cons '#f __tmp10915)))) (declare (not safe)) - (cons _flags10675_ __tmp10737)))) + (cons _flags10852_ __tmp10914)))) (declare (not safe)) - (cons _id10673_ __tmp10736))))) + (cons _id10850_ __tmp10913))))) (if (let () (declare (not safe)) - (##pair? _rest1065310661_)) - (let ((_hd1065810680_ + (##pair? _rest1083010838_)) + (let ((_hd1083510857_ (let () (declare (not safe)) - (##car _rest1065310661_))) - (_tl1065910682_ + (##car _rest1083010838_))) + (_tl1083610859_ (let () (declare (not safe)) - (##cdr _rest1065310661_)))) - (let* ((_id10685_ _hd1065810680_) - (_rest10687_ _tl1065910682_)) + (##cdr _rest1083010838_)))) + (let* ((_id10862_ _hd1083510857_) + (_rest10864_ _tl1083610859_)) (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 + (_K1083410854_ _rest10864_ _id10862_))) + (let () (declare (not safe)) (_else1083210846_)))))) + (_opaque?10871_ + (if (or _transparent?10802_ (assq 'equal: _rtd-plist10795_)) + (if _type-super10792_ + (let ((__tmp10916 + (let ((__tmp10917 (let () (declare (not safe)) - (##type-flags _type-super10615_)))) + (##type-flags _type-super10792_)))) (declare (not safe)) - (##fxand __tmp10740 '1)))) + (##fxand __tmp10917 '1)))) (declare (not safe)) - (##fx= __tmp10739 '1)) + (##fx= __tmp10916 '1)) '#f) '#t))) - (let ((__tmp10742 (+ '24 (if _opaque?10694_ '1 '0))) - (__tmp10741 (list->vector _field-info10689_))) + (let ((__tmp10919 (+ '24 (if _opaque?10871_ '1 '0))) + (__tmp10918 (list->vector _field-info10866_))) (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_)))))) + _type-id10790_ + _type-name10791_ + __tmp10919 + _type-super10792_ + __tmp10918 + _rtd-mixin10793_ + _rtd-fields10794_ + _rtd-plist10795_ + _rtd-ctor10796_ + _rtd-slots10797_ + _rtd-methods10798_)))))) (define make-struct-type-descriptor - (lambda (_id10606_ - _name10607_ - _super10608_ - _fields10609_ - _plist10610_ - _ctor10611_) + (lambda (_id10783_ + _name10784_ + _super10785_ + _fields10786_ + _plist10787_ + _ctor10788_) (let () (declare (not safe)) (make-type-descriptor - _id10606_ - _name10607_ - _super10608_ + _id10783_ + _name10784_ + _super10785_ '#f - _fields10609_ - _plist10610_ - _ctor10611_ + _fields10786_ + _plist10787_ + _ctor10788_ '#f '#f)))) (define make-class-type-descriptor - (lambda (_id10597_ - _name10598_ - _super10599_ - _mixin10600_ - _fields10601_ - _plist10602_ - _ctor10603_ - _slots10604_) + (lambda (_id10774_ + _name10775_ + _super10776_ + _mixin10777_ + _fields10778_ + _plist10779_ + _ctor10780_ + _slots10781_) (let () (declare (not safe)) (make-type-descriptor - _id10597_ - _name10598_ - _super10599_ - _mixin10600_ - _fields10601_ - _plist10602_ - _ctor10603_ - _slots10604_ + _id10774_ + _name10775_ + _super10776_ + _mixin10777_ + _fields10778_ + _plist10779_ + _ctor10780_ + _slots10781_ '#f)))) (define type-descriptor-mixin - (lambda (_klass10595_) - (let () (declare (not safe)) (##vector-ref _klass10595_ '6)))) + (lambda (_klass10772_) + (let () (declare (not safe)) (##vector-ref _klass10772_ '6)))) (define type-descriptor-fields - (lambda (_klass10593_) - (let () (declare (not safe)) (##vector-ref _klass10593_ '7)))) + (lambda (_klass10770_) + (let () (declare (not safe)) (##vector-ref _klass10770_ '7)))) (define type-descriptor-plist - (lambda (_klass10591_) - (let () (declare (not safe)) (##vector-ref _klass10591_ '8)))) + (lambda (_klass10768_) + (let () (declare (not safe)) (##vector-ref _klass10768_ '8)))) (define type-descriptor-ctor - (lambda (_klass10589_) - (let () (declare (not safe)) (##vector-ref _klass10589_ '9)))) + (lambda (_klass10766_) + (let () (declare (not safe)) (##vector-ref _klass10766_ '9)))) (define type-descriptor-slots - (lambda (_klass10587_) - (let () (declare (not safe)) (##vector-ref _klass10587_ '10)))) + (lambda (_klass10764_) + (let () (declare (not safe)) (##vector-ref _klass10764_ '10)))) (define type-descriptor-methods - (lambda (_klass10585_) - (let () (declare (not safe)) (##vector-ref _klass10585_ '11)))) + (lambda (_klass10762_) + (let () (declare (not safe)) (##vector-ref _klass10762_ '11)))) (define type-descriptor-methods-set! - (lambda (_klass10582_ _ht10583_) + (lambda (_klass10759_ _ht10760_) (let () (declare (not safe)) - (##vector-set! _klass10582_ '11 _ht10583_)))) + (##vector-set! _klass10759_ '11 _ht10760_)))) (define type-descriptor-sealed? - (lambda (_klass10580_) - (let ((__tmp10743 - (let () (declare (not safe)) (##type-flags _klass10580_)))) + (lambda (_klass10757_) + (let ((__tmp10920 + (let () (declare (not safe)) (##type-flags _klass10757_)))) (declare (not safe)) - (##fxbit-set? '20 __tmp10743)))) + (##fxbit-set? '20 __tmp10920)))) (define type-descriptor-seal! - (lambda (_klass10578_) - (let ((__tmp10744 - (let ((__tmp10746 + (lambda (_klass10755_) + (let ((__tmp10921 + (let ((__tmp10923 (let () (declare (not safe)) (##fxarithmetic-shift '1 '20))) - (__tmp10745 + (__tmp10922 (let () (declare (not safe)) - (##type-flags _klass10578_)))) + (##type-flags _klass10755_)))) (declare (not safe)) - (##fxior __tmp10746 __tmp10745)))) + (##fxior __tmp10923 __tmp10922)))) (declare (not safe)) - (##vector-set! _klass10578_ '3 __tmp10744)))) + (##vector-set! _klass10755_ '3 __tmp10921)))) (define make-struct-type__% - (lambda (_id10527_ - _super10528_ - _fields10529_ - _name10530_ - _plist10531_ - _ctor10532_ - _field-names10533_) - (if (and _super10528_ - (let ((__tmp10747 + (lambda (_id10704_ + _super10705_ + _fields10706_ + _name10707_ + _plist10708_ + _ctor10709_ + _field-names10710_) + (if (and _super10705_ + (let ((__tmp10924 (let () (declare (not safe)) - (struct-type? _super10528_)))) + (struct-type? _super10705_)))) (declare (not safe)) - (not __tmp10747))) - (error '"Illegal super type; not a struct-type" _super10528_) + (not __tmp10924))) + (error '"Illegal super type; not a struct-type" _super10705_) '#!void) - (if (and _super10528_ - (let ((__tmp10748 + (if (and _super10705_ + (let ((__tmp10925 (let () (declare (not safe)) - (type-descriptor-plist _super10528_)))) + (type-descriptor-plist _super10705_)))) (declare (not safe)) - (assgetq 'final: __tmp10748))) - (error '"Cannot extend final struct" _super10528_) + (assgetq 'final: __tmp10925))) + (error '"Cannot extend final struct" _super10705_) '#!void) - (let* ((_super-fields10535_ - (if _super10528_ + (let* ((_super-fields10712_ + (if _super10705_ (let () (declare (not safe)) - (type-descriptor-fields _super10528_)) + (type-descriptor-fields _super10705_)) '0)) - (_std-fields10537_ (fx+ _fields10529_ _super-fields10535_)) - (_std-field-names10547_ - (let* ((_super-fields10539_ - (if _super10528_ - (let ((__tmp10749 + (_std-fields10714_ (fx+ _fields10706_ _super-fields10712_)) + (_std-field-names10724_ + (let* ((_super-fields10716_ + (if _super10705_ + (let ((__tmp10926 (let () (declare (not safe)) - (type-descriptor-plist _super10528_)))) + (type-descriptor-plist _super10705_)))) (declare (not safe)) - (assgetq 'fields: __tmp10749)) + (assgetq 'fields: __tmp10926)) '())) - (_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_))) + (_field-names10721_ + (let ((_$e10718_ _field-names10710_)) + (if _$e10718_ + _$e10718_ + (make-list _fields10706_ ':))))) + (append _super-fields10716_ _field-names10721_))) + (_g10928_ + (if (let ((__tmp10927 (length _std-field-names10724_))) (declare (not safe)) - (##fx= _std-fields10537_ __tmp10750)) + (##fx= _std-fields10714_ __tmp10927)) '#!void (error '"Bad field specification; length mismatch" - _id10527_ - _std-fields10537_ - _std-field-names10547_))) - (_std-plist10550_ - (let ((__tmp10752 + _id10704_ + _std-fields10714_ + _std-field-names10724_))) + (_std-plist10727_ + (let ((__tmp10929 (let () (declare (not safe)) - (cons 'fields: _std-field-names10547_)))) + (cons 'fields: _std-field-names10724_)))) (declare (not safe)) - (cons __tmp10752 _plist10531_))) - (_ctor10555_ - (let ((_$e10552_ _ctor10532_)) - (if _$e10552_ - _$e10552_ - (if _super10528_ + (cons __tmp10929 _plist10708_))) + (_ctor10732_ + (let ((_$e10729_ _ctor10709_)) + (if _$e10729_ + _$e10729_ + (if _super10705_ (let () (declare (not safe)) - (type-descriptor-ctor _super10528_)) + (type-descriptor-ctor _super10705_)) '#f))))) (let () (declare (not safe)) (make-struct-type-descriptor - _id10527_ - _name10530_ - _super10528_ - _std-fields10537_ - _std-plist10550_ - _ctor10555_))))) + _id10704_ + _name10707_ + _super10705_ + _std-fields10714_ + _std-plist10727_ + _ctor10732_))))) (define make-struct-type__0 - (lambda (_id10561_ - _super10562_ - _fields10563_ - _name10564_ - _plist10565_ - _ctor10566_) - (let ((_field-names10568_ '#f)) + (lambda (_id10738_ + _super10739_ + _fields10740_ + _name10741_ + _plist10742_ + _ctor10743_) + (let ((_field-names10745_ '#f)) (declare (not safe)) (make-struct-type__% - _id10561_ - _super10562_ - _fields10563_ - _name10564_ - _plist10565_ - _ctor10566_ - _field-names10568_)))) + _id10738_ + _super10739_ + _fields10740_ + _name10741_ + _plist10742_ + _ctor10743_ + _field-names10745_)))) (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 _g10931_ + (let ((_g10930_ (let () (declare (not safe)) (##length _g10931_)))) + (cond ((let () (declare (not safe)) (##fx= _g10930_ 6)) + (apply (lambda (_id10738_ + _super10739_ + _fields10740_ + _name10741_ + _plist10742_ + _ctor10743_) (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_) + _id10738_ + _super10739_ + _fields10740_ + _name10741_ + _plist10742_ + _ctor10743_))) + _g10931_)) + ((let () (declare (not safe)) (##fx= _g10930_ 7)) + (apply (lambda (_id10747_ + _super10748_ + _fields10749_ + _name10750_ + _plist10751_ + _ctor10752_ + _field-names10753_) (let () (declare (not safe)) (make-struct-type__% - _id10570_ - _super10571_ - _fields10572_ - _name10573_ - _plist10574_ - _ctor10575_ - _field-names10576_))) - _g10754_)) + _id10747_ + _super10748_ + _fields10749_ + _name10750_ + _plist10751_ + _ctor10752_ + _field-names10753_))) + _g10931_)) (else (##raise-wrong-number-of-arguments-exception make-struct-type - _g10754_)))))) + _g10931_)))))) (define make-struct-predicate - (lambda (_klass10518_) - (let ((_tid10520_ - (let () (declare (not safe)) (##type-id _klass10518_)))) - (if (let ((__tmp10755 + (lambda (_klass10695_) + (let ((_tid10697_ + (let () (declare (not safe)) (##type-id _klass10695_)))) + (if (let ((__tmp10932 (let () (declare (not safe)) - (type-descriptor-plist _klass10518_)))) + (type-descriptor-plist _klass10695_)))) (declare (not safe)) - (assgetq 'final: __tmp10755)) - (lambda (_obj10522_) + (assgetq 'final: __tmp10932)) + (lambda (_obj10699_) (let () (declare (not safe)) - (##structure-direct-instance-of? _obj10522_ _tid10520_))) - (lambda (_obj10524_) + (##structure-direct-instance-of? _obj10699_ _tid10697_))) + (lambda (_obj10701_) (let () (declare (not safe)) - (##structure-instance-of? _obj10524_ _tid10520_))))))) + (##structure-instance-of? _obj10701_ _tid10697_))))))) (define make-struct-field-accessor - (lambda (_klass10511_ _field10512_) - (let ((_off10514_ - (let ((__tmp10756 + (lambda (_klass10688_ _field10689_) + (let ((_off10691_ + (let ((__tmp10933 (let () (declare (not safe)) - (struct-field-offset _klass10511_ _field10512_)))) + (struct-field-offset _klass10688_ _field10689_)))) (declare (not safe)) - (##fx+ __tmp10756 '1)))) - (lambda (_obj10516_) + (##fx+ __tmp10933 '1)))) + (lambda (_obj10693_) (let () (declare (not safe)) - (##structure-ref _obj10516_ _off10514_ _klass10511_ '#f)))))) + (##structure-ref _obj10693_ _off10691_ _klass10688_ '#f)))))) (define make-struct-field-mutator - (lambda (_klass10503_ _field10504_) - (let ((_off10506_ - (let ((__tmp10757 + (lambda (_klass10680_ _field10681_) + (let ((_off10683_ + (let ((__tmp10934 (let () (declare (not safe)) - (struct-field-offset _klass10503_ _field10504_)))) + (struct-field-offset _klass10680_ _field10681_)))) (declare (not safe)) - (##fx+ __tmp10757 '1)))) - (lambda (_obj10508_ _val10509_) + (##fx+ __tmp10934 '1)))) + (lambda (_obj10685_ _val10686_) (let () (declare (not safe)) (##structure-set! - _obj10508_ - _val10509_ - _off10506_ - _klass10503_ + _obj10685_ + _val10686_ + _off10683_ + _klass10680_ '#f)))))) (define make-struct-field-unchecked-accessor - (lambda (_klass10496_ _field10497_) - (let ((_off10499_ - (let ((__tmp10758 + (lambda (_klass10673_ _field10674_) + (let ((_off10676_ + (let ((__tmp10935 (let () (declare (not safe)) - (struct-field-offset _klass10496_ _field10497_)))) + (struct-field-offset _klass10673_ _field10674_)))) (declare (not safe)) - (##fx+ __tmp10758 '1)))) - (lambda (_obj10501_) + (##fx+ __tmp10935 '1)))) + (lambda (_obj10678_) (let () (declare (not safe)) (##unchecked-structure-ref - _obj10501_ - _off10499_ - _klass10496_ + _obj10678_ + _off10676_ + _klass10673_ '#f)))))) (define make-struct-field-unchecked-mutator - (lambda (_klass10488_ _field10489_) - (let ((_off10491_ - (let ((__tmp10759 + (lambda (_klass10665_ _field10666_) + (let ((_off10668_ + (let ((__tmp10936 (let () (declare (not safe)) - (struct-field-offset _klass10488_ _field10489_)))) + (struct-field-offset _klass10665_ _field10666_)))) (declare (not safe)) - (##fx+ __tmp10759 '1)))) - (lambda (_obj10493_ _val10494_) + (##fx+ __tmp10936 '1)))) + (lambda (_obj10670_ _val10671_) (let () (declare (not safe)) (##unchecked-structure-set! - _obj10493_ - _val10494_ - _off10491_ - _klass10488_ + _obj10670_ + _val10671_ + _off10668_ + _klass10665_ '#f)))))) (define struct-field-offset - (lambda (_klass10482_ _field10483_) - (let ((__tmp10760 - (let ((_$e10485_ + (lambda (_klass10659_ _field10660_) + (let ((__tmp10937 + (let ((_$e10662_ (let () (declare (not safe)) - (##type-super _klass10482_)))) - (if _$e10485_ + (##type-super _klass10659_)))) + (if _$e10662_ (let () (declare (not safe)) - (type-descriptor-fields _$e10485_)) + (type-descriptor-fields _$e10662_)) '0)))) (declare (not safe)) - (##fx+ _field10483_ __tmp10760)))) + (##fx+ _field10660_ __tmp10937)))) (define struct-field-ref - (lambda (_klass10478_ _obj10479_ _off10480_) - (let ((__tmp10761 (let () (declare (not safe)) (##fx+ _off10480_ '1)))) + (lambda (_klass10655_ _obj10656_ _off10657_) + (let ((__tmp10938 (let () (declare (not safe)) (##fx+ _off10657_ '1)))) (declare (not safe)) - (##structure-ref _obj10479_ __tmp10761 _klass10478_ '#f)))) + (##structure-ref _obj10656_ __tmp10938 _klass10655_ '#f)))) (define struct-field-set! - (lambda (_klass10473_ _obj10474_ _off10475_ _val10476_) - (let ((__tmp10762 (let () (declare (not safe)) (##fx+ _off10475_ '1)))) + (lambda (_klass10650_ _obj10651_ _off10652_ _val10653_) + (let ((__tmp10939 (let () (declare (not safe)) (##fx+ _off10652_ '1)))) (declare (not safe)) (##structure-set! - _obj10474_ - _val10476_ - __tmp10762 - _klass10473_ + _obj10651_ + _val10653_ + __tmp10939 + _klass10650_ '#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_)) + (lambda (_klass10641_ _xklass10642_) + (let ((_klass-t10644_ + (let () (declare (not safe)) (##type-id _klass10641_)))) + (let _lp10646_ ((_next10648_ _xklass10642_)) + (if (let () (declare (not safe)) (not _next10648_)) '#f - (if (let ((__tmp10764 + (if (let ((__tmp10941 (let () (declare (not safe)) - (##type-id _next10471_)))) + (##type-id _next10648_)))) (declare (not safe)) - (eq? _klass-t10467_ __tmp10764)) + (eq? _klass-t10644_ __tmp10941)) '#t - (let ((__tmp10763 + (let ((__tmp10940 (let () (declare (not safe)) - (##type-super _next10471_)))) + (##type-super _next10648_)))) (declare (not safe)) - (_lp10469_ __tmp10763)))))))) + (_lp10646_ __tmp10940)))))))) (define make-class-type - (lambda (_id10171_ - _super10172_ - _slots10173_ - _name10174_ - _plist10175_ - _ctor10176_) - (letrec ((_class-slots10178_ - (lambda (_klass10462_) - (let ((__tmp10765 + (lambda (_id10348_ + _super10349_ + _slots10350_ + _name10351_ + _plist10352_ + _ctor10353_) + (letrec ((_class-slots10355_ + (lambda (_klass10639_) + (let ((__tmp10942 (let () (declare (not safe)) - (type-descriptor-plist _klass10462_)))) + (type-descriptor-plist _klass10639_)))) (declare (not safe)) - (assgetq 'slots: __tmp10765)))) - (_make-slots10179_ - (lambda (_off10413_) - (let ((_slot-table10415_ + (assgetq 'slots: __tmp10942)))) + (_make-slots10356_ + (lambda (_off10590_) + (let ((_slot-table10592_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let _lp10417_ ((_rest10419_ _super10172_) - (_off10420_ _off10413_) - (_slot-list10421_ '())) - (let* ((_rest1042210430_ _rest10419_) - (_else1042410441_ + (let _lp10594_ ((_rest10596_ _super10349_) + (_off10597_ _off10590_) + (_slot-list10598_ '())) + (let* ((_rest1059910607_ _rest10596_) + (_else1060110618_ (lambda () - (let ((__tmp10766 - (lambda (_off10438_ _slot-list10439_) - (values _off10438_ - _slot-table10415_ - (reverse _slot-list10439_))))) + (let ((__tmp10943 + (lambda (_off10615_ _slot-list10616_) + (values _off10615_ + _slot-table10592_ + (reverse _slot-list10616_))))) (declare (not safe)) - (_merge-slots10180_ - _slot-table10415_ - _slots10173_ - _off10420_ - _slot-list10421_ - __tmp10766)))) - (_K1042610450_ - (lambda (_rest10444_ _hd10445_) - (let ((__tmp10768 + (_merge-slots10357_ + _slot-table10592_ + _slots10350_ + _off10597_ + _slot-list10598_ + __tmp10943)))) + (_K1060310627_ + (lambda (_rest10621_ _hd10622_) + (let ((__tmp10945 (let () (declare (not safe)) - (_class-slots10178_ _hd10445_))) - (__tmp10767 - (lambda (_off10447_ _slot-list10448_) + (_class-slots10355_ _hd10622_))) + (__tmp10944 + (lambda (_off10624_ _slot-list10625_) (let () (declare (not safe)) - (_lp10417_ - _rest10444_ - _off10447_ - _slot-list10448_))))) + (_lp10594_ + _rest10621_ + _off10624_ + _slot-list10625_))))) (declare (not safe)) - (_merge-slots10180_ - _slot-table10415_ - __tmp10768 - _off10420_ - _slot-list10421_ - __tmp10767))))) + (_merge-slots10357_ + _slot-table10592_ + __tmp10945 + _off10597_ + _slot-list10598_ + __tmp10944))))) (if (let () (declare (not safe)) - (##pair? _rest1042210430_)) - (let ((_hd1042710453_ + (##pair? _rest1059910607_)) + (let ((_hd1060410630_ (let () (declare (not safe)) - (##car _rest1042210430_))) - (_tl1042810455_ + (##car _rest1059910607_))) + (_tl1060510632_ (let () (declare (not safe)) - (##cdr _rest1042210430_)))) - (let* ((_hd10458_ _hd1042710453_) - (_rest10460_ _tl1042810455_)) + (##cdr _rest1059910607_)))) + (let* ((_hd10635_ _hd1060410630_) + (_rest10637_ _tl1060510632_)) (declare (not safe)) - (_K1042610450_ _rest10460_ _hd10458_))) + (_K1060310627_ _rest10637_ _hd10635_))) (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_) + (_else1060110618_)))))))) + (_merge-slots10357_ + (lambda (_ht10545_ _lst10546_ _off10547_ _r10548_ _K10549_) + (let _lp10551_ ((_rest10553_ _lst10546_) + (_off10554_ _off10547_) + (_r10555_ _r10548_)) + (let* ((_rest1055610564_ _rest10553_) + (_else1055810572_ + (lambda () (_K10549_ _off10554_ _r10555_))) + (_K1056010578_ + (lambda (_rest10575_ _slot10576_) (if (let () (declare (not safe)) - (table-ref _ht10368_ _slot10399_ '#f)) + (table-ref _ht10545_ _slot10576_ '#f)) (let () (declare (not safe)) - (_lp10374_ - _rest10398_ - _off10377_ - _r10378_)) + (_lp10551_ + _rest10575_ + _off10554_ + _r10555_)) (begin (let () (declare (not safe)) (table-set! - _ht10368_ - _slot10399_ - _off10377_)) - (let ((__tmp10769 - (symbol->keyword _slot10399_))) + _ht10545_ + _slot10576_ + _off10554_)) + (let ((__tmp10946 + (symbol->keyword _slot10576_))) (declare (not safe)) (table-set! - _ht10368_ - __tmp10769 - _off10377_)) - (let ((__tmp10771 + _ht10545_ + __tmp10946 + _off10554_)) + (let ((__tmp10948 (let () (declare (not safe)) - (##fx+ _off10377_ '1))) - (__tmp10770 + (##fx+ _off10554_ '1))) + (__tmp10947 (let () (declare (not safe)) - (cons _slot10399_ _r10378_)))) + (cons _slot10576_ _r10555_)))) (declare (not safe)) - (_lp10374_ - _rest10398_ - __tmp10771 - __tmp10770))))))) + (_lp10551_ + _rest10575_ + __tmp10948 + __tmp10947))))))) (if (let () (declare (not safe)) - (##pair? _rest1037910387_)) - (let ((_hd1038410404_ + (##pair? _rest1055610564_)) + (let ((_hd1056110581_ (let () (declare (not safe)) - (##car _rest1037910387_))) - (_tl1038510406_ + (##car _rest1055610564_))) + (_tl1056210583_ (let () (declare (not safe)) - (##cdr _rest1037910387_)))) - (let* ((_slot10409_ _hd1038410404_) - (_rest10411_ _tl1038510406_)) + (##cdr _rest1055610564_)))) + (let* ((_slot10586_ _hd1056110581_) + (_rest10588_ _tl1056210583_)) (declare (not safe)) - (_K1038310401_ _rest10411_ _slot10409_))) + (_K1056010578_ _rest10588_ _slot10586_))) (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_ + (_else1055810572_))))))) + (_find-super-ctor10358_ + (lambda (_super10497_) + (let _lp10499_ ((_rest10501_ _super10497_) + (_ctor10502_ '#f)) + (let* ((_rest1050310511_ _rest10501_) + (_else1050510519_ (lambda () _ctor10502_)) + (_K1050710533_ + (lambda (_rest10522_ _hd10523_) + (let ((_$e10525_ (let () (declare (not safe)) - (type-descriptor-ctor _hd10346_)))) - (if _$e10348_ - ((lambda (_xctor10351_) + (type-descriptor-ctor _hd10523_)))) + (if _$e10525_ + ((lambda (_xctor10528_) (if (or (let () (declare (not safe)) - (not _ctor10325_)) + (not _ctor10502_)) (let () (declare (not safe)) - (eq? _ctor10325_ - _xctor10351_))) + (eq? _ctor10502_ + _xctor10528_))) (let () (declare (not safe)) - (_lp10322_ - _rest10345_ - _xctor10351_)) + (_lp10499_ + _rest10522_ + _xctor10528_)) (error '"Conflicting implicit constructors" - _ctor10325_ - _xctor10351_))) - _$e10348_) + _ctor10502_ + _xctor10528_))) + _$e10525_) (let () (declare (not safe)) - (_lp10322_ - _rest10345_ - _ctor10325_))))))) + (_lp10499_ + _rest10522_ + _ctor10502_))))))) (if (let () (declare (not safe)) - (##pair? _rest1032610334_)) - (let ((_hd1033110359_ + (##pair? _rest1050310511_)) + (let ((_hd1050810536_ (let () (declare (not safe)) - (##car _rest1032610334_))) - (_tl1033210361_ + (##car _rest1050310511_))) + (_tl1050910538_ (let () (declare (not safe)) - (##cdr _rest1032610334_)))) - (let* ((_hd10364_ _hd1033110359_) - (_rest10366_ _tl1033210361_)) + (##cdr _rest1050310511_)))) + (let* ((_hd10541_ _hd1050810536_) + (_rest10543_ _tl1050910538_)) (declare (not safe)) - (_K1033010356_ _rest10366_ _hd10364_))) + (_K1050710533_ _rest10543_ _hd10541_))) (let () (declare (not safe)) - (_else1032810342_))))))) - (_find-super-struct10182_ - (lambda (_super10267_) - (letrec ((_base-struct10269_ - (lambda (_super-struct10309_ _klass10310_) - (if _super-struct10309_ + (_else1050510519_))))))) + (_find-super-struct10359_ + (lambda (_super10444_) + (letrec ((_base-struct10446_ + (lambda (_super-struct10486_ _klass10487_) + (if _super-struct10486_ (if (let () (declare (not safe)) (struct-subtype? - _super-struct10309_ - _klass10310_)) - (let _lp10312_ ((_klass10314_ - _klass10310_)) + _super-struct10486_ + _klass10487_)) + (let _lp10489_ ((_klass10491_ + _klass10487_)) (if (let () (declare (not safe)) - (struct-type? _klass10314_)) - _klass10314_ - (let ((__tmp10772 + (struct-type? _klass10491_)) + _klass10491_ + (let ((__tmp10949 (let () (declare (not safe)) (##type-super - _klass10314_)))) + _klass10491_)))) (declare (not safe)) - (_lp10312_ __tmp10772)))) + (_lp10489_ __tmp10949)))) (if (let () (declare (not safe)) (struct-subtype? - _klass10310_ - _super-struct10309_)) - _super-struct10309_ + _klass10487_ + _super-struct10486_)) + _super-struct10486_ (error '"Bad mixin: incompatible struct bases" - _klass10310_ - _super-struct10309_))) + _klass10487_ + _super-struct10486_))) (if (let () (declare (not safe)) - (struct-type? _klass10310_)) - _klass10310_ + (struct-type? _klass10487_)) + _klass10487_ (if (let () (declare (not safe)) - (class-type? _klass10310_)) - (let _lp10316_ ((_next10318_ + (class-type? _klass10487_)) + (let _lp10493_ ((_next10495_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##type-super _klass10310_)))) + (##type-super _klass10487_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (not _next10318_)) + (not _next10495_)) '#f (if (let () (declare (not safe)) (struct-type? - _next10318_)) - _next10318_ + _next10495_)) + _next10495_ (if (let () (declare (not safe)) (class-type? - _next10318_)) + _next10495_)) (let () (declare (not safe)) - (_lp10316_ - _next10318_)) + (_lp10493_ + _next10495_)) '#f)))) '#f)))))) - (let _lp10271_ ((_rest10273_ _super10267_) - (_super-struct10274_ '#f)) - (let* ((_rest1027510283_ _rest10273_) - (_else1027710291_ - (lambda () _super-struct10274_)) - (_K1027910297_ - (lambda (_rest10294_ _hd10295_) - (let ((__tmp10773 + (let _lp10448_ ((_rest10450_ _super10444_) + (_super-struct10451_ '#f)) + (let* ((_rest1045210460_ _rest10450_) + (_else1045410468_ + (lambda () _super-struct10451_)) + (_K1045610474_ + (lambda (_rest10471_ _hd10472_) + (let ((__tmp10950 (let () (declare (not safe)) - (_base-struct10269_ - _super-struct10274_ - _hd10295_)))) + (_base-struct10446_ + _super-struct10451_ + _hd10472_)))) (declare (not safe)) - (_lp10271_ _rest10294_ __tmp10773))))) + (_lp10448_ _rest10471_ __tmp10950))))) (if (let () (declare (not safe)) - (##pair? _rest1027510283_)) - (let ((_hd1028010300_ + (##pair? _rest1045210460_)) + (let ((_hd1045710477_ (let () (declare (not safe)) - (##car _rest1027510283_))) - (_tl1028110302_ + (##car _rest1045210460_))) + (_tl1045810479_ (let () (declare (not safe)) - (##cdr _rest1027510283_)))) - (let* ((_hd10305_ _hd1028010300_) - (_rest10307_ _tl1028110302_)) + (##cdr _rest1045210460_)))) + (let* ((_hd10482_ _hd1045710477_) + (_rest10484_ _tl1045810479_)) (declare (not safe)) - (_K1027910297_ _rest10307_ _hd10305_))) + (_K1045610474_ _rest10484_ _hd10482_))) (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_) + (_else1045410468_)))))))) + (_expand-struct-mixin10360_ + (lambda (_super10399_) + (let _lp10401_ ((_rest10403_ _super10399_) + (_mixin10404_ '())) + (let* ((_rest1040510413_ _rest10403_) + (_else1040710421_ + (lambda () (reverse _mixin10404_))) + (_K1040910432_ + (lambda (_rest10424_ _hd10425_) (if (let () (declare (not safe)) - (struct-type? _hd10248_)) - (let _lp210250_ ((_next10252_ _hd10248_) - (_mixin10253_ - _mixin10227_)) + (struct-type? _hd10425_)) + (let _lp210427_ ((_next10429_ _hd10425_) + (_mixin10430_ + _mixin10404_)) (if (let () (declare (not safe)) - (not _next10252_)) + (not _next10429_)) (let () (declare (not safe)) - (_lp10224_ - _rest10247_ - _mixin10253_)) + (_lp10401_ + _rest10424_ + _mixin10430_)) (if (let () (declare (not safe)) - (struct-type? _next10252_)) - (let ((__tmp10776 + (struct-type? _next10429_)) + (let ((__tmp10953 (let () (declare (not safe)) (##type-super - _next10252_))) - (__tmp10775 + _next10429_))) + (__tmp10952 (let () (declare (not safe)) - (cons _next10252_ - _mixin10253_)))) + (cons _next10429_ + _mixin10430_)))) (declare (not safe)) - (_lp210250_ - __tmp10776 - __tmp10775)) + (_lp210427_ + __tmp10953 + __tmp10952)) (let () (declare (not safe)) - (_lp10224_ - _rest10247_ - _mixin10253_))))) - (let ((__tmp10774 + (_lp10401_ + _rest10424_ + _mixin10430_))))) + (let ((__tmp10951 (let () (declare (not safe)) - (cons _hd10248_ _mixin10227_)))) + (cons _hd10425_ _mixin10404_)))) (declare (not safe)) - (_lp10224_ _rest10247_ __tmp10774)))))) + (_lp10401_ _rest10424_ __tmp10951)))))) (if (let () (declare (not safe)) - (##pair? _rest1022810236_)) - (let ((_hd1023310258_ + (##pair? _rest1040510413_)) + (let ((_hd1041010435_ (let () (declare (not safe)) - (##car _rest1022810236_))) - (_tl1023410260_ + (##car _rest1040510413_))) + (_tl1041110437_ (let () (declare (not safe)) - (##cdr _rest1022810236_)))) - (let* ((_hd10263_ _hd1023310258_) - (_rest10265_ _tl1023410260_)) + (##cdr _rest1040510413_)))) + (let* ((_hd10440_ _hd1041010435_) + (_rest10442_ _tl1041110437_)) (declare (not safe)) - (_K1023210255_ _rest10265_ _hd10263_))) + (_K1040910432_ _rest10442_ _hd10440_))) (let () (declare (not safe)) - (_else1023010244_)))))))) - (let ((_$e10187_ - (let ((__tmp10777 - (lambda (_klass10185_) - (let ((__tmp10778 + (_else1040710421_)))))))) + (let ((_$e10364_ + (let ((__tmp10954 + (lambda (_klass10362_) + (let ((__tmp10955 (let () (declare (not safe)) - (type-descriptor? _klass10185_)))) + (type-descriptor? _klass10362_)))) (declare (not safe)) - (not __tmp10778))))) + (not __tmp10955))))) (declare (not safe)) - (find __tmp10777 _super10172_)))) - (if _$e10187_ - ((lambda (_klass10190_) + (find __tmp10954 _super10349_)))) + (if _$e10364_ + ((lambda (_klass10367_) (error '"Illegal super class; not a type descriptor" - _klass10190_)) - _$e10187_) - (let ((_$e10194_ - (let ((__tmp10779 - (lambda (_klass10192_) - (let ((__tmp10780 + _klass10367_)) + _$e10364_) + (let ((_$e10371_ + (let ((__tmp10956 + (lambda (_klass10369_) + (let ((__tmp10957 (let () (declare (not safe)) (type-descriptor-plist - _klass10192_)))) + _klass10369_)))) (declare (not safe)) - (assgetq 'final: __tmp10780))))) + (assgetq 'final: __tmp10957))))) (declare (not safe)) - (find __tmp10779 _super10172_)))) - (if _$e10194_ - ((lambda (_klass10197_) - (error '"Cannot extend final class" _klass10197_)) - _$e10194_) + (find __tmp10956 _super10349_)))) + (if _$e10371_ + ((lambda (_klass10374_) + (error '"Cannot extend final class" _klass10374_)) + _$e10371_) '#!void)))) - (let* ((_std-super10199_ + (let* ((_std-super10376_ (let () (declare (not safe)) - (_find-super-struct10182_ _super10172_))) - (_mixin10201_ - (if _std-super10199_ + (_find-super-struct10359_ _super10349_))) + (_mixin10378_ + (if _std-super10376_ (let () (declare (not safe)) - (_expand-struct-mixin10183_ _super10172_)) - _super10172_))) - (let ((_g10781_ - (let ((__tmp10783 - (if _std-super10199_ + (_expand-struct-mixin10360_ _super10349_)) + _super10349_))) + (let ((_g10958_ + (let ((__tmp10960 + (if _std-super10376_ (let () (declare (not safe)) - (type-descriptor-fields _std-super10199_)) + (type-descriptor-fields _std-super10376_)) '0))) (declare (not safe)) - (_make-slots10179_ __tmp10783)))) + (_make-slots10356_ __tmp10960)))) (begin - (let ((_g10782_ + (let ((_g10959_ (let () (declare (not safe)) - (if (##values? _g10781_) - (##vector-length _g10781_) + (if (##values? _g10958_) + (##vector-length _g10958_) 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_ + (if (not (let () (declare (not safe)) (##fx= _g10959_ 3))) + (error "Context expects 3 values" _g10959_))) + (let ((_std-fields10381_ + (let () (declare (not safe)) (##vector-ref _g10958_ 0))) + (_std-slots10382_ + (let () (declare (not safe)) (##vector-ref _g10958_ 1))) + (_std-slot-list10383_ (let () (declare (not safe)) - (##vector-ref _g10781_ 2)))) - (let* ((_std-mixin10208_ + (##vector-ref _g10958_ 2)))) + (let* ((_std-mixin10385_ (let () (declare (not safe)) - (class-linearize-mixins _mixin10201_))) - (_std-plist10212_ - (if _std-super10199_ - (let* ((_fields10210_ - (let ((__tmp10784 + (class-linearize-mixins _mixin10378_))) + (_std-plist10389_ + (if _std-super10376_ + (let* ((_fields10387_ + (let ((__tmp10961 (let () (declare (not safe)) (type-descriptor-plist - _std-super10199_)))) + _std-super10376_)))) (declare (not safe)) - (assgetq 'fields: __tmp10784))) - (__tmp10785 + (assgetq 'fields: __tmp10961))) + (__tmp10962 (let () (declare (not safe)) - (cons 'fields: _fields10210_)))) + (cons 'fields: _fields10387_)))) (declare (not safe)) - (cons __tmp10785 _plist10175_)) - _plist10175_)) - (_std-plist10214_ - (let ((__tmp10786 + (cons __tmp10962 _plist10352_)) + _plist10352_)) + (_std-plist10391_ + (let ((__tmp10963 (let () (declare (not safe)) - (cons 'slots: _std-slot-list10206_)))) + (cons 'slots: _std-slot-list10383_)))) (declare (not safe)) - (cons __tmp10786 _std-plist10212_))) - (_std-ctor10219_ - (let ((_$e10216_ _ctor10176_)) - (if _$e10216_ - _$e10216_ + (cons __tmp10963 _std-plist10389_))) + (_std-ctor10396_ + (let ((_$e10393_ _ctor10353_)) + (if _$e10393_ + _$e10393_ (let () (declare (not safe)) - (_find-super-ctor10181_ _super10172_)))))) + (_find-super-ctor10358_ _super10349_)))))) (let () (declare (not safe)) (make-class-type-descriptor - _id10171_ - _name10174_ - _std-super10199_ - _std-mixin10208_ - _std-fields10204_ - _std-plist10214_ - _std-ctor10219_ - _std-slots10205_)))))))))) + _id10348_ + _name10351_ + _std-super10376_ + _std-mixin10385_ + _std-fields10381_ + _std-plist10391_ + _std-ctor10396_ + _std-slots10382_)))))))))) (define class-linearize-mixins - (lambda (_klass-lst10122_) - (letrec ((_class->list10124_ - (lambda (_klass10166_) - (let ((__tmp10787 - (let ((_$e10168_ + (lambda (_klass-lst10299_) + (letrec ((_class->list10301_ + (lambda (_klass10343_) + (let ((__tmp10964 + (let ((_$e10345_ (let () (declare (not safe)) - (type-descriptor-mixin _klass10166_)))) - (if _$e10168_ _$e10168_ '())))) + (type-descriptor-mixin _klass10343_)))) + (if _$e10345_ _$e10345_ '())))) (declare (not safe)) - (cons _klass10166_ __tmp10787))))) - (let* ((_klass-lst1012510135_ _klass-lst10122_) - (_else1012810143_ + (cons _klass10343_ __tmp10964))))) + (let* ((_klass-lst1030210312_ _klass-lst10299_) + (_else1030510320_ (lambda () - (let ((__tmp10788 - (map _class->list10124_ _klass-lst10122_))) + (let ((__tmp10965 + (map _class->list10301_ _klass-lst10299_))) (declare (not safe)) - (__linearize-mixins __tmp10788))))) - (let ((_K1013310163_ (lambda () '())) - (_K1013010149_ - (lambda (_klass10147_) + (__linearize-mixins __tmp10965))))) + (let ((_K1031010340_ (lambda () '())) + (_K1030710326_ + (lambda (_klass10324_) (let () (declare (not safe)) - (_class->list10124_ _klass10147_))))) - (let ((_try-match1012710159_ + (_class->list10301_ _klass10324_))))) + (let ((_try-match1030410336_ (lambda () (if (let () (declare (not safe)) - (##pair? _klass-lst1012510135_)) - (let ((_tl1013210154_ + (##pair? _klass-lst1030210312_)) + (let ((_tl1030910331_ (let () (declare (not safe)) - (##cdr _klass-lst1012510135_))) - (_hd1013110152_ + (##cdr _klass-lst1030210312_))) + (_hd1030810329_ (let () (declare (not safe)) - (##car _klass-lst1012510135_)))) + (##car _klass-lst1030210312_)))) (if (let () (declare (not safe)) - (##null? _tl1013210154_)) - (let ((_klass10157_ _hd1013110152_)) + (##null? _tl1030910331_)) + (let ((_klass10334_ _hd1030810329_)) (declare (not safe)) - (_class->list10124_ _klass10157_)) + (_class->list10301_ _klass10334_)) (let () (declare (not safe)) - (_else1012810143_)))) - (let () (declare (not safe)) (_else1012810143_)))))) + (_else1030510320_)))) + (let () (declare (not safe)) (_else1030510320_)))))) (if (let () (declare (not safe)) - (##null? _klass-lst1012510135_)) - (let () (declare (not safe)) (_K1013310163_)) + (##null? _klass-lst1030210312_)) + (let () (declare (not safe)) (_K1031010340_)) (let () (declare (not safe)) - (_try-match1012710159_))))))))) + (_try-match1030410336_))))))))) (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 (_lst10140_) + (letrec ((_K10142_ + (lambda (_rest10263_ _r10264_) + (let* ((_rest1026510273_ _rest10263_) + (_else1026710281_ (lambda () (reverse _r10264_))) + (_K1026910287_ + (lambda (_rest10284_ _hd10285_) + (let () + (declare (not safe)) + (_linearize110143_ + _hd10285_ + _rest10284_ + _r10264_))))) + (if (let () + (declare (not safe)) + (##pair? _rest1026510273_)) + (let ((_hd1027010290_ + (let () + (declare (not safe)) + (##car _rest1026510273_))) + (_tl1027110292_ + (let () + (declare (not safe)) + (##cdr _rest1026510273_)))) + (let* ((_hd10295_ _hd1027010290_) + (_rest10297_ _tl1027110292_)) + (declare (not safe)) + (_K1026910287_ _rest10297_ _hd10295_))) + (let () (declare (not safe)) (_else1026710281_)))))) + (_linearize110143_ + (lambda (_hd10226_ _rest10227_ _r10228_) + (let* ((_hd1022910237_ _hd10226_) + (_else1023110245_ (lambda () (let () (declare (not safe)) - (_K9965_ _rest10050_ _r10051_)))) - (_K1005610074_ - (lambda (_hd-rest10071_ _hd-first10072_) + (_K10142_ _rest10227_ _r10228_)))) + (_K1023310251_ + (lambda (_hd-rest10248_ _hd-first10249_) (if (let () (declare (not safe)) - (_findq9969_ _hd-first10072_ _rest10050_)) - (let ((__tmp10791 (list _hd10049_))) + (_findq10146_ _hd-first10249_ _rest10227_)) + (let ((__tmp10968 (list _hd10226_))) (declare (not safe)) - (_linearize29967_ - _rest10050_ - __tmp10791 - _r10051_)) - (let ((__tmp10790 + (_linearize210144_ + _rest10227_ + __tmp10968 + _r10228_)) + (let ((__tmp10967 (let () (declare (not safe)) - (cons _hd-rest10071_ _rest10050_))) - (__tmp10789 + (cons _hd-rest10248_ _rest10227_))) + (__tmp10966 (let () (declare (not safe)) - (_putq9968_ - _hd-first10072_ - _r10051_)))) + (_putq10145_ + _hd-first10249_ + _r10228_)))) (declare (not safe)) - (_K9965_ __tmp10790 __tmp10789)))))) + (_K10142_ __tmp10967 __tmp10966)))))) (if (let () (declare (not safe)) - (##pair? _hd1005210060_)) - (let ((_hd1005710077_ + (##pair? _hd1022910237_)) + (let ((_hd1023410254_ (let () (declare (not safe)) - (##car _hd1005210060_))) - (_tl1005810079_ + (##car _hd1022910237_))) + (_tl1023510256_ (let () (declare (not safe)) - (##cdr _hd1005210060_)))) - (let* ((_hd-first10082_ _hd1005710077_) - (_hd-rest10084_ _tl1005810079_)) + (##cdr _hd1022910237_)))) + (let* ((_hd-first10259_ _hd1023410254_) + (_hd-rest10261_ _tl1023510256_)) (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_ + (_K1023310251_ _hd-rest10261_ _hd-first10259_))) + (let () (declare (not safe)) (_else1023110245_)))))) + (_linearize210144_ + (lambda (_rest10156_ _pre10157_ _r10158_) + (let _lp10160_ ((_rest10162_ _rest10156_) + (_pre10163_ _pre10157_)) + (let* ((_rest1016410171_ _rest10162_) + (_E1016610175_ (lambda () - (error '"No clause matching" _rest99879994_))) - (_K999010037_ - (lambda (_rest10001_ _hd10002_) - (let* ((_hd1000310011_ _hd10002_) - (_else1000510019_ + (error '"No clause matching" + _rest1016410171_))) + (_K1016710214_ + (lambda (_rest10178_ _hd10179_) + (let* ((_hd1018010188_ _hd10179_) + (_else1018210196_ (lambda () (let () (declare (not safe)) - (_lp9983_ _rest10001_ _pre9986_)))) - (_K1000710025_ - (lambda (_hd-rest10022_ - _hd-first10023_) + (_lp10160_ + _rest10178_ + _pre10163_)))) + (_K1018410202_ + (lambda (_hd-rest10199_ + _hd-first10200_) (if (let () (declare (not safe)) - (_findq9969_ - _hd-first10023_ - _rest10001_)) - (let ((__tmp10795 + (_findq10146_ + _hd-first10200_ + _rest10178_)) + (let ((__tmp10972 (let () (declare (not safe)) - (cons _hd10002_ - _pre9986_)))) + (cons _hd10179_ + _pre10163_)))) (declare (not safe)) - (_lp9983_ - _rest10001_ - __tmp10795)) - (let ((__tmp10793 - (let ((__tmp10794 + (_lp10160_ + _rest10178_ + __tmp10972)) + (let ((__tmp10970 + (let ((__tmp10971 (let () (declare (not safe)) - (cons _hd-rest10022_ + (cons _hd-rest10199_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest10001_)))) + _rest10178_)))) (declare (not safe)) - (foldl1 cons __tmp10794 _pre9986_))) + (foldl1 cons __tmp10971 _pre10163_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp10792 + (__tmp10969 (let () (declare (not safe)) - (_putq9968_ - _hd-first10023_ - _r9981_)))) + (_putq10145_ + _hd-first10200_ + _r10158_)))) (declare (not safe)) - (_K9965_ __tmp10793 - __tmp10792)))))) + (_K10142_ + __tmp10970 + __tmp10969)))))) (if (let () (declare (not safe)) - (##pair? _hd1000310011_)) - (let ((_hd1000810028_ + (##pair? _hd1018010188_)) + (let ((_hd1018510205_ (let () (declare (not safe)) - (##car _hd1000310011_))) - (_tl1000910030_ + (##car _hd1018010188_))) + (_tl1018610207_ (let () (declare (not safe)) - (##cdr _hd1000310011_)))) - (let* ((_hd-first10033_ _hd1000810028_) - (_hd-rest10035_ _tl1000910030_)) + (##cdr _hd1018010188_)))) + (let* ((_hd-first10210_ _hd1018510205_) + (_hd-rest10212_ _tl1018610207_)) (declare (not safe)) - (_K1000710025_ - _hd-rest10035_ - _hd-first10033_))) + (_K1018410202_ + _hd-rest10212_ + _hd-first10210_))) (let () (declare (not safe)) - (_else1000510019_))))))) + (_else1018210196_))))))) (if (let () (declare (not safe)) - (##pair? _rest99879994_)) - (let ((_hd999110040_ + (##pair? _rest1016410171_)) + (let ((_hd1016810217_ (let () (declare (not safe)) - (##car _rest99879994_))) - (_tl999210042_ + (##car _rest1016410171_))) + (_tl1016910219_ (let () (declare (not safe)) - (##cdr _rest99879994_)))) - (let* ((_hd10045_ _hd999110040_) - (_rest10047_ _tl999210042_)) + (##cdr _rest1016410171_)))) + (let* ((_hd10222_ _hd1016810217_) + (_rest10224_ _tl1016910219_)) (declare (not safe)) - (_K999010037_ _rest10047_ _hd10045_))) - (let () (declare (not safe)) (_E99899998_))))))) - (_putq9968_ - (lambda (_hd9976_ _lst9977_) - (if (memq _hd9976_ _lst9977_) - _lst9977_ + (_K1016710214_ _rest10224_ _hd10222_))) + (let () (declare (not safe)) (_E1016610175_))))))) + (_putq10145_ + (lambda (_hd10153_ _lst10154_) + (if (memq _hd10153_ _lst10154_) + _lst10154_ (let () (declare (not safe)) - (cons _hd9976_ _lst9977_))))) - (_findq9969_ - (lambda (_hd9971_ _rest9972_) - (let ((__tmp10796 - (lambda (_lst9974_) (memq _hd9971_ _lst9974_)))) + (cons _hd10153_ _lst10154_))))) + (_findq10146_ + (lambda (_hd10148_ _rest10149_) + (let ((__tmp10973 + (lambda (_lst10151_) (memq _hd10148_ _lst10151_)))) (declare (not safe)) - (find __tmp10796 _rest9972_))))) - (let () (declare (not safe)) (_K9965_ _lst9963_ '()))))) + (find __tmp10973 _rest10149_))))) + (let () (declare (not safe)) (_K10142_ _lst10140_ '()))))) (define make-class-predicate - (lambda (_klass9957_) - (if (let ((__tmp10798 + (lambda (_klass10134_) + (if (let ((__tmp10975 (let () (declare (not safe)) - (type-descriptor-plist _klass9957_)))) + (type-descriptor-plist _klass10134_)))) (declare (not safe)) - (assgetq 'final: __tmp10798)) - (lambda (_obj9959_) - (let ((__tmp10797 - (let () (declare (not safe)) (##type-id _klass9957_)))) + (assgetq 'final: __tmp10975)) + (lambda (_obj10136_) + (let ((__tmp10974 + (let () (declare (not safe)) (##type-id _klass10134_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj9959_ __tmp10797))) - (lambda (_obj9961_) + (##structure-direct-instance-of? _obj10136_ __tmp10974))) + (lambda (_obj10138_) (let () (declare (not safe)) - (class-instance? _klass9957_ _obj9961_)))))) + (class-instance? _klass10134_ _obj10138_)))))) (define make-class-slot-accessor - (lambda (_klass9952_ _slot9953_) - (lambda (_obj9955_) - (let () (declare (not safe)) (slot-ref _obj9955_ _slot9953_))))) + (lambda (_klass10129_ _slot10130_) + (lambda (_obj10132_) + (let () (declare (not safe)) (slot-ref _obj10132_ _slot10130_))))) (define make-class-slot-mutator - (lambda (_klass9946_ _slot9947_) - (lambda (_obj9949_ _val9950_) + (lambda (_klass10123_ _slot10124_) + (lambda (_obj10126_ _val10127_) (let () (declare (not safe)) - (slot-set! _obj9949_ _slot9947_ _val9950_))))) + (slot-set! _obj10126_ _slot10124_ _val10127_))))) (define make-class-slot-unchecked-accessor - (lambda (_klass9941_ _slot9942_) - (lambda (_obj9944_) + (lambda (_klass10118_ _slot10119_) + (lambda (_obj10121_) (let () (declare (not safe)) - (unchecked-slot-ref _obj9944_ _slot9942_))))) + (unchecked-slot-ref _obj10121_ _slot10119_))))) (define make-class-slot-unchecked-mutator - (lambda (_klass9935_ _slot9936_) - (lambda (_obj9938_ _val9939_) + (lambda (_klass10112_ _slot10113_) + (lambda (_obj10115_ _val10116_) (let () (declare (not safe)) - (unchecked-slot-set! _obj9938_ _slot9936_ _val9939_))))) + (unchecked-slot-set! _obj10115_ _slot10113_ _val10116_))))) (define class-slot-offset - (lambda (_klass9927_ _slot9928_) - (let ((_$e9930_ + (lambda (_klass10104_ _slot10105_) + (let ((_$e10107_ (let () (declare (not safe)) - (type-descriptor-slots _klass9927_)))) - (if _$e9930_ - ((lambda (_slots9933_) + (type-descriptor-slots _klass10104_)))) + (if _$e10107_ + ((lambda (_slots10110_) (let () (declare (not safe)) - (table-ref _slots9933_ _slot9928_ '#f))) - _$e9930_) + (table-ref _slots10110_ _slot10105_ '#f))) + _$e10107_) '#f)))) (define class-slot-ref - (lambda (_klass9921_ _obj9922_ _slot9923_) + (lambda (_klass10098_ _obj10099_ _slot10100_) (if (let () (declare (not safe)) - (class-instance? _klass9921_ _obj9922_)) - (let* ((_off9925_ - (let ((__tmp10799 + (class-instance? _klass10098_ _obj10099_)) + (let* ((_off10102_ + (let ((__tmp10976 (let () (declare (not safe)) - (object-type _obj9922_)))) + (object-type _obj10099_)))) (declare (not safe)) - (class-slot-offset __tmp10799 _slot9923_))) - (__tmp10800 - (let () (declare (not safe)) (##fx+ _off9925_ '1)))) + (class-slot-offset __tmp10976 _slot10100_))) + (__tmp10977 + (let () (declare (not safe)) (##fx+ _off10102_ '1)))) (declare (not safe)) - (##unchecked-structure-ref _obj9922_ __tmp10800 _klass9921_ '#f)) - (error '"not an instance" _klass9921_ _obj9922_)))) + (##unchecked-structure-ref + _obj10099_ + __tmp10977 + _klass10098_ + '#f)) + (error '"not an instance" _klass10098_ _obj10099_)))) (define class-slot-set! - (lambda (_klass9914_ _obj9915_ _slot9916_ _val9917_) + (lambda (_klass10091_ _obj10092_ _slot10093_ _val10094_) (if (let () (declare (not safe)) - (class-instance? _klass9914_ _obj9915_)) - (let* ((_off9919_ - (let ((__tmp10801 + (class-instance? _klass10091_ _obj10092_)) + (let* ((_off10096_ + (let ((__tmp10978 (let () (declare (not safe)) - (object-type _obj9915_)))) + (object-type _obj10092_)))) (declare (not safe)) - (class-slot-offset __tmp10801 _slot9916_))) - (__tmp10802 - (let () (declare (not safe)) (##fx+ _off9919_ '1)))) + (class-slot-offset __tmp10978 _slot10093_))) + (__tmp10979 + (let () (declare (not safe)) (##fx+ _off10096_ '1)))) (declare (not safe)) (##unchecked-structure-set! - _obj9915_ - _val9917_ - __tmp10802 - _klass9914_ + _obj10092_ + _val10094_ + __tmp10979 + _klass10091_ '#f)) - (error '"not an instance" _klass9914_ _obj9915_)))) + (error '"not an instance" _klass10091_ _obj10092_)))) (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_)))) + (lambda (_klass10076_ _xklass10077_) + (let* ((_klass-t10079_ + (let () (declare (not safe)) (##type-id _klass10076_))) + (_$e10081_ + (let ((__tmp10980 + (let () + (declare (not safe)) + (##type-id _xklass10077_)))) (declare (not safe)) - (eq? _klass-t9902_ __tmp10803)))) - (if _$e9904_ - _$e9904_ - (let ((_$e9907_ + (eq? _klass-t10079_ __tmp10980)))) + (if _$e10081_ + _$e10081_ + (let ((_$e10084_ (let () (declare (not safe)) - (type-descriptor-mixin _xklass9900_)))) - (if _$e9907_ - ((lambda (_mixin9910_) - (if (let ((__tmp10804 - (lambda (_xklass9912_) - (let ((__tmp10805 + (type-descriptor-mixin _xklass10077_)))) + (if _$e10084_ + ((lambda (_mixin10087_) + (if (let ((__tmp10981 + (lambda (_xklass10089_) + (let ((__tmp10982 (let () (declare (not safe)) - (##type-id _xklass9912_)))) + (##type-id _xklass10089_)))) (declare (not safe)) - (eq? _klass-t9902_ __tmp10805))))) + (eq? _klass-t10079_ __tmp10982))))) (declare (not safe)) - (find __tmp10804 _mixin9910_)) + (find __tmp10981 _mixin10087_)) '#t '#f)) - _$e9907_) + _$e10084_) '#f)))))) (define object? ##structure?) (define object-type ##structure-type) (define direct-instance? - (lambda (_klass9896_ _obj9897_) - (let ((__tmp10806 - (let () (declare (not safe)) (##type-id _klass9896_)))) + (lambda (_klass10073_ _obj10074_) + (let ((__tmp10983 + (let () (declare (not safe)) (##type-id _klass10073_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj9897_ __tmp10806)))) + (##structure-direct-instance-of? _obj10074_ __tmp10983)))) (define struct-instance? - (lambda (_klass9893_ _obj9894_) - (let ((__tmp10807 - (let () (declare (not safe)) (##type-id _klass9893_)))) + (lambda (_klass10070_ _obj10071_) + (let ((__tmp10984 + (let () (declare (not safe)) (##type-id _klass10070_)))) (declare (not safe)) - (##structure-instance-of? _obj9894_ __tmp10807)))) + (##structure-instance-of? _obj10071_ __tmp10984)))) (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 + (lambda (_klass10054_ _obj10055_) + (if (let () (declare (not safe)) (object? _obj10055_)) + (let ((_klass-id10057_ + (let () (declare (not safe)) (##type-id _klass10054_))) + (_type10058_ + (let () (declare (not safe)) (object-type _obj10055_)))) + (if (let () (declare (not safe)) (type-descriptor? _type10058_)) + (let ((_$e10060_ + (let ((__tmp10985 (let () (declare (not safe)) - (##type-id _type9881_)))) + (##type-id _type10058_)))) (declare (not safe)) - (eq? __tmp10808 _klass-id9880_)))) - (if _$e9883_ - _$e9883_ - (let ((_$e9886_ + (eq? __tmp10985 _klass-id10057_)))) + (if _$e10060_ + _$e10060_ + (let ((_$e10063_ (let () (declare (not safe)) - (type-descriptor-mixin _type9881_)))) - (if _$e9886_ - ((lambda (_mixin9889_) - (let ((__tmp10809 - (lambda (_type9891_) - (let ((__tmp10810 + (type-descriptor-mixin _type10058_)))) + (if _$e10063_ + ((lambda (_mixin10066_) + (let ((__tmp10986 + (lambda (_type10068_) + (let ((__tmp10987 (let () (declare (not safe)) - (##type-id _type9891_)))) + (##type-id _type10068_)))) (declare (not safe)) - (eq? __tmp10810 _klass-id9880_))))) + (eq? __tmp10987 + _klass-id10057_))))) (declare (not safe)) - (ormap1 __tmp10809 _mixin9889_))) - _$e9886_) + (ormap1 __tmp10986 _mixin10066_))) + _$e10063_) '#f)))) '#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)))) + (lambda (_klass10049_ _k10050_) + (let ((_obj10052_ + (let ((__tmp10988 + (let () (declare (not safe)) (##fx+ _k10050_ '1)))) (declare (not safe)) - (##make-vector __tmp10811 '#f)))) + (##make-vector __tmp10988 '#f)))) (let () (declare (not safe)) - (##vector-set! _obj9875_ '0 _klass9872_)) - (let ((__tmp10812 (macro-subtype-structure))) + (##vector-set! _obj10052_ '0 _klass10049_)) + (let ((__tmp10989 (macro-subtype-structure))) (declare (not safe)) - (##subtype-set! _obj9875_ __tmp10812)) - _obj9875_))) + (##subtype-set! _obj10052_ __tmp10989)) + _obj10052_))) (define make-struct-instance - (lambda (_klass9862_ . _args9863_) - (let* ((_fields9865_ + (lambda (_klass10039_ . _args10040_) + (let* ((_fields10042_ (let () (declare (not safe)) - (type-descriptor-fields _klass9862_))) - (_$e9867_ + (type-descriptor-fields _klass10039_))) + (_$e10044_ (let () (declare (not safe)) - (type-descriptor-ctor _klass9862_)))) - (if _$e9867_ - ((lambda (_kons-id9870_) - (let ((__tmp10814 + (type-descriptor-ctor _klass10039_)))) + (if _$e10044_ + ((lambda (_kons-id10047_) + (let ((__tmp10991 (let () (declare (not safe)) - (make-object _klass9862_ _fields9865_)))) + (make-object _klass10039_ _fields10042_)))) (declare (not safe)) (__constructor-init! - _klass9862_ - _kons-id9870_ - __tmp10814 - _args9863_))) - _$e9867_) - (if (let ((__tmp10813 (length _args9863_))) + _klass10039_ + _kons-id10047_ + __tmp10991 + _args10040_))) + _$e10044_) + (if (let ((__tmp10990 (length _args10040_))) (declare (not safe)) - (##fx= _fields9865_ __tmp10813)) - (apply ##structure _klass9862_ _args9863_) + (##fx= _fields10042_ __tmp10990)) + (apply ##structure _klass10039_ _args10040_) (error '"Arguments don't match object size" - _klass9862_ - _fields9865_ - _args9863_)))))) + _klass10039_ + _fields10042_ + _args10040_)))))) (define make-class-instance - (lambda (_klass9852_ . _args9853_) - (let* ((_obj9855_ - (let ((__tmp10815 + (lambda (_klass10029_ . _args10030_) + (let* ((_obj10032_ + (let ((__tmp10992 (let () (declare (not safe)) - (type-descriptor-fields _klass9852_)))) + (type-descriptor-fields _klass10029_)))) (declare (not safe)) - (make-object _klass9852_ __tmp10815))) - (_$e9857_ + (make-object _klass10029_ __tmp10992))) + (_$e10034_ (let () (declare (not safe)) - (type-descriptor-ctor _klass9852_)))) - (if _$e9857_ - ((lambda (_kons-id9860_) + (type-descriptor-ctor _klass10029_)))) + (if _$e10034_ + ((lambda (_kons-id10037_) (let () (declare (not safe)) (__constructor-init! - _klass9852_ - _kons-id9860_ - _obj9855_ - _args9853_))) - _$e9857_) + _klass10029_ + _kons-id10037_ + _obj10032_ + _args10030_))) + _$e10034_) (let () (declare (not safe)) - (__class-instance-init! _klass9852_ _obj9855_ _args9853_)))))) + (__class-instance-init! + _klass10029_ + _obj10032_ + _args10030_)))))) (define struct-instance-init! - (lambda (_obj9849_ . _args9850_) - (if (let ((__tmp10817 (length _args9850_)) - (__tmp10816 + (lambda (_obj10026_ . _args10027_) + (if (let ((__tmp10994 (length _args10027_)) + (__tmp10993 (let () (declare (not safe)) - (##structure-length _obj9849_)))) + (##structure-length _obj10026_)))) (declare (not safe)) - (##fx< __tmp10817 __tmp10816)) + (##fx< __tmp10994 __tmp10993)) (let () (declare (not safe)) - (__struct-instance-init! _obj9849_ _args9850_)) - (error '"Too many arguments for struct" _obj9849_ _args9850_)))) + (__struct-instance-init! _obj10026_ _args10027_)) + (error '"Too many arguments for struct" _obj10026_ _args10027_)))) (define __struct-instance-init! - (lambda (_obj9808_ _args9809_) - (let _lp9811_ ((_k9813_ '1) (_rest9814_ _args9809_)) - (let* ((_rest98159823_ _rest9814_) - (_else98179831_ (lambda () _obj9808_)) - (_K98199837_ - (lambda (_rest9834_ _hd9835_) + (lambda (_obj9985_ _args9986_) + (let _lp9988_ ((_k9990_ '1) (_rest9991_ _args9986_)) + (let* ((_rest999210000_ _rest9991_) + (_else999410008_ (lambda () _obj9985_)) + (_K999610014_ + (lambda (_rest10011_ _hd10012_) (let () (declare (not safe)) - (##vector-set! _obj9808_ _k9813_ _hd9835_)) - (let ((__tmp10818 - (let () (declare (not safe)) (##fx+ _k9813_ '1)))) + (##vector-set! _obj9985_ _k9990_ _hd10012_)) + (let ((__tmp10995 + (let () (declare (not safe)) (##fx+ _k9990_ '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_)) + (_lp9988_ __tmp10995 _rest10011_))))) + (if (let () (declare (not safe)) (##pair? _rest999210000_)) + (let ((_hd999710017_ + (let () (declare (not safe)) (##car _rest999210000_))) + (_tl999810019_ + (let () (declare (not safe)) (##cdr _rest999210000_)))) + (let* ((_hd10022_ _hd999710017_) (_rest10024_ _tl999810019_)) (declare (not safe)) - (_K98199837_ _rest9847_ _hd9845_))) - (let () (declare (not safe)) (_else98179831_))))))) + (_K999610014_ _rest10024_ _hd10022_))) + (let () (declare (not safe)) (_else999410008_))))))) (define class-instance-init! - (lambda (_obj9805_ . _args9806_) - (let ((__tmp10819 - (let () (declare (not safe)) (object-type _obj9805_)))) + (lambda (_obj9982_ . _args9983_) + (let ((__tmp10996 + (let () (declare (not safe)) (object-type _obj9982_)))) (declare (not safe)) - (__class-instance-init! __tmp10819 _obj9805_ _args9806_)))) + (__class-instance-init! __tmp10996 _obj9982_ _args9983_)))) (define __class-instance-init! - (lambda (_klass9749_ _obj9750_ _args9751_) - (let _lp9753_ ((_rest9755_ _args9751_)) - (let* ((_rest97569766_ _rest9755_) - (_else97589774_ + (lambda (_klass9926_ _obj9927_ _args9928_) + (let _lp9930_ ((_rest9932_ _args9928_)) + (let* ((_rest99339943_ _rest9932_) + (_else99359951_ (lambda () - (if (let () (declare (not safe)) (null? _rest9755_)) - _obj9750_ + (if (let () (declare (not safe)) (null? _rest9932_)) + _obj9927_ (error '"Unexpected class initializer arguments" - _rest9755_)))) - (_K97609786_ - (lambda (_rest9777_ _val9778_ _key9779_) - (let ((_$e9781_ + _rest9932_)))) + (_K99379963_ + (lambda (_rest9954_ _val9955_ _key9956_) + (let ((_$e9958_ (let () (declare (not safe)) - (class-slot-offset _klass9749_ _key9779_)))) - (if _$e9781_ - ((lambda (_off9784_) - (let ((__tmp10820 + (class-slot-offset _klass9926_ _key9956_)))) + (if _$e9958_ + ((lambda (_off9961_) + (let ((__tmp10997 (let () (declare (not safe)) - (##fx+ _off9784_ '1)))) + (##fx+ _off9961_ '1)))) (declare (not safe)) - (##vector-set! _obj9750_ __tmp10820 _val9778_)) + (##vector-set! _obj9927_ __tmp10997 _val9955_)) (let () (declare (not safe)) - (_lp9753_ _rest9777_))) - _$e9781_) + (_lp9930_ _rest9954_))) + _$e9958_) (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_ + _klass9926_ + _key9956_)))))) + (if (let () (declare (not safe)) (##pair? _rest99339943_)) + (let ((_hd99389966_ + (let () (declare (not safe)) (##car _rest99339943_))) + (_tl99399968_ + (let () (declare (not safe)) (##cdr _rest99339943_)))) + (let ((_key9971_ _hd99389966_)) + (if (let () (declare (not safe)) (##pair? _tl99399968_)) + (let ((_hd99409973_ (let () (declare (not safe)) - (##car _tl97629791_))) - (_tl97649798_ + (##car _tl99399968_))) + (_tl99419975_ (let () (declare (not safe)) - (##cdr _tl97629791_)))) - (let* ((_val9801_ _hd97639796_) - (_rest9803_ _tl97649798_)) + (##cdr _tl99399968_)))) + (let* ((_val9978_ _hd99409973_) + (_rest9980_ _tl99419975_)) (declare (not safe)) - (_K97609786_ _rest9803_ _val9801_ _key9794_))) - (let () (declare (not safe)) (_else97589774_))))) - (let () (declare (not safe)) (_else97589774_))))))) + (_K99379963_ _rest9980_ _val9978_ _key9971_))) + (let () (declare (not safe)) (_else99359951_))))) + (let () (declare (not safe)) (_else99359951_))))))) (define constructor-init! - (lambda (_klass9744_ _kons-id9745_ _obj9746_ . _args9747_) + (lambda (_klass9921_ _kons-id9922_ _obj9923_ . _args9924_) (let () (declare (not safe)) (__constructor-init! - _klass9744_ - _kons-id9745_ - _obj9746_ - _args9747_)))) + _klass9921_ + _kons-id9922_ + _obj9923_ + _args9924_)))) (define __constructor-init! - (lambda (_klass9734_ _kons-id9735_ _obj9736_ _args9737_) - (let ((_$e9739_ + (lambda (_klass9911_ _kons-id9912_ _obj9913_ _args9914_) + (let ((_$e9916_ (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 _klass9911_ _kons-id9912_)))) + (if _$e9916_ + ((lambda (_kons9919_) + (apply _kons9919_ _obj9913_ _args9914_) + _obj9913_) + _$e9916_) + (error '"Missing constructor" _klass9911_ _kons-id9912_))))) (define struct-copy - (lambda (_struct9732_) - (if (let () (declare (not safe)) (##structure? _struct9732_)) + (lambda (_struct9909_) + (if (let () (declare (not safe)) (##structure? _struct9909_)) '#!void - (error '"Not a structure" 'struct-copy _struct9732_)) - (let () (declare (not safe)) (##structure-copy _struct9732_)))) + (error '"Not a structure" 'struct-copy _struct9909_)) + (let () (declare (not safe)) (##structure-copy _struct9909_)))) (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 (_obj9907_) + (if (let () (declare (not safe)) (object? _obj9907_)) + (let () (declare (not safe)) (##vector->list _obj9907_)) + (error '"Not an object" _obj9907_)))) (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 (_obj9894_) + (if (let () (declare (not safe)) (object? _obj9894_)) + (let ((_klass9896_ + (let () (declare (not safe)) (object-type _obj9894_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass9896_)) + (let ((_$e9898_ (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 + (type-descriptor-slots _klass9896_)))) + (if _$e9898_ + ((lambda (_slots9901_) + (let ((__tmp10998 + (let ((__tmp10999 + (lambda (_slot9903_ _off9904_ _r9905_) + (if (keyword? _slot9903_) + (let ((__tmp11000 + (let ((__tmp11001 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (unchecked-field-ref _obj9717_ _off9727_)))) + (unchecked-field-ref _obj9894_ _off9904_)))) (declare (not safe)) - (cons __tmp10824 _r9728_)))) + (cons __tmp11001 _r9905_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _slot9726_ __tmp10823)) - _r9728_)))) + (cons _slot9903_ __tmp11000)) + _r9905_)))) (declare (not safe)) - (hash-fold __tmp10822 '() _slots9724_)))) + (hash-fold __tmp10999 '() _slots9901_)))) (declare (not safe)) - (cons _klass9719_ __tmp10821))) - _$e9721_) - (list _klass9719_))) - (error '"Not a class type" _obj9717_ _klass9719_))) - (error '"Not an object" _obj9717_)))) + (cons _klass9896_ __tmp10998))) + _$e9898_) + (list _klass9896_))) + (error '"Not a class type" _obj9894_ _klass9896_))) + (error '"Not an object" _obj9894_)))) (define unchecked-field-ref - (lambda (_obj9714_ _off9715_) - (let ((__tmp10825 (let () (declare (not safe)) (##fx+ _off9715_ '1)))) + (lambda (_obj9891_ _off9892_) + (let ((__tmp11002 (let () (declare (not safe)) (##fx+ _off9892_ '1)))) (declare (not safe)) - (##vector-ref _obj9714_ __tmp10825)))) + (##vector-ref _obj9891_ __tmp11002)))) (define unchecked-field-set! - (lambda (_obj9710_ _off9711_ _val9712_) - (let ((__tmp10826 (let () (declare (not safe)) (##fx+ _off9711_ '1)))) + (lambda (_obj9887_ _off9888_ _val9889_) + (let ((__tmp11003 (let () (declare (not safe)) (##fx+ _off9888_ '1)))) (declare (not safe)) - (##vector-set! _obj9710_ __tmp10826 _val9712_)))) + (##vector-set! _obj9887_ __tmp11003 _val9889_)))) (define unchecked-slot-ref - (lambda (_obj9707_ _slot9708_) - (let ((__tmp10827 - (let ((__tmp10828 - (let () (declare (not safe)) (object-type _obj9707_)))) + (lambda (_obj9884_ _slot9885_) + (let ((__tmp11004 + (let ((__tmp11005 + (let () (declare (not safe)) (object-type _obj9884_)))) (declare (not safe)) - (class-slot-offset __tmp10828 _slot9708_)))) + (class-slot-offset __tmp11005 _slot9885_)))) (declare (not safe)) - (unchecked-field-ref _obj9707_ __tmp10827)))) + (unchecked-field-ref _obj9884_ __tmp11004)))) (define unchecked-slot-set! - (lambda (_obj9703_ _slot9704_ _val9705_) - (let ((__tmp10829 - (let ((__tmp10830 - (let () (declare (not safe)) (object-type _obj9703_)))) + (lambda (_obj9880_ _slot9881_ _val9882_) + (let ((__tmp11006 + (let ((__tmp11007 + (let () (declare (not safe)) (object-type _obj9880_)))) (declare (not safe)) - (class-slot-offset __tmp10830 _slot9704_)))) + (class-slot-offset __tmp11007 _slot9881_)))) (declare (not safe)) - (unchecked-field-set! _obj9703_ __tmp10829 _val9705_)))) + (unchecked-field-set! _obj9880_ __tmp11006 _val9882_)))) (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 (_obj9856_ _slot9857_ _E9858_) + (if (let () (declare (not safe)) (object? _obj9856_)) + (let* ((_klass9860_ + (let () (declare (not safe)) (object-type _obj9856_))) + (_$e9863_ (if (let () (declare (not safe)) - (type-descriptor? _klass9683_)) + (type-descriptor? _klass9860_)) (let () (declare (not safe)) - (class-slot-offset _klass9683_ _slot9680_)) + (class-slot-offset _klass9860_ _slot9857_)) '#f))) - (if _$e9686_ - ((lambda (_off9689_) - (let ((__tmp10831 + (if _$e9863_ + ((lambda (_off9866_) + (let ((__tmp11008 (let () (declare (not safe)) - (##fx+ _off9689_ '1)))) + (##fx+ _off9866_ '1)))) (declare (not safe)) - (##vector-ref _obj9679_ __tmp10831))) - _$e9686_) - (_E9681_ _obj9679_ _slot9680_))) - (_E9681_ _obj9679_ _slot9680_)))) + (##vector-ref _obj9856_ __tmp11008))) + _$e9863_) + (_E9858_ _obj9856_ _slot9857_))) + (_E9858_ _obj9856_ _slot9857_)))) (define slot-ref__0 - (lambda (_obj9694_ _slot9695_) - (let ((_E9697_ __slot-error)) + (lambda (_obj9871_ _slot9872_) + (let ((_E9874_ __slot-error)) (declare (not safe)) - (slot-ref__% _obj9694_ _slot9695_ _E9697_)))) + (slot-ref__% _obj9871_ _slot9872_ _E9874_)))) (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 _g11010_ + (let ((_g11009_ (let () (declare (not safe)) (##length _g11010_)))) + (cond ((let () (declare (not safe)) (##fx= _g11009_ 2)) + (apply (lambda (_obj9871_ _slot9872_) (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 _obj9871_ _slot9872_))) + _g11010_)) + ((let () (declare (not safe)) (##fx= _g11009_ 3)) + (apply (lambda (_obj9876_ _slot9877_ _E9878_) (let () (declare (not safe)) - (slot-ref__% _obj9699_ _slot9700_ _E9701_))) - _g10833_)) + (slot-ref__% _obj9876_ _slot9877_ _E9878_))) + _g11010_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g10833_)))))) + _g11010_)))))) (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 (_obj9828_ _slot9829_ _val9830_ _E9831_) + (if (let () (declare (not safe)) (object? _obj9828_)) + (let* ((_klass9833_ + (let () (declare (not safe)) (object-type _obj9828_))) + (_$e9836_ (if (let () (declare (not safe)) - (type-descriptor? _klass9656_)) + (type-descriptor? _klass9833_)) (let () (declare (not safe)) - (class-slot-offset _klass9656_ _slot9652_)) + (class-slot-offset _klass9833_ _slot9829_)) '#f))) - (if _$e9659_ - ((lambda (_off9662_) - (let ((__tmp10834 + (if _$e9836_ + ((lambda (_off9839_) + (let ((__tmp11011 (let () (declare (not safe)) - (##fx+ _off9662_ '1)))) + (##fx+ _off9839_ '1)))) (declare (not safe)) - (##vector-set! _obj9651_ __tmp10834 _val9653_))) - _$e9659_) - (_E9654_ _obj9651_ _slot9652_))) - (_E9654_ _obj9651_ _slot9652_)))) + (##vector-set! _obj9828_ __tmp11011 _val9830_))) + _$e9836_) + (_E9831_ _obj9828_ _slot9829_))) + (_E9831_ _obj9828_ _slot9829_)))) (define slot-set!__0 - (lambda (_obj9667_ _slot9668_ _val9669_) - (let ((_E9671_ __slot-error)) + (lambda (_obj9844_ _slot9845_ _val9846_) + (let ((_E9848_ __slot-error)) (declare (not safe)) - (slot-set!__% _obj9667_ _slot9668_ _val9669_ _E9671_)))) + (slot-set!__% _obj9844_ _slot9845_ _val9846_ _E9848_)))) (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 _g11013_ + (let ((_g11012_ (let () (declare (not safe)) (##length _g11013_)))) + (cond ((let () (declare (not safe)) (##fx= _g11012_ 3)) + (apply (lambda (_obj9844_ _slot9845_ _val9846_) (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 _obj9844_ _slot9845_ _val9846_))) + _g11013_)) + ((let () (declare (not safe)) (##fx= _g11012_ 4)) + (apply (lambda (_obj9850_ _slot9851_ _val9852_ _E9853_) (let () (declare (not safe)) (slot-set!__% - _obj9673_ - _slot9674_ - _val9675_ - _E9676_))) - _g10836_)) + _obj9850_ + _slot9851_ + _val9852_ + _E9853_))) + _g11013_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g10836_)))))) + _g11013_)))))) (define __slot-error - (lambda (_obj9647_ _slot9648_) - (error '"Cannot find slot" _obj9647_ _slot9648_))) + (lambda (_obj9824_ _slot9825_) + (error '"Cannot find slot" _obj9824_ _slot9825_))) (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 (_obj9815_ _id9816_ . _args9817_) + (let ((_$e9819_ + (let () (declare (not safe)) (method-ref _obj9815_ _id9816_)))) + (if _$e9819_ + ((lambda (_method9822_) + (apply _method9822_ _obj9815_ _args9817_)) + _$e9819_) + (error '"Cannot find method" _obj9815_ _id9816_))))) (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 (_obj9812_ _id9813_) + (if (let () (declare (not safe)) (object? _obj9812_)) + (let ((__tmp11014 + (let () (declare (not safe)) (object-type _obj9812_)))) (declare (not safe)) - (find-method __tmp10837 _id9636_)) + (find-method __tmp11014 _id9813_)) '#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 (_obj9806_ _id9807_) + (let ((_$e9809_ + (let () (declare (not safe)) (method-ref _obj9806_ _id9807_)))) + (if _$e9809_ + _$e9809_ + (error '"Missing method" _obj9806_ _id9807_))))) (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 (_obj9796_ _id9797_) + (let ((_$e9799_ + (let () (declare (not safe)) (method-ref _obj9796_ _id9797_)))) + (if _$e9799_ + ((lambda (_method9802_) + (lambda _args9804_ (apply _method9802_ _obj9796_ _args9804_))) + _$e9799_) '#f)))) (define checked-bound-method-ref - (lambda (_obj9612_ _id9613_) - (let ((_method9615_ + (lambda (_obj9789_ _id9790_) + (let ((_method9792_ (let () (declare (not safe)) - (checked-method-ref _obj9612_ _id9613_)))) - (lambda _args9617_ (apply _method9615_ _obj9612_ _args9617_))))) + (checked-method-ref _obj9789_ _id9790_)))) + (lambda _args9794_ (apply _method9792_ _obj9789_ _args9794_))))) (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_ + (lambda (_klass9783_ _id9784_) + (if (let () (declare (not safe)) (type-descriptor? _klass9783_)) + (let () (declare (not safe)) (__find-method _klass9783_ _id9784_)) + (if (let () (declare (not safe)) (##type? _klass9783_)) + (let ((_$e9786_ (let () (declare (not safe)) - (builtin-method-ref _klass9606_ _id9607_)))) - (if _$e9609_ - _$e9609_ - (let ((__tmp10838 + (builtin-method-ref _klass9783_ _id9784_)))) + (if _$e9786_ + _$e9786_ + (let ((__tmp11015 (let () (declare (not safe)) - (##type-super _klass9606_)))) + (##type-super _klass9783_)))) (declare (not safe)) - (builtin-find-method __tmp10838 _id9607_)))) + (builtin-find-method __tmp11015 _id9784_)))) '#f)))) (define __find-method - (lambda (_klass9595_ _id9596_) - (let ((_$e9598_ + (lambda (_klass9772_ _id9773_) + (let ((_$e9775_ (let () (declare (not safe)) - (direct-method-ref _klass9595_ _id9596_)))) - (if _$e9598_ - _$e9598_ + (direct-method-ref _klass9772_ _id9773_)))) + (if _$e9775_ + _$e9775_ (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass9595_)) + (type-descriptor-sealed? _klass9772_)) '#f - (let ((_$e9601_ + (let ((_$e9778_ (let () (declare (not safe)) - (type-descriptor-mixin _klass9595_)))) - (if _$e9601_ - ((lambda (_mixin9604_) + (type-descriptor-mixin _klass9772_)))) + (if _$e9778_ + ((lambda (_mixin9781_) (let () (declare (not safe)) - (mixin-find-method _mixin9604_ _id9596_))) - _$e9601_) - (let ((__tmp10839 + (mixin-find-method _mixin9781_ _id9773_))) + _$e9778_) + (let ((__tmp11016 (let () (declare (not safe)) - (##type-super _klass9595_)))) + (##type-super _klass9772_)))) (declare (not safe)) - (struct-find-method __tmp10839 _id9596_))))))))) + (struct-find-method __tmp11016 _id9773_))))))))) (define struct-find-method - (lambda (_klass9586_ _id9587_) - (if (let () (declare (not safe)) (type-descriptor? _klass9586_)) - (let ((_$e9589_ + (lambda (_klass9763_ _id9764_) + (if (let () (declare (not safe)) (type-descriptor? _klass9763_)) + (let ((_$e9766_ (let () (declare (not safe)) - (direct-method-ref _klass9586_ _id9587_)))) - (if _$e9589_ - _$e9589_ - (let ((__tmp10841 + (direct-method-ref _klass9763_ _id9764_)))) + (if _$e9766_ + _$e9766_ + (let ((__tmp11018 (let () (declare (not safe)) - (##type-super _klass9586_)))) + (##type-super _klass9763_)))) (declare (not safe)) - (struct-find-method __tmp10841 _id9587_)))) - (if (let () (declare (not safe)) (##type? _klass9586_)) - (let ((_$e9592_ + (struct-find-method __tmp11018 _id9764_)))) + (if (let () (declare (not safe)) (##type? _klass9763_)) + (let ((_$e9769_ (let () (declare (not safe)) - (builtin-method-ref _klass9586_ _id9587_)))) - (if _$e9592_ - _$e9592_ - (let ((__tmp10840 + (builtin-method-ref _klass9763_ _id9764_)))) + (if _$e9769_ + _$e9769_ + (let ((__tmp11017 (let () (declare (not safe)) - (##type-super _klass9586_)))) + (##type-super _klass9763_)))) (declare (not safe)) - (builtin-find-method __tmp10840 _id9587_)))) + (builtin-find-method __tmp11017 _id9764_)))) '#f)))) (define class-find-method - (lambda (_klass9580_ _id9581_) - (if (let () (declare (not safe)) (type-descriptor? _klass9580_)) - (let ((_$e9583_ + (lambda (_klass9757_ _id9758_) + (if (let () (declare (not safe)) (type-descriptor? _klass9757_)) + (let ((_$e9760_ (let () (declare (not safe)) - (direct-method-ref _klass9580_ _id9581_)))) - (if _$e9583_ - _$e9583_ + (direct-method-ref _klass9757_ _id9758_)))) + (if _$e9760_ + _$e9760_ (let () (declare (not safe)) - (mixin-method-ref _klass9580_ _id9581_)))) + (mixin-method-ref _klass9757_ _id9758_)))) '#f))) (define mixin-find-method - (lambda (_mixin9537_ _id9538_) - (let _lp9540_ ((_rest9542_ _mixin9537_)) - (let* ((_rest95439551_ _rest9542_) - (_else95459559_ (lambda () '#f)) - (_K95479568_ - (lambda (_rest9562_ _klass9563_) - (let ((_$e9565_ + (lambda (_mixin9714_ _id9715_) + (let _lp9717_ ((_rest9719_ _mixin9714_)) + (let* ((_rest97209728_ _rest9719_) + (_else97229736_ (lambda () '#f)) + (_K97249745_ + (lambda (_rest9739_ _klass9740_) + (let ((_$e9742_ (let () (declare (not safe)) - (direct-method-ref _klass9563_ _id9538_)))) - (if _$e9565_ - _$e9565_ + (direct-method-ref _klass9740_ _id9715_)))) + (if _$e9742_ + _$e9742_ (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_)) + (_lp9717_ _rest9739_))))))) + (if (let () (declare (not safe)) (##pair? _rest97209728_)) + (let ((_hd97259748_ + (let () (declare (not safe)) (##car _rest97209728_))) + (_tl97269750_ + (let () (declare (not safe)) (##cdr _rest97209728_)))) + (let* ((_klass9753_ _hd97259748_) (_rest9755_ _tl97269750_)) (declare (not safe)) - (_K95479568_ _rest9578_ _klass9576_))) - (let () (declare (not safe)) (_else95459559_))))))) + (_K97249745_ _rest9755_ _klass9753_))) + (let () (declare (not safe)) (_else97229736_))))))) (define builtin-find-method - (lambda (_klass9531_ _id9532_) - (if (let () (declare (not safe)) (##type? _klass9531_)) - (let ((_$e9534_ + (lambda (_klass9708_ _id9709_) + (if (let () (declare (not safe)) (##type? _klass9708_)) + (let ((_$e9711_ (let () (declare (not safe)) - (builtin-method-ref _klass9531_ _id9532_)))) - (if _$e9534_ - _$e9534_ - (let ((__tmp10842 + (builtin-method-ref _klass9708_ _id9709_)))) + (if _$e9711_ + _$e9711_ + (let ((__tmp11019 (let () (declare (not safe)) - (##type-super _klass9531_)))) + (##type-super _klass9708_)))) (declare (not safe)) - (builtin-find-method __tmp10842 _id9532_)))) + (builtin-find-method __tmp11019 _id9709_)))) '#f))) (define direct-method-ref - (lambda (_klass9523_ _id9524_) - (let ((_$e9526_ + (lambda (_klass9700_ _id9701_) + (let ((_$e9703_ (let () (declare (not safe)) - (type-descriptor-methods _klass9523_)))) - (if _$e9526_ - ((lambda (_ht9529_) + (type-descriptor-methods _klass9700_)))) + (if _$e9703_ + ((lambda (_ht9706_) (let () (declare (not safe)) - (table-ref _ht9529_ _id9524_ '#f))) - _$e9526_) + (table-ref _ht9706_ _id9701_ '#f))) + _$e9703_) '#f)))) (define mixin-method-ref - (lambda (_klass9515_ _id9516_) - (let ((_$e9518_ + (lambda (_klass9692_ _id9693_) + (let ((_$e9695_ (let () (declare (not safe)) - (type-descriptor-mixin _klass9515_)))) - (if _$e9518_ - ((lambda (_mixin9521_) + (type-descriptor-mixin _klass9692_)))) + (if _$e9695_ + ((lambda (_mixin9698_) (let () (declare (not safe)) - (mixin-find-method _mixin9521_ _id9516_))) - _$e9518_) + (mixin-find-method _mixin9698_ _id9693_))) + _$e9695_) '#f)))) (define builtin-method-ref - (lambda (_klass9507_ _id9508_) - (let ((_$e9510_ - (let ((__tmp10843 - (let () (declare (not safe)) (##type-id _klass9507_)))) + (lambda (_klass9684_ _id9685_) + (let ((_$e9687_ + (let ((__tmp11020 + (let () (declare (not safe)) (##type-id _klass9684_)))) (declare (not safe)) - (table-ref __builtin-type-methods __tmp10843 '#f)))) - (if _$e9510_ - ((lambda (_mtab9513_) + (table-ref __builtin-type-methods __tmp11020 '#f)))) + (if _$e9687_ + ((lambda (_mtab9690_) (let () (declare (not safe)) - (table-ref _mtab9513_ _id9508_ '#f))) - _$e9510_) + (table-ref _mtab9690_ _id9685_ '#f))) + _$e9687_) '#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 (_klass9650_ _id9651_ _proc9652_ _rebind?9653_) + (letrec ((_bind!9655_ + (lambda (_ht9668_) + (if (and (let () (declare (not safe)) (not _rebind?9653_)) (let () (declare (not safe)) - (table-ref _ht9491_ _id9474_ '#f))) - (error '"Method already bound" _klass9473_ _id9474_) + (table-ref _ht9668_ _id9651_ '#f))) + (error '"Method already bound" _klass9650_ _id9651_) (let () (declare (not safe)) - (table-set! _ht9491_ _id9474_ _proc9475_)))))) - (if (let () (declare (not safe)) (procedure? _proc9475_)) + (table-set! _ht9668_ _id9651_ _proc9652_)))))) + (if (let () (declare (not safe)) (procedure? _proc9652_)) '#!void - (error '"Bad method; expected procedure" _proc9475_)) - (if (let () (declare (not safe)) (type-descriptor? _klass9473_)) - (let ((_ht9480_ + (error '"Bad method; expected procedure" _proc9652_)) + (if (let () (declare (not safe)) (type-descriptor? _klass9650_)) + (let ((_ht9657_ (let () (declare (not safe)) - (type-descriptor-methods _klass9473_)))) - (if _ht9480_ - (let () (declare (not safe)) (_bind!9478_ _ht9480_)) - (let ((_ht9482_ + (type-descriptor-methods _klass9650_)))) + (if _ht9657_ + (let () (declare (not safe)) (_bind!9655_ _ht9657_)) + (let ((_ht9659_ (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! _klass9650_ _ht9659_)) + (let () (declare (not safe)) (_bind!9655_ _ht9659_))))) + (if (let () (declare (not safe)) (##type? _klass9650_)) + (let ((_ht9666_ + (let ((_$e9661_ + (let ((__tmp11021 (let () (declare (not safe)) - (##type-id _klass9473_)))) + (##type-id _klass9650_)))) (declare (not safe)) (table-ref __builtin-type-methods - __tmp10844 + __tmp11021 '#f)))) - (if _$e9484_ - _$e9484_ - (let ((_ht9487_ + (if _$e9661_ + _$e9661_ + (let ((_ht9664_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp10845 + (let ((__tmp11022 (let () (declare (not safe)) - (##type-id _klass9473_)))) + (##type-id _klass9650_)))) (declare (not safe)) (table-set! __builtin-type-methods - __tmp10845 - _ht9487_)) - _ht9487_))))) + __tmp11022 + _ht9664_)) + _ht9664_))))) (declare (not safe)) - (_bind!9478_ _ht9489_)) + (_bind!9655_ _ht9666_)) (error '"Bad class; expected type-descriptor" - _klass9473_)))))) + _klass9650_)))))) (define bind-method!__0 - (lambda (_klass9496_ _id9497_ _proc9498_) - (let ((_rebind?9500_ '#t)) + (lambda (_klass9673_ _id9674_ _proc9675_) + (let ((_rebind?9677_ '#t)) (declare (not safe)) - (bind-method!__% _klass9496_ _id9497_ _proc9498_ _rebind?9500_)))) + (bind-method!__% _klass9673_ _id9674_ _proc9675_ _rebind?9677_)))) (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 _g11024_ + (let ((_g11023_ (let () (declare (not safe)) (##length _g11024_)))) + (cond ((let () (declare (not safe)) (##fx= _g11023_ 3)) + (apply (lambda (_klass9673_ _id9674_ _proc9675_) (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 _klass9673_ _id9674_ _proc9675_))) + _g11024_)) + ((let () (declare (not safe)) (##fx= _g11023_ 4)) + (apply (lambda (_klass9679_ _id9680_ _proc9681_ _rebind?9682_) (let () (declare (not safe)) (bind-method!__% - _klass9502_ - _id9503_ - _proc9504_ - _rebind?9505_))) - _g10847_)) + _klass9679_ + _id9680_ + _proc9681_ + _rebind?9682_))) + _g11024_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g10847_)))))) + _g11024_)))))) (define __method-specializers (make-table 'test: eq?)) (define bind-specializer! - (lambda (_proc9469_ _specializer9470_) + (lambda (_proc9646_ _specializer9647_) (let () (declare (not safe)) - (table-set! __method-specializers _proc9469_ _specializer9470_)))) + (table-set! __method-specializers _proc9646_ _specializer9647_)))) (define seal-class! - (lambda (_klass9384_) - (letrec ((_collect-methods!9386_ - (lambda (_mtab9402_) - (letrec ((_merge!9404_ - (lambda (_tab9464_) - (let ((__tmp10848 - (lambda (_id9466_ _proc9467_) + (lambda (_klass9561_) + (letrec ((_collect-methods!9563_ + (lambda (_mtab9579_) + (letrec ((_merge!9581_ + (lambda (_tab9641_) + (let ((__tmp11025 + (lambda (_id9643_ _proc9644_) (let () (declare (not safe)) (table-set! - _mtab9402_ - _id9466_ - _proc9467_))))) + _mtab9579_ + _id9643_ + _proc9644_))))) (declare (not safe)) - (table-for-each __tmp10848 _tab9464_)))) - (_collect-direct-methods!9405_ - (lambda (_klass9459_) - (let ((_$e9461_ + (table-for-each __tmp11025 _tab9641_)))) + (_collect-direct-methods!9582_ + (lambda (_klass9636_) + (let ((_$e9638_ (let () (declare (not safe)) (type-descriptor-methods - _klass9459_)))) - (if _$e9461_ + _klass9636_)))) + (if _$e9638_ (let () (declare (not safe)) - (_merge!9404_ _$e9461_)) + (_merge!9581_ _$e9638_)) '#!void))))) - (let ((_$e9407_ + (let ((_$e9584_ (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_) + (type-descriptor-mixin _klass9561_)))) + (if _$e9584_ + ((lambda (_mixin9587_) + (let _recur9589_ ((_rest9591_ _mixin9587_)) + (let* ((_rest95929600_ _rest9591_) + (_else95949608_ (lambda () '#!void)) + (_K95969617_ + (lambda (_rest9611_ _klass9612_) (let () (declare (not safe)) - (_recur9412_ _rest9434_)) + (_recur9589_ _rest9611_)) (if (let () (declare (not safe)) (type-descriptor? - _klass9435_)) + _klass9612_)) (let () (declare (not safe)) - (_collect-direct-methods!9405_ - _klass9435_)) - (let ((_$e9437_ + (_collect-direct-methods!9582_ + _klass9612_)) + (let ((_$e9614_ (if (let () (declare (not safe)) - (##type? _klass9435_)) - (let ((__tmp10852 + (##type? _klass9612_)) + (let ((__tmp11029 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##type-id _klass9435_)))) + (##type-id _klass9612_)))) (declare (not safe)) - (table-ref __builtin-type-methods __tmp10852 '#f)) + (table-ref __builtin-type-methods __tmp11029 '#f)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e9437_ + (if _$e9614_ (let () (declare (not safe)) - (_merge!9404_ _$e9437_)) + (_merge!9581_ _$e9614_)) '#!void)))))) (if (let () (declare (not safe)) - (##pair? _rest94159423_)) - (let ((_hd94209443_ + (##pair? _rest95929600_)) + (let ((_hd95979620_ (let () (declare (not safe)) - (##car _rest94159423_))) - (_tl94219445_ + (##car _rest95929600_))) + (_tl95989622_ (let () (declare (not safe)) - (##cdr _rest94159423_)))) - (let* ((_klass9448_ _hd94209443_) - (_rest9450_ _tl94219445_)) + (##cdr _rest95929600_)))) + (let* ((_klass9625_ _hd95979620_) + (_rest9627_ _tl95989622_)) (declare (not safe)) - (_K94199440_ - _rest9450_ - _klass9448_))) + (_K95969617_ + _rest9627_ + _klass9625_))) '#!void)))) - _$e9407_) - (let _recur9452_ ((_klass9454_ + _$e9584_) + (let _recur9629_ ((_klass9631_ (let () (declare (not safe)) - (##type-super _klass9384_)))) + (##type-super _klass9561_)))) (if (let () (declare (not safe)) - (type-descriptor? _klass9454_)) + (type-descriptor? _klass9631_)) (begin - (let ((__tmp10851 + (let ((__tmp11028 (let () (declare (not safe)) - (##type-super _klass9454_)))) + (##type-super _klass9631_)))) (declare (not safe)) - (_recur9452_ __tmp10851)) + (_recur9629_ __tmp11028)) (let () (declare (not safe)) - (_collect-direct-methods!9405_ - _klass9454_))) + (_collect-direct-methods!9582_ + _klass9631_))) (if (let () (declare (not safe)) - (##type? _klass9454_)) + (##type? _klass9631_)) (begin - (let ((__tmp10849 + (let ((__tmp11026 (let () (declare (not safe)) - (##type-super _klass9454_)))) + (##type-super _klass9631_)))) (declare (not safe)) - (_recur9452_ __tmp10849)) - (let ((_$e9456_ - (let ((__tmp10850 + (_recur9629_ __tmp11026)) + (let ((_$e9633_ + (let ((__tmp11027 (let () (declare (not safe)) (##type-id - _klass9454_)))) + _klass9631_)))) (declare (not safe)) (table-ref __builtin-type-methods - __tmp10850 + __tmp11027 '#f)))) - (if _$e9456_ + (if _$e9633_ (let () (declare (not safe)) - (_merge!9404_ _$e9456_)) + (_merge!9581_ _$e9633_)) '#!void))) '#!void))))) (let () (declare (not safe)) - (_collect-direct-methods!9405_ _klass9384_)))))) - (if (let () (declare (not safe)) (type-descriptor? _klass9384_)) + (_collect-direct-methods!9582_ _klass9561_)))))) + (if (let () (declare (not safe)) (type-descriptor? _klass9561_)) (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass9384_)) + (type-descriptor-sealed? _klass9561_)) '#!void (begin - (if (let ((__tmp10853 + (if (let ((__tmp11030 (let () (declare (not safe)) - (type-descriptor-plist _klass9384_)))) + (type-descriptor-plist _klass9561_)))) (declare (not safe)) - (assgetq 'final: __tmp10853)) + (assgetq 'final: __tmp11030)) '#!void - (error '"Cannot seal non-final class" _klass9384_)) - (let ((_vtab9388_ + (error '"Cannot seal non-final class" _klass9561_)) + (let ((_vtab9565_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_mtab9389_ + (_mtab9566_ (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!9563_ _mtab9566_)) + (let ((__tmp11031 + (lambda (_id9568_ _proc9569_) + (let ((_$e9571_ (let () (declare (not safe)) (table-ref __method-specializers - _proc9392_ + _proc9569_ '#f)))) - (if _$e9394_ - ((lambda (_specializer9397_) - (let ((_proc9399_ - (_specializer9397_ _klass9384_)) - (_gid9400_ - (let ((__tmp10855 + (if _$e9571_ + ((lambda (_specializer9574_) + (let ((_proc9576_ + (_specializer9574_ _klass9561_)) + (_gid9577_ + (let ((__tmp11032 (let () (declare (not safe)) (##type-id - _klass9384_)))) + _klass9561_)))) (declare (not safe)) (make-symbol__1 - __tmp10855 + __tmp11032 '"::[" - _id9391_ + _id9568_ '"]")))) - (eval (let ((__tmp10856 - (let ((__tmp10857 - (let ((__tmp10858 + (eval (let ((__tmp11033 + (let ((__tmp11034 + (let ((__tmp11035 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10859 + (let ((__tmp11036 (let () (declare (not safe)) - (cons _proc9399_ '())))) + (cons _proc9576_ '())))) (declare (not safe)) - (cons 'quote __tmp10859)))) + (cons 'quote __tmp11036)))) (declare (not safe)) - (cons __tmp10858 '())))) + (cons __tmp11035 '())))) (declare (not safe)) - (cons _gid9400_ __tmp10857)))) + (cons _gid9577_ __tmp11034)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'def __tmp10856))) + (cons 'def __tmp11033))) (let () (declare (not safe)) (table-set! - _vtab9388_ - _id9391_ - _proc9399_)))) - _$e9394_) + _vtab9565_ + _id9568_ + _proc9576_)))) + _$e9571_) (let () (declare (not safe)) (table-set! - _vtab9388_ - _id9391_ - _proc9392_))))))) + _vtab9565_ + _id9568_ + _proc9569_))))))) (declare (not safe)) - (table-for-each __tmp10854 _mtab9389_)) + (table-for-each __tmp11031 _mtab9566_)) (let () (declare (not safe)) - (type-descriptor-methods-set! _klass9384_ _vtab9388_)) + (type-descriptor-methods-set! _klass9561_ _vtab9565_)) (let () (declare (not safe)) - (type-descriptor-seal! _klass9384_))))) + (type-descriptor-seal! _klass9561_))))) '#!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_ + (lambda (_subklass9498_ _obj9499_ _id9500_) + (let ((_klass9502_ + (let () (declare (not safe)) (object-type _obj9499_))) + (_type-id9503_ + (let () (declare (not safe)) (##type-id _subklass9498_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass9502_)) + (let ((_$e9505_ (let () (declare (not safe)) - (type-descriptor-mixin _klass9325_)))) - (if _$e9328_ - ((lambda (_mixin9331_) - (let _lp9333_ ((_rest9335_ + (type-descriptor-mixin _klass9502_)))) + (if _$e9505_ + ((lambda (_mixin9508_) + (let _lp9510_ ((_rest9512_ (let () (declare (not safe)) - (cons _klass9325_ _mixin9331_)))) - (let* ((_rest93369344_ _rest9335_) - (_else93389352_ (lambda () '#f)) - (_K93409358_ - (lambda (_rest9355_ _klass9356_) - (if (let ((__tmp10864 + (cons _klass9502_ _mixin9508_)))) + (let* ((_rest95139521_ _rest9512_) + (_else95159529_ (lambda () '#f)) + (_K95179535_ + (lambda (_rest9532_ _klass9533_) + (if (let ((__tmp11041 (let () (declare (not safe)) - (##type-id _klass9356_)))) + (##type-id _klass9533_)))) (declare (not safe)) - (eq? _type-id9326_ __tmp10864)) + (eq? _type-id9503_ __tmp11041)) (let () (declare (not safe)) (mixin-find-method - _rest9355_ - _id9323_)) + _rest9532_ + _id9500_)) (let () (declare (not safe)) - (_lp9333_ _rest9355_)))))) + (_lp9510_ _rest9532_)))))) (if (let () (declare (not safe)) - (##pair? _rest93369344_)) - (let ((_hd93419361_ + (##pair? _rest95139521_)) + (let ((_hd95189538_ (let () (declare (not safe)) - (##car _rest93369344_))) - (_tl93429363_ + (##car _rest95139521_))) + (_tl95199540_ (let () (declare (not safe)) - (##cdr _rest93369344_)))) - (let* ((_klass9366_ _hd93419361_) - (_rest9368_ _tl93429363_)) + (##cdr _rest95139521_)))) + (let* ((_klass9543_ _hd95189538_) + (_rest9545_ _tl95199540_)) (declare (not safe)) - (_K93409358_ _rest9368_ _klass9366_))) + (_K95179535_ _rest9545_ _klass9543_))) (let () (declare (not safe)) - (_else93389352_)))))) - _$e9328_) - (let _lp9370_ ((_klass9372_ _klass9325_)) - (if (let ((__tmp10863 + (_else95159529_)))))) + _$e9505_) + (let _lp9547_ ((_klass9549_ _klass9502_)) + (if (let ((__tmp11040 (let () (declare (not safe)) - (##type-id _klass9372_)))) + (##type-id _klass9549_)))) (declare (not safe)) - (eq? _type-id9326_ __tmp10863)) - (let ((__tmp10862 + (eq? _type-id9503_ __tmp11040)) + (let ((__tmp11039 (let () (declare (not safe)) - (##type-super _klass9372_)))) + (##type-super _klass9549_)))) (declare (not safe)) - (struct-find-method __tmp10862 _id9323_)) - (let ((_$e9374_ + (struct-find-method __tmp11039 _id9500_)) + (let ((_$e9551_ (let () (declare (not safe)) - (##type-super _klass9372_)))) - (if _$e9374_ + (##type-super _klass9549_)))) + (if _$e9551_ (let () (declare (not safe)) - (_lp9370_ _$e9374_)) + (_lp9547_ _$e9551_)) '#f)))))) - (if (let () (declare (not safe)) (##type? _klass9325_)) - (let _lp9377_ ((_klass9379_ _klass9325_)) - (if (let ((__tmp10861 + (if (let () (declare (not safe)) (##type? _klass9502_)) + (let _lp9554_ ((_klass9556_ _klass9502_)) + (if (let ((__tmp11038 (let () (declare (not safe)) - (##type-id _klass9379_)))) + (##type-id _klass9556_)))) (declare (not safe)) - (eq? _type-id9326_ __tmp10861)) - (let ((__tmp10860 + (eq? _type-id9503_ __tmp11038)) + (let ((__tmp11037 (let () (declare (not safe)) - (##type-super _klass9379_)))) + (##type-super _klass9556_)))) (declare (not safe)) - (builtin-find-method __tmp10860 _id9323_)) - (let ((_$e9381_ + (builtin-find-method __tmp11037 _id9500_)) + (let ((_$e9558_ (let () (declare (not safe)) - (##type-super _klass9379_)))) - (if _$e9381_ - (let () (declare (not safe)) (_lp9377_ _$e9381_)) + (##type-super _klass9556_)))) + (if _$e9558_ + (let () (declare (not safe)) (_lp9554_ _$e9558_)) '#f)))) '#f))))) (define call-next-method - (lambda (_subklass9311_ _obj9312_ _id9313_ . _args9314_) - (let ((_$e9316_ + (lambda (_subklass9488_ _obj9489_ _id9490_ . _args9491_) + (let ((_$e9493_ (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 _subklass9488_ _obj9489_ _id9490_)))) + (if _$e9493_ + ((lambda (_methodf9496_) + (apply _methodf9496_ _obj9489_ _args9491_)) + _$e9493_) + (error '"Cannot find next method" _obj9489_ _id9490_))))) + (define write-style (lambda (_we9486_) (macro-writeenv-style _we9486_))) (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 (_we9478_ _obj9479_) + (let ((_$e9481_ + (let () (declare (not safe)) (method-ref _obj9479_ ':wr)))) + (if _$e9481_ + ((lambda (_method9484_) (_method9484_ _obj9479_ _we9478_)) + _$e9481_) (let () (declare (not safe)) - (##default-wr _we9301_ _obj9302_)))))) + (##default-wr _we9478_ _obj9479_)))))) (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..c50e74e45c 100644 --- a/src/bootstrap/gerbil/runtime/mop__1.scm +++ b/src/bootstrap/gerbil/runtime/mop__1.scm @@ -1,226 +1,226 @@ (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 (_$stx9360_) + (let* ((_g93649390_ + (lambda (_g93659386_) + (gx#raise-syntax-error '#f '"Bad syntax" _g93659386_))) + (_g93639474_ + (lambda (_g93659394_) + (if (gx#stx-pair? _g93659394_) + (let ((_e93729397_ (gx#syntax-e _g93659394_))) + (let ((_hd93719401_ + (let () (declare (not safe)) (##car _e93729397_))) + (_tl93709404_ + (let () (declare (not safe)) (##cdr _e93729397_)))) + (if (gx#stx-pair? _tl93709404_) + (let ((_e93759407_ (gx#syntax-e _tl93709404_))) + (let ((_hd93749411_ (let () (declare (not safe)) - (##car _e91989230_))) - (_tl91969237_ + (##car _e93759407_))) + (_tl93739414_ (let () (declare (not safe)) - (##cdr _e91989230_)))) - (if (gx#stx-pair? _tl91969237_) - (let ((_e92019240_ - (gx#syntax-e _tl91969237_))) - (let ((_hd92009244_ + (##cdr _e93759407_)))) + (if (gx#stx-pair? _tl93739414_) + (let ((_e93789417_ + (gx#syntax-e _tl93739414_))) + (let ((_hd93779421_ (let () (declare (not safe)) - (##car _e92019240_))) - (_tl91999247_ + (##car _e93789417_))) + (_tl93769424_ (let () (declare (not safe)) - (##cdr _e92019240_)))) - (if (gx#stx-pair? _tl91999247_) - (let ((_e92049250_ - (gx#syntax-e _tl91999247_))) - (let ((_hd92039254_ + (##cdr _e93789417_)))) + (if (gx#stx-pair? _tl93769424_) + (let ((_e93819427_ + (gx#syntax-e _tl93769424_))) + (let ((_hd93809431_ (let () (declare (not safe)) - (##car _e92049250_))) - (_tl92029257_ + (##car _e93819427_))) + (_tl93799434_ (let () (declare (not safe)) - (##cdr _e92049250_)))) - (if (gx#stx-pair? _tl92029257_) - (let ((_e92079260_ + (##cdr _e93819427_)))) + (if (gx#stx-pair? _tl93799434_) + (let ((_e93849437_ (gx#syntax-e - _tl92029257_))) - (let ((_hd92069264_ + _tl93799434_))) + (let ((_hd93839441_ (let () (declare (not safe)) - (##car _e92079260_))) - (_tl92059267_ + (##car _e93849437_))) + (_tl93829444_ (let () (declare (not safe)) - (##cdr _e92079260_)))) + (##cdr _e93849437_)))) (if (gx#stx-null? - _tl92059267_) - ((lambda (_L9270_ + _tl93829444_) + ((lambda (_L9447_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L9272_ - _L9273_ - _L9274_) - (let ((__tmp10911 (gx#datum->syntax '#f 'if)) - (__tmp10865 - (let ((__tmp10908 - (let ((__tmp10910 + _L9449_ + _L9450_ + _L9451_) + (let ((__tmp11088 (gx#datum->syntax '#f 'if)) + (__tmp11042 + (let ((__tmp11085 + (let ((__tmp11087 (gx#datum->syntax '#f 'object?)) - (__tmp10909 + (__tmp11086 (let () (declare (not safe)) - (cons _L9274_ '())))) + (cons _L9451_ '())))) (declare (not safe)) - (cons __tmp10910 __tmp10909))) - (__tmp10866 - (let ((__tmp10871 - (let ((__tmp10907 + (cons __tmp11087 __tmp11086))) + (__tmp11043 + (let ((__tmp11048 + (let ((__tmp11084 (gx#datum->syntax '#f 'let)) - (__tmp10872 - (let ((__tmp10901 - (let ((__tmp10906 + (__tmp11049 + (let ((__tmp11078 + (let ((__tmp11083 (gx#datum->syntax '#f 'klass)) - (__tmp10902 - (let ((__tmp10903 + (__tmp11079 + (let ((__tmp11080 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10905 + (let ((__tmp11082 (gx#datum->syntax '#f 'object-type)) - (__tmp10904 + (__tmp11081 (let () (declare (not safe)) - (cons _L9274_ '())))) + (cons _L9451_ '())))) (declare (not safe)) - (cons __tmp10905 __tmp10904)))) + (cons __tmp11082 __tmp11081)))) (declare (not safe)) - (cons __tmp10903 '())))) + (cons __tmp11080 '())))) (declare (not safe)) - (cons __tmp10906 __tmp10902))) - (__tmp10873 - (let ((__tmp10874 - (let ((__tmp10900 (gx#datum->syntax '#f 'cond)) - (__tmp10875 - (let ((__tmp10883 - (let ((__tmp10887 - (let ((__tmp10899 + (cons __tmp11083 __tmp11079))) + (__tmp11050 + (let ((__tmp11051 + (let ((__tmp11077 (gx#datum->syntax '#f 'cond)) + (__tmp11052 + (let ((__tmp11060 + (let ((__tmp11064 + (let ((__tmp11076 (gx#datum->syntax '#f 'and)) - (__tmp10888 - (let ((__tmp10895 - (let ((__tmp10898 + (__tmp11065 + (let ((__tmp11072 + (let ((__tmp11075 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'type-descriptor?)) - (__tmp10896 - (let ((__tmp10897 (gx#datum->syntax '#f 'klass))) + (__tmp11073 + (let ((__tmp11074 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp10897 '())))) + (cons __tmp11074 '())))) (declare (not safe)) - (cons __tmp10898 __tmp10896))) - (__tmp10889 - (let ((__tmp10890 - (let ((__tmp10894 + (cons __tmp11075 __tmp11073))) + (__tmp11066 + (let ((__tmp11067 + (let ((__tmp11071 (gx#datum->syntax '#f 'class-slot-offset)) - (__tmp10891 - (let ((__tmp10893 + (__tmp11068 + (let ((__tmp11070 (gx#datum->syntax '#f 'klass)) - (__tmp10892 + (__tmp11069 (let () (declare (not safe)) - (cons _L9273_ '())))) + (cons _L9450_ '())))) (declare (not safe)) - (cons __tmp10893 __tmp10892)))) + (cons __tmp11070 __tmp11069)))) (declare (not safe)) - (cons __tmp10894 __tmp10891)))) + (cons __tmp11071 __tmp11068)))) (declare (not safe)) - (cons __tmp10890 '())))) + (cons __tmp11067 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10895 - __tmp10889)))) + (cons __tmp11072 + __tmp11066)))) (declare (not safe)) - (cons __tmp10899 __tmp10888))) - (__tmp10884 - (let ((__tmp10886 + (cons __tmp11076 __tmp11065))) + (__tmp11061 + (let ((__tmp11063 (gx#datum->syntax '#f '=>)) - (__tmp10885 + (__tmp11062 (let () (declare (not safe)) - (cons _L9272_ '())))) + (cons _L9449_ '())))) (declare (not safe)) - (cons __tmp10886 __tmp10885)))) + (cons __tmp11063 __tmp11062)))) (declare (not safe)) - (cons __tmp10887 __tmp10884))) - (__tmp10876 - (let ((__tmp10877 - (let ((__tmp10882 + (cons __tmp11064 __tmp11061))) + (__tmp11053 + (let ((__tmp11054 + (let ((__tmp11059 (gx#datum->syntax '#f 'else)) - (__tmp10878 - (let ((__tmp10879 - (let ((__tmp10880 + (__tmp11055 + (let ((__tmp11056 + (let ((__tmp11057 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp10881 + (let ((__tmp11058 (let () (declare (not safe)) - (cons _L9273_ '())))) + (cons _L9450_ '())))) (declare (not safe)) - (cons _L9274_ __tmp10881)))) + (cons _L9451_ __tmp11058)))) (declare (not safe)) - (cons _L9270_ __tmp10880)))) + (cons _L9447_ __tmp11057)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10879 '())))) + (cons __tmp11056 '())))) (declare (not safe)) - (cons __tmp10882 __tmp10878)))) + (cons __tmp11059 __tmp11055)))) (declare (not safe)) - (cons __tmp10877 '())))) + (cons __tmp11054 '())))) (declare (not safe)) - (cons __tmp10883 __tmp10876)))) + (cons __tmp11060 __tmp11053)))) (declare (not safe)) - (cons __tmp10900 __tmp10875)))) + (cons __tmp11077 __tmp11052)))) (declare (not safe)) - (cons __tmp10874 '())))) + (cons __tmp11051 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp10901 - __tmp10873)))) + (cons __tmp11078 + __tmp11050)))) (declare (not safe)) - (cons __tmp10907 __tmp10872))) - (__tmp10867 - (let ((__tmp10868 - (let ((__tmp10869 - (let ((__tmp10870 + (cons __tmp11084 __tmp11049))) + (__tmp11044 + (let ((__tmp11045 + (let ((__tmp11046 + (let ((__tmp11047 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L9273_ '())))) + (cons _L9450_ '())))) (declare (not safe)) - (cons _L9274_ __tmp10870)))) + (cons _L9451_ __tmp11047)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L9270_ __tmp10869)))) + (cons _L9447_ __tmp11046)))) (declare (not safe)) - (cons __tmp10868 '())))) + (cons __tmp11045 '())))) (declare (not safe)) - (cons __tmp10871 __tmp10867)))) + (cons __tmp11048 __tmp11044)))) (declare (not safe)) - (cons __tmp10908 __tmp10866)))) + (cons __tmp11085 __tmp11043)))) (declare (not safe)) - (cons __tmp10911 __tmp10865))) - _hd92069264_ - _hd92039254_ - _hd92009244_ - _hd91979234_) - (_g91879213_ _g91889217_)))) + (cons __tmp11088 __tmp11042))) + _hd93839441_ + _hd93809431_ + _hd93779421_ + _hd93749411_) + (_g93649390_ _g93659394_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g91879213_ _g91889217_)))) - (_g91879213_ _g91889217_)))) - (_g91879213_ _g91889217_)))) - (_g91879213_ _g91889217_)))) - (_g91879213_ _g91889217_))))) - (_g91869297_ _$stx9183_)))) + (_g93649390_ _g93659394_)))) + (_g93649390_ _g93659394_)))) + (_g93649390_ _g93659394_)))) + (_g93649390_ _g93659394_)))) + (_g93649390_ _g93659394_))))) + (_g93639474_ _$stx9360_)))) diff --git a/src/bootstrap/gerbil/runtime/repl__0.scm b/src/bootstrap/gerbil/runtime/repl__0.scm index 6d2a29d3f5..6356c34f11 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 1698333193) (define replx (lambda () - (letrec ((_write-reason18218_ - (lambda (_exn18224_) - (lambda (_cont18226_ _port18227_) + (letrec ((_write-reason18395_ + (lambda (_exn18401_) + (lambda (_cont18403_ _port18404_) (let () (declare (not safe)) (##display-exception-in-context - _exn18224_ - _cont18226_ - _port18227_)) + _exn18401_ + _cont18403_ + _port18404_)) '#f)))) (with-exception-handler - (lambda (_exn18220_) - (let ((__tmp18228 - (lambda (_cont18222_) - (let ((__tmp18229 + (lambda (_exn18397_) + (let ((__tmp18405 + (lambda (_cont18399_) + (let ((__tmp18406 (let () (declare (not safe)) - (_write-reason18218_ _exn18220_)))) + (_write-reason18395_ _exn18397_)))) (declare (not safe)) - (##repl-within _cont18222_ __tmp18229 _exn18220_))))) + (##repl-within _cont18399_ __tmp18406 _exn18397_))))) (declare (not safe)) - (##continuation-capture __tmp18228))) + (##continuation-capture __tmp18405))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index d0a8665eb1..ef303055c9 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 1698333192) (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 _$args14959_ + (apply make-class-instance SyntaxError::t _$args14959_))) (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 (_self14862_ _port14863_) + (letrec ((_location14865_ (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 _lp14919_ ((_rest14921_ + (slot-ref _self14862_ 'irritants))) + (let* ((_rest1492214930_ _rest14921_) + (_else1492414938_ (lambda () '#f)) + (_K1492614947_ + (lambda (_rest14941_ _hd14942_) + (let ((_$e14944_ (__AST-source _hd14942_))) + (if _$e14944_ + _$e14944_ + (_lp14919_ _rest14941_)))))) + (if (##pair? _rest1492214930_) + (let ((_hd1492714950_ (##car _rest1492214930_)) + (_tl1492814952_ (##cdr _rest1492214930_))) + (let* ((_hd14955_ _hd1492714950_) + (_rest14957_ _tl1492814952_)) + (_K1492614947_ _rest14957_ _hd14955_))) + (_else1492414938_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e14691_ (_location14688_))) - (if _$e14691_ - ((lambda (_where14694_) - (##display-locat _where14694_ '#t (current-output-port))) - _$e14691_) + (let ((_$e14868_ (_location14865_))) + (if _$e14868_ + ((lambda (_where14871_) + (##display-locat _where14871_ '#t (current-output-port))) + _$e14868_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e14696_ (slot-ref _self14685_ 'where))) - (if _$e14696_ - ((lambda (_where14699_) + (let ((_$e14873_ (slot-ref _self14862_ 'where))) + (if _$e14873_ + ((lambda (_where14876_) (displayln '" at " - _where14699_ + _where14876_ '": " - (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 _self14862_ 'message))) + _$e14873_) + (displayln '": " (slot-ref _self14862_ 'message)))) + (let* ((_g1487714885_ (slot-ref _self14862_ 'irritants)) + (_else1487914893_ (lambda () '#!void)) + (_K1488114906_ + (lambda (_rest14896_ _stx14897_) (display '"... form: ") - (__pp-syntax _stx14720_) + (__pp-syntax _stx14897_) (for-each - (lambda (_detail14722_) + (lambda (_detail14899_) (display '"... detail: ") - (write (__AST->datum _detail14722_)) - (let ((_$e14724_ (__AST-source _detail14722_))) - (if _$e14724_ - ((lambda (_loc14727_) + (write (__AST->datum _detail14899_)) + (let ((_$e14901_ (__AST-source _detail14899_))) + (if _$e14901_ + ((lambda (_loc14904_) (display '" at ") (##display-locat - _loc14727_ + _loc14904_ '#t (current-output-port))) - _$e14724_) + _$e14901_) '#!void)) (newline)) - _rest14719_)))) - (if (##pair? _g1470014708_) - (let ((_hd1470514732_ (##car _g1470014708_)) - (_tl1470614734_ (##cdr _g1470014708_))) - (let* ((_stx14737_ _hd1470514732_) - (_rest14739_ _tl1470614734_)) - (_K1470414729_ _rest14739_ _stx14737_))) + _rest14896_)))) + (if (##pair? _g1487714885_) + (let ((_hd1488214909_ (##car _g1487714885_)) + (_tl1488314911_ (##cdr _g1487714885_))) + (let* ((_stx14914_ _hd1488214909_) + (_rest14916_ _tl1488314911_)) + (_K1488114906_ _rest14916_ _stx14914_))) '#!void))) current-output-port - _port14686_)))) + _port14863_)))) (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 (_message14733_ + _irritants14734_ + _where14735_ + _context14736_ + _marks14737_ + _phi14738_) (make-class-instance SyntaxError::t 'message: - _message14556_ + _message14733_ 'irritants: - _irritants14557_ + _irritants14734_ 'where: - _where14558_ + _where14735_ 'context: - _context14559_ + _context14736_ 'marks: - _marks14560_ + _marks14737_ 'phi: - _phi14561_))) + _phi14738_))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where14551_ _message14552_ _stx14553_ . _details14554_) + (lambda (_where14728_ _message14729_ _stx14730_ . _details14731_) (raise (make-syntax-error - _message14552_ - (cons _stx14553_ _details14554_) - _where14551_ + _message14729_ + (cons _stx14730_ _details14731_) + _where14728_ (__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 _$args14725_ (apply make-struct-instance AST::t _$args14725_))) (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 (_stx14723_) + (if (##structure-instance-of? _stx14723_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx14723_ '1 AST::t '#f) + _stx14723_))) (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 (_stx14717_) + (let _lp14719_ ((_src14721_ _stx14717_)) + (if (##structure-instance-of? _src14721_ 'gerbil#AST::t) + (_lp14719_ (##unchecked-structure-ref _src14721_ '2 AST::t '#f)) + (if (##locat? _src14721_) _src14721_ '#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 (_e14709_ _src-stx14710_) + (let ((_src14712_ (__AST-source _src-stx14710_))) + (if (or (##structure-instance-of? _e14709_ 'gerbil#AST::t) + (not _src14712_)) + _e14709_ + (##structure AST::t _e14709_ _src14712_))))) (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 (_stx14706_ _obj14707_) (eq? (__AST-e _stx14706_) _obj14707_))) + (define __AST-pair? (lambda (_stx14704_) (pair? (__AST-e _stx14704_)))) + (define __AST-null? (lambda (_stx14702_) (null? (__AST-e _stx14702_)))) (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 (_stx14683_) + (let* ((_e14685_ (__AST-e _stx14683_)) (_$e14687_ (number? _e14685_))) + (if _$e14687_ + _$e14687_ + (let ((_$e14690_ (string? _e14685_))) + (if _$e14690_ + _$e14690_ + (let ((_$e14693_ (char? _e14685_))) + (if _$e14693_ + _$e14693_ + (let ((_$e14696_ (keyword? _e14685_))) + (if _$e14696_ + _$e14696_ + (let ((_$e14699_ (boolean? _e14685_))) + (if _$e14699_ + _$e14699_ + (eq? _e14685_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx14681_) (symbol? (__AST-e _stx14681_)))) (define __AST-id-list?__% - (lambda (_stx14455_ _tail?14456_) - (let _lp14458_ ((_rest14460_ _stx14455_)) - (let* ((_$e14462_ _rest14460_) - (_$E1446414477_ + (lambda (_stx14632_ _tail?14633_) + (let _lp14635_ ((_rest14637_ _stx14632_)) + (let* ((_$e14639_ _rest14637_) + (_$E1464114654_ (lambda () - (let* ((_$E1446514472_ + (let* ((_$E1464214649_ (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_)))))) + _$e14639_))) + (_rest14652_ _$e14639_)) + (_tail?14633_ _rest14652_))))) + (if (__AST-pair? _$e14639_) + (let* ((_$tgt1464314657_ (__AST-e _$e14639_)) + (_$hd1464414660_ (##car _$tgt1464314657_)) + (_$tl1464514663_ (##cdr _$tgt1464314657_))) + (let* ((_hd14667_ _$hd1464414660_) + (_rest14669_ _$tl1464514663_)) + (if (__AST-id? _hd14667_) (_lp14635_ _rest14669_) '#f))) + (_$E1464114654_)))))) (define __AST-id-list?__0 - (lambda (_stx14497_) - (let ((_tail?14499_ __AST-null?)) - (__AST-id-list?__% _stx14497_ _tail?14499_)))) + (lambda (_stx14674_) + (let ((_tail?14676_ __AST-null?)) + (__AST-id-list?__% _stx14674_ _tail?14676_)))) (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 _g15054_ + (let ((_g15053_ (##length _g15054_))) + (cond ((##fx= _g15053_ 1) + (apply (lambda (_stx14674_) (__AST-id-list?__0 _stx14674_)) + _g15054_)) + ((##fx= _g15053_ 2) + (apply (lambda (_stx14678_ _tail?14679_) + (__AST-id-list?__% _stx14678_ _tail?14679_)) + _g15054_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g14877_)))))) + _g15054_)))))) (define __AST-bind-list? - (lambda (_stx14447_) + (lambda (_stx14624_) (__AST-id-list?__% - _stx14447_ - (lambda (_e14449_) - (let ((_$e14451_ (__AST-null? _e14449_))) - (if _$e14451_ _$e14451_ (__AST-id? _e14449_))))))) + _stx14624_ + (lambda (_e14626_) + (let ((_$e14628_ (__AST-null? _e14626_))) + (if _$e14628_ _$e14628_ (__AST-id? _e14626_))))))) (define __AST-list?__% - (lambda (_stx14400_ _tail?14401_) - (let _lp14403_ ((_rest14405_ _stx14400_)) - (let* ((_$e14407_ _rest14405_) - (_$E1440914422_ + (lambda (_stx14577_ _tail?14578_) + (let _lp14580_ ((_rest14582_ _stx14577_)) + (let* ((_$e14584_ _rest14582_) + (_$E1458614599_ (lambda () - (let* ((_$E1441014417_ + (let* ((_$E1458714594_ (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_)))))) + _$e14584_))) + (_rest14597_ _$e14584_)) + (_tail?14578_ _rest14597_))))) + (if (__AST-pair? _$e14584_) + (let* ((_$tgt1458814602_ (__AST-e _$e14584_)) + (_$hd1458914605_ (##car _$tgt1458814602_)) + (_$tl1459014608_ (##cdr _$tgt1458814602_))) + (let ((_rest14612_ _$tl1459014608_)) + (_lp14580_ _rest14612_))) + (_$E1458614599_)))))) (define __AST-list?__0 - (lambda (_stx14440_) - (let ((_tail?14442_ __AST-null?)) - (__AST-list?__% _stx14440_ _tail?14442_)))) + (lambda (_stx14617_) + (let ((_tail?14619_ __AST-null?)) + (__AST-list?__% _stx14617_ _tail?14619_)))) (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 _g15056_ + (let ((_g15055_ (##length _g15056_))) + (cond ((##fx= _g15055_ 1) + (apply (lambda (_stx14617_) (__AST-list?__0 _stx14617_)) + _g15056_)) + ((##fx= _g15055_ 2) + (apply (lambda (_stx14621_ _tail?14622_) + (__AST-list?__% _stx14621_ _tail?14622_)) + _g15056_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g14879_)))))) + _g15056_)))))) (define __AST->list - (lambda (_stx14365_) - (let* ((_$e14367_ _stx14365_) - (_$E1436914382_ + (lambda (_stx14542_) + (let* ((_$e14544_ _stx14542_) + (_$E1454614559_ (lambda () - (let* ((_$E1437014377_ + (let* ((_$E1454714554_ (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_))))) + _$e14544_))) + (_rest14557_ _$e14544_)) + (__AST-e _rest14557_))))) + (if (__AST-pair? _$e14544_) + (let* ((_$tgt1454814562_ (__AST-e _$e14544_)) + (_$hd1454914565_ (##car _$tgt1454814562_)) + (_$tl1455014568_ (##cdr _$tgt1454814562_))) + (let* ((_hd14572_ _$hd1454914565_) + (_rest14574_ _$tl1455014568_)) + (cons _hd14572_ (__AST->list _rest14574_)))) + (_$E1454614559_))))) (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 (_stx14540_) + (if (##structure-instance-of? _stx14540_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx14540_)) + (if (pair? _stx14540_) + (cons (__AST->datum (car _stx14540_)) + (__AST->datum (cdr _stx14540_))) + (if (vector? _stx14540_) + (vector-map __AST->datum _stx14540_) + (if (box? _stx14540_) + (box (__AST->datum (unbox _stx14540_))) + _stx14540_)))))) (define get-readenv - (lambda (_port14361_) + (lambda (_port14538_) (##make-readenv - _port14361_ + _port14538_ (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 (_in14526_) + (let ((_e14528_ (##read-datum-or-eof (get-readenv _in14526_)))) + (if (eof-object? (__AST-e _e14528_)) (__AST-e _e14528_) _e14528_)))) (define read-syntax__0 (lambda () - (let ((_in14357_ (current-input-port))) (read-syntax__% _in14357_)))) + (let ((_in14534_ (current-input-port))) (read-syntax__% _in14534_)))) (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 _g15058_ + (let ((_g15057_ (##length _g15058_))) + (cond ((##fx= _g15057_ 0) + (apply (lambda () (read-syntax__0)) _g15058_)) + ((##fx= _g15057_ 1) + (apply (lambda (_in14536_) (read-syntax__% _in14536_)) + _g15058_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g14881_)))))) + _g15058_)))))) (define read-syntax-from-file - (lambda (_path14344_) - (let ((_r14346_ + (lambda (_path14521_) + (let ((_r14523_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path14344_) + (path-normalize _path14521_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r14346_) - (cdr (__AST-e (vector-ref _r14346_ '1))) - (error (err-code->string _r14346_) _path14344_))))) + (if (vector? _r14523_) + (cdr (__AST-e (vector-ref _r14523_ '1))) + (error (err-code->string _r14523_) _path14521_))))) (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 (_re14518_ _e14519_) + (if (eof-object? _e14519_) + _e14519_ + (##structure AST::t _e14519_ (##readenv->locat _re14518_))))) + (define __unwrap-syntax (lambda (_re14515_ _e14516_) (__AST-e _e14516_))) + (define __pp-syntax (lambda (_stx14513_) (pp (__AST->datum _stx14513_)))) (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 ((_rt14511_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt14511_ '#t) + (macro-readtable-bracket-handler-set! _rt14511_ '@list) + (macro-readtable-brace-handler-set! _rt14511_ '@method) (##readtable-char-sharp-handler-set! - _rt14334_ + _rt14511_ '#\! __read-sharp-bang) - _rt14334_))) + _rt14511_))) (define __readtable-bracket-keyword-set! - (lambda (_rt14330_ _kw14331_) - (macro-readtable-bracket-handler-set! _rt14330_ _kw14331_))) + (lambda (_rt14507_ _kw14508_) + (macro-readtable-bracket-handler-set! _rt14507_ _kw14508_))) (define __readtable-brace-keyword-set! - (lambda (_rt14327_ _kw14328_) - (macro-readtable-brace-handler-set! _rt14327_ _kw14328_))) + (lambda (_rt14504_ _kw14505_) + (macro-readtable-brace-handler-set! _rt14504_ _kw14505_))) (define __read-sharp-bang - (lambda (_re14318_ _next14319_ _start-pos14320_) - (if (eq? _start-pos14320_ '0) - (let* ((_line14322_ + (lambda (_re14495_ _next14496_ _start-pos14497_) + (if (eq? _start-pos14497_ '0) + (let* ((_line14499_ (##read-line - (macro-readenv-port _re14318_) + (macro-readenv-port _re14495_) '#\newline '#f ##max-fixnum)) - (_script-line14324_ - (substring _line14322_ '1 (string-length _line14322_)))) - (macro-readenv-script-line-set! _re14318_ _script-line14324_) + (_script-line14501_ + (substring _line14499_ '1 (string-length _line14499_)))) + (macro-readenv-script-line-set! _re14495_ _script-line14501_) (##script-marker)) - (##read-sharp-bang _re14318_ _next14319_ _start-pos14320_)))) + (##read-sharp-bang _re14495_ _next14496_ _start-pos14497_)))) (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 (_obj14493_) + (if (source-location? _obj14493_) + (string? (##locat-container _obj14493_)) '#f))) (define source-location-path - (lambda (_obj14314_) - (if (##locat? _obj14314_) - (##container->path (##locat-container _obj14314_)) + (lambda (_obj14491_) + (if (##locat? _obj14491_) + (##container->path (##locat-container _obj14491_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__1.scm b/src/bootstrap/gerbil/runtime/syntax__1.scm index 75d422d2cf..96ecc0efec 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]#_g15163_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g14992_| + (define |[1]#_g15169_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g15005_| + (define |[1]#_g15182_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15007_| + (define |[1]#_g15184_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15009_| + (define |[1]#_g15186_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15011_| + (define |[1]#_g15188_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15013_| + (define |[1]#_g15190_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15015_| + (define |[1]#_g15192_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15023_| + (define |[1]#_g15200_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g15025_| + (define |[1]#_g15202_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g15027_| + (define |[1]#_g15204_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g15029_| + (define |[1]#_g15206_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g15031_| + (define |[1]#_g15208_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g15033_| + (define |[1]#_g15210_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g15035_| + (define |[1]#_g15212_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g15037_| + (define |[1]#_g15214_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g15041_| + (define |[1]#_g15218_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g15042_| + (define |[1]#_g15219_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g15043_| + (define |[1]#_g15220_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g15052_| + (define |[1]#_g15229_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15054_| + (define |[1]#_g15231_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g15058_| + (define |[1]#_g15235_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g15060_| + (define |[1]#_g15237_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g15062_| + (define |[1]#_g15239_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g15064_| + (define |[1]#_g15241_| (##structure gx#syntax-quote::t 'make-AST @@ -177,1247 +177,1247 @@ '())) (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 (_$stx13380_) + (let* ((_g1338413408_ + (lambda (_g1338513404_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1338513404_))) + (_g1338313494_ + (lambda (_g1338513412_) + (if (gx#stx-pair? _g1338513412_) + (let ((_e1339013415_ (gx#syntax-e _g1338513412_))) + (let ((_hd1338913419_ (let () (declare (not safe)) - (##car _e1321313238_))) - (_tl1321113245_ + (##car _e1339013415_))) + (_tl1338813422_ (let () (declare (not safe)) - (##cdr _e1321313238_)))) - (if (gx#stx-pair? _tl1321113245_) - (let ((_e1321613248_ - (gx#syntax-e _tl1321113245_))) - (let ((_hd1321513252_ + (##cdr _e1339013415_)))) + (if (gx#stx-pair? _tl1338813422_) + (let ((_e1339313425_ + (gx#syntax-e _tl1338813422_))) + (let ((_hd1339213429_ (let () (declare (not safe)) - (##car _e1321613248_))) - (_tl1321413255_ + (##car _e1339313425_))) + (_tl1339113432_ (let () (declare (not safe)) - (##cdr _e1321613248_)))) - (if (gx#stx-pair/null? _tl1321413255_) - (let ((_g14882_ + (##cdr _e1339313425_)))) + (if (gx#stx-pair/null? _tl1339113432_) + (let ((_g15059_ (gx#syntax-split-splice - _tl1321413255_ + _tl1339113432_ '0))) (begin - (let ((_g14883_ + (let ((_g15060_ (let () (declare (not safe)) - (if (##values? _g14882_) + (if (##values? _g15059_) (##vector-length - _g14882_) + _g15059_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g14883_ 2))) + (##fx= _g15060_ 2))) (error "Context expects 2 values" - _g14883_))) - (let ((_target1321713258_ + _g15060_))) + (let ((_target1339413435_ (let () (declare (not safe)) - (##vector-ref _g14882_ 0))) - (_tl1321913261_ + (##vector-ref _g15059_ 0))) + (_tl1339613438_ (let () (declare (not safe)) - (##vector-ref _g14882_ 1)))) - (if (gx#stx-null? _tl1321913261_) - (letrec ((_loop1322013264_ - (lambda (_hd1321813268_ + (##vector-ref _g15059_ 1)))) + (if (gx#stx-null? _tl1339613438_) + (letrec ((_loop1339713441_ + (lambda (_hd1339513445_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body1322413271_) - (if (gx#stx-pair? _hd1321813268_) - (let ((_e1322113274_ (gx#syntax-e _hd1321813268_))) - (let ((_lp-hd1322213278_ + _body1340113448_) + (if (gx#stx-pair? _hd1339513445_) + (let ((_e1339813451_ (gx#syntax-e _hd1339513445_))) + (let ((_lp-hd1339913455_ (let () (declare (not safe)) - (##car _e1322113274_))) - (_lp-tl1322313281_ + (##car _e1339813451_))) + (_lp-tl1340013458_ (let () (declare (not safe)) - (##cdr _e1322113274_)))) - (_loop1322013264_ - _lp-tl1322313281_ + (##cdr _e1339813451_)))) + (_loop1339713441_ + _lp-tl1340013458_ (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-hd1339913455_ _body1340113448_))))) + (let ((_body1340213461_ (reverse _body1340113448_))) + ((lambda (_L13465_ _L13467_) + (let ((__tmp15072 (gx#datum->syntax '#f 'let)) + (__tmp15061 + (let ((__tmp15069 + (let ((__tmp15071 (gx#datum->syntax '#f '$e)) - (__tmp14893 + (__tmp15070 (let () (declare (not safe)) - (cons _L13290_ '())))) + (cons _L13467_ '())))) (declare (not safe)) - (cons __tmp14894 __tmp14893))) - (__tmp14885 - (let ((__tmp14886 - (let ((__tmp14891 + (cons __tmp15071 __tmp15070))) + (__tmp15062 + (let ((__tmp15063 + (let ((__tmp15068 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp14887 - (let ((__tmp14890 + (__tmp15064 + (let ((__tmp15067 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp14888 - (let ((__tmp14889 - (lambda (_g1330813311_ _g1330913314_) + (__tmp15065 + (let ((__tmp15066 + (lambda (_g1348513488_ _g1348613491_) (let () (declare (not safe)) - (cons _g1330813311_ _g1330913314_))))) + (cons _g1348513488_ _g1348613491_))))) (declare (not safe)) - (foldr1 __tmp14889 '() _L13288_)))) + (foldr1 __tmp15066 '() _L13465_)))) (declare (not safe)) - (cons __tmp14890 __tmp14888)))) + (cons __tmp15067 __tmp15065)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14891 - __tmp14887)))) + (cons __tmp15068 + __tmp15064)))) (declare (not safe)) - (cons __tmp14886 '())))) + (cons __tmp15063 '())))) (declare (not safe)) - (cons __tmp14892 __tmp14885)))) + (cons __tmp15069 __tmp15062)))) (declare (not safe)) - (cons __tmp14895 __tmp14884))) - _body1322513284_ - _hd1321513252_)))))) + (cons __tmp15072 __tmp15061))) + _body1340213461_ + _hd1339213429_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop1322013264_ - _target1321713258_ + (_loop1339713441_ + _target1339413435_ '())) - (_g1320713231_ - _g1320813235_))))) - (_g1320713231_ _g1320813235_)))) - (_g1320713231_ _g1320813235_)))) - (_g1320713231_ _g1320813235_))))) - (_g1320613317_ _$stx13203_)))) + (_g1338413408_ + _g1338513412_))))) + (_g1338413408_ _g1338513412_)))) + (_g1338413408_ _g1338513412_)))) + (_g1338413408_ _g1338513412_))))) + (_g1338313494_ _$stx13380_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx13322_) - (letrec ((_generate113325_ - (lambda (_hd13866_ _tgt13868_ _K13869_ _E13870_ _kws13871_) - (let* ((_g1387313881_ - (lambda (_g1387413877_) + (lambda (_stx13499_) + (letrec ((_generate113502_ + (lambda (_hd14043_ _tgt14045_ _K14046_ _E14047_ _kws14048_) + (let* ((_g1405014058_ + (lambda (_g1405114054_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1387413877_))) - (_g1387214308_ - (lambda (_g1387413885_) - ((lambda (_L13888_) + _g1405114054_))) + (_g1404914485_ + (lambda (_g1405114062_) + ((lambda (_L14065_) (let () - (let* ((___stx1478514786_ _hd13866_) - (_g1390213916_ + (let* ((___stx1496214963_ _hd14043_) + (_g1407914093_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax" - ___stx1478514786_)))) - (let ((___kont1478814789_ - (lambda (_L14130_ _L14132_) - (let* ((_g1414314151_ - (lambda (_g1414414147_) + ___stx1496214963_)))) + (let ((___kont1496514966_ + (lambda (_L14307_ _L14309_) + (let* ((_g1432014328_ + (lambda (_g1432114324_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1414414147_))) - (_g1414214300_ - (lambda (_g1414414155_) - ((lambda (_L14158_) + _g1432114324_))) + (_g1431914477_ + (lambda (_g1432114332_) + ((lambda (_L14335_) (let () - (let* ((_g1417014178_ + (let* ((_g1434714355_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1417114174_) + (lambda (_g1434814351_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1417114174_))) - (_g1416914296_ - (lambda (_g1417114182_) - ((lambda (_L14185_) + _g1434814351_))) + (_g1434614473_ + (lambda (_g1434814359_) + ((lambda (_L14362_) (let () - (let* ((_g1419814206_ - (lambda (_g1419914202_) + (let* ((_g1437514383_ + (lambda (_g1437614379_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1419914202_))) - (_g1419714292_ - (lambda (_g1419914210_) - ((lambda (_L14213_) + _g1437614379_))) + (_g1437414469_ + (lambda (_g1437614387_) + ((lambda (_L14390_) (let () - (let* ((_g1422614234_ - (lambda (_g1422714230_) + (let* ((_g1440314411_ + (lambda (_g1440414407_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1422714230_))) - (_g1422514288_ - (lambda (_g1422714238_) - ((lambda (_L14241_) + _g1440414407_))) + (_g1440214465_ + (lambda (_g1440414415_) + ((lambda (_L14418_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g1425414262_ - (lambda (_g1425514258_) + (let* ((_g1443114439_ + (lambda (_g1443214435_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1425514258_))) - (_g1425314284_ - (lambda (_g1425514266_) - ((lambda (_L14269_) + _g1443214435_))) + (_g1443014461_ + (lambda (_g1443214443_) + ((lambda (_L14446_) (let () (let () - (let ((__tmp14924 + (let ((__tmp15101 (gx#datum->syntax '#f 'if)) - (__tmp14896 - (let ((__tmp14921 - (let ((__tmp14923 + (__tmp15073 + (let ((__tmp15098 + (let ((__tmp15100 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp14922 - (let () (declare (not safe)) (cons _L13888_ '())))) + (__tmp15099 + (let () (declare (not safe)) (cons _L14065_ '())))) (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 __tmp15100 __tmp15099))) + (__tmp15074 + (let ((__tmp15076 + (let ((__tmp15097 (gx#datum->syntax '#f 'let*)) + (__tmp15077 + (let ((__tmp15079 + (let ((__tmp15092 + (let ((__tmp15093 + (let ((__tmp15094 + (let ((__tmp15096 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp14918 - (let () (declare (not safe)) (cons _L13888_ '())))) + (__tmp15095 + (let () (declare (not safe)) (cons _L14065_ '())))) (declare (not safe)) - (cons __tmp14919 __tmp14918)))) + (cons __tmp15096 __tmp15095)))) (declare (not safe)) - (cons __tmp14917 '())))) + (cons __tmp15094 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L14158_ __tmp14916))) - (__tmp14903 - (let ((__tmp14910 - (let ((__tmp14911 - (let ((__tmp14912 + (cons _L14335_ __tmp15093))) + (__tmp15080 + (let ((__tmp15087 + (let ((__tmp15088 + (let ((__tmp15089 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14914 (gx#datum->syntax '#f '##car)) - (__tmp14913 + (let ((__tmp15091 (gx#datum->syntax '#f '##car)) + (__tmp15090 (let () (declare (not safe)) - (cons _L14158_ '())))) + (cons _L14335_ '())))) (declare (not safe)) - (cons __tmp14914 __tmp14913)))) + (cons __tmp15091 __tmp15090)))) (declare (not safe)) - (cons __tmp14912 '())))) + (cons __tmp15089 '())))) (declare (not safe)) - (cons _L14185_ __tmp14911))) + (cons _L14362_ __tmp15088))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp14904 - (let ((__tmp14905 - (let ((__tmp14906 + (__tmp15081 + (let ((__tmp15082 + (let ((__tmp15083 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14907 - (let ((__tmp14909 + (let ((__tmp15084 + (let ((__tmp15086 (gx#datum->syntax '#f '##cdr)) - (__tmp14908 + (__tmp15085 (let () (declare (not safe)) - (cons _L14158_ '())))) + (cons _L14335_ '())))) (declare (not safe)) - (cons __tmp14909 __tmp14908)))) + (cons __tmp15086 __tmp15085)))) (declare (not safe)) - (cons __tmp14907 '())))) + (cons __tmp15084 '())))) (declare (not safe)) - (cons _L14213_ __tmp14906)))) + (cons _L14390_ __tmp15083)))) (declare (not safe)) - (cons __tmp14905 '())))) + (cons __tmp15082 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14910 __tmp14904)))) + (cons __tmp15087 __tmp15081)))) (declare (not safe)) - (cons __tmp14915 __tmp14903))) - (__tmp14901 + (cons __tmp15092 __tmp15080))) + (__tmp15078 (let () (declare (not safe)) - (cons _L14241_ '())))) + (cons _L14418_ '())))) (declare (not safe)) - (cons __tmp14902 __tmp14901)))) + (cons __tmp15079 __tmp15078)))) (declare (not safe)) - (cons __tmp14920 __tmp14900))) - (__tmp14898 - (let () (declare (not safe)) (cons _L14269_ '())))) + (cons __tmp15097 __tmp15077))) + (__tmp15075 + (let () (declare (not safe)) (cons _L14446_ '())))) (declare (not safe)) - (cons __tmp14899 __tmp14898)))) + (cons __tmp15076 __tmp15075)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14921 - __tmp14897)))) + (cons __tmp15098 + __tmp15074)))) (declare (not safe)) - (cons __tmp14924 __tmp14896))))) - _g1425514266_)))) - (_g1425314284_ _E13870_)))) - _g1422714238_)))) + (cons __tmp15101 __tmp15073))))) + _g1443214443_)))) + (_g1443014461_ _E14047_)))) + _g1440414415_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1422514288_ - (_generate113325_ - _L14132_ - _L14185_ - (_generate113325_ - _L14130_ - _L14213_ - _K13869_ - _E13870_ - _kws13871_) - _E13870_ - _kws13871_))))) - _g1419914210_)))) - (_g1419714292_ (gx#genident '$tl))))) - _g1417114182_)))) - (_g1416914296_ (gx#genident '$hd))))) - _g1414414155_)))) + (_g1440214465_ + (_generate113502_ + _L14309_ + _L14362_ + (_generate113502_ + _L14307_ + _L14390_ + _K14046_ + _E14047_ + _kws14048_) + _E14047_ + _kws14048_))))) + _g1437614387_)))) + (_g1437414469_ (gx#genident '$tl))))) + _g1434814359_)))) + (_g1434614473_ (gx#genident '$hd))))) + _g1432114332_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1414214300_ + (_g1431914477_ (gx#genident '$tgt))))) - (___kont1479014791_ - (lambda (_L14005_) - (if (gx#underscore? _L14005_) - _K13869_ - (if (let ((__tmp14953 - (lambda (_g1401314015_) + (___kont1496714968_ + (lambda (_L14182_) + (if (gx#underscore? _L14182_) + _K14046_ + (if (let ((__tmp15130 + (lambda (_g1419014192_) (gx#bound-identifier=? - _g1401314015_ - _L14005_))) - (__tmp14952 + _g1419014192_ + _L14182_))) + (__tmp15129 (gx#syntax->list - _kws13871_))) + _kws14048_))) (declare (not safe)) - (find __tmp14953 - __tmp14952)) - (let* ((_g1401914034_ - (lambda (_g1402014030_) + (find __tmp15130 + __tmp15129)) + (let* ((_g1419614211_ + (lambda (_g1419714207_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax" - _g1402014030_))) - (_g1401814079_ - (lambda (_g1402014038_) - (if (gx#stx-pair? _g1402014038_) - (let ((_e1402514041_ (gx#syntax-e _g1402014038_))) - (let ((_hd1402414045_ + _g1419714207_))) + (_g1419514256_ + (lambda (_g1419714215_) + (if (gx#stx-pair? _g1419714215_) + (let ((_e1420214218_ (gx#syntax-e _g1419714215_))) + (let ((_hd1420114222_ (let () (declare (not safe)) - (##car _e1402514041_))) - (_tl1402314048_ + (##car _e1420214218_))) + (_tl1420014225_ (let () (declare (not safe)) - (##cdr _e1402514041_)))) - (if (gx#stx-pair? _tl1402314048_) - (let ((_e1402814051_ - (gx#syntax-e _tl1402314048_))) - (let ((_hd1402714055_ + (##cdr _e1420214218_)))) + (if (gx#stx-pair? _tl1420014225_) + (let ((_e1420514228_ + (gx#syntax-e _tl1420014225_))) + (let ((_hd1420414232_ (let () (declare (not safe)) - (##car _e1402814051_))) - (_tl1402614058_ + (##car _e1420514228_))) + (_tl1420314235_ (let () (declare (not safe)) - (##cdr _e1402814051_)))) - (if (gx#stx-null? _tl1402614058_) - ((lambda (_L14061_ _L14063_) + (##cdr _e1420514228_)))) + (if (gx#stx-null? _tl1420314235_) + ((lambda (_L14238_ _L14240_) (let () - (let ((__tmp14951 + (let ((__tmp15128 (gx#datum->syntax '#f 'if)) - (__tmp14931 - (let ((__tmp14934 - (let ((__tmp14950 + (__tmp15108 + (let ((__tmp15111 + (let ((__tmp15127 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp14935 - (let ((__tmp14947 - (let ((__tmp14949 + (__tmp15112 + (let ((__tmp15124 + (let ((__tmp15126 (gx#datum->syntax '#f '__AST-id?)) - (__tmp14948 + (__tmp15125 (let () (declare (not safe)) - (cons _L13888_ '())))) + (cons _L14065_ '())))) (declare (not safe)) - (cons __tmp14949 __tmp14948))) - (__tmp14936 - (let ((__tmp14937 - (let ((__tmp14946 + (cons __tmp15126 __tmp15125))) + (__tmp15113 + (let ((__tmp15114 + (let ((__tmp15123 (gx#datum->syntax '#f 'eq?)) - (__tmp14938 - (let ((__tmp14943 - (let ((__tmp14945 + (__tmp15115 + (let ((__tmp15120 + (let ((__tmp15122 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp14944 - (let () (declare (not safe)) (cons _L13888_ '())))) + (__tmp15121 + (let () (declare (not safe)) (cons _L14065_ '())))) (declare (not safe)) - (cons __tmp14945 __tmp14944))) - (__tmp14939 - (let ((__tmp14940 - (let ((__tmp14942 (gx#datum->syntax '#f 'quote)) - (__tmp14941 + (cons __tmp15122 __tmp15121))) + (__tmp15116 + (let ((__tmp15117 + (let ((__tmp15119 (gx#datum->syntax '#f 'quote)) + (__tmp15118 (let () (declare (not safe)) - (cons _L14005_ '())))) + (cons _L14182_ '())))) (declare (not safe)) - (cons __tmp14942 __tmp14941)))) + (cons __tmp15119 __tmp15118)))) (declare (not safe)) - (cons __tmp14940 '())))) + (cons __tmp15117 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14943 - __tmp14939)))) + (cons __tmp15120 + __tmp15116)))) (declare (not safe)) - (cons __tmp14946 __tmp14938)))) + (cons __tmp15123 __tmp15115)))) (declare (not safe)) - (cons __tmp14937 '())))) + (cons __tmp15114 '())))) (declare (not safe)) - (cons __tmp14947 __tmp14936)))) + (cons __tmp15124 __tmp15113)))) (declare (not safe)) - (cons __tmp14950 __tmp14935))) - (__tmp14932 - (let ((__tmp14933 + (cons __tmp15127 __tmp15112))) + (__tmp15109 + (let ((__tmp15110 (let () (declare (not safe)) - (cons _L14061_ '())))) + (cons _L14238_ '())))) (declare (not safe)) - (cons _L14063_ __tmp14933)))) + (cons _L14240_ __tmp15110)))) (declare (not safe)) - (cons __tmp14934 __tmp14932)))) + (cons __tmp15111 __tmp15109)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14951 - __tmp14931)))) - _hd1402714055_ - _hd1402414045_) - (_g1401914034_ _g1402014038_)))) - (_g1401914034_ _g1402014038_)))) - (_g1401914034_ _g1402014038_))))) - (_g1401814079_ (list _K13869_ _E13870_))) - (let* ((_g1408314091_ - (lambda (_g1408414087_) + (cons __tmp15128 + __tmp15108)))) + _hd1420414232_ + _hd1420114222_) + (_g1419614211_ _g1419714215_)))) + (_g1419614211_ _g1419714215_)))) + (_g1419614211_ _g1419714215_))))) + (_g1419514256_ (list _K14046_ _E14047_))) + (let* ((_g1426014268_ + (lambda (_g1426114264_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1408414087_))) - (_g1408214109_ - (lambda (_g1408414095_) - ((lambda (_L14098_) + _g1426114264_))) + (_g1425914286_ + (lambda (_g1426114272_) + ((lambda (_L14275_) (let () - (let ((__tmp14930 (gx#datum->syntax '#f 'let)) - (__tmp14925 - (let ((__tmp14927 - (let ((__tmp14928 - (let ((__tmp14929 + (let ((__tmp15107 (gx#datum->syntax '#f 'let)) + (__tmp15102 + (let ((__tmp15104 + (let ((__tmp15105 + (let ((__tmp15106 (let () (declare (not safe)) - (cons _L13888_ + (cons _L14065_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L14005_ - __tmp14929)))) + (cons _L14182_ + __tmp15106)))) (declare (not safe)) - (cons __tmp14928 '()))) - (__tmp14926 + (cons __tmp15105 '()))) + (__tmp15103 (let () (declare (not safe)) - (cons _L14098_ '())))) + (cons _L14275_ '())))) (declare (not safe)) - (cons __tmp14927 __tmp14926)))) + (cons __tmp15104 __tmp15103)))) (declare (not safe)) - (cons __tmp14930 __tmp14925)))) - _g1408414095_)))) - (_g1408214109_ _K13869_)))))) + (cons __tmp15107 __tmp15102)))) + _g1426114272_)))) + (_g1425914286_ _K14046_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont1479214793_ - (lambda (_L13923_) - (let* ((_g1393413949_ - (lambda (_g1393513945_) + (___kont1496914970_ + (lambda (_L14100_) + (let* ((_g1411114126_ + (lambda (_g1411214122_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1393513945_))) - (_g1393313994_ - (lambda (_g1393513953_) + _g1411214122_))) + (_g1411014171_ + (lambda (_g1411214130_) (if (gx#stx-pair? - _g1393513953_) - (let ((_e1394013956_ + _g1411214130_) + (let ((_e1411714133_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g1393513953_))) - (let ((_hd1393913960_ + (gx#syntax-e _g1411214130_))) + (let ((_hd1411614137_ (let () (declare (not safe)) - (##car _e1394013956_))) - (_tl1393813963_ + (##car _e1411714133_))) + (_tl1411514140_ (let () (declare (not safe)) - (##cdr _e1394013956_)))) - (if (gx#stx-pair? _tl1393813963_) - (let ((_e1394313966_ (gx#syntax-e _tl1393813963_))) - (let ((_hd1394213970_ + (##cdr _e1411714133_)))) + (if (gx#stx-pair? _tl1411514140_) + (let ((_e1412014143_ (gx#syntax-e _tl1411514140_))) + (let ((_hd1411914147_ (let () (declare (not safe)) - (##car _e1394313966_))) - (_tl1394113973_ + (##car _e1412014143_))) + (_tl1411814150_ (let () (declare (not safe)) - (##cdr _e1394313966_)))) - (if (gx#stx-null? _tl1394113973_) - ((lambda (_L13976_ _L13978_) + (##cdr _e1412014143_)))) + (if (gx#stx-null? _tl1411814150_) + ((lambda (_L14153_ _L14155_) (let () - (let ((__tmp14967 + (let ((__tmp15144 (gx#datum->syntax '#f 'if)) - (__tmp14954 - (let ((__tmp14957 - (let ((__tmp14966 + (__tmp15131 + (let ((__tmp15134 + (let ((__tmp15143 (gx#datum->syntax '#f 'equal?)) - (__tmp14958 - (let ((__tmp14963 + (__tmp15135 + (let ((__tmp15140 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14965 (gx#datum->syntax '#f '__AST-e)) - (__tmp14964 + (let ((__tmp15142 (gx#datum->syntax '#f '__AST-e)) + (__tmp15141 (let () (declare (not safe)) - (cons _L13888_ '())))) + (cons _L14065_ '())))) (declare (not safe)) - (cons __tmp14965 __tmp14964))) - (__tmp14959 - (let ((__tmp14960 - (let ((__tmp14962 + (cons __tmp15142 __tmp15141))) + (__tmp15136 + (let ((__tmp15137 + (let ((__tmp15139 (gx#datum->syntax '#f 'quote)) - (__tmp14961 + (__tmp15138 (let () (declare (not safe)) - (cons _L13923_ '())))) + (cons _L14100_ '())))) (declare (not safe)) - (cons __tmp14962 __tmp14961)))) + (cons __tmp15139 __tmp15138)))) (declare (not safe)) - (cons __tmp14960 '())))) + (cons __tmp15137 '())))) (declare (not safe)) - (cons __tmp14963 __tmp14959)))) + (cons __tmp15140 __tmp15136)))) (declare (not safe)) - (cons __tmp14966 __tmp14958))) - (__tmp14955 - (let ((__tmp14956 - (let () (declare (not safe)) (cons _L13976_ '())))) + (cons __tmp15143 __tmp15135))) + (__tmp15132 + (let ((__tmp15133 + (let () (declare (not safe)) (cons _L14153_ '())))) (declare (not safe)) - (cons _L13978_ __tmp14956)))) + (cons _L14155_ __tmp15133)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp14957 - __tmp14955)))) + (cons __tmp15134 + __tmp15132)))) (declare (not safe)) - (cons __tmp14967 __tmp14954)))) - _hd1394213970_ - _hd1393913960_) - (_g1393413949_ _g1393513953_)))) - (_g1393413949_ _g1393513953_)))) - (_g1393413949_ _g1393513953_))))) + (cons __tmp15144 __tmp15131)))) + _hd1411914147_ + _hd1411614137_) + (_g1411114126_ _g1411214130_)))) + (_g1411114126_ _g1411214130_)))) + (_g1411114126_ _g1411214130_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1393313994_ - (list _K13869_ _E13870_)))))) - (let ((_g1390014113_ + (_g1411014171_ + (list _K14046_ _E14047_)))))) + (let ((_g1407714290_ (lambda () - (let ((_L14005_ - ___stx1478514786_)) - (if (gx#identifier? _L14005_) - (___kont1479014791_ - _L14005_) - (___kont1479214793_ - ___stx1478514786_)))))) - (if (gx#stx-pair? ___stx1478514786_) - (let ((_e1390814120_ + (let ((_L14182_ + ___stx1496214963_)) + (if (gx#identifier? _L14182_) + (___kont1496714968_ + _L14182_) + (___kont1496914970_ + ___stx1496214963_)))))) + (if (gx#stx-pair? ___stx1496214963_) + (let ((_e1408514297_ (gx#syntax-e - ___stx1478514786_))) - (let ((_tl1390614127_ + ___stx1496214963_))) + (let ((_tl1408314304_ (let () (declare (not safe)) - (##cdr _e1390814120_))) - (_hd1390714124_ + (##cdr _e1408514297_))) + (_hd1408414301_ (let () (declare (not safe)) - (##car _e1390814120_)))) - (___kont1478814789_ - _tl1390614127_ - _hd1390714124_))) + (##car _e1408514297_)))) + (___kont1496514966_ + _tl1408314304_ + _hd1408414301_))) (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_ + (_g1407714290_)))))))) + _g1405114062_)))) + (_g1404914485_ _tgt14045_))))) + (let* ((_g1350513533_ + (lambda (_g1350613529_) + (gx#raise-syntax-error '#f '"Bad syntax" _g1350613529_))) + (_g1350414039_ + (lambda (_g1350613537_) + (if (gx#stx-pair? _g1350613537_) + (let ((_e1351213540_ (gx#syntax-e _g1350613537_))) + (let ((_hd1351113544_ (let () (declare (not safe)) - (##car _e1333513363_))) - (_tl1333313370_ + (##car _e1351213540_))) + (_tl1351013547_ (let () (declare (not safe)) - (##cdr _e1333513363_)))) - (if (gx#stx-pair? _tl1333313370_) - (let ((_e1333813373_ - (gx#syntax-e _tl1333313370_))) - (let ((_hd1333713377_ + (##cdr _e1351213540_)))) + (if (gx#stx-pair? _tl1351013547_) + (let ((_e1351513550_ + (gx#syntax-e _tl1351013547_))) + (let ((_hd1351413554_ (let () (declare (not safe)) - (##car _e1333813373_))) - (_tl1333613380_ + (##car _e1351513550_))) + (_tl1351313557_ (let () (declare (not safe)) - (##cdr _e1333813373_)))) - (if (gx#stx-pair? _tl1333613380_) - (let ((_e1334113383_ - (gx#syntax-e _tl1333613380_))) - (let ((_hd1334013387_ + (##cdr _e1351513550_)))) + (if (gx#stx-pair? _tl1351313557_) + (let ((_e1351813560_ + (gx#syntax-e _tl1351313557_))) + (let ((_hd1351713564_ (let () (declare (not safe)) - (##car _e1334113383_))) - (_tl1333913390_ + (##car _e1351813560_))) + (_tl1351613567_ (let () (declare (not safe)) - (##cdr _e1334113383_)))) + (##cdr _e1351813560_)))) (if (gx#stx-pair/null? - _tl1333913390_) - (let ((_g14968_ + _tl1351613567_) + (let ((_g15145_ (gx#syntax-split-splice - _tl1333913390_ + _tl1351613567_ '0))) (begin - (let ((_g14969_ + (let ((_g15146_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g14968_) - (##vector-length _g14968_) + _g15145_) + (##vector-length _g15145_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g14969_ 2))) - (error "Context expects 2 values" _g14969_))) + (if (not (let () (declare (not safe)) (##fx= _g15146_ 2))) + (error "Context expects 2 values" _g15146_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1334213393_ + (let ((_target1351913570_ (let () (declare (not safe)) (##vector-ref - _g14968_ + _g15145_ 0))) - (_tl1334413396_ + (_tl1352113573_ (let () (declare (not safe)) (##vector-ref - _g14968_ + _g15145_ 1)))) (if (gx#stx-null? - _tl1334413396_) - (letrec ((_loop1334513399_ + _tl1352113573_) + (letrec ((_loop1352213576_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1334313403_ _clause1334913406_) - (if (gx#stx-pair? _hd1334313403_) - (let ((_e1334613409_ - (gx#syntax-e _hd1334313403_))) - (let ((_lp-hd1334713413_ + (lambda (_hd1352013580_ _clause1352613583_) + (if (gx#stx-pair? _hd1352013580_) + (let ((_e1352313586_ + (gx#syntax-e _hd1352013580_))) + (let ((_lp-hd1352413590_ (let () (declare (not safe)) - (##car _e1334613409_))) - (_lp-tl1334813416_ + (##car _e1352313586_))) + (_lp-tl1352513593_ (let () (declare (not safe)) - (##cdr _e1334613409_)))) - (_loop1334513399_ - _lp-tl1334813416_ + (##cdr _e1352313586_)))) + (_loop1352213576_ + _lp-tl1352513593_ (let () (declare (not safe)) - (cons _lp-hd1334713413_ - _clause1334913406_))))) - (let ((_clause1335013419_ - (reverse _clause1334913406_))) - ((lambda (_L13423_ _L13425_ _L13426_) - (let _recur13448_ ((_rest13451_ - (let ((__tmp14991 + (cons _lp-hd1352413590_ + _clause1352613583_))))) + (let ((_clause1352713596_ + (reverse _clause1352613583_))) + ((lambda (_L13600_ _L13602_ _L13603_) + (let _recur13625_ ((_rest13628_ + (let ((__tmp15168 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1385313856_ _g1385413859_) + (lambda (_g1403014033_ _g1403114036_) (let () (declare (not safe)) - (cons _g1385313856_ _g1385413859_))))) + (cons _g1403014033_ _g1403114036_))))) (declare (not safe)) - (foldr1 __tmp14991 '() _L13423_)))) + (foldr1 __tmp15168 '() _L13600_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest1345313462_ _rest13451_) - (_E1345613468_ + (let* ((_rest1363013639_ _rest13628_) + (_E1363313645_ (lambda () (error '"No clause matching" - _rest1345313462_)))) - (let ((_K1345813838_ - (lambda (_rest13484_ - _hd13486_) - (let* ((_g1348813496_ - (lambda (_g1348913492_) + _rest1363013639_)))) + (let ((_K1363514015_ + (lambda (_rest13661_ + _hd13663_) + (let* ((_g1366513673_ + (lambda (_g1366613669_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1348913492_))) - (_g1348713834_ - (lambda (_g1348913500_) - ((lambda (_L13503_) + _g1366613669_))) + (_g1366414011_ + (lambda (_g1366613677_) + ((lambda (_L13680_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g1352113529_ - (lambda (_g1352213525_) + (let* ((_g1369813706_ + (lambda (_g1369913702_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1352213525_))) - (_g1352013830_ - (lambda (_g1352213533_) - ((lambda (_L13536_) + _g1369913702_))) + (_g1369714007_ + (lambda (_g1369913710_) + ((lambda (_L13713_) (let () - (let* ((_g1354913557_ - (lambda (_g1355013553_) + (let* ((_g1372613734_ + (lambda (_g1372713730_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1355013553_))) - (_g1354813826_ - (lambda (_g1355013561_) - ((lambda (_L13564_) + _g1372713730_))) + (_g1372514003_ + (lambda (_g1372713738_) + ((lambda (_L13741_) (let () - (let* ((_g1357713585_ + (let* ((_g1375413762_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1357813581_) + (lambda (_g1375513758_) (gx#raise-syntax-error '#f '"Bad syntax" - _g1357813581_))) - (_g1357613607_ - (lambda (_g1357813589_) - ((lambda (_L13592_) + _g1375513758_))) + (_g1375313784_ + (lambda (_g1375513766_) + ((lambda (_L13769_) (let () (let () - (let ((__tmp14978 + (let ((__tmp15155 (gx#datum->syntax '#f 'let)) - (__tmp14970 - (let ((__tmp14972 - (let ((__tmp14973 - (let ((__tmp14974 - (let ((__tmp14977 + (__tmp15147 + (let ((__tmp15149 + (let ((__tmp15150 + (let ((__tmp15151 + (let ((__tmp15154 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp14975 - (let ((__tmp14976 + (__tmp15152 + (let ((__tmp15153 (let () (declare (not safe)) - (cons _L13564_ '())))) + (cons _L13741_ '())))) (declare (not safe)) - (cons '() __tmp14976)))) + (cons '() __tmp15153)))) (declare (not safe)) - (cons __tmp14977 __tmp14975)))) + (cons __tmp15154 __tmp15152)))) (declare (not safe)) - (cons __tmp14974 '())))) + (cons __tmp15151 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L13503_ __tmp14973))) - (__tmp14971 + (cons _L13680_ __tmp15150))) + (__tmp15148 (let () (declare (not safe)) - (cons _L13592_ '())))) + (cons _L13769_ '())))) (declare (not safe)) - (cons __tmp14972 __tmp14971)))) + (cons __tmp15149 __tmp15148)))) (declare (not safe)) - (cons __tmp14978 __tmp14970))))) - _g1357813589_)))) - (_g1357613607_ - (let* ((___stx1480314804_ _hd13486_) - (_g1361313653_ + (cons __tmp15155 __tmp15147))))) + _g1375513766_)))) + (_g1375313784_ + (let* ((___stx1498014981_ _hd13663_) + (_g1379013830_ (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_) + ___stx1498014981_)))) + (let ((___kont1498314984_ + (lambda (_L13976_) + (let ((__tmp15158 (gx#datum->syntax '#f 'begin)) + (__tmp15156 + (let ((__tmp15157 + (lambda (_g1399013993_ + _g1399113996_) (let () (declare (not safe)) - (cons _g1381313816_ - _g1381413819_))))) + (cons _g1399013993_ + _g1399113996_))))) (declare (not safe)) - (foldr1 __tmp14980 '() _L13799_)))) + (foldr1 __tmp15157 '() _L13976_)))) (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 __tmp15158 __tmp15156)))) + (___kont1498714988_ + (lambda (_L13914_ _L13916_) + (_generate113502_ + _L13916_ + _L13603_ + _L13914_ + _L13713_ + _L13602_))) + (___kont1498914990_ + (lambda (_L13867_ _L13869_ _L13870_) + (_generate113502_ + _L13870_ + _L13603_ + (let ((__tmp15162 (gx#datum->syntax '#f 'if)) + (__tmp15159 + (let ((__tmp15160 + (let ((__tmp15161 (let () (declare (not safe)) - (cons _L13536_ '())))) + (cons _L13713_ '())))) (declare (not safe)) - (cons _L13690_ __tmp14984)))) + (cons _L13867_ __tmp15161)))) (declare (not safe)) - (cons _L13692_ __tmp14983)))) + (cons _L13869_ __tmp15160)))) (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 __tmp15162 __tmp15159)) + _L13713_ + _L13602_)))) + (let ((___match1500915010_ + (lambda (_e1379513936_ + _hd1379413940_ + _tl1379313943_ + ___splice1498514986_ + _target1379613946_ + _tl1379813949_) + (letrec ((_loop1379913952_ + (lambda (_hd1379713956_ + _expr1380313959_) + (if (gx#stx-pair? _hd1379713956_) + (let ((_e1380013962_ (gx#syntax-e - _hd1362013779_))) - (let ((_lp-tl1362513792_ + _hd1379713956_))) + (let ((_lp-tl1380213969_ (let () (declare (not safe)) - (##cdr _e1362313785_))) - (_lp-hd1362413789_ + (##cdr _e1380013962_))) + (_lp-hd1380113966_ (let () (declare (not safe)) - (##car _e1362313785_)))) - (_loop1362213775_ - _lp-tl1362513792_ + (##car _e1380013962_)))) + (_loop1379913952_ + _lp-tl1380213969_ (let () (declare (not safe)) - (cons _lp-hd1362413789_ - _expr1362613782_))))) - (let ((_expr1362713795_ - (reverse _expr1362613782_))) - (___kont1480614807_ - _expr1362713795_)))))) - (_loop1362213775_ - _target1361913769_ + (cons _lp-hd1380113966_ + _expr1380313959_))))) + (let ((_expr1380413972_ + (reverse _expr1380313959_))) + (___kont1498314984_ + _expr1380413972_)))))) + (_loop1379913952_ + _target1379613946_ '()))))) - (if (gx#stx-pair? ___stx1480314804_) - (let ((_e1361813759_ - (gx#syntax-e ___stx1480314804_))) - (let ((_tl1361613766_ + (if (gx#stx-pair? ___stx1498014981_) + (let ((_e1379513936_ + (gx#syntax-e ___stx1498014981_))) + (let ((_tl1379313943_ (let () (declare (not safe)) - (##cdr _e1361813759_))) - (_hd1361713763_ + (##cdr _e1379513936_))) + (_hd1379413940_ (let () (declare (not safe)) - (##car _e1361813759_)))) - (if (gx#identifier? _hd1361713763_) + (##car _e1379513936_)))) + (if (gx#identifier? _hd1379413940_) (if (gx#free-identifier=? - |[1]#_g14986_| - _hd1361713763_) + |[1]#_g15163_| + _hd1379413940_) (if (gx#stx-pair/null? - _tl1361613766_) - (let ((___splice1480814809_ + _tl1379313943_) + (let ((___splice1498514986_ (gx#syntax-split-splice - _tl1361613766_ + _tl1379313943_ '0))) - (let ((_tl1362113772_ + (let ((_tl1379813949_ (let () (declare (not safe)) (##vector-ref - ___splice1480814809_ + ___splice1498514986_ '1))) - (_target1361913769_ + (_target1379613946_ (let () (declare (not safe)) (##vector-ref - ___splice1480814809_ + ___splice1498514986_ '0)))) (if (gx#stx-null? - _tl1362113772_) - (___match1483214833_ - _e1361813759_ - _hd1361713763_ - _tl1361613766_ - ___splice1480814809_ - _target1361913769_ - _tl1362113772_) + _tl1379813949_) + (___match1500915010_ + _e1379513936_ + _hd1379413940_ + _tl1379313943_ + ___splice1498514986_ + _target1379613946_ + _tl1379813949_) (if (gx#stx-pair? - _tl1361613766_) - (let ((_e1363513727_ + _tl1379313943_) + (let ((_e1381213904_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1361613766_))) - (let ((_tl1363313734_ - (let () (declare (not safe)) (##cdr _e1363513727_))) - (_hd1363413731_ + (gx#syntax-e _tl1379313943_))) + (let ((_tl1381013911_ + (let () (declare (not safe)) (##cdr _e1381213904_))) + (_hd1381113908_ (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 _e1381213904_)))) + (if (gx#stx-null? _tl1381013911_) + (___kont1498714988_ _hd1381113908_ _hd1379413940_) + (if (gx#stx-pair? _tl1381013911_) + (let ((_e1382413857_ + (gx#syntax-e _tl1381013911_))) + (let ((_tl1382213864_ (let () (declare (not safe)) - (##cdr _e1364713680_))) - (_hd1364613684_ + (##cdr _e1382413857_))) + (_hd1382313861_ (let () (declare (not safe)) - (##car _e1364713680_)))) - (if (gx#stx-null? _tl1364513687_) - (___kont1481214813_ - _hd1364613684_ - _hd1363413731_ - _hd1361713763_) + (##car _e1382413857_)))) + (if (gx#stx-null? _tl1382213864_) + (___kont1498914990_ + _hd1382313861_ + _hd1381113908_ + _hd1379413940_) (let () (declare (not safe)) - (_g1361313653_))))) - (let () (declare (not safe)) (_g1361313653_)))))) - (let () (declare (not safe)) (_g1361313653_)))))) + (_g1379013830_))))) + (let () (declare (not safe)) (_g1379013830_)))))) + (let () (declare (not safe)) (_g1379013830_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl1361613766_) - (let ((_e1363513727_ + (if (gx#stx-pair? _tl1379313943_) + (let ((_e1381213904_ (gx#syntax-e - _tl1361613766_))) - (let ((_tl1363313734_ + _tl1379313943_))) + (let ((_tl1381013911_ (let () (declare (not safe)) - (##cdr _e1363513727_))) - (_hd1363413731_ + (##cdr _e1381213904_))) + (_hd1381113908_ (let () (declare (not safe)) - (##car _e1363513727_)))) + (##car _e1381213904_)))) (if (gx#stx-null? - _tl1363313734_) - (___kont1481014811_ - _hd1363413731_ - _hd1361713763_) + _tl1381013911_) + (___kont1498714988_ + _hd1381113908_ + _hd1379413940_) (if (gx#stx-pair? - _tl1363313734_) - (let ((_e1364713680_ + _tl1381013911_) + (let ((_e1382413857_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1363313734_))) - (let ((_tl1364513687_ + (gx#syntax-e _tl1381013911_))) + (let ((_tl1382213864_ (let () (declare (not safe)) - (##cdr _e1364713680_))) - (_hd1364613684_ + (##cdr _e1382413857_))) + (_hd1382313861_ (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 _e1382413857_)))) + (if (gx#stx-null? _tl1382213864_) + (___kont1498914990_ + _hd1382313861_ + _hd1381113908_ + _hd1379413940_) + (let () (declare (not safe)) (_g1379013830_))))) + (let () (declare (not safe)) (_g1379013830_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1361313653_)))) - (if (gx#stx-pair? _tl1361613766_) - (let ((_e1363513727_ + (_g1379013830_)))) + (if (gx#stx-pair? _tl1379313943_) + (let ((_e1381213904_ (gx#syntax-e - _tl1361613766_))) - (let ((_tl1363313734_ + _tl1379313943_))) + (let ((_tl1381013911_ (let () (declare (not safe)) - (##cdr _e1363513727_))) - (_hd1363413731_ + (##cdr _e1381213904_))) + (_hd1381113908_ (let () (declare (not safe)) - (##car _e1363513727_)))) + (##car _e1381213904_)))) (if (gx#stx-null? - _tl1363313734_) - (___kont1481014811_ - _hd1363413731_ - _hd1361713763_) + _tl1381013911_) + (___kont1498714988_ + _hd1381113908_ + _hd1379413940_) (if (gx#stx-pair? - _tl1363313734_) - (let ((_e1364713680_ + _tl1381013911_) + (let ((_e1382413857_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1363313734_))) - (let ((_tl1364513687_ - (let () (declare (not safe)) (##cdr _e1364713680_))) - (_hd1364613684_ + (gx#syntax-e _tl1381013911_))) + (let ((_tl1382213864_ + (let () (declare (not safe)) (##cdr _e1382413857_))) + (_hd1382313861_ (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 _e1382413857_)))) + (if (gx#stx-null? _tl1382213864_) + (___kont1498914990_ + _hd1382313861_ + _hd1381113908_ + _hd1379413940_) + (let () (declare (not safe)) (_g1379013830_))))) + (let () (declare (not safe)) (_g1379013830_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1361313653_)))) - (if (gx#stx-pair? _tl1361613766_) - (let ((_e1363513727_ - (gx#syntax-e _tl1361613766_))) - (let ((_tl1363313734_ + (_g1379013830_)))) + (if (gx#stx-pair? _tl1379313943_) + (let ((_e1381213904_ + (gx#syntax-e _tl1379313943_))) + (let ((_tl1381013911_ (let () (declare (not safe)) - (##cdr _e1363513727_))) - (_hd1363413731_ + (##cdr _e1381213904_))) + (_hd1381113908_ (let () (declare (not safe)) - (##car _e1363513727_)))) - (if (gx#stx-null? _tl1363313734_) - (___kont1481014811_ - _hd1363413731_ - _hd1361713763_) + (##car _e1381213904_)))) + (if (gx#stx-null? _tl1381013911_) + (___kont1498714988_ + _hd1381113908_ + _hd1379413940_) (if (gx#stx-pair? - _tl1363313734_) - (let ((_e1364713680_ + _tl1381013911_) + (let ((_e1382413857_ (gx#syntax-e - _tl1363313734_))) - (let ((_tl1364513687_ + _tl1381013911_))) + (let ((_tl1382213864_ (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 _e1382413857_))) + (_hd1382313861_ + (let () (declare (not safe)) (##car _e1382413857_)))) + (if (gx#stx-null? _tl1382213864_) + (___kont1498914990_ + _hd1382313861_ + _hd1381113908_ + _hd1379413940_) + (let () (declare (not safe)) (_g1379013830_))))) + (let () (declare (not safe)) (_g1379013830_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1361313653_)))))) + (_g1379013830_)))))) (let () (declare (not safe)) - (_g1361313653_)))))))))) + (_g1379013830_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1355013561_)))) - (_g1354813826_ - (_recur13448_ _rest13484_))))) - _g1352213533_)))) - (_g1352013830_ + _g1372713738_)))) + (_g1372514003_ + (_recur13625_ _rest13661_))))) + _g1369913710_)))) + (_g1369714007_ (let () (declare (not safe)) - (cons _L13503_ '())))))) - _g1348913500_)))) - (_g1348713834_ (gx#genident '$E))))) + (cons _L13680_ '())))))) + _g1366613677_)))) + (_g1366414011_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K1345713476_ + (_K1363413653_ (lambda () - (let ((__tmp14990 + (let ((__tmp15167 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp14987 - (let ((__tmp14988 + (__tmp15164 + (let ((__tmp15165 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp14989 + (let ((__tmp15166 (let () (declare (not safe)) - (cons _L13426_ '())))) + (cons _L13603_ '())))) (declare (not safe)) - (cons '"Bad syntax" __tmp14989)))) + (cons '"Bad syntax" __tmp15166)))) (declare (not safe)) - (cons '#f __tmp14988)))) + (cons '#f __tmp15165)))) (declare (not safe)) - (cons __tmp14990 __tmp14987))))) + (cons __tmp15167 __tmp15164))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match1345513480_ + (let ((_try-match1363213657_ (lambda () (if (let () (declare (not safe)) - (##null? _rest1345313462_)) - (_K1345713476_) - (_E1345613468_))))) + (##null? _rest1363013639_)) + (_K1363413653_) + (_E1363313645_))))) (if (let () (declare (not safe)) - (##pair? _rest1345313462_)) - (let ((_tl1346013845_ + (##pair? _rest1363013639_)) + (let ((_tl1363714022_ (let () (declare (not safe)) - (##cdr _rest1345313462_))) - (_hd1345913842_ + (##cdr _rest1363013639_))) + (_hd1363614019_ (let () (declare (not safe)) - (##car _rest1345313462_)))) - (let ((_hd13848_ - _hd1345913842_) - (_rest13851_ - _tl1346013845_)) - (_K1345813838_ - _rest13851_ - _hd13848_))) - (_try-match1345513480_))))))) - _clause1335013419_ - _hd1334013387_ - _hd1333713377_)))))) - (_loop1334513399_ _target1334213393_ '())) - (_g1332813356_ _g1332913360_))))) + (##car _rest1363013639_)))) + (let ((_hd14025_ + _hd1363614019_) + (_rest14028_ + _tl1363714022_)) + (_K1363514015_ + _rest14028_ + _hd14025_))) + (_try-match1363213657_))))))) + _clause1352713596_ + _hd1351713564_ + _hd1351413554_)))))) + (_loop1352213576_ _target1351913570_ '())) + (_g1350513533_ _g1350613537_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g1332813356_ - _g1332913360_)))) - (_g1332813356_ _g1332913360_)))) - (_g1332813356_ _g1332913360_)))) - (_g1332813356_ _g1332913360_))))) - (_g1332713862_ _stx13322_))))) + (_g1350513533_ + _g1350613537_)))) + (_g1350513533_ _g1350613537_)))) + (_g1350513533_ _g1350613537_)))) + (_g1350513533_ _g1350613537_))))) + (_g1350414039_ _stx13499_))))) (define |[:0:]#SyntaxError| (|gerbil/core$$[1]#make-extended-class-info| 'runtime-identifier: - |[1]#_g14992_| + |[1]#_g15169_| 'expander-identifiers: - (let ((__tmp15039 - (let ((__tmp15040 |[1]#_g15041_|)) + (let ((__tmp15216 + (let ((__tmp15217 |[1]#_g15218_|)) (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 __tmp15217 '()))) + (__tmp15170 + (let ((__tmp15215 |[1]#_g15169_|) + (__tmp15171 + (let ((__tmp15213 |[1]#_g15214_|) + (__tmp15172 + (let ((__tmp15211 |[1]#_g15212_|) + (__tmp15173 + (let ((__tmp15193 + (let ((__tmp15209 |[1]#_g15210_|) + (__tmp15194 + (let ((__tmp15207 + |[1]#_g15208_|) + (__tmp15195 + (let ((__tmp15205 + |[1]#_g15206_|) + (__tmp15196 + (let ((__tmp15203 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g15027_|) - (__tmp15020 - (let ((__tmp15024 |[1]#_g15025_|) - (__tmp15021 - (let ((__tmp15022 |[1]#_g15023_|)) + |[1]#_g15204_|) + (__tmp15197 + (let ((__tmp15201 |[1]#_g15202_|) + (__tmp15198 + (let ((__tmp15199 |[1]#_g15200_|)) (declare (not safe)) - (cons __tmp15022 '())))) + (cons __tmp15199 '())))) (declare (not safe)) - (cons __tmp15024 __tmp15021)))) + (cons __tmp15201 __tmp15198)))) (declare (not safe)) - (cons __tmp15026 __tmp15020)))) + (cons __tmp15203 __tmp15197)))) (declare (not safe)) - (cons __tmp15028 __tmp15019)))) + (cons __tmp15205 __tmp15196)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15030 - __tmp15018)))) + (cons __tmp15207 + __tmp15195)))) (declare (not safe)) - (cons __tmp15032 __tmp15017))) - (__tmp14997 - (let ((__tmp14998 - (let ((__tmp15014 - |[1]#_g15015_|) - (__tmp14999 - (let ((__tmp15012 - |[1]#_g15013_|) - (__tmp15000 - (let ((__tmp15010 + (cons __tmp15209 __tmp15194))) + (__tmp15174 + (let ((__tmp15175 + (let ((__tmp15191 + |[1]#_g15192_|) + (__tmp15176 + (let ((__tmp15189 + |[1]#_g15190_|) + (__tmp15177 + (let ((__tmp15187 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |[1]#_g15011_|) - (__tmp15001 - (let ((__tmp15008 |[1]#_g15009_|) - (__tmp15002 - (let ((__tmp15006 |[1]#_g15007_|) - (__tmp15003 - (let ((__tmp15004 |[1]#_g15005_|)) + |[1]#_g15188_|) + (__tmp15178 + (let ((__tmp15185 |[1]#_g15186_|) + (__tmp15179 + (let ((__tmp15183 |[1]#_g15184_|) + (__tmp15180 + (let ((__tmp15181 |[1]#_g15182_|)) (declare (not safe)) - (cons __tmp15004 '())))) + (cons __tmp15181 '())))) (declare (not safe)) - (cons __tmp15006 __tmp15003)))) + (cons __tmp15183 __tmp15180)))) (declare (not safe)) - (cons __tmp15008 __tmp15002)))) + (cons __tmp15185 __tmp15179)))) (declare (not safe)) - (cons __tmp15010 __tmp15001)))) + (cons __tmp15187 __tmp15178)))) (declare (not safe)) - (cons __tmp15012 __tmp15000)))) + (cons __tmp15189 __tmp15177)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp15014 - __tmp14999)))) + (cons __tmp15191 + __tmp15176)))) (declare (not safe)) - (cons __tmp14998 '())))) + (cons __tmp15175 '())))) (declare (not safe)) - (cons __tmp15016 __tmp14997)))) + (cons __tmp15193 __tmp15174)))) (declare (not safe)) - (cons __tmp15034 __tmp14996)))) + (cons __tmp15211 __tmp15173)))) (declare (not safe)) - (cons __tmp15036 __tmp14995)))) + (cons __tmp15213 __tmp15172)))) (declare (not safe)) - (cons __tmp15038 __tmp14994)))) + (cons __tmp15215 __tmp15171)))) (declare (not safe)) - (cons __tmp15039 __tmp14993)) + (cons __tmp15216 __tmp15170)) 'type-exhibitor: (|gerbil/core$$[1]#make-runtime-class-exhibitor| '#f - (list |[1]#_g15042_|) + (list |[1]#_g15219_|) 'SyntaxError '#f '((final: . #t)) @@ -1425,49 +1425,49 @@ (define |[:0:]#AST| (|gerbil/core$$[1]#make-extended-struct-info| 'runtime-identifier: - |[1]#_g15043_| + |[1]#_g15220_| '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 ((__tmp15221 + (let ((__tmp15242 |[1]#_g15220_|) + (__tmp15222 + (let ((__tmp15240 |[1]#_g15241_|) + (__tmp15223 + (let ((__tmp15238 |[1]#_g15239_|) + (__tmp15224 + (let ((__tmp15232 + (let ((__tmp15236 |[1]#_g15237_|) + (__tmp15233 + (let ((__tmp15234 + |[1]#_g15235_|)) (declare (not safe)) - (cons __tmp15057 '())))) + (cons __tmp15234 '())))) (declare (not safe)) - (cons __tmp15059 __tmp15056))) - (__tmp15048 - (let ((__tmp15049 - (let ((__tmp15053 - |[1]#_g15054_|) - (__tmp15050 - (let ((__tmp15051 - |[1]#_g15052_|)) + (cons __tmp15236 __tmp15233))) + (__tmp15225 + (let ((__tmp15226 + (let ((__tmp15230 + |[1]#_g15231_|) + (__tmp15227 + (let ((__tmp15228 + |[1]#_g15229_|)) (declare (not safe)) - (cons __tmp15051 + (cons __tmp15228 '())))) (declare (not safe)) - (cons __tmp15053 - __tmp15050)))) + (cons __tmp15230 + __tmp15227)))) (declare (not safe)) - (cons __tmp15049 '())))) + (cons __tmp15226 '())))) (declare (not safe)) - (cons __tmp15055 __tmp15048)))) + (cons __tmp15232 __tmp15225)))) (declare (not safe)) - (cons __tmp15061 __tmp15047)))) + (cons __tmp15238 __tmp15224)))) (declare (not safe)) - (cons __tmp15063 __tmp15046)))) + (cons __tmp15240 __tmp15223)))) (declare (not safe)) - (cons __tmp15065 __tmp15045)))) + (cons __tmp15242 __tmp15222)))) (declare (not safe)) - (cons '#f __tmp15044)) + (cons '#f __tmp15221)) '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..aedb57d2cd 100644 --- a/src/bootstrap/gerbil/runtime/system.ssi +++ b/src/bootstrap/gerbil/runtime/system.ssi @@ -5,11 +5,38 @@ namespace: #f (%#begin (%#export #t) (%#import :gerbil/runtime/gambit :gerbil/runtime/util) (%#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))) + (%#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..c88a8601bb 100644 --- a/src/bootstrap/gerbil/runtime/system.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/system.ssxi.ss @@ -3,6 +3,20 @@ 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-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..1928021175 100644 --- a/src/bootstrap/gerbil/runtime/system__0.scm +++ b/src/bootstrap/gerbil/runtime/system__0.scm @@ -1,28 +1,151 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1697117311) + (define gerbil/runtime/system::timestamp 1698333192) (begin - (define gerbil-version-string (lambda () '"v0.18-rc1-10-g630d6fc3")) + (define gerbil-version-string (lambda () '"v0.18-8-g9c013074")) + (define gerbil-system-manifest + (let ((__tmp8716 + (let ((__tmp8717 + (let () (declare (not safe)) (gerbil-version-string)))) + (declare (not safe)) + (cons '"Gerbil" __tmp8717))) + (__tmp8713 + (let ((__tmp8714 + (let ((__tmp8715 (system-version-string))) + (declare (not safe)) + (cons '"Gambit" __tmp8715)))) + (declare (not safe)) + (cons __tmp8714 '())))) + (declare (not safe)) + (cons __tmp8716 __tmp8713))) + (define build-manifest gerbil-system-manifest) + (set! build-manifest build-manifest) + (define display-build-manifest__% + (lambda (_manifest6570_ _port6571_) + (letrec* ((_p6573_ (lambda (_x6607_) (display _x6607_ _port6571_))) + (_l6574_ (length _manifest6570_)) + (_i6575_ '0)) + (for-each + (lambda (_layer6577_) + (if (let () (declare (not safe)) (zero? _i6575_)) + '#!void + (if (= _i6575_ '1) + (let () (declare (not safe)) (_p6573_ '" on ")) + (let () (declare (not safe)) (_p6573_ '", ")))) + (let* ((_layer65786585_ _layer6577_) + (_E65806589_ + (lambda () (error '"No clause matching" _layer65786585_))) + (_K65816595_ + (lambda (_version6592_ _name6593_) + (let () (declare (not safe)) (_p6573_ _name6593_)) + (let () (declare (not safe)) (_p6573_ '" ")) + (let () (declare (not safe)) (_p6573_ _version6592_))))) + (if (let () (declare (not safe)) (##pair? _layer65786585_)) + (let ((_hd65826598_ + (let () + (declare (not safe)) + (##car _layer65786585_))) + (_tl65836600_ + (let () + (declare (not safe)) + (##cdr _layer65786585_)))) + (let* ((_name6603_ _hd65826598_) + (_version6605_ _tl65836600_)) + (declare (not safe)) + (_K65816595_ _version6605_ _name6603_))) + (let () (declare (not safe)) (_E65806589_)))) + (set! _i6575_ (+ _i6575_ '1))) + _manifest6570_)))) + (define display-build-manifest__0 + (lambda () + (let* ((_manifest6613_ build-manifest) + (_port6615_ (current-output-port))) + (declare (not safe)) + (display-build-manifest__% _manifest6613_ _port6615_)))) + (define display-build-manifest__1 + (lambda (_manifest6617_) + (let ((_port6619_ (current-output-port))) + (declare (not safe)) + (display-build-manifest__% _manifest6617_ _port6619_)))) + (define display-build-manifest + (lambda _g8719_ + (let ((_g8718_ (let () (declare (not safe)) (##length _g8719_)))) + (cond ((let () (declare (not safe)) (##fx= _g8718_ 0)) + (apply (lambda () + (let () + (declare (not safe)) + (display-build-manifest__0))) + _g8719_)) + ((let () (declare (not safe)) (##fx= _g8718_ 1)) + (apply (lambda (_manifest6617_) + (let () + (declare (not safe)) + (display-build-manifest__1 _manifest6617_))) + _g8719_)) + ((let () (declare (not safe)) (##fx= _g8718_ 2)) + (apply (lambda (_manifest6621_ _port6622_) + (let () + (declare (not safe)) + (display-build-manifest__% + _manifest6621_ + _port6622_))) + _g8719_)) + (else + (##raise-wrong-number-of-arguments-exception + display-build-manifest + _g8719_)))))) + (define build-manifest-string__% + (lambda (_manifest6557_) + (call-with-output-string + '() + (lambda (_p6559_) + (let () + (declare (not safe)) + (display-build-manifest__% _manifest6557_ _p6559_)))))) + (define build-manifest-string__0 + (lambda () + (let ((_manifest6565_ build-manifest)) + (declare (not safe)) + (build-manifest-string__% _manifest6565_)))) + (define build-manifest-string + (lambda _g8721_ + (let ((_g8720_ (let () (declare (not safe)) (##length _g8721_)))) + (cond ((let () (declare (not safe)) (##fx= _g8720_ 0)) + (apply (lambda () + (let () + (declare (not safe)) + (build-manifest-string__0))) + _g8721_)) + ((let () (declare (not safe)) (##fx= _g8720_ 1)) + (apply (lambda (_manifest6567_) + (let () + (declare (not safe)) + (build-manifest-string__% _manifest6567_))) + _g8721_)) + (else + (##raise-wrong-number-of-arguments-exception + build-manifest-string + _g8721_)))))) (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 ((_$e6551_ (getenv '"GERBIL_HOME" '#f))) + (if _$e6551_ _$e6551_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_$e6464_ (getenv '"GERBIL_PATH" '#f))) - (if _$e6464_ _$e6464_ (path-expand '"~/.gerbil"))))) + (let ((_$e6547_ (getenv '"GERBIL_PATH" '#f))) + (if _$e6547_ _$e6547_ (path-expand '"~/.gerbil"))))) (define gerbil-runtime-smp? (lambda () (member '"--enable-smp" - (let ((__tmp8559 (configure-command-string))) + (let ((__tmp8722 (configure-command-string))) (declare (not safe)) - (string-split __tmp8559 '#\'))))))) + (string-split __tmp8722 '#\'))))))) diff --git a/src/bootstrap/gerbil/runtime/system__1.scm b/src/bootstrap/gerbil/runtime/system__1.scm new file mode 100644 index 0000000000..6b06b4c1be --- /dev/null +++ b/src/bootstrap/gerbil/runtime/system__1.scm @@ -0,0 +1,89 @@ +(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) +(define |[:0:]#defmutable| + (lambda (_$stx6463_) + (let* ((_g64676485_ + (lambda (_g64686481_) + (gx#raise-syntax-error '#f '"Bad syntax" _g64686481_))) + (_g64666541_ + (lambda (_g64686489_) + (if (gx#stx-pair? _g64686489_) + (let ((_e64736492_ (gx#syntax-e _g64686489_))) + (let ((_hd64726496_ + (let () (declare (not safe)) (##car _e64736492_))) + (_tl64716499_ + (let () (declare (not safe)) (##cdr _e64736492_)))) + (if (gx#stx-pair? _tl64716499_) + (let ((_e64766502_ (gx#syntax-e _tl64716499_))) + (let ((_hd64756506_ + (let () + (declare (not safe)) + (##car _e64766502_))) + (_tl64746509_ + (let () + (declare (not safe)) + (##cdr _e64766502_)))) + (if (gx#stx-pair? _tl64746509_) + (let ((_e64796512_ + (gx#syntax-e _tl64746509_))) + (let ((_hd64786516_ + (let () + (declare (not safe)) + (##car _e64796512_))) + (_tl64776519_ + (let () + (declare (not safe)) + (##cdr _e64796512_)))) + (if (gx#stx-null? _tl64776519_) + ((lambda (_L6522_ _L6524_) + (let ((__tmp8736 + (gx#datum->syntax + '#f + 'begin)) + (__tmp8723 + (let ((__tmp8732 + (let ((__tmp8735 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'def)) + (__tmp8733 + (let ((__tmp8734 + (let () + (declare (not safe)) + (cons _L6522_ '())))) + (declare (not safe)) + (cons _L6524_ __tmp8734)))) + (declare (not safe)) + (cons __tmp8735 __tmp8733))) + (__tmp8724 + (let ((__tmp8728 + (let ((__tmp8731 (gx#datum->syntax '#f 'set!)) + (__tmp8729 + (let ((__tmp8730 + (let () + (declare (not safe)) + (cons _L6524_ '())))) + (declare (not safe)) + (cons _L6524_ __tmp8730)))) + (declare (not safe)) + (cons __tmp8731 __tmp8729))) + (__tmp8725 + (let ((__tmp8726 + (let ((__tmp8727 + (gx#datum->syntax '#f 'void))) + (declare (not safe)) + (cons __tmp8727 '())))) + (declare (not safe)) + (cons __tmp8726 '())))) + (declare (not safe)) + (cons __tmp8728 __tmp8725)))) + (declare (not safe)) + (cons __tmp8732 __tmp8724)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp8736 __tmp8723))) + _hd64786516_ + _hd64756506_) + (_g64676485_ _g64686489_)))) + (_g64676485_ _g64686489_)))) + (_g64676485_ _g64686489_)))) + (_g64676485_ _g64686489_))))) + (_g64666541_ _$stx6463_)))) diff --git a/src/bootstrap/gerbil/runtime/thread__0.scm b/src/bootstrap/gerbil/runtime/thread__0.scm index efb12becaa..a27d0b60de 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 1698333192) (begin (define spawn - (lambda (_f13182_ . _args13183_) - (if (let () (declare (not safe)) (procedure? _f13182_)) + (lambda (_f13359_ . _args13360_) + (if (let () (declare (not safe)) (procedure? _f13359_)) '#!void - (raise (let ((__tmp13184 - (let () (declare (not safe)) (cons _f13182_ '())))) + (raise (let ((__tmp13361 + (let () (declare (not safe)) (cons _f13359_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -15,16 +15,16 @@ 'where: 'spawn 'irritants: - __tmp13184)))) + __tmp13361)))) (let () (declare (not safe)) - (spawn-actor _f13182_ _args13183_ '#!void '#f)))) + (spawn-actor _f13359_ _args13360_ '#!void '#f)))) (define spawn/name - (lambda (_name13178_ _f13179_ . _args13180_) - (if (let () (declare (not safe)) (procedure? _f13179_)) + (lambda (_name13355_ _f13356_ . _args13357_) + (if (let () (declare (not safe)) (procedure? _f13356_)) '#!void - (raise (let ((__tmp13185 - (let () (declare (not safe)) (cons _f13179_ '())))) + (raise (let ((__tmp13362 + (let () (declare (not safe)) (cons _f13356_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -32,16 +32,16 @@ 'where: 'spawn/name 'irritants: - __tmp13185)))) + __tmp13362)))) (let () (declare (not safe)) - (spawn-actor _f13179_ _args13180_ _name13178_ '#f)))) + (spawn-actor _f13356_ _args13357_ _name13355_ '#f)))) (define spawn/group - (lambda (_name13172_ _f13173_ . _args13174_) - (if (let () (declare (not safe)) (procedure? _f13173_)) + (lambda (_name13349_ _f13350_ . _args13351_) + (if (let () (declare (not safe)) (procedure? _f13350_)) '#!void - (raise (let ((__tmp13186 - (let () (declare (not safe)) (cons _f13173_ '())))) + (raise (let ((__tmp13363 + (let () (declare (not safe)) (cons _f13350_ '())))) (declare (not safe)) (make-class-instance Error::t @@ -49,174 +49,174 @@ 'where: 'spawn/group 'irritants: - __tmp13186)))) - (let ((_tgroup13176_ (make-thread-group _name13172_))) + __tmp13363)))) + (let ((_tgroup13353_ (make-thread-group _name13349_))) (declare (not safe)) - (spawn-actor _f13173_ _args13174_ _name13172_ _tgroup13176_)))) + (spawn-actor _f13350_ _args13351_ _name13349_ _tgroup13353_)))) (define spawn-actor - (lambda (_f13145_ _args13146_ _name13147_ _tgroup13148_) - (letrec ((_thread-main13150_ - (lambda (_thunk13164_) + (lambda (_f13322_ _args13323_ _name13324_ _tgroup13325_) + (letrec ((_thread-main13327_ + (lambda (_thunk13341_) (lambda () (with-exception-handler - (lambda (_exn13167_) - (let ((__tmp13187 - (lambda (_cont13169_) + (lambda (_exn13344_) + (let ((__tmp13364 + (lambda (_cont13346_) (if __unhandled-actor-exception-hook - (let ((__tmp13188 + (let ((__tmp13365 (lambda () (__unhandled-actor-exception-hook - _cont13169_ - _exn13167_)))) + _cont13346_ + _exn13344_)))) (declare (not safe)) - (with-catch void __tmp13188)) + (with-catch void __tmp13365)) '#!void) - (let ((__tmp13189 + (let ((__tmp13366 (let () (declare (not safe)) - (##continuation-last _cont13169_)))) + (##continuation-last _cont13346_)))) (declare (not safe)) (##continuation-graft - __tmp13189 + __tmp13366 ##primordial-exception-handler - _exn13167_))))) + _exn13344_))))) (declare (not safe)) - (##continuation-capture __tmp13187))) - _thunk13164_))))) - (let* ((_thunk13153_ - (if (let () (declare (not safe)) (null? _args13146_)) - _f13145_ - (lambda () (apply _f13145_ _args13146_)))) - (_thunk13156_ + (##continuation-capture __tmp13364))) + _thunk13341_))))) + (let* ((_thunk13330_ + (if (let () (declare (not safe)) (null? _args13323_)) + _f13322_ + (lambda () (apply _f13322_ _args13323_)))) + (_thunk13333_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk13153_)))) - (_tgroup13161_ - (let ((_$e13158_ _tgroup13148_)) - (if _$e13158_ - _$e13158_ + (with-exception-stack-trace__0 _thunk13330_)))) + (_tgroup13338_ + (let ((_$e13335_ _tgroup13325_)) + (if _$e13335_ + _$e13335_ (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-main13327_ _thunk13333_)) + _name13324_ + _tgroup13338_)))))) (define spawn-thread__% - (lambda (_thunk13123_ _name13124_ _tgroup13125_) - (thread-start! (make-thread _thunk13123_ _name13124_ _tgroup13125_)))) + (lambda (_thunk13300_ _name13301_ _tgroup13302_) + (thread-start! (make-thread _thunk13300_ _name13301_ _tgroup13302_)))) (define spawn-thread__0 - (lambda (_thunk13130_) - (let* ((_name13132_ absent-obj) (_tgroup13134_ absent-obj)) + (lambda (_thunk13307_) + (let* ((_name13309_ absent-obj) (_tgroup13311_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk13130_ _name13132_ _tgroup13134_)))) + (spawn-thread__% _thunk13307_ _name13309_ _tgroup13311_)))) (define spawn-thread__1 - (lambda (_thunk13136_ _name13137_) - (let ((_tgroup13139_ absent-obj)) + (lambda (_thunk13313_ _name13314_) + (let ((_tgroup13316_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk13136_ _name13137_ _tgroup13139_)))) + (spawn-thread__% _thunk13313_ _name13314_ _tgroup13316_)))) (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 _g13368_ + (let ((_g13367_ (let () (declare (not safe)) (##length _g13368_)))) + (cond ((let () (declare (not safe)) (##fx= _g13367_ 1)) + (apply (lambda (_thunk13307_) (let () (declare (not safe)) - (spawn-thread__0 _thunk13130_))) - _g13191_)) - ((let () (declare (not safe)) (##fx= _g13190_ 2)) - (apply (lambda (_thunk13136_ _name13137_) + (spawn-thread__0 _thunk13307_))) + _g13368_)) + ((let () (declare (not safe)) (##fx= _g13367_ 2)) + (apply (lambda (_thunk13313_ _name13314_) (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 _thunk13313_ _name13314_))) + _g13368_)) + ((let () (declare (not safe)) (##fx= _g13367_ 3)) + (apply (lambda (_thunk13318_ _name13319_ _tgroup13320_) (let () (declare (not safe)) (spawn-thread__% - _thunk13141_ - _name13142_ - _tgroup13143_))) - _g13191_)) + _thunk13318_ + _name13319_ + _tgroup13320_))) + _g13368_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g13191_)))))) + _g13368_)))))) (define thread-local-ref__% - (lambda (_key13107_ _default13108_) - (let ((_tab13110_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key13284_ _default13285_) + (let ((_tab13287_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-ref _tab13110_ _key13107_ _default13108_)))) + (table-ref _tab13287_ _key13284_ _default13285_)))) (define thread-local-ref__0 - (lambda (_key13115_) - (let ((_default13117_ absent-obj)) + (lambda (_key13292_) + (let ((_default13294_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key13115_ _default13117_)))) + (thread-local-ref__% _key13292_ _default13294_)))) (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 _g13370_ + (let ((_g13369_ (let () (declare (not safe)) (##length _g13370_)))) + (cond ((let () (declare (not safe)) (##fx= _g13369_ 1)) + (apply (lambda (_key13292_) (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 _key13292_))) + _g13370_)) + ((let () (declare (not safe)) (##fx= _g13369_ 2)) + (apply (lambda (_key13296_ _default13297_) (let () (declare (not safe)) - (thread-local-ref__% _key13119_ _default13120_))) - _g13193_)) + (thread-local-ref__% _key13296_ _default13297_))) + _g13370_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g13193_)))))) + _g13370_)))))) (define thread-local-get - (lambda (_key13104_) - (let () (declare (not safe)) (thread-local-ref _key13104_ '#f)))) + (lambda (_key13281_) + (let () (declare (not safe)) (thread-local-ref _key13281_ '#f)))) (define thread-local-set! - (lambda (_key13099_ _value13100_) - (let ((_tab13102_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key13276_ _value13277_) + (let ((_tab13279_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab13102_ _key13099_ _value13100_)))) + (table-set! _tab13279_ _key13276_ _value13277_)))) (define thread-local-clear! - (lambda (_key13095_) - (let ((_tab13097_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key13272_) + (let ((_tab13274_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab13097_ _key13095_)))) + (table-set! _tab13274_ _key13272_)))) (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 ((_thr13258_ (current-thread))) + (if (let () (declare (not safe)) (actor-thread? _thr13258_)) + (let ((_$e13260_ (actor-thread-locals _thr13258_))) + (if _$e13260_ + (values _$e13260_) + (let ((_tab13263_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (actor-thread-locals-set! _thr13081_ _tab13086_) - _tab13086_))) + (actor-thread-locals-set! _thr13258_ _tab13263_) + _tab13263_))) (if (let () (declare (not safe)) - (eq? _thr13081_ ##primordial-thread)) + (eq? _thr13258_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e13088_ + (let ((_$e13265_ (let () (declare (not safe)) - (table-ref __thread-locals _thr13081_ '#f)))) - (if _$e13088_ - ((lambda (_tab13091_) + (table-ref __thread-locals _thr13258_ '#f)))) + (if _$e13265_ + ((lambda (_tab13268_) (mutex-unlock! __thread-locals-mutex) - _tab13091_) - _$e13088_) - (let ((_tab13093_ + _tab13268_) + _$e13265_) + (let ((_tab13270_ (let () (declare (not safe)) (make-table 'test: eq?)))) @@ -224,10 +224,10 @@ (declare (not safe)) (table-set! __thread-locals - _thr13081_ - _tab13093_)) + _thr13258_ + _tab13270_)) (mutex-unlock! __thread-locals-mutex) - _tab13093_))))))))) + _tab13270_))))))))) (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 (_proc13255_) + (if (let () (declare (not safe)) (procedure? _proc13255_)) '#!void - (raise (let ((__tmp13194 + (raise (let ((__tmp13371 (let () (declare (not safe)) - (cons _proc13078_ '())))) + (cons _proc13255_ '())))) (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_))) + __tmp13371)))) + (set! __unhandled-actor-exception-hook _proc13255_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx13066_ _proc13067_) - (let ((_handler13069_ (current-exception-handler))) + (lambda (_mx13243_ _proc13244_) + (let ((_handler13246_ (current-exception-handler))) (with-exception-handler - (lambda (_e13071_) - (let ((__tmp13195 + (lambda (_e13248_) + (let ((__tmp13372 (lambda () - (mutex-unlock! _mx13066_) - (_handler13069_ _e13071_)))) + (mutex-unlock! _mx13243_) + (_handler13246_ _e13248_)))) (declare (not safe)) - (with-catch void __tmp13195)) + (with-catch void __tmp13372)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e13071_))) + (##thread-end-with-uncaught-exception! _e13248_))) (lambda () - (mutex-lock! _mx13066_) - (let ((_result13075_ (_proc13067_))) - (mutex-unlock! _mx13066_) - _result13075_)))))) + (mutex-lock! _mx13243_) + (let ((_result13252_ (_proc13244_))) + (mutex-unlock! _mx13243_) + _result13252_)))))) (define with-dynamic-lock - (lambda (_mx13061_ _proc13062_) + (lambda (_mx13238_ _proc13239_) (dynamic-wind - (lambda () (mutex-lock! _mx13061_)) - _proc13062_ - (lambda () (mutex-unlock! _mx13061_))))) + (lambda () (mutex-lock! _mx13238_)) + _proc13239_ + (lambda () (mutex-unlock! _mx13238_))))) (define with-exception-stack-trace__% - (lambda (_thunk13042_ _error-port13043_) + (lambda (_thunk13219_ _error-port13220_) (with-exception-handler - (let ((_E13045_ (current-exception-handler))) - (lambda (_exn13047_) + (let ((_E13222_ (current-exception-handler))) + (lambda (_exn13224_) (continuation-capture - (lambda (_cont13049_) - (let () - (declare (not safe)) - (dump-stack-trace!__% - _cont13049_ - _exn13047_ - _error-port13043_)) - (_E13045_ _exn13047_))))) - _thunk13042_))) + (lambda (_cont13226_) + (if (dump-stack-trace?) + (let () + (declare (not safe)) + (dump-stack-trace!__% + _cont13226_ + _exn13224_ + _error-port13220_)) + '#!void) + (_E13222_ _exn13224_))))) + _thunk13219_))) (define with-exception-stack-trace__0 - (lambda (_thunk13054_) - (let ((_error-port13056_ (current-error-port))) + (lambda (_thunk13231_) + (let ((_error-port13233_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk13054_ _error-port13056_)))) + (with-exception-stack-trace__% _thunk13231_ _error-port13233_)))) (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 _g13374_ + (let ((_g13373_ (let () (declare (not safe)) (##length _g13374_)))) + (cond ((let () (declare (not safe)) (##fx= _g13373_ 1)) + (apply (lambda (_thunk13231_) (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 _thunk13231_))) + _g13374_)) + ((let () (declare (not safe)) (##fx= _g13373_ 2)) + (apply (lambda (_thunk13235_ _error-port13236_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk13058_ - _error-port13059_))) - _g13197_)) + _thunk13235_ + _error-port13236_))) + _g13374_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g13197_)))))) + _g13374_)))))) (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 (_cont13200_ _exn13201_ _error-port13202_) + (let ((_out13204_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _out13204_)) + (display '"*** Unhandled exception in " _out13204_) + (display (current-thread) _out13204_) + (newline _out13204_) + (display-exception _exn13201_ _out13204_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn13024_)) + (class-instance? StackTrace::t _exn13201_)) '#!void (begin - (display '"Continuation backtrace: " _out13027_) - (newline _out13027_) - (display-continuation-backtrace _cont13023_ _out13027_))) - (let ((__tmp13198 (get-output-string _out13027_))) + (display '"Continuation backtrace: " _out13204_) + (newline _out13204_) + (display-continuation-backtrace _cont13200_ _out13204_))) + (let ((__tmp13375 (get-output-string _out13204_))) (declare (not safe)) - (##write-string __tmp13198 _error-port13025_))))) + (##write-string __tmp13375 _error-port13202_))))) (define dump-stack-trace!__0 - (lambda (_cont13032_ _exn13033_) - (let ((_error-port13035_ (current-error-port))) + (lambda (_cont13209_ _exn13210_) + (let ((_error-port13212_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont13032_ _exn13033_ _error-port13035_)))) + (dump-stack-trace!__% _cont13209_ _exn13210_ _error-port13212_)))) (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 _g13377_ + (let ((_g13376_ (let () (declare (not safe)) (##length _g13377_)))) + (cond ((let () (declare (not safe)) (##fx= _g13376_ 2)) + (apply (lambda (_cont13209_ _exn13210_) (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 _cont13209_ _exn13210_))) + _g13377_)) + ((let () (declare (not safe)) (##fx= _g13376_ 3)) + (apply (lambda (_cont13214_ _exn13215_ _error-port13216_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont13037_ - _exn13038_ - _error-port13039_))) - _g13200_)) + _cont13214_ + _exn13215_ + _error-port13216_))) + _g13377_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g13200_)))))) + _g13377_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util__0.scm b/src/bootstrap/gerbil/runtime/util__0.scm index b5b4518067..667d505757 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1697117311) + (define gerbil/runtime/util::timestamp 1698333192) (begin (define displayln (lambda _args6423_ @@ -25,29 +25,29 @@ (lambda (_file16414_ _file26415_) (letrec ((_modification-time6417_ (lambda (_file6419_) - (let ((__tmp8571 + (let ((__tmp8748 (file-info-last-modification-time (file-info _file6419_ '#t)))) (declare (not safe)) - (##time->seconds __tmp8571))))) - (let ((__tmp8573 + (##time->seconds __tmp8748))))) + (let ((__tmp8750 (let () (declare (not safe)) (_modification-time6417_ _file16414_))) - (__tmp8572 + (__tmp8749 (let () (declare (not safe)) (_modification-time6417_ _file26415_)))) (declare (not safe)) - (##fl> __tmp8573 __tmp8572))))) + (##fl> __tmp8750 __tmp8749))))) (define create-directory*__% (lambda (_dir6388_ _perms6389_) (letrec ((_create16391_ (lambda (_path6402_) (if (file-exists? _path6402_) - (if (let ((__tmp8574 (file-type _path6402_))) + (if (let ((__tmp8751 (file-type _path6402_))) (declare (not safe)) - (eq? __tmp8574 'directory)) + (eq? __tmp8751 'directory)) '#!void (error '"Path component is not a directory" _path6402_)) @@ -68,17 +68,17 @@ (if _$e6397_ ((lambda (_x6400_) (if (let () (declare (not safe)) (##fx> _x6400_ '0)) - (let ((__tmp8575 + (let ((__tmp8752 (substring _dir6388_ '0 _x6400_))) (declare (not safe)) - (_create16391_ __tmp8575)) + (_create16391_ __tmp8752)) '#!void) - (let ((__tmp8576 + (let ((__tmp8753 (let () (declare (not safe)) (##fx+ _x6400_ '1)))) (declare (not safe)) - (_lp6393_ __tmp8576))) + (_lp6393_ __tmp8753))) _$e6397_) (let () (declare (not safe)) @@ -89,35 +89,35 @@ (declare (not safe)) (create-directory*__% _dir6407_ _perms6409_)))) (define create-directory* - (lambda _g8578_ - (let ((_g8577_ (let () (declare (not safe)) (##length _g8578_)))) - (cond ((let () (declare (not safe)) (##fx= _g8577_ 1)) + (lambda _g8755_ + (let ((_g8754_ (let () (declare (not safe)) (##length _g8755_)))) + (cond ((let () (declare (not safe)) (##fx= _g8754_ 1)) (apply (lambda (_dir6407_) (let () (declare (not safe)) (create-directory*__0 _dir6407_))) - _g8578_)) - ((let () (declare (not safe)) (##fx= _g8577_ 2)) + _g8755_)) + ((let () (declare (not safe)) (##fx= _g8754_ 2)) (apply (lambda (_dir6411_ _perms6412_) (let () (declare (not safe)) (create-directory*__% _dir6411_ _perms6412_))) - _g8578_)) + _g8755_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g8578_)))))) + _g8755_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _g8579_ '#t)) + (define true (lambda _g8756_ '#t)) (define true? (lambda (_obj6384_) (let () (declare (not safe)) (eq? _obj6384_ '#t)))) - (define false (lambda _g8580_ '#f)) - (define void (lambda _g8581_ '#!void)) + (define false (lambda _g8757_ '#f)) + (define void (lambda _g8758_ '#!void)) (define void? (lambda (_obj6380_) (let () (declare (not safe)) (eq? _obj6380_ '#!void)))) - (define eof-object (lambda _g8582_ '#!eof)) + (define eof-object (lambda _g8759_ '#!eof)) (define identity (lambda (_obj6377_) _obj6377_)) (define dssl-object? (lambda (_obj6375_) @@ -134,15 +134,15 @@ (define immediate? (lambda (_obj6365_) (let* ((_t6367_ (let () (declare (not safe)) (##type _obj6365_))) - (__tmp8583 (let () (declare (not safe)) (##fxand _t6367_ '1)))) + (__tmp8760 (let () (declare (not safe)) (##fxand _t6367_ '1)))) (declare (not safe)) - (##fxzero? __tmp8583)))) + (##fxzero? __tmp8760)))) (define nonnegative-fixnum? (lambda (_obj6363_) (if (fixnum? _obj6363_) - (let ((__tmp8584 (fxnegative? _obj6363_))) + (let ((__tmp8761 (fxnegative? _obj6363_))) (declare (not safe)) - (not __tmp8584)) + (not __tmp8761)) '#f))) (define values-count (lambda (_obj6361_) @@ -170,24 +170,24 @@ (declare (not safe)) (subvector->list__% _obj6349_ _start6351_)))) (define subvector->list - (lambda _g8586_ - (let ((_g8585_ (let () (declare (not safe)) (##length _g8586_)))) - (cond ((let () (declare (not safe)) (##fx= _g8585_ 1)) + (lambda _g8763_ + (let ((_g8762_ (let () (declare (not safe)) (##length _g8763_)))) + (cond ((let () (declare (not safe)) (##fx= _g8762_ 1)) (apply (lambda (_obj6349_) (let () (declare (not safe)) (subvector->list__0 _obj6349_))) - _g8586_)) - ((let () (declare (not safe)) (##fx= _g8585_ 2)) + _g8763_)) + ((let () (declare (not safe)) (##fx= _g8762_ 2)) (apply (lambda (_obj6353_ _start6354_) (let () (declare (not safe)) (subvector->list__% _obj6353_ _start6354_))) - _g8586_)) + _g8763_)) (else (##raise-wrong-number-of-arguments-exception subvector->list - _g8586_)))))) + _g8763_)))))) (define make-hash-table make-table) (define make-hash-table-eq (lambda _args6338_ (apply make-table 'test: eq? _args6338_))) @@ -215,24 +215,24 @@ (let () (declare (not safe)) (table-ref _ht6302_ _k6303_ _default6305_))) - (__tmp8587 (_update6304_ _value6307_))) + (__tmp8764 (_update6304_ _value6307_))) (declare (not safe)) - (table-set! _ht6302_ _k6303_ __tmp8587)))) + (table-set! _ht6302_ _k6303_ __tmp8764)))) (define hash-update!__0 (lambda (_ht6312_ _k6313_ _update6314_) (let ((_default6316_ '#!void)) (declare (not safe)) (hash-update!__% _ht6312_ _k6313_ _update6314_ _default6316_)))) (define hash-update! - (lambda _g8589_ - (let ((_g8588_ (let () (declare (not safe)) (##length _g8589_)))) - (cond ((let () (declare (not safe)) (##fx= _g8588_ 3)) + (lambda _g8766_ + (let ((_g8765_ (let () (declare (not safe)) (##length _g8766_)))) + (cond ((let () (declare (not safe)) (##fx= _g8765_ 3)) (apply (lambda (_ht6312_ _k6313_ _update6314_) (let () (declare (not safe)) (hash-update!__0 _ht6312_ _k6313_ _update6314_))) - _g8589_)) - ((let () (declare (not safe)) (##fx= _g8588_ 4)) + _g8766_)) + ((let () (declare (not safe)) (##fx= _g8765_ 4)) (apply (lambda (_ht6318_ _k6319_ _update6320_ _default6321_) (let () (declare (not safe)) @@ -241,11 +241,11 @@ _k6319_ _update6320_ _default6321_))) - _g8589_)) + _g8766_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g8589_)))))) + _g8766_)))))) (define hash-remove! (lambda (_ht6298_ _k6299_) (table-set! _ht6298_ _k6299_))) (define hash->list table->list) @@ -304,77 +304,77 @@ (declare (not safe)) (plist->hash-table__% _plst6289_ _ht6291_)))) (define plist->hash-table - (lambda _g8591_ - (let ((_g8590_ (let () (declare (not safe)) (##length _g8591_)))) - (cond ((let () (declare (not safe)) (##fx= _g8590_ 1)) + (lambda _g8768_ + (let ((_g8767_ (let () (declare (not safe)) (##length _g8768_)))) + (cond ((let () (declare (not safe)) (##fx= _g8767_ 1)) (apply (lambda (_plst6289_) (let () (declare (not safe)) (plist->hash-table__0 _plst6289_))) - _g8591_)) - ((let () (declare (not safe)) (##fx= _g8590_ 2)) + _g8768_)) + ((let () (declare (not safe)) (##fx= _g8767_ 2)) (apply (lambda (_plst6293_ _ht6294_) (let () (declare (not safe)) (plist->hash-table__% _plst6293_ _ht6294_))) - _g8591_)) + _g8768_)) (else (##raise-wrong-number-of-arguments-exception plist->hash-table - _g8591_)))))) + _g8768_)))))) (define plist->hash-table-eq (lambda (_plst6228_) - (let ((__tmp8592 + (let ((__tmp8769 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (plist->hash-table _plst6228_ __tmp8592)))) + (plist->hash-table _plst6228_ __tmp8769)))) (define plist->hash-table-eqv (lambda (_plst6226_) - (let ((__tmp8593 + (let ((__tmp8770 (let () (declare (not safe)) (make-table 'test: eqv?)))) (declare (not safe)) - (plist->hash-table _plst6226_ __tmp8593)))) + (plist->hash-table _plst6226_ __tmp8770)))) (define hash-key? (lambda (_ht6223_ _k6224_) - (let ((__tmp8594 - (let ((__tmp8595 + (let ((__tmp8771 + (let ((__tmp8772 (let () (declare (not safe)) (table-ref _ht6223_ _k6224_ absent-value)))) (declare (not safe)) - (eq? __tmp8595 absent-value)))) + (eq? __tmp8772 absent-value)))) (declare (not safe)) - (not __tmp8594)))) + (not __tmp8771)))) (define hash-for-each table-for-each) (define hash-map (lambda (_fun6216_ _ht6217_) - (let ((__tmp8596 + (let ((__tmp8773 (lambda (_k6219_ _v6220_ _r6221_) - (let ((__tmp8597 (_fun6216_ _k6219_ _v6220_))) + (let ((__tmp8774 (_fun6216_ _k6219_ _v6220_))) (declare (not safe)) - (cons __tmp8597 _r6221_))))) + (cons __tmp8774 _r6221_))))) (declare (not safe)) - (hash-fold __tmp8596 '() _ht6217_)))) + (hash-fold __tmp8773 '() _ht6217_)))) (define hash-fold (lambda (_fun6207_ _iv6208_ _ht6209_) (let ((_ret6211_ _iv6208_)) - (let ((__tmp8598 + (let ((__tmp8775 (lambda (_k6213_ _v6214_) (set! _ret6211_ (_fun6207_ _k6213_ _v6214_ _ret6211_))))) (declare (not safe)) - (table-for-each __tmp8598 _ht6209_)) + (table-for-each __tmp8775 _ht6209_)) _ret6211_))) (define hash-find table-search) (define hash-keys (lambda (_ht6202_) - (let ((__tmp8599 (lambda (_k6204_ _v6205_) _k6204_))) + (let ((__tmp8776 (lambda (_k6204_ _v6205_) _k6204_))) (declare (not safe)) - (hash-map __tmp8599 _ht6202_)))) + (hash-map __tmp8776 _ht6202_)))) (define hash-values (lambda (_ht6197_) - (let ((__tmp8600 (lambda (_k6199_ _v6200_) _v6200_))) + (let ((__tmp8777 (lambda (_k6199_ _v6200_) _v6200_))) (declare (not safe)) - (hash-map __tmp8600 _ht6197_)))) + (hash-map __tmp8777 _ht6197_)))) (define hash-copy (lambda (_hd6192_ . _rest6193_) (let ((_hd6195_ (table-copy _hd6192_))) @@ -389,23 +389,23 @@ _hd6187_)) (define hash-merge (lambda (_hd6181_ . _rest6182_) - (let ((__tmp8601 + (let ((__tmp8778 (lambda (_tab6184_ _r6185_) (table-merge _r6185_ _tab6184_)))) (declare (not safe)) - (foldl1 __tmp8601 _hd6181_ _rest6182_)))) + (foldl1 __tmp8778 _hd6181_ _rest6182_)))) (define hash-merge! (lambda (_hd6175_ . _rest6176_) - (let ((__tmp8602 + (let ((__tmp8779 (lambda (_tab6178_ _r6179_) (table-merge! _r6179_ _tab6178_)))) (declare (not safe)) - (foldl1 __tmp8602 _hd6175_ _rest6176_)))) + (foldl1 __tmp8779 _hd6175_ _rest6176_)))) (define hash-clear!__% (lambda (_ht6160_ _size6161_) (let ((_gcht6163_ (let () (declare (not safe)) (##vector-ref _ht6160_ '5)))) - (if (let ((__tmp8603 (fixnum? _gcht6163_))) + (if (let ((__tmp8780 (fixnum? _gcht6163_))) (declare (not safe)) - (not __tmp8603)) + (not __tmp8780)) (let () (declare (not safe)) (##vector-set! _ht6160_ '5 _size6161_)) @@ -416,24 +416,24 @@ (declare (not safe)) (hash-clear!__% _ht6168_ _size6170_)))) (define hash-clear! - (lambda _g8605_ - (let ((_g8604_ (let () (declare (not safe)) (##length _g8605_)))) - (cond ((let () (declare (not safe)) (##fx= _g8604_ 1)) + (lambda _g8782_ + (let ((_g8781_ (let () (declare (not safe)) (##length _g8782_)))) + (cond ((let () (declare (not safe)) (##fx= _g8781_ 1)) (apply (lambda (_ht6168_) (let () (declare (not safe)) (hash-clear!__0 _ht6168_))) - _g8605_)) - ((let () (declare (not safe)) (##fx= _g8604_ 2)) + _g8782_)) + ((let () (declare (not safe)) (##fx= _g8781_ 2)) (apply (lambda (_ht6172_ _size6173_) (let () (declare (not safe)) (hash-clear!__% _ht6172_ _size6173_))) - _g8605_)) + _g8782_)) (else (##raise-wrong-number-of-arguments-exception hash-clear! - _g8605_)))))) + _g8782_)))))) (define make-list__% (lambda (_k6141_ _val6142_) (if (fixnum? _k6141_) @@ -441,12 +441,12 @@ (error '"expected argument 1 to be fixnum" _k6141_)) (let _lp6144_ ((_n6146_ '0) (_r6147_ '())) (if (let () (declare (not safe)) (##fx< _n6146_ _k6141_)) - (let ((__tmp8607 + (let ((__tmp8784 (let () (declare (not safe)) (##fx+ _n6146_ '1))) - (__tmp8606 + (__tmp8783 (let () (declare (not safe)) (cons _val6142_ _r6147_)))) (declare (not safe)) - (_lp6144_ __tmp8607 __tmp8606)) + (_lp6144_ __tmp8784 __tmp8783)) _r6147_)))) (define make-list__0 (lambda (_k6152_) @@ -454,47 +454,47 @@ (declare (not safe)) (make-list__% _k6152_ _val6154_)))) (define make-list - (lambda _g8609_ - (let ((_g8608_ (let () (declare (not safe)) (##length _g8609_)))) - (cond ((let () (declare (not safe)) (##fx= _g8608_ 1)) + (lambda _g8786_ + (let ((_g8785_ (let () (declare (not safe)) (##length _g8786_)))) + (cond ((let () (declare (not safe)) (##fx= _g8785_ 1)) (apply (lambda (_k6152_) (let () (declare (not safe)) (make-list__0 _k6152_))) - _g8609_)) - ((let () (declare (not safe)) (##fx= _g8608_ 2)) + _g8786_)) + ((let () (declare (not safe)) (##fx= _g8785_ 2)) (apply (lambda (_k6156_ _val6157_) (let () (declare (not safe)) (make-list__% _k6156_ _val6157_))) - _g8609_)) + _g8786_)) (else (##raise-wrong-number-of-arguments-exception make-list - _g8609_)))))) + _g8786_)))))) (define cons* (lambda (_x6131_ _y6132_ . _rest6133_) (letrec ((_recur6135_ (lambda (_x6137_ _rest6138_) (if (let () (declare (not safe)) (pair? _rest6138_)) - (let ((__tmp8610 - (let ((__tmp8612 + (let ((__tmp8787 + (let ((__tmp8789 (let () (declare (not safe)) (##car _rest6138_))) - (__tmp8611 + (__tmp8788 (let () (declare (not safe)) (##cdr _rest6138_)))) (declare (not safe)) - (_recur6135_ __tmp8612 __tmp8611)))) + (_recur6135_ __tmp8789 __tmp8788)))) (declare (not safe)) - (cons _x6137_ __tmp8610)) + (cons _x6137_ __tmp8787)) _x6137_)))) - (let ((__tmp8613 + (let ((__tmp8790 (let () (declare (not safe)) (_recur6135_ _y6132_ _rest6133_)))) (declare (not safe)) - (cons _x6131_ __tmp8613))))) + (cons _x6131_ __tmp8790))))) (define foldl1 (lambda (_f6089_ _iv6090_ _lst6091_) (let _lp6093_ ((_rest6095_ _lst6091_) (_r6096_ _iv6090_)) @@ -502,9 +502,9 @@ (_else60996113_ (lambda () _r6096_)) (_K61016119_ (lambda (_rest6116_ _x6117_) - (let ((__tmp8614 (_f6089_ _x6117_ _r6096_))) + (let ((__tmp8791 (_f6089_ _x6117_ _r6096_))) (declare (not safe)) - (_lp6093_ _rest6116_ __tmp8614))))) + (_lp6093_ _rest6116_ __tmp8791))))) (if (let () (declare (not safe)) (##pair? _rest60976105_)) (let ((_hd61026122_ (let () (declare (not safe)) (##car _rest60976105_))) @@ -527,13 +527,13 @@ (_else60456059_ (lambda () _r6021_)) (_K60476065_ (lambda (_rest26062_ _x26063_) - (let ((__tmp8615 + (let ((__tmp8792 (_f6012_ _x16042_ _x26063_ _r6021_))) (declare (not safe)) (_lp6017_ _rest16041_ _rest26062_ - __tmp8615))))) + __tmp8792))))) (if (let () (declare (not safe)) (##pair? _rest260436051_)) @@ -560,43 +560,43 @@ (_K60266077_ _rest16087_ _x16085_))) (let () (declare (not safe)) (_else60246038_))))))) (define foldl - (lambda _g8617_ - (let ((_g8616_ (let () (declare (not safe)) (##length _g8617_)))) - (cond ((let () (declare (not safe)) (##fx= _g8616_ 3)) + (lambda _g8794_ + (let ((_g8793_ (let () (declare (not safe)) (##length _g8794_)))) + (cond ((let () (declare (not safe)) (##fx= _g8793_ 3)) (apply (lambda (_f5997_ _iv5998_ _lst5999_) (let () (declare (not safe)) (foldl1 _f5997_ _iv5998_ _lst5999_))) - _g8617_)) - ((let () (declare (not safe)) (##fx= _g8616_ 4)) + _g8794_)) + ((let () (declare (not safe)) (##fx= _g8793_ 4)) (apply (lambda (_f6001_ _iv6002_ _lst16003_ _lst26004_) (let () (declare (not safe)) (foldl2 _f6001_ _iv6002_ _lst16003_ _lst26004_))) - _g8617_)) - ((let () (declare (not safe)) (##fx>= _g8616_ 4)) - (apply foldl* _g8617_)) + _g8794_)) + ((let () (declare (not safe)) (##fx>= _g8793_ 4)) + (apply foldl* _g8794_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g8617_)))))) + _g8794_)))))) (define foldl* (lambda (_f5985_ _iv5986_ . _rest5987_) (let _recur5989_ ((_iv5991_ _iv5986_) (_rest5992_ _rest5987_)) (if (let () (declare (not safe)) (andmap1 pair? _rest5992_)) - (let ((__tmp8619 + (let ((__tmp8796 (apply _f5985_ - (let ((__tmp8621 + (let ((__tmp8798 (lambda (_xs5994_ _r5995_) - (let ((__tmp8622 (car _xs5994_))) + (let ((__tmp8799 (car _xs5994_))) (declare (not safe)) - (cons __tmp8622 _r5995_)))) - (__tmp8620 (list _iv5991_))) + (cons __tmp8799 _r5995_)))) + (__tmp8797 (list _iv5991_))) (declare (not safe)) - (foldr1 __tmp8621 __tmp8620 _rest5992_)))) - (__tmp8618 (map cdr _rest5992_))) + (foldr1 __tmp8798 __tmp8797 _rest5992_)))) + (__tmp8795 (map cdr _rest5992_))) (declare (not safe)) - (_recur5989_ __tmp8619 __tmp8618)) + (_recur5989_ __tmp8796 __tmp8795)) _iv5991_)))) (define foldr1 (lambda (_f5944_ _iv5945_ _lst5946_) @@ -662,42 +662,42 @@ (_K58815932_ _rest15942_ _x15940_))) (let () (declare (not safe)) (_else58795893_))))))) (define foldr - (lambda _g8624_ - (let ((_g8623_ (let () (declare (not safe)) (##length _g8624_)))) - (cond ((let () (declare (not safe)) (##fx= _g8623_ 3)) + (lambda _g8801_ + (let ((_g8800_ (let () (declare (not safe)) (##length _g8801_)))) + (cond ((let () (declare (not safe)) (##fx= _g8800_ 3)) (apply (lambda (_f5853_ _iv5854_ _lst5855_) (let () (declare (not safe)) (foldr1 _f5853_ _iv5854_ _lst5855_))) - _g8624_)) - ((let () (declare (not safe)) (##fx= _g8623_ 4)) + _g8801_)) + ((let () (declare (not safe)) (##fx= _g8800_ 4)) (apply (lambda (_f5857_ _iv5858_ _lst15859_ _lst25860_) (let () (declare (not safe)) (foldr2 _f5857_ _iv5858_ _lst15859_ _lst25860_))) - _g8624_)) - ((let () (declare (not safe)) (##fx>= _g8623_ 4)) - (apply foldr* _g8624_)) + _g8801_)) + ((let () (declare (not safe)) (##fx>= _g8800_ 4)) + (apply foldr* _g8801_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g8624_)))))) + _g8801_)))))) (define foldr* (lambda (_f5842_ _iv5843_ . _rest5844_) (let _recur5846_ ((_rest5848_ _rest5844_)) (if (let () (declare (not safe)) (andmap1 pair? _rest5848_)) (apply _f5842_ - (let ((__tmp8627 + (let ((__tmp8804 (lambda (_xs5850_ _r5851_) - (let ((__tmp8628 (car _xs5850_))) + (let ((__tmp8805 (car _xs5850_))) (declare (not safe)) - (cons __tmp8628 _r5851_)))) - (__tmp8625 - (list (let ((__tmp8626 (map cdr _rest5848_))) + (cons __tmp8805 _r5851_)))) + (__tmp8802 + (list (let ((__tmp8803 (map cdr _rest5848_))) (declare (not safe)) - (_recur5846_ __tmp8626))))) + (_recur5846_ __tmp8803))))) (declare (not safe)) - (foldr1 __tmp8627 __tmp8625 _rest5848_))) + (foldr1 __tmp8804 __tmp8802 _rest5848_))) _iv5843_)))) (define andmap1 (lambda (_f5802_ _lst5803_) @@ -760,34 +760,34 @@ (_K57395790_ _rest15800_ _x15798_))) (let () (declare (not safe)) (_else57375751_))))))) (define andmap - (lambda _g8630_ - (let ((_g8629_ (let () (declare (not safe)) (##length _g8630_)))) - (cond ((let () (declare (not safe)) (##fx= _g8629_ 2)) + (lambda _g8807_ + (let ((_g8806_ (let () (declare (not safe)) (##length _g8807_)))) + (cond ((let () (declare (not safe)) (##fx= _g8806_ 2)) (apply (lambda (_f5715_ _lst5716_) (let () (declare (not safe)) (andmap1 _f5715_ _lst5716_))) - _g8630_)) - ((let () (declare (not safe)) (##fx= _g8629_ 3)) + _g8807_)) + ((let () (declare (not safe)) (##fx= _g8806_ 3)) (apply (lambda (_f5718_ _lst15719_ _lst25720_) (let () (declare (not safe)) (andmap2 _f5718_ _lst15719_ _lst25720_))) - _g8630_)) - ((let () (declare (not safe)) (##fx>= _g8629_ 3)) - (apply andmap* _g8630_)) + _g8807_)) + ((let () (declare (not safe)) (##fx>= _g8806_ 3)) + (apply andmap* _g8807_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g8630_)))))) + _g8807_)))))) (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_))) + (let ((__tmp8808 (map cdr _rest5713_))) (declare (not safe)) - (_recur5711_ __tmp8631)) + (_recur5711_ __tmp8808)) '#f) '#t)))) (define ormap1 @@ -855,26 +855,26 @@ (_K55995653_ _rest15663_ _x15661_))) (let () (declare (not safe)) (_else55975611_))))))) (define ormap - (lambda _g8633_ - (let ((_g8632_ (let () (declare (not safe)) (##length _g8633_)))) - (cond ((let () (declare (not safe)) (##fx= _g8632_ 2)) + (lambda _g8810_ + (let ((_g8809_ (let () (declare (not safe)) (##length _g8810_)))) + (cond ((let () (declare (not safe)) (##fx= _g8809_ 2)) (apply (lambda (_f5575_ _lst5576_) (let () (declare (not safe)) (ormap1 _f5575_ _lst5576_))) - _g8633_)) - ((let () (declare (not safe)) (##fx= _g8632_ 3)) + _g8810_)) + ((let () (declare (not safe)) (##fx= _g8809_ 3)) (apply (lambda (_f5578_ _lst15579_ _lst25580_) (let () (declare (not safe)) (ormap2 _f5578_ _lst15579_ _lst25580_))) - _g8633_)) - ((let () (declare (not safe)) (##fx>= _g8632_ 3)) - (apply ormap* _g8633_)) + _g8810_)) + ((let () (declare (not safe)) (##fx>= _g8809_ 3)) + (apply ormap* _g8810_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g8633_)))))) + _g8810_)))))) (define ormap* (lambda (_f5565_ . _rest5566_) (let _recur5568_ ((_rest5570_ _rest5566_)) @@ -882,9 +882,9 @@ (let ((_$e5572_ (apply _f5565_ (map car _rest5570_)))) (if _$e5572_ _$e5572_ - (let ((__tmp8634 (map cdr _rest5570_))) + (let ((__tmp8811 (map cdr _rest5570_))) (declare (not safe)) - (_recur5568_ __tmp8634)))) + (_recur5568_ __tmp8811)))) '#f)))) (define filter (lambda (_f5523_ _lst5524_) @@ -927,12 +927,12 @@ (let ((_$e5506_ (_f5478_ _x5504_))) (if _$e5506_ ((lambda (_r5509_) - (let ((__tmp8635 + (let ((__tmp8812 (let () (declare (not safe)) (_recur5481_ _rest5503_)))) (declare (not safe)) - (cons _r5509_ __tmp8635))) + (cons _r5509_ __tmp8812))) _$e5506_) (let () (declare (not safe)) @@ -960,14 +960,14 @@ (let ((_$e5449_ (_f5398_ _x15426_ _x25447_))) (if _$e5449_ ((lambda (_r5452_) - (let ((__tmp8636 + (let ((__tmp8813 (let () (declare (not safe)) (_recur5402_ _rest15425_ _rest25446_)))) (declare (not safe)) - (cons _r5452_ __tmp8636))) + (cons _r5452_ __tmp8813))) _$e5449_) (let () (declare (not safe)) @@ -1000,26 +1000,26 @@ (_K54105466_ _rest15476_ _x15474_))) (let () (declare (not safe)) (_else54085422_))))))) (define filter-map - (lambda _g8638_ - (let ((_g8637_ (let () (declare (not safe)) (##length _g8638_)))) - (cond ((let () (declare (not safe)) (##fx= _g8637_ 2)) + (lambda _g8815_ + (let ((_g8814_ (let () (declare (not safe)) (##length _g8815_)))) + (cond ((let () (declare (not safe)) (##fx= _g8814_ 2)) (apply (lambda (_f5386_ _lst5387_) (let () (declare (not safe)) (filter-map1 _f5386_ _lst5387_))) - _g8638_)) - ((let () (declare (not safe)) (##fx= _g8637_ 3)) + _g8815_)) + ((let () (declare (not safe)) (##fx= _g8814_ 3)) (apply (lambda (_f5389_ _lst15390_ _lst25391_) (let () (declare (not safe)) (filter-map2 _f5389_ _lst15390_ _lst25391_))) - _g8638_)) - ((let () (declare (not safe)) (##fx>= _g8637_ 3)) - (apply filter-map* _g8638_)) + _g8815_)) + ((let () (declare (not safe)) (##fx>= _g8814_ 3)) + (apply filter-map* _g8815_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g8638_)))))) + _g8815_)))))) (define filter-map* (lambda (_f5374_ . _rest5375_) (let _recur5377_ ((_rest5379_ _rest5375_)) @@ -1027,16 +1027,16 @@ (let ((_$e5381_ (apply _f5374_ (map car _rest5379_)))) (if _$e5381_ ((lambda (_r5384_) - (let ((__tmp8640 - (let ((__tmp8641 (map cdr _rest5379_))) + (let ((__tmp8817 + (let ((__tmp8818 (map cdr _rest5379_))) (declare (not safe)) - (_recur5377_ __tmp8641)))) + (_recur5377_ __tmp8818)))) (declare (not safe)) - (cons _r5384_ __tmp8640))) + (cons _r5384_ __tmp8817))) _$e5381_) - (let ((__tmp8639 (map cdr _rest5379_))) + (let ((__tmp8816 (map cdr _rest5379_))) (declare (not safe)) - (_recur5377_ __tmp8639)))) + (_recur5377_ __tmp8816)))) '())))) (define iota__% (lambda (_count5342_ _start5343_ _step5344_) @@ -1057,11 +1057,11 @@ (let ((_tl*5354_ (let () (declare (not safe)) (cons _x5351_ '())))) (let () (declare (not safe)) (##set-cdr! _tl5352_ _tl*5354_)) - (let ((__tmp8643 + (let ((__tmp8820 (let () (declare (not safe)) (##fx+ _i5350_ '1))) - (__tmp8642 (+ _x5351_ _step5344_))) + (__tmp8819 (+ _x5351_ _step5344_))) (declare (not safe)) - (_lp5348_ __tmp8643 __tmp8642 _tl*5354_))) + (_lp5348_ __tmp8820 __tmp8819 _tl*5354_))) (let () (declare (not safe)) (##cdr _root5346_))))))) (define iota__0 (lambda (_count5359_) @@ -1074,28 +1074,28 @@ (declare (not safe)) (iota__% _count5365_ _start5366_ _step5368_)))) (define iota - (lambda _g8645_ - (let ((_g8644_ (let () (declare (not safe)) (##length _g8645_)))) - (cond ((let () (declare (not safe)) (##fx= _g8644_ 1)) + (lambda _g8822_ + (let ((_g8821_ (let () (declare (not safe)) (##length _g8822_)))) + (cond ((let () (declare (not safe)) (##fx= _g8821_ 1)) (apply (lambda (_count5359_) (let () (declare (not safe)) (iota__0 _count5359_))) - _g8645_)) - ((let () (declare (not safe)) (##fx= _g8644_ 2)) + _g8822_)) + ((let () (declare (not safe)) (##fx= _g8821_ 2)) (apply (lambda (_count5365_ _start5366_) (let () (declare (not safe)) (iota__1 _count5365_ _start5366_))) - _g8645_)) - ((let () (declare (not safe)) (##fx= _g8644_ 3)) + _g8822_)) + ((let () (declare (not safe)) (##fx= _g8821_ 3)) (apply (lambda (_count5370_ _start5371_ _step5372_) (let () (declare (not safe)) (iota__% _count5370_ _start5371_ _step5372_))) - _g8645_)) + _g8822_)) (else (##raise-wrong-number-of-arguments-exception iota - _g8645_)))))) + _g8822_)))))) (define last-pair (lambda (_lst5316_) (let* ((_lst53175324_ _lst5316_) @@ -1133,24 +1133,24 @@ (declare (not safe)) (assgetq__% _key5305_ _lst5306_ _default5308_)))) (define assgetq - (lambda _g8647_ - (let ((_g8646_ (let () (declare (not safe)) (##length _g8647_)))) - (cond ((let () (declare (not safe)) (##fx= _g8646_ 2)) + (lambda _g8824_ + (let ((_g8823_ (let () (declare (not safe)) (##length _g8824_)))) + (cond ((let () (declare (not safe)) (##fx= _g8823_ 2)) (apply (lambda (_key5305_ _lst5306_) (let () (declare (not safe)) (assgetq__0 _key5305_ _lst5306_))) - _g8647_)) - ((let () (declare (not safe)) (##fx= _g8646_ 3)) + _g8824_)) + ((let () (declare (not safe)) (##fx= _g8823_ 3)) (apply (lambda (_key5310_ _lst5311_ _default5312_) (let () (declare (not safe)) (assgetq__% _key5310_ _lst5311_ _default5312_))) - _g8647_)) + _g8824_)) (else (##raise-wrong-number-of-arguments-exception assgetq - _g8647_)))))) + _g8824_)))))) (define assgetv__% (lambda (_key5269_ _lst5271_ _default5273_) (let ((_$e5276_ @@ -1168,24 +1168,24 @@ (declare (not safe)) (assgetv__% _key5282_ _lst5283_ _default5285_)))) (define assgetv - (lambda _g8649_ - (let ((_g8648_ (let () (declare (not safe)) (##length _g8649_)))) - (cond ((let () (declare (not safe)) (##fx= _g8648_ 2)) + (lambda _g8826_ + (let ((_g8825_ (let () (declare (not safe)) (##length _g8826_)))) + (cond ((let () (declare (not safe)) (##fx= _g8825_ 2)) (apply (lambda (_key5282_ _lst5283_) (let () (declare (not safe)) (assgetv__0 _key5282_ _lst5283_))) - _g8649_)) - ((let () (declare (not safe)) (##fx= _g8648_ 3)) + _g8826_)) + ((let () (declare (not safe)) (##fx= _g8825_ 3)) (apply (lambda (_key5287_ _lst5288_ _default5289_) (let () (declare (not safe)) (assgetv__% _key5287_ _lst5288_ _default5289_))) - _g8649_)) + _g8826_)) (else (##raise-wrong-number-of-arguments-exception assgetv - _g8649_)))))) + _g8826_)))))) (define assget__% (lambda (_key5246_ _lst5248_ _default5250_) (let ((_$e5253_ @@ -1203,24 +1203,24 @@ (declare (not safe)) (assget__% _key5259_ _lst5260_ _default5262_)))) (define assget - (lambda _g8651_ - (let ((_g8650_ (let () (declare (not safe)) (##length _g8651_)))) - (cond ((let () (declare (not safe)) (##fx= _g8650_ 2)) + (lambda _g8828_ + (let ((_g8827_ (let () (declare (not safe)) (##length _g8828_)))) + (cond ((let () (declare (not safe)) (##fx= _g8827_ 2)) (apply (lambda (_key5259_ _lst5260_) (let () (declare (not safe)) (assget__0 _key5259_ _lst5260_))) - _g8651_)) - ((let () (declare (not safe)) (##fx= _g8650_ 3)) + _g8828_)) + ((let () (declare (not safe)) (##fx= _g8827_ 3)) (apply (lambda (_key5264_ _lst5265_ _default5266_) (let () (declare (not safe)) (assget__% _key5264_ _lst5265_ _default5266_))) - _g8651_)) + _g8828_)) (else (##raise-wrong-number-of-arguments-exception assget - _g8651_)))))) + _g8828_)))))) (define pgetq__% (lambda (_key5175_ _lst5177_ _default5179_) (let _lp5182_ ((_rest5185_ _lst5177_)) @@ -1264,24 +1264,24 @@ (declare (not safe)) (pgetq__% _key5236_ _lst5237_ _default5239_)))) (define pgetq - (lambda _g8653_ - (let ((_g8652_ (let () (declare (not safe)) (##length _g8653_)))) - (cond ((let () (declare (not safe)) (##fx= _g8652_ 2)) + (lambda _g8830_ + (let ((_g8829_ (let () (declare (not safe)) (##length _g8830_)))) + (cond ((let () (declare (not safe)) (##fx= _g8829_ 2)) (apply (lambda (_key5236_ _lst5237_) (let () (declare (not safe)) (pgetq__0 _key5236_ _lst5237_))) - _g8653_)) - ((let () (declare (not safe)) (##fx= _g8652_ 3)) + _g8830_)) + ((let () (declare (not safe)) (##fx= _g8829_ 3)) (apply (lambda (_key5241_ _lst5242_ _default5243_) (let () (declare (not safe)) (pgetq__% _key5241_ _lst5242_ _default5243_))) - _g8653_)) + _g8830_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g8653_)))))) + _g8830_)))))) (define pgetv__% (lambda (_key5104_ _lst5106_ _default5108_) (let _lp5111_ ((_rest5114_ _lst5106_)) @@ -1325,24 +1325,24 @@ (declare (not safe)) (pgetv__% _key5165_ _lst5166_ _default5168_)))) (define pgetv - (lambda _g8655_ - (let ((_g8654_ (let () (declare (not safe)) (##length _g8655_)))) - (cond ((let () (declare (not safe)) (##fx= _g8654_ 2)) + (lambda _g8832_ + (let ((_g8831_ (let () (declare (not safe)) (##length _g8832_)))) + (cond ((let () (declare (not safe)) (##fx= _g8831_ 2)) (apply (lambda (_key5165_ _lst5166_) (let () (declare (not safe)) (pgetv__0 _key5165_ _lst5166_))) - _g8655_)) - ((let () (declare (not safe)) (##fx= _g8654_ 3)) + _g8832_)) + ((let () (declare (not safe)) (##fx= _g8831_ 3)) (apply (lambda (_key5170_ _lst5171_ _default5172_) (let () (declare (not safe)) (pgetv__% _key5170_ _lst5171_ _default5172_))) - _g8655_)) + _g8832_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g8655_)))))) + _g8832_)))))) (define pget__% (lambda (_key5033_ _lst5035_ _default5037_) (let _lp5040_ ((_rest5043_ _lst5035_)) @@ -1388,24 +1388,24 @@ (declare (not safe)) (pget__% _key5094_ _lst5095_ _default5097_)))) (define pget - (lambda _g8657_ - (let ((_g8656_ (let () (declare (not safe)) (##length _g8657_)))) - (cond ((let () (declare (not safe)) (##fx= _g8656_ 2)) + (lambda _g8834_ + (let ((_g8833_ (let () (declare (not safe)) (##length _g8834_)))) + (cond ((let () (declare (not safe)) (##fx= _g8833_ 2)) (apply (lambda (_key5094_ _lst5095_) (let () (declare (not safe)) (pget__0 _key5094_ _lst5095_))) - _g8657_)) - ((let () (declare (not safe)) (##fx= _g8656_ 3)) + _g8834_)) + ((let () (declare (not safe)) (##fx= _g8833_ 3)) (apply (lambda (_key5099_ _lst5100_ _default5101_) (let () (declare (not safe)) (pget__% _key5099_ _lst5100_ _default5101_))) - _g8657_)) + _g8834_)) (else (##raise-wrong-number-of-arguments-exception pget - _g8657_)))))) + _g8834_)))))) (define find (lambda (_pred5026_ _lst5027_) (let ((_$e5029_ @@ -1443,12 +1443,12 @@ (let () (declare (not safe)) (foldl1 cons _rest4970_ _r4949_)) - (let ((__tmp8658 + (let ((__tmp8835 (let () (declare (not safe)) (cons _hd4971_ _r4949_)))) (declare (not safe)) - (_lp4944_ _rest4970_ __tmp8658)))))) + (_lp4944_ _rest4970_ __tmp8835)))))) (if (let () (declare (not safe)) (##pair? _rest49514959_)) (let ((_hd49564977_ (let () (declare (not safe)) (##car _rest49514959_))) @@ -1469,12 +1469,12 @@ (let () (declare (not safe)) (foldl1 cons _rest4923_ _r4902_)) - (let ((__tmp8659 + (let ((__tmp8836 (let () (declare (not safe)) (cons _hd4924_ _r4902_)))) (declare (not safe)) - (_lp4897_ _rest4923_ __tmp8659)))))) + (_lp4897_ _rest4923_ __tmp8836)))))) (if (let () (declare (not safe)) (##pair? _rest49044912_)) (let ((_hd49094930_ (let () (declare (not safe)) (##car _rest49044912_))) @@ -1495,12 +1495,12 @@ (let () (declare (not safe)) (foldl1 cons _rest4876_ _r4855_)) - (let ((__tmp8660 + (let ((__tmp8837 (let () (declare (not safe)) (cons _hd4877_ _r4855_)))) (declare (not safe)) - (_lp4850_ _rest4876_ __tmp8660)))))) + (_lp4850_ _rest4876_ __tmp8837)))))) (if (let () (declare (not safe)) (##pair? _rest48574865_)) (let ((_hd48624883_ (let () (declare (not safe)) (##car _rest48574865_))) @@ -1521,12 +1521,12 @@ (let () (declare (not safe)) (foldl1 cons _rest4830_ _r4810_)) - (let ((__tmp8661 + (let ((__tmp8838 (let () (declare (not safe)) (cons _hd4831_ _r4810_)))) (declare (not safe)) - (_lp4807_ _rest4830_ __tmp8661)))))) + (_lp4807_ _rest4830_ __tmp8838)))))) (if (let () (declare (not safe)) (##pair? _rest48114819_)) (let ((_hd48164836_ (let () (declare (not safe)) (##car _rest48114819_))) @@ -1545,9 +1545,9 @@ (define interned-symbol? (lambda (_x4794_) (if (let () (declare (not safe)) (symbol? _x4794_)) - (let ((__tmp8662 (uninterned-symbol? _x4794_))) + (let ((__tmp8839 (uninterned-symbol? _x4794_))) (declare (not safe)) - (not __tmp8662)) + (not __tmp8839)) '#f))) (define display-as-string (lambda (_x4766_ _port4767_) @@ -1559,12 +1559,12 @@ (display _x4766_ _port4767_) (if (let () (declare (not safe)) (pair? _x4766_)) (begin - (let ((__tmp8663 (car _x4766_))) + (let ((__tmp8840 (car _x4766_))) (declare (not safe)) - (display-as-string __tmp8663 _port4767_)) - (let ((__tmp8664 (cdr _x4766_))) + (display-as-string __tmp8840 _port4767_)) + (let ((__tmp8841 (cdr _x4766_))) (declare (not safe)) - (display-as-string __tmp8664 _port4767_))) + (display-as-string __tmp8841 _port4767_))) (if (let () (declare (not safe)) (vector? _x4766_)) (vector-for-each (lambda (_g47804782_) @@ -1601,17 +1601,17 @@ (declare (not safe)) (display-as-string _args4760_ _g47614763_)))))) (define as-string - (lambda _g8666_ - (let ((_g8665_ (let () (declare (not safe)) (##length _g8666_)))) - (cond ((let () (declare (not safe)) (##fx= _g8665_ 1)) + (lambda _g8843_ + (let ((_g8842_ (let () (declare (not safe)) (##length _g8843_)))) + (cond ((let () (declare (not safe)) (##fx= _g8842_ 1)) (apply (lambda (_x4754_) (let () (declare (not safe)) (as-string__0 _x4754_))) - _g8666_)) - (#t (apply as-string__1 _g8666_)) + _g8843_)) + (#t (apply as-string__1 _g8843_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g8666_)))))) + _g8843_)))))) (define make-symbol__0 (lambda (_x4750_) (if (interned-symbol? _x4750_) @@ -1621,19 +1621,19 @@ (define make-symbol__1 (lambda _args4752_ (string->symbol (apply as-string _args4752_)))) (define make-symbol - (lambda _g8668_ - (let ((_g8667_ (let () (declare (not safe)) (##length _g8668_)))) - (cond ((let () (declare (not safe)) (##fx= _g8667_ 1)) + (lambda _g8845_ + (let ((_g8844_ (let () (declare (not safe)) (##length _g8845_)))) + (cond ((let () (declare (not safe)) (##fx= _g8844_ 1)) (apply (lambda (_x4750_) (let () (declare (not safe)) (make-symbol__0 _x4750_))) - _g8668_)) - (#t (apply make-symbol__1 _g8668_)) + _g8845_)) + (#t (apply make-symbol__1 _g8845_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g8668_)))))) + _g8845_)))))) (define make-keyword__0 (lambda (_x4746_) (if (interned-keyword? _x4746_) @@ -1643,25 +1643,25 @@ (define make-keyword__1 (lambda _args4748_ (string->keyword (apply as-string _args4748_)))) (define make-keyword - (lambda _g8670_ - (let ((_g8669_ (let () (declare (not safe)) (##length _g8670_)))) - (cond ((let () (declare (not safe)) (##fx= _g8669_ 1)) + (lambda _g8847_ + (let ((_g8846_ (let () (declare (not safe)) (##length _g8847_)))) + (cond ((let () (declare (not safe)) (##fx= _g8846_ 1)) (apply (lambda (_x4746_) (let () (declare (not safe)) (make-keyword__0 _x4746_))) - _g8670_)) - (#t (apply make-keyword__1 _g8670_)) + _g8847_)) + (#t (apply make-keyword__1 _g8847_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g8670_)))))) + _g8847_)))))) (define interned-keyword? (lambda (_x4744_) (if (keyword? _x4744_) - (let ((__tmp8671 (uninterned-keyword? _x4744_))) + (let ((__tmp8848 (uninterned-keyword? _x4744_))) (declare (not safe)) - (not __tmp8671)) + (not __tmp8848)) '#f))) (define symbol->keyword (lambda (_sym4742_) @@ -1681,18 +1681,18 @@ (utf8->string _bstr4718_) (let* ((_in4721_ (open-input-u8vector - (let ((__tmp8672 - (let ((__tmp8673 - (let ((__tmp8674 + (let ((__tmp8849 + (let ((__tmp8850 + (let ((__tmp8851 (let () (declare (not safe)) (cons _bstr4718_ '())))) (declare (not safe)) - (cons 'init: __tmp8674)))) + (cons 'init: __tmp8851)))) (declare (not safe)) - (cons _enc4719_ __tmp8673)))) + (cons _enc4719_ __tmp8850)))) (declare (not safe)) - (cons 'char-encoding: __tmp8672)))) + (cons 'char-encoding: __tmp8849)))) (_len4723_ (u8vector-length _bstr4718_)) (_out4725_ (make-string _len4723_)) (_n4727_ (read-substring _out4725_ '0 _len4723_ _in4721_))) @@ -1704,24 +1704,24 @@ (declare (not safe)) (bytes->string__% _bstr4733_ _enc4735_)))) (define bytes->string - (lambda _g8676_ - (let ((_g8675_ (let () (declare (not safe)) (##length _g8676_)))) - (cond ((let () (declare (not safe)) (##fx= _g8675_ 1)) + (lambda _g8853_ + (let ((_g8852_ (let () (declare (not safe)) (##length _g8853_)))) + (cond ((let () (declare (not safe)) (##fx= _g8852_ 1)) (apply (lambda (_bstr4733_) (let () (declare (not safe)) (bytes->string__0 _bstr4733_))) - _g8676_)) - ((let () (declare (not safe)) (##fx= _g8675_ 2)) + _g8853_)) + ((let () (declare (not safe)) (##fx= _g8852_ 2)) (apply (lambda (_bstr4737_ _enc4738_) (let () (declare (not safe)) (bytes->string__% _bstr4737_ _enc4738_))) - _g8676_)) + _g8853_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g8676_)))))) + _g8853_)))))) (define string->bytes__% (lambda (_str4704_ _enc4705_) (if (let () (declare (not safe)) (eq? _enc4705_ 'UTF-8)) @@ -1737,34 +1737,34 @@ (declare (not safe)) (string->bytes__% _str4710_ _enc4712_)))) (define string->bytes - (lambda _g8678_ - (let ((_g8677_ (let () (declare (not safe)) (##length _g8678_)))) - (cond ((let () (declare (not safe)) (##fx= _g8677_ 1)) + (lambda _g8855_ + (let ((_g8854_ (let () (declare (not safe)) (##length _g8855_)))) + (cond ((let () (declare (not safe)) (##fx= _g8854_ 1)) (apply (lambda (_str4710_) (let () (declare (not safe)) (string->bytes__0 _str4710_))) - _g8678_)) - ((let () (declare (not safe)) (##fx= _g8677_ 2)) + _g8855_)) + ((let () (declare (not safe)) (##fx= _g8854_ 2)) (apply (lambda (_str4714_ _enc4715_) (let () (declare (not safe)) (string->bytes__% _str4714_ _enc4715_))) - _g8678_)) + _g8855_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g8678_)))))) + _g8855_)))))) (define substring->bytes__% (lambda (_str4682_ _start4683_ _end4684_ _enc4685_) (if (let () (declare (not safe)) (eq? _enc4685_ 'UTF-8)) (string->utf8 _str4682_ _start4683_ _end4684_) (let ((_out4687_ (open-output-u8vector - (let ((__tmp8679 + (let ((__tmp8856 (let () (declare (not safe)) (cons _enc4685_ '())))) (declare (not safe)) - (cons 'char-encoding: __tmp8679))))) + (cons 'char-encoding: __tmp8856))))) (write-substring _str4682_ _start4683_ _end4684_ _out4687_) (get-output-u8vector _out4687_))))) (define substring->bytes__0 @@ -1773,9 +1773,9 @@ (declare (not safe)) (substring->bytes__% _str4692_ _start4693_ _end4694_ _enc4696_)))) (define substring->bytes - (lambda _g8681_ - (let ((_g8680_ (let () (declare (not safe)) (##length _g8681_)))) - (cond ((let () (declare (not safe)) (##fx= _g8680_ 3)) + (lambda _g8858_ + (let ((_g8857_ (let () (declare (not safe)) (##length _g8858_)))) + (cond ((let () (declare (not safe)) (##fx= _g8857_ 3)) (apply (lambda (_str4692_ _start4693_ _end4694_) (let () (declare (not safe)) @@ -1783,8 +1783,8 @@ _str4692_ _start4693_ _end4694_))) - _g8681_)) - ((let () (declare (not safe)) (##fx= _g8680_ 4)) + _g8858_)) + ((let () (declare (not safe)) (##fx= _g8857_ 4)) (apply (lambda (_str4698_ _start4699_ _end4700_ _enc4701_) (let () (declare (not safe)) @@ -1793,16 +1793,16 @@ _start4699_ _end4700_ _enc4701_))) - _g8681_)) + _g8858_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g8681_)))))) + _g8858_)))))) (define string-empty? (lambda (_str4679_) - (let ((__tmp8682 (string-length _str4679_))) + (let ((__tmp8859 (string-length _str4679_))) (declare (not safe)) - (##fxzero? __tmp8682)))) + (##fxzero? __tmp8859)))) (define string-prefix? (lambda (_prefix4669_ _str4670_) (let ((_str-len4672_ (string-length _str4670_)) @@ -1814,22 +1814,22 @@ (if (let () (declare (not safe)) (##fx< _i4677_ _prefix-len4673_)) - (if (let ((__tmp8685 + (if (let ((__tmp8862 (let () (declare (not safe)) (##string-ref _str4670_ _i4677_))) - (__tmp8684 + (__tmp8861 (let () (declare (not safe)) (##string-ref _prefix4669_ _i4677_)))) (declare (not safe)) - (eq? __tmp8685 __tmp8684)) - (let ((__tmp8683 + (eq? __tmp8862 __tmp8861)) + (let ((__tmp8860 (let () (declare (not safe)) (##fx+ _i4677_ '1)))) (declare (not safe)) - (_lp4675_ __tmp8683)) + (_lp4675_ __tmp8860)) '#f) '#t)) '#f)))) @@ -1838,17 +1838,17 @@ (let ((_len4651_ (string-length _str4647_))) (let _lp4653_ ((_k4655_ _start4649_)) (if (let () (declare (not safe)) (##fx< _k4655_ _len4651_)) - (if (let ((__tmp8687 + (if (let ((__tmp8864 (let () (declare (not safe)) (##string-ref _str4647_ _k4655_)))) (declare (not safe)) - (eq? _char4648_ __tmp8687)) + (eq? _char4648_ __tmp8864)) _k4655_ - (let ((__tmp8686 + (let ((__tmp8863 (let () (declare (not safe)) (##fx+ _k4655_ '1)))) (declare (not safe)) - (_lp4653_ __tmp8686))) + (_lp4653_ __tmp8863))) '#f))))) (define string-index__0 (lambda (_str4660_ _char4661_) @@ -1856,15 +1856,15 @@ (declare (not safe)) (string-index__% _str4660_ _char4661_ _start4663_)))) (define string-index - (lambda _g8689_ - (let ((_g8688_ (let () (declare (not safe)) (##length _g8689_)))) - (cond ((let () (declare (not safe)) (##fx= _g8688_ 2)) + (lambda _g8866_ + (let ((_g8865_ (let () (declare (not safe)) (##length _g8866_)))) + (cond ((let () (declare (not safe)) (##fx= _g8865_ 2)) (apply (lambda (_str4660_ _char4661_) (let () (declare (not safe)) (string-index__0 _str4660_ _char4661_))) - _g8689_)) - ((let () (declare (not safe)) (##fx= _g8688_ 3)) + _g8866_)) + ((let () (declare (not safe)) (##fx= _g8865_ 3)) (apply (lambda (_str4665_ _char4666_ _start4667_) (let () (declare (not safe)) @@ -1872,11 +1872,11 @@ _str4665_ _char4666_ _start4667_))) - _g8689_)) + _g8866_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g8689_)))))) + _g8866_)))))) (define string-rindex__% (lambda (_str4618_ _char4619_ _start4620_) (let* ((_len4622_ (string-length _str4618_)) @@ -1887,17 +1887,17 @@ (let () (declare (not safe)) (##fx- _len4622_ '1)))))) (let _lp4630_ ((_k4632_ _start4627_)) (if (let () (declare (not safe)) (##fx>= _k4632_ '0)) - (if (let ((__tmp8691 + (if (let ((__tmp8868 (let () (declare (not safe)) (##string-ref _str4618_ _k4632_)))) (declare (not safe)) - (eq? _char4619_ __tmp8691)) + (eq? _char4619_ __tmp8868)) _k4632_ - (let ((__tmp8690 + (let ((__tmp8867 (let () (declare (not safe)) (##fx- _k4632_ '1)))) (declare (not safe)) - (_lp4630_ __tmp8690))) + (_lp4630_ __tmp8867))) '#f))))) (define string-rindex__0 (lambda (_str4637_ _char4638_) @@ -1905,15 +1905,15 @@ (declare (not safe)) (string-rindex__% _str4637_ _char4638_ _start4640_)))) (define string-rindex - (lambda _g8693_ - (let ((_g8692_ (let () (declare (not safe)) (##length _g8693_)))) - (cond ((let () (declare (not safe)) (##fx= _g8692_ 2)) + (lambda _g8870_ + (let ((_g8869_ (let () (declare (not safe)) (##length _g8870_)))) + (cond ((let () (declare (not safe)) (##fx= _g8869_ 2)) (apply (lambda (_str4637_ _char4638_) (let () (declare (not safe)) (string-rindex__0 _str4637_ _char4638_))) - _g8693_)) - ((let () (declare (not safe)) (##fx= _g8692_ 3)) + _g8870_)) + ((let () (declare (not safe)) (##fx= _g8869_ 3)) (apply (lambda (_str4642_ _char4643_ _start4644_) (let () (declare (not safe)) @@ -1921,11 +1921,11 @@ _str4642_ _char4643_ _start4644_))) - _g8693_)) + _g8870_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g8693_)))))) + _g8870_)))))) (define string-split (lambda (_str4602_ _char4603_) (let ((_len4605_ (string-length _str4602_))) @@ -1936,10 +1936,10 @@ (string-index _str4602_ _char4603_ _start4609_)))) (if _$e4612_ ((lambda (_end4615_) - (let ((__tmp8697 + (let ((__tmp8874 (let () (declare (not safe)) (##fx+ _end4615_ '1))) - (__tmp8695 - (let ((__tmp8696 + (__tmp8872 + (let ((__tmp8873 (let () (declare (not safe)) (##substring @@ -1947,14 +1947,14 @@ _start4609_ _end4615_)))) (declare (not safe)) - (cons __tmp8696 _r4610_)))) + (cons __tmp8873 _r4610_)))) (declare (not safe)) - (_lp4607_ __tmp8697 __tmp8695))) + (_lp4607_ __tmp8874 __tmp8872))) _$e4612_) (if (let () (declare (not safe)) (##fx< _start4609_ _len4605_)) - (let ((__tmp8694 + (let ((__tmp8871 (list (let () (declare (not safe)) (##substring @@ -1962,7 +1962,7 @@ _start4609_ _len4605_))))) (declare (not safe)) - (foldl1 cons __tmp8694 _r4610_)) + (foldl1 cons __tmp8871 _r4610_)) (reverse _r4610_)))))))) (define string-join (lambda (_strs4507_ _join4508_) @@ -1979,24 +1979,24 @@ (if (let () (declare (not safe)) (pair? _rest4587_)) - (let ((__tmp8699 - (let ((__tmp8700 + (let ((__tmp8876 + (let ((__tmp8877 (let () (declare (not safe)) (##string-length _hd4588_)))) (declare (not safe)) - (##fx+ __tmp8700 + (##fx+ __tmp8877 _jlen4562_ _len4567_)))) (declare (not safe)) - (_lp4564_ _rest4587_ __tmp8699)) - (let ((__tmp8698 + (_lp4564_ _rest4587_ __tmp8876)) + (let ((__tmp8875 (let () (declare (not safe)) (##string-length _hd4588_)))) (declare (not safe)) - (##fx+ __tmp8698 _len4567_))) + (##fx+ __tmp8875 _len4567_))) (error '"expected string" _hd4588_))))) (if (let () (declare (not safe)) @@ -2048,7 +2048,7 @@ _hdlen4547_ _ostr4518_ _k4524_)) - (let ((__tmp8701 + (let ((__tmp8878 (let () (declare (not safe)) (##fx+ _k4524_ _hdlen4547_)))) @@ -2058,15 +2058,15 @@ '0 _jlen4514_ _ostr4518_ - __tmp8701)) - (let ((__tmp8702 + __tmp8878)) + (let ((__tmp8879 (let () (declare (not safe)) (##fx+ _k4524_ _hdlen4547_ _jlen4514_)))) (declare (not safe)) - (_lp4521_ _rest4544_ __tmp8702))) + (_lp4521_ _rest4544_ __tmp8879))) (begin (let () (declare (not safe)) diff --git a/src/bootstrap/gerbil/runtime/util__1.scm b/src/bootstrap/gerbil/runtime/util__1.scm index 557a6a6251..9192455336 100644 --- a/src/bootstrap/gerbil/runtime/util__1.scm +++ b/src/bootstrap/gerbil/runtime/util__1.scm @@ -38,160 +38,160 @@ (##cdr _e42674300_)))) (if (gx#stx-null? _tl42654307_) ((lambda (_L4310_ _L4312_) - (let ((__tmp8751 + (let ((__tmp8928 (gx#datum->syntax '#f 'def)) - (__tmp8703 - (let ((__tmp8742 - (let ((__tmp8743 + (__tmp8880 + (let ((__tmp8919 + (let ((__tmp8920 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8750 (gx#datum->syntax '#f 'key)) - (__tmp8744 - (let ((__tmp8749 + (let ((__tmp8927 (gx#datum->syntax '#f 'key)) + (__tmp8921 + (let ((__tmp8926 (gx#datum->syntax '#f 'lst)) - (__tmp8745 - (let ((__tmp8746 - (let ((__tmp8748 + (__tmp8922 + (let ((__tmp8923 + (let ((__tmp8925 (gx#datum->syntax '#f 'default)) - (__tmp8747 + (__tmp8924 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp8748 - __tmp8747)))) + (cons __tmp8925 + __tmp8924)))) (declare (not safe)) - (cons __tmp8746 '())))) + (cons __tmp8923 '())))) (declare (not safe)) - (cons __tmp8749 __tmp8745)))) + (cons __tmp8926 __tmp8922)))) (declare (not safe)) - (cons __tmp8750 __tmp8744)))) + (cons __tmp8927 __tmp8921)))) (declare (not safe)) - (cons _L4312_ __tmp8743))) - (__tmp8704 - (let ((__tmp8705 - (let ((__tmp8741 (gx#datum->syntax '#f 'cond)) - (__tmp8706 - (let ((__tmp8723 - (let ((__tmp8728 - (let ((__tmp8740 + (cons _L4312_ __tmp8920))) + (__tmp8881 + (let ((__tmp8882 + (let ((__tmp8918 (gx#datum->syntax '#f 'cond)) + (__tmp8883 + (let ((__tmp8900 + (let ((__tmp8905 + (let ((__tmp8917 (gx#datum->syntax '#f 'and)) - (__tmp8729 - (let ((__tmp8736 - (let ((__tmp8739 + (__tmp8906 + (let ((__tmp8913 + (let ((__tmp8916 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'pair?)) - (__tmp8737 - (let ((__tmp8738 (gx#datum->syntax '#f 'lst))) + (__tmp8914 + (let ((__tmp8915 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp8738 '())))) + (cons __tmp8915 '())))) (declare (not safe)) - (cons __tmp8739 __tmp8737))) - (__tmp8730 - (let ((__tmp8731 - (let ((__tmp8732 - (let ((__tmp8735 + (cons __tmp8916 __tmp8914))) + (__tmp8907 + (let ((__tmp8908 + (let ((__tmp8909 + (let ((__tmp8912 (gx#datum->syntax '#f 'key)) - (__tmp8733 - (let ((__tmp8734 + (__tmp8910 + (let ((__tmp8911 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp8734 '())))) + (cons __tmp8911 '())))) (declare (not safe)) - (cons __tmp8735 __tmp8733)))) + (cons __tmp8912 __tmp8910)))) (declare (not safe)) - (cons _L4310_ __tmp8732)))) + (cons _L4310_ __tmp8909)))) (declare (not safe)) - (cons __tmp8731 '())))) + (cons __tmp8908 '())))) (declare (not safe)) - (cons __tmp8736 __tmp8730)))) + (cons __tmp8913 __tmp8907)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8740 __tmp8729))) - (__tmp8724 - (let ((__tmp8727 + (cons __tmp8917 __tmp8906))) + (__tmp8901 + (let ((__tmp8904 (gx#datum->syntax '#f '=>)) - (__tmp8725 - (let ((__tmp8726 + (__tmp8902 + (let ((__tmp8903 (gx#datum->syntax '#f 'cdr))) (declare (not safe)) - (cons __tmp8726 + (cons __tmp8903 '())))) (declare (not safe)) - (cons __tmp8727 - __tmp8725)))) + (cons __tmp8904 + __tmp8902)))) (declare (not safe)) - (cons __tmp8728 __tmp8724))) - (__tmp8707 - (let ((__tmp8713 - (let ((__tmp8719 - (let ((__tmp8722 + (cons __tmp8905 __tmp8901))) + (__tmp8884 + (let ((__tmp8890 + (let ((__tmp8896 + (let ((__tmp8899 (gx#datum->syntax '#f 'procedure?)) - (__tmp8720 - (let ((__tmp8721 + (__tmp8897 + (let ((__tmp8898 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp8721 '())))) + (cons __tmp8898 '())))) (declare (not safe)) - (cons __tmp8722 __tmp8720))) - (__tmp8714 - (let ((__tmp8715 - (let ((__tmp8718 (gx#datum->syntax '#f 'default)) - (__tmp8716 - (let ((__tmp8717 (gx#datum->syntax '#f 'key))) + (cons __tmp8899 __tmp8897))) + (__tmp8891 + (let ((__tmp8892 + (let ((__tmp8895 (gx#datum->syntax '#f 'default)) + (__tmp8893 + (let ((__tmp8894 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp8717 '())))) + (cons __tmp8894 '())))) (declare (not safe)) - (cons __tmp8718 __tmp8716)))) + (cons __tmp8895 __tmp8893)))) (declare (not safe)) - (cons __tmp8715 '())))) + (cons __tmp8892 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8719 __tmp8714))) - (__tmp8708 - (let ((__tmp8709 - (let ((__tmp8712 + (cons __tmp8896 __tmp8891))) + (__tmp8885 + (let ((__tmp8886 + (let ((__tmp8889 (gx#datum->syntax '#f 'else)) - (__tmp8710 - (let ((__tmp8711 + (__tmp8887 + (let ((__tmp8888 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp8711 '())))) + (cons __tmp8888 '())))) (declare (not safe)) - (cons __tmp8712 __tmp8710)))) + (cons __tmp8889 __tmp8887)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8709 '())))) + (cons __tmp8886 '())))) (declare (not safe)) - (cons __tmp8713 __tmp8708)))) + (cons __tmp8890 __tmp8885)))) (declare (not safe)) - (cons __tmp8723 __tmp8707)))) + (cons __tmp8900 __tmp8884)))) (declare (not safe)) - (cons __tmp8741 __tmp8706)))) + (cons __tmp8918 __tmp8883)))) (declare (not safe)) - (cons __tmp8705 '())))) + (cons __tmp8882 '())))) (declare (not safe)) - (cons __tmp8742 __tmp8704)))) + (cons __tmp8919 __tmp8881)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8751 __tmp8703))) + (cons __tmp8928 __tmp8880))) _hd42664304_ _hd42634294_) (_g42554273_ _g42564277_)))) @@ -237,221 +237,221 @@ (##cdr _e43494382_)))) (if (gx#stx-null? _tl43474389_) ((lambda (_L4392_ _L4394_) - (let ((__tmp8821 + (let ((__tmp8998 (gx#datum->syntax '#f 'def)) - (__tmp8752 - (let ((__tmp8812 - (let ((__tmp8813 + (__tmp8929 + (let ((__tmp8989 + (let ((__tmp8990 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8820 (gx#datum->syntax '#f 'key)) - (__tmp8814 - (let ((__tmp8819 + (let ((__tmp8997 (gx#datum->syntax '#f 'key)) + (__tmp8991 + (let ((__tmp8996 (gx#datum->syntax '#f 'lst)) - (__tmp8815 - (let ((__tmp8816 - (let ((__tmp8818 + (__tmp8992 + (let ((__tmp8993 + (let ((__tmp8995 (gx#datum->syntax '#f 'default)) - (__tmp8817 + (__tmp8994 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp8818 - __tmp8817)))) + (cons __tmp8995 + __tmp8994)))) (declare (not safe)) - (cons __tmp8816 '())))) + (cons __tmp8993 '())))) (declare (not safe)) - (cons __tmp8819 __tmp8815)))) + (cons __tmp8996 __tmp8992)))) (declare (not safe)) - (cons __tmp8820 __tmp8814)))) + (cons __tmp8997 __tmp8991)))) (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 + (cons _L4394_ __tmp8990))) + (__tmp8930 + (let ((__tmp8931 + (let ((__tmp8988 (gx#datum->syntax '#f 'let)) + (__tmp8932 + (let ((__tmp8987 (gx#datum->syntax '#f 'lp)) + (__tmp8933 + (let ((__tmp8982 + (let ((__tmp8983 + (let ((__tmp8986 (gx#datum->syntax '#f 'rest)) - (__tmp8807 - (let ((__tmp8808 + (__tmp8984 + (let ((__tmp8985 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp8808 '())))) + (cons __tmp8985 '())))) (declare (not safe)) - (cons __tmp8809 __tmp8807)))) + (cons __tmp8986 __tmp8984)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8806 '()))) - (__tmp8757 - (let ((__tmp8758 - (let ((__tmp8804 + (cons __tmp8983 '()))) + (__tmp8934 + (let ((__tmp8935 + (let ((__tmp8981 (gx#datum->syntax '#f 'match)) - (__tmp8759 - (let ((__tmp8803 + (__tmp8936 + (let ((__tmp8980 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp8760 - (let ((__tmp8779 - (let ((__tmp8796 - (let ((__tmp8802 + (__tmp8937 + (let ((__tmp8956 + (let ((__tmp8973 + (let ((__tmp8979 (gx#datum->syntax '#f '@list)) - (__tmp8797 - (let ((__tmp8801 + (__tmp8974 + (let ((__tmp8978 (gx#datum->syntax '#f 'k)) - (__tmp8798 - (let ((__tmp8800 + (__tmp8975 + (let ((__tmp8977 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'v)) - (__tmp8799 (gx#datum->syntax '#f 'rest))) + (__tmp8976 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp8800 __tmp8799)))) + (cons __tmp8977 __tmp8976)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8801 - __tmp8798)))) + (cons __tmp8978 + __tmp8975)))) (declare (not safe)) - (cons __tmp8802 __tmp8797))) - (__tmp8780 - (let ((__tmp8781 - (let ((__tmp8795 + (cons __tmp8979 __tmp8974))) + (__tmp8957 + (let ((__tmp8958 + (let ((__tmp8972 (gx#datum->syntax '#f 'if)) - (__tmp8782 - (let ((__tmp8790 + (__tmp8959 + (let ((__tmp8967 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8791 - (let ((__tmp8794 (gx#datum->syntax '#f 'k)) - (__tmp8792 - (let ((__tmp8793 + (let ((__tmp8968 + (let ((__tmp8971 (gx#datum->syntax '#f 'k)) + (__tmp8969 + (let ((__tmp8970 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp8793 '())))) + (cons __tmp8970 '())))) (declare (not safe)) - (cons __tmp8794 __tmp8792)))) + (cons __tmp8971 __tmp8969)))) (declare (not safe)) - (cons _L4392_ __tmp8791))) - (__tmp8783 - (let ((__tmp8789 (gx#datum->syntax '#f 'v)) - (__tmp8784 - (let ((__tmp8785 - (let ((__tmp8788 + (cons _L4392_ __tmp8968))) + (__tmp8960 + (let ((__tmp8966 (gx#datum->syntax '#f 'v)) + (__tmp8961 + (let ((__tmp8962 + (let ((__tmp8965 (gx#datum->syntax '#f 'lp)) - (__tmp8786 - (let ((__tmp8787 + (__tmp8963 + (let ((__tmp8964 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp8787 '())))) + (cons __tmp8964 '())))) (declare (not safe)) - (cons __tmp8788 __tmp8786)))) + (cons __tmp8965 __tmp8963)))) (declare (not safe)) - (cons __tmp8785 '())))) + (cons __tmp8962 '())))) (declare (not safe)) - (cons __tmp8789 __tmp8784)))) + (cons __tmp8966 __tmp8961)))) (declare (not safe)) - (cons __tmp8790 __tmp8783)))) + (cons __tmp8967 __tmp8960)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8795 - __tmp8782)))) + (cons __tmp8972 + __tmp8959)))) (declare (not safe)) - (cons __tmp8781 '())))) + (cons __tmp8958 '())))) (declare (not safe)) - (cons __tmp8796 __tmp8780))) - (__tmp8761 - (let ((__tmp8762 - (let ((__tmp8778 + (cons __tmp8973 __tmp8957))) + (__tmp8938 + (let ((__tmp8939 + (let ((__tmp8955 (gx#datum->syntax '#f 'else)) - (__tmp8763 - (let ((__tmp8764 - (let ((__tmp8777 + (__tmp8940 + (let ((__tmp8941 + (let ((__tmp8954 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'if)) - (__tmp8765 - (let ((__tmp8773 - (let ((__tmp8776 + (__tmp8942 + (let ((__tmp8950 + (let ((__tmp8953 (gx#datum->syntax '#f 'procedure?)) - (__tmp8774 - (let ((__tmp8775 + (__tmp8951 + (let ((__tmp8952 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp8775 '())))) + (cons __tmp8952 '())))) (declare (not safe)) - (cons __tmp8776 __tmp8774))) - (__tmp8766 - (let ((__tmp8769 - (let ((__tmp8772 + (cons __tmp8953 __tmp8951))) + (__tmp8943 + (let ((__tmp8946 + (let ((__tmp8949 (gx#datum->syntax '#f 'default)) - (__tmp8770 - (let ((__tmp8771 + (__tmp8947 + (let ((__tmp8948 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp8771 '())))) + (cons __tmp8948 '())))) (declare (not safe)) - (cons __tmp8772 __tmp8770))) - (__tmp8767 - (let ((__tmp8768 + (cons __tmp8949 __tmp8947))) + (__tmp8944 + (let ((__tmp8945 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp8768 '())))) + (cons __tmp8945 '())))) (declare (not safe)) - (cons __tmp8769 __tmp8767)))) + (cons __tmp8946 __tmp8944)))) (declare (not safe)) - (cons __tmp8773 __tmp8766)))) + (cons __tmp8950 __tmp8943)))) (declare (not safe)) - (cons __tmp8777 __tmp8765)))) + (cons __tmp8954 __tmp8942)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8764 '())))) + (cons __tmp8941 '())))) (declare (not safe)) - (cons __tmp8778 __tmp8763)))) + (cons __tmp8955 __tmp8940)))) (declare (not safe)) - (cons __tmp8762 '())))) + (cons __tmp8939 '())))) (declare (not safe)) - (cons __tmp8779 __tmp8761)))) + (cons __tmp8956 __tmp8938)))) (declare (not safe)) - (cons __tmp8803 __tmp8760)))) + (cons __tmp8980 __tmp8937)))) (declare (not safe)) - (cons __tmp8804 __tmp8759)))) + (cons __tmp8981 __tmp8936)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8758 '())))) + (cons __tmp8935 '())))) (declare (not safe)) - (cons __tmp8805 __tmp8757)))) + (cons __tmp8982 __tmp8934)))) (declare (not safe)) - (cons __tmp8810 __tmp8756)))) + (cons __tmp8987 __tmp8933)))) (declare (not safe)) - (cons __tmp8811 __tmp8755)))) + (cons __tmp8988 __tmp8932)))) (declare (not safe)) - (cons __tmp8754 '())))) + (cons __tmp8931 '())))) (declare (not safe)) - (cons __tmp8812 __tmp8753)))) + (cons __tmp8989 __tmp8930)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8821 __tmp8752))) + (cons __tmp8998 __tmp8929))) _hd43484386_ _hd43454376_) (_g43374355_ _g43384359_)))) @@ -497,222 +497,222 @@ (##cdr _e44304463_)))) (if (gx#stx-null? _tl44284470_) ((lambda (_L4473_ _L4475_) - (let ((__tmp8892 + (let ((__tmp9069 (gx#datum->syntax '#f 'def)) - (__tmp8822 - (let ((__tmp8887 - (let ((__tmp8888 + (__tmp8999 + (let ((__tmp9064 + (let ((__tmp9065 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8891 (gx#datum->syntax '#f 'el)) - (__tmp8889 - (let ((__tmp8890 + (let ((__tmp9068 (gx#datum->syntax '#f 'el)) + (__tmp9066 + (let ((__tmp9067 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp8890 '())))) + (cons __tmp9067 '())))) (declare (not safe)) - (cons __tmp8891 __tmp8889)))) + (cons __tmp9068 __tmp9066)))) (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 + (cons _L4475_ __tmp9065))) + (__tmp9000 + (let ((__tmp9001 + (let ((__tmp9063 (gx#datum->syntax '#f 'let)) + (__tmp9002 + (let ((__tmp9062 (gx#datum->syntax '#f 'lp)) + (__tmp9003 + (let ((__tmp9051 + (let ((__tmp9058 + (let ((__tmp9061 (gx#datum->syntax '#f 'rest)) - (__tmp8882 - (let ((__tmp8883 + (__tmp9059 + (let ((__tmp9060 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp8883 '())))) + (cons __tmp9060 '())))) (declare (not safe)) - (cons __tmp8884 __tmp8882))) - (__tmp8875 - (let ((__tmp8876 - (let ((__tmp8880 (gx#datum->syntax '#f 'r)) - (__tmp8877 - (let ((__tmp8878 - (let ((__tmp8879 + (cons __tmp9061 __tmp9059))) + (__tmp9052 + (let ((__tmp9053 + (let ((__tmp9057 (gx#datum->syntax '#f 'r)) + (__tmp9054 + (let ((__tmp9055 + (let ((__tmp9056 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp8879 '())))) + (cons __tmp9056 '())))) (declare (not safe)) - (cons __tmp8878 '())))) + (cons __tmp9055 '())))) (declare (not safe)) - (cons __tmp8880 __tmp8877)))) + (cons __tmp9057 __tmp9054)))) (declare (not safe)) - (cons __tmp8876 '())))) + (cons __tmp9053 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8881 __tmp8875))) - (__tmp8827 - (let ((__tmp8828 - (let ((__tmp8873 + (cons __tmp9058 __tmp9052))) + (__tmp9004 + (let ((__tmp9005 + (let ((__tmp9050 (gx#datum->syntax '#f 'match)) - (__tmp8829 - (let ((__tmp8872 + (__tmp9006 + (let ((__tmp9049 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp8830 - (let ((__tmp8836 - (let ((__tmp8867 - (let ((__tmp8871 + (__tmp9007 + (let ((__tmp9013 + (let ((__tmp9044 + (let ((__tmp9048 (gx#datum->syntax '#f '@list)) - (__tmp8868 - (let ((__tmp8870 + (__tmp9045 + (let ((__tmp9047 (gx#datum->syntax '#f 'hd)) - (__tmp8869 + (__tmp9046 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp8870 - __tmp8869)))) + (cons __tmp9047 + __tmp9046)))) (declare (not safe)) - (cons __tmp8871 __tmp8868))) - (__tmp8837 - (let ((__tmp8838 - (let ((__tmp8866 + (cons __tmp9048 __tmp9045))) + (__tmp9014 + (let ((__tmp9015 + (let ((__tmp9043 (gx#datum->syntax '#f 'if)) - (__tmp8839 - (let ((__tmp8861 + (__tmp9016 + (let ((__tmp9038 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp8862 - (let ((__tmp8865 (gx#datum->syntax '#f 'el)) - (__tmp8863 - (let ((__tmp8864 + (let ((__tmp9039 + (let ((__tmp9042 (gx#datum->syntax '#f 'el)) + (__tmp9040 + (let ((__tmp9041 (gx#datum->syntax '#f 'hd))) (declare (not safe)) - (cons __tmp8864 '())))) + (cons __tmp9041 '())))) (declare (not safe)) - (cons __tmp8865 __tmp8863)))) + (cons __tmp9042 __tmp9040)))) (declare (not safe)) - (cons _L4473_ __tmp8862))) - (__tmp8840 - (let ((__tmp8853 - (let ((__tmp8860 + (cons _L4473_ __tmp9039))) + (__tmp9017 + (let ((__tmp9030 + (let ((__tmp9037 (gx#datum->syntax '#f 'foldl1)) - (__tmp8854 - (let ((__tmp8859 + (__tmp9031 + (let ((__tmp9036 (gx#datum->syntax '#f 'cons)) - (__tmp8855 - (let ((__tmp8858 + (__tmp9032 + (let ((__tmp9035 (gx#datum->syntax '#f 'rest)) - (__tmp8856 - (let ((__tmp8857 + (__tmp9033 + (let ((__tmp9034 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp8857 '())))) + (cons __tmp9034 '())))) (declare (not safe)) - (cons __tmp8858 __tmp8856)))) + (cons __tmp9035 __tmp9033)))) (declare (not safe)) - (cons __tmp8859 __tmp8855)))) + (cons __tmp9036 __tmp9032)))) (declare (not safe)) - (cons __tmp8860 __tmp8854))) - (__tmp8841 - (let ((__tmp8842 - (let ((__tmp8852 + (cons __tmp9037 __tmp9031))) + (__tmp9018 + (let ((__tmp9019 + (let ((__tmp9029 (gx#datum->syntax '#f 'lp)) - (__tmp8843 - (let ((__tmp8851 + (__tmp9020 + (let ((__tmp9028 (gx#datum->syntax '#f 'rest)) - (__tmp8844 - (let ((__tmp8845 - (let ((__tmp8850 + (__tmp9021 + (let ((__tmp9022 + (let ((__tmp9027 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons)) - (__tmp8846 - (let ((__tmp8849 (gx#datum->syntax '#f 'hd)) - (__tmp8847 - (let ((__tmp8848 (gx#datum->syntax '#f 'r))) + (__tmp9023 + (let ((__tmp9026 (gx#datum->syntax '#f 'hd)) + (__tmp9024 + (let ((__tmp9025 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp8848 '())))) + (cons __tmp9025 '())))) (declare (not safe)) - (cons __tmp8849 __tmp8847)))) + (cons __tmp9026 __tmp9024)))) (declare (not safe)) - (cons __tmp8850 __tmp8846)))) + (cons __tmp9027 __tmp9023)))) (declare (not safe)) - (cons __tmp8845 '())))) + (cons __tmp9022 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8851 __tmp8844)))) + (cons __tmp9028 __tmp9021)))) (declare (not safe)) - (cons __tmp8852 __tmp8843)))) + (cons __tmp9029 __tmp9020)))) (declare (not safe)) - (cons __tmp8842 '())))) + (cons __tmp9019 '())))) (declare (not safe)) - (cons __tmp8853 __tmp8841)))) + (cons __tmp9030 __tmp9018)))) (declare (not safe)) - (cons __tmp8861 __tmp8840)))) + (cons __tmp9038 __tmp9017)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8866 - __tmp8839)))) + (cons __tmp9043 + __tmp9016)))) (declare (not safe)) - (cons __tmp8838 '())))) + (cons __tmp9015 '())))) (declare (not safe)) - (cons __tmp8867 __tmp8837))) - (__tmp8831 - (let ((__tmp8832 - (let ((__tmp8835 + (cons __tmp9044 __tmp9014))) + (__tmp9008 + (let ((__tmp9009 + (let ((__tmp9012 (gx#datum->syntax '#f 'else)) - (__tmp8833 - (let ((__tmp8834 + (__tmp9010 + (let ((__tmp9011 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp8834 '())))) + (cons __tmp9011 '())))) (declare (not safe)) - (cons __tmp8835 __tmp8833)))) + (cons __tmp9012 __tmp9010)))) (declare (not safe)) - (cons __tmp8832 '())))) + (cons __tmp9009 '())))) (declare (not safe)) - (cons __tmp8836 __tmp8831)))) + (cons __tmp9013 __tmp9008)))) (declare (not safe)) - (cons __tmp8872 __tmp8830)))) + (cons __tmp9049 __tmp9007)))) (declare (not safe)) - (cons __tmp8873 __tmp8829)))) + (cons __tmp9050 __tmp9006)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8828 '())))) + (cons __tmp9005 '())))) (declare (not safe)) - (cons __tmp8874 __tmp8827)))) + (cons __tmp9051 __tmp9004)))) (declare (not safe)) - (cons __tmp8885 __tmp8826)))) + (cons __tmp9062 __tmp9003)))) (declare (not safe)) - (cons __tmp8886 __tmp8825)))) + (cons __tmp9063 __tmp9002)))) (declare (not safe)) - (cons __tmp8824 '())))) + (cons __tmp9001 '())))) (declare (not safe)) - (cons __tmp8887 __tmp8823)))) + (cons __tmp9064 __tmp9000)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp8892 __tmp8822))) + (cons __tmp9069 __tmp8999))) _hd44294467_ _hd44264457_) (_g44184436_ _g44194440_)))) diff --git a/src/bootstrap/gerbil/runtime__0.scm b/src/bootstrap/gerbil/runtime__0.scm index 8bdca9effe..62595832dd 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 1698333193) '#!void) diff --git a/src/gerbil/prelude/core.ss b/src/gerbil/prelude/core.ss index f32fd87daa..d55e155bc9 100644 --- a/src/gerbil/prelude/core.ss +++ b/src/gerbil/prelude/core.ss @@ -217,7 +217,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* @@ -271,6 +271,8 @@ package: gerbil keyword-dispatch keyword-rest ;; gerbil specifics gerbil-version-string gerbil-system-version-string system-version + ;; build manifest + build-manifest filter-build-manifest display-build-manifest build-manifest-string ;; system type information gerbil-system system-type ;; voodoo doll @@ -626,7 +628,9 @@ 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 )) @@ -3064,11 +3068,11 @@ package: gerbil (lambda () postlude rest ...)))) (defsyntax (@bytes stx) - (syntax-case stx () - ((_ str) - (stx-string? #'str) - (with-syntax ((e (string->bytes (stx-e #'str)))) - #'(quote e))))) + (syntax-case stx () + ((_ str) + (stx-string? #'str) + (with-syntax ((e (string->bytes (stx-e #'str)))) + #'(quote e))))) ;; ... ) 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/system.ss b/src/gerbil/runtime/system.ss index 8b5a934153..08e1c3a0f1 100644 --- a/src/gerbil/runtime/system.ss +++ b/src/gerbil/runtime/system.ss @@ -9,18 +9,46 @@ namespace: #f (import "gambit" "util") (include "version.ss") +(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))) + (def (p x) (display x port)) + (def l (length manifest)) + (def 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 (filter-build-manifest all?: (all? #f) layer: (layer #f)) + (cond + (all? build-manifest) + (layer (let (l (assoc layer build-manifest)) (if l [l] []))) + (else [(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/std/build-spec.ss b/src/std/build-spec.ss index 004805b577..24af1db193 100644 --- a/src/std/build-spec.ss +++ b/src/std/build-spec.ss @@ -37,6 +37,11 @@ "amb" "contract" (gxc: "interface" ,@(include-gambit-sharp)) + ;; cli + "cli/getopt" + "cli/shell" + "cli/print-exit" + "cli/multicall" ;; stdio "io" "io/interface" diff --git a/src/std/cli/getopt.ss b/src/std/cli/getopt.ss new file mode 100644 index 0000000000..05e5251dff --- /dev/null +++ b/src/std/cli/getopt.ss @@ -0,0 +1,447 @@ +;;; -*- Gerbil -*- +;;; (C) vyzo +;;; Command-line option and command argument parsing + +(import (only-in :std/error deferror-class Error:::init!) + (only-in :std/generic defgeneric) + (only-in :std/misc/hash hash->list/sort) + (only-in :std/misc/list when/list) + (only-in :std/misc/string as-stringfunction-arguments + call-with-getopt-parse + call-with-processed-command-line) +(def current-getopt-parser + (make-parameter #f)) + +(deferror-class GetOptError (getopt) getopt-error? + (lambda (self msg args getopt) + (Error:::init! self msg where: 'getopt irritants: args) + (set! (@ self getopt) getopt))) +(def (raise-getopt-error msg . args) + (raise (GetOptError msg args (current-getopt-parser)))) +(def getopt-error-e GetOptError-getopt) + +(defstruct !getopt (opts cmds args help)) +(defstruct !top (key help)) +(defstruct (!command !top) (opts args) + final: #t) +(defstruct (!opt !top) (short long)) +(defstruct (!option !opt) (value default) + final: #t) +(defstruct (!flag !opt) () + final: #t) +(defstruct (!arg !top) (value)) +(defstruct (!reqarg !arg) () + final: #t) +(defstruct (!optarg !arg) (default) + final: #t) +(defstruct (!rest !arg) () + final: #t) + +(def (getopt help: (help #f) . args) + (let lp ((rest args) (opts []) (cmds []) (args [])) + (match rest + ([hd . rest] + (cond + ((!opt? hd) + (lp rest (cons hd opts) cmds args)) + ((!command? hd) + (if (null? args) + (lp rest opts (cons hd cmds) args) + (error "Illegal command; already have arguments" hd))) + ((!reqarg? hd) + (if (null? cmds) + (if (or (null? args) + (and (not (!optarg? (car args))) + (not (!rest? (car args))))) + (lp rest opts cmds (cons hd args)) + (error "Illegal required argument; already have optional or rest arguments" hd)) + (error "Illegal required argument; already have commands" hd))) + ((or (!optarg? hd) + (!rest? hd)) + (if (null? cmds) + (if (or (null? args) + (not (!rest? (car args)))) + (lp rest opts cmds (cons hd args)) + (error "Illegal optional argument; already have rest arguments" hd)) + (error "Illegal optional argument; alreday have commands" hd))) + (else + (error "Illegal argument; must be a getopt-object" hd)))) + (else + (make-!getopt (reverse opts) (reverse cmds) (reverse args) help))))) + +(def (flag id short (long #f) + help: (help #f)) + (make-!flag id help short long)) + +(def (option id short (long #f) + help: (help #f) + value: (value-e identity) + default: (default #f)) + (make-!option id help short long value-e default)) + +(def (command id help: (help #f) . args) + (with ((!getopt opts cmds args) (apply getopt args)) + (if (null? cmds) + (make-!command id help opts args) + (error "Illegal command; cannot contain subcommands")))) + +(def (argument id + help: (help #f) + value: (value-e identity)) + (make-!reqarg id help value-e)) + +(def (optional-argument id + help: (help #f) + value: (value-e identity) + default: (default #f)) + (make-!optarg id help value-e default)) + +(def (rest-arguments id + help: (help #f) + value: (value-e identity)) + (make-!rest id help value-e)) + +(def (getopt-parse gopt args) + (let (ht (make-hash-table-eq)) + (getopt-parse! ht gopt args))) + +(def (getopt-parse! ht gopt rest) + (parameterize ((current-getopt-parser gopt)) + (with ((!getopt opts cmds args) gopt) + (getopt-parse-opts! ht opts rest + (if (null? cmds) + (lambda (rest) + (getopt-parse-args! ht args rest)) + (lambda (rest) + (getopt-parse-cmd! ht cmds rest))))))) + +(def (getopt-parse-opts! ht opts rest K) + (def (end rest) + ;; check for options with default values + (for-each (match <> + ((!option key _ _ _ _ default) + (unless (hash-key? ht key) + (hash-put! ht key default))) + (else (void))) + opts) + (K rest)) + + (def optht (make-hash-table)) + (for-each (lambda (opt) + (with ((!opt _ _ short long) opt) + (when short + (hash-put! optht short opt)) + (when long + (hash-put! optht long opt)))) + opts) + + (let lp ((rest rest)) + (match rest + ([hd . rest*] + (cond + ((string-empty? hd) + (lp rest*)) + ((eq? (string-ref hd 0) #\-) + (cond + ((equal? "--" hd) ; end of options + (end rest*)) + ((hash-get optht hd) + => (lambda (opt) + (match opt + ((!option key _ _ _ value-e) + (match rest* + ([val . rest*] + (hash-put! ht key (value-e val)) + (lp rest*)) + (else + (raise-getopt-error "Missing value for option" hd)))) + ((!flag key) + (hash-put! ht key #t) + (lp rest*))))) + (else + (raise-getopt-error "Unknown option" hd)))) + (else ; doesn't look like an option + (end rest)))) + (else ; we run out of arguments + (end rest))))) + +(def (getopt-parse-args! ht args rest) + (let lp ((args args) (rest rest)) + (match args + ([arg . args] + (match arg + ((!reqarg key _ value-e) + (match rest + ([val . rest] + (hash-put! ht key (value-e val)) + (lp args rest)) + (else + (raise-getopt-error "Missing argument" key)))) + ((!optarg key _ value-e default) + (match rest + ([val . rest] + (hash-put! ht key (value-e val)) + (lp args rest)) + (else + (hash-put! ht key default) + (lp args rest)))) + ((!rest key _ value-e) + (hash-put! ht key (map value-e rest)) + ht))) + (else + (unless (null? rest) + (raise-getopt-error "Unexpected arguments" rest)) + ht)))) + +(def (getopt-parse-cmd! ht cmds rest) + (def cmdht (make-hash-table)) + (for-each (lambda (cmd) + (with ((!command key) cmd) + (hash-put! cmdht (symbol->string key) cmd))) + cmds) + + (match rest + ([cmd . rest] + (cond + ((hash-get cmdht cmd) + => (lambda (cmd) + (with ((!command key _ opts args) cmd) + (parameterize ((current-getopt-parser cmd)) + (getopt-parse-opts! ht opts rest + (lambda (rest) + (getopt-parse-args! ht args rest) + (values key ht))))))) + (else + (raise-getopt-error "Unknown command" cmd)))) + (else + (raise-getopt-error "Missing command")))) + +(def (getopt->positional-names gopt) + (def rest-name #f) + (def argkey !top-key) + (def names (with-list-builder (c) + (for-each (lambda (arg) + (cond + ((or (!reqarg? arg) (!optarg? arg)) + (c (argkey arg))) + ((!rest? arg) (set! rest-name (argkey arg))))) + (!getopt-args gopt)))) + (values names rest-name)) + +(def (getopt-display-help obj program (port (current-output-port))) + (cond + ((!getopt? obj) + (display-help-getopt obj program port)) + ((!command? obj) + (display-help-command obj program port)) + ((getopt-error? obj) + (fprintf port "Error: ~a~n" (error-message obj)) + (unless (null? (error-irritants obj)) + (display "Irritants:" port) + (for-each (lambda(x) (display " " port) (display x port)) + (error-irritants obj)) + (newline)) + (newline) + (getopt-display-help (getopt-error-e obj) program port)) + (else + (error "Unexpected object; expected a getopt, getopt-error, or command" obj)))) + +(def (getopt-display-help-topic gopt topic program (port (current-output-port))) + (let lp ((rest (!getopt-cmds gopt))) + (match rest + ([cmd . rest] + (if (eq? topic (!top-key cmd)) + (getopt-display-help cmd program port) + (lp rest))) + (else + (getopt-display-help gopt program port))))) + +(def (display-help-getopt obj program port) + (with ((!getopt opts cmds args help) obj) + (when help + (fprintf port "~a: ~a~n~n" program help)) + (if (null? cmds) + (begin + (fprintf port "Usage: ~a ~a" + program + (if (null? opts) "" "[option ...]")) + (display-args args port) + (unless (null? opts) + (fprintf port "~nOptions:~n") + (display-option-help opts port)) + (unless (null? args) + (fprintf port "~nArguments:~n") + (display-arg-help args port))) + (begin + (fprintf port "Usage: ~a ~a command-arg ...~n" + program + (if (null? opts) "" "[option ...]")) + (unless (null? opts) + (fprintf port "~nOptions:~n") + (display-option-help opts port)) + (fprintf port "~nCommands:~n") + (for-each (match <> + ((!command key help) + (fprintf port " ~a ~a ~a~n" + key + (tabs key) + (or help "?")))) + cmds))))) + +(def (display-help-command obj program port) + (with ((!command key help opts args) obj) + (fprintf port "Usage: ~a ~a~a" + program key + (if (null? opts) "" " [command-option ...]")) + (display-args args port) + (fprintf port " ~a~n" help) + (unless (null? opts) + (fprintf port "~nCommand Options:~n") + (display-option-help opts port)) + (unless (null? args) + (fprintf port "~nArguments:~n") + (display-arg-help args port)))) + +(def (display-args args port) + (for-each (match <> + ((!reqarg key) + (fprintf port " <~a>" key)) + ((!optarg key) + (fprintf port " [<~a>]" key)) + ((!rest key) + (fprintf port " <~a> ..." key))) + args) + (newline port)) + +(def (display-option-help opts port) + (for-each (match <> + ((!option id help short long _ default) + (fprintf port " ~a ~a <~a> ~a ~a [default: ~a]~n" + (or short "") + (or long "") + id + (tabs (or short "") " " (or long "") " <" (symbol->string id) ">") + (or help "?") + default)) + ((!flag _ help short long) + (fprintf port " ~a ~a ~a ~a~n" + (or short "") + (or long "") + (tabs (or short "") " " (or long "")) + (or help "?")))) + opts)) + +(def (display-arg-help args port) + (for-each (match <> + ((!reqarg key help) + (fprintf port " ~a ~a ~a~n" + key (tabs key) (or help "?"))) + ((!optarg key help _ default) + (fprintf port " ~a ~a ~a [default: ~a]~n" + key (tabs key) (or help "?") + default)) + ((!rest key help) + (fprintf port " ~a ~a ~a~n" + key (tabs key) (or help "?")))) + args)) + +(def (tabs . strs) + (def tablen 31) + (def (string-e str) + (if (symbol? str) + (symbol->string str) + str)) + + (let* (len (foldl + 0 (map string-length (map string-e strs)))) + (if (fx< len tablen) + (make-string (fx- tablen len) #\space) + ""))) + +(def (call-with-getopt proc args + program: program + help: (help #f) + exit-on-error: (exit-on-error? #t) + . gopts) + (def (parse! gopt return) + (try + (getopt-parse gopt args) + (catch (getopt-error? exn) + (getopt-display-help exn program (current-error-port)) + (if exit-on-error? + (exit 1) + (return 'error))) + (catch (e) + (display-exception e (current-error-port)) + (if exit-on-error? + (exit 2) + (return 'error))))) + + (let/cc return + (let* ((gopt (apply getopt help: help gopts)) + (cmds (!getopt-cmds gopt))) + (if (null? cmds) + ;; it only has options; add -h/--help + (let ((help-flag + (flag 'help "-h" "--help" + help: "display help")) + (opts (!getopt-opts gopt))) + (if (null? opts) + (set! (!getopt-opts gopt) + [help-flag]) + (set-cdr! (last-pair opts) + [help-flag])) + (let (opt (parse! gopt return)) + (if (hash-get opt 'help) + (getopt-display-help gopt program) + (proc opt)))) + ;; it has commands; add help + (let (help-cmd + (command 'help help: "display help; help for command help" + (optional-argument 'command value: string->symbol))) + (set-cdr! (last-pair cmds) [help-cmd]) + (let ((values cmd opt) (parse! gopt return)) + (if (eq? cmd 'help) + (getopt-display-help-topic gopt (hash-get opt 'command) program) + (proc cmd opt)))))))) + +(def (getopt-parse->positional-arguments! gopt h) + (defvalues (names rest-name) (getopt->positional-names gopt)) + (def (extract n) (begin0 (hash-get h n) (hash-remove! h n))) + (def positional (map extract names)) + (def rest (when/list rest-name (extract rest-name))) + (append positional rest)) + +(def (getopt-parse->function-arguments gopt h) + (def positionals (getopt-parse->positional-arguments! gopt h)) + (append positionals + (foldr (lambda (kv l) (cons* (make-keyword (car kv)) (cdr kv) l)) '() + (hash->list/sort h as-stringfunction-arguments gopt hash))) + +(defgeneric call-with-processed-command-line + (lambda (processor command-line function) + (cond + ((!getopt? processor) + (call-with-getopt-parse processor (getopt-parse processor command-line) function)) + ((list? processor) + (call-with-processed-command-line (apply getopt processor) command-line function))))) diff --git a/src/std/cli/multicall.ss b/src/std/cli/multicall.ss new file mode 100644 index 0000000000..1d1a49a1bf --- /dev/null +++ b/src/std/cli/multicall.ss @@ -0,0 +1,102 @@ +;; -*- Gerbil -*- +;;;; Support for building a single multicall binary that has all the fricfrac functionality. + +(export #t) + +(import + (only-in :std/cli/print-exit eval-print-exit) + (only-in :std/cli/shell easy-shell-character?) + (only-in :std/format format) + (only-in :std/generic defgeneric) + (only-in :std/getopt getopt getopt-display-help-topic getopt-display-help + call-with-processed-command-line + command flag option argument optional-argument rest-arguments) + (only-in :std/iter for/collect in-iota) + (only-in :std/misc/hash hash->list/sort) + (only-in :std/misc/list flatten) + (only-in :std/misc/number nat?) + (only-in :std/misc/string as-stringstring i)))) + ((not spec) [(rest-arguments "rest")]) + (else (error "Bad getopt-spec"))))) + +(def (entry-points-getopt-spec (h entry-points)) + (for/collect (([name . e] (hash->list/sort h as-string #t)) + "abcdefghijklmnopqrstuvwxzABCDEFGHIJKLMNOPQRSTUVWXZ012345678@%-_=+:,./") + (string-for-each (lambda (c) (check (easy-shell-character? c) => #f)) + "`~#$^&*()[{]}\\|;'\"<>? \r\n\t\v")) + (test-case "needs-shell-escape?, escape-shell-token" + (defrules checks+1 () + ((_ (s e)) (begin + (check (needs-shell-escape? s) => #t) + (check (escape-shell-token s) => (string-append "\"" e "\"")))) + ((_ s) (begin + (check (needs-shell-escape? s) => #t) + (check (escape-shell-token s) => (string-append "\"" s "\""))))) + (defrule (checks+ x ...) + (begin (checks+1 x) ...)) + (checks+ "foo?" "~user" ("$1" "\\$1") "*.*" "!1" ("ab\\cd" "ab\\\\cd") + "{}" "a;b" "&" "|" "a b c") + (defrule (checks- s ...) (begin (check (needs-shell-escape? s) => #f) ...)) + (checks- "foo" "%-_=+:,./" "1" "..." "abcd" "x=y:z,t.z/u+v_w")) + (test-case "->envvar" + (defrule (checks (s e) ...) + (begin (check (->envvar s) => e) ...)) + (checks ("foo" "FOO") + ("bar baz" "BAR_BAZ"))))) diff --git a/src/std/cli/shell.ss b/src/std/cli/shell.ss new file mode 100644 index 0000000000..d9b3839945 --- /dev/null +++ b/src/std/cli/shell.ss @@ -0,0 +1,42 @@ +;; Support for Unix shells +;; TODO: If Windows shell support is needed, add it here, too. + +(export #t) + +(import + :std/srfi/13 :std/stxutil :std/text/char-set) + +(def (easy-shell-character? x) + (or (char-ascii-alphanumeric? x) (string-index "%+,-./:=@_" x))) + +(def (needs-shell-escape? token) + ;; maybe also accept ^ and ~ in non-start position? + (not (string-every easy-shell-character? token))) + +(def (escape-shell-token token) + (if (needs-shell-escape? token) + (call-with-output-string [] + (lambda (port) + (def (p x) (display x port)) + (p #\") + (string-for-each + (lambda (c) (when (string-index "$`\\\"" c) (p #\\)) (p c)) + token) + (p #\"))) + token)) + +(def (escape-shell-tokens tokens) + (string-join (map escape-shell-token tokens) " ")) + +(def (->envvar . args) + (call-with-output-string + (lambda (p) + (def alpha? #t) + (string-for-each + (lambda (c) + (def caa? (char-ascii-alphanumeric? c)) + (when caa? + (unless alpha? (write-char #\_ p)) + (write-char c p)) + (set! alpha? caa?)) + (string-upcase (as-string args)))))) diff --git a/src/std/error.ss b/src/std/error.ss index 65b57047b2..d9c1b568d5 100644 --- a/src/std/error.ss +++ b/src/std/error.ss @@ -29,7 +29,11 @@ (rename: raise-bug BUG) is-it-bug? with-exception-stack-trace - dump-stack-trace!) + dump-stack-trace? + dump-stack-trace! + abort-on-error? + call-with-abort-on-error + with-abort-on-error) ;; utility macro for definint error classes (defsyntax (deferror-class stx) @@ -126,7 +130,7 @@ (IOError message irritants: [irritants ...])) (defraise/context (raise-premature-end-of-input where irritants ...) - (PrematureEndOfInput "premature end of input" irritants: [irritants ...])) + (PrematureEndOfInput "premature end of input" irritants: [irritants ...])) (defraise/context (raise-io-closed where message irritants ...) (Closed message irritants: [irritants ...])) @@ -352,3 +356,22 @@ wrong-number-of-values-exception-vals) (wrong-processor-c-return-exception?)) + +(def abort-on-error? (make-parameter #t)) + +(def (call-with-abort-on-error thunk) + (with-catch + (lambda (e) + (if (abort-on-error?) + (let (port (current-error-port)) + (with-catch void (cut force-output port)) + ;;(show-build-manifest all?: #t port: port) + (parameterize ((dump-stack-trace? #f)) + (display-exception e port)) + (force-output port) + (exit 2)) + (raise e))) + thunk)) + +(defrules with-abort-on-error () + ((_ body ...) (call-with-abort-on-error (lambda () body ...)))) diff --git a/src/std/getopt.ss b/src/std/getopt.ss index 710ce683de..5d370a1440 100644 --- a/src/std/getopt.ss +++ b/src/std/getopt.ss @@ -1,404 +1,5 @@ -;;; -*- Gerbil -*- -;;; (C) vyzo -;;; Command-line option and command argument parsing +;; Compatibility module for v0.18 +(import :std/cli/getopt) +(export (import: :std/cli/getopt)) -(import :std/error - :std/sugar - :std/format) -(export getopt - (rename: !getopt? getopt?) - (rename: !top? getopt-object?) - getopt-error? - getopt-parse - getopt-display-help - getopt-display-help-topic - option - flag - command - argument - optional-argument - rest-arguments - call-with-getopt - ) -(def current-getopt-parser - (make-parameter #f)) - -(deferror-class GetOptError (getopt) getopt-error? - (lambda (self msg args getopt) - (Error:::init! self msg where: 'getopt irritants: args) - (set! (@ self getopt) getopt))) -(def (raise-getopt-error msg . args) - (raise (GetOptError msg args (current-getopt-parser)))) -(def getopt-error-e GetOptError-getopt) - -(defstruct !getopt (opts cmds args help)) -(defstruct !top (key help)) -(defstruct (!command !top) (opts args) - final: #t) -(defstruct (!opt !top) (short long)) -(defstruct (!option !opt) (value default) - final: #t) -(defstruct (!flag !opt) () - final: #t) -(defstruct (!arg !top) (value)) -(defstruct (!reqarg !arg) () - final: #t) -(defstruct (!optarg !arg) (default) - final: #t) -(defstruct (!rest !arg) () - final: #t) - -(def (getopt help: (help #f) . args) - (let lp ((rest args) (opts []) (cmds []) (args [])) - (match rest - ([hd . rest] - (cond - ((!opt? hd) - (lp rest (cons hd opts) cmds args)) - ((!command? hd) - (if (null? args) - (lp rest opts (cons hd cmds) args) - (error "Illegal command; already have arguments" hd))) - ((!reqarg? hd) - (if (null? cmds) - (if (or (null? args) - (and (not (!optarg? (car args))) - (not (!rest? (car args))))) - (lp rest opts cmds (cons hd args)) - (error "Illegal required argument; already have optional or rest arguments" hd)) - (error "Illegal required argument; already have commands" hd))) - ((or (!optarg? hd) - (!rest? hd)) - (if (null? cmds) - (if (or (null? args) - (not (!rest? (car args)))) - (lp rest opts cmds (cons hd args)) - (error "Illegal optional argument; already have rest arguments" hd)) - (error "Illegal optional argument; alreday have commands" hd))) - (else - (error "Illegal argument; must be a getopt-object" hd)))) - (else - (make-!getopt (reverse opts) (reverse cmds) (reverse args) help))))) - -(def (flag id short (long #f) - help: (help #f)) - (make-!flag id help short long)) - -(def (option id short (long #f) - help: (help #f) - value: (value-e identity) - default: (default #f)) - (make-!option id help short long value-e default)) - -(def (command id help: (help #f) . args) - (with ((!getopt opts cmds args) (apply getopt args)) - (if (null? cmds) - (make-!command id help opts args) - (error "Illegal command; cannot contain subcommands")))) - -(def (argument id - help: (help #f) - value: (value-e identity)) - (make-!reqarg id help value-e)) - -(def (optional-argument id - help: (help #f) - value: (value-e identity) - default: (default #f)) - (make-!optarg id help value-e default)) - -(def (rest-arguments id - help: (help #f) - value: (value-e identity)) - (make-!rest id help value-e)) - -(def (getopt-parse gopt args) - (let (ht (make-hash-table-eq)) - (getopt-parse! ht gopt args))) - -(def (getopt-parse! ht gopt rest) - (parameterize ((current-getopt-parser gopt)) - (with ((!getopt opts cmds args) gopt) - (getopt-parse-opts! ht opts rest - (if (null? cmds) - (lambda (rest) - (getopt-parse-args! ht args rest)) - (lambda (rest) - (getopt-parse-cmd! ht cmds rest))))))) - -(def (getopt-parse-opts! ht opts rest K) - (def (end rest) - ;; check for options with default values - (for-each (match <> - ((!option key _ _ _ _ default) - (unless (hash-key? ht key) - (hash-put! ht key default))) - (else (void))) - opts) - (K rest)) - - (def optht (make-hash-table)) - (for-each (lambda (opt) - (with ((!opt _ _ short long) opt) - (when short - (hash-put! optht short opt)) - (when long - (hash-put! optht long opt)))) - opts) - - (let lp ((rest rest)) - (match rest - ([hd . rest*] - (cond - ((string-empty? hd) - (lp rest*)) - ((eq? (string-ref hd 0) #\-) - (cond - ((equal? "--" hd) ; end of options - (end rest*)) - ((hash-get optht hd) - => (lambda (opt) - (match opt - ((!option key _ _ _ value-e) - (match rest* - ([val . rest*] - (hash-put! ht key (value-e val)) - (lp rest*)) - (else - (raise-getopt-error "Missing value for option" hd)))) - ((!flag key) - (hash-put! ht key #t) - (lp rest*))))) - (else - (raise-getopt-error "Unknown option" hd)))) - (else ; doesn't look like an option - (end rest)))) - (else ; we run out of arguments - (end rest))))) - -(def (getopt-parse-args! ht args rest) - (let lp ((args args) (rest rest)) - (match args - ([arg . args] - (match arg - ((!reqarg key _ value-e) - (match rest - ([val . rest] - (hash-put! ht key (value-e val)) - (lp args rest)) - (else - (raise-getopt-error "Missing argument" key)))) - ((!optarg key _ value-e default) - (match rest - ([val . rest] - (hash-put! ht key (value-e val)) - (lp args rest)) - (else - (hash-put! ht key default) - (lp args rest)))) - ((!rest key _ value-e) - (hash-put! ht key (map value-e rest)) - ht))) - (else - (unless (null? rest) - (raise-getopt-error "Unexpected arguments" rest)) - ht)))) - -(def (getopt-parse-cmd! ht cmds rest) - (def cmdht (make-hash-table)) - (for-each (lambda (cmd) - (with ((!command key) cmd) - (hash-put! cmdht (symbol->string key) cmd))) - cmds) - - (match rest - ([cmd . rest] - (cond - ((hash-get cmdht cmd) - => (lambda (cmd) - (with ((!command key _ opts args) cmd) - (parameterize ((current-getopt-parser cmd)) - (getopt-parse-opts! ht opts rest - (lambda (rest) - (getopt-parse-args! ht args rest) - (values key ht))))))) - (else - (raise-getopt-error "Unknown command" cmd)))) - (else - (raise-getopt-error "Missing command")))) - -(def (getopt-display-help obj program (port (current-output-port))) - (cond - ((!getopt? obj) - (display-help-getopt obj program port)) - ((!command? obj) - (display-help-command obj program port)) - ((getopt-error? obj) - (fprintf port "Error: ~a~n" (error-message obj)) - (unless (null? (error-irritants obj)) - (display "Irritants:" port) - (for-each (lambda(x) (display " " port) (display x port)) - (error-irritants obj)) - (newline)) - (newline) - (getopt-display-help (getopt-error-e obj) program port)) - (else - (error "Unexpected object; expected a getopt, getopt-error, or command" obj)))) - -(def (getopt-display-help-topic gopt topic program (port (current-output-port))) - (let lp ((rest (!getopt-cmds gopt))) - (match rest - ([cmd . rest] - (if (eq? topic (!top-key cmd)) - (getopt-display-help cmd program port) - (lp rest))) - (else - (getopt-display-help gopt program port))))) - -(def (display-help-getopt obj program port) - (with ((!getopt opts cmds args help) obj) - (when help - (fprintf port "~a: ~a~n~n" program help)) - (if (null? cmds) - (begin - (fprintf port "Usage: ~a ~a" - program - (if (null? opts) "" "[option ...]")) - (display-args args port) - (unless (null? opts) - (fprintf port "~nOptions:~n") - (display-option-help opts port)) - (unless (null? args) - (fprintf port "~nArguments:~n") - (display-arg-help args port))) - (begin - (fprintf port "Usage: ~a ~a command-arg ...~n" - program - (if (null? opts) "" "[option ...]")) - (unless (null? opts) - (fprintf port "~nOptions:~n") - (display-option-help opts port)) - (fprintf port "~nCommands:~n") - (for-each (match <> - ((!command key help) - (fprintf port " ~a ~a ~a~n" - key - (tabs key) - (or help "?")))) - cmds))))) - -(def (display-help-command obj program port) - (with ((!command key help opts args) obj) - (fprintf port "Usage: ~a ~a~a" - program key - (if (null? opts) "" " [command-option ...]")) - (display-args args port) - (fprintf port " ~a~n" help) - (unless (null? opts) - (fprintf port "~nCommand Options:~n") - (display-option-help opts port)) - (unless (null? args) - (fprintf port "~nArguments:~n") - (display-arg-help args port)))) - -(def (display-args args port) - (for-each (match <> - ((!reqarg key) - (fprintf port " <~a>" key)) - ((!optarg key) - (fprintf port " [<~a>]" key)) - ((!rest key) - (fprintf port " <~a> ..." key))) - args) - (newline port)) - -(def (display-option-help opts port) - (for-each (match <> - ((!option id help short long _ default) - (fprintf port " ~a ~a <~a> ~a ~a [default: ~a]~n" - (or short "") - (or long "") - id - (tabs (or short "") " " (or long "") " <" (symbol->string id) ">") - (or help "?") - default)) - ((!flag _ help short long) - (fprintf port " ~a ~a ~a ~a~n" - (or short "") - (or long "") - (tabs (or short "") " " (or long "")) - (or help "?")))) - opts)) - -(def (display-arg-help args port) - (for-each (match <> - ((!reqarg key help) - (fprintf port " ~a ~a ~a~n" - key (tabs key) (or help "?"))) - ((!optarg key help _ default) - (fprintf port " ~a ~a ~a [default: ~a]~n" - key (tabs key) (or help "?") - default)) - ((!rest key help) - (fprintf port " ~a ~a ~a~n" - key (tabs key) (or help "?")))) - args)) - -(def (tabs . strs) - (def tablen 31) - (def (string-e str) - (if (symbol? str) - (symbol->string str) - str)) - - (let* (len (foldl + 0 (map string-length (map string-e strs)))) - (if (fx< len tablen) - (make-string (fx- tablen len) #\space) - ""))) - -(def (call-with-getopt proc args - program: program - help: (help #f) - exit-on-error: (exit-on-error? #t) - . gopts) - (def (parse! gopt return) - (try - (getopt-parse gopt args) - (catch (getopt-error? exn) - (getopt-display-help exn program (current-error-port)) - (if exit-on-error? - (exit 1) - (return 'error))) - (catch (e) - (display-exception e (current-error-port)) - (if exit-on-error? - (exit 2) - (return 'error))))) - - (let/cc return - (let* ((gopt (apply getopt help: help gopts)) - (cmds (!getopt-cmds gopt))) - (if (null? cmds) - ;; it only has options; add -h/--help - (let ((help-flag - (flag 'help "-h" "--help" - help: "display help")) - (opts (!getopt-opts gopt))) - (if (null? opts) - (set! (!getopt-opts gopt) - [help-flag]) - (set-cdr! (last-pair opts) - [help-flag])) - (let (opt (parse! gopt return)) - (if (hash-get opt 'help) - (getopt-display-help gopt program) - (proc opt)))) - ;; it has commands; add help - (let (help-cmd - (command 'help help: "display help; help for command help" - (optional-argument 'command value: string->symbol))) - (set-cdr! (last-pair cmds) [help-cmd]) - (let ((values cmd opt) (parse! gopt return)) - (if (eq? cmd 'help) - (getopt-display-help-topic gopt (hash-get opt 'command) program) - (proc cmd opt)))))))) +;; TODO: as a (begin-syntax (warnf ...)) compile-time deprecation warning at some point. diff --git a/src/std/misc/string.ss b/src/std/misc/string.ss index 2c56d4047a..eca4707eab 100644 --- a/src/std/misc/string.ss +++ b/src/std/misc/string.ss @@ -13,7 +13,8 @@ string-whitespace? random-string str str-format - +cr+ +lf+ +crlf+) + +cr+ +lf+ +crlf+ + as-string